msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added ParadigmsEng.invarA

Browse Source
This commit is contained in:
Aarne Ranta
2018-12-13 14:15:57 +02:00
parent 994e0482bc
commit 231b7be0c4
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/english/ParadigmsEng.gf
View File

@@ -168,6 +168,7 @@ oper
compoundA : A -> A ; -- force comparison with more/most compoundA : A -> A ; -- force comparison with more/most
simpleA : A -> A ; -- force comparison with -er,-est simpleA : A -> A ; -- force comparison with -er,-est
irregAdv : A -> Str -> A ; -- adverb irreg, e.g. "fast" irregAdv : A -> Str -> A ; -- adverb irreg, e.g. "fast"
invarA : Str -> A ; -- adjective that does not vary in morphology
--3 Two-place adjectives --3 Two-place adjectives
@@ -654,6 +655,8 @@ mkInterj : Str -> Interj
mkAdjective a b c d mkAdjective a b c d
} ; } ;
invarA s = mkAdjective s s s s ;
compoundA = compoundADeg ; compoundA = compoundADeg ;
simpleA a = simpleA a =
let ad = (a.s ! AAdj Posit Nom) let ad = (a.s ! AAdj Posit Nom)