diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-11 10:28:32 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-11 10:28:32 +0000 |
| commit | a5300ad062b82154f3f9533e143ea35515e6c39e (patch) | |
| tree | a7eddd52596e0d216f17c9c7581d6ea67f9d8879 /examples/tutorial/old/semantics/LexBaseSwe.gf | |
| parent | db18350b1e55f7edfca8f02b0b233a6a7dcbb1ec (diff) | |
tutorial complete with server and js
Diffstat (limited to 'examples/tutorial/old/semantics/LexBaseSwe.gf')
| -rw-r--r-- | examples/tutorial/old/semantics/LexBaseSwe.gf | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/examples/tutorial/old/semantics/LexBaseSwe.gf b/examples/tutorial/old/semantics/LexBaseSwe.gf new file mode 100644 index 000000000..6ac1904aa --- /dev/null +++ b/examples/tutorial/old/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 ; --- + +} |
