diff options
Diffstat (limited to 'examples/attempto/LexAttemptoUrd.gf')
| -rw-r--r-- | examples/attempto/LexAttemptoUrd.gf | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/examples/attempto/LexAttemptoUrd.gf b/examples/attempto/LexAttemptoUrd.gf new file mode 100644 index 000000000..c38885a25 --- /dev/null +++ b/examples/attempto/LexAttemptoUrd.gf @@ -0,0 +1,39 @@ +instance LexAttemptoUrd of LexAttempto =
+ open
+ ExtraUrd,
+ SyntaxUrd,
+ ParadigmsUrd,
+ ConstructX,
+ (M = MakeStructuralUrd)
+-- IrregUrd
+ in {
+
+oper
+ possible_A = mkA "mmkn" ;
+ necessary_A = mkA "Zrwry" ;
+ own_A = mkA "apna" ;
+ have_VV = mkVV have_V ;
+ provably_Adv = ParadigmsUrd.mkAdv "sabt" ;
+ provable_A = mkA "sabt" ;
+ false_A = mkA "GlT" ;
+ such_A = mkA "aisa" ;
+
+ genitiveNP np = mkNP (GenNP np) ;
+
+ kilogram_CN = mkCN (mkN "klwgram") ;
+
+ each_Det = ExtraUrd.each_Det ;
+
+ that_Subj = M.mkSubj "kh" ;
+
+ comma_and_Conj = mkConj [] "awr" plural ;
+ comma_or_Conj = mkConj [] "ya" singular ;
+ slash_Conj = mkConj [] "/" singular ;
+
+ whose_IDet = M.mkIDet "ks ka" singular ;
+
+ eachOf np = mkNP (mkNP each_Det) (SyntaxUrd.mkAdv part_Prep np) ;
+
+ adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ;
+
+}
|
