arr lib & macro

Author: LingDong-

examples/macro.wy

@@ -0,0 +1,45 @@
+或云「「書「甲」焉」」。
+蓋謂「「吾有一言。曰「甲」。書之」」。
+
+書「「問天地好在」」焉。
+
+注曰「「書「「問天地好在」」焉。」」
+疏曰「「凡居「「」」與『』中之宏。不予展開」」
+
+吾嘗觀「「列經」」之書。方悟「遍施」「篩剔」「左併」之義。
+
+
+吾有一術。名之曰「加一」。欲行是術。必先得一數曰「甲」。是術曰。
+	加一於「甲」。乃得矣。
+是謂「加一」之術也。
+
+吾有一術。名之曰「比三」。欲行是術。必先得一數曰「甲」。是術曰。
+	若「甲」大於三者乃得陽。若非乃得陰也。
+是謂「比三」之術也。
+
+吾有一術。名之曰「相加」。欲行是術。必先得二數曰「甲」曰「乙」。是術曰。
+	加「甲」以「乙」。乃得矣。
+是謂「相加」之術也。
+
+
+吾有一列。名之曰「某列」。充「某列」以一以二以三以四以五以六。
+
+
+施「遍施」於「加一」於「某列」。書之。
+
+凡「某列」皆「加一」其上者。書之。
+
+
+施「篩剔」於「比三」於「某列」。書之。
+
+唯「某列」中得「比三」者。書之。
+
+
+施「左併」於「相加」於零於「某列」。書之。
+
+併「某列」於零以「相加」者。書之。
+
+
+施「左併」於「相加」於零。名之曰「求和」。
+
+施「求和」於「某列」。書之。

lib/列經.wy

