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
|
if not modules then modules = { } end modules ['syst-con'] = {
version = 1.001,
comment = "companion to syst-con.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
converters = converters or { }
--[[ldx--
<p>For raw 8 bit characters, the offset is 0x110000 (bottom of plane 18) at
the top of <l n='luatex'/>'s char range but outside the unicode range.</p>
--ldx]]--
local tonumber = tonumber
local utfchar = utf.char
local gsub, format = string.gsub, string.format
function converters.hexstringtonumber(n) tonumber(n,16) end
function converters.octstringtonumber(n) tonumber(n, 8) end
function converters.rawcharacter (n) utfchar(0x110000+n) end
function converters.lchexnumber (n) format("%x" ,n) end
function converters.uchexnumber (n) format("%X" ,n) end
function converters.lchexnumbers (n) format("%02x",n) end
function converters.uchexnumbers (n) format("%02X",n) end
function converters.octnumber (n) format("%03o",n) end
function commands.hexstringtonumber(n) context(tonumber(n,16)) end
function commands.octstringtonumber(n) context(tonumber(n, 8)) end
function commands.rawcharacter (n) context(utfchar(0x110000+n)) end
function commands.lchexnumber (n) context("%x" ,n) end
function commands.uchexnumber (n) context("%X" ,n) end
function commands.lchexnumbers (n) context("%02x",n) end
function commands.uchexnumbers (n) context("%02X",n) end
function commands.octnumber (n) context("%03o",n) end
function commands.format(fmt,...) -- used ?
fmt = gsub(fmt,"@","%%")
context(fmt,...)
end
local cosd, sind, tand = math.cosd, math.sind, math.tand
local cos, sin, tan = math.cos, math.sin, math.tan
-- function commands.sind(n) context("%0.6f",sind(n)) end
-- function commands.cosd(n) context("%0.6f",cosd(n)) end
-- function commands.tand(n) context("%0.6f",tand(n)) end
-- function commands.sin (n) context("%0.6f",sin (n)) end
-- function commands.cos (n) context("%0.6f",cos (n)) end
-- function commands.tan (n) context("%0.6f",tan (n)) end
function commands.sind(n) context(sind(n)) end
function commands.cosd(n) context(cosd(n)) end
function commands.tand(n) context(tand(n)) end
function commands.sin (n) context(sin (n)) end
function commands.cos (n) context(cos (n)) end
function commands.tan (n) context(tan (n)) end
|