mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
spec->sp
This commit is contained in:
@@ -15,7 +15,7 @@ concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
|||||||
lincat Conj = {s : Str} ;
|
lincat Conj = {s : Str} ;
|
||||||
lincat DAP = {s : Str} ;
|
lincat DAP = {s : Str} ;
|
||||||
lincat Decimal = {s : Str; n : Number; hasDot : Bool} ;
|
lincat Decimal = {s : Str; n : Number; hasDot : Bool} ;
|
||||||
lincat Det = {s : Case => Gender => Str; spec : Species; n : Number} ;
|
lincat Det = {s : Case => Gender => Str; sp : Species; n : Number} ;
|
||||||
lincat Digits = {s : Str; n : Number; tail : DTail} ;
|
lincat Digits = {s : Str; n : Number; tail : DTail} ;
|
||||||
lincat GN = {s : Str} ;
|
lincat GN = {s : Str} ;
|
||||||
lincat IComp = {s : Str} ;
|
lincat IComp = {s : Str} ;
|
||||||
@@ -38,7 +38,7 @@ concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
|||||||
lincat Pron = {s: Case => Str; acc_clit, dat_clit : Str; a : Agr} ;
|
lincat Pron = {s: Case => Str; acc_clit, dat_clit : Str; a : Agr} ;
|
||||||
lincat QCl = {s : Str} ;
|
lincat QCl = {s : Str} ;
|
||||||
lincat QS = {s : Str} ;
|
lincat QS = {s : Str} ;
|
||||||
lincat Quant = {s : Case => Gender => Number => Str; spec : Species} ;
|
lincat Quant = {s : Case => Gender => Number => Str; sp : Species} ;
|
||||||
lincat RCl = {s : Str} ;
|
lincat RCl = {s : Str} ;
|
||||||
lincat RP = {s : Str} ;
|
lincat RP = {s : Str} ;
|
||||||
lincat RS = {s : Str} ;
|
lincat RS = {s : Str} ;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ concrete NounSqi of Noun = CatSqi ** open MorphoSqi, ResSqi in {
|
|||||||
|
|
||||||
lin
|
lin
|
||||||
DetCN det cn = {
|
DetCN det cn = {
|
||||||
s = \\c => det.s ! c ! cn.g ++ cn.s ! det.spec ! c ! det.n ;
|
s = \\c => det.s ! c ! cn.g ++ cn.s ! det.sp ! c ! det.n ;
|
||||||
a = agrgP3 cn.g det.n
|
a = agrgP3 cn.g det.n
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
@@ -13,7 +13,7 @@ concrete NounSqi of Noun = CatSqi ** open MorphoSqi, ResSqi in {
|
|||||||
DetQuant quant num = {
|
DetQuant quant num = {
|
||||||
s = \\c,g => quant.s ! c ! g ! num.n ++ num.s ;
|
s = \\c,g => quant.s ! c ! g ! num.n ++ num.s ;
|
||||||
n = num.n ;
|
n = num.n ;
|
||||||
spec = quant.spec
|
sp = quant.sp
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
NumSg = {s = []; n = Sg} ;
|
NumSg = {s = []; n = Sg} ;
|
||||||
@@ -21,12 +21,12 @@ concrete NounSqi of Noun = CatSqi ** open MorphoSqi, ResSqi in {
|
|||||||
|
|
||||||
DefArt = {
|
DefArt = {
|
||||||
s = \\c,g,n => [] ;
|
s = \\c,g,n => [] ;
|
||||||
spec = Def
|
sp = Def
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
IndefArt = {
|
IndefArt = {
|
||||||
s = \\c,g => table Number ["një"; []] ;
|
s = \\c,g => table Number ["një"; []] ;
|
||||||
spec = Indef
|
sp = Indef
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
UseN n = n ;
|
UseN n = n ;
|
||||||
|
|||||||
@@ -1327,7 +1327,7 @@ oper mkQuant : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Quant =
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
} ;
|
} ;
|
||||||
spec = Indef
|
sp = Indef
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
oper mkDet : (_,_,_,_,_,_,_,_ : Str) -> Number -> Det =
|
oper mkDet : (_,_,_,_,_,_,_,_ : Str) -> Number -> Det =
|
||||||
@@ -1350,7 +1350,7 @@ oper mkDet : (_,_,_,_,_,_,_,_ : Str) -> Number -> Det =
|
|||||||
Fem => f8
|
Fem => f8
|
||||||
}
|
}
|
||||||
} ;
|
} ;
|
||||||
spec = Indef ;
|
sp = Indef ;
|
||||||
n = n
|
n = n
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user