diff options
author | Taco Hoekwater <taco@elvenkind.com> | 2008-06-12 10:42:53 +0000 |
---|---|---|
committer | Taco Hoekwater <taco@elvenkind.com> | 2008-06-12 10:42:53 +0000 |
commit | 0d01365d53c456d246da0ca1f0b3cd9868f02b35 (patch) | |
tree | 01a655c8028e17cfb371456b299c1848fe08c05b /Master/texmf-dist/tex/context/base/cont-new.mkiv | |
parent | 44f3714442da07fdfc36a7f2a8dcd5d4294c5d26 (diff) |
ConTeXt release 2008.05.21
git-svn-id: svn://tug.org/texlive/trunk@8691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/cont-new.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/cont-new.mkiv | 157 |
1 files changed, 157 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/cont-new.mkiv b/Master/texmf-dist/tex/context/base/cont-new.mkiv new file mode 100644 index 00000000000..550a96ea9de --- /dev/null +++ b/Master/texmf-dist/tex/context/base/cont-new.mkiv @@ -0,0 +1,157 @@ +%D \module +%D [ file=cont-new, +%D version=2006.10.04, +%D title=\CONTEXT\ Miscellaneous Macros, +%D subtitle=New Macros, +%D author=Hans Hagen, +%D date=\currentdate, +%D copyright={PRAGMA / Hans Hagen \& Ton Otten}] +%C +%C This module is part of the \CONTEXT\ macro||package and is +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. + +% \appendtoks +% \writestatus\m!lua{tfm over afm, wide fonts not yet supported} +% \to \everystoptext + +% \ctxlua { fonts.define.method = 2 } % normally 3 + +\enablemode[mkiv] + +% potential new defaults: + +% \setbreakpoints[compound] + +\unprotect + +% \appendtoks +% \ctxlua{ +% table.insert(input.stop_actions, function() +% tex.sprint(tex.ctxcatcodes,"\\immediatewriteutilitytua{end}") +% tex.sprint(tex.ctxcatcodes,"\\immediatewriteutilitytua{}") +% tex.sprint(tex.ctxcatcodes,"\\immediatewriteutilitytua{end of utility file}") +% end) +% }% +% \to \everyopenutilities + +\def\writestatus#1#2{\ctxlua{ctx.writestatus(\!!bs#1\!!es,\!!bs#2\!!es)}} + +\ifx\clearmarks\undefined + \def\clearmarks {\begingroup\afterassignment\doclearmarks\scratchcounter} + \def\doclearmarks{\normalmarks\scratchcounter{}\endgroup} +\fi + +\def\resetmark#1% we cannot use \normalmarks#1{} + {\global\@EA\chardef\csname\@@mrk\string#1\endcsname\zerocount + \@EA\clearmarks\csname\@@prk\string#1\endcsname + \global\@EA\let\csname\@@trk\string#1\endcsname\empty + \global\@EA\let\csname\@@frk\string#1\endcsname\empty + \global\@EA\let\csname\@@brk\string#1\endcsname\empty + \global\@EA\let\csname\@@crk\string#1\endcsname\empty} + +% \appendtoks +% \ctxlua{garbagecollector.update()}% +% \to \everyshipout + +% texmf.instance will become just texmf + +%D Since this can be a showstopper, we report the path at the beginning +%D as well as at the end of a run. + +\writestatus\m!lua{used config path - \ctxlua{tex.print(caches.configpath(texmf.instance))}} +\writestatus\m!lua{used cache path - \ctxlua{tex.print(caches.path)}} + +%D For the moment we report some statistics. Later this will become an option, +%D but for now we need this information. + +% \appendtoks +% \ctxlua{ctx.show_statistics()}% +% \to \everygoodbye + +\def\resettimer {\ctxlua{environment.starttime = os.clock()}} +\def\elapsedtime {\ctxlua{tex.sprint(os.clock()-environment.starttime)}} +\let\elapsedseconds \elapsedtime + +\resettimer + +% \appendtoks +% \resettimer +% \to \everyjob + +%D For me. + +\def\traceluausage + {\dosingleempty\dotraceluausage} + +\def\dotraceluausage[#1]% + {\ctxlua{debugger.enable()}% + \appendtoks\ctxlua{debugger.disable() debugger.showstats(print,\doifnumberelse{#1}{#1}{5000})}\to\everybye} + +%D Fonts (experimental AFM loading} + +% \ctxlua { +% remapper.define('encoding','^lm' ,'^(.*)$','lm-\letterpercent1') +% remapper.define('encoding','^qbk','^(.*)$','q-\letterpercent1') +% remapper.define('encoding','^qcs','^(.*)$','q-\letterpercent1') +% remapper.define('encoding','^qpl','^(.*)$','q-\letterpercent1') +% remapper.define('encoding','^qtm','^(.*)$','q-\letterpercent1') +% } + +\appendtoksonce \loadallXfontmapfiles \to \everyPDFxform +\appendtoksonce \loadallXfontmapfiles \to \everyPDFximage +\appendtoksonce \loadallXfontmapfiles \to \everystarttext +\appendtoksonce \loadallXfontmapfiles \to \everybeforepagebody + +\def\loadallXfontmapfiles{\ctxlua{fonts.map.flush("pdftex")}} + +% \ctxlua{ +% do +% local pth = "." .. io.fileseparator .. "tmp" .. io.fileseparator .. "\jobname" +% texio.write_nl("CREATING "..pth) +% os.execute("mkdir " .. pth) +% end +% input.output_files = { } +% callback.register('find_write_file', function(id,name) +% input.output_files[name] = file.join(".","tmp","\jobname",name) +% texio.write_nl("REDIRECTING OUTPUT "..name.. " TO " .. input.output_files[name]) +% return input.output_files[name] +% end) +% callback.register('find_read_file', function(id,name) +% local sname = string.gsub(name,"^\letterpercent./","") +% if input.output_files[sname] then +% return input.output_files[name] +% elseif string.find(sname,"^\jobname[\letterpercent.\letterpercent-]") then +% local n = file.join(".","tmp","\jobname",sname) +% local f = io.open(n) +% if f then +% input.output_files[name] = n +% texio.write_nl("REDIRECTING INPUT "..sname.. " TO " .. n) +% f:close() +% return n +% else +% return input.findtexfile(texmf.instance,name) +% end +% else +% return input.findtexfile(texmf.instance,name) +% end +% end) +% } + +% The following commands need to be taken care of, e.g. because there is not yet +% a mkiv module for them. + +\definestartstop[randomized][\c!before=\dosetattribute{case}\plusfour,\c!after=] + +\def\WORD{\groupedcommand{\setcharactercasing[\plusone ]}{}} +\def\word{\groupedcommand{\setcharactercasing[\plustwo ]}{}} +\def\Word{\groupedcommand{\setcharactercasing[\plusthree]}{}} % \plusfour + +\let\WORDS\WORD +\let\words\word +\let\Words\Word + +\protect \endinput + +% \expanded{\defineactivecharacter \number"2000E} {\textdir TRT\relax} +% \expanded{\defineactivecharacter \number"2000F} {\textdir TLT\relax} |