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.

2026-06-23 10:11:07 -06:00 · 2014-11-29 11:05:51 +00:00
parent e4bb1d09af
commit 12cd4ea245
9 changed files with 1118 additions and 0 deletions
--- a/lib/src/french/exper/TranslateFre.gf
+++ b/lib/src/french/exper/TranslateFre.gf
@@ -0,0 +1,75 @@
+--# -path=.:../chunk:alltenses
+
+concrete TranslateFre of Translate = 
+  TenseFre,
+  NounFre - [PPartNP],
+  AdjectiveFre,
+  NumeralFre,
+  SymbolFre [
+    PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
+    ],
+  ConjunctionFre,
+  VerbFre -  [
+    UseCopula,  
+    PassV2  -- generalized in Extensions
+    ],
+  AdverbFre,
+  PhraseFre,
+  SentenceFre,
+  QuestionFre ---- - [
+----    QuestCl,QuestIAdv -- french-specific overrides
+----    ]
+  ,
+  RelativeFre,
+  IdiomFre,
+  ConstructionFre,
+  DocumentationFre,
+
+  ChunkFre,
+  ExtensionsFre [
+    CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP
+    , PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv
+    , WithoutVP, InOrderToVP, ByVP
+    ],
+
+  DictionaryFre ** 
+open PhonoFre, MorphoFre, ResFre, CommonRomance, ParadigmsFre, SyntaxFre, Prelude, (G = GrammarFre) in {
+
+flags
+  literal=Symb ;
+  coding = utf8 ;
+
+-- overrides from Lang
+{- -----
+lin
+  QuestCl cl = 
+    {s = \\t,a,p =>                             -- est-ce qu'il dort ?
+            let cls = cl.s ! DDir ! t ! a ! p 
+            in table {
+              QDir   => "est-ce" ++ elisQue ++ cls ! Indic ;
+              QIndir => subjIf ++ cls ! Indic
+              }
+      }
+  | {s = \\t,a,p =>                             -- dort-il ?
+            let cls = cl.s ! DInv ! t ! a ! p 
+            in table {
+              QDir   => cls ! Indic ;
+              QIndir => subjIf ++ cls ! Indic
+              }
+      }
+  | G.QuestCl cl                                -- il dort ?
+  ;
+
+
+  QuestIAdv iadv cl = 
+     G.QuestIAdv iadv cl                       -- où dort-il
+   | {s = \\t,a,p,q =>                         -- où est-ce qu'il dort        
+            let 
+              ord = DDir ;
+              cls = cl.s ! ord ! t ! a ! p ! Indic ;
+              why = iadv.s
+            in why ++ "est-ce" ++ elisQue ++ cls
+      } ;
+-}
+
+}