6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-06 12:31:12 +00:00
Code Issues Projects Releases Wiki Activity

Fixed generation of invalid HTML code

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@565 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2000-12-06 22:16:55 +00:00
parent ff31876edb
commit 100196a5d4
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/ca65html/ca65html
View File

@ -486,24 +486,28 @@ sub Process2 {
$Line = $2;
# Variable to assemble HTML representation
my $Item = $Id;
my $Contents = "";
# Make this import a link target
if (exists ($Imports{$OutName}{$Id})) {
$Label = $Imports{$OutName}{$1};
$Contents .= sprintf (" name=\"%s\"", $Label);
}
# If we have an export for this import, add a link to this
# export definition
if (exists ($Exports{$Id})) {
$Label = $Exports{$Id};
$Item = sprintf ("<a href=\"%s\">%s</a>", $Label, $Item);
$Contents .= sprintf (" href=\"%s\"", $Label);
}
# Make this import a link target
if (exists ($Imports{$OutName}{$Id})) {
$Label = $Imports{$OutName}{$1};
$Item = sprintf ("<a name=\"%s\">%s</a>", $Label, $Item);
# Add the HTML stuff to the output line
if ($Contents ne "") {
$OutLine .= sprintf ("<a%s>%s</a>", $Contents, $Id);
} else {
$OutLine .= $Id;
}
# Add the HTML stuff to the output line
$OutLine .= $Item;
# Check if another identifier follows
if ($Line =~ /^(\s*),(\s*)(.*)$/) {
$OutLine .= "$1,$2";
@ -531,13 +535,13 @@ sub Process2 {
$Line = $2;
# Variable to assemble HTML representation
my $Item = $Id;
my $Contents = "";
# If we have a definition for this export in this file, add
# a link to the definition.
if (exists ($Labels{$OutName}{$1})) {
$Label = $Labels{$OutName}{$1};
$Item = sprintf ("<a href=\"#%s\">%s</a>", $Label, $Item);
$Contents = sprintf (" href=\"#%s\"", $Label);
}
# If we have this identifier in the list of exports, add a
@ -545,12 +549,16 @@ sub Process2 {
if (exists ($Exports{$Id})) {
$Label = $Exports{$Id};
# Be sure to use only the label part
$Label =~ s/^(.*#)(.*)$/$2/;
$Item = sprintf ("<a name=\"%s\">%s</a>", $Label, $Item);
$Label =~ s/^(.*#)(.*)$/$2/; # ##FIXME: Expensive
$Contents .= sprintf (" name=\"%s\"", $Label);
}
# Add the HTML stuff to the output line
$OutLine .= $Item;
if ($Contents ne "") {
$OutLine .= sprintf ("<a%s>%s</a>", $Contents, $Id);
} else {
$OutLine .= $Id;
}
# Check if another identifier follows
if ($Line =~ /^(\s*),(\s*)(.*)$/) {