Added Interrogative adverbs abd Pronouns. Not working Properly.

This commit is contained in:
David Bamutura
2019-05-14 02:04:32 +02:00
parent 64f7bdb967
commit 1dbd1b535f
7 changed files with 129 additions and 55 deletions
+8 -2
View File
@@ -1,7 +1,7 @@
--# -path=.:../prelude:../abstract:../common
concrete CatCgg of Cat = CommonX -[Adv]**
open (Res=ResCgg), Prelude, (Px=ParamX) in {
concrete CatCgg of Cat = CommonX -[Adv,IAdv]**
open (Res=ResCgg), Prelude, (Px=ParamX), Predef in {
lincat
@@ -66,7 +66,13 @@ lincat
Digits = {s : Res.CardOrd => Res.Agreement=>Str ; n : Res.Number ; tail : Px.DTail} ;
Ord = {s :Res.Agreement=>Str; position1:Res.Position1} ;
Card = {s :Res.Agreement=>Str; n : Res.Number} ;
IP = {s :Str ; n : Res.Number; isVerbSuffix: Bool; requiresIPPrefix: Bool; aux:Str};
IAdv = {s :Str ; requiresSubjPrefix: Bool};
--VV =
linref
Cl, QCl =\cl -> cl.s ++ Res.mkSubjClitic cl.subjAgr ++ cl.root ++ BIND ++ cl.pres;
VP =\vp -> vp.s ++ BIND ++ vp.pres;
{-
--1 Cat: the Category System