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

scand questions

Browse Source
This commit is contained in:
aarne
2005-12-07 20:10:30 +00:00
parent 36c899e975
commit b7cb68eb08
9 changed files with 142 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
lib/resource-1.0/scandinavian/DiffScand.gf
View File

@@ -5,18 +5,11 @@ interface DiffScand = open ResScand, Prelude in {
param
Gender ;
CardOrd = NCard Gender | NOrd AFormSup ; -- sic! (AFormSup)
oper
neutrum, utrum : Gender ;
gennum : Gender -> Number -> GenNum ;
agrP3 : Gender -> Number -> Agr = \g,n -> {
gn = gennum g n ;
p = P3
} ;
-- This is the form of the noun in "det stora berget"/"det store berg".
detDef : Species ;
@@ -27,6 +20,8 @@ interface DiffScand = open ResScand, Prelude in {
conjThan : Str ;
infMark : Str ;
subjIf : Str ;
artIndef : Gender => Str ;
verbHave : {s : VForm => Str} ;
@@ -37,9 +32,28 @@ interface DiffScand = open ResScand, Prelude in {
negation : Polarity => Str ;
-- For determiners; mostly two-valued even in Norwegian.
genderForms : (x1,x2 : Str) -> Gender => Str ;
-----------------------------------------------------------------------
--
-- The functions and parameters below are here because they depend on
-- the parametrized constants, but their definitions are fully given
-- here relative to the above.
param
CardOrd = NCard Gender | NOrd AFormSup ; -- sic! (AFormSup)
oper
agrP3 : Gender -> Number -> Agr = \g,n -> {
gn = gennum g n ;
p = P3
} ;
-- This function is here because it depends on $verbHave, auxFut, auxCond$.
predV : Verb -> VP = \verb ->
predV : Verb -> VP = \verb ->
let
vfin : Tense -> Str = \t -> verb.s ! vFin t Act ;
vsup = verb.s ! VI (VSupin Act) ;
@@ -54,19 +68,19 @@ interface DiffScand = open ResScand, Prelude in {
in {
s = table {
VFinite t Simul => case t of {
VPFinite t Simul => case t of {
Pres | Past => vf (vfin t) [] ;
Fut => vf auxFut vinf ;
Cond => vf auxCond vinf
} ;
VFinite t Anter => case t of {
VPFinite t Anter => case t of {
Pres | Past => vf (har t) vsup ;
Fut => vf auxFut (ha ++ vsup) ;
Cond => vf auxCond (ha ++ vsup)
} ;
VImperat => vf (verb.s ! VF (VImper Act)) [] ;
VInfinit Simul => vf [] vinf ;
VInfinit Anter => vf [] (ha ++ vsup)
VPImperat => vf (verb.s ! VF (VImper Act)) [] ;
VPInfinit Simul => vf [] vinf ;
VPInfinit Anter => vf [] (ha ++ vsup)
} ;
a1 : Polarity => Str = negation ;
n2 : Agr => Str = \\_ => [] ;
@@ -75,8 +89,5 @@ interface DiffScand = open ResScand, Prelude in {
en2,ea2,eext : Bool = False -- indicate if the field exists
} ;
-- For determiners; mostly two-valued even in Norwegian.
genderForms : (x1,x2 : Str) -> Gender => Str ;
}