msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

finnish updates

Browse Source
This commit is contained in:
aarne
2008-01-28 17:41:51 +00:00
parent 2791eee7ff
commit a57467fd19
5 changed files with 64 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/uusisuomi/Verbal.gf
View File

@@ -10,6 +10,9 @@ resource Verbal = ResFin **
mkV = overload {
mkV : (huutaa : Str) -> V = mk1V ;
mkV : (huutaa,huusi : Str) -> V = mk2V ;
mkV : (
huutaa,huudan,huutaa,huutavat,huutakaa,huudetaan,
huusin,huusi,huusisi,huutanut,huudettu,huutanee : Str) -> V = mk12V ;
} ;
showV : V -> Utt = \v -> ss (
@@ -29,6 +32,12 @@ resource Verbal = ResFin **
mk1V : Str -> V = \s -> vforms2V (vForms1 s) ;
mk2V : (_,_ : Str) -> V = \s,t -> vforms2V (vForms2 s t) ;
mk12V : (
huutaa,huudan,huutaa,huutavat,huutakaa,huudetaan,
huusin,huusi,huusisi,huutanut,huudettu,huutanee : Str) -> V =
\a,b,c,d,e,f,g,h,i,j,k,l ->
vforms2V (vForms12 a b c d e f g h i j k l) ;
vForms1 : Str -> VForms = \ottaa ->
let
a = last ottaa ;