experiment in discontinuous Cl type in Romance, tried in French. The current result is that compilation is twice as fast as before, but parsing becomes slower. Hence not in the main RGL yet.

2014-11-29 11:05:51 +00:00
parent ed0a3f7f08
commit 7805f0f339
9 changed files with 1118 additions and 0 deletions
@@ -0,0 +1,137 @@
+incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
+  ** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
+
+  flags optimize=all_subs ;
+    coding=utf8 ;
+
+  lincat
+
+-- exception to CommonX, due to the distinction ne/ne-pas
+
+    Pol = {s : Str ; p : RPolarity} ;
+
+-- Tensed/Untensed
+
+    S  = {s : Mood => Str} ;
+    QS = {s : QForm => Str} ;
+    RS = {s : Mood => Agr => Str ; c : Case} ;
+    SSlash = {
+      s  : AAgr => Mood => Str ; 
+      c2 : Compl
+      } ;
+
+    SC = {s : Case => Str} ;  -- de dormir / à dormir
+
+-- Sentence
+
+    Cl      = Clause ; 
+    ClSlash = SlashClause ; 
+    Imp     = {s : RPolarity => ImpForm => Gender => Str} ;
+
+-- Question
+
+    QCl    = QuestClause ; 
+    IP     = {s : Case => Str ; a : AAgr} ;
+    IComp  = {s : AAgr => Str} ;     
+    IDet   = {s : Gender => Case => Str ; n : Number} ;
+    IQuant = {s : Number => Gender => Case => Str} ;
+
+-- Relative
+
+    RCl  = RelClause ;
+    RP   = RelPron ;
+
+-- Verb
+
+    VP = ResRomance.VP ;
+    VPSlash = ResRomance.VP ** {c2 : Compl} ;
+    Comp = {s : Agr => Str} ; 
+
+-- Adjective
+
+    AP = {s : AForm => Str ; isPre : Bool} ; 
+
+-- Noun
+
+    CN      = {s : Number => Str ; g : Gender} ;
+    Pron    = Pronoun ;
+    NP      = NounPhrase ;
+    Det     = {
+      s : Gender => Case => Str ; 
+      n : Number ; 
+      s2 : Str ;            -- -ci 
+      sp : Gender => Case => Str ;   -- substantival: mien, mienne
+      isNeg : Bool -- negative element, e.g. aucun
+      } ;
+    Quant = {
+      s  : Bool => Number => Gender => Case => Str ; 
+      s2 : Str ; 
+      sp : Number => Gender => Case => Str ;
+      isNeg : Bool -- negative element, e.g. aucun
+      } ;
+    Predet  = {
+      s : AAgr   => Case => Str ; 
+      c : Case ; -- c : la plupart de
+      a : PAgr   -- if an agr is forced, e.g. chacun de nous
+      } ;
+    Num     = {s : Gender => Str ; isNum : Bool ; n : Number} ;
+    Card    = {s : Gender => Str ; n : Number} ;
+    Ord     = {s : AAgr   => Str} ;
+
+-- Numeral
+
+    Numeral = {s : CardOrd => Str ; n : Number} ;
+    Digits  = {s : CardOrd => Str ; n : Number} ;
+
+-- Structural
+
+---b    Conj  = {s : Str ; n : Number} ;
+---b    DConj = {s1,s2 : Str ; n : Number} ;
+    Conj = {s1,s2 : Str ; n : Number} ;
+    Subj = {s : Str ; m : Mood} ;
+    Prep = {s : Str ; c : Case ; isDir : Bool} ;
+
+-- Open lexical classes, e.g. Lexicon
+
+    V, VQ, VA = Verb ;
+    V2, VV, V2S, V2Q = Verb ** {c2 : Compl} ;
+    V3, V2A, V2V = Verb ** {c2,c3 : Compl} ;
+    VS = Verb ** {m : RPolarity => Mood} ;
+
+    A  = {s : Degree => AForm => Str ; isPre : Bool} ;
+    A2 = {s : Degree => AForm => Str ; c2 : Compl} ;
+
+    N  = Noun ; 
+    N2 = Noun  ** {c2 : Compl} ;
+    N3 = Noun  ** {c2,c3 : Compl} ;
+    PN = {s : Str ; g : Gender} ;
+
+-- tense augmented with passé simple
+  lincat
+    Temp  = {s : Str ; t : RTense ; a : Anteriority} ;
+    Tense = {s : Str ; t : RTense} ;
+
+  linref
+    SSlash = \ss -> ss.s ! aagr Masc Sg ! Indic ++ ss.c2.s ;
+----    ClSlash = \cls -> cls.s ! aagr Masc Sg ! DDir ! RPres ! Simul ! RPos ! Indic ++ cls.c2.s ;
+
+    VP = \vp -> infVP vp (agrP3 Masc Sg) ;
+    VPSlash = \vps -> infVP vps (agrP3 Masc Sg) ++ vps.c2.s ;
+
+    V, VS, VQ, VA = \v -> infVP (predV v) (agrP3 Masc Sg);
+    V2, V2A, V2Q, V2S = \v -> infVP (predV v) (agrP3 Masc Sg) ++ v.c2.s ;
+    V3 = \v -> infVP (predV v) (agrP3 Masc Sg) ++ v.c2.s ++ v.c3.s ;
+    VV = \v -> infVP (predV v) (agrP3 Masc Sg) ;
+    V2V = \v -> infVP (predV v) (agrP3 Masc Sg) ;
+
+    NP = \np -> (np.s ! Nom).comp ;
+    Conj = \c -> c.s2 ;
+
+    A = \a -> a.s ! Posit ! AF Masc Sg ;
+    A2 = \a -> a.s ! Posit ! AF Masc Sg ++ a.c2.s ;
+
+    N = \n -> n.s ! Sg ;
+    N2 = \n -> n.s ! Sg ++ n.c2.s ;
+    N3 = \n -> n.s ! Sg ++ n.c2.s ++ n.c3.s ;
+
+}