@aster-cloud/aster-lang-test 0.0.2

package/corpus/tier3-fixtures/lexicon-i18n/05-patterns.aster

@@ -0,0 +1,27 @@
+// Deutsche Muster - Musterabgleich mit pruefe/bei
+Dieses Modul ist test.muster.
+
+Definiere Benutzer mit id, name, rolle.
+
+Definiere Status als eines von Ausstehend, Aktiv, Gesperrt, Geloescht.
+
+// Abgleich auf optionalen Wert
+Um benutzerBegruessen mit benutzer, liefert:
+  pruefe benutzer:
+    bei null, gib zurueck "Hallo, Gast".
+    bei Benutzer(id, name, rolle), gib zurueck "Willkommen, " plus name.
+
+// Abgleich auf Aufzaehlung
+Um statusBeschreiben mit status, liefert:
+  pruefe status:
+    bei Ausstehend, gib zurueck "Wartet auf Freigabe".
+    bei Aktiv, gib zurueck "Derzeit aktiv".
+    bei Gesperrt, gib zurueck "Voruebergehend gesperrt".
+    bei Geloescht, gib zurueck "Dauerhaft entfernt".
+
+// Abgleich mit Ganzzahl-Literal
+Um punktzahlKlassifizieren mit punktzahl, liefert:
+  pruefe punktzahl:
+    bei 0, gib zurueck "Null".
+    bei 100, gib zurueck "Perfekt".
+    bei andere, gib zurueck "In Bearbeitung".

package/corpus/tier3-fixtures/lexicon-i18n/05-patterns.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/i18n/de-DE/05-patterns.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/05-patterns__i18n-en-US.aster

@@ -0,0 +1,27 @@
+// English Patterns - Pattern matching with match/when
+Module test.patterns.
+
+Define User has id, name, role.
+
+Define Status as one of Pending, Active, Suspended, Deleted.
+
+// Match on optional value
+Rule greetUser given user, produce:
+  Match user:
+    When null, Return "Hello, guest".
+    When User(id, name, role), Return "Welcome, " plus name.
+
+// Match on enum
+Rule describeStatus given status, produce:
+  Match status:
+    When Pending, Return "Waiting for approval".
+    When Active, Return "Currently active".
+    When Suspended, Return "Temporarily suspended".
+    When Deleted, Return "Permanently removed".
+
+// Match with integer literal
+Rule classifyScore given score, produce:
+  Match score:
+    When 0, Return "Zero".
+    When 100, Return "Perfect".
+    When other, Return "In progress".

package/corpus/tier3-fixtures/lexicon-i18n/05-patterns__i18n-en-US.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/i18n/en-US/05-patterns.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/05-patterns__i18n-zh-CN.aster

@@ -0,0 +1,27 @@
+// 中文模式匹配 - 若/为模式匹配
+模块 测试.模式。
+
+定义 用户 包含 编号，名字，角色。
+
+定义 状态 为以下之一 待处理、进行中、已暂停、已删除。
+
+// 匹配可选值
+规则 问候用户 包含 用户，产出：
+  若 用户：
+    为 空，返回 「你好，访客」。
+    为 用户(编号, 名字, 角色)，返回 「欢迎，」 加 名字。
+
+// 匹配枚举
+规则 描述状态 包含 状态，产出：
+  若 状态：
+    为 待处理，返回 「等待审批」。
+    为 进行中，返回 「处理中」。
+    为 已暂停，返回 「已暂停」。
+    为 已删除，返回 「已删除」。
+
+// 整数字面量匹配
+规则 评分分类 包含 评分，产出：
+  若 评分：
+    为 0，返回 「零」。
+    为 100，返回 「满分」。
+    为 其他，返回 「进行中」。

package/corpus/tier3-fixtures/lexicon-i18n/05-patterns__i18n-zh-CN.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/i18n/zh-CN/05-patterns.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/06-operators.aster

@@ -0,0 +1,49 @@
+// Deutsche Operatoren - Arithmetische und Vergleichsoperatoren
+Dieses Modul ist test.operatoren.
+
+// Arithmetische Operationen
+Um zahlenAddieren mit a, b, liefert:
+  gib zurueck a plus b.
+
+Um zahlenSubtrahieren mit a, b, liefert:
+  gib zurueck a minus b.
+
+Um zahlenMultiplizieren mit a, b, liefert:
+  gib zurueck a mal b.
+
+Um zahlenDividieren mit a, b, liefert:
+  gib zurueck a geteilt durch b.
+
+// Vergleichsoperationen
+Um istGroesser mit a, b, liefert:
+  gib zurueck a groesser als b.
+
+Um istKleiner mit a, b, liefert:
+  gib zurueck a kleiner als b.
+
+Um sindGleich mit a, b, liefert:
+  gib zurueck a entspricht b.
+
+// Boolesche Operationen
+Um beideWahr mit a, b, liefert:
+  wenn a entspricht wahr:
+    wenn b entspricht wahr:
+      gib zurueck wahr.
+  gib zurueck falsch.
+
+Um einesWahr mit a, b, liefert:
+  wenn a entspricht wahr:
+    gib zurueck wahr.
+  wenn b entspricht wahr:
+    gib zurueck wahr.
+  gib zurueck falsch.
+
+Um negieren mit a, liefert:
+  gib zurueck nicht a.
+
+// Kombinierter Ausdruck
+Um komplexeBerechnung mit a, b, c, liefert:
+  sei summe gleich a plus b.
+  sei produkt gleich summe mal c.
+  sei resultat gleich produkt minus a.
+  gib zurueck resultat.

