(Hun) Handle multiword splitting already in Paradigms.

2026-06-25 11:06:28 -06:00 · 2020-06-28 12:35:05 +02:00
parent 267e457cc2
commit 2cf9c2ff1e
2 changed files with 52 additions and 15 deletions
@@ -629,4 +629,19 @@ oper
      _ => endCase c
    } ;

+    Multiword : Type = {p1,p2 : Str} ;
+    splitMultiword : Str -> Multiword = \multi_word -> case multi_word of {
+        x + "-" + y
+          => <x+"-", y> ;
+        v + " " + w + " " + x + " " + y + " " + z
+          => <v ++ w ++ x ++ y+" ", z> ;
+        w + " " + x + " " + y + " " + z
+          => <w ++ x ++ y+" ", z> ;
+        x + " " + y + " " + z
+          => <x ++ y+" ", z> ;
+        y + " " + z
+          => <y + " ", z> ;
+        _ => <"", multi_word>
+        } ;
+
 }