forked from GitHub/gf-rgl
added a couple of lin's in ParseSwe to try out Penn translations with something complete.
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
--# -path=alltenses
|
--# -path=.:folketslexikon:alltenses
|
||||||
concrete ParseSwe of ParseEngAbs =
|
concrete ParseSwe of ParseEngAbs =
|
||||||
TenseSwe,
|
TenseSwe,
|
||||||
NounSwe - [PPartNP],
|
NounSwe - [PPartNP],
|
||||||
@@ -24,8 +24,9 @@ open MorphoSwe, ResSwe, ParadigmsSwe, Prelude in {
|
|||||||
flags
|
flags
|
||||||
literal=Symb ;
|
literal=Symb ;
|
||||||
beam_size=0.95 ;
|
beam_size=0.95 ;
|
||||||
{-
|
|
||||||
lin
|
lin
|
||||||
|
{-
|
||||||
myself_NP = regNP "myself" singular ;
|
myself_NP = regNP "myself" singular ;
|
||||||
yourselfSg_NP = regNP "yourself" singular ;
|
yourselfSg_NP = regNP "yourself" singular ;
|
||||||
himself_NP = regNP "himself" singular ;
|
himself_NP = regNP "himself" singular ;
|
||||||
@@ -35,17 +36,21 @@ lin
|
|||||||
yourselfPl_NP = regNP "yourself" plural ;
|
yourselfPl_NP = regNP "yourself" plural ;
|
||||||
themself_NP = regNP "themself" plural ;
|
themself_NP = regNP "themself" plural ;
|
||||||
themselves_NP = regNP "themselves" plural ;
|
themselves_NP = regNP "themselves" plural ;
|
||||||
|
-}
|
||||||
|
|
||||||
CompoundCN num noun cn = {
|
CompoundCN num noun cn = {
|
||||||
s = \\n,c => num.s ! Nom ++ noun.s ! num.n ! Nom ++ cn.s ! n ! c ;
|
s = \\n,d,c => noun.s ! num.n ! Indef ! Nom ++ BIND ++ cn.s ! n ! d ! c ;
|
||||||
g = cn.g
|
g = cn.g ;
|
||||||
} ;
|
isMod = False
|
||||||
|
} ;
|
||||||
|
|
||||||
DashCN noun1 noun2 = {
|
DashCN noun1 noun2 = {
|
||||||
s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ;
|
s = \\n,d,c => noun1.s ! Sg ! Indef ! Nom ++ BIND ++ noun2.s ! n ! d ! c ;
|
||||||
g = noun2.g
|
g = noun2.g ;
|
||||||
|
isMod = False ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
{-
|
||||||
GerundN v = {
|
GerundN v = {
|
||||||
s = \\n,c => v.s ! VPresPart ;
|
s = \\n,c => v.s ! VPresPart ;
|
||||||
g = Neutr
|
g = Neutr
|
||||||
@@ -126,9 +131,9 @@ lin
|
|||||||
s = \\agr => vp.ad ++ vp.prp ++ vp.s2 ! agr ;
|
s = \\agr => vp.ad ++ vp.prp ++ vp.s2 ! agr ;
|
||||||
c = npNom
|
c = npNom
|
||||||
} ;
|
} ;
|
||||||
|
-}
|
||||||
ApposNP np1 np2 = {
|
ApposNP np1 np2 = {
|
||||||
s = \\c => np1.s ! c ++ "," ++ np2.s ! npNom ;
|
s = \\c => np1.s ! c ++ "," ++ np2.s ! NPNom ;
|
||||||
a = np1.a
|
a = np1.a
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
@@ -137,8 +142,6 @@ lin
|
|||||||
UttAdV adv = adv;
|
UttAdV adv = adv;
|
||||||
|
|
||||||
lin
|
lin
|
||||||
PPos = {s = [] ; p = CPos} ;
|
UncNeg = {s = [] ; p = Neg} ;
|
||||||
PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
|
|
||||||
UncNeg = {s = [] ; p = CNeg False} ;
|
|
||||||
-}
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user