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

rules for constructing structural words (separate from Paradigms - is this desirable?)

Browse Source
This commit is contained in:
aarne
2008-11-14 17:32:34 +00:00
parent f2a5937120
commit d5fa908250
14 changed files with 81 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
next-lib/src/english/MakeStructuralEng.gf Normal file
View File

@@ -0,0 +1,11 @@
--# -path=.:../common:../abstract
resource MakeStructuralEng = open CatEng, ParadigmsEng, 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 = <>} ;
}

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

@@ -123,8 +123,6 @@ concrete StructuralEng of Structural = CatEng **
youPol_Pron = mkPron "you" "you" "your" "yours" singular P2 human ;
not_Predet = {s = "not" ; lock_Predet = <>} ;
nothing_but_Predet = {s = "nothing but" ; lock_Predet = <>} ;
nobody_but_Predet = {s = "nobody but" ; lock_Predet = <>} ;
no_Quant = mkQuant "no" "no" ;
if_then_Conj = {s1 = "if" ; s2 = "then" ; n = singular ; lock_Conj = <>} ;
nobody_NP = regNP "nobody" singular ;
@@ -132,5 +130,7 @@ concrete StructuralEng of Structural = CatEng **
at_least_AdN = mkAdN "at least" ;
at_most_AdN = mkAdN "at most" ;
except_Prep = mkPrep "except" ;
}