Rename: nlg → elp (Engram Language Protocol)

tests/examples/lang-fi.el

@@ -0,0 +1,59 @@
+// lang-fi.el - Finnish NLG tests: assertion, question with -ko particle.
+//
+// Finnish is SOV, agglutinative, 15 grammatical cases.  Questions use the
+// "particle" strategy: statement order with -ko/-kö suffix on the verb.
+// The realizer appends "-ko" for Finnish (see realize_question_lang).
+//
+// "kalaa" is the partitive form of kala (fish) — the engine produces the
+// base form unless morphology-fi.el is loaded with suffix tables.
+//
+// Expected outputs (approximate):
+//   assert:   "Kissa syö kalaa."   (SOV order)
+//   question: "Kissa syö kalaa-ko?"  (SOV + -ko particle on verb or sentence end)
+
+fn test_assert() -> String {
+    // SOV: subject Kissa (cat), verb syö (eats), object kalaa (fish-PARTITIVE)
+    let form: [String] = native_list_empty()
+    let form = native_list_append(form, "intent")
+    let form = native_list_append(form, "assert")
+    let form = native_list_append(form, "agent")
+    let form = native_list_append(form, "kissa")
+    let form = native_list_append(form, "predicate")
+    let form = native_list_append(form, "syö")
+    let form = native_list_append(form, "patient")
+    let form = native_list_append(form, "kalaa")
+    let form = native_list_append(form, "location")
+    let form = native_list_append(form, "")
+    let form = native_list_append(form, "tense")
+    let form = native_list_append(form, "present")
+    let form = native_list_append(form, "aspect")
+    let form = native_list_append(form, "simple")
+    let form = native_list_append(form, "lang")
+    let form = native_list_append(form, "fi")
+    return realize(form)
+}
+
+fn test_question() -> String {
+    // Finnish question particle: statement order + -ko appended by realizer
+    let form: [String] = native_list_empty()
+    let form = native_list_append(form, "intent")
+    let form = native_list_append(form, "question")
+    let form = native_list_append(form, "agent")
+    let form = native_list_append(form, "kissa")
+    let form = native_list_append(form, "predicate")
+    let form = native_list_append(form, "syö")
+    let form = native_list_append(form, "patient")
+    let form = native_list_append(form, "kalaa")
+    let form = native_list_append(form, "location")
+    let form = native_list_append(form, "")
+    let form = native_list_append(form, "tense")
+    let form = native_list_append(form, "present")
+    let form = native_list_append(form, "aspect")
+    let form = native_list_append(form, "simple")
+    let form = native_list_append(form, "lang")
+    let form = native_list_append(form, "fi")
+    return realize(form)
+}
+
+println(test_assert())
+println(test_question())