summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/core-con.mkiv
blob: 390f9c5959b49c2937b26b3e7db1ae885c164947 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
%D \module
%D   [       file=core-con,
%D        version=2006.09.16,
%D          title=\CONTEXT\ Core Macros,
%D       subtitle=Conversion 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.

\unprotect

\registerctxluafile{core-con}{1.001}

\def\romannumerals#1{\ctxlua{converters.romannumerals(\number#1)}}
\def\Romannumerals#1{\ctxlua{converters.Romannumerals(\number#1)}}

\def\greeknumerals#1{\ctxlua{converters.alphabetic(\number#1,"gr")}}
\def\Greeknumerals#1{\ctxlua{converters.Alphabetic(\number#1,"gr")}}

\def\character #1{\ctxlua{converters.character (\number#1)}}
\def\Character #1{\ctxlua{converters.Character (\number#1)}}
\def\characters#1{\ctxlua{converters.characters(\number#1)}}
\def\Characters#1{\ctxlua{converters.Characters(\number#1)}}

\def\languagecharacters#1{\ctxlua{converters.alphabetic(\number#1,"\currentlanguage")}} % new
\def\languageCharacters#1{\ctxlua{converters.Alphabetic(\number#1,"\currentlanguage")}} % new

\def\getdayoftheweek#1#2#3{\normalweekday\ctxlua{converters.weekday(\number#1,\number#2,\number#3)}}
\def\dayoftheweek   #1#2#3{\doconvertday{\ctxlua{converters.weekday(\number#1,\number#2,\number#3)}}}

\def\doifleapyearelse#1%
  {\ifcase\ctxlua{converters.leapyear(\number#1)}
     \@EA\secondoftwoarguments
   \else
     \@EA\firstoftwoarguments
   \fi}

\def\getdayspermonth#1#2%
  {\edef\numberofdays{\ctxlua{converters.nofdays(\number#1,\number#2)}}}

\def\dayspermonth#1#2%
  {\ctxlua{converters.nofdays(\number#1,\number#2)}}

\def\calculatecurrenttime
  {\edef\currenthour  {\ctxlua{converters.hour  ()}}%
   \edef\currentminute{\ctxlua{converters.minute()}}%
   \edef\currentsecond{\ctxlua{converters.second()}}}

% problem is that we calculate with those numbers
%
% \def\time {\numexpr\ctxlua{converters.textime()}\relax}
% \def\year {\numexpr\ctxlua{converters.year   ()}\relax}
% \def\month{\numexpr\ctxlua{converters.month  ()}\relax}
% \def\day  {\numexpr\ctxlua{converters.day    ()}\relax}

% \dayoftheweek{2006}{9}{15}
% \doifleapyearelse{2000}{OK}{NOT OK}
% \doifleapyearelse{2100}{NOT OK}{OK}
% \doifleapyearelse{2004}{OK}{NOT OK}
% \doifleapyearelse{2003}{NOT OK}{OK}
% \dayspermonth{2000}{2}
% [\the\normaltime=\the\time]

% we could use an auxiliary macro to save some bytes in the format
%
% \def\dolanguagecharacters#1#2{\ctxlua{converters.alphabetic(\number#2,"#1")}}

% this does not belong here, but in a lang-module

\def\arabicnumerals    #1{\ctxlua{converters.alphabetic(\number#1,"arabic")}}
\def\persiannumerals   #1{\ctxlua{converters.alphabetic(\number#1,"persian")}}
\def\thainumerals      #1{\ctxlua{converters.alphabetic(\number#1,"thai")}}
\def\devanagarinumerals#1{\ctxlua{converters.alphabetic(\number#1,"devanagari")}}
\def\gurmurkhinumerals #1{\ctxlua{converters.alphabetic(\number#1,"gurmurkhi")}}
\def\gujaratinumerals  #1{\ctxlua{converters.alphabetic(\number#1,"gujarati")}}
\def\tibetannumerals   #1{\ctxlua{converters.alphabetic(\number#1,"tibetan")}}

\defineconversion[arabicnumerals]    [\arabicnumerals]
\defineconversion[persiannumerals]   [\persiannumerals]
\defineconversion[thainumerals]      [\thainumerals]
\defineconversion[devanagarinumerals][\devanagarinumerals]
\defineconversion[gurmurkhinumerals] [\gurmurkhinumerals]
\defineconversion[gujaratinumerals]  [\gujaratinumerals]
\defineconversion[tibetannumerals]   [\tibetannumerals]

\protect \endinput