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

French Swadesh, some bugs remain

Browse Source
This commit is contained in:
aarne
2005-03-13 21:29:29 +00:00
parent f2baab56b9
commit 049e8deca9
8 changed files with 660 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/resource/french/ParadigmsFre.gf
View File

@@ -170,6 +170,10 @@ oper
adegA : ADeg -> A ;
-- For prefixed adjectives, the following function is
-- provided.
prefADeg : ADeg -> ADeg ;
--2 Adverbs
@@ -284,7 +288,7 @@ oper
mkNP x g n = let np = mkNameNounPhrase x g in
{s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ;
mkA a b c d = mkAdj a b c d ** {p = False ; lock_A = <>} ;
mkA a b c d = mkAdj a c b d ** {p = False ; lock_A = <>} ;
regA a = mkAdjReg a False ** {p = False ; lock_A = <>} ;
prefA a = {s = a.s ; p = True ; lock_A = <>} ;
@@ -294,6 +298,7 @@ oper
compADeg a = {s = table {Pos => a.s ; _ => \\f => "plus" ++ a.s ! f} ; p = a.p ;
lock_ADeg = <>} ;
regADeg a = compADeg (regA a) ;
prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ;
adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ;