hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2007-02-04 04:40:33 +00:00
parent 1294babb4e
commit f41ff496b1
3 changed files with 33 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
ase/rel/doc.awk
View File

@ -3,16 +3,29 @@ global header, mode;
BEGIN {
header = 1;
mode = 0;
output=ARGV[0];
gsub (/\.man/, ".html", output);
print "OUTPUT TO: " output;
print "</html>";
print "</head>";
}
header && /^\.[[:alpha:]]+[[:space:]]/ {
if ($1 == ".title")
{
print "TITLE: " $2;
print "<title>" $2 "</title>";
}
}
header && !/^\.[[:alpha:]]+[[:space:]]/ { header = 0; }
header && !/^\.[[:alpha:]]+[[:space:]]/ {
header = 0;
print "</head>";
print "<body>";
}
!header {
local text;
@ -38,6 +51,13 @@ header && !/^\.[[:alpha:]]+[[:space:]]/ { header = 0; }
{
print "<br>";
}
else
{
gsub ("<", "\\&lt;");
gsub (">", "\\&gt;");
print $0;
print "<br>";
}
}
else if (mode == 1)
{
@ -54,3 +74,8 @@ header && !/^\.[[:alpha:]]+[[:space:]]/ { header = 0; }
}
}
}
END {
print "</body>";
print "</html>";
}