Aminet 18/aminetcdnumber181997.iso/Aminet/misc/emu/AROSdev.lha/AROS/docs/src/adocpost.gawk

Text File | 1997-01-28 | 5KB | 291 lines

BEGIN {
    cols=3;
    if (mode=="pre_bylib")
    {
    }
    else if (mode=="post_bylib")
    {
    print "<DL>"
    first=1;
    dl=1;
    }
    if (mode=="pre_byname")
    {
    }
    else if (mode=="post_byname")
    {
    first=1;
    print "<DL>"
    dl=1;
    table=0;
    }
}
 {
    if (mode=="pre_bylib")
    {
    file=$1;
    gsub("..\/html\/","",file);
    first=toupper(substr($2,1,1));
    libs[$3]=libs[$3] first;
    print $3":"first":"$2":"file;
    }
    else if (mode=="post_bylib")
    {
    if ($1=="-")
    {
        if (first)
        {
        print "<A NAME=\"bylib\"></A><DT><FONT SIZE=\"+2\"><B>A.2 Reference by library</B></FONT><DD><DL>"
        dl++;
        first=0;
        cnt=1;
        }

        print "<FONT SIZE=\"+1\">"

        if ($2=="Utility functions")
        print "<A HREF=\"#util\">"
        else
        print "<A HREF=\"#lib"$2"\">"

        print "<B>A.2."cnt" "$2"</B></A> ("
        cnt ++;

        libini[$2]=$3;

        initials=$3;
        for (t=1; t<=length(initials); t++)
        {
        c=substr(initials,t,1);
        print "<A HREF=\"#lib"$2 c"\"><FONT SIZE=\"+1\"><B>"c"</B></FONT></A> "
        }

        print ")</FONT><BR>"

        lib="";
        char="";
    }
    else
    {
        if (lib != $1)
        {
        if (table)
        {
            while (horiz && horiz < cols)
            {
            print "<TD WIDTH=25%> </TD>"
            horiz++;
            }
            print "</TR></TABLE>"
            table=0;
        }

        if (lib != "")
        {
            print "</DL><P>"
            dl--;
        }
        else
        {
            print "<P>"
            cnt=1;
        }

        lib = $1;

        print "<P><DT>"

        if (lib=="Utility functions")
            print "<A NAME=\"util\"></A>"
        else
            print "<A NAME=\"lib"lib"\"></A>"

        print "<FONT SIZE=\"+1\"><B>A.2."cnt " " $1"</B></FONT><DD>"
        cnt ++;

        initials=libini[lib];
        for (t=1; t<=length(initials); t++)
        {
            c=substr(initials,t,1);
            print "<A HREF=\"#lib"lib c"\"><FONT SIZE=\"+1\"><B>"c"</B></FONT></A> "
        }

        print "<P><DL>"
        dl++;
        }
        if (char != $2)
        {
        char=$2;

        if (table)
        {
            while (horiz && horiz < cols)
            {
            print "<TD WIDTH=25%> </TD>"
            horiz++;
            }
            print "</TR></TABLE>"
            table=0;
        }

        print "<DT>"
        print "<A NAME=\"lib"lib char"\"></A>"
        print "<B>"char"</B><DD>"

        print "<TABLE WIDTH=80%>"
        table=1;
        horiz=0;
        }

        if (horiz==0)
        {
        print "<TR>"
        }

        print "<TD WIDTH=25%>"
        print "<A HREF=\""$4"\">"$3"()</A> "
        print "</TD>"
        horiz++;

        if (horiz==cols)
        {
        print "</TR>"
        horiz=0;
        }
    }
    }
    if (mode=="pre_byname")
    {
    first=substr($2,1,1);
    initials=initials first;
    file=$1;
    gsub("..\/html\/","",file);
    print toupper(first)":"$2":"file;
    }
    else if (mode=="post_byname")
    {
    if ($1=="-")
    {
        print "<DT><A NAME=\"byname\"></A><FONT SIZE=\"+2\"><B>A.3 Reference by name</B></FONT><DD>"

        for (t=1; t<=length($2); t++)
        {
        char=substr($2,t,1);
        print "<A HREF=\"#name"char"\"><FONT SIZE=\"+1\"><B>"char"</B></FONT></A> "
        }

        print "<P><DL>"
        dl++;

        char="-";
    }
    else
    {
        if (char!=$1)
        {
        if (table)
        {
            while (horiz && horiz < cols)
            {
            print "<TD WIDTH=25%> </TD>"
            horiz++;
            }
            print "</TR></TABLE>"
            table=0;
        }

        if (char != "-")
        {
            print "</DL><P>"
            dl--;
        }
        else
            print "<P>"

        char = $1;

        print "<DT><A NAME=\"name"char"\"></A><B>"char"</B><DD>"
        print "<DL>"
        dl++;

        print "<TABLE WIDTH=80%>"
        table=1;
        horiz=0;
        }

        if (horiz==0)
        {
        print "<TR>"
        }

        print "<TD WIDTH=25%>"
        print "<A HREF=\"" $3 "\">" $2 "()</A>"
        print "</TD>"

        horiz++;

        if (horiz==cols)
        {
        print "</TR>"
        horiz=0;
        }
    }
    }
}
END {
    if (mode=="pre_bylib")
    {
    alphabeth="ABCDEFGHIJKLMNOPQRSTUVWXYZ";

    for (lib in libs)
    {
        out="";
        for (t=1; t<=26; t++)
        {
        if (index(libs[lib],substr(alphabeth,t,1)))
            out=out substr(alphabeth,t,1);
        }
        print "-:"lib":"out;
    }
    }
    else if (mode=="post_bylib")
    {
    if (table)
    {
        while (horiz && horiz < cols)
        {
        print "<TD WIDTH=25%> </TD>"
        horiz++;
        }
        print "</TABLE>"
    }
    while (dl--)
        print "</DL>"
    }
    if (mode=="pre_byname")
    {
    alphabeth="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    out="";
    for (t=1; t<=26; t++)
    {
        if (index(initials,substr(alphabeth,t,1)))
        out=out substr(alphabeth,t,1);
    }
    print "-:" out;
    }
    else if (mode=="post_byname")
    {
    if (table)
    {
        while (horiz && horiz < cols)
        {
        print "<TD WIDTH=25%> </TD>"
        horiz++;
        }
        print "</TABLE>"
    }
    while (dl--)
        print "</DL>"
    }
}