Changeset caf1e0 in git
- Timestamp:
- Jul 25, 2007, 6:10:45 PM (16 years ago)
- Branches:
- (u'spielwiese', 'd1ec153efbb92b07a03c829a7f893fe854f169d2')
- Children:
- b8ba2a0319ea6796d313e81d7db6d8596f8b7972
- Parents:
- e08bcedfecee582226ad89431962a065d11f8ee5
- Location:
- doc
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
doc/doc2tex.pl
re08bce rcaf1e0 1 1 #!/usr/local/bin/perl 2 # $Id: doc2tex.pl,v 1.2 8 2005-07-04 14:50:16Singular Exp $2 # $Id: doc2tex.pl,v 1.29 2007-07-25 16:10:45 Singular Exp $ 3 3 ################################################################### 4 4 # Computer Algebra System SINGULAR … … 40 40 # 41 41 #### 42 # @c lib libname.lib[:proc] [no_ex, no_fun, (\w*)section]42 # @c lib libname.lib[:proc] [no_ex, no_fun, Fun, (\w*)section] 43 43 # --> replaced by @include $texfile where 44 44 # $texfile = $subdir/libname_lib[_noFun,_noEx].tex … … 47 47 # --> if [:proc] is given, then includes only of respective 48 48 # proc body 49 # --> Fun overwrites global no_fun 49 50 # --> if (\w*)section is given, replaces @subsubsection by @$1section 50 51 # and pastes in content of tex file directly … … 518 519 ################################################################### 519 520 # 520 # @c lib libname.lib[:proc] [no_ex, no_fun, (\w*)section]521 # @c lib libname.lib[:proc] [no_ex, no_fun, Fun, (\w*)section] 521 522 # --> replaced by @include $texfile where 522 523 # $texfile = $subdir/libname_lib[_noFun,_noEx].tex … … 525 526 # --> if [:proc] is given, then includes only of respective 526 527 # proc body 528 # --> Fun overwrites global no_fun 527 529 # --> if (\w*)section is given, replaces @subsubsection by @$1section 528 530 # and pastes in content of tex file directly … … 546 548 $proc = $1 if (/^:(.*?) /); 547 549 $n_fun = 1 if ($no_fun || /no_fun/); 550 $n_fun = 0 if (/Fun/); 548 551 $n_ex = 1 if ($no_ex || /no_ex/ || (/unix_only/ && $Win32)); 549 552 $section = $1 if /(\w*)section/; … … 604 607 if ($found) 605 608 { 606 Error("no end content found for lib proc docu for $lib.lib:$proc $doc_file:$line \n")609 Error("no end content found for lib proc docu for $lib.lib:$proc $doc_file:$line in $tex_file\n") 607 610 unless (/c ---end content $proc---/); 608 611 print TEX "\@c generated lib proc docu for $lib.lib:$proc $doc_file:$line \n"; … … 610 613 else 611 614 { 612 Error("did not find lib proc docu for $lib.lib:$proc $doc_file:$line \n");615 Error("did not find lib proc docu for $lib.lib:$proc $doc_file:$line in $tex_file\n"); 613 616 } 614 617 }
Note: See TracChangeset
for help on using the changeset viewer.