-- What?: Ada library listing

The Ada library contains a lot of interesting libraries, but it is very hard to comprehend names like "a-szfzha.ads" and "a-ztinio.ads" (those two files correspond to Ada.Strings.Wide_Wide_Fixed.Wide_Wide_Hash and Ada.Wide_Wide_Text_IO.Integer_IO).

The following script will make any directory with .ads files much easier to understand. The output is HTML with one column of file names next to a column of the corresponding package name. Redirect it with "> GNAT_Library.html" for output as a file, or you can even redirect it to a browser. I imagine it would be possible to leverage AdaBrowse in this, but that is a project for a later date. Save this to a file, make it executable, and try it out.

#! /bin/sh

# uncomment ONE of the following lines:

# for gnat from Debian uncomment the following line:
adsdir="/usr/lib/gcc/x86_64-linux-gnu/4.3/adainclude"
# for gnat from AdaCore uncomment the following line:
# adsdir="/opt/gnat/lib/gcc/x86_64-pc-linux-gnu/4.1.3/adainclude"
# for TextTools from Debian uncomment the following line:
# adsdir="/usr/share/ada/adainclude/texttools"

File_List=$(ls -1 $adsdir | grep .ads$)

echo "<html><head><title>Ada Library Cross-Reference</title></head><body>"
echo "<table>"

for File in $File_List ; do
   name=$(grep "^package" ${adsdir}/${File} | cut -f2 -d" ")
   add=""
   if [ -z "$name" ]; then
      name=$(egrep "^(procedure|function)" ${adsdir}/${File} | cut -f2 -d" ")
      if [ -z "$name" ]; then
         name=$(grep "^private package" ${adsdir}/${File} | cut -f3 -d" ")
         add="(private)"
      else
         add="(proc/func)"
      fi
   fi
   echo "<tr>"
   echo "<td>${File}</td>"
   echo "<td><a href=\"${adsdir}/${File}\">${name}</a> $add</td>"
   echo "</tr>"
done

echo "</table>"
echo "</body></html>"

Thanks to caracal of #ada @ freenode for completing the HTML and finishing off the parts for generic packages.

I've left the line for Debian's GNAT because that is what I use. This will work on any directory with .ads files in it.

-- What?

Monday, October 27, 2008

Ada library listing

No comments:

Blog Archive

About Me