forked from GitHub/gf-rgl
Ayberk Tosun
7790defb9e
* Add linearization for `AdAdv` which is just `cc2` * Add rudimentary linearization for `AdnCAdv` * Add rudimentary linearization for `UseCl` * Add trivial linearization for `SubjS` * Add forgotten semicolon * Override the lintype of CAdv from CommonX * Add cases for `CAdv`s * Augment the linearization of `AdnCAdv` with case information coming from the `CAdv` * Override the lintype for `AdN` * Implement linearizations for `AdN` and `AdnCAdv` * Fix the linearization for `more_CAdv` * Implment the linearization for `ComparAdvAdj` * Add a rudimentary linearizations for `ComparAdvAdjS` * Add rudimentary linearization for `BaseAP` * Add linearization for `BaseAdV` * Add linearization for `BaseAdv` * Add a new param `Gerundification` * Add a new `VForm` `VNoun` for verbal nouns * Parameterize the lintypes of S and Cl by the new `Gerundification` param * Update everything to work with the `Gerundification` parameterization * Account for the `VNoun` case in `makeVerb` * Revise the TODO for `ComparAdvAdjS` * Add the subordination suffix dik in SuffixTur (not used yet) * Formatting * Start implementing the suffix -dik in `makeVerb` * Add TODO for `ComplVS` * Fix `mkClause` * Implement a rudimentary linearization for `ComplVS`
31 lines
932 B
Plaintext
31 lines
932 B
Plaintext
concrete PhraseTur of Phrase = CatTur ** open Prelude, ResTur in {
|
|
lin
|
|
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
|
|
|
|
-- The following are utterly untested.
|
|
-- Currently, they should be treated as just implementation stubs.
|
|
UttQS qs = {s = qs.s} ;
|
|
UttImpSg pol imp = {s = imp.s} ;
|
|
UttImpPl pol imp = {s = imp.s} ;
|
|
UttImpPol pol imp = {s = imp.s} ;
|
|
UttIP ip = {s = ip.s} ;
|
|
UttIAdv iadv = iadv ;
|
|
UttCard n = {s = n.s ! Sg ! Nom} ;
|
|
UttInterj i = i ;
|
|
|
|
-- The following have been somewhat tested and seem to be working fine
|
|
-- to some extent.
|
|
UttNP np = {s = np.s ! Nom} ;
|
|
UttVP vp = {s = vp.s ! VInfinitive} ;
|
|
UttAP ap = {s = ap.s ! Sg ! Nom} ;
|
|
UttCN n = {s = n.s ! Sg ! Nom} ;
|
|
UttS s = {s = s.s ! None} ;
|
|
UttAdv adv = adv ;
|
|
|
|
NoPConj = {s = []} ;
|
|
PConjConj conj = {s = conj.s} ;
|
|
|
|
NoVoc = {s = []} ;
|
|
VocNP np = {s = np.s ! Nom} ;
|
|
}
|