From d5fa908250517476d69fae92ec7648a207007c0a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 14 Nov 2008 17:32:34 +0000
Subject: rules for constructing structural words (separate from Paradigms - is
 this desirable?)

---
 next-lib/src/french/MakeStructuralFre.gf | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 next-lib/src/french/MakeStructuralFre.gf

(limited to 'next-lib/src/french/MakeStructuralFre.gf')

diff --git a/next-lib/src/french/MakeStructuralFre.gf b/next-lib/src/french/MakeStructuralFre.gf
new file mode 100644
index 000000000..282e1c3e7
--- /dev/null
+++ b/next-lib/src/french/MakeStructuralFre.gf
@@ -0,0 +1,13 @@
+--# -path=.:../romance:../common:../abstract
+
+resource MakeStructuralFre = open CatFre, ParadigmsFre, MorphoFre, Prelude in {
+
+oper 
+  mkConj : Str -> Str -> Number -> Conj = \x,y,n -> 
+    {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
+  mkSubj : Str -> Subj = \x -> 
+    {s = x ; m = Indic ; lock_Subj = <>} ;
+  mkSubjSubj : Str -> Subj = \x -> 
+    {s = x ; m = Conjunct ; lock_Subj = <>} ;
+
+}
-- 
cgit v1.2.3