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

new vocab updated for dan and nor (buggy)

Browse Source
This commit is contained in:
aarne
2005-01-23 20:39:47 +00:00
parent 852474e908
commit 1c6c42a835
5 changed files with 45 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource/danish/SyntaxDan.gf
View File

@@ -82,7 +82,7 @@ instance SyntaxDan of SyntaxScand = TypesDan **
auxHar = "har" ;
auxHade = "havde" ;
auxHa = "have" ;
auxSka = "val" ;
auxSka = "vil" ;
auxSkulle = "ville" ;
infinAtt = "at" ;

21
lib/resource/danish/TestResourceDan.gf
View File

@@ -1,6 +1,7 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceDan of TestResource = RulesDan, StructuralDan ** open MorphoDan, SyntaxDan in {
concrete TestResourceDan of TestResource = RulesDan, StructuralDan **
open Prelude, MorphoDan, SyntaxDan in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
@@ -47,4 +48,22 @@ lin
John = mkProperName "Johan" NUtr ;
Mary = mkProperName "Maria" NUtr ;
--- next
AlreadyAdv = advPre "allerede" ;
NowAdv = advPre "nu" ;
Paint = extTransVerb (vNopart (vHusk "mål")) [] ;
Green = mkAdjective "grøn" "grønt" "grøne" "grønnere" "grønnest" ;
Beg = extTransVerb (mkVerb "bede" "beder" "bedes" "bad" "bedt" "bed") [] ** {s3 = "at"} ;
Promise = extTransVerb (vNopart (vSpis "lov")) [] ** {isAux = False} ;
Promise2 = extTransVerb (vNopart (vSpis "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vHusk "undr")) [] ;
Ask = extTransVerb (mkVerb "spørge" "spørger""spørges""spurgte""spurgt""spørg") [] ;
Tell = extTransVerb (mkVerb "fortælle" "fortæller" "fortælles"
"fortalte" "fortalt" "fortæll") [] ;
Look = extTransVerb (mkVerb "se" "ser" "ses" "så" "set" "sedd") []
; ---- ut
} ;