package/corpus/tier3-fixtures/lexicon-i18n/06-operators.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/i18n/de-DE/06-operators.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/06-operators__i18n-en-US.aster

@@ -0,0 +1,49 @@
+// English Operators - Arithmetic and comparison operators
+Module test.operators.
+
+// Arithmetic operations
+Rule addNumbers given a, b, produce:
+  Return a plus b.
+
+Rule subtractNumbers given a, b, produce:
+  Return a minus b.
+
+Rule multiplyNumbers given a, b, produce:
+  Return a times b.
+
+Rule divideNumbers given a, b, produce:
+  Return a divided by b.
+
+// Comparison operations
+Rule isGreater given a, b, produce:
+  Return a greater than b.
+
+Rule isLesser given a, b, produce:
+  Return a less than b.
+
+Rule areEqual given a, b, produce:
+  Return a equals to b.
+
+// Boolean operations
+Rule bothTrue given a, b, produce:
+  If a equals to true
+    If b equals to true
+      Return true.
+  Return false.
+
+Rule eitherTrue given a, b, produce:
+  If a equals to true
+    Return true.
+  If b equals to true
+    Return true.
+  Return false.
+
+Rule negate given a, produce:
+  Return not a.
+
+// Combined expression
+Rule complexCalc given a, b, c, produce:
+  Let sum be a plus b.
+  Let product be sum times c.
+  Let result be product minus a.
+  Return result.

package/corpus/tier3-fixtures/lexicon-i18n/06-operators__i18n-en-US.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/i18n/en-US/06-operators.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/06-operators__i18n-zh-CN.aster

@@ -0,0 +1,49 @@
+// 中文运算符 - 算术和比较运算符
+模块 测试.运算符。
+
+// 算术运算
+规则 相加 包含 甲，乙，产出：
+  返回 甲 加 乙。
+
+规则 相减 包含 甲，乙，产出：
+  返回 甲 减 乙。
+
+规则 相乘 包含 甲，乙，产出：
+  返回 甲 乘 乙。
+
+规则 相除 包含 甲，乙，产出：
+  返回 甲 除以 乙。
+
+// 比较运算
+规则 是否更大 包含 甲，乙，产出：
+  返回 甲 大于 乙。
+
+规则 是否更小 包含 甲，乙，产出：
+  返回 甲 小于 乙。
+
+规则 是否相等 包含 甲，乙，产出：
+  返回 甲 等于 乙。
+
+// 布尔运算
+规则 同时为真 包含 甲，乙，产出：
+  如果 甲 等于 真：
+    如果 乙 等于 真：
+      返回 真。
+  返回 假。
+
+规则 任一为真 包含 甲，乙，产出：
+  如果 甲 等于 真：
+    返回 真。
+  如果 乙 等于 真：
+    返回 真。
+  返回 假。
+
+规则 取反 包含 甲，产出：
+  返回 非 甲。
+
+// 组合表达式
+规则 复杂计算 包含 甲，乙，丙，产出：
+  令 和 为 甲 加 乙。
+  令 积 为 和 乘 丙。
+  令 答案 为 积 减 甲。
+  返回 答案。

package/corpus/tier3-fixtures/lexicon-i18n/06-operators__i18n-zh-CN.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/i18n/zh-CN/06-operators.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/arithmetic.aster

@@ -0,0 +1,24 @@
+// 算术运算示例 - 展示中文运算符
+模块 数学.计算。
+
+// 加法
+加法 入参 甲，乙，产出：
+  返回 甲 加 乙。
+
+// 减法
+减法 入参 甲，乙，产出：
+  返回 甲 减 乙。
+
+// 乘法
+乘法 入参 甲，乙，产出：
+  返回 甲 乘 乙。
+
+// 除法
+除法 入参 甲，乙，产出：
+  返回 甲 除以 乙。
+
+// 复合运算
+复合运算 入参 甲，乙，丙，产出：
+  令 和 为 甲 加 乙。
+  令 积 为 和 乘 丙。
+  返回 积。

package/corpus/tier3-fixtures/lexicon-i18n/arithmetic.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/zh-CN/arithmetic.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/hello__zh-CN.aster

