mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-08-10 14:29:33 -06:00
aarne
25 lines
420 B
Plaintext
25 lines
420 B
Plaintext
--# -path=.:present
|
|
|
|
concrete PhrasebookFin of Phrasebook =
|
|
GreetingsFin,
|
|
WordsFin ** open
|
|
SyntaxFin,
|
|
ResFin, ---- for Num to Utt
|
|
Prelude in {
|
|
|
|
lincat
|
|
Phrase = Text ;
|
|
|
|
lin
|
|
PNumeral n =
|
|
mkPhrase (ss ((SyntaxFin.mkCard <n : Numeral>).s ! Sg ! Nom)) ; ----
|
|
PGreeting g = mkPhrase g ;
|
|
PSentence s = mkText s ;
|
|
PQuestion s = mkText s ;
|
|
|
|
|
|
oper
|
|
mkPhrase : SS -> Utt = \s -> lin Utt s ;
|
|
|
|
}
|