@forthic/interp 0.1.0

package/dist/esm/forthic/interpreter.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"interpreter.js","sourceRoot":"","sources":["../../../src/forthic/interpreter.ts"],"names":[],"mappings":";;;AAyfA,0CASC;AAlgBD,2CAAwE;AACxE,qCAAuE;AACvE,mDAA+C;AAC/C,iDAA8C;AAC9C,2CAA+C;AAO/C,MAAM,eAAgB,SAAQ,aAAI;IAChC,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,IAAI,GAAG,IAAI,CAAC;QAElB,sDAAsD;QACtD,IAAI,IAAI,CAAC,IAAI,KAAK,EAAE,EAAE,CAAC;YACrB,MAAM,CAAC,iBAAiB,CAAC,MAAM,CAAC,cAAc,EAAE,CAAC,CAAC;YAClD,OAAO;QACT,CAAC;QAED,iFAAiF;QACjF,uBAAuB;QACvB,IAAI,MAAM,GAAG,MAAM,CAAC,UAAU,EAAE,CAAC,WAAW,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACxD,IAAI,CAAC,MAAM,EAAE,CAAC;YACZ,MAAM,GAAG,IAAI,eAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAC/B,MAAM,CAAC,UAAU,EAAE,CAAC,eAAe,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;YAEtE,6DAA6D;YAC7D,IAAI,MAAM,CAAC,UAAU,EAAE,CAAC,IAAI,KAAK,EAAE,EAAE,CAAC;gBACpC,MAAM,CAAC,eAAe,CAAC,MAAM,CAAC,CAAC;YACjC,CAAC;QACH,CAAC;QACD,MAAM,CAAC,iBAAiB,CAAC,MAAM,CAAC,CAAC;IACnC,CAAC;CACF;AAED,MAAM,aAAc,SAAQ,aAAI;IAC9B;QACE,KAAK,CAAC,GAAG,CAAC,CAAC;IACb,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,CAAC,gBAAgB,EAAE,CAAC;IAC5B,CAAC;CACF;AAED,MAAM,YAAa,SAAQ,aAAI;IAC7B;QACE,KAAK,CAAC,GAAG,CAAC,CAAC;IACb,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,IAAI,GAAG,MAAM,CAAC,SAAS,EAAE,CAAC;QAC9B,iFAAiF;QACjF,OAAO,IAAI,EAAE,CAAC;YACZ,IAAI,IAAI,YAAY,iBAAK,IAAI,IAAI,CAAC,IAAI,IAAI,qBAAS,CAAC,WAAW;gBAAE,MAAM;YACvE,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjB,IAAI,GAAG,MAAM,CAAC,SAAS,EAAE,CAAC;QAC5B,CAAC;QACD,KAAK,CAAC,OAAO,EAAE,CAAC;QAChB,MAAM,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC;QACzB,OAAO;IACT,CAAC;CACF;AAED,MAAa,WAAW;IAmBtB;QACE,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QAElC,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QAEhB,oGAAoG;QACpG,IAAI,CAAC,aAAa,GAAG,IAAI,4BAAY,CAAC,IAAI,CAAC,CAAC;QAE5C,IAAI,CAAC,UAAU,GAAG,IAAI,eAAM,CAAC,EAAE,EAAE,IAAI,CAAC,CAAC;QACvC,IAAI,CAAC,YAAY,GAAG,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;QACtC,IAAI,CAAC,kBAAkB,GAAG,EAAE,CAAC;QAC7B,IAAI,CAAC,YAAY,GAAG,KAAK,CAAC;QAC1B,IAAI,CAAC,kBAAkB,GAAG,KAAK,CAAC;QAChC,IAAI,CAAC,cAAc,GAAG,IAAI,CAAC;QAC3B,IAAI,CAAC,OAAO,GAAG,EAAE,CAAC;QAElB,eAAe;QACf,IAAI,CAAC,oBAAoB,GAAG,EAAE,CAAC;QAC/B,IAAI,CAAC,YAAY,GAAG,EAAE,CAAC;QAEvB,gBAAgB;QAChB,IAAI,CAAC,eAAe,GAAG,IAAI,CAAC;QAE5B,oBAAoB;QACpB,IAAI,CAAC,WAAW,GAAG,EAAE,CAAC;QACtB,IAAI,CAAC,YAAY,GAAG,KAAK,CAAC;QAC1B,IAAI,CAAC,kBAAkB,GAAG,IAAI,CAAC;QAC/B,IAAI,CAAC,UAAU,GAAG,EAAE,CAAC;IACvB,CAAC;IAED,cAAc;QACZ,OAAO,IAAI,CAAC,UAAU,CAAC;IACzB,CAAC;IAED,oCAAoC;IACpC,mBAAmB;QACjB,OAAO,IAAI,CAAC,eAAe,CAAC;IAC9B,CAAC;IAED,sBAAsB;IACtB,SAAS,CAAC,SAAiB,EAAE,KAA6B;QACxD,IAAI,CAAC,IAAI,CAAC,oBAAoB,EAAE,CAAC;YAC/B,IAAI,CAAC,oBAAoB,GAAG,EAAE,CAAC;QACjC,CAAC;QACD,IAAI,CAAC,IAAI,CAAC,YAAY,EAAE,CAAC;YACvB,IAAI,CAAC,YAAY,GAAG,EAAE,CAAC;QACzB,CAAC;QAED,IAAI,CAAC,oBAAoB,CAAC,SAAS,CAAC,GAAG,KAAK,CAAC;QAC7C,IAAI,CAAC,YAAY,CAAC,SAAS,CAAC,GAAG,KAAK,CAAC;IACvC,CAAC;IAED,SAAS,CAAC,SAAiB;QACzB,MAAM,YAAY,GAAG,IAAI,CAAC,YAAY,CAAC,SAAS,CAAC,IAAI,EAAE,CAAC;QACxD,MAAM,MAAM,GAAG,EAAE,CAAC;QAClB,MAAM,CAAC,IAAI,CAAC,YAAY,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE;YACtC,MAAM,CAAC,CAAC,CAAC,GAAG,YAAY,CAAC,CAAC,CAAC,CAAC;QAC9B,CAAC,CAAC,CAAC;QACH,IAAI,CAAC,YAAY,CAAC,SAAS,CAAC,GAAG,EAAE,GAAG,IAAI,CAAC,oBAAoB,CAAC,SAAS,CAAC,EAAE,CAAC;QAC3E,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,YAAY,CAAC,SAAiB,EAAE,KAA6B;QAC3D,MAAM,YAAY,GAAG,IAAI,CAAC,YAAY,CAAC,SAAS,CAAC,IAAI,EAAE,CAAC;QACxD,IAAI,CAAC,YAAY,CAAC,SAAS,CAAC,GAAG,EAAE,GAAG,YAAY,EAAE,GAAG,KAAK,EAAE,CAAC;IAC/D,CAAC;IAED,KAAK;QACH,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QAChB,IAAI,CAAC,UAAU,CAAC,SAAS,GAAG,EAAE,CAAC;QAE/B,IAAI,CAAC,YAAY,GAAG,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;QACtC,IAAI,CAAC,YAAY,GAAG,KAAK,CAAC;QAC1B,IAAI,CAAC,kBAAkB,GAAG,KAAK,CAAC;QAChC,IAAI,CAAC,cAAc,GAAG,IAAI,CAAC;QAE3B,gBAAgB;QAChB,IAAI,CAAC,eAAe,GAAG,IAAI,CAAC;IAC9B,CAAC;IAGD,kBAAkB,CAAC,WAAmB;QACpC,MAAM,MAAM,GAAG,IAAI,CAAC,OAAO,CAAC,WAAW,CAAC,CAAC;QACzC,IAAI,CAAC,MAAM;YACT,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,0BAA0B,WAAW,GAAG,EACxC,+EAA+E,CAChF,CAAC;QAEJ,MAAM,MAAM,GAAG,MAAM,CAAC;QACtB,OAAO,MAAM,CAAC;IAChB,CAAC;IAGD,KAAK,CAAC,GAAG,CACP,MAAc,EACd,qBAA0C,IAAI;QAE9C,MAAM,SAAS,GAAG,IAAI,qBAAS,CAAC,MAAM,EAAE,kBAAkB,CAAC,CAAC;QAC5D,OAAO,MAAM,IAAI,CAAC,kBAAkB,CAAC,SAAS,CAAC,CAAC;IAClD,CAAC;IAED,KAAK,CAAC,kBAAkB,CAAC,SAAoB;QAC3C,IAAI,KAAY,CAAC;QACjB,GAAG,CAAC;YACF,KAAK,GAAG,SAAS,CAAC,UAAU,EAAE,CAAC;YAC/B,IAAI,CAAC;gBACH,MAAM,IAAI,CAAC,YAAY,CAAC,KAAK,CAAC,CAAC;gBAC/B,IAAI,KAAK,CAAC,IAAI,KAAK,qBAAS,CAAC,GAAG,EAAE,CAAC;oBACjC,MAAM;gBACR,CAAC;gBAED,uGAAuG;gBACvG,IACE,KAAK,CAAC,IAAI,KAAK,qBAAS,CAAC,SAAS;oBAClC,KAAK,CAAC,IAAI,KAAK,qBAAS,CAAC,OAAO;oBAChC,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,OAAO;oBAC/B,IAAI,CAAC,YAAY,EACjB,CAAC;oBACD,SAAS;gBACX,CAAC;YAEH,CAAC;YAAC,OAAO,CAAC,EAAE,CAAC;gBACX,OAAO,CAAC,KAAK,CACX,oBAAoB,EACpB,KAAK,EACL,IAAI,CAAC,eAAe,EACpB,SAAS,CAAC,kBAAkB,CAC7B,CAAC;gBACF,MAAM,KAAK,GAAG,IAAI,2BAAY,CAC5B,iBAAiB,EACjB,qCAAqC,KAAK,CAAC,MAAM,GAAG,EACpD,+FAA+F,EAC/F,KAAK,CAAC,QAAQ,CACf,CAAC;gBACF,KAAK,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;gBAC1B,MAAM,KAAK,CAAC;YACd,CAAC;YACD,iDAAiD;QACnD,CAAC,QAAQ,IAAI,EAAE;QACf,OAAO,IAAI,CAAC,CAAC,iBAAiB;IAChC,CAAC;IAED,UAAU;QACR,MAAM,MAAM,GAAG,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,YAAY,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;QAC/D,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,WAAW,CAAC,IAAY;QACtB,MAAM,MAAM,GAAG,IAAI,CAAC,kBAAkB,CAAC,IAAI,CAAC,CAAC;QAC7C,IAAI,MAAM,KAAK,SAAS,EAAE,CAAC;YACzB,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,kBAAkB,IAAI,UAAU,EAChC,4EAA4E,IAAI,iEAAiE,CAClJ,CAAC;QACJ,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,UAAU,CAAC,GAAQ;QACjB,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;IACvB,CAAC;IAED,SAAS;QACP,IAAI,IAAI,CAAC,KAAK,CAAC,MAAM,IAAI,CAAC,EAAE,CAAC;YAC3B,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,iBAAiB,EACjB,mKAAmK,CACpK,CAAC;QACJ,CAAC;QACD,IAAI,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,EAAE,CAAC;QAE9B,gEAAgE;QAChE,IAAI,CAAC,eAAe,GAAG,SAAS,CAAC;QACjC,IAAI,MAAM,YAAY,4BAAgB,EAAE,CAAC;YACvC,MAAM,iBAAiB,GAAG,MAAM,CAAC;YACjC,MAAM,GAAG,iBAAiB,CAAC,OAAO,EAAE,CAAC;YACrC,IAAI,CAAC,eAAe,GAAG,iBAAiB,CAAC,QAAQ,CAAC;QACpD,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,iBAAiB,CAAC,MAAc;QAC9B,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;IACjC,CAAC;IAED,gBAAgB;QACd,OAAO,IAAI,CAAC,YAAY,CAAC,GAAG,EAAE,CAAC;IACjC,CAAC;IAED,eAAe,CAAC,MAAc;QAC5B,IAAI,CAAC,kBAAkB,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,MAAM,CAAC;IAChD,CAAC;IAED,KAAK,CAAC,eAAe,CAAC,MAAc;QAClC,IAAI,CAAC,iBAAiB,CAAC,MAAM,CAAC,CAAC;QAC/B,IAAI,CAAC;YACH,MAAM,IAAI,CAAC,GAAG,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC;QACtC,CAAC;QAAC,OAAO,CAAC,EAAE,CAAC;YACX,MAAM,KAAK,GAAG,IAAI,2BAAY,CAC5B,iBAAiB,EACjB,gDAAgD,MAAM,CAAC,IAAI,EAAE,EAC7D,qBAAqB,CACtB,CAAC;YACF,KAAK,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;YAC1B,MAAM,KAAK,CAAC;QACd,CAAC;QAED,IAAI,CAAC,gBAAgB,EAAE,CAAC;IAC1B,CAAC;IAED,SAAS,CAAC,IAAY;QACpB,IAAI,MAAM,GAAG,IAAI,CAAC;QAClB,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,YAAY,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACvD,MAAM,CAAC,GAAG,IAAI,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAC/B,MAAM,GAAG,CAAC,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC;YAC3B,IAAI,MAAM;gBAAE,MAAM;QACpB,CAAC;QACD,IAAI,CAAC,MAAM,EAAE,CAAC;YACZ,MAAM,GAAG,IAAI,CAAC,aAAa,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC;QAC9C,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,yBAAyB;IACzB,YAAY;IACZ,eAAe;QACb,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;QACzB,IAAI,CAAC,UAAU,GAAG,EAAE,CAAC;QACrB,IAAI,CAAC,kBAAkB,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC;QACrC,IAAI,CAAC,aAAa,CAAC,OAAO,CAAC,CAAC;QAC5B,IAAI,CAAC,WAAW,GAAG,EAAE,CAAC;IACxB,CAAC;IAED,UAAU,CAAC,IAAU;QACnB,IAAI,CAAC,IAAI,CAAC,YAAY;YAAE,OAAO;QAC/B,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,CAAC;QACvB,IAAI,CAAC,IAAI,CAAC,WAAW,CAAC,IAAI,CAAC;YAAE,IAAI,CAAC,WAAW,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;QACxD,IAAI,CAAC,WAAW,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC9B,CAAC;IAED,cAAc;QACZ,IAAI,CAAC,aAAa,CAAC,KAAK,CAAC,CAAC;QAC1B,IAAI,CAAC,YAAY,GAAG,KAAK,CAAC;IAC5B,CAAC;IAED,aAAa,CAAC,KAAa;QACzB,IAAI,CAAC,IAAI,CAAC,YAAY;YAAE,OAAO;QAC/B,MAAM,SAAS,GAAc;YAC3B,KAAK,EAAE,KAAK;YACZ,OAAO,EAAE,IAAI,CAAC,GAAG,EAAE,GAAG,IAAI,CAAC,kBAAkB;SAC9C,CAAC;QACF,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;IAClC,CAAC;IAED,cAAc;QACZ,MAAM,KAAK,GAAG,EAAE,CAAC;QACjB,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,WAAW,CAAC,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,EAAE;YAC7C,KAAK,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,WAAW,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QAC5D,CAAC,CAAC,CAAC;QACH,MAAM,MAAM,GAAG,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC;QAC7D,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,kBAAkB;QAChB,OAAO,IAAI,CAAC,UAAU,CAAC;IACzB,CAAC;IAED,yBAAyB;IACzB,gBAAgB;IAEhB,KAAK,CAAC,YAAY,CAAC,KAAY;QAC7B,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,MAAM;YAAE,IAAI,CAAC,mBAAmB,CAAC,KAAK,CAAC,CAAC;aAC/D,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,OAAO;YAAE,IAAI,CAAC,oBAAoB,CAAC,KAAK,CAAC,CAAC;aACtE,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,WAAW;YAC1C,IAAI,CAAC,wBAAwB,CAAC,KAAK,CAAC,CAAC;aAClC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,SAAS;YACxC,IAAI,CAAC,sBAAsB,CAAC,KAAK,CAAC,CAAC;aAChC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,YAAY;YAC3C,MAAM,IAAI,CAAC,yBAAyB,CAAC,KAAK,CAAC,CAAC;aACzC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,UAAU;YACzC,IAAI,CAAC,uBAAuB,CAAC,KAAK,CAAC,CAAC;aACjC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,SAAS;YACxC,IAAI,CAAC,6BAA6B,CAAC,KAAK,CAAC,CAAC;aACvC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,UAAU;YACzC,IAAI,CAAC,uBAAuB,CAAC,KAAK,CAAC,CAAC;aACjC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,OAAO;YACtC,IAAI,CAAC,2BAA2B,CAAC,KAAK,CAAC,CAAC;aACrC,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,IAAI;YAAE,MAAM,IAAI,CAAC,iBAAiB,CAAC,KAAK,CAAC,CAAC;aACtE,IAAI,KAAK,CAAC,IAAI,IAAI,qBAAS,CAAC,GAAG,EAAE,CAAC;YACrC,OAAO;QACT,CAAC;aAAM,CAAC;YACN,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,wDAAwD,KAAK,CAAC,MAAM,GAAG,EACvE,4FAA4F,EAC5F,KAAK,CAAC,QAAQ,CACf,CAAC;QACJ,CAAC;IACH,CAAC;IAED,mBAAmB,CAAC,KAAY;QAC9B,MAAM,KAAK,GAAG,IAAI,4BAAgB,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,QAAQ,CAAC,CAAC;QACjE,IAAI,CAAC,WAAW,CAAC,IAAI,sBAAa,CAAC,UAAU,EAAE,KAAK,CAAC,CAAC,CAAC;IACzD,CAAC;IAED,iFAAiF;IACjF,KAAK,CAAC,yBAAyB,CAAC,KAAY;QAC1C,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,MAAM,IAAI,GAAG,IAAI,eAAe,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;QAE/C,IAAI,IAAI,CAAC,YAAY;YAAE,IAAI,CAAC,cAAc,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC;QAC1D,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,CAAC,CAAC,gBAAgB;QACvC,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;IACrB,CAAC;IAED,KAAK,CAAC,uBAAuB,CAAC,MAAa;QACzC,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,MAAM,IAAI,GAAG,IAAI,aAAa,EAAE,CAAC;QAEjC,IAAI,IAAI,CAAC,YAAY;YAAE,IAAI,CAAC,cAAc,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC;QAC1D,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,CAAC;QACtB,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;IACrB,CAAC;IAED,wBAAwB,CAAC,KAAY;QACnC,IAAI,CAAC,WAAW,CAAC,IAAI,sBAAa,CAAC,qBAAqB,EAAE,KAAK,CAAC,CAAC,CAAC;IACpE,CAAC;IAED,sBAAsB,CAAC,MAAa;QAClC,IAAI,CAAC,WAAW,CAAC,IAAI,YAAY,EAAE,CAAC,CAAC;IACvC,CAAC;IAED,oBAAoB,CAAC,MAAa;QAChC,yCAAyC;IAC3C,CAAC;IAED,6BAA6B,CAAC,KAAY;QACxC,IAAI,IAAI,CAAC,YAAY,EAAE,CAAC;YACtB,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,qEAAqE,EACrE,mHAAmH,EACnH,KAAK,CAAC,QAAQ,CACf,CAAC;QACJ,CAAC;QACD,IAAI,CAAC,cAAc,GAAG,IAAI,uBAAc,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;QACvD,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;QACzB,IAAI,CAAC,kBAAkB,GAAG,KAAK,CAAC;IAClC,CAAC;IAED,uBAAuB,CAAC,KAAY;QAClC,IAAI,IAAI,CAAC,YAAY,EAAE,CAAC;YACtB,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,0EAA0E,EAC1E,mHAAmH,EACnH,KAAK,CAAC,QAAQ,CACf,CAAC;QACJ,CAAC;QACD,IAAI,CAAC,cAAc,GAAG,IAAI,uBAAc,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;QACvD,IAAI,CAAC,YAAY,GAAG,IAAI,CAAC;QACzB,IAAI,CAAC,kBAAkB,GAAG,IAAI,CAAC;IACjC,CAAC;IAED,2BAA2B,CAAC,KAAY;QACtC,IAAI,CAAC,IAAI,CAAC,YAAY,EAAE,CAAC;YACvB,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,yDAAyD,EACzD,8HAA8H,EAC9H,KAAK,CAAC,QAAQ,CACf,CAAC;QACJ,CAAC;QACD,IAAI,CAAC,IAAI,CAAC,cAAc,EAAE,CAAC;YACzB,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,iEAAiE,EACjE,sBAAsB,EACtB,KAAK,CAAC,QAAQ,CACf,CAAC;QACJ,CAAC;QAED,IAAI,IAAI,CAAC,kBAAkB,EAAE,CAAC;YAC5B,IAAI,CAAC,UAAU,EAAE,CAAC,cAAc,CAAC,IAAI,CAAC,cAAc,CAAC,CAAC;QACxD,CAAC;aAAM,CAAC;YACN,IAAI,CAAC,UAAU,EAAE,CAAC,QAAQ,CAAC,IAAI,CAAC,cAAc,CAAC,CAAC;QAClD,CAAC;QACD,IAAI,CAAC,YAAY,GAAG,KAAK,CAAC;IAC5B,CAAC;IAED,KAAK,CAAC,iBAAiB,CAAC,KAAY;QAClC,MAAM,IAAI,GAAG,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;QAC1C,IAAI,CAAC,IAAI,EAAE,CAAC;YACV,MAAM,IAAI,2BAAY,CACpB,iBAAiB,EACjB,wBAAwB,KAAK,CAAC,MAAM,EAAE,EACtC,6EAA6E,EAC7E,KAAK,CAAC,QAAQ,CACf,CAAC;QACJ,CAAC;QACD,MAAM,IAAI,CAAC,WAAW,CAAC,IAAI,EAAE,KAAK,CAAC,QAAQ,CAAC,CAAC;QAC7C,OAAO;IACT,CAAC;IAED,KAAK,CAAC,WAAW,CAAC,IAAU,EAAE,WAAgC,IAAI;QAChE,IAAI,IAAI,CAAC,YAAY,EAAE,CAAC;YACtB,IAAI,CAAC,YAAY,CAAC,QAAQ,CAAC,CAAC;YAC5B,IAAI,CAAC,cAAc,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC;QACrC,CAAC;aAAM,CAAC;YACN,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,CAAC;YACtB,MAAM,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;QAC3B,CAAC;IACH,CAAC;CACF;AApbD,kCAobC;AAED,SAAgB,eAAe,CAAC,MAAmB;IACjD,MAAM,UAAU,GAAG,MAAa,CAAC;IACjC,MAAM,MAAM,GAAG,IAAI,WAAW,EAAS,CAAC;IACxC,MAAM,CAAC,UAAU,GAAG,UAAU,CAAC,UAAU,CAAC,GAAG,EAAE,CAAC;IAChD,MAAM,CAAC,YAAY,GAAG,CAAC,MAAM,CAAC,UAAU,CAAC,CAAC;IAC1C,MAAM,CAAC,KAAK,GAAG,UAAU,CAAC,KAAK,CAAC,KAAK,EAAE,CAAC;IACxC,MAAM,CAAC,kBAAkB,GAAG,UAAU,CAAC,kBAAkB,CAAC;IAC1D,MAAM,CAAC,OAAO,GAAG,EAAE,GAAG,UAAU,CAAC,OAAO,EAAE,CAAC;IAC3C,OAAO,MAAM,CAAC;AAChB,CAAC"}

