forked from GitHub/gf-rgl
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`
17 lines
313 B
Plaintext
17 lines
313 B
Plaintext
concrete VerbTur of Verb = CatTur ** open ResTur in {
|
|
|
|
lin
|
|
UseV v = v ;
|
|
SlashV2a v = v ;
|
|
|
|
ComplSlash vps np = {
|
|
s = \\ vf => vps.c.s ++ np.s ! vps.c.c ++ vps.s ! vf ;
|
|
} ;
|
|
|
|
-- TODO: test this and fix.
|
|
ComplVS vs s = {
|
|
s = \\vf => s.s ! SubordSuffixDik ++ vs.s ! vf
|
|
} ;
|
|
|
|
}
|