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

comparative adverbs generalized to cover more of Attempto

Browse Source
This commit is contained in:
aarne
2008-11-15 11:19:10 +00:00
parent 6b4f9715e6
commit 3ff57f6184
34 changed files with 124 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
next-lib/src/english/MakeStructuralEng.gf
View File

@@ -1,11 +1,13 @@
--# -path=.:../common:../abstract
resource MakeStructuralEng = open CatEng, ParadigmsEng, MorphoEng, Prelude in {
resource MakeStructuralEng = open CatEng, ParadigmsEng, ResEng, MorphoEng, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; lock_Subj = <>} ;
mkNP : Str -> Number -> NP = \s,n ->
regNP s n ** {lock_NP = <>} ;
}