diff --git a/features-tree.scm b/features-tree.scm index 7c183d8..d4fc8c5 100644 --- a/features-tree.scm +++ b/features-tree.scm @@ -42,80 +42,43 @@ (tree-to-dot-helper (cdr tree) 1 0) "}"))) -(define consonants - '("consonants" - ("[stop]" - ("[fricative]" - ("[voice]" ("g͡ʒ")) - ("{voice}" ("k͡ʃ"))) - ("{fricative}" - ("[nasal]" - ("[clic]" ("ᵑ‖")) - ("{clic}" - ("[voice]" - ("[SG]" ("n̪͡d̪ʰ")) - ("{SG}" ("n̪͡d̪"))) - ("{voice}" - ("[SG]" ("n̪͡t̪ʰ")) - ("{SG}" ("n̪͡t̪"))))) - ("{nasal}" - ("[voice]" - ("[dorsal]" - ("[implosive]" ("ɠ")) - ("{implosive}" - ("[SG]" ("gʰ")) - ("{SG}" ("g")))) - ("{dorsal}" - ("[implosive]" ("ɗ̪")) - ("{implosive}" - ("[SG]" ("d̪ʰ")) - ("{SG}" ("d̪"))))) - ("{voice}" - ("[dorsal]" - ("[implosive]" ("ƙ")) - ("{implosive}" - ("[SG]" ("kʰ")) - ("{SG}" ("k")))) - ("{dorsal}" - ("[implosive]" ("ƭ̪")) - ("{implosive}" - ("[SG]" ("t̪ʰ")) - ("{SG}" ("t̪")))))))) - ("{stop}" - ("[fricative]" - ("[nasal]" - ("[voice]" ("n͡ʒ")) - ("{voice}" ("n͡ʃ"))) - ("{nasal}" - ("[coronal]" - ("[voice]" ("ʒ")) - ("{voice}" ("ʃ"))) - ("{coronal}" - ("[dorsal]" ("xʷ")) - ("{dorsal}" ("ɸʷ"))))) - ("{fricative}" - ("[cons]" - ("[cont]" ("l̪")) - ("{cont}" - ("[labial]" ("m")) - ("{labial}" ("n̪")))) - ("{cons}" - ("[round]" ("w")) - ("{round}" ("j"))))))) (define vowels - '("vowels" - ("[low]" - ("[nasal]" ("ɑ̃")) - ("{nasal}" ("a"))) - ("{low}" - ("[back]" - ("[tense]" ("ɔ")) - ("{tense}" ("u"))) - ("{back}" - ("[tense]" - ("[rnd]" ("ø")) - ("{rnd}" ("e"))) - ("{tense}" - ("[rnd]" ("ɛ")) - ("{rnd}" ("œ"))))))) + '("[vowel]" + ("[back]" + ("[tense]" + ("[high]" ("ü")) + ("{high}" ("ö"))) + ("{tense}" + ("[high]" ("u")) + ("{high}" ("o")))) + ("{back}" + ("[tense]" + ("[high]" ("y")) + ("{high}" ("ë"))) + ("{tense}" + ("[high]" ("i")) + ("{high}" ("e")))))) + +(define syntax-tree + '("S" + ("Obl") + ("S'" + ("NPerg" + ("NP")) + ("VP" + ("NPdat" + ("NP")) + ("VP'" + ("NPabs" + ("NP" + ("S") + ("NP'" + ("Adj") + ("N")))) + ("V'" + ("Mood") + ("Tense") + ("V") + ("Neg"))))))) + (display (tree-to-dot vowels))