#  lists location of each function under libc

set X=`cd ../.. ; pwd`

if ($1 == "table") then
    echo List of library functions defined in {$X}/libc:
    echo
    echo
    cd /; 
(ctags -v -w {$X}/libc/[a-m]*/{mi,m68k,vax}/*.c ;ctags -v -w {$X}/libc/[n-z]*/{mi,m68k,vax}/*.c) 
| awk '{printf "%-20s %38s\n", $1,$2}'
else if ($1 == "scribe") then
    echo '@Part( functionindex, root "manual" )'
    echo '@Chapter(List of Library Functions defined in' {$X}/libc')'
    echo 
    echo '@Begin(Format)'
    echo '@Tabclear'
    echo '@Tabset(1 inches, 3.5 inches)'
    cd /; (ctags -v -w {$X}/libc/[a-m]*/{mi,m68k,vax}/*.c ;ctags -v -w {$X}/libc/[n-z]*/{mi,m68k,vax}/*.c)  | awk 'BEGIN {lineno = 0} {if(lineno%5 == 4) {printf "@\\%s@)  .  @\\%s\n", $1,$2} else {printf "@\\%s@\\%s\n", $1,$2} ; lineno += 1}'
    echo '@End(Format)'
else
    set X=`cd ../.. ; pwd`
    cd /; (ctags -v -w {$X}/libc/[a-m]*/{mi,m68k,vax}/*.c ;ctags -v -w {$X}/libc/[n-z]*/{mi,m68k,vax}/*.c)  | awk '{print $1,$2}'
endif
