=Failed ti implement PositAdvAdj

2019-05-17 02:33:12 +02:00
parent d5bec3b459
commit 12a691e8ae
2 changed files with 8 additions and 224 deletions
@@ -18,7 +18,14 @@ lin
  
  --PositAdvAdj : A -> Adv ;                 -- warmly
  --"Impossible to implement because each is lexically different word."
-  --PositAdvAdj a = a;
+  {-
+  PositAdvAdj a = case <a.isProper, a.position1> of {
+                        <True, True>   =>{ s= a}
+                        <False, False> =>
+                        <True, False>  =>
+                        <_,_>          =>
+    };
+  -}

 {-
 abstract Adverb = Cat ** {