GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 18:28:55 -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

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

@@ -1,5 +1,3 @@
--# -path=.:../abstract:../common
concrete SymbolRon of Symbol = concrete SymbolRon of Symbol =
CatRon ** open Prelude, ResRon in { CatRon ** open Prelude, ResRon in {
@@ -13,7 +11,7 @@ lin
heavyNP { heavyNP {
s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.s ; s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.s ;
a = agrP3 gg Sg ; a = agrP3 gg Sg ;
hasClit = False ; hasClit = HasRef False ;
ss = cn.s ! Sg ! Def ! ANomAcc ++ i.s ss = cn.s ! Sg ! Def ! ANomAcc ++ i.s
} ; } ;
@@ -21,7 +19,8 @@ lin
st = if_then_else Species det.isDef Def Indef; st = if_then_else Species det.isDef Def Indef;
rs = if_then_else Species det.hasRef Def Indef; rs = if_then_else Species det.hasRef Def Indef;
ag = agrP3 gg det.n ; ag = agrP3 gg det.n ;
hr = andB (getClit cn.a) det.hasRef hr = andB (getClit cn.a) det.hasRef;
nf = if_then_else NForm hr HasClit (HasRef False)
in in
{s = \\c => case c of {s = \\c => case c of
{Vo => {Vo =>
@@ -31,8 +30,8 @@ lin
clit = \\cs => if_then_Str hr ((genCliticsCase ag c).s ! cs) [] } clit = \\cs => if_then_Str hr ((genCliticsCase ag c).s ! cs) [] }
}; };
a = ag ; a = ag ;
hasClit = hr ; nForm = nf ;
hasRef = hr ;
isPronoun = False ; isPronoun = False ;
indForm = det.s ! gg ! No ++ det.size ++cn.s ! det.n ! rs ! ANomAcc indForm = det.s ! gg ! No ++ det.size ++cn.s ! det.n ! rs ! ANomAcc
} ; } ;
@@ -41,7 +40,7 @@ lin
heavyNP { heavyNP {
s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.sp ! gg; s = \\c => cn.s ! Sg ! Def ! (convCase c) ++ i.sp ! gg;
a = agrP3 gg Sg ; a = agrP3 gg Sg ;
hasClit = False ; hasClit = HasRef False ;
ss = cn.s ! Sg ! Def ! ANomAcc ++ i.sp ! gg ss = cn.s ! Sg ! Def ! ANomAcc ++ i.sp ! gg
} ; } ;
SymbS sy = {s = \\_ => sy.s} ; SymbS sy = {s = \\_ => sy.s} ;