GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

more paradigms for Cze N and A

Browse Source
This commit is contained in:
Aarne Ranta
2020-04-04 12:56:49 +02:00
parent e57e916349
commit 0da96d0fce
5 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/czech/AdjectiveCze.gf
View File

@@ -16,4 +16,8 @@ concrete AdjectiveCze of Adjective = CatCze ** open ResCze, Prelude in {
UseA2 a = adjFormsAdjective a ** {isPost = False} ; UseA2 a = adjFormsAdjective a ** {isPost = False} ;
UseComparA a = adjFormsAdjective a ** {isPost = False} ; ---- TODO: this gives positive forms
AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s} ;
} }

1
src/czech/MissingCze.gf
View File

@@ -79,7 +79,6 @@ oper TCond : Tense = notYet "TCond" ;
oper TFut : Tense = notYet "TFut" ; oper TFut : Tense = notYet "TFut" ;
oper TPast : Tense = notYet "TPast" ; oper TPast : Tense = notYet "TPast" ;
oper Use2N3 : N3 -> N2 = notYet "Use2N3" ; oper Use2N3 : N3 -> N2 = notYet "Use2N3" ;
oper UseComparA : A -> AP = notYet "UseComparA" ;
oper UseN2 : N2 -> CN = notYet "UseN2" ; oper UseN2 : N2 -> CN = notYet "UseN2" ;
oper UseSlash : Temp -> Pol -> ClSlash -> SSlash = notYet "UseSlash" ; oper UseSlash : Temp -> Pol -> ClSlash -> SSlash = notYet "UseSlash" ;
oper UttCard : Card -> Utt = notYet "UttCard" ; oper UttCard : Card -> Utt = notYet "UttCard" ;

3
src/czech/ParadigmsCze.gf
View File

@@ -110,6 +110,9 @@ oper
matcinA : Str -> A matcinA : Str -> A
= \s -> lin A (matcinAdjForms s) ; = \s -> lin A (matcinAdjForms s) ;
mkA2 : A -> Prep -> A2
= \a,p -> lin A2 (a ** {c = p}) ;
------------------------- -------------------------
-- Verbs -- Verbs

1
src/czech/StructuralCze.gf
View File

@@ -5,6 +5,7 @@ lin
and_Conj = mkConj "i" ; and_Conj = mkConj "i" ;
by8agent_Prep = mkPrep "od" Gen ; ---- TODO this means "from", there might be no good translation by8agent_Prep = mkPrep "od" Gen ; ---- TODO this means "from", there might be no good translation
few_Det = invarNumeral "málo" ; -- CEG 6.8 --- TODO genitive mála few_Det = invarNumeral "málo" ; -- CEG 6.8 --- TODO genitive mála
for_Prep = mkPrep "pro" accusative ;
from_Prep = mkPrep (pre {"s"|"z" => "ze" ; _ => "z"}) Gen ; ---- consonant clusters from_Prep = mkPrep (pre {"s"|"z" => "ze" ; _ => "z"}) Gen ; ---- consonant clusters
have_V2 = mkV2 haveVerbForms ; have_V2 = mkV2 haveVerbForms ;
in_Prep = mkPrep (pre {"v"|"m" => "ve" ; _ => "v"}) Loc ; ---- in_Prep = mkPrep (pre {"v"|"m" => "ve" ; _ => "v"}) Loc ; ----

2
src/czech/SymbolCze.gf
View File

@@ -2,6 +2,8 @@
concrete SymbolCze of Symbol = CatCze ** open Prelude, ResCze in { concrete SymbolCze of Symbol = CatCze ** open Prelude, ResCze in {
lincat
Symb = {s : Str} ;
lin lin
MkSymb s = s ; MkSymb s = s ;
SymbPN s = lin PN {s = \\_ => s.s ; g = Neutr} ; SymbPN s = lin PN {s = \\_ => s.s ; g = Neutr} ;