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

CompIQuant in ExtraGer

Browse Source
This commit is contained in:
aarne
2013-05-07 09:30:37 +00:00
parent f9f0fdcdf8
commit 78d0bfdf21
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/finnish/StructuralFin.gf
View File

@@ -9,7 +9,7 @@ concrete StructuralFin of Structural = CatFin **
all_Predet = {s = \\n,c => all_Predet = {s = \\n,c =>
let let
kaiket = caseTable n ((mkN "kaikki" "kaiken" "kaikkena")) kaiket = caseTable n (mkN "kaikki" "kaiken" "kaikkia")
in in
case npform2case n c of { case npform2case n c of {
Nom => "kaikki" ; Nom => "kaikki" ;

2
lib/src/german/ExtraGer.gf
View File

@@ -33,6 +33,8 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
ICompAP ap = {s = \\_ => "wie" ++ ap.s ! APred} ; ICompAP ap = {s = \\_ => "wie" ++ ap.s ! APred} ;
CompIQuant iq = {s = table {Ag g n p => iq.s ! n ! g ! Nom}} ;
IAdvAdv adv = {s = "wie" ++ adv.s} ; IAdvAdv adv = {s = "wie" ++ adv.s} ;
DetNPMasc det = { DetNPMasc det = {

4
lib/src/german/ExtraGerAbs.gf
View File

@@ -1,8 +1,8 @@
abstract ExtraGerAbs = Extra [ abstract ExtraGerAbs = Extra [
VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,ClSlash,RCl, VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,ClSlash,RCl,
VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,EmptyRelSlash, VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,EmptyRelSlash,
VPSlash,PassVPSlash, VPSlash,PassVPSlash,CompIQuant,
Temp,Tense,Pol,S,NP,VV,VP,Conj,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP] ** { Temp,Tense,Pol,S,NP,VV,VP,Conj,IAdv,IQuant,IComp,ICompAP,IAdvAdv,Adv,AP] ** {
fun fun
PPzuAdv : CN -> Adv ; -- zum Lied, zur Flasche PPzuAdv : CN -> Adv ; -- zum Lied, zur Flasche