April 2006 - ntg-context - NTG Mailing Lists

placefigure: mysterious whitespace with 'rightmargin' figures
by Sanjoy Mahajan 06 Apr '06

06 Apr '06

I tested the following on the context live. Both figures are in the margin, but the first and second paragraphs have a large gap between them with figure 1 in the margin, beside the gap. My first theory was that the margin figure requires the whitespace (unlikely, I know). But that theory didn't last long: If I restore the commented-out '\input knuth' line, then the layout has no gaps. ====================================================================== \useMPlibrary[dum] \starttext \input tufte \placefigure[rightmargin]{first}{\externalfigure[dummy]} \par %\input knuth \placefigure[rightmargin]{third}{\externalfigure[dummy]} \par \input knuth \stoptext ====================================================================== -Sanjoy `A society of sheep must in time beget a government of wolves.' - Bertrand de Jouvenal

3 3

Re: [NTG-context] More on XML and citations
by Johannes Graumann 06 Apr '06

06 Apr '06

Hans Hagen wrote: > however, best is not to mix tex this way with xml Hmmmm ... will heed that advice then ... as a remedy: Taco, how would I define a new 'cite' alternative along the lines of 'authoryear'/'authoryears' that would result in 'Author et. al., 2004'? Thanks for any hint, Joh

3 6

ConTeXt Errors
by Browder, Tom 06 Apr '06

06 Apr '06

