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

fixed Danish superlatives and a couple of verb inflections

Browse Source
This commit is contained in:
aarne
2010-05-15 11:31:35 +00:00
parent 359a26320c
commit 3f950d2b3d
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/danish/IrregDan.gf
View File

@@ -33,8 +33,8 @@ concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in {
gnide_V = irregV "gnide" "gned" "gnidd" ;-- gnide_V = irregV "gnide" "gned" "gnidd" ;--
gøre_V = irregV "gøre" "gjorde" "gjort" ; gøre_V = irregV "gøre" "gjorde" "gjort" ;
have_V = mkV "have" "har" "havde" "haft" "havd" "hav" ; have_V = mkV "have" "har" "havde" "haft" "havd" "hav" ;
hede_V = mkV "hede" "hed" "hedes" "hedde" "hett" "hed" ; ----
hente_V = irregV "hente" "hentet" "hendt" ;-- hente_V = irregV "hente" "hentet" "hendt" ;--
-- hete_V = irregV "hete" (variants {"het" ;-- "hette"}) "hett" ;--
-- hjelpe_V = irregV "hjelpe" "hjalp" "hjulpet" ;-- -- hjelpe_V = irregV "hjelpe" "hjalp" "hjulpet" ;--
holde_V = irregV "holde" "holdt" "holdt" ;-- holde_V = irregV "holde" "holdt" "holdt" ;--
komme_V = irregV "komme" "kom" "kommet" ; komme_V = irregV "komme" "kom" "kommet" ;
@@ -65,7 +65,7 @@ concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in {
-- treffe_V = irregV "treffe" "traff" "truffet" ;-- -- treffe_V = irregV "treffe" "traff" "truffet" ;--
-- trives_V = irregV "trives" "trivdes" (variants {"trives" ;-- "trivs"}) ;-- -- trives_V = irregV "trives" "trivdes" (variants {"trives" ;-- "trivs"}) ;--
tælle_V = irregV "tælle" "talte" "talt" ; tælle_V = irregV "tælle" "talte" "talt" ;
vide_V = irregV "vide" "vidste" "vidst" ; vide_V = mkV "vide" "ved" "vedes" "vidste" "vidst" "ved" ; ----
} }

2
src/danish/IrregDanAbs.gf
View File

@@ -29,7 +29,7 @@ abstract IrregDanAbs = Cat ** {
gřre_V : V ; gřre_V : V ;
have_V : V ; have_V : V ;
hente_V : V ; hente_V : V ;
-- hete_V : V ; hede_V : V ;
-- hjelpe_V : V ; -- hjelpe_V : V ;
holde_V : V ; holde_V : V ;
komme_V : V ; komme_V : V ;

2
src/scandinavian/NounScand.gf
View File

@@ -51,7 +51,7 @@ incomplete concrete NounScand of Noun =
sp = \\b,g => quant.s ! num.n ! b ! True ! g ++ sp = \\b,g => quant.s ! num.n ! b ! True ! g ++
num.s ! g ++ ord.s ; num.s ! g ++ ord.s ;
n = num.n ; n = num.n ;
det = quant.det det = DDef detDef ---- quant.det
} ; } ;
DetQuant quant num = DetQuant quant num =