tools/dtdesc/c_iff/autodoc.pl

   1 #! /usr/bin/perl
   2
   3 # autodoc.pl - an autodoc-replacement
   4 #
   5 # Copyright (C) 2000, 2001 Joerg Dietrich
   6 #
   7 # This is the AROS-version of autodoc.pl.
   8 # It is distributed under the AROS Public License.
   9 # But I reserve the right to distribute
  10 # my own version under other licenses.
  11
  12 # This is a quick and dirty hack. It is just for internal use.
  13 # But feel free to improve it.
  14
  15 # read in all commandline-specified files
  16 # into one big array
  17 for(@ARGV)
  18 {
  19  if(open(TMPFILE, "<".$_))
  20  {
  21   while(<TMPFILE>)
  22   {
  23    push(@Zeilen, $_);
  24   }
  25   close(TMPFILE);
  26  }
  27 }
  28
  29 # count rows
  30 $nZeilen=0;
  31 for(@Zeilen)
  32 {
  33  $nZeilen++;
  34 }
  35
  36 # extract the autodocs
  37 for($i=0; $i<$nZeilen; $i++)
  38 {
  39  # scans for /******
  40  if($Zeilen[$i] =~ /\/\*{6}/)
  41  {
  42   # function-name as key of a hash-entry
  43   $Key=substr($Zeilen[$i], 8, rindex($Zeilen[$i], " ")-8);
  44
  45   # Now put all following rows into the data of the hash-entry
  46   $Value="";
  47   while(1)
  48   {
  49    $i++;
  50    if($Zeilen[$i] =~ /\*{6}/)
  51    {
  52     last;
  53    }
  54
  55    $Value=$Value . substr($Zeilen[$i], 1);
  56   }
  57
  58   $Data{$Key}=$Value;
  59  }
  60 }
  61
  62 #sort the keys alphabeticaly
  63 @Keys=keys(%Data);
  64 @KeysSorted=sort(@Keys);
  65
  66 #TOC
  67 print("TABLE OF CONTENTS\n\n");
  68
  69 for(@KeysSorted)
  70 {
  71  print($_, "\n");
  72 }
  73
  74 # print the functions
  75 for(@KeysSorted)
  76 {
  77  $Space="";
  78
  79  for($i=0; $i<(77-2*length($_)); $i++)
  80  {
  81   $Space=$Space." ";
  82  }
  83
  84  print($_, $Space, $_, "\n");
  85
  86  print($Data{$_});
  87 }
  88
  89