Complete AdjectiveTur (#12)

* remove unnecessary flags from GrammarTur.gf * Implement the linearization for UseA2 * Minor formatting fixes * Manually specify the preposition "ile" for married_A2 * Implement the linearization for ComplA2 * Implement the linearization for ReflA2 ("kendi ile evli") * Fix ReflA2 adjective case to Nom * Add a TODO comment * Add a linearization for AdAP * Implement the linearization for UseA2 * Minor formatting fixes * Manually specify the preposition "ile" for married_A2 * Implement the linearization for ComplA2 * Implement the linearization for ReflA2 ("kendi ile evli") * Fix ReflA2 adjective case to Nom * Add a TODO comment * Add a linearization for AdAP * Fix AdAP * Add linearization for at_most_AdN * Add linearization for at_least_AdN * added dummies for the missing modules in Turkish * Add the linearization for as_CAdv * Add rudimentary linearization for UsePN * Add the linearization for CAdvAP * Add preliminary linearization for EmbedVP * Add linearization stub for SentAP * Fix code-formatting and indentation in HarmonyTur * Patterns for front and back vowels * Add an oper for attaching the -mA suffix * Formatting fixes in ParadigmsTur * Attempt to implement attachMe * Almost-working linearization for SentAP * Update TODO for SentAP * Move the addition of suffix si to the linearization of EmbedVP * Import PhraseTur in GrammarTur * Fix the duplication of PhraseTur in GrammarTur * Start working on PhraseTur * Fix formatting of makeH4Table * Formatting * Begin implementing the gerund inflection `makeVerb` * Attach Number and Case data to the Gerund constructor of param VForm * Get rid of hacky appending of "si" in EmbedVP
2017-09-30 06:29:03 -05:00
parent 432a6295cc
commit 76d6749797
15 changed files with 726 additions and 542 deletions
@@ -278,27 +278,30 @@ resource SuffixTur = open Prelude, Predef, ResTur, HarmonyTur in {
                _ => wordC.p1
              } ;

--  An auxiallary oper that fills in SuffixTable, used to avoid copy-paste
-    makeH4Table : {p1 : Str ; p2 : Str ; p3 : Str ; p4 : Str ;} -> {p1 : Str ; p2 : Str ; p3 : Str ; p4 : Str ; p5 : Str ; p6 : Str ; p7 : Str ; p8 : Str ;} -> SuffixTable =
-      \lirV,lirC ->
-	table {
-	  SVow => table {
-		      I_Har => lirV.p1 ;
-		      Ih_Har => lirV.p2 ;
-		      U_Har => lirV.p3 ;
-		      Uh_Har => lirV.p4
-		  } ;
-	  SCon Soft => table {
-			I_Har => lirC.p1 ;
-			Ih_Har => lirC.p2 ;
-			U_Har => lirC.p3 ;
-			Uh_Har => lirC.p4
-		      } ;
-	  SCon Hard => table {
-			I_Har => lirC.p5 ;
-			Ih_Har => lirC.p6 ;
-			U_Har => lirC.p7 ;
-			Uh_Har => lirC.p8
-		      }
-        } ;
-}
+    --  An auxiliary oper that fills in SuffixTable, used to avoid copy-paste
+    makeH4Table : {p1 : Str ; p2 : Str ; p3 : Str ; p4 : Str ;}
+               -> {p1 : Str ; p2 : Str ; p3 : Str ; p4 : Str ;
+                   p5 : Str ; p6 : Str ; p7 : Str ; p8 : Str }
+               -> SuffixTable =
+        \lirV,lirC ->
+          table {
+            SVow => table {
+                  I_Har => lirV.p1 ;
+                  Ih_Har => lirV.p2 ;
+                  U_Har => lirV.p3 ;
+                  Uh_Har => lirV.p4
+            } ;
+            SCon Soft => table {
+              I_Har => lirC.p1 ;
+              Ih_Har => lirC.p2 ;
+              U_Har => lirC.p3 ;
+              Uh_Har => lirC.p4
+            } ;
+            SCon Hard => table {
+              I_Har => lirC.p5 ;
+              Ih_Har => lirC.p6 ;
+              U_Har => lirC.p7 ;
+              Uh_Har => lirC.p8
+            }
+          } ;
+}