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

relatives

Browse Source
This commit is contained in:
aarne
2005-11-29 09:43:20 +00:00
parent 930b5fd194
commit 5a1ce37e1c
17 changed files with 113 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource-1.0/gf/QuestionEng.gf
View File

@@ -46,16 +46,14 @@ concrete QuestionEng of Question = CatEng, SentenceEng ** open ResEng in {
PrepIP p ip = {s = p.s ++ ip.s ! Nom} ;
---- FunIP : N2 -> IP -> IP ;
AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ;
n = ip.n
} ;
IDetCN idet num cn = {
s = \\c => idet.s ++ num.s ++ cn.s ! idet.n ! c ;
IDetCN idet num ord cn = {
s = \\c => idet.s ++ num.s ++ ord.s ++ cn.s ! idet.n ! c ;
n = idet.n
} ;
}