summaryrefslogtreecommitdiff
path: root/devel/compiler/ex.src
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/compiler/ex.src
parent64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff)
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/compiler/ex.src')
-rw-r--r--devel/compiler/ex.src45
1 files changed, 0 insertions, 45 deletions
diff --git a/devel/compiler/ex.src b/devel/compiler/ex.src
deleted file mode 100644
index 241fd96b4..000000000
--- a/devel/compiler/ex.src
+++ /dev/null
@@ -1,45 +0,0 @@
-param Num = Sg | Pl ;
-param Gen = Masc | Fem ;
-
-param AG = A Num Gen ;
-
-oper Agr = {g#0 : Gen ; n#1 : Num} ;
-
-oper CN = {s#1 : Num -> Str ; g#0 : Gen} ;
-oper NP = {s#1 : Str ; a#0 : Agr} ;
-
-oper artDef : Gen -> Str = \g -> table Gen {
- (Masc) => "le" ;
- (Fem) => "la"
-} ! $g ;
-
-lin Voiture : CN = {
- s#1 = table Num {
- (Sg) => "voiture" ;
- (Pl) => "voitures"
- } ;
- g#0 = (Fem@)
-} ;
-
-
-lin Bus : CN = {
- s#1 = table Num {$x => "bus"} ;
- g#0 = (Masc@)
-} ;
-
-lin Indef : CN -> NP = \cn -> {
- s#1 = table Gen {
- (Masc) => "un" ;
- $x => "une"
- } ! $cn.g#0 ++ $cn.s#1 ! (Sg@) ;
- a#0 = {g#0 = $cn.g#0 ; n#1 = (Sg@)}
-} ;
-
-
-lin Def : CN -> NP = \cn -> {
- s#1 = &artDef $cn.g#0 ++ $cn.s#1 ! (Sg@) ;
- a#0 = {g#0 = $cn.g#0 ; n#1 = (Sg@)}
-} ;
-
-lin UneVoiture : NP = Indef Voiture ;
-lin LaVoiture : NP = Def Voiture ;