Source Browser ?

1%D \module
2%D   [       file=core-con,
3%D        version=1997.26.08,
4%D          title=\CONTEXT\ Core Macros,
5%D       subtitle=Conversion,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus{loading}{ConTeXt Core Macros / Conversion}
15
16\registerctxluafile{core-con}{}
17
18% todo: iso date ranges (from/to)
19
20\unprotect
21
22\ifdefined\currentlanguage \else \let\currentlanguage\empty              \fi
23\ifdefined\labeltext       \else \let\labeltext      \firstofoneargument \fi
24
25%D This module deals with all kind of conversions from numbers and dates. I
26%D considered splitting this module in a support one and a core one, but to keep
27%D things simple as well as preserve the overview, I decided against splitting.
28
29\aliased\let\spr\firstofoneargument % separator
30\aliased\let\stp\firstofoneargument % stopper
31
32% needed for arab (but can disappear as no ons used it, experiment for idris)
33
34\permanent\protected\def\isolateseparators % even works with list separator overloading
35  {\enforced\permanent\def\spr##1{{##1}}%  % we can probably best mess around with zwj
36   \enforced\permanent\def\stp##1{{##1}}}  % and friends
37
38%D \macros
39%D   {numbers}
40%D
41%D First we deal with the dummy conversion of numbers using the \TEX\ primitive
42%D \type{\number}. The uppercase alternative is only there for compatibility with
43%D the other conversion macros. We could do without \type{#1} but this way we get
44%D rid of unwanted braces. For the savety we also define a non||sence uppercase
45%D alternative.
46%D
47%D \showsetup{numbers}
48%D
49%D \starttyping
50%D \def\numbers#1{\number#1}
51%D \def\Numbers#1{\number#1}
52%D \stoptyping
53%D
54%D Due to read ahead, as in \type{[\pagenumber\space]} the space will disappear,
55%D unless we use:
56
57\permanent\def\numbers#1{\purenumber{#1}}
58\permanent\def\Numbers#1{\purenumber{#1}}
59
60%D \macros
61%D   {romannumerals,Romannumerals}
62%D
63%D \TEX\ the program uses a rather tricky conversion from numbers to their roman
64%D counterparts. This conversion could of course be programmed in \TEX\ itself, but
65%D I guess Knuth found the programming trick worth presenting.
66%D
67%D \showsetup{romannumerals}
68%D \showsetup{Romannumerals}
69
70\permanent\def\romannumerals#1{\clf_romannumerals\numexpr#1\relax}
71\permanent\def\Romannumerals#1{\clf_Romannumerals\numexpr#1\relax}
72
73%D Arabic  etc:
74
75\permanent\def\abjadnumerals     #1{\clf_abjadnumerals     \numexpr#1\relax}
76\permanent\def\abjadnodotnumerals#1{\clf_abjadnodotnumerals\numexpr#1\relax}
77\permanent\def\abjadnaivenumerals#1{\clf_alphabetic        \numexpr#1\relax{arabic}} % okay?
78
79\permanent\def\hebrewnumerals    #1{\clf_hebrewnumerals\numexpr#1\relax}
80\aliased  \let\yiddishnumerals      \hebrewnumerals
81
82\permanent\def\languagecharacters#1{\clf_alphabetic\numexpr#1\relax{\currentlanguage}} % new
83\permanent\def\languageCharacters#1{\clf_Alphabetic\numexpr#1\relax{\currentlanguage}} % new
84
85\permanent\def\alphabeticnumerals#1{\clf_alphabetic\numexpr#1\relax{}}
86\permanent\def\Alphabeticnumerals#1{\clf_Alphabetic\numexpr#1\relax{}}
87
88\permanent\def\thainumerals      #1{\clf_alphabetic\numexpr#1\relax{thai}}
89\permanent\def\devanagarinumerals#1{\clf_alphabetic\numexpr#1\relax{devanagari}}
90\permanent\def\gurmurkhinumerals #1{\clf_alphabetic\numexpr#1\relax{gurmurkhi}}
91\permanent\def\gujaratinumerals  #1{\clf_alphabetic\numexpr#1\relax{gujarati}}
92\permanent\def\tibetannumerals   #1{\clf_alphabetic\numexpr#1\relax{tibetan}}
93\permanent\def\greeknumerals     #1{\clf_alphabetic\numexpr#1\relax{greek}}
94\permanent\def\Greeknumerals     #1{\clf_Alphabetic\numexpr#1\relax{greek}}
95\permanent\def\arabicnumerals    #1{\clf_alphabetic\numexpr#1\relax{arabic}}
96\permanent\def\persiannumerals   #1{\clf_alphabetic\numexpr#1\relax{persian}}
97\permanent\def\arabicdecimals    #1{\clf_decimals  \numexpr#1\relax{arabic}}
98\permanent\def\persiandecimals   #1{\clf_decimals  \numexpr#1\relax{persian}}
99
100\aliased  \let\arabicexnumerals     \persiannumerals
101
102\permanent\def\koreannumerals    #1{\clf_alphabetic\numexpr#1\relax{korean}}
103\permanent\def\koreannumeralsp   #1{\clf_alphabetic\numexpr#1\relax{korean-parenthesis}}
104\permanent\def\koreannumeralsc   #1{\clf_alphabetic\numexpr#1\relax{korean-circle}}
105
106\aliased  \let\koreanparentnumerals     \koreannumeralsp
107\aliased  \let\koreanparenthesisnumerals\koreannumeralsp
108\aliased  \let\koreancirclenumerals     \koreannumeralsc
109
110\permanent\def\chinesenumerals   #1{\clf_chinesenumerals\numexpr#1\relax{normal}}
111\permanent\def\chinesecapnumerals#1{\clf_chinesenumerals\numexpr#1\relax{cap}}
112\permanent\def\chineseallnumerals#1{\clf_chinesenumerals\numexpr#1\relax{all}}
113
114%D \macros
115%D   {character,Character}
116%D
117%D Converting a number into a character can of course only be done with numbers
118%D less or equal to~26. At the cost of much more macros a faster conversion is
119%D possible, using:
120%D
121%D \starttyping
122%D \setvalue{char1}{a} \def\character#1{\getvalue{char#1}}
123%D \stoptyping
124%D
125%D But we prefer a simpel \type{\case}.
126%D
127%D \showsetup{character}
128%D \showsetup{Character}
129
130\permanent\def\character#1{\clf_character\numexpr#1\relax}
131\permanent\def\Character#1{\clf_Character\numexpr#1\relax}
132
133%D \macros
134%D   {characters,Characters}
135%D
136%D Converting large numbers is supported by the next two macros. This time we
137%D just count on: $\cdots$~x, y, z, aa, ab, ac~$\cdots$.
138%D
139%D \showsetup{characters}
140%D \showsetup{Characters}
141
142\permanent\def\characters#1{\clf_characters\numexpr#1\relax}
143\permanent\def\Characters#1{\clf_Characters\numexpr#1\relax}
144
145%D \macros
146%D   {greeknumerals,Greeknumerals}
147%D
148%D Why should we only honour the romans, and not the greek?
149
150% \let\greeknumerals\gobbleoneargument
151% \let\Greeknumerals\gobbleoneargument
152
153%D \macros
154%D   {oldstylenumerals,oldstyleromannumerals}
155%D
156%D These conversions are dedicated to Frans Goddijn.
157
158\permanent\protected\def\oldstylenumerals#1%
159  {\begingroup
160   \os\number#1%
161   \endgroup}
162
163\permanent\protected\def\oldstyleromannumerals#1% will become obsolete
164  {\dontleavehmode
165   \hbox\bgroup
166   \ss\txx
167   \setbox\scratchbox\hbox \s!spread .15\emwidth{\hss\uppercased{\romannumerals{#1}}\hss}%
168   \scratchwidth \wd\scratchbox
169   \scratchheight\ht\scratchbox
170   \scratchdimen .1\exheight
171   \vrule\s!width\scratchwidth\s!height\dimexpr\scratchheight+\scratchdimen\relax\s!depth-\dimexpr\scratchheight-+\scratchdimen\relax
172   \hskip-\scratchwidth
173   \vrule\s!width\scratchwidth\s!height\scratchdimen\s!depth\scratchdimen
174   \hskip-\scratchwidth
175   \box\scratchbox
176   \egroup}
177
178%D \macros
179%D   {normaltime,normalyear,normalmonth,normalday}
180%D
181%D The last part of this module is dedicated to converting dates. Because we want to
182%D use as meaningful commands as possible, and because \TEX\ already uses up some of
183%D those, we save the original meanings. The above are defined already.
184
185%D \macros
186%D   {month,MONTH}
187%D
188%D Converting the month number into a month name is done using a case statement,
189%D abstact values and the label mechanism. This way users can easily redefine a
190%D label from for instance german into austrian.
191%D
192%D \starttyping
193%D \setuplabeltext [de] [january=J\"anner]
194%D \stoptyping
195%D
196%D Anyhow, the conversion looks like:
197
\permanent\protected\def\monthlong #1{\clf_monthname\numexpr#1\relax}
\permanent\protected\def\monthshort#1{\clf_monthmnem\numexpr#1\relax}
200\permanent\protected\def\daylong   #1{\clf_dayname\numexpr#1\relax}
201\permanent\protected\def\dayshort  #1{\clf_daymnem\numexpr#1\relax}
\aliased            \let\convertmonth\monthlong % for old times sake
203
204%D We redefine the \TEX\ primitive \type{\month} as:
205%D
206%D \showsetup{month}
207%D \showsetup{MONTH}
208
209\pushoverloadmode
210
\aliased\let\month\monthlong
212
213\popoverloadmode
214
\permanent\protected\def\MONTH     #1{\WORD{\clf_monthname\numexpr#1\relax}}
\permanent\protected\def\MONTHLONG #1{\WORD{\clf_monthname\numexpr#1\relax}}
\permanent\protected\def\MONTHSHORT#1{\WORD{\clf_monthmnem\numexpr#1\relax}}
218
219%D We never explicitly needed this, but Tobias Burnus pointed out that it would be
220%D handy to convert to the day of the week. In doing so, we have to calculate the
221%D total number of days, taking leapyears into account. For those who are curious:
222%D
223%D \startitemize[packed]
224%D \item  years that can be divided by 4 are leapyears
225%D \item  exept years that can be divided by 100
226%D \item  unless years can be divided by 400
227%D \stopitemize
228
229%D \macros
230%D   {weekday,WEEKDAY}
231%D
232%D The first one is sort of redundant. It takes the day number argument.
233%D
234%D \showsetup{weekday}
235%D \showsetup{WEEKDAY}
236
237\permanent\protected\def\weekday #1{\clf_dayname\numexpr#1\relax}
238\permanent\protected\def\WEEKDAY #1{\WORD{\clf_dayname\numexpr#1\relax}}
239\permanent\protected\def\DAYLONG #1{\WORD{\clf_dayname\numexpr#1\relax}}
240\permanent\protected\def\DAYSHORT#1{\WORD{\clf_daymnem\numexpr#1\relax}}
241
242%D \macros
243%D   {getdayoftheweek, dayoftheweek}
244
245\newcount\normalweekday
246
247\permanent          \def\dayoftheweek   #1#2#3{\clf_weekdayname\numexpr#1\relax\numexpr#2\relax\numexpr#3\relax}                 % name
248\permanent\protected\def\getdayoftheweek#1#2#3{\normalweekday\clf_weekday\numexpr#1\relax\numexpr#2\relax\numexpr#3\relax\relax} % number
249
250%D Using this macro in
251%D
252%D \startbuffer
253%D monday:   \dayoftheweek  {4} {5} {1992}
254%D friday:   \dayoftheweek {16} {6} {1995}
255%D monday:   \dayoftheweek {25} {8} {1997}
256%D saturday: \dayoftheweek {30} {8} {1997}
257%D tuesday:  \dayoftheweek  {2} {1} {1996}
258%D tuesday:  \dayoftheweek  {7} {1} {1997}
259%D tuesday:  \dayoftheweek {13} {1} {1998}
260%D friday:   \dayoftheweek  {1} {1} {2000}
261%D \stopbuffer
262%D
263%D \typebuffer
264%D
265%D gives
266%D
267%D \startlines
268%D \getbuffer
269%D \stoplines
270%D
271%D The macro \type {\getdayoftheweek} can be used to calculate the number \type
272%D {\normalweekday}.
273
274%D \macros
275%D   {doifleapyearelse,
276%D    getdayspermonth}
277%D
278%D Sometimes we need to know if we're dealing with a leapyear, so here is a
279%D testmacro:
280%D
281%D \starttyping
282%D \doifleapyearelse{year}{yes}{no}
283%D \stoptyping
284%D
285%D An example of its use can be seen in the macro
286%D
287%D \starttyping
288%D \getdayspermonth{year}{month}
289%D \stoptyping
290%D
291%D The number of days is available in the macro \type {\numberofdays}.
292
293\permanent\def\doifelseleapyear#1% expandable check
294  {\clf_doifelseleapyear\numexpr#1\relax}
295
296\aliased\let\doifleapyearelse\doifelseleapyear
297
298\mutable\let\numberofdays\!!zerocount
299
\permanent\protected\def\getdayspermonth#1#2%
301  {\edef\numberofdays{\clf_nofdays\numexpr#1\relax\numexpr#2\relax}}
302
\permanent\def\dayspermonth#1#2%
304  {\clf_nofdays\numexpr#1\relax\numexpr#2\relax}
305
306% \dayoftheweek{2006}{9}{15}
307% \doifleapyearelse{2000}{OK}{NOT OK}
308% \doifleapyearelse{2100}{NOT OK}{OK}
309% \doifleapyearelse{2004}{OK}{NOT OK}
310% \doifleapyearelse{2003}{NOT OK}{OK}
311% \dayspermonth{2000}{2}
312% [\the\normaltime=\the\time]
313
314%D \macros
315%D   {currentdate, rawdate, date}
316%D
317%D We use these conversion macros in the date formatting macro:
318%D
319%D \showsetup{currentdate}
320%D
321%D This macro takes care of proper spacing and delivers for instance:
322%D
323%D \startbuffer
324%D \currentdate[weekday,day,month,year]
325%D \currentdate[WEEKDAY,day,MONTH,year]
326%D \stopbuffer
327%D
328%D \startlines
329%D \getbuffer
330%D \stoplines
331%D
332%D depending of course on the keywords. Here we gave:
333%D
334%D \typebuffer
335%D
336%D If needed one can also add non||keywords, like in
337%D
338%D \startbuffer
339%D \currentdate[dd,--,mm,--,yy]
340%D \stopbuffer
341%D
342%D \typebuffer
343%D
344%D or typeset: \getbuffer.
345%D
346%D When no argument is passed, the current date is given as specified per
347%D language (using \type{\installlanguage}).
348%D
349%D \showsetup{currentdate}
350%D
351%D \startbuffer
352%D \date
353%D \date[d=12,m=12,y=1998][weekday]
354%D \date[d=12,m=12,y=1998]
355%D \stopbuffer
356%D
357%D We can also typeset arbitrary dates, using the previous
358%D command.
359%D
360%D \typebuffer
361%D
362%D The date is specified by one character keys. When no date is given, we get the
363%D current date.
364%D
365%D \startlines
366%D \getbuffer
367%D \stoplines
368
369%D \starttabulate[|l|l|]
370%D \HL
371%D \NC year     \NC (\currentdate[year])     \NC\NR
372%D \NC yy       \NC (\currentdate[yy])       \NC\NR
373%D \NC y        \NC (\currentdate[y])        \NC\NR
374%D \NC Y        \NC (\currentdate[Y])        \NC\NR
375%D \HL
376%D \NC month    \NC (\currentdate[month])    \NC\NR
377%D \NC mm       \NC (\currentdate[mm])       \NC\NR
378%D \NC m        \NC (\currentdate[m])        \NC\NR
379%D \NC M        \NC (\currentdate[M])        \NC\NR
380%D \HL
381%D \NC day      \NC (\currentdate[day])      \NC\NR
382%D \NC dd       \NC (\currentdate[dd])       \NC\NR
383%D \NC d        \NC (\currentdate[d])        \NC\NR
384%D \NC D        \NC (\currentdate[D])        \NC\NR
385%D \HL
386%D \NC weekday  \NC (\currentdate[weekday])  \NC\NR
387%D \NC w        \NC (\currentdate[w])        \NC\NR
388%D \NC W        \NC (\currentdate[W])        \NC\NR
389%D \HL
390%D \NC referral \NC (\currentdate[referral]) \NC\NR
391%D \HL
392%D \NC day:mnem \NC (\currentdate[day:mnem]) \NC\NR
393%D \NC dd:mnem  \NC (\currentdate[dd:mnem])  \NC\NR
394%D \NC d:mnem   \NC (\currentdate[d:mnem])   \NC\NR
395%D \NC D:mnem   \NC (\currentdate[D:mnem])   \NC\NR
396%D \HL
397%D \stoptabulate
398%D
399%D \startbuffer
400%D (\currentdate[D,.,M,.,Y])
401%D (\currentdate[day,month,year])
402%D (\currentdate[day,+,month,+,year])
403%D \stopbuffer
404%D
405%D \typebuffer \getbuffer
406%D
407%D Some indirectness and abstraction:
408%D
409%D \starttyping
410%D \definedate[crap][year]
411%D \currentdate[crap]
412%D \stoptyping
413
414\installcorenamespace{date}
415
416\permanent\tolerant\protected\def\definedate[#1]#,[#2]%
417  {\ifarguments\else\setvalue{\??date#1}{#2}\fi}
418
419\def\syst_converters_check_date_specification#1%
420  {\ifcsname\??date#1\endcsname
421     \edef#1{\lastnamedcs}%
422   \fi}
423
424\newtoks\everycurrentdate
425
426\permanent\tolerant\protected\def\currentdate[#1]%
427  {\dontleavehmode
428   \begingroup
429   \the\everycurrentdate
430   \edef\m_syst_converters_date{#1}%
431   \syst_converters_check_date_specification\m_syst_converters_date
432   \syst_converters_check_date_specification\currentdatespecification
433   \clf_currentdate
434     {\m_syst_converters_date}{\currentdatespecification}{\labellanguage}%
     \normalyear\normalmonth\normalday
436   \endgroup}
437
438\permanent\tolerant\protected\def\setdate[#1]% sets the date !
439  {\begingroup
440   \letdummyparameter\c!d\normalday
   \letdummyparameter\c!m\normalmonth
442   \letdummyparameter\c!y\normalyear
443   \getdummyparameters[#1]%
444   \normalexpanded
445     {\endgroup
446      \iftok{\directdummyparameter\c!d}\emptytoks\else\normalday  \number\directdummyparameter\c!d\relax\fi
      \iftok{\directdummyparameter\c!m}\emptytoks\else\normalmonth\number\directdummyparameter\c!m\relax\fi
448      \iftok{\directdummyparameter\c!y}\emptytoks\else\normalyear \number\directdummyparameter\c!y\relax\fi}}
449
450\permanent\tolerant\protected\def\date[#1]#,[#2]% sets the date !
451  {\dontleavehmode
452   \begingroup
453   \setdate[#1]% sets the date !
454   \the\everycurrentdate
455   \edef\m_syst_converters_date{#2}%
456   \syst_converters_check_date_specification\m_syst_converters_date
457   \syst_converters_check_date_specification\currentdatespecification
458   \clf_currentdate
459     {\m_syst_converters_date}{\currentdatespecification}{\labellanguage}%
     \normalyear\normalmonth\normalday
461   \endgroup}
462
463\permanent\def\rawdate[#1]% expandable and no labels
464  {\clf_currentdate
465     {#1}{\currentdatespecification}{}%
     \normalyear\normalmonth\normalday}
467
468%D \macros
469%D   {currenttime}
470%D
471%D The currenttime is actually the jobtime. You can specify a pattern similar
472%D to the previous date macro using the keys \type {h}, \type {m} and a separator.
473
474\mutable\let\currenthour  \!!plusone
475\mutable\let\currentminute\!!plusone
476\mutable\let\currentsecond\!!plusone
477
478\permanent\protected\def\calculatecurrenttime
479  {\edef\currenthour  {\clf_hour  }%
480   \edef\currentminute{\clf_minute}%
481   \edef\currentsecond{\clf_second}}
482
483% \def\currenttimespecification{h,:,m}
484
485\permanent\protected\def\currenttime
486  {\doifelsenextoptional\syst_converters_current_time_yes\syst_converters_current_time_nop}
487
488\protected\def\syst_converters_current_time_yes[#1]%
489  {\calculatecurrenttime
490   \processallactionsinset[#1][h=>\currenthour,m=>\currentminute,\s!unknown=>\commalistelement]}
491
492\protected\def\syst_converters_current_time_nop
493  {\normalexpanded{\syst_converters_current_time_yes[\currenttimespecification]}}
494
495%D Because we're dealing with dates, we also introduce a few day loops:
496%D
497%D \starttyping
498%D \processmonth{year}{month}{command}
499%D \processyear{year}{command}{before}{after}
500%D \stoptyping
501%D
502%D The counters \type {\normalyear}, \type {\normalmonth} and \type {\normalday}
503%D can be used for for date manipulations.
504
\permanent\protected\def\processmonth#1#2#3% year month command
506  {\begingroup
   \getdayspermonth{#1}{#2}%
508   \dostepwiserecurse\plusone\numberofdays\plusone
509     {\normalyear #1\relax
      \normalmonth#2\relax
511      \normalday  \recurselevel\relax
512      #3}%
513   \endgroup}
514
515\permanent\protected\def\processyear#1#2#3#4% year command before after
516  {\begingroup
517   \dorecurse\plustwelve
518     {\normalyear #1\relax
      \normalmonth\recurselevel\relax
      #3\processmonth\normalyear\normalmonth{#2}#4}%
521   \endgroup}
522
523%D \macros
524%D   {defineconversion, convertnumber}
525%D
526%D Conversion involves the macros that we implemented earlier in this module.
527%D
528%D \showsetup{defineconversion}
529%D \showsetup{convertnumber}
530%D
531%D We can feed this command with conversion macros as well as a set of conversion
532%D symbols. Both need a bit different treatment.
533%D
534%D \starttyping
535%D \defineconversion [roman] [\romannumerals]
536%D \defineconversion [set 1] [$\star$,$\bullet$,$\ast$]
537%D \stoptyping
538%D
539%D You can define a language dependent conversion with:
540%D
541%D \starttyping
542%D \defineconversion [en] [whatever] [\something]
543%D \stoptyping
544
545\installcorenamespace {conversion}
546\installcorenamespace {conversionarguments}
547\installcorenamespace {conversionwords}
548
549%D It might be better to move more to \LUA\ as we also need conversion there and
550%D doublicating logic doesn't make things cleaner. It means that all conversions
551%D will get a language argument too. However, we permit definitions at the \TEX\ end
552%D so we have to provide some hybrid method.
553
554% checkedconversion(method,n,language)
555
556\permanent\tolerant\protected\def\defineconversion[#1]#*[#2]#*[#3]% from now on global (maybe local again some day)
557  {\ifparameter#3\or
558     \syst_converters_define_conversion_indeed{#1#2}{#1:#2}{#3}%
559   \else
560     \syst_converters_define_conversion_indeed{#1}{#1}{#2}%
561   \fi}
562
563\def\syst_converters_define_conversion_indeed#1#2#3%
564  {\doifelseinstring{,}{\detokenize{#3}}
565     {\clf_defineconversion{#2}{\detokenize{#3}}% a set e.g. of symbols
566      \setgvalue{\??conversion#1}{\syst_converters_checked_conversion{#2}}}
567     {\setgvalue{\??conversion#1}{#3}}}
568
569\def\syst_converters_checked_conversion#1#2%
570  {\clf_checkedconversion{#1}\numexpr#2\relax}
571
572%D If a conversion is just a font switch then we need to make sure that the number
573%D is indeed ends up as number in the input, so we need to handle the second
574%D argument.
575
576\permanent\def\convertnumber#1#2% expandable
577  {\csname\??conversionarguments
578     \ifcsname\??conversion\currentlanguage#1\endcsname1\else
579     \ifcsname\??conversion                #1\endcsname2\else
580                                                       3\fi\fi
581   \endcsname{#1}{\number#2}}
582
583\permanent\protected\def\uconvertnumber % unexpandable
584  {\convertnumber}
585
586\setvalue{\??conversionarguments1}#1{\csname\??conversion\currentlanguage#1\endcsname}
587\setvalue{\??conversionarguments2}#1{\csname\??conversion                #1\endcsname}
588\letvalue{\??conversionarguments3}\syst_converters_checked_conversion
589
590% we can also add a \ctxcommand{doifelseconversion("#1","\currentlanguage")} to check
591% if we have definitions that are not matched at the lua end .. eventually we might do
592% that when more shows up
593
594\permanent\def\doifelseconversiondefined#1% expandable
595  {\ifcsname\??conversion\currentlanguage#1\endcsname
596     \expandafter\firstoftwoarguments
597   \orelse\ifcsname\??conversion#1\endcsname
598     \expandafter\firstoftwoarguments
599   \else
600     \expandafter\secondoftwoarguments
601   \fi}
602
603\permanent\def\doifelseconversionnumber#1#2% expandable
604  {\ifnum#2>\numexpr\clf_nofconversions{#1}\relax
605     \expandafter\secondoftwoarguments
606   \else
607     \expandafter\firstoftwoarguments
608   \fi}
609
610\aliased\let\doifconversiondefinedelse\doifelseconversiondefined
611\aliased\let\doifconversionnumberelse \doifelseconversionnumber
612
613%D Handy.
614
615\setvalue{\??conversionwords\v!one  }{1}
616\setvalue{\??conversionwords\v!two  }{2}
617\setvalue{\??conversionwords\v!three}{3}
618\setvalue{\??conversionwords\v!four }{4}
619\setvalue{\??conversionwords\v!five }{5}
620
621%permanent\def\wordtonumber#1#2{\ifcsname\??conversionwords#1\endcsname\csname\??conversionwords#1\endcsname\else#2\fi}
622\permanent\def\wordtonumber#1#2{\ifcsname\??conversionwords#1\endcsname\lastnamedcs\else#2\fi}
623
624% \defineconversion[ctx][c,o,n,t,e,x,t]
625%
626% \doloop{\doifelseconversionnumber{ctx}{\recurselevel}{[\recurselevel]}{\exitloop}}
627
628%D \macros
629%D   {ordinalnumber, highordinalstr, ordinalstr}
630%D
631%D Efficient general ordinal number converters are sometimes difficult to
632%D implement. Fortunately dates never exceed the number~31.
633
634\permanent\def\highordinalstr#1{\high{\notsmallcapped{#1}}}
635\permanent\def\ordinalstr    #1{\notsmallcapped{#1}}
636\permanent\def\ordinalnumber #1{\clf_ordinal\numexpr#1\relax{\currentlanguage}}
637\permanent\def\Ordinalnumber #1{\Words{\clf_ordinal\numexpr#1\relax{\currentlanguage}}}
638
639\mutable\let\verbosenumberconnector\space
640
641\permanent\def\verbosenumber#1{\clf_verbose\numexpr#1\relax{\currentlanguage}{\verbosenumberconnector}}
642\permanent\def\VerboseNumber#1{\Words{\clf_verbose\numexpr#1\relax{\currentlanguage}{\verbosenumberconnector}}}
643
644%D As longs as symbols are linked to levels or numbers, we can also use the
645%D conversion mechanism, but in for instance the itemization macros, we prefer
646%D symbols because they can more easier be (partially) redefined. Symbols are
647%D implemented in another module.
648
649\permanent\def\smallcappedromannumerals#1{\smallcapped{\romannumerals{#1}}}
650\permanent\def\smallcappedcharacters   #1{\smallcapped{\characters   {#1}}}
651
652\defineconversion []                     [\numbers] % the default conversion
653\defineconversion [\v!empty]             [\gobbleoneargument]
654\defineconversion [\v!none]              [\numbers]
655\defineconversion [\s!default]           [\numbers]
656
\defineconversion [month]                [\monthlong]
\defineconversion [month:mnem]           [\monthshort]
659
660\defineconversion [\v!character]         [\character]
661\defineconversion [\v!Character]         [\Character]
662
663\defineconversion [\v!characters]        [\characters]
664\defineconversion [\v!Characters]        [\Characters]
665
666\defineconversion [a]                    [\alphabeticnumerals]
667\defineconversion [A]                    [\Alphabeticnumerals]
668\defineconversion [AK]                   [\smallcappedcharacters]
669\defineconversion [KA]                   [\smallcappedcharacters]
670
671\defineconversion [\v!alphabetic]        [\alphabeticnumerals]
672\defineconversion [\v!Alphabetic]        [\Alphabeticnumerals]
673
674\defineconversion [\v!number]            [\numbers]
675\defineconversion [\v!numbers]           [\numbers]
676\defineconversion [\v!Numbers]           [\Numbers]
677\defineconversion [\v!mediaeval]         [\mediaeval]
678
679\defineconversion [\v!word]              [\verbosenumber]
680\defineconversion [\v!words]             [\verbosenumber]
681
682\defineconversion [\v!Word]              [\VerboseNumber]
683\defineconversion [\v!Words]             [\VerboseNumber]
684
685\defineconversion[\v!ordinal]            [\ordinalnumber]
686\defineconversion[\v!Ordinal]            [\Ordinalnumber]
687
688\defineconversion [n]                    [\numbers]
689\defineconversion [N]                    [\Numbers]
690\defineconversion [m]                    [\mediaeval]
691\defineconversion [o]                    [\oldstylenumerals]
692\defineconversion [O]                    [\oldstylenumerals]
693\defineconversion [or]                   [\oldstyleromannumerals]
694
695\defineconversion [\v!romannumerals]     [\romannumerals]
696\defineconversion [\v!Romannumerals]     [\Romannumerals]
697
698\defineconversion [i]                    [\romannumerals]
699\defineconversion [I]                    [\Romannumerals]
700\defineconversion [r]                    [\romannumerals]
701\defineconversion [R]                    [\Romannumerals]
702
703\defineconversion [KR]                   [\smallcappedromannumerals]
704\defineconversion [RK]                   [\smallcappedromannumerals]
705
706\defineconversion [\v!greek]             [\greeknumerals]
707\defineconversion [\v!Greek]             [\Greeknumerals]
708
709\defineconversion [g]                    [\greeknumerals]
710\defineconversion [G]                    [\Greeknumerals]
711
712%defineconversion [ñ]                    [\spanishnumerals]
713%defineconversion [Ñ]                    [\Spanishnumerals]
714
715\defineconversion [abjadnumerals]        [\abjadnumerals]
716\defineconversion [abjadnodotnumerals]   [\abjadnodotnumerals]
717\defineconversion [abjadnaivenumerals]   [\abjadnaivenumerals]
718
719\defineconversion [hebrewnumerals]       [\hebrewnumerals]
720\defineconversion [yiddishnumerals]      [\yiddishnumerals]
721
722% users can do: \defineconversion [he] [\hebrewnumerals]
723% users can do: \defineconversion [yi] [\hebrewnumerals]
724
725\defineconversion [thainumerals]         [\thainumerals]
726\defineconversion [devanagarinumerals]   [\devanagarinumerals]
727\defineconversion [gurmurkhinumerals]    [\gurmurkhinumerals]
728\defineconversion [gujaratinumerals]     [\gujaratinumerals]
729\defineconversion [tibetannumerals]      [\tibetannumerals]
730\defineconversion [greeknumerals]        [\greeknumerals]
731\defineconversion [Greeknumerals]        [\Greeknumerals]
732\defineconversion [arabicnumerals]       [\arabicnumerals]
733\defineconversion [persiannumerals]      [\persiannumerals]
734\defineconversion [arabicexnumerals]     [\arabicexnumerals]
735\defineconversion [arabicdecimals]       [\arabicdecimals]
736\defineconversion [persiandecimals]      [\persiandecimals]
737
738\defineconversion [koreannumerals]       [\koreannumerals]
739\defineconversion [koreanparennumerals]  [\koreanparenthesisnumerals] % for old times sake (for a while)
740\defineconversion [koreanparenthesisnumerals]
741                                         [\koreanparenthesisnumerals]
742\defineconversion [koreancirclenumerals] [\koreancirclenumerals]
743
744\defineconversion [kr]                   [\koreannumerals]
745\defineconversion [kr-p]                 [\koreanparentnumerals]
746\defineconversion [kr-c]                 [\koreancirclenumerals]
747
748\defineconversion [chinesenumerals]      [\chinesenumerals]
749\defineconversion [chinesecapnumerals]   [\chinesecapnumerals]
750\defineconversion [chineseallnumerals]   [\chineseallnumerals]
751
752\defineconversion [cn]                   [\chinesenumerals]
753\defineconversion [cn-c]                 [\chinesecapnumerals]
754\defineconversion [cn-a]                 [\chineseallnumerals]
755
756%D Moved from lang-def.mkiv:
757%D
758%D Define these as the general character enumeration when language is Slovenian. If
759%D you feel uncomfortable with this, mail Mojca, since she promised to to take the
760%D heat. Pablo was next to request this. We changed characters to numerals for this
761%D feature. We do need these definitions for mechanisms like itemize that check
762%D for converters.
763
764\permanent\def\sloveniannumerals#1{\clf_alphabetic\numexpr#1\relax{sl}}
765\permanent\def\slovenianNumerals#1{\clf_Alphabetic\numexpr#1\relax{sl}}
766
767\permanent\def\spanishnumerals  #1{\clf_alphabetic\numexpr#1\relax{es}}
768\permanent\def\spanishNumerals  #1{\clf_Alphabetic\numexpr#1\relax{es}}
769
770\permanent\def\russiannumerals  #1{\clf_alphabetic\numexpr#1\relax{ru}}
771\permanent\def\russianNumerals  #1{\clf_Alphabetic\numexpr#1\relax{ru}}
772
773%defineconversion [\s!sl] [character]  [\sloveniannumerals]
774%defineconversion [\s!sl] [Character]  [\slovenianNumerals]
775%defineconversion [\s!sl] [characters] [\sloveniannumerals]
776%defineconversion [\s!sl] [Characters] [\slovenianNumerals]
777
778\defineconversion [\s!sl] [alphabetic] [\sloveniannumerals]
779\defineconversion [\s!sl] [Alphabetic] [\slovenianNumerals]
780
781\defineconversion [\s!sl] [a]          [\sloveniannumerals]
782\defineconversion [\s!sl] [A]          [\slovenianNumerals]
783\defineconversion [\s!sl] [AK]         [\smallcapped\sloveniannumerals]
784\defineconversion [\s!sl] [KA]         [\smallcapped\sloveniannumerals]
785
786%defineconversion [\s!es] [character]  [\spanishnumerals]
787%defineconversion [\s!es] [Character]  [\spanishNumerals]
788%defineconversion [\s!es] [characters] [\spanishnumerals]
789%defineconversion [\s!es] [Characters] [\spanishNumerals]
790
791\defineconversion [\s!es] [alphabetic] [\spanishnumerals]
792\defineconversion [\s!es] [Alphabetic] [\spanishNumerals]
793
794\defineconversion [\s!es] [a]          [\spanishnumerals]
795\defineconversion [\s!es] [A]          [\spanishNumerals]
796\defineconversion [\s!es] [AK]         [\smallcapped\spanishnumerals]
797\defineconversion [\s!es] [KA]         [\smallcapped\spanishnumerals]
798
799%defineconversion [\s!ru] [character]  [\russiannumerals]
800%defineconversion [\s!ru] [Character]  [\russianNumerals]
801%defineconversion [\s!ru] [characters] [\russiannumerals]
802%defineconversion [\s!ru] [Characters] [\russianNumerals]
803
804\defineconversion [\s!ru] [alphabetic] [\russiannumerals]
805\defineconversion [\s!ru] [Alphabetic] [\russianNumerals]
806
807\defineconversion [\s!ru] [a]          [\russiannumerals]
808\defineconversion [\s!ru] [A]          [\russianNumerals]
809\defineconversion [\s!ru] [AK]         [\smallcapped\russiannumerals]
810\defineconversion [\s!ru] [KA]         [\smallcapped\russiannumerals]
811
812\defineconversion [sloveniannumerals]  [\sloveniannumerals]
813\defineconversion [slovenianNumerals]  [\slovenianNumerals]
814
815\defineconversion [spanishnumerals]    [\spanishnumerals]
816\defineconversion [spanishNumerals]    [\spanishNumerals]
817
818\defineconversion [russiannumerals]    [\russiannumerals]
819\defineconversion [russianNumerals]    [\russianNumerals]
820
821%D In case a font has no greek (WS):
822
823\defineconversion [mathgreek]
824  [\m{α},\m{β},\m{γ},\m{δ},\m{ε},\m{ζ},
825   \m{η},\m{θ},\m{ι},\m{κ},\m{λ},\m{μ},
826   \m{ν},\m{ξ},\m{ο},\m{π},\m{ρ},\m{σ},
827   \m{τ},\m{υ},\m{φ},\m{χ},\m{ψ},\m{ω}]
828
829%D Handy too (expanded!):
830
831\permanent\def\unihex#1{\clf_unihex\numexpr#1\relax}
832
833%D Symbol sets:
834
835\ifdefined\symbol \else \def\symbol[#1]{#1} \fi % todo
836
837% \defineconversion
838%   [set 0]
839%   [{\symbol[bullet]},
840%    {\symbol[dash]},
841%    {\symbol[star]},
842%    {\symbol[triangle]},
843%    {\symbol[circle]},
844%    {\symbol[medcircle]},
845%    {\symbol[bigcircle]},
846%    {\symbol[square]},
847%    {\symbol[checkmark]}]
848
849% \defineconversion
850%   [set 1]
851%   [\mathematics{\star},
852%    \mathematics{\star\star},
853%    \mathematics{\star\star\star},
854%    \mathematics{\ddagger},
855%    \mathematics{\ddagger\ddagger},
856%    \mathematics{\ddagger\ddagger\ddagger},
857%    \mathematics{\ast},
858%    \mathematics{\ast\ast},
859%    \mathematics{\ast\ast\ast}]
860%
861% \defineconversion
862%   [set 2]
863%   [\mathematics{\ast},
864%    \mathematics{\dag},
865%    \mathematics{\ddag},
866%    \mathematics{\ast\ast},
867%    \mathematics{\dag\dag},
868%    \mathematics{\ddag\ddag},
869%    \mathematics{\ast\ast\ast},
870%    \mathematics{\dag\dag\dag},
871%    \mathematics{\ddag\ddag\ddag},
872%    \mathematics{\ast\ast\ast\ast},
873%    \mathematics{\dag\dag\dag\dag},
874%    \mathematics{\ddag\ddag\ddag\ddag}]
875%
876% \defineconversion
877%   [set 3]
878%   [\mathematics{\star},
879%    \mathematics{\star\star},
880%    \mathematics{\star\star\star},
881%    \mathematics{\ddagger},
882%    \mathematics{\ddagger\ddagger},
883%    \mathematics{\ddagger\ddagger\ddagger},
884%    \mathematics{\P},
885%    \mathematics{\P\P},
886%    \mathematics{\P\P\P},
887%    \mathematics{\S},
888%    \mathematics{\S\S},
889%    \mathematics{\S\S\S},
890%    \mathematics{\ast},
891%    \mathematics{\ast\ast},
892%    \mathematics{\ast\ast\ast}]
893
894\defineconversion
895  [set 0]
896  [\symbol{bullet},
897   \symbol{dash},
898   \symbol{star},
899   \symbol{triangle},
900   \symbol{circle},
901   \symbol{medcircle},
902   \symbol{bigcircle},
903   \symbol{square},
904   \symbol{checkmark}]
905
906\defineconversion
907  [set 1]
908  [\textormathchars{⋆},
909   \textormathchars{⋆⋆},
910   \textormathchars{⋆⋆⋆},
911   \textormathchars{‡},
912   \textormathchars{‡‡},
913   \textormathchars{‡‡‡},
914   \textormathchars{∗},
915   \textormathchars{∗∗},
916   \textormathchars{∗∗∗}]
917
918\defineconversion
919  [set 2]
920  [\textormathchars{∗},
921   \textormathchars{†},
922   \textormathchars{‡},
923   \textormathchars{∗∗},
924   \textormathchars{††},
925   \textormathchars{‡‡},
926   \textormathchars{∗∗∗},
927   \textormathchars{†††},
928   \textormathchars{‡‡‡},
929   \textormathchars{∗∗∗∗},
930   \textormathchars{††††},
931   \textormathchars{‡‡‡‡}]
932
933\defineconversion
934  [set 3]
935  [\textormathchars{⋆},
936   \textormathchars{⋆⋆},
937   \textormathchars{⋆⋆⋆},
938   \textormathchars{‡},
939   \textormathchars{‡‡},
940   \textormathchars{‡‡‡},
941   \textormathchars{¶},
942   \textormathchars{¶¶},
943   \textormathchars{¶¶¶},
944   \textormathchars{§},
945   \textormathchars{§§},
946   \textormathchars{§§§},
947   \textormathchars{∗},
948   \textormathchars{∗∗},
949   \textormathchars{∗∗∗}]
950
951%D Iteration of suggestion by WS on mailinglist 2010.12.22:
952%D
953%D \starttyping
954%D \setupfloatsplitting[conversion=continued]
955%D \stoptyping
956
957\permanent\protected\def\continuednumber#1%
958  {\labeltext{\ifcase#1\or\else\v!continued\fi}}
959
960\defineconversion
961  [\v!continued]
962  [\continuednumber]
963
964%D Taken from x-asciimath (see digits-001.tex for an example):
965
966\mutable\let\spaceddigitsmethod   \empty % alternative methods   : 1 default, 2 and 3 only when > 4
967\mutable\let\spaceddigitssymbol   \empty % extra splitter symbol : {,}
968\mutable\let\spaceddigitsseparator\empty % separator symbol      : {\Uchar{"2008}}
969
970\permanent\protected\def\spaceddigits#1%
971  {\clf_spaceddigits
972      method    {\spaceddigitsmethod}%
973      symbol    {\spaceddigitssymbol}%
974      separator {\spaceddigitsseparator}%
975      data      {#1}%
976   \relax}
977
978%D For those who sart counting at zero:
979%D
980%D \starttyping
981%D \defineconversionset [zero] [n,zero] [n]
982%D
983%D \setuphead [sectionconversionset=zero]
984%D
985%D \starttext
986%D     \startchapter [title=Introduction]
987%D         \startsection [title=First topic]  \stopsection
988%D         \startsection [title=Second topic] \stopsection
989%D     \stopchapter
990%D \stoptext
991%D \stoptyping
992
993\permanent\def\zeronumberconversion#1{\number\numexpr#1-\plusone\relax}
994
995\defineconversion [zero] [\zeronumberconversion]
996
997\protect \endinput
998