nocf flag ; mathematical API

This commit is contained in:
aarne
2006-02-14 21:19:24 +00:00
parent 87ff64e0fc
commit 834b63a175
11 changed files with 92 additions and 20 deletions

View File

@@ -0,0 +1,24 @@
--# -path=.:../finnish:../abstract:../common:prelude
concrete MathematicalFin of Mathematical =
NounFin - [ComplN2], --- to avoid ambiguity
-- VerbFin,
-- AdjectiveFin,
-- AdverbFin,
NumeralFin,
-- SentenceFin,
QuestionFin,
RelativeFin,
ConjunctionFin,
PhraseFin,
StructuralFin,
SymbolFin,
PredicationFin,
LexiconFin
** {
flags startcat = Phr ;
} ;

View File

@@ -0,0 +1,24 @@
--# -path=.:../spanish:../romance:../abstract:../common:prelude
concrete MathematicalSpa of Mathematical =
NounSpa - [ComplN2], --- to avoid ambiguity
-- VerbSpa,
-- AdjectiveSpa,
-- AdverbSpa,
NumeralSpa,
-- SentenceSpa,
QuestionSpa,
RelativeSpa,
ConjunctionSpa,
PhraseSpa,
StructuralSpa,
SymbolSpa,
PredicationSpa, -- - [predV3,predV2], --- gf bug
LexiconSpa
** {
flags startcat = Phr ;
} ;

View File

@@ -0,0 +1,3 @@
concrete PredicationFin of Predication = CatFin ** PredicationI with
(Lang = LangFin) ;

View File

@@ -0,0 +1,3 @@
concrete PredicationSpa of Predication = CatSpa ** PredicationI with
(Lang = LangSpa) ;

View File

@@ -0,0 +1,28 @@
concrete SymbolFin of Symbol = CatFin ** open Prelude, ResFin in {
lin
SymbPN i = {s = \\c => i.s} ; --- c
IntPN i = {s = \\c => i.s} ; --- c
{-
CNIntNP cn i = {
s = \\c => (cn.s ! Sg ! DIndef ! Nom ++ i.s) ;
a = agrP3 cn.g Sg
} ;
CNSymbNP det cn xs = let g = cn.g in {
s = \\c => det.s ! cn.isMod ! g ++ cn.s ! det.n ! det.det ! caseNP c ++ xs.s ;
a = agrP3 g det.n
} ;
-}
lincat
Symb, SymbList = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "ja" ;
ConsSymb = infixSS "," ;
}

View File

@@ -0,0 +1,2 @@
concrete SymbolSpa of Symbol = CatSpa ** SymbolRomance with
(ResRomance = ResSpa) ;