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

SymbolRon

Browse Source
This commit is contained in:
ra.monique
2009-12-12 14:16:11 +00:00
parent 7c2bce5779
commit 3bd269ac2e
1 changed files with 76 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

153
lib/src/romanian/SymbolRon.gf
View File

@@ -1,77 +1,76 @@
--# -path=.:../abstract:../common
concrete SymbolRon of Symbol =
CatRon ** open Prelude, ResRon in {
lin
SymbPN i = mkSymb i.s ;
IntPN i = mkSymb i.s ;
FloatPN i = mkSymb i.s ;
NumPN i = mkSymb (i.sp ! Masc) ;
CNIntNP cn i = let gg = agrGender cn.g Sg in
heavyNP {
s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.s ;
a = agrP3 gg Sg ;
hasClit = False ;
ss = cn.s ! Sg ! Def ! ANomAcc ++ i.s
} ;
CNSymbNP det cn xs = let gg = agrGender cn.g det.n;
st = if_then_else Species det.isDef Def Indef;
rs = if_then_else Species det.hasRef Def Indef;
ag = agrP3 gg det.n ;
hr = andB (getClit cn.a) det.hasRef
in
{s = \\c => case c of
{Vo =>
{comp = det.s ! gg ! No ++ det.size ++ cn.s ! det.n ! st ! ANomAcc ++ det.post ! gg ! No ;
clit = \\cs => if_then_Str hr ((genCliticsCase ag c).s ! cs) [] };
_ => {comp = det.s ! gg ! c ++ det.size ++ cn.s ! det.n ! st ! (convCase c) ++ det.post ! gg ! c ;
clit = \\cs => if_then_Str hr ((genCliticsCase ag c).s ! cs) [] }
};
a = ag ;
hasClit = hr ;
hasRef = hr ;
isPronoun = False ;
indForm = det.s ! gg ! No ++ det.size ++cn.s ! det.n ! rs ! ANomAcc
} ;
CNNumNP cn i = let gg = agrGender cn.g Sg in
heavyNP {
s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.sp ! gg;
a = agrP3 gg Sg ;
hasClit = False ;
ss = cn.s ! Sg ! Def ! ANomAcc ++ i.sp ! gg
} ;
SymbS sy = {s = \\_ => sy.s} ;
SymbNum nn = {s,sp = \\_ => nn.s ; n = Pl; size = less20} ; -- need to know the size of the symbol to properly set it to less20 or plural
SymbOrd nn = {s = \\n,g,nc => case nc of
{Da | Ge => artDem g n AGenDat ++ "de-" ++ artPos g n ANomAcc ++ nn.s ++ "-lea";
_ => artPos g n ANomAcc ++ nn.s ++ "-lea"
};
isPre = True
} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "ºi" ;
ConsSymb = infixSS "," ;
oper mkSymb : Str -> PN = \ss ->
{ s = \\c => case c of
{Da | Ge => "lui" ++ ss;
_ => ss
};
g = Masc; n = Sg; a = Animate ;
lock_PN = <>
};
}
concrete SymbolRon of Symbol =
CatRon ** open Prelude, ResRon in {
lin
SymbPN i = mkSymb i.s ;
IntPN i = mkSymb i.s ;
FloatPN i = mkSymb i.s ;
NumPN i = mkSymb (i.sp ! Masc) ;
CNIntNP cn i = let gg = agrGender cn.g Sg in
heavyNP {
s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.s ;
a = agrP3 gg Sg ;
hasClit = HasRef False ;
ss = cn.s ! Sg ! Def ! ANomAcc ++ i.s
} ;
CNSymbNP det cn xs = let gg = agrGender cn.g det.n;
st = if_then_else Species det.isDef Def Indef;
rs = if_then_else Species det.hasRef Def Indef;
ag = agrP3 gg det.n ;
hr = andB (getClit cn.a) det.hasRef;
nf = if_then_else NForm hr HasClit (HasRef False)
in
{s = \\c => case c of
{Vo =>
{comp = det.s ! gg ! No ++ det.size ++ cn.s ! det.n ! st ! ANomAcc ++ det.post ! gg ! No ;
clit = \\cs => if_then_Str hr ((genCliticsCase ag c).s ! cs) [] };
_ => {comp = det.s ! gg ! c ++ det.size ++ cn.s ! det.n ! st ! (convCase c) ++ det.post ! gg ! c ;
clit = \\cs => if_then_Str hr ((genCliticsCase ag c).s ! cs) [] }
};
a = ag ;
nForm = nf ;
isPronoun = False ;
indForm = det.s ! gg ! No ++ det.size ++cn.s ! det.n ! rs ! ANomAcc
} ;
CNNumNP cn i = let gg = agrGender cn.g Sg in
heavyNP {
s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.sp ! gg;
a = agrP3 gg Sg ;
hasClit = HasRef False ;
ss = cn.s ! Sg ! Def ! ANomAcc ++ i.sp ! gg
} ;
SymbS sy = {s = \\_ => sy.s} ;
SymbNum nn = {s,sp = \\_ => nn.s ; n = Pl; size = less20} ; -- need to know the size of the symbol to properly set it to less20 or plural
SymbOrd nn = {s = \\n,g,nc => case nc of
{Da | Ge => artDem g n AGenDat ++ "de-" ++ artPos g n ANomAcc ++ nn.s ++ "-lea";
_ => artPos g n ANomAcc ++ nn.s ++ "-lea"
};
isPre = True
} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "ºi" ;
ConsSymb = infixSS "," ;
oper mkSymb : Str -> PN = \ss ->
{ s = \\c => case c of
{Da | Ge => "lui" ++ ss;
_ => ss
};
g = Masc; n = Sg; a = Animate ;
lock_PN = <>
};
}