English Ord to Order

This commit is contained in:
aarne
2005-12-07 22:27:16 +00:00
parent 59d1b1271b
commit e6fe9fc07a
3 changed files with 6 additions and 6 deletions

View File

@@ -9,14 +9,14 @@ concrete CatEng of Cat = open ResEng, Prelude, (R = ParamX) in {
QS = {s : QForm => Str} ; QS = {s : QForm => Str} ;
RS = {s : Agr => Str} ; RS = {s : Agr => Str} ;
Cl = {s : Tense => Anteriority => Polarity => Ord => Str} ; Cl = {s : Tense => Anteriority => Polarity => Order => Str} ;
Slash = {s : Tense => Anteriority => Polarity => Ord => Str} ** {c2 : Str} ; Slash = {s : Tense => Anteriority => Polarity => Order => Str} ** {c2 : Str} ;
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ; QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
RCl = {s : Tense => Anteriority => Polarity => Agr => Str} ; RCl = {s : Tense => Anteriority => Polarity => Agr => Str} ;
VP = { VP = {
s : Tense => Anteriority => Polarity => Ord => Agr => {fin, inf : Str} ; s : Tense => Anteriority => Polarity => Order => Agr => {fin, inf : Str} ;
s2 : Agr => Str s2 : Agr => Str
} ; } ;

View File

@@ -29,7 +29,7 @@ resource ParamEng = ParamX ** {
-- The order of sentence is needed already in $VP$. -- The order of sentence is needed already in $VP$.
Ord = ODir | OQuest ; Order = ODir | OQuest ;
--2 For $Adjective$ --2 For $Adjective$

View File

@@ -99,7 +99,7 @@ resource ResEng = ParamEng ** open Prelude in {
} ; } ;
VerbForms : Type = VerbForms : Type =
Tense => Anteriority => Polarity => Ord => Agr => {fin, inf : Str} ; Tense => Anteriority => Polarity => Order => Agr => {fin, inf : Str} ;
VP : Type = { VP : Type = {
s : VerbForms ; s : VerbForms ;
@@ -229,7 +229,7 @@ resource ResEng = ParamEng ** open Prelude in {
-- For $Sentence$. -- For $Sentence$.
Clause : Type = { Clause : Type = {
s : Tense => Anteriority => Polarity => Ord => Str s : Tense => Anteriority => Polarity => Order => Str
} ; } ;
mkClause : Str -> Agr -> VP -> Clause = mkClause : Str -> Agr -> VP -> Clause =