summaryrefslogtreecommitdiff
path: root/next-lib/src/french/ExtraFre.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/french/ExtraFre.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/french/ExtraFre.gf')
-rw-r--r--next-lib/src/french/ExtraFre.gf60
1 files changed, 0 insertions, 60 deletions
diff --git a/next-lib/src/french/ExtraFre.gf b/next-lib/src/french/ExtraFre.gf
deleted file mode 100644
index 1877d8334..000000000
--- a/next-lib/src/french/ExtraFre.gf
+++ /dev/null
@@ -1,60 +0,0 @@
-concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
- open CommonRomance, PhonoFre, MorphoFre, ParadigmsFre, ParamX, ResFre in {
-
- lin
- EstcequeS qs = {s = "est-ce" ++ elisQue ++ qs.s ! Indic} ;
- EstcequeIAdvS idet qs = {s = idet.s ++ "est-ce" ++ elisQue ++ qs.s ! Indic} ;
-
- QueestcequeIP = {
- s = table {
- c => prepQue c ++ "est-ce" ++ caseQue c
- } ;
- a = aagr Fem Pl
- } ;
-
- QuiestcequeIP = {
- s = table {
- c => prepQue c ++ "qui" ++ "est-ce" ++ caseQue c
- } ;
- a = aagr Fem Pl
- } ;
-
- i8fem_Pron = mkPronoun
- (elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes"
- Fem Sg P1 ;
- these8fem_NP = makeNP ["celles-ci"] Fem Pl ;
- they8fem_Pron = mkPronoun
- "elles" "les" "leur" "eux" "leur" "leur" "leurs"
- Fem Pl P3 ;
- this8fem_NP = pn2np (mkPN ["celle-ci"] Fem) ;
- those8fem_NP = makeNP ["celles-là"] Fem Pl ;
- we8fem_Pron = mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos"
- Fem Pl P1 ;
- whoPl8fem_IP =
- {s = \\c => artDef a.g a.n c + quelPron ! a ; a = a}
- where {a = aagr Fem Sg} ;
- whoSg8fem_IP =
- {s = \\c => artDef a.g a.n c + quelPron ! a ; a = a}
- where {a = aagr Fem Pl} ;
-
- youSg8fem_Pron = mkPronoun
- "tu" (elision "t") (elision "t") "toi" "ton" (elisPoss "t") "tes"
- Fem Sg P2 ;
- youPl8fem_Pron,
- youPol8fem_Pron =
- mkPronoun
- "vous" "vous" "vous" "vous" "votre" "votre" "vos"
- Fem Pl P2 ;
-
- oper
- prepQue : Case -> Str = \c -> case c of {
- Nom | Acc => elisQue ;
- _ => prepCase c ++ "qui" ---
- } ;
- caseQue : Case -> Str = \c -> case c of {
- Nom => "qui" ;
- _ => elisQue
- } ;
-
-
-}