package/dist/esm/forthic/module.d.ts

@@ -0,0 +1,101 @@
+import { Interpreter } from "./interpreter";
+import { CodeLocation } from "./tokenizer";
+export type WordHandler = ((interp: Interpreter) => Promise<void>) | ((interp: Interpreter) => void);
+export declare class Variable {
+    name: string;
+    value: any;
+    constructor(name: string, value?: any);
+    get_name(): string;
+    set_value(val: any): void;
+    get_value(): any;
+    dup(): Variable;
+}
+export declare class Word {
+    name: string;
+    string: string;
+    location: CodeLocation | null;
+    constructor(name: string);
+    set_location(location: any): void;
+    get_location(): any;
+    execute(_interp: Interpreter, _options?: any): Promise<void>;
+}
+export declare class PushValueWord extends Word {
+    value: any;
+    constructor(name: string, value: any);
+    execute(interp: Interpreter): Promise<void>;
+}
+export declare class DefinitionWord extends Word {
+    words: Word[];
+    cur_index: number;
+    constructor(name: string);
+    add_word(word: Word): void;
+    execute(interp: Interpreter): Promise<void>;
+}
+export declare class ModuleWord extends Word {
+    handler: WordHandler;
+    constructor(name: string, handler: WordHandler);
+    execute(interp: Interpreter): Promise<void>;
+}
+export declare class ImportedWord extends Word {
+    module_word: Word;
+    imported_module: Module;
+    constructor(module_word: Word, prefix: string, module: Module);
+    execute(interp: Interpreter): Promise<void>;
+}
+export declare class ModuleMemoWord extends Word {
+    word: Word;
+    has_value: boolean;
+    value: any;
+    constructor(word: Word);
+    refresh(interp: Interpreter): Promise<void>;
+    execute(interp: Interpreter): Promise<void>;
+    reset(): void;
+}
+export declare class ModuleMemoBangWord extends Word {
+    memo_word: ModuleMemoWord;
+    constructor(memo_word: ModuleMemoWord);
+    execute(interp: Interpreter): Promise<void>;
+}
+export declare class ModuleMemoBangAtWord extends Word {
+    memo_word: ModuleMemoWord;
+    constructor(memo_word: ModuleMemoWord);
+    execute(interp: Interpreter): Promise<void>;
+}
+export declare class Module {
+    words: Word[];
+    exportable: string[];
+    variables: {
+        [key: string]: Variable;
+    };
+    modules: {
+        [key: string]: Module;
+    };
+    module_prefixes: {
+        [key: string]: Set<string>;
+    };
+    required_modules: {
+        prefix: string;
+        module: Module;
+    }[];
+    name: string;
+    forthic_code: string;
+    module_id: string;
+    constructor(name: string, interp?: any, forthic_code?: string);
+    dup(): Module;
+    copy(interp: Interpreter): Module;
+    require_module(prefix: string, module: Module): void;
+    find_module(name: string): Module | undefined;
+    add_module_word(word_name: string, word_func: WordHandler): void;
+    add_word(word: Word): void;
+    add_memo_words(word: Word): ModuleMemoWord;
+    add_exportable(names: string[]): void;
+    exportable_words(): Word[];
+    add_exportable_word(word: Word): void;
+    add_variable(name: string, value?: any): void;
+    initialize(interp: Interpreter): void;
+    register_module(module_name: string, prefix: string, module: Module): void;
+    import_module(prefix: string, module: Module, interp: Interpreter): void;
+    find_word(name: string): Word | PushValueWord | null;
+    find_dictionary_word(word_name: string): Word | null;
+    find_variable(varname: string): PushValueWord | null;
+}

