Source Browser ?

1if not modules then modules = { } end modules ['cldf-bas'] = {
2    version   = 1.001,
3    comment   = "companion to cldf-ini.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
9-- used in chem-ini.lua
10
11local lpegmatch, patterns = lpeg.match, lpeg.patterns
12local P, R, V, Cc, Cs = lpeg.P, lpeg.R, lpeg.V, lpeg.Cc, lpeg.Cs
13local format = string.format
14
15local cpatterns     = patterns.context or { }
16patterns.context    = cpatterns
17
18local utf8character = patterns.utf8character
19local cardinal      = patterns.cardinal
20
21local leftbrace     = P("{")
22local rightbrace    = P("}")
23local backslash     = P("\\")
24local csname        = backslash * P(1) * (1-backslash-leftbrace)^0 * P(" ")^0
25local sign          = P("+") / "\\textplus "
26                    + P("-") / "\\textminus "
27local nested        = P { leftbrace * (V(1) + (1-rightbrace))^0 * rightbrace }
28local subscript     = P("_")
29local superscript   = P("^")
30
31-- local scripts    = P { "start",
32--                        start     = V("csname") + V("lowfirst") + V("highfirst"),
33--                        csname    = csname,
34--                        content   = Cs(V("csname") + nested + sign^-1 * (cardinal + utf8character)),
35--                        lowfirst  = subscript   * ( Cc("\\lohi{%s}{%s}") * V("content") * superscript + Cc("\\low{%s}" ) ) * V("content") / format,
36--                        highfirst = superscript * ( Cc("\\hilo{%s}{%s}") * V("content") * subscript   + Cc("\\high{%s}") ) * V("content") / format,
37--                    }
38
39-- local scripts    = P { "start",
40--                           start     = (V("csname") + V("lowfirst") + V("highfirst"))^1,
41--                           csname    = csname,
42--                           content   = Cs(V("csname") + nested + sign^-1 * (cardinal + utf8character)),
43--                           lowfirst  = (subscript  /"") * ( Cc("\\lohi{") * V("content") * Cc("}{") * (superscript/"") + Cc("\\low{" ) ) * V("content") * Cc("}"),
44--                           highfirst = (superscript/"") * ( Cc("\\hilo{") * V("content") * Cc("}{") * (subscript  /"") + Cc("\\high{") ) * V("content") * Cc("}"),
45--                       }
46
47local scripted      = Cs { "start",
48                          start     = (V("csname") + V("nested") + V("lowfirst") + V("highfirst") + V("character"))^1,
49                          rest      = V("csname") + V("nested") + V("lowfirst") + V("highfirst"),
50                          csname    = csname,
51                          character = utf8character,
52                       -- nested    = leftbrace * (V("rest") + (V("character")-rightbrace))^0 * rightbrace,
53                          nested    = leftbrace * (V("start") -rightbrace)^0 * rightbrace,
54                       -- content   = Cs(V("nested") + sign^-1 * (cardinal + V("character"))),
55                          content   = V("nested") + sign^-1 * (cardinal + V("character")) + sign,
56                          lowfirst  = (subscript  /"") * ( Cc("\\lohi{") * V("content") * Cc("}{") * (superscript/"") + Cc("\\low{" ) ) * V("content") * Cc("}"),
57                          highfirst = (superscript/"") * ( Cc("\\hilo{") * V("content") * Cc("}{") * (subscript  /"") + Cc("\\high{") ) * V("content") * Cc("}"),
58                      }
59
60cpatterns.csname    = csname
61cpatterns.scripted  = scripted
62cpatterns.nested    = nested
63
64-- print(lpegmatch(scripted,"10^-3_x"))
65-- print(lpegmatch(scripted,"\\L {C_5}"))
66-- print(lpegmatch(scripted,"\\SL{}"))
67-- print(lpegmatch(scripted,"\\SL{C_5}"))
68-- print(lpegmatch(scripted,"\\SL{C_5}"))
69-- print(lpegmatch(scripted,"{C_5}"))
70-- print(lpegmatch(scripted,"{\\C_5}"))
71-- print(lpegmatch(scripted,"10^-a"))
72
73