diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-20 10:38:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-20 10:38:03 +0000 |
| commit | e4119186fa03a12d8820bc3c03797ac33c71e258 (patch) | |
| tree | 87674c66ff9261fbdb9b75ea7507fdd0e5ec3c18 /examples-3.0/tutorial/semantics/LexBaseSwe.gf | |
| parent | c3bb8267e67f8d2238a95f3930d6d8e3a6f7d234 (diff) | |
tutorial semantics example works except one rul
Diffstat (limited to 'examples-3.0/tutorial/semantics/LexBaseSwe.gf')
| -rw-r--r-- | examples-3.0/tutorial/semantics/LexBaseSwe.gf | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/examples-3.0/tutorial/semantics/LexBaseSwe.gf b/examples-3.0/tutorial/semantics/LexBaseSwe.gf new file mode 100644 index 000000000..6ac1904aa --- /dev/null +++ b/examples-3.0/tutorial/semantics/LexBaseSwe.gf @@ -0,0 +1,22 @@ +instance LexBaseSwe of LexBase = open SyntaxSwe, ParadigmsSwe in { + +oper + even_A = mkA "jämn" ; + odd_A = invarA "udda" ; + prime_A = mkA "prim" ; + great_A = mkA "stor" "större" "störst" ; + common_A = mkA "gemensam" ; + equal_A2 = mkA2 (invarA "lika") (mkPrep "med") ; + greater_A2 = mkA2 (invarA "större") (mkPrep "än") ; --- + smaller_A2 = mkA2 (invarA "mindre") (mkPrep "än") ; --- + divisible_A2 = mkA2 (mkA "delbar") (mkPrep "med") ; + number_N = mkN "tal" "tal" ; + sum_N2 = mkN2 (mkN "summa") (mkPrep "av") ; + product_N2 = mkN2 (mkN "produkt") (mkPrep "av") ; + divisor_N2 = mkN2 (mkN "delare") (mkPrep "av") ; + + none_NP = mkNP (mkPN "inget" neutrum) ; --- + + invarA : Str -> A = \x -> mkA x x x x x ; --- + +} |
