summaryrefslogtreecommitdiff
path: root/devel/koe
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-27 11:59:03 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-27 11:59:03 +0000
commit73e401cee21fa61dcf9900d8d2b40ddd39f4e612 (patch)
treec5569db477fd0281162fd7ba29cf8e60d24b364e /devel/koe
parent64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff)
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/koe')
-rw-r--r--devel/koe/Koe.gf14
-rw-r--r--devel/koe/KoeFre.gf50
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" ;
-
-}