diff options
| author | aarne <aarne@chalmers.se> | 2010-03-28 15:28:02 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-28 15:28:02 +0000 |
| commit | 3903b6b85222d5d266f859f4d029b12159cdf814 (patch) | |
| tree | 7145415760924451fcf171cc2dc7898b3be4aa4f /examples/phrasebook/PhrasebookRon.gf | |
| parent | 2925edd088b2e157183a88edb9bdfcc78371b628 (diff) | |
short-phrase translation; added Swe; started doc in Phrasebook
Diffstat (limited to 'examples/phrasebook/PhrasebookRon.gf')
| -rw-r--r-- | examples/phrasebook/PhrasebookRon.gf | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/examples/phrasebook/PhrasebookRon.gf b/examples/phrasebook/PhrasebookRon.gf index 40cdf1eda..cb4c7bacb 100644 --- a/examples/phrasebook/PhrasebookRon.gf +++ b/examples/phrasebook/PhrasebookRon.gf @@ -5,19 +5,11 @@ concrete PhrasebookRon of Phrasebook = WordsRon ** open SyntaxRon, - ResRon, ---- for Num to Utt Prelude in { -lincat - Phrase = Text ; - lin - PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).sp ! Masc)) ; ---- - PGreeting g = mkPhrase g ; - PSentence s = mkText s ; - PQuestion s = mkText s ; - -oper - mkPhrase : SS -> Utt = \s -> lin Utt s ; + PSentence s = mkText s | lin Text (mkUtt s) ; -- optional . + PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional ? + PGreeting g = lin Text g ; } |