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

Merge private git for latim grammar into official darcs.

Browse Source 
See https://github.com/daherb/GF orhttps://gitlab.cip.ifi.lmu.de/langeh/gf 
for full git commit history
This commit is contained in:
Herbert Lange
2013-09-03 17:13:58 +00:00
parent d2ea52e0ec
commit 1f91d2287b
55 changed files with 52150 additions and 1606 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
lib/src/latin/CatLat.gf
View File

@@ -6,27 +6,27 @@ concrete CatLat of Cat = CommonX ** open ResLat, Prelude in {
---- Tensed/Untensed
--
-- S = {s : Str} ;
-- QS = {s : QForm => Str} ;
S = {s : Str} ;
QS = {s : QForm => Str} ;
-- RS = {s : Agr => Str ; c : Case} ; -- c for it clefts
-- SSlash = {s : Str ; c2 : Str} ;
--
---- Sentence
--
Cl = {s : VAnter => VTense => Polarity => Str} ;
Cl = { s : Tense => Anteriority => Polarity => Order => Str } ;
-- ClSlash = {
-- s : ResLat.Tense => Anteriority => CPolarity => Order => Str ;
-- s : ResLat.Tense => Anteriority => Polarity => Order => Str ;
-- c2 : Str
-- } ;
-- Imp = {s : CPolarity => ImpForm => Str} ;
Imp = {s : Polarity => ImpForm => Str} ;
--
---- Question
--
-- QCl = {s : ResLat.Tense => Anteriority => CPolarity => QForm => Str} ;
-- IP = {s : Case => Str ; n : Number} ;
-- IComp = {s : Str} ;
-- IDet = {s : Str ; n : Number} ;
-- IQuant = {s : Number => Str} ;
QCl = {s : ResLat.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Case => Str ; n : Number} ;
IComp = {s : Str} ;
IDet = Determiner ; --{s : Str ; n : Number} ;
IQuant = {s : Agr => Str} ;
--
---- Relative
--
@@ -38,20 +38,26 @@ concrete CatLat of Cat = CommonX ** open ResLat, Prelude in {
--
---- Verb
--
VP = ResLat.VP ;
VPSlash = ResLat.VP ** {c2 : Preposition} ;
Comp = {s : Gender => Number => Case => Str} ;
VP = ResLat.VerbPhrase ;
VPSlash = VP ** {c2 : Preposition} ;
Comp = {s : Agr => Str} ;
--
---- Adjective
--
AP = Adjective ** {isPre : Bool} ; ---- {s : Agr => Str ; isPre : Bool} ;
-- AP = Adjective ** {isPre : Bool} ; ---- {s : Agr => Str ; isPre : Bool} ;
AP =
{
s : Agr => Str ;
-- isPre : Bool ; -- should have no use in latin because adjectives can appear variably before and after nouns
} ;
--
---- Noun
--
CN = {s : Number => Case => Str ; g : Gender} ;
NP, Pron = {s : Case => Str ; g : Gender ; n : Number ; p : Person} ;
CN = ResLat.ComplexNoun ;
NP = ResLat.NounPhrase ;
Pron = ResLat.Pronoun ;
Det = Determiner ;
-- Predet, Ord = {s : Str} ;
Predet, Ord = {s : Str} ;
Num = {s : Gender => Case => Str ; n : Number} ;
-- Card = {s : Str ; n : Number} ;
Quant = Quantifier ;
@@ -64,25 +70,22 @@ concrete CatLat of Cat = CommonX ** open ResLat, Prelude in {
---- Structural
--
Conj = {s1,s2 : Str ; n : Number} ;
-- Subj = {s : Str} ;
Prep = {s : Str ; c : Case} ;
Subj = {s : Str} ;
Prep = ResLat.Preposition ;
--
---- Open lexical classes, e.g. Lexicon
V = Verb ;
V2 = Verb ** {c : Preposition} ;
-- V, VS, VQ, VA = Verb ; -- = {s : VForm => Str} ;
-- V2, V2A, V2Q, V2S = Verb ** {c2 : Str} ;
-- V3 = Verb ** {c2, c3 : Str} ;
-- VV = {s : VVForm => Str ; isAux : Bool} ;
-- V2V = Verb ** {c2 : Str ; isAux : Bool} ;
--
A = Adjective ** {isPre : Bool} ;
-- A2 = {s : AForm => Str ; c2 : Str} ;
--
V, VS, VQ, VA = ResLat.Verb ; -- = {s : VForm => Str} ;
V2, V2A, V2Q, V2S = Verb ** {c : Prep } ;
V3 = Verb ** {c2, c3 : Prep} ;
VV = ResLat.VV ;
V2V = Verb ** {c2 : Str ; isAux : Bool} ;
A = Adjective ;
N = Noun ;
-- N2 = {s : Number => Case => Str ; g : Gender} ** {c2 : Str} ;
-- N3 = {s : Number => Case => Str ; g : Gender} ** {c2,c3 : Str} ;
PN = {s : Case => Str ; g : Gender} ;
--
N2 = Noun ** { c : Prep } ;
N3 = Noun ** { c : Prep ; c2 : Prep } ;
PN = Noun ;
A2 = Adjective ** { c : Prep} ;
}