summaryrefslogtreecommitdiff
path: root/examples/disamb/ConversationIta.gf
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/ConversationIta.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/disamb/ConversationIta.gf')
-rw-r--r--examples/disamb/ConversationIta.gf57
1 files changed, 0 insertions, 57 deletions
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"
- }
- } ;
-
-}