forked from GitHub/gf-rgl
(Por) several minor updates (#49)
* 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
This commit is contained in:
committed by
Inari Listenmaa
parent
fe0b7c13fe
commit
9bd63b9d8d
@@ -2,7 +2,7 @@
|
||||
|
||||
concrete ConstructionPor of Construction = CatPor **
|
||||
open SyntaxPor, SymbolicPor, ParadigmsPor, BeschPor,
|
||||
(L = LexiconPor), (E = ExtraPor), (I = IrregPor), (R = ResPor), (C = CommonRomance),
|
||||
(L = LexiconPor), (E = ExtraPor), (B = IrregBeschPor), (R = ResPor), (C = CommonRomance),
|
||||
Prelude in {
|
||||
flags coding=utf8 ;
|
||||
|
||||
@@ -20,13 +20,13 @@ lin
|
||||
|
||||
what_name_QCl x = mkQCl how_IAdv (mkCl (lin NP x) (reflV (mkV "chamar"))) ;
|
||||
how_old_QCl x = mkQCl (mkIP how8many_IDet L.year_N) x have_V2 ;
|
||||
how_far_QCl x = mkQCl (lin IAdv (ss "a que distância")) (mkCl x I.estar_V) ;
|
||||
how_far_QCl x = mkQCl (lin IAdv (ss "a que distância")) (mkCl x B.estar_V) ;
|
||||
|
||||
-- some more things
|
||||
weather_adjCl ap = mkCl (mkVP (mkVA I.fazer_V) (lin AP ap)) ;
|
||||
weather_adjCl ap = mkCl (mkVP (mkVA B.fazer_V) (lin AP ap)) ;
|
||||
|
||||
is_right_VP = E.ComplCN have_V2 (mkCN (mkN "razão")) ;
|
||||
is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "errado")) ;
|
||||
is_wrong_VP = mkVP (mkVA B.estar_V) (mkAP (mkA "errado")) ;
|
||||
|
||||
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user