German numerals and almost all Basic

This commit is contained in:
aarne
2006-01-17 19:15:13 +00:00
parent b80f737013
commit 89cd3d352d
10 changed files with 187 additions and 176 deletions

View File

@@ -122,6 +122,13 @@ oper
mkA2 : A -> Prep -> A2 ;
--2 Adverbs
-- Adverbs are just strings.
mkAdv : Str -> Adv ;
--2 Prepositions
-- A preposition is formed from a string and a case.
@@ -301,6 +308,8 @@ oper
mkA2 = \a,p -> a ** {c2 = p ; lock_A2 = <>} ;
mkAdv s = {s = s ; lock_Adv = <>} ;
mkPrep s c = {s = s ; c = c ; lock_Prep = <>} ;
accPrep = mkPrep [] accusative ;
datPrep = mkPrep [] dative ;