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

new abstract implemented for exper/french

Browse Source
This commit is contained in:
aarne
2008-04-27 19:19:40 +00:00
parent 9d3f381e71
commit be6aa2b07f
13 changed files with 247 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
lib/resource/exper/romance/QuestionRomance.gf
View File

@@ -26,7 +26,7 @@ incomplete concrete QuestionRomance of Question =
s = \\t,a,p =>
let
cls : Direct -> Str =
\d -> slash.s ! d ! ip.a ! t ! a ! p ! Indic ;
\d -> slash.s ! ip.a ! d ! t ! a ! p ! Indic ;
who = slash.c2.s ++ ip.s ! slash.c2.c
in table {
QDir => who ++ cls DInv ;
@@ -60,6 +60,42 @@ incomplete concrete QuestionRomance of Question =
s = \\c => ip.s ! c ++ adv.s ;
a = ip.a
} ;
IdetCN idet cn =
let
g = cn.g ;
n = idet.n ;
a = aagr g n
in {
s = \\c => idet.s ! g ! c ++ cn.s ! n ;
a = a
} ;
IdetIP idet =
let
g = Masc ; ---- Fem in Extra
n = idet.n ;
a = aagr g n
in {
s = \\c => idet.s ! g ! c ;
a = a
} ;
IdetQuant idet num =
let
n = num.n ;
in {
s = \\g,c => idet.s ! n ! g ! c ++ num.s ! g ;
n = n
} ;
CompIAdv a = {s = \\_ => a.s} ;
CompIP p = {s = \\_ => p.s ! Nom} ;
}
{- ---b
IDetCN idet num ord cn =
let
@@ -71,6 +107,3 @@ incomplete concrete QuestionRomance of Question =
a = a
} ;
-}
CompIAdv a = {s = \\_ => a.s} ;
}