CompoundAP in translator/Extensions, e.g. language(-)independent. Implemented for all but Bul,Hin

This commit is contained in:
aarne
2014-04-13 10:37:58 +00:00
parent df7e50b5fb
commit 677c5cdac9
21 changed files with 63 additions and 17 deletions

View File

@@ -48,6 +48,7 @@ fun
GenRP : Num -> CN -> RP ; -- whose car(s)
CompoundCN : N -> CN -> CN ; -- control system / controls system / control-system
CompoundAP : N -> A -> AP ; -- language independent / language-independent
GerundCN : VP -> CN ; -- publishing of the document (can get a determiner)
GerundNP : VP -> NP ; -- publishing the document (by nature definite)

View File

@@ -44,7 +44,8 @@ lin
-- but_Subj = {s = "pero" ; m = Indic} ; ---- strange to have this as Subj
CompoundCN noun cn = {s = noun.s ++ cn.s ; c = cn.c} ; ----
CompoundCN noun cn = {s = noun.s ++ cn.s ; c = cn.c} ; ----
CompoundAP noun adj = complexAP (noun.s ++ possessive_s ++ adj.s) ; ----
GerundN v = {
s = v.s ;

View File

@@ -63,12 +63,18 @@ lin
-}
PredVPosv = G.PredVP;
PredVPovs = G.PredVP;
{-
CompoundCN noun cn = {
s = \\a,n,c => glue (noun.s ! Sg ! Nom) (cn.s ! a ! n ! c) ;
s = \\af,nf => glue (noun.s ! NF Sg Nom) (cn.s ! af ! nf) ;
g = cn.g
} ;
-}
} ;
CompoundAP noun adj = {
s = \\af => glue (noun.s ! NF Sg Nom) (adj.s ! Posit ! af) ;
isPre = True
} ;
GerundN v = { -- parsing
s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
g = Neutr

View File

@@ -42,6 +42,12 @@ lin
g = cn.g
} ;
CompoundAP noun adj = {
s = (\\_ => noun.s ! Sg ! Nom ++ Predef.BIND ++ "-" ++ Predef.BIND ++ adj.s ! AAdj Posit Nom)
| (\\_ => noun.s ! Sg ! Nom ++ adj.s ! AAdj Posit Nom)
;
isPre = True
} ;
GerundCN vp = {
s = \\n,c => vp.ad ! AgP3Sg Neutr ++ vp.prp ++

View File

@@ -52,6 +52,10 @@ lin
h = cn.h
} ;
CompoundAP noun adj = {
s = \\_ => (snoun2nounSep {s = \\f => noun.s ! 10 ++ BIND ++ adj.s ! Posit ! sAN f ; h = adj.h}).s
} ;
---- PastPartAP vp = {s = \\_,nf => (sverb2verbSep v).s ! PastPartPass (AN nf)} ;
PredVPosv np vp = mkCl np vp ; ----

View File

@@ -53,6 +53,12 @@ lin
g = cn.g
} ;
CompoundAP noun adj = {
s = \\af => adj.s ! Posit ! af ++ elisDe ++ noun.s ! Sg ;
isPre = False
} ;
{-
GerundN v = {
s = \\n,c => v.s ! VPresPart ;

View File

@@ -68,6 +68,11 @@ lin
g = cn.g
} ;
CompoundAP noun adj = {
s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ;
isPre = True
} ;
GerundN v = { -- parsing
s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
g = Neutr

View File

@@ -53,6 +53,12 @@ lin
g = cn.g
} ;
CompoundAP noun adj = {
s = \\af => adj.s ! Posit ! af ++ "di" ++ noun.s ! Sg ;
isPre = False
} ;
{-
GerundN v = {
s = \\n,c => v.s ! VPresPart ;

View File

@@ -53,6 +53,11 @@ lin
g = cn.g
} ;
CompoundAP noun adj = {
s = \\af => adj.s ! Posit ! af ++ "de" ++ noun.s ! Sg ;
isPre = False
} ;
{-
GerundN v = {
s = \\n,c => v.s ! VPresPart ;

View File

@@ -41,6 +41,11 @@ lin
isMod = False
} ;
CompoundAP noun adj = {
s = \\ap => noun.co ++ BIND ++ adj.s ! AF (APosit ap) Nom ;
isPre = True
} ;
GerundN v = {
s = \\n,d,c => v.s ! VI (VPtPres n d c) ;
g = Neutr ;

View File

@@ -23,7 +23,7 @@ abstract Translate =
Chunk,
Construction,
Extensions [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
Extensions [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
Dictionary,
Documentation

View File

@@ -27,7 +27,7 @@ concrete TranslateChi of Translate =
DocumentationChi,
ChunkChi,
ExtensionsChi [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsChi [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryChi **

View File

@@ -23,7 +23,7 @@ concrete TranslateDut of Translate =
---- DocumentationDut,
ChunkDut,
ExtensionsDut [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsDut [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryDut **
open MorphoDut, ResDut, ParadigmsDut, SyntaxDut, (E = ExtraDut), Prelude in {

View File

@@ -28,7 +28,7 @@ concrete TranslateEng of Translate =
DocumentationEng,
ChunkEng,
ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryEng **
open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {

View File

@@ -27,7 +27,7 @@ concrete TranslateFin of Translate =
DocumentationFin,
ChunkFin,
ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryFin **

View File

@@ -25,7 +25,7 @@ concrete TranslateFre of Translate =
DocumentationFre,
ChunkFre,
ExtensionsFre [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsFre [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryFre **
open PhonoFre, MorphoFre, ResFre, CommonRomance, ParadigmsFre, SyntaxFre, Prelude, (G = GrammarFre) in {

View File

@@ -23,7 +23,7 @@ concrete TranslateGer of Translate =
DocumentationGer,
ChunkGer,
ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryGer **
open MorphoGer, ResGer, ParadigmsGer, SyntaxGer, CommonScand, (E = ExtraGer), Prelude in {

View File

@@ -23,7 +23,7 @@ concrete TranslateIta of Translate =
DocumentationIta,
ChunkIta,
ExtensionsIta [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsIta [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryIta **
open MorphoIta, ResIta, ParadigmsIta, SyntaxIta, CommonScand, (E = ExtraIta), Prelude in {

View File

@@ -23,7 +23,7 @@ concrete TranslateSpa of Translate =
DocumentationSpa,
ChunkSpa,
ExtensionsSpa [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsSpa [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionarySpa **
open MorphoSpa, ResSpa, ParadigmsSpa, SyntaxSpa, CommonScand, (E = ExtraSpa), Prelude in {

View File

@@ -23,7 +23,7 @@ concrete TranslateSwe of Translate =
DocumentationSwe,
ChunkSwe,
ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionarySwe **
open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {

View File

@@ -58,7 +58,8 @@ ComplVPIVV 1.629348323337908e-4
ComplVQ 3.3840311330864245e-4
ComplVS 0.10664084776246609
ComplVV 6.258577578913727e-2
CompoundCN 0.010736547702286556
CompoundAP 0.0010736547702286556
CompoundCN 0.0010736547702286556
ConjAP 2.1189670416781e-3
ConjAdV 9.744689144416293e-5
ConjAdv 1.0922898208991453e-3
@@ -189,7 +190,7 @@ SlashVPIV2V 3.942764206272281e-4
SlashVS 9.46372239747634e-3
SlashVV 4.484894284634719e-3
SubjS 4.386497217261647e-3
SymbPN 0.8107861060329068
SymbPN 0.008107861060329068
TCond 1.7737397420867527e-2
TFut 2.4267291910902697e-2
TPast 0.25411488862837045