@@ -0,0 +1,6 @@
+// 简单的 Hello World 中文示例
+模块 测试.你好。
+
+// 函数：返回问候语
+问候 入参 名字，产出：
+  返回 「你好，」 加 名字。

package/corpus/tier3-fixtures/lexicon-i18n/hello__zh-CN.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/zh-CN/hello.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/loan_decision.aster

@@ -0,0 +1,21 @@
+// 贷款决策示例 - 对应英文 test_loan.aster
+模块 金融.贷款。
+
+定义 贷款申请 包含 申请人编号，金额。
+
+定义 贷款决定 包含 批准，原因。
+
+// 检查年龄是否符合条件
+检查年龄 入参 年龄，产出：
+  如果 年龄 小于 18：
+    返回 假。
+  返回 真。
+
+// 评估贷款申请
+评估贷款 入参 申请，年龄，产出：
+  令 年龄合格 为 检查年龄(年龄)。
+  如果 非 年龄合格：
+    返回 贷款决定(假, 「申请人未满18岁」)。
+  如果 申请.金额 大于 100000：
+    返回 贷款决定(假, 「金额超过限额」)。
+  返回 贷款决定(真, 「审核通过」)。

package/corpus/tier3-fixtures/lexicon-i18n/loan_decision.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/zh-CN/loan_decision.aster"
+}

package/corpus/tier3-fixtures/lexicon-i18n/user_greeting.aster

@@ -0,0 +1,10 @@
+// 用户问候示例 - 展示模式匹配
+模块 应用.问候。
+
+定义 用户 包含 编号，名字，年龄。
+
+// 根据用户信息生成问候语
+规则 问候用户 包含 用户，产出：
+  若 用户：
+    为 空，返回 「你好，访客」。
+    为 用户(编号, 名字, 年龄)，返回 「欢迎，」 加 名字。

package/corpus/tier3-fixtures/lexicon-i18n/user_greeting.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lexicon-i18n",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/cnl/programs/zh-CN/user_greeting.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly1.in.aster

@@ -0,0 +1,4 @@
+Module demo.
+
+Rule greet given name,  produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly1.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly1.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly1.out.aster

@@ -0,0 +1,4 @@
+Module demo.
+
+Rule greet given name,  produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly1.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly1.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly10.in.aster

@@ -0,0 +1,4 @@
+Module demo.bom.
+
+Rule greet given name, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly10.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly10.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly10.out.aster

@@ -0,0 +1,4 @@
+Module demo.bom.
+
+Rule greet given name, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly10.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly10.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly11.in.aster

@@ -0,0 +1,4 @@
+Module test.lossless.golden.ugly11.in.
+
+Rule main, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly11.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly11.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly11.out.aster

@@ -0,0 +1,4 @@
+Module test.lossless.golden.ugly11.out.
+
+Rule main, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly11.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly11.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly12.in.aster

@@ -0,0 +1,6 @@
+Module demo.trailingws.    
+
+Rule id, produce:      
+  Return 1.      
+  
+  

package/corpus/tier3-fixtures/lossless/ugly12.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly12.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly12.out.aster

@@ -0,0 +1,5 @@
+Module demo.trailingws.
+
+Rule id, produce:
+  Return 1.
+

package/corpus/tier3-fixtures/lossless/ugly12.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly12.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly13.in.aster

@@ -0,0 +1,6 @@
+Module demo.match.
+
+Define User has id, name.
+
+Rule greet given u, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly13.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly13.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly13.out.aster

@@ -0,0 +1,6 @@
+Module demo.match.
+
+Define User has id, name.
+
+Rule greet given u, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly13.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly13.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly14.in.aster

@@ -0,0 +1,4 @@
+Module test.lossless.golden.ugly14.in.
+
+Rule main, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly14.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly14.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly14.out.aster

@@ -0,0 +1,6 @@
+Module demo.types.
+
+Define Box has items.
+
+Rule headMap given b, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly14.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly14.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly2.in.aster

@@ -0,0 +1,4 @@
+Module test.lossless.golden.ugly2.in.
+
+Rule main, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly2.in.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly2.in.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly2.out.aster

@@ -0,0 +1,4 @@
+Module demo.
+
+Rule sum given x, y, produce:
+  Return 0.

package/corpus/tier3-fixtures/lossless/ugly2.out.meta.json

@@ -0,0 +1,9 @@
+{
+  "tier": 3,
+  "bucket": "lossless",
+  "engines": [
+    "ts"
+  ],
+  "lexicon": "en-US",
+  "source": "aster-lang-ts/test/lossless/golden/ugly2.out.aster"
+}

package/corpus/tier3-fixtures/lossless/ugly3.in.aster

@@ -0,0 +1,6 @@
+Module demo.    
+
+Rule print given msg, produce  :   
+  Return IO.print(msg)   .     
+
+