I just tried context for the first time on a Linux Fedora Core 4 PC (after downloading and installing the latest cont-tmf.zip over the original installation in my default /usr/share/texmf directory; I then ran 'fmtutil --all'). My simple file, samplecontext.tex, reads: \starttext a test \stoptext I then tried: % texexec samplecontext and get the following errors ==>: TeXExec 5.4.3 - ConTeXt / PRAGMA ADE 1997-2005 fixing texformat path : .:{!!/usr/local/people/tbrowde/.texmf-config,!!/usr/local/people/tbrowde /.texmf-var,/usr/local/people/tbrowde/texmf,!!/usr/share/texmf-config,!! /usr/share/texmf-var,!!/usr/local/share/texmf,!!/usr/share/texmf,!!/usr/ share/texmf-dist}/web2c/{$engine,} fixing engine variable : pdfetex executable : pdfetex format : cont-en inputfile : samplecontext output : standard interface : en current mode : none TeX run : 1 This is pdfeTeX, Version 3.141592-1.21a-2.2 (Web2C 7.5.4) (/usr/share/texmf/web2c/natural.tcx) entering extended mode (./samplecontext.tex ConTeXt ver: 2005.01.31 fmt: 2006.1.27 int: english mes: english language : language en is active <protectionstate 0> system : cont-new loaded (/usr/share/texmf/tex/context/base/cont-new.tex ! Undefined control sequence. l.14 \newcontextversion {2006.03.25 13:21} ? systems : beware: some patches loaded from cont-new.tex color : palette rollover is available system (E-TEX) : [line 1231] system (E-TEX) : [line 1286] ) system : cont-old loaded (/usr/share/texmf/tex/context/base/cont-old.tex loading : Context Old Macros ) system : cont-fil loaded (/usr/share/texmf/tex/context/base/cont-fil.tex loading : Context File Synonyms ) system : cont-sys.rme loaded (/usr/share/texmf/tex/context/user/cont-sys.rme (/usr/share/texmf/tex/context/base/type-syn.tex ! Undefined control sequence. l.14 \starttypescriptcollection [synonyms] ? ! Undefined control sequence. l.864 \stoptypescriptcollection ? ) (/usr/share/texmf/tex/context/base/type-enc.tex ! Undefined control sequence. l.27 \starttypescriptcollection [encodings] ? ! Undefined control sequence. l.358 \definetypescriptprefix [c:t2a] [la] ? ! Undefined control sequence. l.359 \definetypescriptprefix [c:t2b] [lb] ? ! Undefined control sequence. l.360 \definetypescriptprefix [c:t2c] [lc] ? ! Undefined control sequence. l.361 \definetypescriptprefix [c:x2] [rx] ? ! Undefined control sequence. l.1108 \stoptypescriptcollection ? ) (/usr/share/texmf/tex/context/base/type-dis.tex) (/usr/share/texmf/tex/context/base/type-siz.tex ! Undefined control sequence. l.16 \starttypescriptcollection [size] ? ! Undefined control sequence. l.847 \stoptypescriptcollection ? ) (/usr/share/texmf/tex/context/base/type-map.tex ! Undefined control sequence. l.14 \starttypescriptcollection [map files] ? ! Undefined control sequence. l.193 \stoptypescriptcollection ? ) (/usr/share/texmf/tex/context/base/type-spe.tex ! Undefined control sequence. l.17 \starttypescriptcollection [special features] ? ! Undefined control sequence. l.47 \stoptypescriptcollection ? ) (/usr/share/texmf/tex/context/base/type-exa.tex ! Undefined control sequence. l.16 \starttypescriptcollection [examples] ? ! Undefined control sequence. l.252 \stoptypescriptcollection ? ) (/usr/share/texmf/tex/context/base/type-akb.tex ! Undefined control sequence. l.32 \starttypescriptcollection [adobe kb mappings] ? ! Undefined control sequence. l.251 \stoptypescriptcollection ? )) bodyfont : 12pt rm is loaded language : patterns en->default:default->1->2:2 de->texnansi:texnansi->3 ->2:2 de->ec:ec->4->2:2 fr->texnansi:texnansi->5->2:2 fr->ec:ec->6->2:2 es->def ault:default->7->2:2 it->texnansi:texnansi->8->2:2 it->ec:ec->9->2:2 nl->texnan si:texnansi->10->2:2 nl->ec:ec->11->2:2 loaded specials : tex,postscript,rokicki loaded system : samplecontext.top loaded (./samplecontext.top) fonts : using map file: original-public-lm.map fonts : using map file: original-ams-euler.map fonts : using map file: original-ams-base.map fonts : using map file: t5-base.map fonts : using map file: ec-base.map fonts : using map file: 8r-base.map fonts : using map file: ec-public-lm.map fonts : using map file: original-base.map systems : begin file samplecontext at line 1 ! Undefined control sequence. <inserted text> \restoreendofline \let \checkedutility \docheckedutility \dofinaloutput ...output \the \everybeforeshipout \ifspecialbasedsettings \m... \finaloutput ...EAEAEA \dofinaloutput \fi \fi #1#2 \resetselectiepagina \verh... \sidefloatoutput ...e \else \finalsidefloatoutput \global \sidefloatvsize \n... \dodonormaloutput ...lty \the \OTRcommand \output \outputmessage -{normal}\o... \invokeoutputroutine ...enalty }\dodonormaloutput \outputmessage -{trying}\o... ... l.5 \stoptext ? [1.1] systems : end file samplecontext at line 5 ) Output written on samplecontext.dvi (1 page, 304 bytes). Transcript written on samplecontext.log. return code : 256 run time : 13 seconds total run time : 13 seconds <== EOF It looks like a bad installation. Any ideas? Thanks for your help. -Tom Tom Browder Niceville, Florida USA

4 4

ConTeXt analogue to \usepackage{units}
by Johannes Graumann 06 Apr '06

06 Apr '06

Hello, Is there a ConTeXt analogue to the LaTeX package 'units', used for typesetting scientific units? I'm especially interested in the 'unitfrac' functionality of that package ... Thanks, Joh

4 3

Re: [NTG-context] ConTeXt Errors
by Browder, Tom 06 Apr '06

06 Apr '06

> -----Original Message----- > From: ntg-context-bounces(a)ntg.nl > [mailto:ntg-context-bounces@ntg.nl] On Behalf Of Browder, Tom > Sent: Thursday, April 06, 2006 12:37 PM > To: ntg-context(a)ntg.nl > Subject: [NTG-context] ConTeXt Errors ... > Core 4 PC (after downloading and installing the latest > cont-tmf.zip over the original installation in my default I forgot to say I used the command 'unzip -a cont-tmf.zip'. -Tom

1 0

beta
by Hans Hagen 06 Apr '06

06 Apr '06

Hi, I'm uploading a beta that may work better with xml and special encodings ... \enableregime[cp1250] \mainlanguage[cz] \starttext \title{Žluouècí konì úpí} \placelist[chapter][criterium=all] \startbuffer <chapter> <title>Žluouècí konì úpí</title> </chapter> \stopbuffer \defineXMLenvironment [chapter] {\defineXMLsave[title]} {\expanded{\chapter{\XMLflush{title}}}} \processXMLbuffer \setuphead[chapter][expansion=yes] \defineXMLenvironment [chapter] {\defineXMLsave[title]} {\chapter{\XMLflush{title}}} \processXMLbuffer \page \index{Žluouècí konì úpí} \placeregister[index] \stoptext ... i'd like users of code pages and languages that use special characters to make test files for the test suite (hosted at the gforce server, see earlier mails) once we have a clear picture of what to expect, i can 'make things better' (cleaner -) also, since we will switch to newtexexec (becoming texexec then) soon, sorting etc will be taken care of there (i did some tests and it seems to work ok) if this beta works ok (please test today -) we can go current Hans -- ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com | www.pragma-pod.nl -----------------------------------------------------------------

2 2

Re: [NTG-context] Problem with encoding, XML and writetolist...
by Martin Kolařík 06 Apr '06

06 Apr '06

Hi Hans and Vit, I've attached pdf and tex made with "texexec 8bit.tex" using the last beta (with cp1250 regime). The version chapterB is what I am using now, chapterA version is straightforward but not functional. >From this my ideas from last mail came -- when I am expanding \XMLflush exactly and controlled, result is OK (the expansion stops before active characters start to expand. IMHO, the solution on character level is something different (although it works :-); yes, I did not study Vit's problems from year before. I never had a problems with simple TeX (\chapter{čřžý}), only with XML :-), so for me it would be sufficient solve XML level. Of course, if it is stuff of other level, it cannot be solved in XML. Thanks, Martin -----Original Message----- From: ntg-context-bounces(a)ntg.nl [mailto:ntg-context-bounces@ntg.nl]On Behalf Of Hans Hagen Sent: Wednesday, April 05, 2006 1:03 PM To: mailing list for ConTeXt users Subject: Re: [NTG-context] Problem with encoding, XML and writetolist... Vit Zyka wrote: > Martin Kolařík wrote: > >> Hi Hans, >> >> I've analyzed the situation using different combinations of regimes and encodings, including switching off handling (\donothandleactivecharacter) and it seems to me, that every text with chars > 127, which is fully expanded (as in 8bit.tex), must cause difficulties, because TOC entry read back from TUO is scanned independently and thus spaces are gobbled. >> > > Hi Martin, > > we have discussed this problem a year ago. In that time I solve it just > writing '{}' in each title where was needed, like > > \chapter{Dobré{} ráno} > > Now I have cooked an automatic solution. It is not optimal (effective) > but working. The only needs is to redefine > > \def\numcharacter#1{\char#1{}} > \let\dochar\numcharacter > > and to load appropriate encoding file once more. Since it is banned a > new macro \reuseencoding was introduce: > > For Hans: > It would be nice if this feature was enabled in a standard distro. > Perhaps you will find some more optimal solution... > > ------------------------------------------------------- > \unprotected > \def\doreuseencoding#1% > {\letvalue{\c!file\f!encodingprefix#1}\empty > \makeshortfilename[\f!encodingprefix#1]% > \startreadingfile > \readsysfile\shortfilename > {\showmessage\m!encodings2{#1}} > {\showmessage\m!encodings3{#1}}% > \stopreadingfile} > \def\reuseencoding[#1]% > {\processcommalist[#1]\doreuseencoding} > > > \def\numcharacter#1{\char#1{}} > \let\dochar\numcharacter > > \reuseencoding[ec] > > \enableregime[latin2] > > \starttext > \writetolist[chapter]{1}{Dobré ráno} > \expanded{\writetolist[chapter]{2}{Dobré odpoledne}} > > \placecontent > \stoptext > the {} may break liguature building (and maybe kerning) ... taco knows ... I got a brainwave ... \enableregime[latin2] \starttext \def\numcharacter#1{\rawcharacter{#1}}% \let\dochar\numcharacter \writetolist[chapter]{1}{Dobré ráno} \expanded{\writetolist[chapter]{2}{Dobré odpoledne}} \placelist[chapter][criterium=text] test \typefile{test.tuo} \stoptext this can be sped up (a bit) with % \dostepwiserecurse{0}{255}{1} % {\setevalue{rchr:\recurselevel}{\rawcharacter\recurselevel}} % \def\rawcharacter#1{\getvalue{rchr:#1}} this means that all chars are round tripped to themselves in output files! raw characters are not active and they are therefore equivalent to \char it's enough then to put \def\numcharacter#1{\rawcharacter{#1}}% \let\dochar\numcharacter into cont-new.tex (i will discuss this in more detail with taco later) Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com | www.pragma-pod.nl ----------------------------------------------------------------- _______________________________________________ ntg-context mailing list ntg-context(a)ntg.nl http://www.ntg.nl/mailman/listinfo/ntg-context

2 1

Extending the black circled numbers
by nico 06 Apr '06

06 Apr '06

Hello, For those who know, I'm trying to have the DocBook callout mechanism with context. Basically, there are some numbers in lines of verbatim text, and below the verbatim text the numbers are used to explain the portion of the text (kind of footnote). Typically the numbers are rendered white in black circle. I could use the Dingbats numbers, but it is limited to 10, so that I emulated them with the following code to be able to go up to 99. The questions I have: - Is it the right way to do it in context (do I really need metafont? Simpler, smarter method?) - What should I do to make them as anchors, so that it can be cross-referenced (I mean, one can click on a hot spot that jump to the number in the verbatim text). Thanks for any hint, \newdimen \cowidth % Maximum size of the circle fits for number 99 \def\evalwidth% {\bgroup% \setbox0\hbox{\small\bf{\ss 99}}% \global\cowidth=1.2\wd0% \egroup} % Background black circle \startuniqueMPgraphic{CoCircle} fill fullcircle scaled \overlaywidth withcolor black ; \stopuniqueMPgraphic \defineoverlay[cocircle][\uniqueMPgraphic{CoCircle}] % Display the black circled number \def\conum#1% {\evalwidth% \framed[background=cocircle,strut=no,frame=off, width=\the\cowidth,height=\the\cowidth,offset=overlay] {\color[white]{\small\bf{\ss #1}}}} \starttext \dorecurse{99}{\conum{\recurselevel}, } \stoptext Regards, BG

3 14

Myway on using mathalign
by WN 05 Apr '06

05 Apr '06

Hi Aditya, I read you MyWay document on using \startalign and I was interested in section 4.2 numbering subformula's Everything works fine as stated in your nice document. One thing I want to do with a set of subformula's is to reference the main formula but still subnumbering the equations like \starttext \incrementnumber[formula] \placesubformula \startformula \startalign \NC div \vec{E} \NC = \epsilon_{0}^{-1} \rho \NR[eqn1:A][a] \NC rot \vec{E} \NC = 0 \NR \NC div \vec{B} \NC = 0 \NR[eqn1:B][b] \NC rot \vec{B} \NC = \mu_{0} \vec{j} \NR \stopalign \stopformula See *\in[eqn1] *for the static Maxwell equations, where we are going to examine \in[eqn1:A] a bit further .... \stoptext Hope you can help Thanks Wim

2 3

Re: [NTG-context] [Fwd: Re: Miktex, Metapost and \loadfontfilesoncetrue]
by WN 05 Apr '06

05 Apr '06

taco(a)elvenkind.com wrote: > > > Hi Wim, > > Let me know if you need perl help, ok? > > Taco Hi Taco, I am doing regular expression (regex) and I am trying to process my Latex files (a lot) to automate the translation to Context primitives. I am partially successfully but it is a complex job, so some of the Latex/Tex primitives I convert by hand. But thanks for your kind offer. Attached is my perl script, but don't expect a lot from it or clean or optimized code, I wrote it in 2 hours. Feel free to share it with anyone, if you think others may benefit. Kind regards Wim # # Author : Wim Neimeijer, The Netherlands # # File : convert.pl # # Date : 25 March 2006 # # Purpose : Process a Latex script and try to convert # : my Latex commands into Context one's, # # Coding : no standards # # Level : N/A # # Warning : Use at your own risk, certainly not full proof # : and quit minimum in its workings, # # #!/usr/bin/perl use File::Basename; if ( $#ARGV eq -1){ $wildcards = "*.tex"; } if ( $#ARGV ge 0 ){ foreach $b (@ARGV){ $wildcards = $wildcards . " " . $b; } } @pstfiles= glob $wildcards; for $a (@pstfiles){ ($base,$dir,$ext) = fileparse($a); @part = split '\.', $base; $newfile = $part[0]; $sourcefile = $a; open(SOURCE, "<" ,$sourcefile) or die "$0 - cannot open $sourcefile"; $tmpfile = "tmp.log"; open(TMPFILE, ">" ,$tmpfile) or die "$0 - cannot open $tmpfile"; @linesa = <SOURCE>; # remove comments first @foo = grep(!/^\%/, @linesa); my @newline; $i = 0; $currentline = 0; for $b (@foo){ chomp($b); chomp($foo[$i]); # replace chapter{} by chapter[]{} if ($foo[$i] =~ /^\\chapter\{/){ if ($foo[$i+1] =~ /^\\label\{/){ $startbrace = index($foo[$i+1],"\{"); $endbrace = index($foo[$i+1],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) { $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1); $b =~ s/\\chapter\{/\\chapter[$s]\{/; push @newline, $b; delete $foo[$i+1]; } } else { $b =~ s/\\chapter\{/\\chapter[]\{/; push @newline, $b; } } elsif ($foo[$i] =~ /^\\section\{/){ if ($foo[$i+1] =~ /^\\label\{/){ $startbrace = index($foo[$i+1],"\{"); $endbrace = index($foo[$i+1],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) { $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1); $b =~ s/\\section\{/\\section[$s]\{/; push @newline, $b; delete $foo[$i+1]; } } else { $b[$i] =~ s/\\section\{/\\section[]\{/; push @newline, $b; } } elsif ($foo[$i] =~ /^\\begin{equation}/) { if ($foo[$i+1] =~ /^\\label\{/){ $startbrace = index($foo[$i+1],"\{"); $endbrace = index($foo[$i+1],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) { $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1); $b =~ s/\\begin{equation}/\\placeformula[$s]/; push @newline, $b; push @newline , "\\startformula"; delete $foo[$i+1]; } } else { $b =~ s/\\begin{equation}/\\placeformula[]/; push @newline, $b; push @newline, "\\startformula"; } } elsif ($foo[$i] =~ /^\\begin{align\*}/) { push @newline, "\\startformula"; push @newline, "\\startalign[n=3]"; } elsif ($foo[$i] =~ /^\\begin{equation\*}/) { push @newline, "\\startformula"; } elsif ($foo[$i] =~ /^\\begin{eqnarray}/){ if ($foo[$i+1] =~ /^\\label\{/){ $startbrace = index($foo[$i+1],"\{"); $endbrace = index($foo[$i+1],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) { $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1); $b =~ s/^\\begin{eqnarray}/\\placeformula[$s]/; push @newline, $b; push @newline, "\\startformula"; push @newline, "\\startalign[n=3]"; delete $foo[$i+1]; } } else { $b =~ s/^\\begin{eqnarray}/\\placeformula[]/; push @newline, $b; push @newline, "\\startformula"; push @newline, "\\startalign[n=3]"; } } elsif ($foo[$i] =~ /^\\begin{eqnarray\*}/) { push @newline, "\\startformula"; push @newline, "\\startalign[n=3]"; } elsif ($foo[$i] =~ /^\\end{align\*}/) { push @newline,"\\stopalign"; push @newline,"\\stopformula"; } elsif ($foo[$i] =~ /^\\end{align}/) { push @newline,"\\stopalign"; push @newline,"\\stopformula"; } elsif ($foo[$i] =~ /^\\end{eqnarray\*}/) { push @newline,"\\stopalign"; push @newline,"\\stopformula"; } elsif ($foo[$i] =~ /^\\end{eqnarray}/) { push @newline,"\\stopalign"; push @newline,"\\stopformula"; } elsif ( $foo[$i] =~/^\\end{equation}/){ push @newline, "\\stopformula"; } elsif ($foo[$i] =~/^\\end{equation\*\}/){ push @newline,"\\stopformula"; } elsif ($foo[$i] =~ /^\\begin{align}/){ if ($foo[$i+1] =~ /^\\label\{/){ $startbrace = index($foo[$i+1],"\{"); $endbrace = index($foo[$i+1],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) { $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1); $b =~ s/^\\begin{align}/\\placeformula[$s]/; push @newline, $b; push @newline, "\\startformula"; push @newline, "\\startalign[n=3]"; delete $foo[$i+1]; } } else { $b =~ s/^\\begin{align}/\\placeformula[]/; push @newline, $b; push @newline, "\\startformula"; push @newline, "\\startalign[n=3]"; } } elsif ($foo[$i] =~ /^\\begin{figure}/){ if ($foo[$i+4] =~ /^\\end{figure}/) { $startbrace = index($foo[$i+3],"\{"); $endbrace = index($foo[$i+3],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+3]))) { $s = substr($foo[$i+3],$startbrace+1,$endbrace - $startbrace - 1); $b = "\\myfigure{}{$s}"; } $startbrace = index($foo[$i+2],"\{"); $endbrace = index($foo[$i+2],"\}"); if (($startbrace >= 0) and ($endbrace <= length($foo[$i+2]))) { $s = substr($foo[$i+2],$startbrace+1,$endbrace - $startbrace - 1); $b = $b . "{$s}"; } push @newline, $b; delete $foo[$i]; delete $foo[$i+1]; delete $foo[$i+2]; delete $foo[$i+3]; delete $foo[$i+4]; } } elsif ($foo[$i] =~ /\\begin{enumerate}/){ push @newline,"\\startitemize[n][stopper=)]"; } elsif ($foo[$i] =~ /\\end{enumerate}/){ push @newline,"\\stopitemize"; } elsif ($foo[$i] =~ /\\begin{itemize}/){ push @newline,"\\startitemize[a]"; } elsif ($foo[$i] =~ /\\end{itemize}/){ push @newline,"\\stopitemize"; } elsif ($foo[$i] =~ /(\\ref\{.*?eqn.*?\})/ ){ # line contains one or more \ref # split line into words and find all the ref's @words = split / / , $foo[$i]; my $line; foreach $aword (@words){ if ($aword =~ /(\\ref\{.*?eqn.*?\})/ ){ $aword =~ s/\\ref/\\informula/; $aword =~ s/\{/\[/; $aword =~ s/\}/\]/; $line = $line . " " . $aword; } else { $line = $line . " " . $aword; } } if ($line =~ /^\s/){ $line =~ s/^\s//; } push @newline, $line; } elsif ($foo[$i] =~ /supacc/m){ my $line; $line = $foo[$i]; print TMPFILE "original line = $line\n"; $line =~ s/\\supacc\{(\B.+?\B)\}/$1\{\}'/gm; $line =~ s/\\supacc\{(.+?)\}/$1\{\}'/gm; print TMPFILE "changed line = $line\n"; push @newline, $line; } elsif ($foo[$i] =~ /^\\begin{/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^(\\end\{|\\end)/i){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\\renewcommand/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\\label\{/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\\centering/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\{/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\}/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\\rput/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\\caption/){ push @newline, "\%" . $foo[$i]; } elsif ($foo[$i] =~ /^\\ps/){ push @newline, "\%" . $foo[$i]; } else { push @newline, $b; } $i = $i + 1; $currentline = $currentline + 1; } for $b (@newline){ if ($b !~ /^$/){ print $b . "\n"; } } close(SOURCE); close(TMPFILE); }

1 0