home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / MPW / MPW noweb 2.7 / src / perl / notangle < prev    next >
Encoding:
Text File  |  1995-10-04  |  901 b   |  34 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}>"{TempFolder}"noweb.run
  2. "{TempFolder}"noweb.run
  3. Exit
  4.  
  5. #!perl
  6. # Copyright 1991 by Norman Ramsey.  All rights reserved.
  7. # See file COPYRIGHT for more information.
  8.  
  9. $mntopt = "-L";
  10. $markup = "markup";
  11.  
  12. while ($arg = shift @ARGV) {
  13.     if ($arg =~ /^-(ml|m3|awk|perl|icn|icon|make|pascal|c|c\+\+|f77|f90|tex|w\d+)$/) {
  14.                                         # deliberately ignore nountangle args
  15.     } elsif ($arg eq "-t") {
  16.                                         # this is default
  17.     } elsif ($arg =~ /^-t.+/) {
  18.         $markopt    .= " -t"; 
  19.         $opt         .= " $arg";
  20.     } elsif ($arg eq "-filter") {
  21.         $filter     = shift @ARGV;
  22.         $filters     .= " $filter |";
  23.     } elsif ($arg =~ /^-/) {
  24.         $opt         .= " $arg";
  25.     } elsif ($arg eq "-markup") {
  26.         $markup = shift @ARGV;
  27.     } else {
  28.         $args         .= " $arg";
  29.     }
  30. }
  31.  
  32. print "Set Commands \"||LIB||," . $ENV{Commands} ."\"; Export Commands\n";
  33. print "$markup $markopt $args | $filters nt $opt\n";
  34.