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

rename Dt to Species like in Swedish

Browse Source
This commit is contained in:
krasimir
2008-02-19 10:32:08 +00:00
parent 27df450a26
commit f3024fa714
4 changed files with 35 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource/bulgarian/CatBul.gf
View File

@@ -19,7 +19,7 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ; QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Str ; gn : GenNum} ; IP = {s : Str ; gn : GenNum} ;
IComp = {s : Str} ; IComp = {s : Str} ;
IDet = {s : Gender => Str ; n : Number; det : Dt} ; IDet = {s : Gender => Str ; n : Number; spec : Species} ;
-- Verb -- Verb
@@ -33,11 +33,11 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
-- Noun -- Noun
CN = {s : Number => Case => Dt => Str; g : Gender} ; CN = {s : Number => Case => Species => Str; g : Gender} ;
NP, Pron = {s : Case => Str ; a : Agr} ; NP, Pron = {s : Case => Str ; a : Agr} ;
Det = {s : Gender => Str ; n : Number; det : Dt} ; Det = {s : Gender => Str ; n : Number; spec : Species} ;
Num = {s : Str; n : Number } ; Num = {s : Str; n : Number } ;
Quant = {s : AForm => Str; det : Dt} ; Quant = {s : AForm => Str; spec : Species} ;
-- Structural -- Structural

14
lib/resource/bulgarian/MorphoBul.gf
View File

@@ -15,20 +15,20 @@ resource MorphoBul = ResBul ** open Prelude, (Predef=Predef) in {
oper oper
--2 Determiners --2 Determiners
mkDeterminerSg : Str -> Str -> Str -> {s : Gender => Str; n : Number; det : Dt} = \vseki,vsiaka,vsiako -> mkDeterminerSg : Str -> Str -> Str -> {s : Gender => Str; n : Number; spec : Species} = \vseki,vsiaka,vsiako ->
{s = table Gender [vseki;vsiaka;vsiako]; n = Sg; det = NDet} ; {s = table Gender [vseki;vsiaka;vsiako]; n = Sg; spec = Indef} ;
mkDeterminerPl : Str -> {s : Gender => Str ; n : Number; det : Dt} = \vsicki -> mkDeterminerPl : Str -> {s : Gender => Str ; n : Number; spec : Species} = \vsicki ->
{s = \\_ => vsicki; n = Sg; det = NDet} ; {s = \\_ => vsicki; n = Sg; spec = Indef} ;
mkQuant : Str -> Str -> Str -> Str -> {s : AForm => Str; det : Dt} = \tozi,tazi,towa,tezi -> { mkQuant : Str -> Str -> Str -> Str -> {s : AForm => Str; spec : Species} = \tozi,tazi,towa,tezi -> {
s = \\gn => case gn of { s = \\gn => case gn of {
ASg Masc _ => tozi ; ASg Masc _ => tozi ;
ASg Fem _ => tazi ; ASg Fem _ => tazi ;
ASg Neut _ => towa ; ASg Neut _ => towa ;
APl _ => tezi ; APl _ => tezi ;
AFullDet => tozi AFullDef => tozi
}; };
det = NDet spec = Indef
} ; } ;
} }

18
lib/resource/bulgarian/NounBul.gf
View File