@@ -0,0 +1,119 @@
+或云「「凡「甲」皆「乙」其上者」」。
+蓋謂「「施「遍施」於「乙」於「甲」」」
+
+或云「「唯「甲」中得「乙」者」」
+蓋謂「「施「篩剔」於「乙」於「甲」」」
+
+或云「「併「甲」於「乙」以「丙」者」」
+蓋謂「「施「左併」於「丙」於「乙」於「甲」」」
+
+
+今有一術。名之曰「遍施」。欲行是術。必先得一術。曰「甲」。一列。曰「乙」。乃行是術曰。
+	吾有一列。名之曰「丙」。
+	凡「乙」中之「丁」。
+		施「甲」於「丁」。充「丙」以其也。
+	乃得「丙」。
+是謂「遍施」之術也。
+
+
+今有一術。名之曰「篩剔」。欲行是術。必先得一術。曰「甲」。一列。曰「乙」。乃行是術曰。
+	吾有一列。名之曰「丙」。
+	凡「乙」中之「丁」。
+		施「甲」於「丁」。
+		若其者。充「丙」以「丁」也。
+	云云。
+	乃得「丙」。
+是謂「篩剔」之術也。
+
+
+今有一術。名之曰「左併」。欲行是術。必先得一術。曰「甲」。一物。曰「乙」。一列。曰「丙」。乃行是術曰。
+	吾有一物曰「乙」。名之曰「丁」。
+	凡「丙」中之「戊」。
+		施「甲」於「丁」於「戊」。
+		昔之「丁」者。今其是矣。
+	云云。
+	乃得「丁」。
+是謂「左併」之術也。
+
+
+今有一術。名之曰「右併」。欲行是術。必先得一術。曰「甲」。一物。曰「乙」。一列。曰「丙」。乃行是術曰。
+	吾有一物曰「乙」。名之曰「丁」。
+	夫「丙」之長。名之曰「戊」。
+	恆為是。若「戊」小於一者乃止也。
+		夫「丙」之「戊」。夫「丁」。取二以施「甲」。
+		昔之「丁」者。今其是矣。
+	減「戊」以一。昔之「戊」者。今其是矣。云云。
+	乃得「丁」。
+是謂「右併」之術也。
+
+
+今有一術。名之曰「排序」。欲行是術。必先得一術。曰「甲」。一列。曰「乙」。乃行是術曰。
+
+	若「乙」之長不大於一者。乃得「乙」也。
+	吾有三列。名之曰「首」。曰「頷」。曰「尾」。
+
+	夫「乙」之一。名之曰「乙一」。
+	充「頷」以「乙一」。
+	夫「乙」之其餘。名之曰「乙餘」。
+
+	凡「乙餘」中之「丁」。
+		施「甲」於「丁」於「甲一」。
+		若其小於零者。
+			充「首」以「丁」。
+		若非。
+			充「尾」以「丁」
+		也。
+	云云。
+	施「快排」於「首」。昔之「首」者。今其是矣。
+	施「快排」於「尾」。昔之「尾」者。今其是矣。
+
+	銜「首」以「頷」以「尾」。名之曰「丙」。
+	乃得「丙」。
+
+是謂「排序」之術也。
+
+
+今有一術。名之曰「倒序」。欲行是術。必先得一列。曰「甲」。乃行是術曰。
+	吾有一列。名之曰「乙」。
+	夫「甲」之長。名之曰「戊」。
+	恆為是。若「戊」小於一者乃止也。
+		夫「甲」之「戊」。充「乙」以其。
+	減「戊」以一。昔之「戊」者。今其是矣。云云。
+	乃得「乙」。
+是謂「倒序」之術也。
+
+
+今有一術。名之曰「擷取」。欲行是術。必先得一列。曰「甲」。二數。曰「乙」曰「丙」。乃行是術曰。
+	吾有一列。名之曰「丁」。
+	吾有一數。曰「乙」。名之曰「戊」。
+	若「丙」小於零者。夫「甲」之長。加其以「丙」。昔之「丙」者。今其是矣。
+
+	恆為是。若「戊」大於「丙」者乃止也。
+		夫「甲」之「戊」。充「丁」以其。
+	加「戊」以一。昔之「戊」者。今其是矣。云云。
+	乃得「丙」。
+
+是謂「擷取」之術也。
+
+
+今有一術。名之曰「製列」。欲行是術。必先得一數。曰「甲」。一術。曰「乙」。一列。曰「丙」。乃行是術曰。
+	吾有一列。名之曰「丁」。
+	吾有一數曰一。名之曰「戊」。
+
+	恆為是。若「戊」大於「甲」者乃止也。
+		施「乙」於「戊」。充「丁」以其。
+	加「戊」以一。昔之「戊」者。今其是矣。云云。
+	乃得「丁」。
+是謂「製列」之術也。
+
+
+今有一術。名之曰「索一」。欲行是術。必先得一物。曰「甲」。一列。曰「乙」。乃行是術曰。
+	吾有一數曰一。名之曰「戊」。
+	恆為是。若「戊」大於「甲」之長者乃止也。
+		若「乙」等於「甲」之「戊」者。乃得「戊」也。
+	加「戊」以一。昔之「戊」者。今其是矣。云云。
+	乃得負一。
+是謂「索一」之術也。
+
+
+

site/ide.html

