summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--scripts/context/ruby/base/kpsefast.rb10
-rw-r--r--scripts/context/ruby/base/tex.rb8
-rw-r--r--scripts/context/ruby/texexec.rb5
-rw-r--r--scripts/context/ruby/texmfstart.rb10
-rw-r--r--tex/context/base/cont-new.tex93
-rw-r--r--tex/context/base/context.tex2
-rw-r--r--tex/context/base/core-itm.tex14
-rw-r--r--tex/context/base/core-sec.tex18
-rw-r--r--tex/context/base/core-sys.tex32
-rw-r--r--tex/context/base/mult-con.tex4
-rw-r--r--tex/context/base/page-flt.tex9
-rw-r--r--tex/context/base/sort-lan.tex55
-rw-r--r--tex/context/base/supp-ran.tex27
-rw-r--r--tex/context/interface/keys-cz.xml3
-rw-r--r--tex/context/interface/keys-de.xml3
-rw-r--r--tex/context/interface/keys-en.xml3
-rw-r--r--tex/context/interface/keys-fr.xml3
-rw-r--r--tex/context/interface/keys-it.xml3
-rw-r--r--tex/context/interface/keys-nl.xml3
-rw-r--r--tex/context/interface/keys-ro.xml3
20 files changed, 222 insertions, 86 deletions
diff --git a/scripts/context/ruby/base/kpsefast.rb b/scripts/context/ruby/base/kpsefast.rb
index 49f58ae30..20c07c70a 100644
--- a/scripts/context/ruby/base/kpsefast.rb
+++ b/scripts/context/ruby/base/kpsefast.rb
@@ -97,9 +97,13 @@ module KpseUtil
loop do
busy = false
filenames.collect! do |f|
- f.gsub(/\$([a-zA-Z0-9\_\-]*)/o) do
- busy = true
- ENV[$1] || ("$#{$1}")
+ f.gsub(/\$([a-zA-Z0-9\_\-]+)/o) do
+ if (! ENV[$1]) || (ENV[$1] == $1) then
+ "$#{$1}"
+ else
+ busy = true
+ ENV[$1]
+ end
end
end
break unless busy
diff --git a/scripts/context/ruby/base/tex.rb b/scripts/context/ruby/base/tex.rb
index dc1362e90..61d857d19 100644
--- a/scripts/context/ruby/base/tex.rb
+++ b/scripts/context/ruby/base/tex.rb
@@ -142,7 +142,7 @@ class TEX
# @@runoptions['xetex'] = ['--output-driver \\\"-d 4 -V 5\\\"'] # we need the pos pass
@@runoptions['xetex'] = ['--no-pdf'] # from now on we assume (x)dvipdfmx to be used
- @@runoptions['luatex'] = ['--progname=pdftex']
+ # @@runoptions['luatex'] = ['--progname=pdftex']
@@booleanvars = [
'batchmode', 'nonstopmode', 'fast', 'fastdisabled', 'silentmode', 'final',
@@ -236,7 +236,7 @@ class TEX
setvariable('engine', 'standard') # replaced by tex/mpsengine
setvariable('backend', 'pdftex')
setvariable('runs', '8')
- setvariable('randomseed', rand(1440).to_s)
+ setvariable('randomseed', rand(1440).to_s) # we want the same seed for one run
# files
setvariable('files', [])
# defaults
@@ -710,6 +710,7 @@ class TEX
@@preamblekeys = [
['tex','texengine'],
+ ['engine','texengine'],
['program','texengine'],
['translate','tcxfilter'],
['tcx','tcxfilter'],
@@ -1086,6 +1087,7 @@ class TEX
opt << "\\setupenv[#{str}]\n"
end
if (str = getvariable('randomseed')) && ! str.empty? then
+ report("using randomseed #{str}")
opt << "\\setupsystem[\\c!random=#{str}]\n"
end
if (str = getvariable('input')) && ! str.empty? then
@@ -1110,7 +1112,7 @@ class TEX
pagelist << page
end
end
- opt << "\\def\\pagestoshipout\{pagelist.join(',')\}\n";
+ opt << "\\def\\pagestoshipout\{#{pagelist.join(',')}\}\n";
end
end
opt << "\\protect\n";
diff --git a/scripts/context/ruby/texexec.rb b/scripts/context/ruby/texexec.rb
index 4194874e9..b74b6c793 100644
--- a/scripts/context/ruby/texexec.rb
+++ b/scripts/context/ruby/texexec.rb
@@ -473,10 +473,10 @@ class Commands
job.setvariable(k,@commandline.option(k))
end
job.stringvars.each do |k|
- job.setvariable(k,@commandline.option(k))
+ job.setvariable(k,@commandline.option(k)) unless @commandline.option(k).empty?
end
job.standardvars.each do |k|
- job.setvariable(k,@commandline.option(k))
+ job.setvariable(k,@commandline.option(k)) unless @commandline.option(k).empty?
end
job.knownvars.each do |k|
job.setvariable(k,@commandline.option(k)) unless @commandline.option(k).empty?
@@ -649,6 +649,7 @@ end
commandline.registerflag('pdf')
commandline.registerflag('pdftex')
commandline.registerflag('pdfetex')
+commandline.registerflag('luatex')
commandline.registerflag('dvipdfmx')
commandline.registerflag('dvipdfm')
diff --git a/scripts/context/ruby/texmfstart.rb b/scripts/context/ruby/texmfstart.rb
index 6cb5d5ccb..e1d688f67 100644
--- a/scripts/context/ruby/texmfstart.rb
+++ b/scripts/context/ruby/texmfstart.rb
@@ -262,9 +262,13 @@ module KpseUtil
loop do
busy = false
filenames.collect! do |f|
- f.gsub(/\$([a-zA-Z0-9\_\-]*)/o) do
- busy = true
- ENV[$1] || ("$#{$1}")
+ f.gsub(/\$([a-zA-Z0-9\_\-]+)/o) do
+ if (! ENV[$1]) || (ENV[$1] == $1) then
+ "$#{$1}"
+ else
+ busy = true
+ ENV[$1]
+ end
end
end
break unless busy
diff --git a/tex/context/base/cont-new.tex b/tex/context/base/cont-new.tex
index 83b1c647e..8cd1c6975 100644
--- a/tex/context/base/cont-new.tex
+++ b/tex/context/base/cont-new.tex
@@ -11,7 +11,7 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
-\newcontextversion{2006.05.23 16:32}
+\newcontextversion{2006.05.28 13:28}
%D This file is loaded at runtime, thereby providing an
%D excellent place for hacks, patches, extensions and new
@@ -26,6 +26,61 @@
\writestatus{\m!systems}{beware: some patches loaded from cont-new.tex}
+%D A nice example of a plugin:
+%D
+%D \startbuffer
+%D \startitemize[a,random,packed]
+%D \startitem first \stopitem \startitem second \stopitem
+%D \startitem third \stopitem \startitem fourth \stopitem
+%D \stopitemize
+%D
+%D \startitemize[a,random,packed]
+%D \startitem first \stopitem \startitem second \stopitem
+%D \startitem third \stopitem \startitem fourth \stopitem
+%D \stopitemize
+%D
+%D \startitemize[a,packed]
+%D \startitem first \stopitem \startitem second \stopitem
+%D \startitem third \stopitem \startitem fourth \stopitem
+%D \stopitemize
+%D \stopbuffer
+%D
+%D \typebuffer \getbuffer
+
+% better collectitems als conditional and a real plugin mechanism (some day)
+
+\@EA\long\@EA\def\@EA\collectitemgroupitem\@EA#\@EA1\csname\e!stop\v!item\endcsname
+ {\increment\itemcollectcounter
+ \long\setvalue{\v!item*\itemcollectcounter}{\item#1\par}}
+
+\def\flushcollecteditems
+ {\ifconditional\randomizeitems
+ \getrandomnumber\itemcollectcounternow\plusone\itemcollectcounter
+ \else
+ \increment\itemcollectcounternow
+ \fi
+ \doifdefined{\v!item*\itemcollectcounternow}
+ {\getvalue{\v!item*\itemcollectcounternow}%
+ \letbeundefined{\v!item*\itemcollectcounternow}%
+ \increment\itemcollectcounterdone}%
+ \ifnum\itemcollectcounterdone<\itemcollectcounter\relax
+ \expandafter\flushcollecteditems
+ \fi}
+
+\def\stopcollectitems
+ {\ifconditional\randomizeitems
+ \newcounter\itemcollectcounterdone
+ \ifnum\itemcollectcounter>\zerocount
+ \@EAEAEA\flushcollecteditems
+ \fi
+ \fi}
+
+\def\startcollectitems
+ {\ifconditional\randomizeitems
+ \newcounter\itemcollectcounter
+ \letvalue{\e!start\v!item}\collectitemgroupitem
+ \fi}
+
% This will move to core-fig asap:
%
% todo: process between runs
@@ -39,23 +94,25 @@
\def\getRLIfiguredimensions#1%
{\let\rliwidth \!!zeropoint
\let\rliheight\!!zeropoint
- \doiffileelse{\@@effilenametype.rli}
- {}
- {% let's try runtime running first
- \writestatus\m!figures{using rlxtools to determine size of \@@effilenametype}%
- \executesystemcommand{texmfstart rlxtools --identify \@@effilenametype}}%
- \doiffileelse{\@@effilenametype.rli}
- {}
- {% we assume that runtime running failed
- \installprogram{texmfstart rlxtools --identify \@@effilenametype}}%
- \startnointerference
- \startXMLmapping[rli]%
- \startXMLignore
- \processXMLfile{\@@effilenametype.rli}%
- \edef\rliwidth {\XMLflush{rl:width}}%
- \edef\rliheight{\XMLflush{rl:height}}%
- \stopXMLignore
- \stopXMLmapping
+ \doiffileelse\@@effilenametype
+ {\doiffileelse{\@@effilenametype.rli}
+ {}
+ {% let's try runtime running first
+ \writestatus\m!figures{using rlxtools to determine size of \@@effilenametype}%
+ \executesystemcommand{texmfstart rlxtools --identify \@@effilenametype}}%
+ \doiffileelse{\@@effilenametype.rli}
+ {}
+ {% we assume that runtime running failed
+ \installprogram{texmfstart rlxtools --identify \@@effilenametype}}%
+ \startnointerference
+ \startXMLmapping[rli]%
+ \startXMLignore
+ \processXMLfile{\@@effilenametype.rli}%
+ \edef\rliwidth {\XMLflush{rl:width}}%
+ \edef\rliheight{\XMLflush{rl:height}}%
+ \stopXMLignore
+ \stopXMLmapping}
+ {}%
\stopnointerference}
\def\getfiguredimensionsC
diff --git a/tex/context/base/context.tex b/tex/context/base/context.tex
index e072063cd..abc023fc3 100644
--- a/tex/context/base/context.tex
+++ b/tex/context/base/context.tex
@@ -31,7 +31,7 @@
%D 2004.8.30 the low level interface is english. Watch out and adapt
%D your styles an modules.
-\def\contextversion{2006.05.23 16:32}
+\def\contextversion{2006.05.28 13:28}
%D For those who want to use this:
diff --git a/tex/context/base/core-itm.tex b/tex/context/base/core-itm.tex
index 96c2d5817..8d45cfa8c 100644
--- a/tex/context/base/core-itm.tex
+++ b/tex/context/base/core-itm.tex
@@ -58,6 +58,7 @@
\newconditional\symbollistitem \setfalse\symbollistitem
\newconditional\headlistitem \setfalse\headlistitem
\newconditional\introlistitem \setfalse\introlistitem
+\newconditional\randomizeitems \setfalse\randomizeitems
\newconditional\autointrolistitem \setfalse\autointrolistitem
\newconditional\optimizelistitem \settrue \optimizelistitem
\newconditional\packlistitem \setfalse\packlistitem
@@ -173,7 +174,8 @@
{\processaction
[#2#3#4]
[ \v!packed*=>\packitems,
- \v!intro*=>\settrue\introlistitem,
+ \v!intro*=>\settrue\introlistitem, % here? not set to false
+% no: \v!random*=>\settrue\randomizeitems,% here? not set to false
\v!autointro*=>\settrue\autointrolistitem,
\v!broad*=>\setitemparameter{#1}\c!factor{1},
#2#3*\v!broad*=>\setitemparameter{#1}\c!factor{#2#3},
@@ -361,6 +363,9 @@
\fi
\expanded{\redostartitemgroup[\itemgroupoptions]}}% [#2]
+\let\startcollectitems\relax
+\let\stopcollectitems \relax
+
\def\redostartitemgroup[#1][#2]%
{\setfalse\inlinelistitem % new, no indent (leftskip)
\setfalse\concatnextitem % new, concat
@@ -375,6 +380,7 @@
\fi
\begingroup
\doifinsetelse\v!intro{#1}{\settrue\introlistitem}{\setfalse\introlistitem}%
+ \doifinsetelse\v!random{#1}{\settrue\randomizeitems}{\setfalse\randomizeitems}%
% == \doifinsetelse\v!intro{#1}\settrue\setfalse\introlistitem
\doglobal\increment\noflists
\let\currentlist\noflists
@@ -459,7 +465,8 @@
\ifconditional\inlinelistitem\else
\advance\leftskip \dimen0\relax
\fi
- \fi}
+ \fi
+ \startcollectitems}
% test / example
%
@@ -476,7 +483,8 @@
% \stopitemize \blank
\def\stopitemgroup
- {\ifconditional\textlistitem
+ {\stopcollectitems
+ \ifconditional\textlistitem
\removeunwantedspaces\space\ignorespaces
\else
\par
diff --git a/tex/context/base/core-sec.tex b/tex/context/base/core-sec.tex
index 35ae5db7a..30ceeed2e 100644
--- a/tex/context/base/core-sec.tex
+++ b/tex/context/base/core-sec.tex
@@ -219,13 +219,29 @@
{\precedingsectionnumber\convertednumber[#1]}%
\egroup}
+% \def\preparethenumber#1#2#3% {\??id#1} \number \result
+% {\doifelsevaluenothing{#1\c!separator}
+% {\let\numberseparator\empty
+% \let#3#2}
+% {% was \unexpanded \edef, but we need it unexpanded !
+% \edef\numberseparator{\getvalue{#1\c!separator}}%
+% \edef#3{\@EA\separatednumber\@EA{#2}\getvalue{#1\c!stopper}}}} % hm, etex
+
\def\preparethenumber#1#2#3% {\??id#1} \number \result
{\doifelsevaluenothing{#1\c!separator}
{\let\numberseparator\empty
\let#3#2}
{% was \unexpanded \edef, but we need it unexpanded !
\edef\numberseparator{\getvalue{#1\c!separator}}%
- \edef#3{\@EA\separatednumber\@EA{#2}\getvalue{#1\c!stopper}}}} % hm, etex
+ \doifelsenothing{\executeifdefined{#1\c!suffix}\empty}
+ {\edef#3%
+ {\@EA\separatednumber\@EA{#2}%
+ \getvalue{#1\c!stopper}}}
+ {\edef#3%
+ {\@EA\separatednumber\@EA{#2}%
+ \getvalue{#1\c!separator}%
+ \getvalue{#1\c!suffix}%
+ \getvalue{#1\c!stopper}}}}}
\def\sectionnumberonly[#1]%
{\makesectionnumber[#1]%
diff --git a/tex/context/base/core-sys.tex b/tex/context/base/core-sys.tex
index fbf46bb98..3ca2241db 100644
--- a/tex/context/base/core-sys.tex
+++ b/tex/context/base/core-sys.tex
@@ -107,20 +107,36 @@
%D \stoptext
%D \stoptyping
+% \def\setuprandomize[#1]%
+% {\doifsomething{#1}
+% {\bgroup
+% \setrandomseed\minusone % signals thrd-ran to reseed
+% % tex's time is in minutes
+% \processaction
+% [#1]
+% [ \v!small=>\divide\normaltime 15, % 900,
+% \v!medium=>\divide\normaltime 30, % 1800,
+% \v!big=>\divide\normaltime 60, % 3600,
+% \v!normal=>,
+% \s!default=>,
+% \s!unknown=>\normaltime=#1]%
+% \nextrandom
+% \egroup}}
+
\def\setuprandomize[#1]%
{\doifsomething{#1}
{\bgroup
- \setrandomseed\minusone % signals thrd-ran to reseed
% tex's time is in minutes
+ \scratchcounter\normaltime
\processaction
[#1]
- [ \v!small=>\divide\normaltime 15, % 900,
- \v!medium=>\divide\normaltime 30, % 1800,
- \v!big=>\divide\normaltime 60, % 3600,
- \v!normal=>,
- \s!default=>,
- \s!unknown=>\normaltime=#1]%
- \nextrandom
+ [ \v!small=>\divide\scratchcounter 15, % 900,
+ \v!medium=>\divide\scratchcounter 30, % 1800,
+ \v!big=>\divide\scratchcounter 60, % 3600,
+ \v!normal=>\getnewrandomseed\scratchcounter,
+ \s!default=>\getnewrandomseed\scratchcounter,
+ \s!unknown=>\scratchcounter#1]%
+ \expanded{\setrandomseed{\the\scratchcounter}}%
\egroup}}
\setupsystem
diff --git a/tex/context/base/mult-con.tex b/tex/context/base/mult-con.tex
index 5c359ca3a..ec2e1ac11 100644
--- a/tex/context/base/mult-con.tex
+++ b/tex/context/base/mult-con.tex
@@ -528,6 +528,10 @@ subsubsubsubsubsubject: subsubsubsubsubonderwerp subsubsubsubsub
italian romanian
french
+ suffix: suffix suffix
+ suffix suffix
+ suffix suffix
+ suffix
leftquotation: linkercitaat leftquotation
linkerzitat citacevlevo
citazionesinistra citatstanga
diff --git a/tex/context/base/page-flt.tex b/tex/context/base/page-flt.tex
index 471a61693..3cc61d291 100644
--- a/tex/context/base/page-flt.tex
+++ b/tex/context/base/page-flt.tex
@@ -653,6 +653,7 @@
\c!distance=\@@kjdistance,
\c!separator=\@@kjseparator,
\c!stopper=\@@kjstopper,
+ \c!suffix=\floatcaptionsuffix, % hook
\c!command=\@@kjcommand,
\c!conversion=\@@kjconversion]%
\definenumber % \definelabel
@@ -701,7 +702,7 @@
\c!width,\c!headstyle,\c!headcolor,\c!style,\c!color,
\c!textstyle,\c!textcolor,\c!minwidth,
\c!align,\c!number,\c!way,\c!blockway,
- \c!sectionnumber,\c!separator,\c!stopper,\c!distance,\c!conversion]%
+ \c!sectionnumber,\c!separator,\c!stopper,\c!suffix,\c!distance,\c!conversion]%
\definenumber[#1][#3]%
\presetlabeltext[#1=\labeltext{#3}]%
\dodefinefloatcommands[#1][#2]}
@@ -1392,12 +1393,14 @@
\def\putcompletecaption#1#2#3#4%
{\noindent
- \xdef\lastcaptiontag{\strut#2\floatcaptionsuffix}%
+% \xdef\lastcaptiontag{\strut#2\floatcaptionsuffix}%
+ \xdef\lastcaptiontag{\strut#2}%
\xdef\floatcaptionnumber{#1}%
\dostartattributes{\??kj#1}\c!style\c!color\empty
\ifnofloatnumber
\else
- \hbox{\doattributes{\??kj#1}\c!headstyle\c!headcolor{\strut#2\floatcaptionsuffix\@@kjkjstopper}}%
+% \hbox{\doattributes{\??kj#1}\c!headstyle\c!headcolor{\strut#2\floatcaptionsuffix\@@kjkjstopper}}%
+ \hbox{\doattributes{\??kj#1}\c!headstyle\c!headcolor{\strut#2}}%
\ifnofloatcaption \else \ifemptyfloatcaption \else
\ifcase#4\relax
\scratchskip\@@kjkjdistance\relax
diff --git a/tex/context/base/sort-lan.tex b/tex/context/base/sort-lan.tex
index 379e33495..a4d77a6fa 100644
--- a/tex/context/base/sort-lan.tex
+++ b/tex/context/base/sort-lan.tex
@@ -153,20 +153,49 @@
% c) sorting rule: "A" < "Á" < "a" < "á" < "C" < "c" < "C" < "c"
% d) sorting rule: "h" < "ch" < "i" ("c" < "h")
-\def\czsortdivisionch{ch}
-\def\czsortdivisionCh{Ch}
-
\startmode[sortorder-cz]
- \exportsortexpansion{aacute}{a}
- \exportsortexpansion{Aacute}{A}
- \exportsortexpansion{ccaron}{c+1}
- \exportsortexpansion{Ccaron}{c+1}
- \exportsortdivision{c+1}{ccaron}
- \exportsortreduction{ch}{h+1}
- \exportsortexpansion{ch}{h+1}
- \exportsortreduction{Ch}{h+1}
- \exportsortexpansion{Ch}{h+1}
- \exportsortdivision{h+1}{czsortdivisionch}
+ \exportsortexpansion {aacute} {a+1}
+ \exportsortexpansion {Aacute} {A+1}
+ \exportsortexpansion {ccaron} {c+1}
+ \exportsortexpansion {Ccaron} {C+1}
+ \exportsortdivision {c+1} {ccaron}
+ \exportsortexpansion {dcaron} {d+1}
+ \exportsortexpansion {Dcaron} {C+1}
+ \exportsortdivision {d+1} {dcaron}
+ \exportsortexpansion {eacute} {e+1}
+ \exportsortexpansion {Eacute} {E+1}
+ \exportsortexpansion {ecaron} {e+2}
+ \exportsortexpansion {Ecaron} {E+2}
+ \exportsortreduction {ch} {h+1}
+ \exportsortexpansion {ch} {h+1}
+ \exportsortreduction {Ch} {h+1}
+ \exportsortexpansion {Ch} {h+1}
+ \exportsortdivision {h+1} {czsortdivisionch}
+ \exportsortexpansion {iacute} {i+1}
+ \exportsortexpansion {Iacute} {I+1}
+ \exportsortexpansion {ncaron} {n+1}
+ \exportsortexpansion {Ncaron} {n+1}
+ \exportsortdivision {n+1} {ncaron}
+ \exportsortexpansion {oacute} {o+1}
+ \exportsortexpansion {Oacute} {O+1}
+ \exportsortexpansion {rcaron} {r+1}
+ \exportsortexpansion {Rcaron} {R+1}
+ \exportsortdivision {r+1} {rcaron}
+ \exportsortexpansion {scaron} {s+1}
+ \exportsortexpansion {Scaron} {S+1}
+ \exportsortdivision {s+1} {scaron}
+ \exportsortexpansion {tcaron} {t+1}
+ \exportsortexpansion {Tcaron} {T+1}
+ \exportsortdivision {t+1} {tcaron}
+ \exportsortexpansion {uacute} {u+1}
+ \exportsortexpansion {Uacute} {U+1}
+ \exportsortexpansion {uring} {u+2}
+ \exportsortexpansion {Uring} {U+2}
+ \exportsortexpansion {yacute} {y+1}
+ \exportsortexpansion {Yacute} {Y+1}
+ \exportsortexpansion {zcaron} {z+1}
+ \exportsortexpansion {Zcaron} {Z+1}
+ \exportsortdivision {z+1} {zcaron}
\stopmode
\endinput
diff --git a/tex/context/base/supp-ran.tex b/tex/context/base/supp-ran.tex
index 1266c0e0f..8c76ab443 100644
--- a/tex/context/base/supp-ran.tex
+++ b/tex/context/base/supp-ran.tex
@@ -52,14 +52,6 @@
{\writestatus{loading}{Donald Arseneau's 'random.tex' (found)}}
{\writestatus{loading}{Donald Arseneau's 'random.tex' (not found)}}
- % avoid scratch dimens 0 and 2 (already recoded in third-ran)
- %
- % \def\setrandim#1#2#3% dimen register, minimum length, maximum length
- % {\scratchdimen#2\edef\!!stringa{\number\scratchdimen}%
- % \scratchdimen#3\edef\!!stringb{\number\scratchdimen}%
- % \setrannum\ranval\!!stringa\!!stringb
- % #1\ranval\s!sp\relax}
-
\fi
\ifx\nextrandom\undefined
@@ -73,18 +65,6 @@
\let\nextrandom\relax
-% \def\getrandomdimen #1#2#3{\scratchdimen #2\relax#1\scratchdimen }
-% \def\getrandomcount #1#2#3{\scratchcounter#2\relax#1\scratchcounter}
-% \def\getrandomnumber#1#2#3{\edef#1{0}}
-% \def\getrandomfloat #1#2#3{\edef#1{0}}
-% \unexpanded\def\setrandomseed #1{}
-% \unexpanded\def\getrandomseed #1{\edef#1{0}}
-
-% \chardef\randomseedfrozen\zerocount
-
-% \def\freezerandomseed {\global\chardef\randomseedfrozen\plusone }
-% \def\defrostrandomseed{\global\chardef\randomseedfrozen\zerocount}
-
\fi
\ifx\nextrandom\undefined \endinput \fi
@@ -165,9 +145,14 @@
\edef#1{\withoutpt\the\scratchdimen}}
\unexpanded \def\setrandomseed#1%
- {\randomi#1\relax}
+ {\global\randomi#1\relax} % global added
\unexpanded \def\getrandomseed#1%
{\edef#1{\number\randomi}}
+\def\getnewrandomseed#1%
+ {\setrandomseed\minusone % signals thrd-ran to auto reseed
+ \nextrandom % this signal is needed for the
+ #1\randomi} % pseudo randomizer (see: third-ran)
+
\endinput
diff --git a/tex/context/interface/keys-cz.xml b/tex/context/interface/keys-cz.xml
index c9a48bcf6..ce759a8dc 100644
--- a/tex/context/interface/keys-cz.xml
+++ b/tex/context/interface/keys-cz.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="cz" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="cz" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="jedna"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="citacevlevo"/>
<cd:constant name="rightquotation" value="citacevpravo"/>
<cd:constant name="leftquote" value="citovatvlevo"/>
diff --git a/tex/context/interface/keys-de.xml b/tex/context/interface/keys-de.xml
index 47813d71e..3dccf33f0 100644
--- a/tex/context/interface/keys-de.xml
+++ b/tex/context/interface/keys-de.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="de" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="de" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="eins"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="linkerzitat"/>
<cd:constant name="rightquotation" value="rechterzitat"/>
<cd:constant name="leftquote" value="linkerzitieren"/>
diff --git a/tex/context/interface/keys-en.xml b/tex/context/interface/keys-en.xml
index d6114118b..cbc0a9929 100644
--- a/tex/context/interface/keys-en.xml
+++ b/tex/context/interface/keys-en.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="en" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="en" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="one"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="leftquotation"/>
<cd:constant name="rightquotation" value="rightquotation"/>
<cd:constant name="leftquote" value="leftquote"/>
diff --git a/tex/context/interface/keys-fr.xml b/tex/context/interface/keys-fr.xml
index 156aebbb7..92acb8763 100644
--- a/tex/context/interface/keys-fr.xml
+++ b/tex/context/interface/keys-fr.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="fr" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="fr" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="un"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="citationgauche"/>
<cd:constant name="rightquotation" value="citationdroite"/>
<cd:constant name="leftquote" value="citergauche"/>
diff --git a/tex/context/interface/keys-it.xml b/tex/context/interface/keys-it.xml
index 0d1c06664..15c189e85 100644
--- a/tex/context/interface/keys-it.xml
+++ b/tex/context/interface/keys-it.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="it" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="it" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="uno"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="citazionesinistra"/>
<cd:constant name="rightquotation" value="citazionedestra"/>
<cd:constant name="leftquote" value="menzionesinistra"/>
diff --git a/tex/context/interface/keys-nl.xml b/tex/context/interface/keys-nl.xml
index d0c54aed9..746d7473e 100644
--- a/tex/context/interface/keys-nl.xml
+++ b/tex/context/interface/keys-nl.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="nl" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="nl" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="een"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="linkercitaat"/>
<cd:constant name="rightquotation" value="rechtercitaat"/>
<cd:constant name="leftquote" value="linkerciteer"/>
diff --git a/tex/context/interface/keys-ro.xml b/tex/context/interface/keys-ro.xml
index 7a80b3881..142b422e5 100644
--- a/tex/context/interface/keys-ro.xml
+++ b/tex/context/interface/keys-ro.xml
@@ -1,6 +1,6 @@
<?xml version="1.0"?>
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="ro" version="2006.05.23 16:32">
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="ro" version="2006.05.28 13:28">
<cd:variables>
<cd:variable name="one" value="unu"/>
@@ -126,6 +126,7 @@
</cd:variables>
<cd:constants>
+ <cd:constant name="suffix" value="suffix"/>
<cd:constant name="leftquotation" value="citatstanga"/>
<cd:constant name="rightquotation" value="citatdreapta"/>
<cd:constant name="leftquote" value="minicitatstanga"/>
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-03 12:55:06 +0000