diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/french/ExtraFre.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (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.gf | 60 |
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 - } ; - - -} |
