- ntg-context - NTG Mailing Lists

Myway on using mathalign
by WN 06 Apr '06

06 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 06 Apr '06

06 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

French punctuation: improvement needed
by Renaud AUBIN 05 Apr '06

05 Apr '06

Hi all, For my french document, I use: \def\activateSomeCharacters{% \defineactivecharacter ! {\,\string!}% \defineactivecharacter ? {\,\string?}% \defineactivecharacter : {\,\string:}% \defineactivecharacter ; {\,\string;}} \activateSomeCharacters \appendtoks\activateSomeCharacters\to\everystarttext in my environment, but there is a problem: If the input is "test:", the result is correct but if the input is "test :" (with a space between test and :) the output space between test and : is too large (I assume a normal space + \,) Is this possible to get this def smarter ? Cheers, Renaud

3 7

Cite module: APA citation proposals
by Johannes Graumann 05 Apr '06

05 Apr '06

Hello, I'm using Tacos cite module with the default APA style. I'm a biochemist and the majority of my cited sources derives from www.pubmed.org, which I import into BibTeX via pybliographic. I have some slight problems with the formating as provided by the database and was wondering whether it's possible to fix them ... 1) Titles from PubMed always end with a '.'. Since the cite module (at least the version with Tetex in Debian unstable) does not check for the presence of a '.', but just appends one, I end up with 2 '.'s after the title when using a unmanipulated *.bib file. Would it be possible to include a check for that into the module? 2) Pybliographic also delivers the article language in a 'language' field and not in the 'lang' field the cite module expects, which terminates compilation with an unmanipulated *.bib file. Would it be possible to make the module more promiscuous in this respect? Thanks for any consideration of these minor, but inconvenient, points, Joh

3 3

Problem with encoding, XML and writetolist...
by Martin Kolařík 05 Apr '06

05 Apr '06

Hi all, I have problem with chars encoding now; I have updated ConTeXt sometimes in January; before the time I was using old (year) version. In this prehistorical version the problem was not present. What is the stuff? The following code generates content with titles without spaces -- accented characters are replaced with \char XXX variant, so during reading TUI line TeX gobbles a space after XXX as a part of <number> syntax rule. Can I do something? With encoding? With XML? Thank you very much, have a nice day, Martin Code: \defineXMLenvironment [chapter] {\defineXMLsave[title]} {\expanded {\chapter\XMLflush{title}}} \starttext \startbuffer <chapter> <title>Ahojá hojč kuna</title> </chapter> \stopbuffer \processXMLbuffer \completecontent[criterium=all] \stoptext

6 22

Re: [NTG-context] Problems with Standalone distribution
by wwl＠musensturm.de 05 Apr '06

05 Apr '06

> Date: Tue, 04 Apr 2006 00:26:12 +0200 > From: Hans Hagen <pragma(a)wxs.nl> > Subject: Re: [NTG-context] ntg-context Digest, Vol 22, Issue 1 > To: mailing list for ConTeXt users <ntg-context(a)ntg.nl> > Message-ID: <4431A104.9000001(a)wxs.nl> > Content-Type: text/plain; charset=UTF-8; format=flowed > > wwl(a)musensturm.de wrote: > >> texexec.ini is not found in 'context\config' > >> I copyed it in 'scripts\context\perl' > >> now it is found. > > > > Is this normal? Or is this a symptome of the problem I am looking > > for? > > > it depends on what system you use; the settinsg default to > tetex/fptex/gwtex so in that case no ini is needed As I said, I work with the standalone distri? And I thought, the binaries are from fptex, right? And if both texexec.ini's are removed: texexec complains: warning: texexec.ini not found, try 'texexec --verbose' (the same with texexec --verbose) > newtexexec.rb (which will replace texexec.pl) has no ini file but > uses > some heuristics to determine what environment it runs in > > > > > >> 'texexec --verbose' tries to compile all the files in the aktuel > >> path. > >> > >> but > >> > >> 'texmfstart texexec.pl --verbose' works ok. > >> > >> same with > >> > >> 'texexec --make --all' doesn't work > >> > >> but > >> > >> 'texmfstart texexec.pl --make --all' works! > >> > good upps? texexec (without parameters) compiles cscite.bat! Why? > on windows: you need to associate the pl suffix to perl > on linux you need to make texexec into a script (suffixless) > > on both you can best use texmfstart to launch the scripts since > that's > upward compatible (and in some respects this call is more clever); > if > needef you can create stubs with texmfstart (see manual) This works! But next Problem: pdfetex can not find pk-fonts. I have written: PKFONTS = .;$TEXMF/fonts/pk// in 'texmf.cnf' font-file lies in texmf-project/fonts/pk/ricoh/local/msl/msl50.pk what else can I do? Wolfgang

2 1

Re: [NTG-context] Metafun - Metapost capacity exceeded
by Thomas Engel 05 Apr '06

05 Apr '06

