forked from GitHub/gf-core
7dee933802
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.
45 lines
926 B
Plaintext
45 lines
926 B
Plaintext
--# -path=.:../abstract:../common:../prelude
|
|
|
|
concrete SymbolEst of Symbol = CatEst ** open Prelude, NounEst, ResEst in {
|
|
|
|
lin
|
|
SymbPN i = {s = \\c => i.s} ; --- c
|
|
IntPN i = {s = \\c => i.s} ; --- c
|
|
FloatPN i = {s = \\c => i.s} ; --- c
|
|
NumPN i = {s = \\c => i.s!Sg!Nom } ; --- c
|
|
|
|
CNIntNP cn i = {
|
|
s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ;
|
|
a = agrP3 Sg ;
|
|
isPron = False
|
|
} ;
|
|
CNSymbNP det cn xs = let detcn = NounEst.DetCN det cn in {
|
|
s = \\c => detcn.s ! c ++ xs.s ;
|
|
a = detcn.a ;
|
|
isPron = False
|
|
} ;
|
|
CNNumNP cn i = {
|
|
s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ! Sg ! Nom ;
|
|
a = agrP3 Sg ;
|
|
isPron = False
|
|
} ;
|
|
|
|
SymbS sy = sy ;
|
|
|
|
SymbNum n = {s = \\_,_ => n.s ; isNum = True ; n = Pl} ;
|
|
SymbOrd n = {s = \\_ => n.s ++ "."} ;
|
|
|
|
lincat
|
|
|
|
Symb, [Symb] = SS ;
|
|
|
|
lin
|
|
|
|
MkSymb s = s ;
|
|
|
|
BaseSymb = infixSS "ja" ;
|
|
ConsSymb = infixSS "," ;
|
|
|
|
}
|
|
|