mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
Chi phrasebook bootstrapped from Tha; far from finished
This commit is contained in:
23
examples/phrasebook/SentencesChi.gf
Normal file
23
examples/phrasebook/SentencesChi.gf
Normal 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)
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user