1
0
forked from GitHub/gf-core

some moving around of new phrasebook entries

This commit is contained in:
aarne
2010-04-28 16:53:20 +00:00
parent b47098f14f
commit 6e7bbf3aa8
4 changed files with 61 additions and 44 deletions

View File

@@ -34,6 +34,9 @@ incomplete concrete SentencesI of Sentences = Numeral **
Date = Adv ;
Name = NP ;
Number = Card ;
ByTransport = Adv ;
Transport = {name : NP ; by : Adv} ;
Superlative = Det ;
lin
PSentence s = mkText s | lin Text (mkUtt s) ; -- optional '.'
PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional '?'
@@ -84,12 +87,19 @@ incomplete concrete SentencesI of Sentences = Numeral **
Very property = mkAP very_AdA (mkAP property) ;
Too property = mkAP too_AdA (mkAP property) ;
PropQuality property = mkAP property ;
ThePlace kind =
let name : NP = mkNP the_Quant kind.name in {
name = name ;
at = mkAdv kind.at name ;
to = mkAdv kind.to name
} ;
APlace kind =
let name : NP = mkNP a_Quant kind.name in {
name = name ;
at = mkAdv kind.at name ;
to = mkAdv kind.to name
} ;
IMale, IFemale = mkPerson i_Pron ;
YouFamMale, YouFamFemale = mkPerson youSg_Pron ;
@@ -114,6 +124,7 @@ incomplete concrete SentencesI of Sentences = Numeral **
ACitizen p n = mkCl p.name n ;
ABePlace p place = mkCl p.name place.at ;
oper
-- These operations are used internally in Sentences.