makehelptext.pl

   1 #!/usr/bin/perl
   2
   3 #
   4 # $Id$
   5 #
   6 # this program takes a textfile with gf1-documentation, and converts
   7 # it to an include-file
   8 #
   9
  10 #    Copyright (C) 1998 Kurt Van den Branden
  11 #
  12 # This program is free software; you can redistribute it and/or modify
  13 # it under the terms of the GNU General Public License as published by
  14 # the Free Software Foundation; either version 2 of the License, or
  15 # (at your option) any later version.
  16 #
  17 # This program is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU General Public License for more details.
  21 #
  22 # You should have received a copy of the GNU General Public License
  23 # along with this program; if not, write to the Free Software
  24 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  25
  26 if ($ARGV[0])
  27 {
  28     $infile = $ARGV[0];
  29 }
  30 else
  31 {
  32     $infile = 'gf1_doc.txt';
  33 }
  34
  35 if ($ARGV[1])
  36 {
  37     $outfile = $ARGV[1];
  38 }
  39 else
  40 {
  41     $outfile = 'helptext.h';
  42 }
  43
  44 open (IN, $infile) || die "ERROR: input not found ($infile)\n\n";
  45 open (OUT, ">$outfile") || die "ERROR: can't create output ($outfile)\n\n";
  46
  47 print OUT "/*\n";
  48 print OUT "** contains the text to display in the helpwindow from gf1\n";
  49 print OUT "**\n";
  50 print OUT "** this file is created automatically from the documentation\n";
  51 print OUT "*/\n";
  52 print OUT "/*\n";
  53 print OUT "**    Copyright (C) 1998 Kurt Van den Branden\n";
  54 print OUT "**\n";
  55 print OUT "** This program is free software; you can redistribute it and/or modify\n";
  56 print OUT "** it under the terms of the GNU General Public License as published by\n";
  57 print OUT "** the Free Software Foundation; either version 2 of the License, or\n";
  58 print OUT "** (at your option) any later version.\n";
  59 print OUT "** \n";
  60 print OUT "** This program is distributed in the hope that it will be useful,\n";
  61 print OUT "** but WITHOUT ANY WARRANTY; without even the implied warranty of\n";
  62 print OUT "** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n";
  63 print OUT "** GNU General Public License for more details.\n";
  64 print OUT "** \n";
  65 print OUT "** You should have received a copy of the GNU General Public License\n";
  66 print OUT "** along with this program; if not, write to the Free Software\n";
  67 print OUT "** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \n";
  68 print OUT "*/\n";
  69 print OUT "\n";
  70 print OUT "#ifndef _HELPTEXT_H_\n";
  71 print OUT "#define _HELPTEXT_H_\n";
  72 print OUT "\n";
  73 print OUT "char * helplines[] = {\n";
  74 print OUT "    \"\",\n";
  75 print OUT "    \"\",\n";
  76
  77 $counter = 2;
  78 $lasttext = 0;
  79 @sections = ();
  80
  81 while ($line = <IN>)
  82 {
  83     $counter++;
  84
  85     chop ($line);
  86     # replace " with \"
  87     $line =~ s/\"/\\\"/g;
  88     # cut all spaces from the start of the line
  89     ($text) = $line =~ m/^\s*(.*)/;
  90     if ($counter == 3)
  91     {
  92         print OUT "    \"\@c\@m$line\",\n";
  93         print OUT "    \"\",\n";
  94         push (@sections, [$text, $counter]);
  95         $counter++;
  96     }
  97     elsif ($line =~ m/^\s*\d+\.\s+/)
  98     {
  99         print OUT "    \"\@m$line\",\n";
 100         push (@sections, ["  $text", $counter]);
 101     }
 102     elsif ($line =~ m/^\s*\d+\.\d+\.\s+/)
 103     {
 104         print OUT "    \"\@b$line\",\n";
 105         push (@sections, ["    $text", $counter]);
 106     }
 107     elsif ($line =~ m/^\s*\d+\.\d+\.\d+\.\s+/)
 108     {
 109         print OUT "    \"$line\",\n";
 110         push (@sections, ["      $text", $counter]);
 111     }
 112     else
 113     {
 114         print OUT "    \"$line\",\n";
 115     }
 116
 117     if (length ($line) != 0)
 118     {
 119         $lasttext = $counter;
 120     }
 121 }
 122
 123 $lasttext += 5;
 124
 125 print OUT "};\n\n";
 126 print OUT "#define NRHELPLINES $lasttext\n\n";
 127 print OUT "struct sectiondata {\n";
 128 print OUT "    char line[100];\n";
 129 print OUT "    int offset;\n";
 130 print OUT "} sectionlines[] = {\n";
 131
 132 foreach $item (@sections)
 133 {
 134     print OUT "    {\"$item->[0]\", $item->[1]},\n";
 135 }
 136
 137 print OUT "};\n\n";
 138 $t = $#sections + 1;
 139 print OUT "#define NRSECTIONLINES $t\n\n";
 140
 141 print OUT "#endif";
 142 exit;