GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

short-phrase translation; added Swe; started doc in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-03-28 15:28:02 +00:00
parent 5c0fb2cb7e
commit c99ecf2704
20 changed files with 199 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
examples/phrasebook/PhrasebookFre.gf
View File

@@ -7,20 +7,16 @@ concrete PhrasebookFre of Phrasebook =
(R = Roles),
SyntaxFre,
ParadigmsFre,
ResFre, ---- for Num to Utt
Prelude in {
lincat
Phrase = Text ;
Gender = {s : Str ; g : R.Gender} ;
Politeness = {s : Str ; p : R.Politeness} ;
lin
PNumeral n = mkPhrase ((mkCard <n : Numeral>).s ! masculine) ; ----
PSentence s = mkText s ;
PQuestion s = mkText s ;
PGreeting g = mkPhrase (g.s ! R.Polite ! R.Male ! R.Male) ;
PSentence s = mkText s | lin Text (mkUtt s) ; -- optional .
PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional ?
PGreeting g = lin Text (ss (g.s ! R.Polite ! R.Male ! R.Male)) ;
---- PGreeting p s h g = mkPhrase (g.s ! p.p ! s.g ! h.g ++ p.s ++ s.s ++ h.s) ;
Male = {s = [] ; g = R.Male} ;
@@ -28,7 +24,4 @@ lin
Polite = {s = [] ; p = R.Polite} ;
Familiar = {s = [] ; p = R.Familiar} ;
oper
mkPhrase : Str -> Utt = \s -> lin Utt (ss s) ;
}