GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added AdvCN ; some German morpho bug fixes

Browse Source
This commit is contained in:
aarne
2006-01-18 17:27:52 +00:00
parent ae956d0805
commit 399e92c8f7
7 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/resource-1.0/abstract/Noun.gf
View File

@@ -99,13 +99,16 @@ abstract Noun = Cat ** {
-- Relational nouns can also be used without their arguments. -- Relational nouns can also be used without their arguments.
-- The semantics is typically derivative of the relational meaning. -- The semantics is typically derivative of the relational meaning.
UseN2 : N2 -> CN ; -- son UseN2 : N2 -> CN ; -- son
UseN3 : N3 -> CN ; -- flight UseN3 : N3 -> CN ; -- flight
-- Nouns can be modified by adjectives and relative clauses. -- Nouns can be modified by adjectives, relative clauses, and adverbs
-- (the last rule will give rise to many 'PP attachement' ambiguities
-- when used in connection with verb phrases).
AdjCN : AP -> CN -> CN ; -- big house AdjCN : AP -> CN -> CN ; -- big house
RelCN : CN -> RS -> CN ; -- house that John owns RelCN : CN -> RS -> CN ; -- house that John owns
AdvCN : CN -> Adv -> CN ; -- house on the hill
-- Nouns can also be modified by embedded sentences and questions. -- Nouns can also be modified by embedded sentences and questions.
-- For some nouns this makes little sense, but we leave this for applications -- For some nouns this makes little sense, but we leave this for applications

1
lib/resource-1.0/english/NounEng.gf
View File

@@ -59,6 +59,7 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
s = \\n,c => preOrPost ap.isPre (ap.s ! agrP3 n) (cn.s ! n ! c) s = \\n,c => preOrPost ap.isPre (ap.s ! agrP3 n) (cn.s ! n ! c)
} ; } ;
RelCN cn rs = {s = \\n,c => cn.s ! n ! c ++ rs.s ! {n = n ; p = P3}} ; RelCN cn rs = {s = \\n,c => cn.s ! n ! c ++ rs.s ! {n = n ; p = P3}} ;
AdvCN cn ad = {s = \\n,c => cn.s ! n ! c ++ ad.s} ;
SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ; SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ;

2
lib/resource-1.0/german/BasicGer.gf
View File

@@ -41,7 +41,7 @@ lin
buy_V2 = dirV2 (regV "kaufen") ; buy_V2 = dirV2 (regV "kaufen") ;
camera_N = reg2N "Kamera" "Kameras" feminine ; camera_N = reg2N "Kamera" "Kameras" feminine ;
cap_N = regN "Mütze" ; cap_N = regN "Mütze" ;
car_N = reg2N "Wagen" "Wagen" masculine ; car_N = regN "Wagen" ;
carpet_N = regN "Teppich" ; carpet_N = regN "Teppich" ;
cat_N = regN "Katze" ; cat_N = regN "Katze" ;
ceiling_N = reg2N "Dach" "Dächer" neuter ; ceiling_N = reg2N "Dach" "Dächer" neuter ;

3
lib/resource-1.0/german/MorphoGer.gf
View File

@@ -34,7 +34,8 @@ oper
_ => hund + variants {"s" ; "es"} _ => hund + variants {"s" ; "es"}
} ; } ;
pluralN : Str -> Str = \hund -> case hund of { pluralN : Str -> Str = \hund -> case hund of {
_ + ("el" | "en" | "er" | "e") => hund + "n" ; _ + ("el" | "er" | "e") => hund + "n" ;
_ + "en" => hund ;
_ => hund + "en" _ => hund + "en"
} ; } ;
dativE : Str -> Str = \hund -> case hund of { dativE : Str -> Str = \hund -> case hund of {

5
lib/resource-1.0/german/NounGer.gf
View File

@@ -132,4 +132,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
g = cn.g g = cn.g
} ; } ;
AdvCN cn s = {
s = \\a,n,c => cn.s ! a ! n ! c ++ s.s ;
g = cn.g
} ;
} }

4
lib/resource-1.0/german/ParadigmsGer.gf
View File

@@ -260,8 +260,8 @@ oper
regN : Str -> N = \hund -> case hund of { regN : Str -> N = \hund -> case hund of {
_ + "e" => mkN hund hund hund hund (hund + "n") (hund + "n") Fem ; _ + "e" => mkN hund hund hund hund (hund + "n") (hund + "n") Fem ;
_ + ("ion" | "ung") => mkN hund hund hund hund (hund + "en") (hund + "en") Fem ; _ + ("ion" | "ung") => mkN hund hund hund hund (hund + "en") (hund + "en") Fem ;
_ + ("er" | "en" | "el") => mkN hund hund hund (genitS hund) hund (hund + "n") Masc ; _ + ("er" | "en" | "el") => mkN hund hund hund (genitS hund) hund (pluralN hund) Masc ;
_ => mkN hund hund hund (genitS hund) (hund + "e") (hund + "en") Masc _ => mkN hund hund hund (genitS hund) (hund + "e") (pluralN hund) Masc
} ; } ;
reg2N : (x1,x2 : Str) -> Gender -> N = \hund,hunde,g -> reg2N : (x1,x2 : Str) -> Gender -> N = \hund,hunde,g ->

8
lib/resource-1.0/scandinavian/NounScand.gf
View File

@@ -33,7 +33,8 @@ incomplete concrete NounScand of Noun =
det = quant.det det = quant.det
} ; } ;
DetPl quant num ord = { DetPl quant num ord = {
s = \\b,g => quant.s ! (orB b (orB num.isDet ord.isDet)) ! g ++ ord.s ; s = \\b,g => quant.s ! (orB b (orB num.isDet ord.isDet)) ! g ++
num.s ! g ++ ord.s ;
n = Pl ; n = Pl ;
det = quant.det det = quant.det
} ; } ;
@@ -116,5 +117,10 @@ incomplete concrete NounScand of Noun =
g = g ; g = g ;
isMod = cn.isMod isMod = cn.isMod
} ; } ;
AdvCN cn sc = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ sc.s ;
g = g ;
isMod = cn.isMod
} ;
} }