diff options
author | Marius <mariausol@gmail.com> | 2010-10-18 12:40:11 +0300 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2010-10-18 12:40:11 +0300 |
commit | 8009e0ec2449002df344f784da9fe6846abc774f (patch) | |
tree | cd39782dfd7bbf7a3a30f157ba763bfd9425043c /tex/context/base/mult-fst.mkii | |
parent | 406cef06476f30c68f58cb5074efb10f79de129f (diff) | |
download | context-8009e0ec2449002df344f784da9fe6846abc774f.tar.gz |
beta 2010.10.18 11:11
Diffstat (limited to 'tex/context/base/mult-fst.mkii')
-rw-r--r-- | tex/context/base/mult-fst.mkii | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tex/context/base/mult-fst.mkii b/tex/context/base/mult-fst.mkii new file mode 100644 index 000000000..e655e3d26 --- /dev/null +++ b/tex/context/base/mult-fst.mkii @@ -0,0 +1,36 @@ +%D \module +%D [ file=mult-fst, +%D version=2006.08.16, +%D title=\CONTEXT\ Multilingual Macros, +%D subtitle=Speed Up, +%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. + +% And so, after a few years of keeping this potentially dangerous +% speedup in cont-exp, we now move it to the kernel: the next +% patch is 30\% faster on main interface (seconds) (9->7 sec on +% 1 million calls). Another speed up is still under testing. + +\unprotect + +\startinterface english + + \def\dosetvalue #1#2{\@EA\def \csname#1#2\endcsname} + \def\dosetevalue #1#2{\@EA\edef\csname#1#2\endcsname} + \def\dosetgvalue #1#2{\@EA\gdef\csname#1#2\endcsname} + \def\dosetxvalue #1#2{\@EA\gdef\csname#1#2\endcsname} + \def\docopyvalue#1#2#3{\@EA\def \csname#1#3\@EA\endcsname\@EA{\csname#2#3\endcsname}} + + \def\setinterfaceconstant#1#2{\setvalue{\c!prefix!#1}{#1}} + \def\setinterfacevariable#1#2{\setvalue{\v!prefix!#1}{#2}} + + \def\interfaced#1{#1} + +\stopinterface + +\protect \endinput |