mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
CompoundAP in translator/Extensions, e.g. language(-)independent. Implemented for all but Bul,Hin
This commit is contained in:
@@ -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)
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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 ++
|
||||
|
||||
@@ -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 ; ----
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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 **
|
||||
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 **
|
||||
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user