GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

rules for constructing structural words (separate from Paradigms - is this desirable?)

Browse Source
This commit is contained in:
aarne
2008-11-14 17:32:34 +00:00
parent f2a5937120
commit d5fa908250
14 changed files with 81 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
next-lib/src/french/MakeStructuralFre.gf Normal file
View File

@@ -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 = <>} ;
}

5
next-lib/src/french/StructuralFre.gf
View File

@@ -163,9 +163,6 @@ lin
Masc Pl P2 ;
not_Predet = {s = \\a,c => prepCase c ++ "pas" ; c = Nom} ;
nothing_but_Predet = {s = \\a,c => prepCase c ++ "rien excepté" ; c = Nom} ;
nobody_but_Predet = {s = \\a,c => prepCase c ++ "personne excepté" ; c = Nom} ;
no_Quant =
let aucun : ParadigmsFre.Number => ParadigmsFre.Gender => Case => Str = table {
@@ -184,5 +181,7 @@ lin
at_least_AdN = ss "au moins" ;
at_most_AdN = ss "au plus" ;
except_Prep = mkPreposition "excepté" ;
}