Changeset d2b2a7 in git for Singular/LIB/tex.lib
- Timestamp:
- May 5, 1998, 1:55:40 PM (26 years ago)
- Branches:
- (u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')
- Children:
- 97f92aa6d280f6022eaae47195ccc02503ccb984
- Parents:
- 4996f5286c7671191ad22e654499fd8b752fe4f0
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/tex.lib
r4996f52 rd2b2a7 1 // $Id: tex.lib,v 1. 5 1998-04-03 22:47:15krueger Exp $1 // $Id: tex.lib,v 1.6 1998-05-05 11:55:39 krueger Exp $ 2 2 // 3 3 // author : Christian Gorzel email: gorzelc@math.uni-muenster.de … … 5 5 /////////////////////////////////////////////////////////////////////////////// 6 6 7 version="$Id: tex.lib,v 1. 5 1998-04-03 22:47:15krueger Exp $";7 version="$Id: tex.lib,v 1.6 1998-05-05 11:55:39 krueger Exp $"; 8 8 info=" 9 9 LIBRARY: tex.lib PROCEDURES FOR TYPESET OF SINGULAROBJECTS IN TEX … … 45 45 46 46 proc closetex(string fname, list #) 47 USAGE: closetex(fname[,style]); fname,style = string47 "USAGE: closetex(fname[,style]); fname,style = string 48 48 RETURN: nothing; writes a LaTeX2e closing line into file fname 49 49 NOTE: style overwrites the default setting latex2e; maybe latex,amstex,tex 50 preceeding ">>" end ending ".tex" may miss in fname;50 preceeding \">>\" end ending \".tex\" may miss in fname; 51 51 overwriting an existing file is not possible 52 52 EXAMPLE: example closetex; shows an example 53 " 53 54 { 54 55 string default = "latex2e"; // may be changed appropriatly (C.G.) … … 81 82 82 83 proc tex(string fname, list #) 83 USAGE: tex(fname[,style]); fname,style = string84 "USAGE: tex(fname[,style]); fname,style = string 84 85 RETURN: nothing; calls latex2e for compiling the file fname 85 86 NOTE: style overwrites the default setting latex2e; maybe latex,amstex,tex 86 ending ".tex" may miss in fname87 ending \".tex\" may miss in fname 87 88 EXAMPLE: example tex; shows an example 89 " 88 90 { 89 91 string default = "latex2e"; // may be changed appropriatly (C.G.) … … 125 127 126 128 proc opentex(string fname, list #) 127 USAGE: opentex(fname[,style]); fname,style = string129 "USAGE: opentex(fname[,style]); fname,style = string 128 130 RETURN: nothing; writes as LaTeX2e header into a new file fname 129 131 NOTE: suffix .tex may miss in fname 130 132 style overwrites the default setting latex2e; may be latex,amstex,tex 131 133 EXAMPLE: example opentex; shows an example 134 " 132 135 { 133 136 int i =1; … … 166 169 167 170 proc texdemo(list #) 168 USAGE: texdemo();171 "USAGE: texdemo(); 169 172 RETURN: nothing; generates automatically a LaTeX2e file called: texlibdemo.tex 170 173 explaining the features of tex.lib and its gloabl variables 171 174 NOTE: this proc takes some minutes 172 175 EXAMPLE: example texdemo; executes the generation 176 " 173 177 { int make_demo = size(#); 174 178 … … 200 204 201 205 proc texfactorize(string fname, poly f, list #) 202 USAGE: opentex(fname,f); fname = string; f = poly206 "USAGE: opentex(fname,f); fname = string; f = poly 203 207 RETURN: string, the poly as as product of its irreducible factors 204 208 in TeX-typesetting if fname == empty string; 205 209 otherwise append this to file fname.tex; return nothing 206 NOTE: preceeding ">>" end ending ".tex" may miss in fname210 NOTE: preceeding \">>\" end ending \".tex\" may miss in fname 207 211 EXAMPLE: example texfactorize; shows an example 212 " 208 213 { 209 214 def @r = basering; … … 272 277 273 278 proc texmap(string fname, def m, def @r1, def @r2, list #) 274 USAGE: texmap(fname,f); fname = string; m = string/map, @r1,@r2 = ring279 "USAGE: texmap(fname,f); fname = string; m = string/map, @r1,@r2 = ring 275 280 RETURN: string, the map m from @r1 to @r2 preeceded by its name if m = string 276 281 in TeX-typesetting if fname == empty string; 277 282 otherwise append this to file fname.tex; return nothing 278 NOTE: preceeding ">>" end ending ".tex" may miss in fname283 NOTE: preceeding \">>\" end ending \".tex\" may miss in fname 279 284 EXAMPLE: example texmap; shows an example 285 " 280 286 { 281 287 int saveDollars= defined(NoDollars); … … 419 425 420 426 proc texname(string fname, string s) 421 USAGE: texname(fname,s); fname,s = string422 RETURN: the string s if fname == the empty string "" ;427 "USAGE: texname(fname,s); fname,s = string 428 RETURN: the string s if fname == the empty string \"\" ; 423 429 otherwise append s to file fname.tex; return nothing 424 NOTE: preceeding ">>" end ending ".tex" may miss in fname;430 NOTE: preceeding \">>\" end ending \".tex\" may miss in fname; 425 431 EXAMPLE: example texname; shows an example 432 " 426 433 { 427 434 string st, extr; … … 495 502 496 503 proc texobj(string fname, list #) 497 USAGE: texobj(fname,l); fname = string,l = list of Singular dataypes504 "USAGE: texobj(fname,l); fname = string,l = list of Singular dataypes 498 505 RETURN: string, the objects in TeX-typesetting if fname == empty string; 499 506 otherwise append this to file fname.tex; return nothing 500 NOTE: preceeding ">>" end ending ".tex" may miss in fname;507 NOTE: preceeding \">>\" end ending \".tex\" may miss in fname; 501 508 EXAMPLE: example texobj; shows an example 509 " 502 510 { 503 511 int i,j,k,nr,nc,linear,Tw,Dollars; … … 759 767 760 768 proc texproc(string fname,string pname) 761 USAGE: opentex(fname,pname); fname,pname = string769 "USAGE: opentex(fname,pname); fname,pname = string 762 770 RETURN: string, the proc in a verbatim environment in TeX-typesetting 763 771 if fname == empty string; 764 772 otherwise append this to file fname.tex; return nothing 765 NOTE: preceeding ">>" end ending ".tex" may miss in fname;773 NOTE: preceeding \">>\" end ending \".tex\" may miss in fname; 766 774 CAUTION: texproc cannot applied on itself correctly 767 775 EXAMPLE: example texproc; shows an example 776 " 768 777 { 769 778 int i,j=1,1; … … 825 834 826 835 proc texring(string fname, def r, list #) 827 USAGE: texring(fname, r[,l]); fname = string; r = ring;836 "USAGE: texring(fname, r[,l]); fname = string; r = ring; 828 837 l=list of strings : controls the symbol for 829 838 coefficint field etc. see example texdemo(); 830 839 RETURN: string, the ring in TeX-typesetting if fname == empty string; 831 840 otherwise append this to file fname.tex; return nothing 832 NOTE: preceeding ">>" end ending ".tex" may miss in fname;841 NOTE: preceeding \">>\" end ending \".tex\" may miss in fname; 833 842 EXAMPLE: example texring; shows an example 843 " 834 844 { 835 845 int i,galT,flag,mipo,nopar,Dollars,TB,TA; … … 1010 1020 1011 1021 proc rmx(string fname) 1012 USAGE: rmx(fname); fname = string1022 "USAGE: rmx(fname); fname = string 1013 1023 RETURN: nothing; removes .log and .aux files associated to file <fname> 1014 removes tex and xdvi file too, if suffix ".tex" or ".dvi" is given1024 removes tex and xdvi file too, if suffix \".tex\" or \".dvi\" is given 1015 1025 NOTE: if fname ends by .dvi or .tex 1016 1026 fname.dvi or fname.dvi and fname.tex will be deleted, too 1017 1027 EXAMPLE: example rmx; shows an example 1028 " 1018 1029 { 1019 1030 int i,suffix= 1,0; … … 1058 1069 1059 1070 proc xdvi(string fname, list #) 1060 USAGE: xdvi(fname[,style]); fname,style = string1071 "USAGE: xdvi(fname[,style]); fname,style = string 1061 1072 RETURN: nothing; displays dvi-file fname.dvi with previewer xdvi 1062 1073 NOTE: ending .dvi may miss in fname 1063 1074 style overwrites the default setting xdvi 1064 1075 EXAMPLE: example xdvi ; shows an example 1076 " 1065 1077 { 1066 1078 int i=1; … … 1331 1343 } 1332 1344 1333 proc parst(string s,int sec) // parse parameter1345 proc parst(string s,int sec)" // parse parameter 1334 1346 // sec parameter to see if in parsp a fraction follows 1347 " 1335 1348 { int i,j =1,-1; 1336 1349 int b,k,jj,mz; // begin and end
Note: See TracChangeset
for help on using the changeset viewer.