GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 06:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added linref's and fixed some minor things in Scandinavian

Browse Source
This commit is contained in:
aarne
2013-11-03 10:27:20 +00:00
parent 0cb3245e26
commit a0380013ba
4 changed files with 28 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
lib/src/scandinavian/CatScand.gf
View File

@@ -107,4 +107,29 @@ incomplete concrete CatScand of Cat =
lincat
Temp = {s : Str ; t : STense ; a : Anteriority} ;
Tense = {s : Str ; t : STense} ;
oper
agrUSgP3 : Agr = {g = Utr ; n = Sg ; p = P3} ;
linref
SSlash = \ss -> ss.s ! Main ++ ss.c2.s ++ ss.n3 ! agrUSgP3 ;
ClSlash = \cls -> cls.s ! SPres ! Simul ! Pos ! Main ++ cls.c2.s ++ cls.n3 ! agrUSgP3 ;
VP = \vp -> infVP vp agrUSgP3 ;
VPSlash = \vps -> infVP vps agrUSgP3 ++ vps.c2.s ++ vps.n3 ! agrUSgP3 ;
V, VS, VQ, VA = \v -> infVP (predV v) agrUSgP3 ;
V2, V2A, V2Q, V2S = \v -> infVP (predV v) agrUSgP3 ++ v.c2.s ;
V3 = \v -> infVP (predV v) agrUSgP3 ++ v.c2.s ++ v.c3.s ;
VV = \v -> infVP (predV v) agrUSgP3 ;
V2V = \v -> infVP (predV v) agrUSgP3 ++ v.c2.s ;
{-
A = \a -> a.s ! AAdj Posit Nom ;
A2 = \a -> a.s ! AAdj Posit Nom ++ a.c2 ;
N = \n -> n.s ! Sg ! Nom ;
N2 = \n -> n.s ! Sg ! Nom ++ n.c2 ;
N3 = \n -> n.s ! Sg ! Nom ++ n.c2 ++ n.c3 ;
-}
}

1
lib/src/scandinavian/PhraseScand.gf
View File

@@ -18,6 +18,7 @@ incomplete concrete PhraseScand of Phrase =
UttCN n = {s = n.s ! Sg ! DIndef ! Nom} ;
UttAP n = {s = n.s ! Strong (GSg Utr)} ;
UttCard n = {s = n.s ! neutrum} ;
UttInterj i = i ;
NoPConj = {s = []} ;
PConjConj conj = {s = conj.s2} ;