restored multimodal and mathematical sources

This commit is contained in:
aarne
2006-02-27 14:04:33 +00:00
parent c19ec594c6
commit 6eb14fa20f
50 changed files with 984 additions and 0 deletions

View File

@@ -0,0 +1,31 @@
concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin in {
lin
SymbPN i = {s = \\c => i.s} ; --- c
IntPN i = {s = \\c => i.s} ; --- c
FloatPN i = {s = \\c => i.s} ; --- c
CNIntNP cn i = {
s = \\c => cn.s ! NCase Sg (npform2case c) ++ i.s ;
a = agrP3 Sg ;
isPron = False
} ;
CNSymbNP det cn xs = let detcn = NounFin.DetCN det cn in {
s = \\c => detcn.s ! c ++ xs.s ;
a = detcn.a ;
isPron = False
} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "ja" ;
ConsSymb = infixSS "," ;
}