mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-16 00:09:31 -06:00
Swedish functor implementation of Base
This commit is contained in:
22
examples/tutorial/semantics/LexBaseSwe.gf
Normal file
22
examples/tutorial/semantics/LexBaseSwe.gf
Normal file
@@ -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 ; ---
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user