mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
started Phrasebook with Finnish and Romanian
This commit is contained in:
22
examples/phrasebook/PhrasebookRon.gf
Normal file
22
examples/phrasebook/PhrasebookRon.gf
Normal file
@@ -0,0 +1,22 @@
|
||||
--# -path=.:present
|
||||
|
||||
concrete PhrasebookRon of Phrasebook =
|
||||
GreetingsRon,
|
||||
FoodRon
|
||||
** open
|
||||
SyntaxRon,
|
||||
ResRon, ---- for Num to Utt
|
||||
Prelude in {
|
||||
|
||||
lincat
|
||||
Phrase = Utt ;
|
||||
|
||||
lin
|
||||
PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).sp ! Masc)) ; ----
|
||||
PGreeting g = mkPhrase g ;
|
||||
PSentence s = s ;
|
||||
|
||||
oper
|
||||
mkPhrase : SS -> Utt = \s -> lin Utt s ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user