forked from GitHub/gf-rgl
36 lines
543 B
Plaintext
36 lines
543 B
Plaintext
concrete ExtraEus of ExtraEusAbs = CatEus ** open ResEus, AdjectiveEus, Prelude, ParadigmsEus in {
|
|
|
|
flags coding = utf8 ;
|
|
|
|
lincat
|
|
|
|
Attr = { s : Str } ;
|
|
|
|
|
|
oper
|
|
|
|
mkAttr : Str -> Attr = \s -> lin Attr { s = s } ;
|
|
|
|
--lin
|
|
|
|
-- ko_Attr = mkAttr "ko" ;
|
|
|
|
{-
|
|
Tokiorako bidaia bat 'a journey to Tokyo' [Tokyo-to-ko journey one]
|
|
|
|
-}
|
|
|
|
-- AdnP : Adv -> Attr -> AP ; -- Bilbo ra ko
|
|
|
|
-- AdnP adv attr = {
|
|
-- s = adv.s ++ BIND ++ attr.s ;
|
|
-- stem = adv.s ++ BIND ++ attr.s ;
|
|
-- ph = FinalVow ;
|
|
-- typ = Ko
|
|
-- } ;
|
|
|
|
|
|
|
|
|
|
} ;
|