Hello Hans, this is the message I got after running texexec pro_mcc_a3.tex. As you can see I have increased the memory size for mp. I have attached the two tex-files. Maybe there is a mistake in the mp-code. A pdf-file will be produced, but if you check the output you will see, that one cubicle is missing! Thanks for your help! Thomas TeXExec 5.4.3 - ConTeXt / PRAGMA ADE 1997-2005 metapost : pro_mcc_a3-mpgraph format : metafun This is MetaPost, Version 0.901 (Web2C 7.5.3) (/home/thomas/texmf/web2c/natural.tcx) (pro_mcc_a3-mpgraph.mp [1] [2] [3] [4] [5] [6] [7] [8] [9] ! MetaPost capacity exceeded, sorry [main memory size=2000000]. <recently read> ; l.2277 ...aw he_zehn ((1.75),(5.6), (0.2),(17.5)); 9 output files written: pro_mcc_a3-mpgraph.1 .. pro_mcc_a3-mpgraph.9 Transcript written on pro_mcc_a3-mpgraph.log. error in metapost run : pro_mcc_a3-mpgraph.mp:2277 total run time : 0 seconds sorting and checking : running texutil TeXUtil 9.0.0 - ConTeXt / PRAGMA ADE 1992-2004 action : processing commands, lists and registers option : sorting IJ under Y option : converting high ASCII values input file : pro_mcc_a3.tui output file : pro_mcc_a3.tuo passed commands : 18 remapped keys : 0 register entries : 0 -> 0 entries 0 references synonym entries : 0 -> 0 entries embedded files : 2 total run time : 7 seconds

3 4

Absolute positioning of grafics in ConTeXt
by Johannes Fichtinger 05 Apr '06

05 Apr '06

Hi all, I'm quite new to ConTeXt, but I've been working with LaTeX for several years now. Now I faced a problem which I'm not able to solve in LaTeX which probably can be solved in ConTeXt: I need a possibility to set grafics in a book on exact, absolute positions. Now I found the way for background images, like in the attached example. But obviously, normal text is written above the background image. I need now a possibility like this but for foreground grafics. So, how can I set the position of grafics absolutely in ConTeXt? Thanks, Johannes. My example: -------------------------------------------------------------- \enableregime [il1] \mainlanguage [de] \setuplayout [grid=yes,marking=on,horoffset=2cm,veroffset=2cm] \definepapersize [jo][width=14cm,height=18cm] \setuppapersize [jo][a4] \useexternalfigure[wr][dpm][type=png, width=5cm, height=4cm] \definelayer[wr-layer] \defineoverlay[wr-overlay][\composedlayer{wr-layer}] \setupbackgrounds[page][background={wr-overlay}] \starttext \setlayer[wr-layer][x=-0.1cm,y=-0.1cm]{\externalfigure[wr]} Blablabla \stoptext --------------------------------------------------------------

2 1

XML element strip?
by Johannes Graumann 05 Apr '06

05 Apr '06

Hello, I have a strange question. While working with XML and ConTeXt, I have run into the TeXnic problem of the interpretation of line breaks. What I would prefer to do for code clarity sake are things like the following: <list> <item> Something </item> <item> else </item> </list> This is however screwed up by TeXs line break interpretation, forcing me to format the input like so: <list> <item>Something</item> <item>else</item> </list> The question now is: is there any way to tell context to strip trailing whitespaces/line breaks from XML nodes? Thanks, Joh

2 2

More on XML and citations
by Johannes Graumann 04 Apr '06

04 Apr '06

Hello again, I have a matching rule for cite commands that look as follows: <cite id="hunt:86" opt="authoryear"/> The rule is this (kudoos to Taco): \defineXMLargument [cite] {\expanded{\cite[\XMLpar{cite}{opt}{}][\XMLpar{cite}{id}{}]}} Sometimes I would like to have the '(Hunt et. al., 1986)' produced by above combination to look like '(see e.g. Hunt et. al., 1986)'. Taco pointed out in response to a question to list that I could do that by handing a 'left={(see e.g. }' to the cite command, however I fail to be able to do that. A XML node like this <cite id="hunt:86" opt="authoryear,left={(see e.g.}"/> results on compilation with above rule in the following error: ! Missing \endcsname inserted. <to be read again> \leftargument \XML:ent:tex-leftbrace ...ace \else \leftargument \fi <argument> ...r,left=\getXMLentity {tex-leftbrace} see e.g.\getXMLentity {tex... \expanded ...\long \xdef \@@expanded {\noexpand #1 }\@@expanded \docite ...on [\csname @@pv#2compress\endcsname ]} [ \v!yes =>\bibcitecompre... \XML:ele:cite/ ...}{opt}{}][\XMLpar {cite}{id}{}]} {} l.112 ...nt:86" opt="authoryear,left={see e.g.}"/> ) changed the field dramat... Can anybody help me out with this? Thanks, Joh

2 1