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/PhrasebookFin.gf | |
| parent | 2925edd088b2e157183a88edb9bdfcc78371b628 (diff) | |
short-phrase translation; added Swe; started doc in Phrasebook
Diffstat (limited to 'examples/phrasebook/PhrasebookFin.gf')
| -rw-r--r-- | examples/phrasebook/PhrasebookFin.gf | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/examples/phrasebook/PhrasebookFin.gf b/examples/phrasebook/PhrasebookFin.gf index 2144d90fe..12851e57f 100644 --- a/examples/phrasebook/PhrasebookFin.gf +++ b/examples/phrasebook/PhrasebookFin.gf @@ -4,21 +4,11 @@ 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)) ; ---- + PSentence s = mkText s | lin Text (mkUtt s) ; -- optional . + PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional ? PGreeting g = mkPhrase g ; - PSentence s = mkText s ; - PQuestion s = mkText s ; - - -oper - mkPhrase : SS -> Utt = \s -> lin Utt s ; } |