Rename: nlg → elp (Engram Language Protocol)

tests/examples/lang-ar.el

@@ -0,0 +1,56 @@
+// lang-ar.el - Arabic NLG tests: VSO assertion, intonation question.
+//
+// Arabic is VSO (Verb-Subject-Object), fusional, RTL script.  The word order
+// test verifies that gram_order_constituents places the verb first for "ar".
+// Questions use the intonation strategy (statement word order + "?").
+//
+// Expected outputs (approximate):
+//   assert:   "يأكل القط السمكة."   (VSO: verb-subject-object)
+//   question: "يأكل القط السمكة?"   (same VSO order, ? punctuation)
+
+fn test_assert() -> String {
+    // VSO order: verb يأكل (eats), subject القط (the cat), object السمكة (the fish)
+    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, "القط")
+    let form = native_list_append(form, "predicate")
+    let form = native_list_append(form, "يأكل")
+    let form = native_list_append(form, "patient")
+    let form = native_list_append(form, "السمكة")
+    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, "ar")
+    return realize(form)
+}
+
+fn test_question() -> String {
+    // Intonation question: same VSO order, ? punctuation
+    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, "القط")
+    let form = native_list_append(form, "predicate")
+    let form = native_list_append(form, "يأكل")
+    let form = native_list_append(form, "patient")
+    let form = native_list_append(form, "السمكة")
+    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, "ar")
+    return realize(form)
+}
+
+println(test_assert())
+println(test_question())