summaryrefslogtreecommitdiff
path: root/examples/lrec-tutorial/GrammarIta0.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/lrec-tutorial/GrammarIta0.gf')
-rw-r--r--examples/lrec-tutorial/GrammarIta0.gf80
1 files changed, 0 insertions, 80 deletions
diff --git a/examples/lrec-tutorial/GrammarIta0.gf b/examples/lrec-tutorial/GrammarIta0.gf
deleted file mode 100644
index 0e87b36e4..000000000
--- a/examples/lrec-tutorial/GrammarIta0.gf
+++ /dev/null
@@ -1,80 +0,0 @@
-concrete GrammarIta of Grammar = open ResIta, Prelude in {
- lincat
- Cl = {s : Tense => Str} ;
- NP = {s : Case => Str ; a : Agr} ;
- VP = {s : VForm => Str ; aux : Aux} ;
- AP = {s : Gender => Number => Str} ;
- CN = {s : Number => Str ; g : Gender} ;
- Det = {s : Gender => Case => Str ; n : Number} ;
- N = {s : Number => Str ; g : Gender} ;
- A = {s : Gender => Number => Str} ;
- V = {s : VForm => Str ; aux : Aux} ;
- V2 = Verb ** {c : Preposition} ;
-
- lin
- PredVP np vp =
- let
- subj = np.s ! Nom ;
- obj = vp.obj ;
- clit = vp.clit ;
- verb = table {
- Pres => agrV vp ;
- Perf => agrV (auxVerb vp.aux) np.a ++ agrPart vp np.a
- }
- in {
- s = \\t => subj ++ clit ++ verb ! t ++ obj
- } ;
-
- ComplV2 v2 np =
- let
- nps = np.s ! v2.c.c
- in {
- v = {s = v2.s ; aux = v2.aux} ;
- clit = nps.clit ;
- obj = v2.c.p ++ nps.obj
- } ;
-
- UseV v = {
- v = v ;
- clit = [] ;
- obj = []
- } ;
-
- DetCN det cn = {
- s = \\c => {obj = det.s ! cn.g ! c ++ cn.s ! det.n ; clit = []} ;
- a = Ag cn.g det.n Per3
- } ;
-
- ModCN cn ap = {
- s = \\n => preOrPost ap.isPre (ap.s ! cn.g ! n) (cn.s ! n) ;
- g = cn.g
- } ;
-
- UseN n = n ;
-
- UseA adj = adj ;
-
- a_Det = adjDet (mkA "un" "una" [] [] True) Sg ;
-
- the_Det = {
- s = table {
- Masc => table {
- Nom | Acc => pre {"il" ; "lo" / s_impuro ; "l'" / vowel} ;
- Dat => pre {"al" ; "allo" / s_impuro ; "all'" / vowel}
- } ;
- Fem => table {
- Nom | Acc => pre {"la" ; "l'" / vowel} ;
- Dat => pre {"alla" ; "all'" / vowel}
- }
- } ;
- n = Sg
- } ;
-
- this_Det = adjDet (mkA "questo") Sg ;
- these_Det = adjDet (mkA "questo") Pl ;
-
- i_NP = pronNP "io" "mi" "mi" Masc Sg Per1 ;
- she_NP = pronNP "lei" "la" "le" Fem Sg Per3 ;
- we_NP = pronNP "noi" "ci" "ci" Masc Pl Per1 ;
-
-}