Changeset 0a03bce in git for doc/pl2doc.pl
- Timestamp:
- Jul 23, 1999, 3:58:53 PM (24 years ago)
- Branches:
- (u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')
- Children:
- 860ca828c753022a381780da2d84e66cd6e47314
- Parents:
- 0b4b972fc5519650d1d74cd70a3bad342283c083
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
doc/pl2doc.pl
r0b4b97 r0a03bce 1 1 #!/usr/local/bin/perl 2 # $Id: pl2doc.pl,v 1. 3 1999-07-22 14:51:32obachman Exp $2 # $Id: pl2doc.pl,v 1.4 1999-07-23 13:58:34 obachman Exp $ 3 3 ################################################################### 4 4 # Computer Algebra System SINGULAR … … 9 9 $Usage = <<EOT; 10 10 Usage: 11 $0 [-o out_file -db db_file -no_ex -no_fun ] library_perl_file.doc11 $0 [-o out_file -db db_file -no_ex -no_fun -doc] library_perl_file.doc 12 12 Convert library_perl_file.pl to library_perl_file.doc 13 13 EOT … … 22 22 if (/^-db$/) { $db_file = shift(@ARGV); next;} 23 23 if (/^-no_fun$/) { $no_fun = 1;next;} 24 if (/^-h(elp)?$/) 24 if (/^-h(elp)?$/) { print $Usage; exit;} 25 25 die "Error: Unknown option: $_:$Usage\n"; 26 26 }
Note: See TracChangeset
for help on using the changeset viewer.