Changeset 0cf861 in git
- Timestamp:
- Dec 8, 2000, 4:51:24 PM (22 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- 7971e5f8a84fdd663e8ce0b6a9388e9955fdf565
- Parents:
- 0d7217b1f647254bcffd002e6cfa8fe99ad2efda
- Location:
- doc
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
doc/pl2doc.pl
r0d7217 r0cf861 1 1 #!/usr/local/bin/perl 2 # $Id: pl2doc.pl,v 1.1 6 2000-05-19 14:07:22obachman Exp $2 # $Id: pl2doc.pl,v 1.17 2000-12-08 15:51:24 obachman Exp $ 3 3 ################################################################### 4 4 # Computer Algebra System SINGULAR … … 283 283 next; 284 284 } 285 if ($line =~ /([^\@]|^)\@(code|math){(.*?)}/) 285 my $ref = 'ref'; 286 if ($line =~ /([^\@]|^)\@(code|math|xref|pxref|$ref){(.*?)}/) 286 287 { 287 288 my $l = $line; 288 289 $l =~ s/^\s*//; 289 290 $l =~ s/\s$//; 290 while ($l =~ /([^\@]|^)\@(code|math ){(.*?)}/)291 while ($l =~ /([^\@]|^)\@(code|math|xref|pxref|$ref){(.*?)}/) 291 292 { 292 293 $text .= CleanAscii($`.$1);
Note: See TracChangeset
for help on using the changeset viewer.