next-lib renamed to lib, lib to old-lib

1 files changed, 28 insertions, 0 deletions

diff --git a/old-lib/resource/french/PhonoFre.gf b/old-lib/resource/french/PhonoFre.gf
new file mode 100644
index 000000000..f2ef797fc
--- /dev/null
+++ b/old-lib/resource/french/PhonoFre.gf
@@ -0,0 +1,28 @@
+resource PhonoFre = open Prelude in {
+
+flags coding=utf8 ;
+
+oper 
+  voyelle : Strs = strs {
+    "a" ; "à" ; "â" ; "e" ; "é" ; "è" ; "ê¨" ; 
+    "h" ; 
+    "i" ; "î" ; "o" ; "ô" ; "u" ; "û" ; "y"
+    } ;
+
+  elision : Str -> Str = \d -> d + pre {"e" ; "'" / voyelle} ;
+
+-- The following morphemes are the most common uses of elision.
+
+  elisDe  = elision "d" ;
+  elisLa  = pre {"la" ; "l'" / voyelle} ;
+  elisLe  = elision "l" ;
+  elisNe  = elision "n" ;
+  elisQue = elision "qu" ;
+
+-- The subjunction "si" has a special kind of elision. The rule is
+-- only approximatively correct, for "si" is not really elided before
+-- the string "il" in general, but before the pronouns "il" and "ils".
+
+  elisSi = pre {"si" ; "s'" / strs {"il"}} ;
+
+}