summaryrefslogtreecommitdiff
path: root/examples/disamb
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/disamb
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/disamb')
-rw-r--r--examples/disamb/Conversation.gf18
-rw-r--r--examples/disamb/ConversationEng.gf23
-rw-r--r--examples/disamb/ConversationIta.gf57
3 files changed, 0 insertions, 98 deletions
diff --git a/examples/disamb/Conversation.gf b/examples/disamb/Conversation.gf
deleted file mode 100644
index fbbfccc0c..000000000
--- a/examples/disamb/Conversation.gf
+++ /dev/null
@@ -1,18 +0,0 @@
-abstract Conversation = {
-
- cat
- Q ; NP ; A ;
- Gender ; Number ; Politeness ;
-
- fun
- PredA : NP -> A -> Q ;
-
- GMasc, GFem : Gender ;
- NSg, NPl : Number ;
- PFamiliar, PPolite : Politeness ;
-
- You : Number -> Politeness -> Gender -> NP ;
-
- Ready : A ;
-
-}
diff --git a/examples/disamb/ConversationEng.gf b/examples/disamb/ConversationEng.gf
deleted file mode 100644
index 127ec54bd..000000000
--- a/examples/disamb/ConversationEng.gf
+++ /dev/null
@@ -1,23 +0,0 @@
---# -path=.:prelude
-
-concrete ConversationEng of Conversation = open Prelude in {
-
- lincat
- Q, NP, A = {s : Str} ;
- Gender, Number, Politeness = {s : Str} ;
-
- lin
- PredA np a = ss ("are" ++ np.s ++ a.s) ;
-
- GMasc = ss (optStr "man") ;
- GFem = ss (optStr "woman") ;
- NSg = ss (optStr "one") ;
- NPl = ss (optStr "many") ;
- PFamiliar = ss (optStr "friend") ;
- PPolite = ss (optStr "respected") ;
-
- You n p g = ss ("you" ++ n.s ++ p.s ++ g.s) ;
-
- Ready = ss "ready" ;
-
-}
diff --git a/examples/disamb/ConversationIta.gf b/examples/disamb/ConversationIta.gf
deleted file mode 100644
index 6728a38b0..000000000
--- a/examples/disamb/ConversationIta.gf
+++ /dev/null
@@ -1,57 +0,0 @@
---# -path=.:prelude
-
-concrete ConversationIta of Conversation = open Prelude in {
-
- lincat
- Q = {s : Str} ;
- NP = {s : Str ; g : Gen ; n : Num ; p : Pol} ;
- A = {s : Gen => Num => Str} ;
- Gender = {s : Str ; g : Gen} ;
- Number = {s : Str ; n : Num} ;
- Politeness = {s : Str ; p : Pol} ;
-
- param
- Num = Sg | Pl ;
- Gen = Masc | Fem ;
- Pol = Fam | Resp ;
- lin
- PredA np a = ss (np.s ++ essere np.n np.p ++ a.s ! np.g ! np.n) ;
-
- GMasc = ss [] ** {g = Masc} ;
- GFem = ss [] ** {g = Fem} ;
- NSg = ss [] ** {n = Sg} ;
- NPl = ss [] ** {n = Pl} ;
- PFamiliar = ss [] ** {p = Fam} ;
- PPolite = ss [] ** {p = Resp} ;
-
- You n p g =
- {g = g.g ; n = n.n ; p = p.p ;
- s = case <n.n, p.p> of {
- <Sg,Fam> => "tu" ;
- <Sg,Resp> => "Lei" ;
- <Pl,Fam> => "voi" ;
- <Pl,Resp> => "Loro"
- } ++ g.s ++ p.s ++ n.s
- } ;
-
- Ready = regA "pronto" ;
-
- oper
- essere : Num -> Pol -> Str = \n,p -> case <n,p> of {
- <Sg,Fam> => "sei" ;
- <Sg,Resp> => "รจ" ;
- <Pl,Fam> => "siete" ;
- <Pl,Resp> => "sono"
- } ;
-
- regA : Str -> {s : Gen => Num => Str} = \nero ->
- let ner = init nero in {
- s = \\g,n => case <n,g> of {
- <Sg,Fem> => ner + "a" ;
- <Sg,Masc> => nero ;
- <Pl,Fem> => ner + "e" ;
- <Pl,Mas> => ner + "i"
- }
- } ;
-
-}