msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

we now support irregAdv in Swedish

Browse Source
This commit is contained in:
krasimir
2015-11-18 10:13:32 +00:00
parent 4e1a055703
commit 5defcc18bf
7 changed files with 20 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/scandinavian/AdverbScand.gf
+4 -7
View File
@@ -2,13 +2,13 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
lin
PositAdvAdj a = {
s = a.s ! adverbForm
s = a.s ! AAdv
} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ np.s ! nominative
s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ np.s ! nominative
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ s.s ! Sub
s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ s.s ! Sub
} ;
PrepNP prep np = {s = prep.s ++ np.s ! accusative} ;
@@ -16,7 +16,7 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
AdAdv = cc2 ;
PositAdAAdj a = {
s = a.s ! adverbForm
s = a.s ! AAdv
} ;
SubjS subj s = {
@@ -25,7 +25,4 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
oper
adverbForm : AForm = AF (APosit (Strong (GSg Neutr))) Nom ;
}