package/dist/esm/forthic/module.js

@@ -0,0 +1,277 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.Module = exports.ModuleMemoBangAtWord = exports.ModuleMemoBangWord = exports.ModuleMemoWord = exports.ImportedWord = exports.ModuleWord = exports.DefinitionWord = exports.PushValueWord = exports.Word = exports.Variable = void 0;
+const ForthicError_1 = require("./ForthicError");
+// -------------------------------------
+// Variable
+class Variable {
+    constructor(name, value = null) {
+        this.name = name;
+        this.value = value;
+    }
+    get_name() {
+        return this.name;
+    }
+    set_value(val) {
+        this.value = val;
+    }
+    get_value() {
+        return this.value;
+    }
+    dup() {
+        const result = new Variable(this.name, this.value);
+        return result;
+    }
+}
+exports.Variable = Variable;
+// -------------------------------------
+// Words
+class Word {
+    constructor(name) {
+        this.name = name;
+        this.string = name;
+        this.location = null;
+    }
+    set_location(location) {
+        this.location = location;
+    }
+    get_location() {
+        return this.location;
+    }
+    async execute(_interp, _options) {
+        throw "Must override Word.execute";
+    }
+}
+exports.Word = Word;
+class PushValueWord extends Word {
+    constructor(name, value) {
+        super(name);
+        this.value = value;
+    }
+    async execute(interp) {
+        interp.stack_push(this.value);
+    }
+}
+exports.PushValueWord = PushValueWord;
+class DefinitionWord extends Word {
+    constructor(name) {
+        super(name);
+        this.words = [];
+        this.cur_index = 0;
+    }
+    add_word(word) {
+        this.words.push(word);
+    }
+    async execute(interp) {
+        for (let i = 0; i < this.words.length; i++) {
+            const word = this.words[i];
+            try {
+                await word.execute(interp);
+            }
+            catch (e) {
+                const error = new ForthicError_1.ForthicError("module-65", `Error executing word ${word.name}`, `Error in ${this.name} definition`, interp.get_string_location());
+                error.set_caught_error(e);
+                throw error;
+            }
+        }
+    }
+}
+exports.DefinitionWord = DefinitionWord;
+class ModuleWord extends Word {
+    constructor(name, handler) {
+        super(name);
+        this.handler = handler;
+    }
+    async execute(interp) {
+        await this.handler(interp);
+    }
+}
+exports.ModuleWord = ModuleWord;
+class ImportedWord extends Word {
+    constructor(module_word, prefix, module) {
+        if (prefix != "")
+            prefix = prefix + ".";
+        super(`${prefix}${module_word.name}`);
+        this.module_word = module_word;
+        this.imported_module = module;
+    }
+    async execute(interp) {
+        interp.module_stack_push(this.imported_module);
+        await this.module_word.execute(interp);
+        interp.module_stack_pop();
+    }
+}
+exports.ImportedWord = ImportedWord;
+class ModuleMemoWord extends Word {
+    constructor(word) {
+        super(word.name);
+        this.word = word;
+        this.has_value = false;
+        this.value = null;
+    }
+    async refresh(interp) {
+        await this.word.execute(interp, { ignore_debug: true });
+        this.value = interp.stack_pop();
+        this.has_value = true;
+    }
+    async execute(interp) {
+        if (!this.has_value)
+            await this.refresh(interp);
+        interp.stack_push(this.value);
+    }
+    reset() {
+        this.has_value = false;
+        this.value = null;
+    }
+}
+exports.ModuleMemoWord = ModuleMemoWord;
+class ModuleMemoBangWord extends Word {
+    constructor(memo_word) {
+        super(`${memo_word.name}!`);
+        this.memo_word = memo_word;
+    }
+    async execute(interp) {
+        await this.memo_word.refresh(interp);
+    }
+}
+exports.ModuleMemoBangWord = ModuleMemoBangWord;
+class ModuleMemoBangAtWord extends Word {
+    constructor(memo_word) {
+        super(`${memo_word.name}!@`);
+        this.memo_word = memo_word;
+    }
+    async execute(interp) {
+        await this.memo_word.refresh(interp);
+        interp.stack_push(this.memo_word.value);
+    }
+}
+exports.ModuleMemoBangAtWord = ModuleMemoBangAtWord;
+// -------------------------------------
+// Module
+class Module {
+    constructor(name, interp, forthic_code = "") {
+        this.words = [];
+        this.exportable = [];
+        this.variables = {};
+        this.modules = {};
+        this.module_prefixes = {};
+        this.required_modules = [];
+        this.name = name;
+        this.forthic_code = forthic_code;
+        this.module_id = `${name}-${Math.floor(Math.random() * 1000000)}`;
+    }
+    dup() {
+        const self = this;
+        const result = new Module(self.name);
+        result.words = self.words.slice();
+        result.exportable = self.exportable.slice();
+        Object.keys(self.variables).forEach((key) => (result.variables[key] = self.variables[key].dup()));
+        Object.keys(self.modules).forEach((key) => (result.modules[key] = self.modules[key]));
+        result.required_modules = self.required_modules.slice();
+        result.forthic_code = self.forthic_code;
+        return result;
+    }
+    copy(interp) {
+        const self = this;
+        const result = new Module(self.name);
+        result.words = self.words.slice();
+        result.exportable = self.exportable.slice();
+        Object.keys(self.variables).forEach((key) => (result.variables[key] = self.variables[key].dup()));
+        Object.keys(self.modules).forEach((key) => (result.modules[key] = self.modules[key]));
+        Object.entries(self.module_prefixes).forEach(([module_name, prefixes]) => {
+            prefixes.forEach((prefix) => {
+                result.import_module(prefix, self.modules[module_name], interp);
+            });
+        });
+        result.forthic_code = self.forthic_code;
+        return result;
+    }
+    require_module(prefix, module) {
+        this.required_modules.push({
+            prefix: prefix,
+            module: module,
+        });
+    }
+    find_module(name) {
+        return this.modules[name];
+    }
+    add_module_word(word_name, word_func) {
+        this.add_exportable_word(new ModuleWord(word_name, word_func));
+    }
+    add_word(word) {
+        this.words.push(word);
+    }
+    add_memo_words(word) {
+        const memo_word = new ModuleMemoWord(word);
+        this.words.push(memo_word);
+        this.words.push(new ModuleMemoBangWord(memo_word));
+        this.words.push(new ModuleMemoBangAtWord(memo_word));
+        return memo_word;
+    }
+    add_exportable(names) {
+        this.exportable = this.exportable.concat(names);
+    }
+    exportable_words() {
+        const self = this;
+        const result = [];
+        self.words.forEach((word) => {
+            if (self.exportable.indexOf(word.name) >= 0)
+                result.push(word);
+        });
+        return result;
+    }
+    add_exportable_word(word) {
+        this.words.push(word);
+        this.exportable.push(word.name);
+    }
+    add_variable(name, value = null) {
+        if (!this.variables[name])
+            this.variables[name] = new Variable(name, value);
+    }
+    initialize(interp) {
+        const self = this;
+        self.required_modules.forEach((rec) => {
+            self.import_module(rec.prefix, rec.module, interp);
+        });
+    }
+    register_module(module_name, prefix, module) {
+        this.modules[module_name] = module;
+        if (!this.module_prefixes[module_name])
+            this.module_prefixes[module_name] = new Set();
+        this.module_prefixes[module_name].add(prefix);
+    }
+    import_module(prefix, module, interp) {
+        const self = this;
+        const new_module = module.dup();
+        new_module.initialize(interp);
+        const words = new_module.exportable_words();
+        words.forEach((word) => {
+            self.add_word(new ImportedWord(word, prefix, new_module));
+        });
+        self.register_module(module.name, prefix, new_module);
+    }
+    find_word(name) {
+        let result = this.find_dictionary_word(name);
+        if (!result)
+            result = this.find_variable(name);
+        return result;
+    }
+    find_dictionary_word(word_name) {
+        for (let i = this.words.length - 1; i >= 0; i--) {
+            const w = this.words[i];
+            if (w.name == word_name)
+                return w;
+        }
+        return null;
+    }
+    find_variable(varname) {
+        const var_result = this.variables[varname];
+        let result = null;
+        if (var_result) {
+            result = new PushValueWord(varname, var_result);
+        }
+        return result;
+    }
+}
+exports.Module = Module;
+//# sourceMappingURL=module.js.map

