GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

checking name conflicts; some RGs don't work now

Browse Source
This commit is contained in:
aarne
2007-06-17 21:56:27 +00:00
parent 1af6e2d4cc
commit bf64f34032
11 changed files with 72 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
prelude/Coordination.gf
View File

@@ -4,8 +4,6 @@ param
ListSize = TwoElem | ManyElem ; ListSize = TwoElem | ManyElem ;
oper oper
SS = {s : Str} ; ----
ListX = {s1,s2 : Str} ; ListX = {s1,s2 : Str} ;
twoStr : (x,y : Str) -> ListX = \x,y -> twoStr : (x,y : Str) -> ListX = \x,y ->

10
resource-1.0/english/CatEng.gf
View File

@@ -12,29 +12,29 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
-- Sentence -- Sentence
Cl = {s : Tense => Anteriority => CPolarity => Order => Str} ; Cl = {s : ResEng.Tense => Anteriority => CPolarity => Order => Str} ;
Slash = { Slash = {
s : Tense => Anteriority => CPolarity => Order => Str ; s : ResEng.Tense => Anteriority => CPolarity => Order => Str ;
c2 : Str c2 : Str
} ; } ;
Imp = {s : CPolarity => ImpForm => Str} ; Imp = {s : CPolarity => ImpForm => Str} ;
-- Question -- Question
QCl = {s : Tense => Anteriority => CPolarity => QForm => Str} ; QCl = {s : ResEng.Tense => Anteriority => CPolarity => QForm => Str} ;
IP = {s : Case => Str ; n : Number} ; IP = {s : Case => Str ; n : Number} ;
IComp = {s : Str} ; IComp = {s : Str} ;
IDet = {s : Str ; n : Number} ; IDet = {s : Str ; n : Number} ;
-- Relative -- Relative
RCl = {s : Tense => Anteriority => CPolarity => Agr => Str ; c : Case} ; RCl = {s : ResEng.Tense => Anteriority => CPolarity => Agr => Str ; c : Case} ;
RP = {s : RCase => Str ; a : RAgr} ; RP = {s : RCase => Str ; a : RAgr} ;
-- Verb -- Verb
VP = { VP = {
s : Tense => Anteriority => CPolarity => Order => Agr => {fin, inf : Str} ; s : ResEng.Tense => Anteriority => CPolarity => Order => Agr => {fin, inf : Str} ;
prp : Str ; -- present participle prp : Str ; -- present participle
inf : Str ; -- infinitive inf : Str ; -- infinitive
ad : Str ; ad : Str ;

34
resource-1.0/english/LexiconEng.gf
View File

@@ -302,34 +302,34 @@ lin
wing_N = regN "wing" ; wing_N = regN "wing" ;
worm_N = regN "worm" ; worm_N = regN "worm" ;
year_N = regN "year" ; year_N = regN "year" ;
blow_V = blow_V ; blow_V = IrregEng.blow_V ;
breathe_V = dirV2 (regV "breathe") ; breathe_V = dirV2 (regV "breathe") ;
burn_V = burn_V ; burn_V = IrregEng.burn_V ;
dig_V = dig_V ; dig_V = IrregEng.dig_V ;
fall_V = fall_V ; fall_V = IrregEng.fall_V ;
float_V = regV "float" ; float_V = regV "float" ;
flow_V = regV "flow" ; flow_V = regV "flow" ;
fly_V = fly_V ; fly_V = IrregEng.fly_V ;
freeze_V = freeze_V ; freeze_V = IrregEng.freeze_V ;
give_V3 = dirV3 give_V toP ; give_V3 = dirV3 give_V toP ;
laugh_V = regV "laugh" ; laugh_V = regV "laugh" ;
lie_V = lie_V ; lie_V = IrregEng.lie_V ;
play_V = regV "play" ; play_V = regV "play" ;
sew_V = sew_V ; sew_V = IrregEng.sew_V ;
sing_V = sing_V ; sing_V = IrregEng.sing_V ;
sit_V = sit_V ; sit_V = IrregEng.sit_V ;
smell_V = regV "smell" ; smell_V = regV "smell" ;
spit_V = spit_V ; spit_V = IrregEng.spit_V ;
stand_V = stand_V ; stand_V = IrregEng.stand_V ;
swell_V = swell_V ; swell_V = IrregEng.swell_V ;
swim_V = swim_V ; swim_V = IrregEng.swim_V ;
think_V = think_V ; think_V = IrregEng.think_V ;
turn_V = regV "turn" ; turn_V = regV "turn" ;
vomit_V = regV "vomit" ; vomit_V = regV "vomit" ;
bite_V2 = dirV2 bite_V ; bite_V2 = dirV2 IrregEng.bite_V ;
count_V2 = dirV2 (regV "count") ; count_V2 = dirV2 (regV "count") ;
cut_V2 = dirV2 cut_V ; cut_V2 = dirV2 IrregEng.cut_V ;
fear_V2 = dirV2 (regV "fear") ; fear_V2 = dirV2 (regV "fear") ;
fight_V2 = dirV2 fight_V ; fight_V2 = dirV2 fight_V ;
hit_V2 = dirV2 hit_V ; hit_V2 = dirV2 hit_V ;

8
resource-1.0/finnish/CatFin.gf
View File

@@ -12,20 +12,20 @@ concrete CatFin of Cat = CommonX ** open ResFin, Prelude in {
-- Sentence -- Sentence
Cl = {s : Tense => Anteriority => Polarity => SType => Str} ; Cl = {s : ResFin.Tense => Anteriority => Polarity => SType => Str} ;
Slash = {s : Tense => Anteriority => Polarity => Str ; c2 : Compl} ; Slash = {s : ResFin.Tense => Anteriority => Polarity => Str ; c2 : Compl} ;
Imp = {s : Polarity => Number => Str} ; Imp = {s : Polarity => Number => Str} ;
-- Question -- Question
QCl = {s : Tense => Anteriority => Polarity => Str} ; QCl = {s : ResFin.Tense => Anteriority => Polarity => Str} ;
IP = {s : NPForm => Str ; n : Number} ; IP = {s : NPForm => Str ; n : Number} ;
IComp = {s : Agr => Str} ; IComp = {s : Agr => Str} ;
IDet = {s : Case => Str ; n : Number} ; IDet = {s : Case => Str ; n : Number} ;
-- Relative -- Relative
RCl = {s : Tense => Anteriority => Polarity => Agr => Str ; c : NPForm} ; RCl = {s : ResFin.Tense => Anteriority => Polarity => Agr => Str ; c : NPForm} ;
RP = {s : Number => NPForm => Str ; a : RAgr} ; RP = {s : Number => NPForm => Str ; a : RAgr} ;
-- Verb -- Verb

6
resource-1.0/finnish/NumeralFin.gf
View File

@@ -6,9 +6,9 @@ concrete NumeralFin of Numeral = CatFin ** open Prelude, ParadigmsFin, MorphoFi
flags optimize = all_subs ; flags optimize = all_subs ;
lincat lincat
Sub1000000 = {s : CardOrd => Str ; n : Number} ; Sub1000000 = {s : CardOrd => Str ; n : MorphoFin.Number} ;
Digit = {s : CardOrd => Str} ; Digit = {s : CardOrd => Str} ;
Sub10, Sub100, Sub1000 = {s : NumPlace => CardOrd => Str ; n : Number} ; Sub10, Sub100, Sub1000 = {s : NumPlace => CardOrd => Str ; n : MorphoFin.Number} ;
lin lin
num x = x ; num x = x ;
@@ -120,7 +120,7 @@ oper
} }
} ; } ;
sataaN : {s : Number => CardOrd => Str} = {s = table { sataaN : {s : MorphoFin.Number => CardOrd => Str} = {s = table {
Sg => sataN.s ; Sg => sataN.s ;
Pl => table { Pl => table {
NCard (NCase Sg Nom) => "sataa" ; NCard (NCase Sg Nom) => "sataa" ;

3
resource-1.0/finnish/ParadigmsFin.gf
View File

@@ -202,7 +202,6 @@ oper
regPN : Str -> PN ; regPN : Str -> PN ;
mkPN : N -> PN ; mkPN : N -> PN ;
mkNP : N -> Number -> NP ;
--2 Adjectives --2 Adjectives
@@ -475,6 +474,8 @@ reg3N = \vesi,veden,vesi
genN2 = \n -> mkN2 n (casePrep genitive) ; genN2 = \n -> mkN2 n (casePrep genitive) ;
regPN m = mkPN (regN m) ; regPN m = mkPN (regN m) ;
mkPN n = mkProperName n ** {lock_PN = <>} ; mkPN n = mkProperName n ** {lock_PN = <>} ;
mkNP : N -> Number -> CatFin.NP ;
mkNP noun num = { mkNP noun num = {
s = \\c => noun.s ! NCase num (npform2case num c) ; s = \\c => noun.s ! NCase num (npform2case num c) ;
a = agrP3 num ; a = agrP3 num ;

24
resource-1.0/finnish/StructuralFin.gf
View File

@@ -99,11 +99,11 @@ concrete StructuralFin of Structural = CatFin **
} ; } ;
somewhere_Adv = ss "jossain" ; somewhere_Adv = ss "jossain" ;
that_Quant = { that_Quant = {
s1 = table Number [ s1 = table (MorphoFin.Number) [
table Case { table (MorphoFin.Case) {
c => (mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3).s ! NPCase c c => (mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3).s ! NPCase c
} ; } ;
table Case { table (MorphoFin.Case) {
c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c
} }
] ; ] ;
@@ -121,11 +121,11 @@ concrete StructuralFin of Structural = CatFin **
{isPron = False} ; {isPron = False} ;
they_Pron = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; --- ne they_Pron = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; --- ne
this_Quant = { this_Quant = {
s1 = table Number [ s1 = table (MorphoFin.Number) [
table Case { table (MorphoFin.Case) {
c => (mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3).s ! NPCase c c => (mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3).s ! NPCase c
} ; } ;
table Case { table (MorphoFin.Case) {
c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c
} }
] ; ] ;
@@ -181,7 +181,7 @@ concrete StructuralFin of Structural = CatFin **
oper oper
jokuPron : Number => Case => Str = jokuPron : MorphoFin.Number => (MorphoFin.Case) => Str =
let let
ku = nhn (sPuu "ku") ; ku = nhn (sPuu "ku") ;
kui = nhn (sPuu "kuu") kui = nhn (sPuu "kuu")
@@ -198,7 +198,7 @@ oper
} }
} ; } ;
jokinPron : Number => Case => Str = jokinPron : MorphoFin.Number => (MorphoFin.Case) => Str =
table { table {
Sg => table { Sg => table {
Nom => "jokin" ; Nom => "jokin" ;
@@ -211,7 +211,7 @@ oper
} }
} ; } ;
mikaInt : Number => Case => Str = mikaInt : MorphoFin.Number => (MorphoFin.Case) => Str =
let { let {
mi = nhn (sSuo "mi") mi = nhn (sSuo "mi")
} in } in
@@ -228,7 +228,7 @@ oper
} }
} ; } ;
kukaInt : Number => Case => Str = kukaInt : MorphoFin.Number => (MorphoFin.Case) => Str =
let { let {
ku = nhn (sRae "kuka" "kenenä") ; ku = nhn (sRae "kuka" "kenenä") ;
ket = nhn (sRae "kuka" "keinä")} in ket = nhn (sRae "kuka" "keinä")} in
@@ -245,7 +245,7 @@ oper
c => ket.s ! NCase Pl c c => ket.s ! NCase Pl c
} }
} ; } ;
mikaanPron : Number => Case => Str = \\n,c => mikaanPron : MorphoFin.Number => (MorphoFin.Case) => Str = \\n,c =>
case <n,c> of { case <n,c> of {
<Sg,Nom> => "mikään" ; <Sg,Nom> => "mikään" ;
<_,Part> => "mitään" ; <_,Part> => "mitään" ;
@@ -260,7 +260,7 @@ oper
_ => mikaInt ! n ! c + "kään" _ => mikaInt ! n ! c + "kään"
} ; } ;
kukaanPron : Number => Case => Str = kukaanPron : MorphoFin.Number => (MorphoFin.Case) => Str =
table { table {
Sg => table { Sg => table {
Nom => "kukaan" ; Nom => "kukaan" ;

26
resource-1.0/italian/LexiconIta.gf
View File

@@ -8,18 +8,18 @@ flags
lin lin
airplane_N = regN "aereo" ; airplane_N = regN "aereo" ;
answer_V2S = mkV2S (verboV (rispondere_76 "rispondere")) dative ; answer_V2S = mkV2S (verboV (rispondere_76 "rispondere")) ParadigmsIta.dative ;
apartment_N = regN "apartamento" ; apartment_N = regN "apartamento" ;
apple_N = regN "mela" ; apple_N = regN "mela" ;
art_N = femN (regN "arte") ; art_N = femN (regN "arte") ;
ask_V2Q = mkV2Q (verboV (rispondere_76 "chiedere")) dative ; ask_V2Q = mkV2Q (verboV (rispondere_76 "chiedere")) ParadigmsIta.dative ;
baby_N = regN "bambino" ; baby_N = regN "bambino" ;
bad_A = prefA (mkADeg (regA "cattivo") (regA "peggio")) ; bad_A = prefA (mkADeg (regA "cattivo") (regA "peggio")) ;
bank_N = regN "banca" ; bank_N = regN "banca" ;
beautiful_A = prefA (regADeg "bello") ; beautiful_A = prefA (regADeg "bello") ;
become_VA = essereV (regV "diventare") ; become_VA = essereV (regV "diventare") ;
beer_N = regN "birra" ; beer_N = regN "birra" ;
beg_V2V = mkV2V (regV "pregare") accusative dative ; beg_V2V = mkV2V (regV "pregare") ParadigmsIta.accusative ParadigmsIta.dative ;
big_A = prefA (regADeg "grande") ; big_A = prefA (regADeg "grande") ;
bike_N = regN "bicicletta" ; bike_N = regN "bicicletta" ;
bird_N = regN "uccello" ; bird_N = regN "uccello" ;
@@ -60,12 +60,12 @@ lin
cow_N = regN "vacca" ; cow_N = regN "vacca" ;
die_V = verboV (morire_105 "morire") ; die_V = verboV (morire_105 "morire") ;
dirty_A = regADeg "sporco" ; dirty_A = regADeg "sporco" ;
distance_N3 = mkN3 (regN "distanza") genitive dative ; distance_N3 = mkN3 (regN "distanza") ParadigmsIta.genitive ParadigmsIta.dative ;
doctor_N = mkN "medico" "medici" masculine ; doctor_N = mkN "medico" "medici" masculine ;
dog_N = regN "cane" ; dog_N = regN "cane" ;
door_N = regN "porta" ; door_N = regN "porta" ;
drink_V2 = dirV2 (verboV (bere_27 "bere")) ; drink_V2 = dirV2 (verboV (bere_27 "bere")) ;
easy_A2V = mkA2V (regA "facile") dative genitive ; easy_A2V = mkA2V (regA "facile") ParadigmsIta.dative ParadigmsIta.genitive ;
eat_V2 = dirV2 (regV "mangiare") ; eat_V2 = dirV2 (regV "mangiare") ;
empty_A = regADeg "vuoto" ; empty_A = regADeg "vuoto" ;
enemy_N = regN "nemico" ; enemy_N = regN "nemico" ;
@@ -79,7 +79,7 @@ lin
fridge_N = regN "frigorifero" ; fridge_N = regN "frigorifero" ;
friend_N = regN "amico" ; friend_N = regN "amico" ;
fruit_N = regN "frutta" ; fruit_N = regN "frutta" ;
fun_AV = mkAV (regA "divertente") genitive ; fun_AV = mkAV (regA "divertente") ParadigmsIta.genitive ;
garden_N = regN "giardino" ; garden_N = regN "giardino" ;
girl_N = regN "ragazza" ; girl_N = regN "ragazza" ;
glove_N = regN "guanto" ; glove_N = regN "guanto" ;
@@ -116,7 +116,7 @@ lin
love_N = regN "amore" ; love_N = regN "amore" ;
love_V2 = dirV2 (regV "amare") ; love_V2 = dirV2 (regV "amare") ;
man_N = mkN "uomo" "uomini" masculine ; man_N = mkN "uomo" "uomini" masculine ;
married_A2 = mkA2 (regA "sposato") dative ; married_A2 = mkA2 (regA "sposato") ParadigmsIta.dative ;
meat_N = femN (regN "carne") ; meat_N = femN (regN "carne") ;
milk_N = regN "latte" ; milk_N = regN "latte" ;
moon_N = regN "luna" ; moon_N = regN "luna" ;
@@ -130,7 +130,7 @@ lin
old_A = prefA (regADeg "vecchio") ; old_A = prefA (regADeg "vecchio") ;
open_V2 = dirV2 (verboV (aprire_102 "aprire")) ; open_V2 = dirV2 (verboV (aprire_102 "aprire")) ;
paint_V2A = paint_V2A =
mkV2A (verboV (cingere_31 "pingere")) accusative (mkPrep "in") ; ---- mkV2A (verboV (cingere_31 "pingere")) ParadigmsIta.accusative (mkPrep "in") ; ----
paper_N = regN "carta" ; paper_N = regN "carta" ;
paris_PN = mkPN "Parigi" masculine ; paris_PN = mkPN "Parigi" masculine ;
peace_N = femN (regN "pace") ; peace_N = femN (regN "pace") ;
@@ -159,8 +159,8 @@ lin
sea_N = regN "mare" ; sea_N = regN "mare" ;
seek_V2 = dirV2 (regV "cercare") ; seek_V2 = dirV2 (regV "cercare") ;
see_V2 = dirV2 (verboV (vedere_93 "vedere")) ; see_V2 = dirV2 (verboV (vedere_93 "vedere")) ;
sell_V3 = dirV3 (verboV (scendere_80 "vendere")) dative ; ---- except some forms sell_V3 = dirV3 (verboV (scendere_80 "vendere")) ParadigmsIta.dative ; ---- except some forms
send_V3 = dirV3 (regV "mandare") dative ; send_V3 = dirV3 (regV "mandare") ParadigmsIta.dative ;
sheep_N = regN "agnello" ; sheep_N = regN "agnello" ;
ship_N = femN (regN "nave") ; ship_N = femN (regN "nave") ;
shirt_N = regN "camicia" ; shirt_N = regN "camicia" ;
@@ -184,7 +184,7 @@ lin
switch8off_V2 = dirV2 (verboV (cingere_31 "spingere")) ; switch8off_V2 = dirV2 (verboV (cingere_31 "spingere")) ;
switch8on_V2 = dirV2 (regV "allumare") ; ---- switch8on_V2 = dirV2 (regV "allumare") ; ----
table_N = regN "tavola" ; --- tavolo table_N = regN "tavola" ; --- tavolo
talk_V3 = mkV3 (regV "parlare") dative genitive ; talk_V3 = mkV3 (regV "parlare") ParadigmsIta.dative ParadigmsIta.genitive ;
teacher_N = regN "professore" ; teacher_N = regN "professore" ;
teach_V2 = dirV2 (regV "insegnare") ; teach_V2 = dirV2 (regV "insegnare") ;
television_N = femN (regN "televisione") ; television_N = femN (regN "televisione") ;
@@ -198,7 +198,7 @@ lin
understand_V2 = dirV2 (regV "capire") ; understand_V2 = dirV2 (regV "capire") ;
university_N = regN "università" ; university_N = regN "università" ;
village_N = regN "paese" ; village_N = regN "paese" ;
wait_V2 = mkV2 (regV "aspettare") dative ; wait_V2 = mkV2 (regV "aspettare") ParadigmsIta.dative ;
walk_V = regV "camminare" ; walk_V = regV "camminare" ;
warm_A = regADeg "caldo" ; warm_A = regADeg "caldo" ;
war_N = regN "guerra" ; war_N = regN "guerra" ;
@@ -219,7 +219,7 @@ lin
now_Adv = mkAdv "adesso" ; now_Adv = mkAdv "adesso" ;
already_Adv = mkAdv "già" ; already_Adv = mkAdv "già" ;
song_N = femN (regN "canzone") ; song_N = femN (regN "canzone") ;
add_V3 = dirV3 (verboV (giungere_55 "aggiungere")) dative ; add_V3 = dirV3 (verboV (giungere_55 "aggiungere")) ParadigmsIta.dative ;
number_N = regN "numero" ; number_N = regN "numero" ;
put_V2 = dirV2 (verboV (mettere_57 "mettere")) ; put_V2 = dirV2 (verboV (mettere_57 "mettere")) ;
stop_V = reflV (regV "fermare") ; stop_V = reflV (regV "fermare") ;

8
resource-1.0/scandinavian/CatScand.gf
View File

@@ -13,20 +13,20 @@ incomplete concrete CatScand of Cat =
-- Sentence -- Sentence
Cl = {s : Tense => Anteriority => Polarity => Order => Str} ; Cl = {s : R.Tense => Anteriority => Polarity => Order => Str} ;
Slash = {s : Tense => Anteriority => Polarity => Order => Str} ** {c2 : Str} ; Slash = {s : R.Tense => Anteriority => Polarity => Order => Str} ** {c2 : Str} ;
Imp = {s : Polarity => Number => Str} ; Imp = {s : Polarity => Number => Str} ;
-- Question -- Question
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ; QCl = {s : R.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : NPForm => Str ; gn : GenNum} ; IP = {s : NPForm => Str ; gn : GenNum} ;
IComp = {s : AFormPos => Str} ; IComp = {s : AFormPos => Str} ;
IDet = {s : Gender => Str ; n : Number ; det : DetSpecies} ; IDet = {s : Gender => Str ; n : Number ; det : DetSpecies} ;
-- Relative; the case $c$ is for "det" clefts. -- Relative; the case $c$ is for "det" clefts.
RCl = {s : Tense => Anteriority => Polarity => Agr => Str ; c : NPForm} ; RCl = {s : R.Tense => Anteriority => Polarity => Agr => Str ; c : NPForm} ;
RP = {s : GenNum => RCase => Str ; a : RAgr} ; RP = {s : GenNum => RCase => Str ; a : RAgr} ;
-- Verb -- Verb

18
resource-1.0/swedish/IdiomSwe.gf
View File

@@ -3,28 +3,32 @@ concrete IdiomSwe of Idiom = CatSwe **
flags optimize=all_subs ; flags optimize=all_subs ;
lin oper
ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ; utr = ParadigmsSwe.utrum ;
GenericCl vp = mkClause "man" (agrP3 utrum Sg) vp ; neutr = ParadigmsSwe.neutrum ;
CleftNP np rs = mkClause "det" (agrP3 neutrum Sg) lin
ImpersCl vp = mkClause "det" (agrP3 neutr Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 utr Sg) vp ;
CleftNP np rs = mkClause "det" (agrP3 neutr Sg)
(insertObj (\\_ => rs.s ! np.a) (insertObj (\\_ => rs.s ! np.a)
(insertObj (\\_ => np.s ! rs.c) (predV verbBe))) ; (insertObj (\\_ => np.s ! rs.c) (predV verbBe))) ;
CleftAdv ad s = mkClause "det" (agrP3 neutrum Sg) CleftAdv ad s = mkClause "det" (agrP3 neutr Sg)
(insertObj (\\_ => "som" ++ s.s ! Sub) (insertObj (\\_ => "som" ++ s.s ! Sub)
(insertObj (\\_ => ad.s) (predV verbBe))) ; (insertObj (\\_ => ad.s) (predV verbBe))) ;
ExistNP np = ExistNP np =
mkClause "det" (agrP3 neutrum Sg) (insertObj mkClause "det" (agrP3 neutr Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finna_V))) ; (\\_ => np.s ! accusative) (predV (depV finna_V))) ;
ExistIP ip = { ExistIP ip = {
s = \\t,a,p => s = \\t,a,p =>
let let
cls = cls =
(mkClause "det" (agrP3 neutrum Sg) (predV (depV finna_V))).s ! t ! a ! p ; (mkClause "det" (agrP3 neutr Sg) (predV (depV finna_V))).s ! t ! a ! p ;
who = ip.s ! accusative who = ip.s ! accusative
in table { in table {
QDir => who ++ cls ! Inv ; QDir => who ++ cls ! Inv ;

2
resource-1.0/swedish/NumeralSwe.gf
View File

@@ -1,4 +1,4 @@
concrete NumeralSwe of Numeral = CatSwe ** open ResScand, MorphoSwe in { concrete NumeralSwe of Numeral = CatSwe ** open ResSwe, MorphoSwe in {
lincat lincat
Digit = {s : DForm => CardOrd => Str} ; Digit = {s : DForm => CardOrd => Str} ;