From 13ec4b540e0d46c97fd7b089e0b7413da81e0a9f Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Sun, 19 May 2013 20:40:34 +0300
Subject: beta 2013.05.19 19:27

---
 tex/context/base/cldf-prs.lua | 108 +++++++++++++++++++++---------------------
 1 file changed, 54 insertions(+), 54 deletions(-)

(limited to 'tex/context/base/cldf-prs.lua')

diff --git a/tex/context/base/cldf-prs.lua b/tex/context/base/cldf-prs.lua
index 9fbdba0c8..7715e8695 100644
--- a/tex/context/base/cldf-prs.lua
+++ b/tex/context/base/cldf-prs.lua
@@ -1,54 +1,54 @@
-if not modules then modules = { } end modules ['cldf-bas'] = {
-    version   = 1.001,
-    comment   = "companion to cldf-ini.mkiv",
-    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
-    copyright = "PRAGMA ADE / ConTeXt Development Team",
-    license   = "see context related readme files"
-}
-
-local lpegmatch, patterns = lpeg.match, lpeg.patterns
-local P, R, V, Cc, Cs = lpeg.P, lpeg.R, lpeg.V, lpeg.Cc, lpeg.Cs
-local format = string.format
-
-local cpatterns    = patterns.context or { }
-patterns.context   = cpatterns
-
-local backslash    = P("\\")
-local csname       = backslash * P(1) * (1-backslash)^0
-local sign         = P("+") / "\\textplus "
-                   + P("-") / "\\textminus "
-local leftbrace    = P("{")
-local rightbrace   = P("}")
-local nested       = P { leftbrace * (V(1) + (1-rightbrace))^0 * rightbrace }
-local subscript    = P("_")
-local superscript  = P("^")
-local utf8char     = patterns.utf8char
-local cardinal     = patterns.cardinal
-
--- local scripts   = P { "start",
---                       start     = V("csname") + V("lowfirst") + V("highfirst"),
---                       csname    = csname,
---                       content   = Cs(V("csname") + nested + sign^-1 * (cardinal + utf8char)),
---                       lowfirst  = subscript   * ( Cc("\\lohi{%s}{%s}") * V("content") * superscript + Cc("\\low{%s}" ) ) * V("content") / format,
---                       highfirst = superscript * ( Cc("\\hilo{%s}{%s}") * V("content") * subscript   + Cc("\\high{%s}") ) * V("content") / format,
---                   }
-
-local scripts      = P { "start",
-                         start     = V("csname") + V("lowfirst") + V("highfirst"),
-                         csname    = csname,
-                         content   = Cs(V("csname") + nested + sign^-1 * (cardinal + utf8char)),
-                         lowfirst  = (subscript  /"") * ( Cc("\\lohi{") * V("content") * Cc("}{") * (superscript/"") + Cc("\\low{" ) ) * V("content") * Cc("}"),
-                         highfirst = (superscript/"") * ( Cc("\\hilo{") * V("content") * Cc("}{") * (subscript  /"") + Cc("\\high{") ) * V("content") * Cc("}"),
-                     }
-
-local scripted     = Cs((csname + scripts + utf8char)^0)
-
-cpatterns.scripts  = scripts
-cpatterns.csname   = csname
-cpatterns.scripted = scripted
-cpatterns.nested   = nested
-
--- inspect(scripted)
--- print(lpegmatch(scripted,"10^-3_x"))
--- print(lpegmatch(scripted,"10^-a"))
-
+if not modules then modules = { } end modules ['cldf-bas'] = {
+    version   = 1.001,
+    comment   = "companion to cldf-ini.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local lpegmatch, patterns = lpeg.match, lpeg.patterns
+local P, R, V, Cc, Cs = lpeg.P, lpeg.R, lpeg.V, lpeg.Cc, lpeg.Cs
+local format = string.format
+
+local cpatterns    = patterns.context or { }
+patterns.context   = cpatterns
+
+local backslash    = P("\\")
+local csname       = backslash * P(1) * (1-backslash)^0
+local sign         = P("+") / "\\textplus "
+                   + P("-") / "\\textminus "
+local leftbrace    = P("{")
+local rightbrace   = P("}")
+local nested       = P { leftbrace * (V(1) + (1-rightbrace))^0 * rightbrace }
+local subscript    = P("_")
+local superscript  = P("^")
+local utf8char     = patterns.utf8char
+local cardinal     = patterns.cardinal
+
+-- local scripts   = P { "start",
+--                       start     = V("csname") + V("lowfirst") + V("highfirst"),
+--                       csname    = csname,
+--                       content   = Cs(V("csname") + nested + sign^-1 * (cardinal + utf8char)),
+--                       lowfirst  = subscript   * ( Cc("\\lohi{%s}{%s}") * V("content") * superscript + Cc("\\low{%s}" ) ) * V("content") / format,
+--                       highfirst = superscript * ( Cc("\\hilo{%s}{%s}") * V("content") * subscript   + Cc("\\high{%s}") ) * V("content") / format,
+--                   }
+
+local scripts      = P { "start",
+                         start     = V("csname") + V("lowfirst") + V("highfirst"),
+                         csname    = csname,
+                         content   = Cs(V("csname") + nested + sign^-1 * (cardinal + utf8char)),
+                         lowfirst  = (subscript  /"") * ( Cc("\\lohi{") * V("content") * Cc("}{") * (superscript/"") + Cc("\\low{" ) ) * V("content") * Cc("}"),
+                         highfirst = (superscript/"") * ( Cc("\\hilo{") * V("content") * Cc("}{") * (subscript  /"") + Cc("\\high{") ) * V("content") * Cc("}"),
+                     }
+
+local scripted     = Cs((csname + scripts + utf8char)^0)
+
+cpatterns.scripts  = scripts
+cpatterns.csname   = csname
+cpatterns.scripted = scripted
+cpatterns.nested   = nested
+
+-- inspect(scripted)
+-- print(lpegmatch(scripted,"10^-3_x"))
+-- print(lpegmatch(scripted,"10^-a"))
+
-- 
cgit v1.2.3