1if not modules then modules = { } end modules ['syst-con'] = {
2 version = 1.001,
3 comment = "companion to syst-con.mkiv",
4 author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
5 copyright = "PRAGMA ADE / ConTeXt Development Team",
6 license = "see context related readme files"
7}
8
9local tonumber = tonumber
10local math = math
11local utfchar = utf.char
12local gsub = string.gsub
13
14converters = converters or { }
15local converters = converters
16
17local context = context
18local commands = commands
19local implement = interfaces.implement
20
21local formatters = string.formatters
22
23
27
28function converters.hexstringtonumber(n) tonumber(n,16) end
29function converters.octstringtonumber(n) tonumber(n, 8) end
30
31function converters.rawcharacter (n) utfchar(0x110000+n) end
32
33local f_lchexnumber = formatters["%x"]
34local f_uchexnumber = formatters["%X"]
35local f_lchexnumbers = formatters["%02x"]
36local f_uchexnumbers = formatters["%02X"]
37local f_octnumber = formatters["%03o"]
38local nicenumber = formatters["%0.6F"]
39
40local lchexnumber = function(n) if n < 0 then n = 0x100000000 + n end return f_lchexnumber (n) end
41local uchexnumber = function(n) if n < 0 then n = 0x100000000 + n end return f_uchexnumber (n) end
42local lchexnumbers = function(n) if n < 0 then n = 0x100000000 + n end return f_lchexnumbers(n) end
43local uchexnumbers = function(n) if n < 0 then n = 0x100000000 + n end return f_uchexnumbers(n) end
44local octnumber = function(n) if n < 0 then n = 0x100000000 + n end return f_octnumber (n) end
45
46converters.lchexnumber = lchexnumber
47converters.uchexnumber = uchexnumber
48converters.lchexnumbers = lchexnumbers
49converters.uchexnumbers = uchexnumbers
50converters.octnumber = octnumber
51converters.nicenumber = nicenumber
52
53implement { name = "hexstringtonumber", actions = { tonumber, context }, arguments = { "integer", 16 } }
54implement { name = "octstringtonumber", actions = { tonumber, context }, arguments = { "integer", 8 } }
55
56implement { name = "rawcharacter", actions = function(n) context(utfchar(0x110000+n)) end, arguments = "integer" }
57
58implement { name = "lchexnumber", actions = { lchexnumber, context }, arguments = "integer" }
59implement { name = "uchexnumber", actions = { uchexnumber, context }, arguments = "integer" }
60implement { name = "lchexnumbers", actions = { lchexnumbers, context }, arguments = "integer" }
61implement { name = "uchexnumbers", actions = { uchexnumbers, context }, arguments = "integer" }
62implement { name = "octnumber", actions = { octnumber, context }, arguments = "integer" }
63
64implement { name = "sin", actions = { math.sin, nicenumber, context }, arguments = "number" }
65implement { name = "cos", actions = { math.cos, nicenumber, context }, arguments = "number" }
66implement { name = "tan", actions = { math.tan, nicenumber, context }, arguments = "number" }
67
68implement { name = "sind", actions = { math.sind, nicenumber, context }, arguments = "number" }
69implement { name = "cosd", actions = { math.cosd, nicenumber, context }, arguments = "number" }
70implement { name = "tand", actions = { math.tand, nicenumber, context }, arguments = "number" }
71
72
73
74function commands.format(fmt,...) context((gsub(fmt,"@","%%")),...) end
75
76implement {
77 name = "formatone",
78 public = true,
79 protected = true,
80 arguments = "2 strings",
81 actions = function(f,s) context((gsub(f,"@","%%")),s) end,
82}
83 |