mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-07 22:26:33 -06:00
75278a5828
The -path flags in the RGL modules compiled during 'cabal build' now refer directly to the needed source directories. References 'alltenses' and 'present' (and the nonexistent directory 'mathematical') have been removed. This allows the files to be compiled in any order (e.g. in parallel). In addition, you can do things like gf -retain lib/src/api/TrySwe.gf without compiling/installing any other RGL modules first, and without setting any other path flags or environment variables.
59 lines
1.6 KiB
Plaintext
59 lines
1.6 KiB
Plaintext
--# -path=.:../abstract:../common:../prelude
|
|
--# -coding=cp1251
|
|
|
|
concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in {
|
|
|
|
flags
|
|
coding = cp1251 ;
|
|
|
|
lin
|
|
SymbPN i = {s = i.s ; g = Neut} ;
|
|
IntPN i = {s = i.s ; g = Neut} ;
|
|
FloatPN i = {s = i.s ; g = Neut} ;
|
|
NumPN i = {s = i.s ! CFNeut Indef ; g = Neut} ;
|
|
CNIntNP cn i = {
|
|
s = \\c => cn.s ! NF Sg Indef ++ i.s ;
|
|
a = agrP3 (gennum cn.g Sg) ;
|
|
p = Pos
|
|
} ;
|
|
CNSymbNP det cn xs = {
|
|
s = \\c => det.s ! False ! cn.g ! RSubj ++ cn.s ! NF (numnnum det.nn) Indef ++ xs.s ;
|
|
a = agrP3 (gennum cn.g (numnnum det.nn)) ;
|
|
p = Pos
|
|
} ;
|
|
CNNumNP cn i = {
|
|
s = \\c => (cn.s ! NF Sg Indef ++ i.s ! CFNeut Indef) ;
|
|
a = agrP3 (gennum cn.g Sg) ;
|
|
p = Pos
|
|
} ;
|
|
|
|
SymbS sy = sy ;
|
|
|
|
SymbNum sy = {s = \\_ => sy.s; n = Pl; nonEmpty = True} ;
|
|
SymbOrd sy = {s = \\aform => sy.s ++ "-" ++
|
|
case aform of {
|
|
ASg Masc Indef => "òè" ;
|
|
ASg Fem Indef => "òà" ;
|
|
ASg Neut Indef => "òî" ;
|
|
ASg Masc Def => "òèÿ" ;
|
|
ASg Fem Def => "òàòà" ;
|
|
ASg Neut Def => "òîòî" ;
|
|
ASgMascDefNom => "òèÿò" ;
|
|
APl Indef => "òè" ;
|
|
APl Def => "òèòå"
|
|
}
|
|
} ;
|
|
|
|
lincat
|
|
|
|
Symb, [Symb] = SS ;
|
|
|
|
lin
|
|
|
|
MkSymb s = s ;
|
|
|
|
BaseSymb = infixSS "è" ;
|
|
ConsSymb = infixSS comma ;
|
|
|
|
}
|