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

fix the missing lock fields in several languages

Browse Source
This commit is contained in:
krasimir
2009-09-13 20:31:20 +00:00
parent f165acc41b
commit 4f87558b55
8 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/english/ParadigmsEng.gf
View File

@@ -426,7 +426,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
mkOrd : Str -> Ord = \x -> lin Ord { s = regGenitiveS x}; mkOrd : Str -> Ord = \x -> lin Ord { s = regGenitiveS x};
mk2A a b = lin A (mkAdjective a a a b) ; mk2A a b = mkAdjective a a a b ;
regA a = case a of { regA a = case a of {
_ + ("a" | "e" | "i" | "o" | "u" | "y") + ? + _ + _ + ("a" | "e" | "i" | "o" | "u" | "y") + ? + _ +
("a" | "e" | "i" | "o" | "u" | "y") + ? + _ => ("a" | "e" | "i" | "o" | "u" | "y") + ? + _ =>
@@ -438,7 +438,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
ADeg = A ; ---- ADeg = A ; ----
mkADeg a b c d = lin A (mkAdjective a b c d) ; mkADeg a b c d = mkAdjective a b c d ;
regADeg happy = regADeg happy =
let let
@@ -533,7 +533,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
--- variants {}} ; not used --- variants {}} ; not used
isAux = False isAux = False
} ; } ;
mkVQ v = v ; mkVQ v = lin VQ v ;
V0 : Type = V ; V0 : Type = V ;
-- V2S, V2V, V2Q : Type = V2 ; -- V2S, V2V, V2Q : Type = V2 ;
@@ -541,14 +541,14 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
A2V : Type = A2 ; A2V : Type = A2 ;
mkV0 v = v ; mkV0 v = v ;
mkV2S v p = prepV2 v p ; mkV2S v p = lin V2S (prepV2 v p) ;
mkV2V v p t = lin V2V (prepV2 v p ** {isAux = False}) ; mkV2V v p t = lin V2V (prepV2 v p ** {isAux = False}) ;
mkVA v = v ; mkVA v = lin VA v ;
mkV2A v p = prepV2 v p ; mkV2A v p = lin V2A (prepV2 v p) ;
mkV2Q v p = prepV2 v p ; mkV2Q v p = lin V2Q (prepV2 v p) ;
mkAS v = v ; mkAS v = v ;
mkA2S v p = prepA2 v p ; mkA2S v p = lin A (prepA2 v p) ;
mkAV v = v ; mkAV v = v ;
mkA2V v p = prepA2 v p ; mkA2V v p = prepA2 v p ;

4
lib/src/english/ResEng.gf
View File

@@ -120,8 +120,8 @@ resource ResEng = ParamX ** open Prelude in {
} }
} ; } ;
mkAdjective : (_,_,_,_ : Str) -> {s : AForm => Str} = mkAdjective : (_,_,_,_ : Str) -> {s : AForm => Str; lock_A : {}} =
\good,better,best,well -> { \good,better,best,well -> lin A {
s = table { s = table {
AAdj Posit c => (regGenitiveS good) ! c ; AAdj Posit c => (regGenitiveS good) ! c ;
AAdj Compar c => (regGenitiveS better) ! c ; AAdj Compar c => (regGenitiveS better) ! c ;

2
lib/src/finnish/MorphoFin.gf
View File

@@ -359,7 +359,7 @@ resource MorphoFin = ResFin ** open Prelude in {
9 => ukkoihin 9 => ukkoihin
} ; } ;
Noun = {s : NForm => Str} ; Noun = {s : NForm => Str; lock_N : {}} ;
nForms2N : NForms -> Noun = \f -> nForms2N : NForms -> Noun = \f ->
let let

2
lib/src/finnish/ResFin.gf
View File

@@ -43,7 +43,7 @@ param
AForm = AN NForm | AAdv ; AForm = AN NForm | AAdv ;
oper oper
Adjective : Type = {s : Degree => AForm => Str} ; Adjective : Type = {s : Degree => AForm => Str; lock_A : {}} ;
--2 Noun phrases --2 Noun phrases
-- --

2
lib/src/french/LexiconFre.gf
View File

@@ -103,7 +103,7 @@ lin
iron_N = regGenN "fer" masculine ; iron_N = regGenN "fer" masculine ;
king_N = regGenN "roi" masculine ; king_N = regGenN "roi" masculine ;
know_V2 = connaître_V2 ; know_V2 = connaître_V2 ;
know_VS = mkVS savoir_V2 ; know_VS = mkVS (lin V savoir_V2) ;
lake_N = regGenN "lac" masculine ; lake_N = regGenN "lac" masculine ;
lamp_N = regGenN "lampe" feminine ; lamp_N = regGenN "lampe" feminine ;
learn_V2 = apprendre_V2 ; learn_V2 = apprendre_V2 ;

2
lib/src/german/LangGer.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../abstract:../common --# -path=.:../abstract:../common:../prelude
concrete LangGer of Lang = concrete LangGer of Lang =
GrammarGer, GrammarGer,

8
lib/src/italian/ParadigmsIta.gf
View File

@@ -290,10 +290,10 @@ oper
plural = Pl ; plural = Pl ;
--Prep = Compl ; --Prep = Compl ;
accusative = complAcc ; accusative = lin Prep complAcc ;
genitive = complGen ; genitive = lin Prep complGen ;
dative = complDat ; dative = lin Prep complDat ;
mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ; mkPrep p = lin Prep {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ;
con_Prep = {s = [] ; c = CPrep P_con ; isDir = False ; lock_Prep = <>} ; con_Prep = {s = [] ; c = CPrep P_con ; isDir = False ; lock_Prep = <>} ;
da_Prep = {s = [] ; c = CPrep P_da ; isDir = False ; lock_Prep = <>} ; da_Prep = {s = [] ; c = CPrep P_da ; isDir = False ; lock_Prep = <>} ;

2
lib/src/russian/ParadigmsRus.gf
View File

@@ -274,7 +274,7 @@ foreign = Foreign; -- +++ MG_UR: added +++
mkN = overload { mkN = overload {
mkN : (karta : Str) -> N = mk1N ; mkN : (karta : Str) -> N = mk1N ;
mkN : (tigr : Str) -> Animacy -> N = \nom, anim -> case anim of { Animate => nAnimate (mk1N nom) ; mkN : (tigr : Str) -> Animacy -> N = \nom, anim -> case anim of { Animate => lin N (nAnimate (mk1N nom)) ;
Inanimate => mk1N nom } ; Inanimate => mk1N nom } ;
mkN : (nomSg, genSg, datSg, accSg, instSg, preposSg, prepos2Sg, mkN : (nomSg, genSg, datSg, accSg, instSg, preposSg, prepos2Sg,
nomPl, genPl, datPl, accPl, instPl, preposPl : Str) -> Gender -> Animacy -> N = mkWorstN nomPl, genPl, datPl, accPl, instPl, preposPl : Str) -> Gender -> Animacy -> N = mkWorstN