package/dist/esm/forthic/module.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"module.js","sourceRoot":"","sources":["../../../src/forthic/module.ts"],"names":[],"mappings":";;;AAAA,iDAA8C;AAQ9C,wCAAwC;AACxC,WAAW;AACX,MAAa,QAAQ;IAInB,YAAY,IAAY,EAAE,QAAa,IAAI;QACzC,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;QACjB,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;IACrB,CAAC;IAED,QAAQ;QACN,OAAO,IAAI,CAAC,IAAI,CAAC;IACnB,CAAC;IAED,SAAS,CAAC,GAAQ;QAChB,IAAI,CAAC,KAAK,GAAG,GAAG,CAAC;IACnB,CAAC;IAED,SAAS;QACP,OAAO,IAAI,CAAC,KAAK,CAAC;IACpB,CAAC;IAED,GAAG;QACD,MAAM,MAAM,GAAG,IAAI,QAAQ,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC;QACnD,OAAO,MAAM,CAAC;IAChB,CAAC;CACF;AAzBD,4BAyBC;AAED,wCAAwC;AACxC,QAAQ;AAER,MAAa,IAAI;IAKf,YAAY,IAAY;QACtB,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;QACjB,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC;QACnB,IAAI,CAAC,QAAQ,GAAG,IAAI,CAAC;IACvB,CAAC;IAED,YAAY,CAAC,QAAa;QACxB,IAAI,CAAC,QAAQ,GAAG,QAAQ,CAAC;IAC3B,CAAC;IAED,YAAY;QACV,OAAO,IAAI,CAAC,QAAQ,CAAC;IACvB,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,OAAoB,EAAE,QAAc;QAChD,MAAM,4BAA4B,CAAC;IACrC,CAAC;CACF;AAtBD,oBAsBC;AAED,MAAa,aAAc,SAAQ,IAAI;IAGrC,YAAY,IAAY,EAAE,KAAU;QAClC,KAAK,CAAC,IAAI,CAAC,CAAC;QACZ,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;IACrB,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,CAAC,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAChC,CAAC;CACF;AAXD,sCAWC;AAED,MAAa,cAAe,SAAQ,IAAI;IAItC,YAAY,IAAY;QACtB,KAAK,CAAC,IAAI,CAAC,CAAC;QACZ,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QAChB,IAAI,CAAC,SAAS,GAAG,CAAC,CAAC;IACrB,CAAC;IAED,QAAQ,CAAC,IAAU;QACjB,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxB,CAAC;IAED,KAAK,CAAC,OAAO,CACX,MAAmB;QAGnB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YAC3C,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YAC3B,IAAI,CAAC;gBACH,MAAM,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;YAC7B,CAAC;YAAC,OAAO,CAAC,EAAE,CAAC;gBACX,MAAM,KAAK,GAAG,IAAI,2BAAY,CAC5B,WAAW,EACX,wBAAwB,IAAI,CAAC,IAAI,EAAE,EACnC,YAAY,IAAI,CAAC,IAAI,aAAa,EAClC,MAAM,CAAC,mBAAmB,EAAE,CAC7B,CAAC;gBACF,KAAK,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC;gBAC1B,MAAM,KAAK,CAAC;YACd,CAAC;QACH,CAAC;IACH,CAAC;CACF;AAlCD,wCAkCC;AAED,MAAa,UAAW,SAAQ,IAAI;IAGlC,YAAY,IAAY,EAAE,OAAoB;QAC5C,KAAK,CAAC,IAAI,CAAC,CAAC;QACZ,IAAI,CAAC,OAAO,GAAG,OAAO,CAAC;IACzB,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;IAC7B,CAAC;CACF;AAXD,gCAWC;AAED,MAAa,YAAa,SAAQ,IAAI;IAIpC,YAAY,WAAiB,EAAE,MAAc,EAAE,MAAc;QAC3D,IAAI,MAAM,IAAI,EAAE;YAAE,MAAM,GAAG,MAAM,GAAG,GAAG,CAAC;QACxC,KAAK,CAAC,GAAG,MAAM,GAAG,WAAW,CAAC,IAAI,EAAE,CAAC,CAAC;QACtC,IAAI,CAAC,WAAW,GAAG,WAAW,CAAC;QAC/B,IAAI,CAAC,eAAe,GAAG,MAAM,CAAC;IAChC,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,CAAC,iBAAiB,CAAC,IAAI,CAAC,eAAe,CAAC,CAAC;QAC/C,MAAM,IAAI,CAAC,WAAW,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;QACvC,MAAM,CAAC,gBAAgB,EAAE,CAAC;IAC5B,CAAC;CACF;AAhBD,oCAgBC;AAED,MAAa,cAAe,SAAQ,IAAI;IAKtC,YAAY,IAAU;QACpB,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACjB,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;QACjB,IAAI,CAAC,SAAS,GAAG,KAAK,CAAC;QACvB,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC;IACpB,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,MAAM,EAAE,EAAE,YAAY,EAAE,IAAI,EAAE,CAAC,CAAC;QACxD,IAAI,CAAC,KAAK,GAAG,MAAM,CAAC,SAAS,EAAE,CAAC;QAChC,IAAI,CAAC,SAAS,GAAG,IAAI,CAAC;IACxB,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,IAAI,CAAC,IAAI,CAAC,SAAS;YAAE,MAAM,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;QAChD,MAAM,CAAC,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAChC,CAAC;IAED,KAAK;QACH,IAAI,CAAC,SAAS,GAAG,KAAK,CAAC;QACvB,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC;IACpB,CAAC;CACF;AA3BD,wCA2BC;AAED,MAAa,kBAAmB,SAAQ,IAAI;IAG1C,YAAY,SAAyB;QACnC,KAAK,CAAC,GAAG,SAAS,CAAC,IAAI,GAAG,CAAC,CAAC;QAC5B,IAAI,CAAC,SAAS,GAAG,SAAS,CAAC;IAC7B,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;IACvC,CAAC;CACF;AAXD,gDAWC;AAED,MAAa,oBAAqB,SAAQ,IAAI;IAG5C,YAAY,SAAyB;QACnC,KAAK,CAAC,GAAG,SAAS,CAAC,IAAI,IAAI,CAAC,CAAC;QAC7B,IAAI,CAAC,SAAS,GAAG,SAAS,CAAC;IAC7B,CAAC;IAED,KAAK,CAAC,OAAO,CAAC,MAAmB;QAC/B,MAAM,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;QACrC,MAAM,CAAC,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,CAAC;IAC1C,CAAC;CACF;AAZD,oDAYC;AAED,wCAAwC;AACxC,SAAS;AAET,MAAa,MAAM;IAWjB,YAAY,IAAY,EAAE,MAAY,EAAE,eAAuB,EAAE;QAC/D,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QAChB,IAAI,CAAC,UAAU,GAAG,EAAE,CAAC;QACrB,IAAI,CAAC,SAAS,GAAG,EAAE,CAAC;QACpB,IAAI,CAAC,OAAO,GAAG,EAAE,CAAC;QAClB,IAAI,CAAC,eAAe,GAAG,EAAE,CAAC;QAC1B,IAAI,CAAC,gBAAgB,GAAG,EAAE,CAAC;QAC3B,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;QACjB,IAAI,CAAC,YAAY,GAAG,YAAY,CAAC;QACjC,IAAI,CAAC,SAAS,GAAG,GAAG,IAAI,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,OAAO,CAAC,EAAE,CAAC;IACpE,CAAC;IAED,GAAG;QACD,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,MAAM,MAAM,GAAG,IAAI,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,MAAM,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,EAAE,CAAC;QAClC,MAAM,CAAC,UAAU,GAAG,IAAI,CAAC,UAAU,CAAC,KAAK,EAAE,CAAC;QAC5C,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC,OAAO,CACjC,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,MAAM,CAAC,SAAS,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,SAAS,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,CAC7D,CAAC;QACF,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,OAAO,CAC/B,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,CACnD,CAAC;QACF,MAAM,CAAC,gBAAgB,GAAG,IAAI,CAAC,gBAAgB,CAAC,KAAK,EAAE,CAAC;QACxD,MAAM,CAAC,YAAY,GAAG,IAAI,CAAC,YAAY,CAAC;QACxC,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,IAAI,CAAC,MAAmB;QACtB,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,MAAM,MAAM,GAAG,IAAI,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,MAAM,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,EAAE,CAAC;QAClC,MAAM,CAAC,UAAU,GAAG,IAAI,CAAC,UAAU,CAAC,KAAK,EAAE,CAAC;QAC5C,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC,OAAO,CACjC,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,MAAM,CAAC,SAAS,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,SAAS,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,CAC7D,CAAC;QACF,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,OAAO,CAC/B,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,CACnD,CAAC;QAEF,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,eAAe,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,WAAW,EAAE,QAAQ,CAAC,EAAE,EAAE;YACvE,QAAQ,CAAC,OAAO,CAAC,CAAC,MAAM,EAAE,EAAE;gBAC1B,MAAM,CAAC,aAAa,CAAC,MAAM,EAAE,IAAI,CAAC,OAAO,CAAC,WAAW,CAAC,EAAE,MAAM,CAAC,CAAC;YAClE,CAAC,CAAC,CAAC;QACL,CAAC,CAAC,CAAC;QAEH,MAAM,CAAC,YAAY,GAAG,IAAI,CAAC,YAAY,CAAC;QACxC,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,cAAc,CAAC,MAAc,EAAE,MAAc;QAC3C,IAAI,CAAC,gBAAgB,CAAC,IAAI,CAAC;YACzB,MAAM,EAAE,MAAM;YACd,MAAM,EAAE,MAAM;SACf,CAAC,CAAC;IACL,CAAC;IAED,WAAW,CAAC,IAAY;QACtB,OAAO,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;IAC5B,CAAC;IAED,eAAe,CAAC,SAAiB,EAAE,SAAsB;QACvD,IAAI,CAAC,mBAAmB,CAAC,IAAI,UAAU,CAAC,SAAS,EAAE,SAAS,CAAC,CAAC,CAAC;IACjE,CAAC;IAED,QAAQ,CAAC,IAAU;QACjB,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxB,CAAC;IAED,cAAc,CAAC,IAAU;QACvB,MAAM,SAAS,GAAG,IAAI,cAAc,CAAC,IAAI,CAAC,CAAC;QAC3C,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;QAC3B,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,kBAAkB,CAAC,SAAS,CAAC,CAAC,CAAC;QACnD,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,oBAAoB,CAAC,SAAS,CAAC,CAAC,CAAC;QACrD,OAAO,SAAS,CAAC;IACnB,CAAC;IAED,cAAc,CAAC,KAAe;QAC5B,IAAI,CAAC,UAAU,GAAG,IAAI,CAAC,UAAU,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;IAClD,CAAC;IAED,gBAAgB;QACd,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,MAAM,MAAM,GAAW,EAAE,CAAC;QAC1B,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,EAAE;YAC1B,IAAI,IAAI,CAAC,UAAU,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC;gBAAE,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACjE,CAAC,CAAC,CAAC;QACH,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,mBAAmB,CAAC,IAAU;QAC5B,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACtB,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAClC,CAAC;IAED,YAAY,CAAC,IAAY,EAAE,QAAa,IAAI;QAC1C,IAAI,CAAC,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC;YAAE,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,GAAG,IAAI,QAAQ,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IAC9E,CAAC;IAED,UAAU,CAAC,MAAmB;QAC5B,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,IAAI,CAAC,gBAAgB,CAAC,OAAO,CAAC,CAAC,GAAG,EAAE,EAAE;YACpC,IAAI,CAAC,aAAa,CAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC;QACrD,CAAC,CAAC,CAAC;IACL,CAAC;IAED,eAAe,CAAC,WAAmB,EAAE,MAAc,EAAE,MAAc;QACjE,IAAI,CAAC,OAAO,CAAC,WAAW,CAAC,GAAG,MAAM,CAAC;QAEnC,IAAI,CAAC,IAAI,CAAC,eAAe,CAAC,WAAW,CAAC;YACpC,IAAI,CAAC,eAAe,CAAC,WAAW,CAAC,GAAG,IAAI,GAAG,EAAE,CAAC;QAChD,IAAI,CAAC,eAAe,CAAC,WAAW,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;IAChD,CAAC;IAED,aAAa,CAAC,MAAc,EAAE,MAAc,EAAE,MAAmB;QAC/D,MAAM,IAAI,GAAG,IAAI,CAAC;QAClB,MAAM,UAAU,GAAG,MAAM,CAAC,GAAG,EAAE,CAAC;QAChC,UAAU,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC;QAE9B,MAAM,KAAK,GAAG,UAAU,CAAC,gBAAgB,EAAE,CAAC;QAC5C,KAAK,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,EAAE;YACrB,IAAI,CAAC,QAAQ,CAAC,IAAI,YAAY,CAAC,IAAI,EAAE,MAAM,EAAE,UAAU,CAAC,CAAC,CAAC;QAC5D,CAAC,CAAC,CAAC;QACH,IAAI,CAAC,eAAe,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,UAAU,CAAC,CAAC;IACxD,CAAC;IAED,SAAS,CAAC,IAAY;QACpB,IAAI,MAAM,GAAG,IAAI,CAAC,oBAAoB,CAAC,IAAI,CAAC,CAAC;QAC7C,IAAI,CAAC,MAAM;YAAE,MAAM,GAAG,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC;QAC/C,OAAO,MAAM,CAAC;IAChB,CAAC;IAED,oBAAoB,CAAC,SAAiB;QACpC,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAChD,MAAM,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YACxB,IAAI,CAAC,CAAC,IAAI,IAAI,SAAS;gBAAE,OAAO,CAAC,CAAC;QACpC,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAED,aAAa,CAAC,OAAe;QAC3B,MAAM,UAAU,GAAG,IAAI,CAAC,SAAS,CAAC,OAAO,CAAC,CAAC;QAC3C,IAAI,MAAM,GAAyB,IAAI,CAAC;QACxC,IAAI,UAAU,EAAE,CAAC;YACf,MAAM,GAAG,IAAI,aAAa,CAAC,OAAO,EAAE,UAAU,CAAC,CAAC;QAClD,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;CACF;AA/JD,wBA+JC"}

