diff options
| author | aarne <aarne@chalmers.se> | 2009-06-20 13:50:34 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-20 13:50:34 +0000 |
| commit | beb8cad7d868b5ef1eb74d8f0d50cb689db613ab (patch) | |
| tree | 8c0f93c7f2d26e37d22aa3bac37732336d0614c6 /next-lib/src/english/MakeStructuralEng.gf | |
| parent | 48c755597598fc4656603a90997ebe484488a8f9 (diff) | |
the construct lin C t now replaces lock fields (in source code; still tempor used internally); lock fields removed from english resource as an example
Diffstat (limited to 'next-lib/src/english/MakeStructuralEng.gf')
| -rw-r--r-- | next-lib/src/english/MakeStructuralEng.gf | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/next-lib/src/english/MakeStructuralEng.gf b/next-lib/src/english/MakeStructuralEng.gf index e2662ba88..9f014bf63 100644 --- a/next-lib/src/english/MakeStructuralEng.gf +++ b/next-lib/src/english/MakeStructuralEng.gf @@ -3,13 +3,11 @@ 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 = <>} ; + lin Subj {s = x} ; mkNP : Str -> Number -> NP = \s,n -> - regNP s n ** {lock_NP = <>} ; + lin NP (regNP s n) ; mkIDet : Str -> Number -> IDet = \s,n -> - {s = s ; n = n ; lock_IDet = <>} ; + lin IDet {s = s ; n = n} ; } |