diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
| commit | 73e401cee21fa61dcf9900d8d2b40ddd39f4e612 (patch) | |
| tree | c5569db477fd0281162fd7ba29cf8e60d24b364e /devel/koe | |
| parent | 64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff) | |
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/koe')
| -rw-r--r-- | devel/koe/Koe.gf | 14 | ||||
| -rw-r--r-- | devel/koe/KoeFre.gf | 50 |
2 files changed, 0 insertions, 64 deletions
diff --git a/devel/koe/Koe.gf b/devel/koe/Koe.gf deleted file mode 100644 index beff21b44..000000000 --- a/devel/koe/Koe.gf +++ /dev/null @@ -1,14 +0,0 @@ -abstract Koe = { - -flags startcat = S ; - -cat S ; NP ; VP ; - -fun - Pred : NP -> VP -> S ; - - Je, Tu, Il, Elle, Nous, Vous, Ils, Elles : NP ; - - Strong : VP ; - -} diff --git a/devel/koe/KoeFre.gf b/devel/koe/KoeFre.gf deleted file mode 100644 index cf0b31f2d..000000000 --- a/devel/koe/KoeFre.gf +++ /dev/null @@ -1,50 +0,0 @@ -concrete KoeFre of Koe = { - -flags coding=utf8 ; - -param - Gen = Masc | Fem ; - Num = Sg | Pl ; - Per = P1 | P2 | P3 ; - -oper - Agr : Type = {g : Gen ; n : Num ; p : Per} ; - - predA : Str -> {s : Agr => Str} = \adj -> - {s = \\a => copula a.n a.p ++ regA adj a.g a.n} ; - - copula : Num -> Per -> Str = \n,p -> case <n,p> of { - <Sg,P1> => "suis" ; - <Sg,P2> => "es" ; - <Sg,P3> => "est" ; - <Pl,P1> => "sommes" ; - <Pl,P2> => "ĂȘtes" ; - <Pl,P3> => "sont" - } ; - - regA : Str -> Gen -> Num -> Str = \s,g,n -> case <g,n> of { - <Masc,Sg> => s ; - <Masc,Pl> => s + "s" ; - <Fem,Sg> => s + "e"; - <Fem,Pl> => s + "es" - } ; - -lincat - NP = {s : Str ; a : Agr} ; - VP = {s : Agr => Str} ; - -lin - Pred np vp = {s = np.s ++ vp.s ! np.a} ; - - Je = {s = "je" ; a = {g = Masc ; n = Sg ; p = P1}} ; - Tu = {s = "tu" ; a = {g = Masc ; n = Sg ; p = P2}} ; - Il = {s = "il" ; a = {g = Masc ; n = Sg ; p = P3}} ; - Elle = {s = "elle" ; a = {g = Fem ; n = Sg ; p = P3}} ; - Nous = {s = "nous" ; a = {g = Masc ; n = Pl ; p = P1}} ; - Vous = {s = "vous" ; a = {g = Masc ; n = Pl ; p = P2}} ; - Ils = {s = "ils" ; a = {g = Masc ; n = Pl ; p = P3}} ; - Elles = {s = "elles" ; a = {g = Fem ; n = Pl ; p = P3}} ; - - Strong = predA "fort" ; - -} |