package/dist/esm/forthic/tokenizer.d.ts

@@ -0,0 +1,77 @@
+import { ICodeLocation } from "./ForthicError";
+export declare enum TokenType {
+    STRING = 1,
+    COMMENT = 2,
+    START_ARRAY = 3,
+    END_ARRAY = 4,
+    START_MODULE = 5,
+    END_MODULE = 6,
+    START_DEF = 7,
+    END_DEF = 8,
+    START_MEMO = 9,
+    WORD = 10,
+    EOS = 11
+}
+export declare class Token {
+    type: TokenType;
+    string: string;
+    location: CodeLocation;
+    constructor(type: TokenType, string: string, location: CodeLocation);
+}
+export declare const DLE: string;
+export declare class Tokenizer {
+    reference_location: CodeLocation;
+    line: number;
+    column: number;
+    input_string: string;
+    input_pos: number;
+    whitespace: string[];
+    quote_chars: string[];
+    token_start_pos: number;
+    token_end_pos: number;
+    token_line: number;
+    token_column: number;
+    token_string: string;
+    constructor(string: string, reference_location?: CodeLocation | null);
+    next_token(): Token;
+    unescape_string(string: string): string;
+    clear_token_string(): void;
+    note_start_token(): void;
+    is_whitespace(char: string): boolean;
+    is_quote(char: string): boolean;
+    is_triple_quote(index: number, char: string): boolean;
+    is_start_memo(index: number): boolean;
+    advance_position(num_chars: number): number;
+    get_token_location(): CodeLocation;
+    transition_from_START(): Token;
+    transition_from_COMMENT(): Token;
+    transition_from_START_DEFINITION(): Token;
+    transition_from_START_MEMO(): Token;
+    gather_definition_name(): void;
+    transition_from_GATHER_DEFINITION_NAME(): Token;
+    transition_from_GATHER_MEMO_NAME(): Token;
+    transition_from_GATHER_MODULE(): Token;
+    transition_from_GATHER_TRIPLE_QUOTE_STRING(delim: string): Token;
+    transition_from_GATHER_STRING(delim: string): Token;
+    transition_from_GATHER_WORD(): Token;
+}
+export declare class CodeLocation implements ICodeLocation {
+    screen_name: string;
+    line: number;
+    column: number;
+    start_pos: number;
+    end_pos: number;
+    constructor({ screen_name, line, column, start_pos, end_pos, }: {
+        screen_name?: string;
+        line?: number;
+        column?: number;
+        start_pos?: number;
+        end_pos?: number;
+    });
+}
+export declare class PositionedString {
+    string: string;
+    location: CodeLocation;
+    constructor(string: string, location: CodeLocation);
+    valueOf(): string;
+}