(C) 1996 AROS - The Amiga Replacement OS
.
if (lastfield=="EXAMPLE")
{
if (example_is=="here" || example_is=="example")
printf ("") >> out;
}
else if (lastfield=="INPUTS" || lastfield=="HISTORY")
{
# If the last field as a list, then we must
# close that, too.
print "\n" >> out;
}
# To get a nice format, we stuff every field in a HTML
# list.
if (lastfield!="")
print "\n" >> out;
mode="field"; # Obsolete ?
# Store the name of the field so we know how to
# terminate it correctly when we encounter the
# next one.
lastfield=newfield;
# Set a flag that we are at the top of the field.
# Some fields need this to emit HTML code at the
# beginning.
first=1;
# Store the name of the current field
field=newfield;
# Emit the header of the field. This includes special
# code for SEE ALSO (that's two words. The code
# above can handle only the first).
if (newfield=="SEE")
print ".
if (lastfield=="EXAMPLE")
{
if (example_is=="here" || example_is=="example")
printf ("") >> out;
}
else if (lastfield=="INPUTS" || lastfield=="HISTORY")
{
# If the last field as a list, then we must
# close that, too.
print "\n" >> out; #else # print line >> out; # #first=0; } else if (field=="FUNCTION" || field=="RESULT" || field=="NOTES" || field=="BUGS" || field=="INTERNALS") { if (line=="" && !first) print "
\n" >> out; else { gsub(/&/,"\\&",line); gsub(//,"\\>",line); gsub(/"/,"\\"",line); if (match(line,/\\begin{.*}/)) { stack[sp] = env; sp ++; pre=substr(line,1,RSTART-1); env=substr(line,RSTART+7,RLENGTH-8); post=substr(line,RSTART+RLENGTH); if (env=="description") { line=pre"\n\n
")>>out;
example_is = "example";
ifdeflevel = 0;
skip = 1;
}
else if (match (line,/See[ \t]+[^ \t]+[ \t]*[(][)]/))
{
example_is = line;
sub(/^.*See[ \t]+/,"",example_is);
sub(/[ \t]*[(][)].*$/,"",example_is);
fn = tolower(example_is) ".html";
print "See "example_is"()">>out;
skip=1;
}
else if (match (line,/See[ \t]below/))
{
example_is="below";
close (file);
state = "skip";
ifdeflevel = 0;
printf ("")>>out;
while ((getline line < file) > 0)
{
if (state=="skip")
{
if (match (line,/^#[ \t]*ifdef[ \t]+TEST/))
state="found";
}
else if (state=="found")
{
if (match (line,/^#[ \t]*ifdef/))
ifdeflevel ++;
else if (match (line,/^#[ \t]*endif/))
{
if (!ifdeflevel)
{
state="skip";
continue;
}
else
ifdeflevel --;
}
print line >> out;
}
}
printf ("")>>out;
close (file);
for (pos=0; pos")>>out;
}
first = 0;
}
if (example_is=="example" && !skip)
{
if (match (line,/^#[ \t]*ifdef/))
ifdeflevel ++;
else if (match (line,/^#[ \t]*endif/))
{
if (!ifdeflevel)
skip=1;
ifdeflevel --;
}
}
if (!skip)
{
gsub(/^( |\t)/,"",line);
gsub(/&/,"\\&",line);
gsub(//,"\\>",line);
gsub(/"/,"\\"",line);
print line >> out;
}
else
skip --;
}
else if (field=="SEE")
{
if (line!="")
{
rest=line;
line="";
while (rest!="")
{
if (match(rest,/^[a-zA-Z_][a-zA-Z0-9]*[(][)]/))
{
link=substr(rest,RSTART,RLENGTH-2);
rest=substr(rest,RSTART+RLENGTH);
lfile="../html/autodocs/" tolower(link) ".html";
if (link in special_item)
line = line special_item[link];
else if (link"()" in special_item)
line = line special_item[link"()"];
else if (exists(lfile))
line=line ""link"()";
else
line=line " " link "()";
}
else
{
if (match(rest,/^[^a-zA-Z_]+/))
len=RLENGTH;
else
len=1;
post=substr(rest,1,len);
gsub(/&/,"\\&",post);
gsub(//,"\\>",post);
gsub(/"/,"\\"",post);
line=line post;
rest=substr(rest,len+1);
}
}
print line >> out;
}
}
else if (field=="HISTORY")
{
if (first)
{
while ((getline < cvslog) > 0)
print >> out;
close (cvslog);
first=0;
}
}
else
print line >> out;
}
}
else if (mode=="footer")
{
}
}
# Anything written to this file ?
if (out!="")
{
# Then emit the footer
print "" >> out;
}
# Close all files
close (out);
close (file);
# printf ("\n") >> stderr;
}
# Return the filename from a complete path
function basename(file) {
return gensub(/.*\/([a-zA-Z0-9_]+)(\.[a-zA-Z0-9_]+)?$/,"\\1",1,file) "";
}
# Check if a file exists
function exists(file ,err) {
# Try to read a line from the file
err=getline < file;
# No Error ?
if (err >= 0)
{
# Close the file
close (file);
# The file exists
return 1;
}
# The file doesn't exist
return 0;
}