grutatxt

   1 #!/usr/bin/perl
   2
   3 use lib '.';
   4
   5 #
   6 # grutatxt - Text to HTML (and other formats) converter
   7 # http://www.triptico.com/software/grutatxt.html
   8 #
   9 # Copyright (C) 2000/2004 Angel Ortega <angel@triptico.com>
  10 #
  11 # This program is free software; you can redistribute it and/or modify
  12 # it under the terms of the GNU General Public License as published by
  13 # the Free Software Foundation; either version 2 of the License, or
  14 # (at your option) any later version.
  15 #
  16 # This program is distributed in the hope that it will be useful,
  17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 # GNU General Public License for more details.
  20 #
  21 # You should have received a copy of the GNU General Public License
  22 # along with this program; if not, write to the Free Software
  23 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  24 #
  25 # http://www.triptico.com
  26 #
  27
  28 use Getopt::Long;
  29 use locale;
  30 use Grutatxt;
  31
  32 $VERSION = $Grutatxt::VERSION . ":1";
  33
  34 # input file
  35 $input_file = "-";
  36
  37 # output file
  38 $output_file = ">-";
  39
  40 # CSS information
  41 $css = "";
  42 $embed_css = 0;
  43
  44 # page title
  45 $title = "";
  46
  47 # offset for the h? headers
  48 $header_offset = 0;
  49
  50 # default mode
  51 $mode = "HTML";
  52
  53 # use real dl
  54 $dl_as_dl = 0;
  55
  56 # troff table type
  57 $table_type = "allbox";
  58
  59 # abstract line number
  60 $abstract = 0;
  61
  62 # man page section
  63 $man_section = 1;
  64
  65 #####################################################################
  66
  67 # parse options
  68 if(!GetOptions( "i|input=s"             =>      \$input_file,
  69                 "o|output=s"            =>      \$output_file,
  70                 "c|css=s"               =>      \$css,
  71                 "e|embed-css"           =>      \$embed_css,
  72                 "t|title=s"             =>      \$title,
  73                 "f|header-offset=s"     =>      \$header_offset,
  74                 "b|table-headers"       =>      \$table_headers,
  75                 "ct|center-tables"      =>      \$center_tables,
  76                 "xt|expand-tables"      =>      \$expand_tables,
  77                 "sp|strip-parens"       =>      \$strip_parens,
  78                 "nb|no-body"            =>      \$no_body,
  79                 "v|version"             =>      \$version,
  80                 "h|help"                =>      \$usage,
  81                 "m|mode=s"              =>      \$mode,
  82                 "s|man-section=s"       =>      \$man_section,
  83                 "dl"                    =>      \$dl_as_dl)
  84               or $usage)
  85 {
  86         usage();
  87 }
  88
  89 if($version)
  90 {
  91         print "$VERSION\n"; exit(0);
  92 }
  93
  94 open I, $input_file or die "Can't open $input_file: $!";
  95 open O, ">$output_file" or die "Can't create $output_file: $!";
  96
  97 $content = join("",<I>);
  98 close I;
  99
 100 $content_title = "";
 101
 102 $grutatxt = new Grutatxt(
 103                 "mode"          => $mode,
 104                 "header-offset" => $header_offset,
 105                 "table-headers" => $table_headers,
 106                 "center-tables" => $center_tables,
 107                 "expand-tables" => $expand_tables,
 108                 "strip-parens"  => $strip_parens,
 109                 "strip-dollars" => $strip_dollars,
 110                 "dl-as-dl"      => $dl_as_dl,
 111                 "table-type"    => $table_type,
 112                 "title"         => \$content_title,
 113                 "abstract"      => \$abstract,
 114                 "page-name"     => $title,
 115                 "section"       => $man_section
 116                 );
 117
 118 @result = $grutatxt->process($content);
 119
 120 $title = $content_title unless $title;
 121 $no_body = 1 unless $mode =~ /^html$/i;
 122
 123 unless($no_body)
 124 {
 125         print O "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\"\n";
 126         print O "       \"http://www.w3.org/TR/REC-html40/loose.dtd\">\n";
 127         print O "<html><head>\n";
 128         print O "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>\n";
 129         print O "<title>$title</title>\n";
 130
 131         printf O "<!-- converted from text by grutatxt $VERSION on %s -->\n", scalar(localtime);
 132
 133         if($css)
 134         {
 135                 if($embed_css)
 136                 {
 137                         if(open C, $css)
 138                         {
 139                                 my ($c) = join('', <C>);
 140                                 close C;
 141
 142                                 print O "<style type='text/css'>\n";
 143                                 print O $c . "\n";
 144                                 print O "</style>\n";
 145                         }
 146                         else
 147                         {
 148                                 die "Can't open '$css' CSS file.";
 149                         }
 150                 }
 151                 else
 152                 {
 153                         print O "<link rel=StyleSheet href='$css' type='text/css'>";
 154                 }
 155         }
 156
 157         print O "</head><body>\n";
 158 }
 159
 160 foreach my $l (@result)
 161 {
 162         print O "$l\n";
 163 }
 164
 165 print O "</body></html>\n" unless $no_body;
 166
 167 close O;
 168
 169 exit(0);
 170
 171
 172 sub usage
 173 {
 174         print "grutatxt $VERSION - Grutatxt format processor\n";
 175         print "Copyright (C) 2000/2004 Angel Ortega <angel\@triptico.com>\n";
 176         print "This software is covered by the GPL license. NO WARRANTY.\n\n";
 177
 178         print "Usage:\n";
 179         print "\n";
 180         print "grutatxt [options] < input_text_file > output_html_file\n";
 181         print "\n";
 182         print "Global options:\n\n";
 183         print "    -i|--input=FILE            Input file (STDIN)\n";
 184         print "    -o|--output=FILE           Output file (STDOUT)\n";
 185         print "    -t|--title=TITLE           Document title (if unset,\n";
 186         print "                               level 1 heading is used)\n";
 187         print "    -sp|--strip-parens         Strip parentheses in function\n";
 188         print "                               names (shown monospaced anyway)\n";
 189         print "    -sd|--strip-dollars        Strip leading \$ in variable\n";
 190         print "                               names (shown monospaced anyway)\n";
 191         print "    -m|--mode=[HTML|troff|man] Selects output mode, HTML, troff or man\n";
 192         print "                               (default: HTML)\n";
 193         print "HTML options:\n\n";
 194         print "    -c|--css=CSS_URL_OR_FILE   CSS URL (or file if using --embed-css)\n";
 195         print "    -e|--embed-css             Embed CSS instead of linking to it\n";
 196         print "    -f|--header-offset=NUMBER  Offset to add to <h1>,\n";
 197         print "                               <h2>... headers (default 0)\n";
 198         print "    -b|--table-headers         Use <th> instead of <td> in\n";
 199         print "                               the first row of each table\n";
 200         print "    -ct|--center-tables        Centers the tables\n";
 201         print "    -xt|--expand-tables        Expands the tables (width=100\%)\n";
 202         print "    -nb|-no-body               Don't generate <html><body>...\n";
 203         print "                               </body></html> enclosing.\n";
 204         print "    -dl                        Use real <dl>, <dd> and <dt>\n";
 205         print "                               instead of tables in definition lists.\n";
 206         print "troff options:\n\n";
 207         print "    --table-type=TYPE          Table type. Possible values:\n";
 208         print "                               box, allbox, doublebox (default allbox)\n";
 209         print "man options:\n\n";
 210         print "    -s|--man-section=section   Man page section (default: 1)\n";
 211
 212         exit(0);
 213 }