home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / lyx21041.zip / XFree86 / lib / X11 / lyx / reLyX / noweb2lyx.cmd < prev    next >
OS/2 REXX Batch file  |  1999-10-04  |  4KB  |  132 lines
  1. extproc perl.exe -S
  2. #!perl
  3. # 
  4. # Copyright (C) 1999 Kayvan A. Sylvan <kayvan@sylvan.com>
  5. # You are free to use and modify this code under the terms of
  6. # the GNU General Public Licence version 2 or later.
  7. #
  8. # Written with assistance from:
  9. #   Edmar Wienskoski Jr. <edmar-w-jr@technologist.com>
  10. #   Amir Karger <karger@post.harvard.edu>
  11. #
  12. # $Id: noweb2lyx.in,v 1.3 1999/05/12 15:11:08 karger Exp $
  13. #
  14. # NOTE: This file was automatically generated from noweb2lyx.lyx using noweb.
  15. #
  16. &usage() if ($#ARGV < 1); # zero or one argument 
  17. if ($ARGV[0] eq "-pre") {
  18.   &usage unless ($#ARGV == 2);
  19.   $input_file = $ARGV[1]; $output_file = $ARGV[2]; $pre_only = 1;
  20. } elsif ($ARGV[0] eq "-post") {
  21.   &usage unless ($#ARGV == 2);
  22.   $input_file = $ARGV[1]; $output_file = $ARGV[2]; $post_only = 1;
  23. } else {
  24.   &usage unless ($#ARGV == 1);
  25.   $input_file = $ARGV[0]; $output_file = $ARGV[1];
  26.   $pre_only = 0; $post_only = 0;
  27. }
  28. sub setup_files {
  29.   my($in, $out) = @_;
  30.   open(INPUT, "<$in") || die "Can not read $in: $!\n";
  31.   open(OUTPUT, ">$out") || die "Can not write $out: $!\n";
  32. }
  33. sub usage() {
  34.   print "Usage: noweb2lyx [-pre | -post] input-file output-file
  35.  
  36. If -pre is specified, only pre-processes the input-file for reLyX.
  37. Similarly, in the case of -post, post-processes reLyX output.
  38. In case of bugs, Email Kayvan Sylvan <kayvan\@sylvan.com>.\n";
  39.   exit;
  40. }
  41. if (!$post_only) {
  42.   if ($pre_only) {
  43.     &setup_files($input_file, $output_file);
  44.   } else {
  45.     $relyx_file = "temp$$";
  46.     &setup_files($input_file, $relyx_file);
  47.   }
  48.   inputline: while(<INPUT>)
  49.   {
  50.     if (/^\s*\<\<.*\>\>=/) { # Beginning of a noweb scrap
  51.       $savedScrap = $_;
  52.       $endLine = "";
  53.       scrapline: while (<INPUT>) {
  54.         last scrapline if /^@\s+/;
  55.         $savedScrap .= $_;
  56.       };
  57.       switch: {
  58.         if (/^@\s+$/) {$savedScrap .= $_; last switch; }
  59.         if (/^@\s+%def.*$/) {$savedScrap .= $_; last switch; }
  60.         if (/^@\s+(.*)$/) {$savedScrap .= "@\n"; $endLine = "$1\n"; }
  61.       }
  62.       print OUTPUT "\\begin{reLyXskip}\n";
  63.       print OUTPUT $savedScrap;
  64.       print OUTPUT "\\end{reLyXskip}\n\n";
  65.       print OUTPUT "$endLine";
  66.     } elsif (/^@\s+(.*)/) { # Beginning of a documentation chunk
  67.       print OUTPUT $1; # We do not need the ``@'' part
  68.     } elsif (/\[\[.+\]\]/) { # noweb quoted code
  69.       s/\[\[.+?\]{2,}/{$&}/g;
  70.       print OUTPUT;
  71.     } else {
  72.       print OUTPUT; # Just let the line pass through
  73.     }
  74.   }
  75.   close(INPUT);
  76.   close(OUTPUT);
  77. }
  78. if ((!$pre_only) && (!$post_only)) {
  79.   open(INPUT, "<$relyx_file") ||
  80.     die "Can not read $relyx_file: $!\n";
  81.   $class = "article"; # default if none found
  82.   parse: while(<INPUT>) {
  83.     if (/\\docu[m]entclass{(.*)}/) {
  84.       $class = $1;
  85.       last parse;
  86.     }
  87.   }
  88.   close(INPUT);
  89.   $doc_class = "literate-" . $class;
  90.   die "reLyX.cmd returned non-zero: $!\n"
  91.     if (system("reLyX.cmd -c $doc_class $relyx_file"));
  92. }
  93. if (!$pre_only) {
  94.   if ($post_only) {
  95.     &setup_files("$input_file", "$output_file");
  96.   } else {
  97.     &setup_files("$relyx_file.lyx", "$output_file");
  98.   }
  99.   line: while(<INPUT>)
  100.   {
  101.     if (/\\latex latex/) { # Beginning of some latex code
  102.       if (($line = <INPUT>) =~ /^\s*<</) { # code scrap
  103.         $savedScrap = "\\layout Scrap\n\n$line";
  104.         codeline: while (<INPUT>) {
  105.           $savedScrap .= $_;
  106.           last codeline if /^@\s+/;
  107.         };
  108.         print OUTPUT $savedScrap;
  109.         slurp: while (<INPUT>) {
  110.           last slurp if /\\latex /;
  111.           next slurp if /\\newline/;
  112.           next slurp if /^\s*$/;
  113.           warn "confused by line: $_";
  114.         }
  115.       } else {
  116.         # print the \latex latex line + next line
  117.         print OUTPUT "$_$line";
  118.       }
  119.       next line;
  120.     }
  121.     if (/\[\[.+\]\]/) { # special code for [[var]]
  122.       s/\[\[.+?\]{2,}/\n\\latex latex\n$&\n\\latex default\n/g;
  123.       print OUTPUT;
  124.       next line;
  125.     }
  126.     print OUTPUT; # default
  127.   } 
  128.   close(INPUT);
  129.   close(OUTPUT);
  130. }
  131. system("rm -f $relyx_file*") unless ($post_only || $pre_only);
  132.