mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-08-31 16:36:59 -06:00
bruno cuconato
9bd63b9d8d
* fix linearization of either/or * (Por) minor updates - correction in Lexicon - documentation in Morpho - rm variants from Structural * (Por) correct references to extinct opers * (Por) rm Spa remnants * (Abs) rm reference to Extra in Structural -- use Extend instead * (Por) ExtendPor - use Extend instead of Extra in All - use Extend funs in Extra whenever possible * trigger CI * (Por) Diff - sort opers - rm old commented code - tidy things up - no semantic changes * (Por) add IrregBesch module with verbs using Besch paradigms - Besch : - use hack to prevent runtime failure with glue in in vars output - rm paradigm numbers - add IrregBeschPor, verbs that use only bescherelle paradigms - use them in Construction, Structural, Idiom, Extra - Diff and Paradigms had (almost) the same oper (verboV/verbBeschH), so combine them into one and use it * (Por) update functions to use new Irreg suffix and resolve name conflicts
49 lines
1.4 KiB
Plaintext
49 lines
1.4 KiB
Plaintext
-- the Extra* modules are to be deprecated in favour of the Extend*
|
|
-- module.
|
|
concrete ExtraPor of ExtraPorAbs = ExtraRomancePor **
|
|
open CommonRomance, PhonoPor, MorphoPor, ParadigmsPor, ParamX, ResPor, BeschPor, (B = IrregBeschPor), (E = ExtendPor),
|
|
Prelude in {
|
|
flags coding=utf8 ;
|
|
|
|
lin
|
|
--- Prons
|
|
i8fem_Pron = E.iFem_Pron ;
|
|
youSg8fem_Pron = E.youFem_Pron ;
|
|
we8fem_Pron = E.weFem_Pron ;
|
|
youPl8fem_Pron = E.youPlFem_Pron ;
|
|
youPolPl_Pron = E.youPolPl_Pron ;
|
|
youPol8fem_Pron = E.youPolFem_Pron ;
|
|
youPolPl8fem_Pron = E.youPolPlFem_Pron ;
|
|
they8fem_Pron = E.theyFem_Pron ;
|
|
|
|
|
|
these8fem_NP = makeNP ["estas"] Fem Pl ;
|
|
this8fem_NP = pn2np (mkPN ["esta"] Fem) ;
|
|
those8fem_NP = makeNP ["essas"] Fem Pl ;
|
|
|
|
whoPl8fem_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Fem Pl} ;
|
|
whoSg8fem_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Fem Sg} ;
|
|
|
|
ImpNeg np vp = lin Utt{
|
|
s = (mkClause (np.s ! Nom).comp np.hasClit False np.a vp).s
|
|
! DInv ! RPres ! Simul ! RNeg False ! Conjunct
|
|
} ;
|
|
|
|
InvQuestCl cl = {
|
|
s = \\t,a,p =>
|
|
let cls = cl.s ! DInv ! t ! a ! p
|
|
in table {
|
|
QDir => cls ! Indic ;
|
|
QIndir => subjIf ++ cls ! Indic
|
|
}
|
|
} ;
|
|
|
|
-- ExtraRomance.PassVPSlash uses estar
|
|
PassVPSlash_ser = E.PassVPSlash ;
|
|
|
|
ExistsNP = E.ExistsNP ;
|
|
|
|
UseComp_estar comp = insertComplement comp.s (predV B.estar_V) ;
|
|
|
|
}
|