@@ -4,44 +4,44 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
lin lin
DetCN det cn = DetCN det cn =
{ s = \\c => det.s ! cn.g ++ cn.s ! det.n ! c ! det.det ; { s = \\c => det.s ! cn.g ++ cn.s ! det.n ! c ! det.spec ;
a = agrP3 (gennum cn.g det.n) a = agrP3 (gennum cn.g det.n)
} ; } ;
UsePron p = p ; UsePron p = p ;
DetSg quant ord = { DetSg quant ord = {
s = \\g => quant.s ! ASg g NDet ++ ord.s ; s = \\g => quant.s ! ASg g Indef ++ ord.s ;
n = Sg ; n = Sg ;
det=quant.det spec=quant.spec
} ; } ;
DetPl quant num ord = { DetPl quant num ord = {
s = \\g => quant.s ! aformGenNum (gennum g num.n) ++ num.s ++ ord.s ; s = \\g => quant.s ! aformGenNum (gennum g num.n) ++ num.s ++ ord.s ;
n = num.n ; n = num.n ;
det=quant.det spec=quant.spec
} ; } ;
PossPron p = {s = \\aform => p.s ! Gen aform; det = NDet} ; PossPron p = {s = \\aform => p.s ! Gen aform; spec = Indef} ;
NoNum = {s = []; n = Pl } ; NoNum = {s = []; n = Pl } ;
NoOrd = {s = []} ; NoOrd = {s = []} ;
DefArt = { DefArt = {
s = \\_ => [] ; s = \\_ => [] ;
det = ResBul.Det spec = ResBul.Def
} ; } ;
IndefArt = { IndefArt = {
s = \\_ => [] ; s = \\_ => [] ;
det = ResBul.NDet spec = ResBul.Indef
} ; } ;
MassDet = {s = \\_ => [] ; n = Sg ; det = NDet} ; MassDet = {s = \\_ => [] ; n = Sg ; spec = Indef} ;
UseN noun = { UseN noun = {
s = \\n,c,dt => let aform = case n of { s = \\n,c,dt => let aform = case n of {
Sg => case <noun.g,c,dt> of { Sg => case <noun.g,c,dt> of {
<Masc,Nom,Det> => AFullDet ; <Masc,Nom,Def> => AFullDef ;
_ => ASg noun.g dt _ => ASg noun.g dt
} ; } ;
Pl => APl dt Pl => APl dt

30
lib/resource/bulgarian/ResBul.gf
View File

@@ -30,8 +30,8 @@ resource ResBul = ParamX ** open Prelude in {
param param
Gender = Masc | Fem | Neut ; Gender = Masc | Fem | Neut ;
Dt = NDet | Det ; Species = Indef | Def ;
-- The plural never makes a gender distinction. -- The plural never makes a gender distinction.
--2 For $Verb$ --2 For $Verb$
@@ -55,9 +55,9 @@ resource ResBul = ParamX ** open Prelude in {
--2 For $Adjective$ --2 For $Adjective$
AForm = AForm =
ASg Gender Dt ASg Gender Species
| APl Dt | APl Species
| AFullDet | AFullDef
; ;
--2 Transformations between parameter types --2 Transformations between parameter types
@@ -80,8 +80,8 @@ resource ResBul = ParamX ** open Prelude in {
aformGenNum : GenNum -> AForm = \gn -> aformGenNum : GenNum -> AForm = \gn ->
case gn of { case gn of {
GSg g => ASg g NDet ; GSg g => ASg g Indef ;
GPl => APl NDet GPl => APl Indef
} ; } ;
oper oper
@@ -190,15 +190,15 @@ resource ResBul = ParamX ** open Prelude in {
mkAdjective : (_,_,_,_,_,_,_,_,_ : Str) -> {s : AForm => Str} = mkAdjective : (_,_,_,_,_,_,_,_,_ : Str) -> {s : AForm => Str} =
\dobyr,dobria,dobriat,dobra,dobrata,dobro,dobroto,dobri,dobrite -> { \dobyr,dobria,dobriat,dobra,dobrata,dobro,dobroto,dobri,dobrite -> {
s = table { s = table {
ASg Masc NDet => dobyr ; ASg Masc Indef => dobyr ;
ASg Masc Det => dobria ; ASg Masc Def => dobria ;
AFullDet => dobriat ; AFullDef => dobriat ;
ASg Fem NDet => dobra ; ASg Fem Indef => dobra ;
ASg Fem Det => dobrata ; ASg Fem Def => dobrata ;
ASg Neut NDet => dobro ; ASg Neut Indef => dobro ;
ASg Neut Det => dobroto ; ASg Neut Def => dobroto ;
APl NDet => dobri ; APl NDet => dobri ;
APl Det => dobrite APl Def => dobrite
} }
} ; } ;