@@ -96,6 +96,9 @@ var KEYWORDS_DEFINE = {
   不知何禍歟: ["try", "catchall"],
   乃作罷: ["try", "end"],
 
+  或云: ["macro", "from"],
+  蓋謂: ["macro", "to"],
+
   注曰: ["comment"],
   疏曰: ["comment"],
   批曰: ["comment"]

src/keywords.js

@@ -0,0 +1,157 @@
+function extractMacros(lang, txt, { lib, reader }) {
+  function getImports() {
+    var imps = [];
+    for (var i = 0; i < txt.length; i++) {
+      if (txt[i] == "吾" && txt[i + 1] == "嘗" && txt[i + 2] == "觀") {
+        var imp = txt
+          .slice(i + 3)
+          .split(/[」』]/g)[0]
+          .replace(/[「」『』]/g, "");
+        imps.push(imp);
+      }
+    }
+    return imps;
+  }
+  function getMacros() {
+    var macs = [];
+    var qlvl = 0;
+    for (var i = 0; i < txt.length; i++) {
+      if (txt[i] == "「") {
+        qlvl++;
+      } else if (txt[i] == "」") {
+        qlvl--;
+      } else if (txt[i] == "『") {
+        qlvl += 2;
+      } else if (txt[i] == "』") {
+        qlvl -= 2;
+      }
+      if (qlvl != 0) {
+        continue;
+      }
+      if (txt[i] == "或" && txt[i + 1] == "云") {
+        function grabLit() {
+          var lvl = 0;
+          var s = "";
+          while (true) {
+            if (txt[j] == "「") {
+              lvl++;
+            } else if (txt[j] == "」") {
+              lvl--;
+            } else if (txt[j] == "『") {
+              lvl += 2;
+            } else if (txt[j] == "』") {
+              lvl -= 2;
+            }
+            s += txt[j];
+            j++;
+            if (lvl == 0) {
+              break;
+            }
+            if (j >= txt.length) {
+              return s;
+            }
+          }
+          return s;
+        }
+        var j = i + 2;
+        var s0 = grabLit();
+        while (!(txt[j] == "蓋" && txt[j + 1] == "謂")) {
+          j++;
+          if (j >= txt.length) {
+            return macs;
+          }
+        }
+        j += 2;
+        var s1 = grabLit();
+
+        function stripQuotes(s) {
+          if (s[0] == "「") {
+            s = s.slice(2);
+          } else {
+            s = s.slice(1);
+          }
+          if (s[s.length - 1] == "」") {
+            s = s.slice(0, -2);
+          } else {
+            s = s.slice(0, -1);
+          }
+          return s;
+        }
+        s0 = stripQuotes(s0);
+        s1 = stripQuotes(s1);
+        var ins = s0.match(/「[甲乙丙丁戊己庚辛壬癸]」/g);
+        var ous = s1.match(/「[甲乙丙丁戊己庚辛壬癸]」/g);
+
+        for (var k = 0; k < ous.length; k++) {
+          var ii = ins.indexOf(ous[k]);
+          s1 = s1.replace(new RegExp(ous[k], "g"), `\$${ii + 1}`);
+        }
+        s0 = s0.replace(/「[甲乙丙丁戊己庚辛壬癸]」/g, "(.*?)");
+        macs.push([s0, s1]);
+        i = j;
+      }
+    }
+    return macs;
+  }
+  var imports = getImports();
+  var macros = getMacros();
+  for (var i = 0; i < imports.length; i++) {
+    var isrc;
+    if (imports[i] in lib[lang]) {
+      isrc = lib[lang][imports[i]];
+    } else if (imports[i] in lib) {
+      isrc = lib[imports[i]];
+    } else {
+      isrc = reader(imports[i]);
+    }
+    macros = macros.concat(extractMacros(lang, isrc, { lib, reader }));
+  }
+  return macros;
+}
+
+function expandMacros(txt, macros) {
+  function calclmask(ntxt) {
+    var lmask = [];
+    var qlvl = 0;
+    for (var i = 0; i < ntxt.length; i++) {
+      if (ntxt[i] == "「") {
+        qlvl++;
+      } else if (ntxt[i] == "」") {
+        qlvl--;
+      } else if (ntxt[i] == "『") {
+        qlvl += 2;
+      } else if (ntxt[i] == "』") {
+        qlvl -= 2;
+      }
+      lmask.push(qlvl > 0);
+    }
+    return lmask;
+  }
+  for (var i = 0; i < macros.length; i++) {
+    function doit(ntxt) {
+      var lmask = calclmask(ntxt);
+      var re = new RegExp(macros[i][0]);
+      var idx = ntxt.search(re);
+      if (idx == -1) {
+        return ntxt;
+      }
+      if (lmask[idx]) {
+        // console.log("refused to expand macro inside string")
+        var nxtend = idx;
+        while (lmask[nxtend] == true && nxtend < lmask.length) {
+          nxtend++;
+        }
+        nxtend++;
+        ntxt = ntxt.slice(0, nxtend) + doit(ntxt.slice(nxtend));
+      } else {
+        ntxt = doit(ntxt.replace(re, macros[i][1]));
+      }
+      return ntxt;
+    }
+    txt = doit(txt);
+  }
+  return txt;
+}
+try {
+  module.exports = { extractMacros, expandMacros };
+} catch (e) {}