GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

basic implementation of SymbolLat

Browse Source
This commit is contained in:
Herbert Lange
2019-06-26 14:53:25 +02:00
parent 97e44c75c7
commit c71a79942c
1 changed files with 34 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
src/latin/SymbolLat.gf
View File

@@ -7,22 +7,44 @@ lin
IntPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c IntPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c
FloatPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c FloatPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c
NumPN i = {s = \\n,c => i.s ! Neutr ! c; g = Neutr} ; --- c NumPN i = {s = \\n,c => i.s ! Neutr ! c; g = Neutr} ; --- c
-- CNIntNP cn i = { CNIntNP cn i = {
-- s = \\c => (cn.s ! Sg ! Nom ++ i.s) ; s = \\c => (cn.s ! Sg ! Nom ++ i.s) ;
-- a = agrgP3 Sg cn.g g = cn.g ;
-- } ; n = Sg ;
-- CNSymbNP det cn xs = { adv = [] ;
det = { s = \\_,_ => [] ; n = Sg ; sp = \\_,_ => [] } ;
p = P3 ;
postap = { s = \\_ => [] } ;
preap = { s = \\_ => [] } ;
} ;
CNSymbNP det cn xs = {
s = \\c => (cn.s ! Sg ! Nom ++ xs.s ) ;
g = cn.g ;
n = det.n ;
adv = [] ;
det = det ;
p = P3 ;
postap = { s = \\_ => [] } ;
preap = { s = \\_ => [] } ;
} ;
-- s = \\c => det.s ++ cn.s ! det.n ! c ++ xs.s ; -- s = \\c => det.s ++ cn.s ! det.n ! c ++ xs.s ;
-- a = agrgP3 det.n cn.g -- a = agrgP3 det.n cn.g
-- } ; -- } ;
-- CNNumNP cn i = { -- } ;
-- s = \\c => (cn.s ! Sg ! Nom ++ i.s) ; CNNumNP cn i = {
-- a = agrgP3 Sg cn.g s = \\c => (cn.s ! Sg ! Nom ++ i.s ! cn.g ! Nom ) ;
-- } ; g = cn.g ;
n = Sg ;
adv = [] ;
det = { s = \\_,_ => [] ; n = Sg ; sp = \\_,_ => [] } ;
p = P3 ;
postap = { s = \\_ => [] } ;
preap = { s = \\_ => [] } ;
} ;
-- --
SymbS sy = { s = \\_ => sy.s ; neg = \\_ => "" ; o = \\_ => "" ; p = PPos ; sadv = "" ; t = TPres ; v = \\_,_ => "" } ; SymbS sy = { s = \\_ => sy.s ; neg = \\_ => "" ; o = \\_ => "" ; p = PPos ; sadv = "" ; t = TPres ; v = \\_,_ => "" } ;
-- --
-- SymbNum sy = {s = sy.s ; n = Pl ; hasCard = True} ; SymbNum sy = {s = \\_,_ => sy.s ; n = Pl } ;
SymbOrd sy = { s = \\g,n,c => sy.s } ; -- does not inflect properly SymbOrd sy = { s = \\g,n,c => sy.s } ; -- does not inflect properly
lincat lincat
@@ -31,6 +53,6 @@ lincat
lin lin
MkSymb s = s ; MkSymb s = s ;
-- BaseSymb = infixSS "and" ; BaseSymb = infixSS "et" ;
-- ConsSymb = infixSS "," ; ConsSymb = infixSS "et" ;
} }