comments in phrasebook abstract syntax

This commit is contained in:
aarne
2010-04-06 15:45:16 +00:00
parent 114cdd78d3
commit a66d2186fe
15 changed files with 133 additions and 82 deletions

View File

@@ -52,7 +52,8 @@ incomplete concrete SentencesI of Sentences = Numeral **
SPropNot = mkS negativePol ;
QProp p = mkQS (mkQCl p) ;
WhereIs place = mkQS (mkQCl where_IAdv place.name) ;
WherePlace place = mkQS (mkQCl where_IAdv place.name) ;
WherePerson person = mkQS (mkQCl where_IAdv person.name) ;
PropAction a = a ;
@@ -100,6 +101,10 @@ incomplete concrete SentencesI of Sentences = Numeral **
---- NameString s = symb s ;
NameNN = symb "NN" ;
AHave p kind = mkCl p.name have_V2 (mkNP kind) ;
ACitizen p n = mkCl p.name n ;
ABePlace p place = mkCl p.name place.at ;
oper
mkPhrase : Utt -> Text = \u -> lin Text u ; -- no punctuation