Chi phrasebook bootstrapped from Tha; far from finished

This commit is contained in:
aarne
2013-10-11 12:16:03 +00:00
parent e4a090cd1b
commit 0052026cc6
4 changed files with 386 additions and 0 deletions

View File

@@ -0,0 +1,23 @@
concrete SentencesChi of Sentences = NumeralChi ** SentencesI - [APlace,ThePlace]
with
(Syntax = SyntaxChi),
(Symbolic = SymbolicChi),
(Lexicon = LexiconChi) ** open SyntaxChi in {
flags coding=utf8 ;
lin
ThePlace kind =
let name : NP = lin NP (Syntax.mkNP theSg_Det kind.name) in {
name = lin NP name ;
at = mkAdv kind.at (lin NP name) ;
to = mkAdv kind.to (lin NP name)
} ;
APlace kind =
let name : NP = lin NP (Syntax.mkNP aSg_Det kind.name) in {
name = lin NP name ;
at = mkAdv kind.at (lin NP name) ;
to = mkAdv kind.to (lin NP name)
} ;
}