===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/usage.c,v
retrieving revision 1.4
retrieving revision 1.6
diff -u -p -r1.4 -r1.6
--- OpenXM/src/kan96xx/Kan/usage.c	2000/02/24 12:33:47	1.4
+++ OpenXM/src/kan96xx/Kan/usage.c	2000/06/08 08:35:03	1.6
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/usage.c,v 1.3 2000/02/24 00:27:12 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/usage.c,v 1.5 2000/03/09 12:04:52 takayama Exp $ */
 #include <stdio.h>
 #include "datatype.h"
 #include "stackm.h"
@@ -147,7 +147,7 @@ char *s;
     fppp(fp,"  [(getpid) ] extension result-integer \n");
     fppp(fp,"  [(getenv) envName] extension valueOfEnvName \n");
     fppp(fp,"  [(stat) fname] extension v \n");
-    fppp(fp,"       v = [null,[(error no), p] or [0, [ ]]\n");
+    fppp(fp,"       v = [null,[(error no), p]] or [0, [size ]]\n");
     fppp(fp,"  [(forkExec) argList fdList sigblock] extension pid\n");
     fppp(fp,"  [(getchild)] extension listOfPid (generated by forkExec)\n");
     fppp(fp,"  [(keywords) ] extension array-of-names-of-primitives \n");
@@ -188,6 +188,8 @@ char *s;
     fppp(fp,"  [(lmonom) poly] gbext poly \n");
     fppp(fp,"  [(schreyerSkelton) array_of_poly] gbext array \n");
     fppp(fp,"  [(toes) array_of_poly] gbext poly \n");
+    fppp(fp,"  [(toe_) poly] gbext poly   \n");
+    fppp(fp,"  [(toe_) array_of_poly] gbext poly   cf. toVectors \n");
     fppp(fp,"  [(isOrdered) poly] gbext poly \n");
   }else if (strcmp(s,"get")==0) {
     fppp(fp,"<< [f0 f1 ... fn] k get fk >>\n");