/g; s/@\{[uU][iI]\}/<\/I>/g; #italic
if (m#@{#){ # Recognise and hide unhandled cases
print "UNHANDLED?: $_\n";
s/(@\{[^\}]*\})//g;
}
print pagef "$_\n";
}
} # found end of first node, or of the file
} else { # No database label on this line
if ($databasefound == 0){ # stuff before first @database is ignored
print "#SKIPPED while looking for database: $_\n";
next;
}
# otherwise, it may be a perfectly good line
# check whether it is the start of a new node
$2="Untitled";
$buttonline = "
";
if ( (m#@[Nn][oO][dD][Ee]\s*"(\S*)"\s*"(.*)"#)
|| (m#@[Nn][oO][dD][Ee]\s*(\S*)\s*"(.*)"#)
|| (m#@[Nn][oO][dD][Ee]\s*(\S*)#)
){ # found @Node LABEL "title", @node Label, or even @node "label" "title"
$nodename = $1;
$nodetitle = $2;
$htmlname = $dirname."/".$1.".HTML";
if (-e $htmlname) {
unlink($htmlname);
}
open (pagef,'>'.$htmlname)
|| die "Can't open $htmlname to write $!\n";
print pagef "\n$nodetitle\n";
print pagef "$nodetitle
\n\n";
# print "Found Node: $nodename $nodetitle as $htmlname \n";
# since we found the beginning of the node, copy to the end
while (){
chop;
if (m#@[eE][nN][dD][Nn][oO][dD][Ee]#){
# print "Found @endnode\n"; # found @endnode
print pagef "\n";
if ($buttonline ne "
") { print pagef "$buttonline"; }
print pagef "
HTML Conversion by AG2HTML.pl & witbrock@cs.cmu.edu\n";
close (pagef);
last;
} else {
# Remember TOC link, and delete the line if found
if (m#@[tT][oO][cC]\s*"?([^\"\s\}]*)"?#){
$buttonline = $buttonline."[Contents]<\/a> ";
next;
}
# Remember prev link, and delete the line if found
if (m#@[pP][rR][eE][vV]\s*"?([^\"\s\}]*)"?#){
$buttonline = $buttonline."[Browse <-]<\/a> ";
next;
}
# Remember next link, and delete the line if found
if (m#@[nN][eE][xX][tT]\s*"?([^\"\s\}]*)"?#){
$buttonline = $buttonline."[Browse ->]<\/a> ";
next;
}
# Remember help link, and delete the line if found
if (m#@[hH][eE][lL][pP]\s*"?([^\"\s\}]*)"?#){
$buttonline = $buttonline."[Help]<\/a> ";
next;
}
# otherwise look for links, or plain text
study;
s/&/&/g;
s/>/>/g;
s/$1<\/a>/g;
# found in viewport -- link with string after don't know what means
s/@\{\s*\"([^\"]*)\"\s+link\s+\"*([^\"\s\}]*)\"*\s*\"[^\"]*\"\s*\}/\$1<\/a>/g;
s/@\{[bB]\}//g; s/@\{[uU][bB]\}/<\/B>/g; # bold
s/@\{[iI]\}//g; s/@\{[uU][iI]\}/<\/I>/g; #italic
if (m#@{#){ # Recognise and hide unhandled cases
print "UNHANDLED?: $_\n";
s/(@\{[^\}]*\})//g;
}
print pagef "$_\n";
}
}
} else { # Haven't yet found a @node
if (m#\S*#) {print "# SKIPPED while looking for @node: $_ \n"; }
next;
}
}
}
close guidef;