===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kanExport1.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- OpenXM/src/kan96xx/Kan/kanExport1.c	2003/07/13 07:53:17	1.4
+++ OpenXM/src/kan96xx/Kan/kanExport1.c	2003/07/17 07:33:03	1.5
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.4 2003/07/13 07:53:17 takayama Exp $ */
 #include <stdio.h>
 #include "datatype.h"
 #include "stackm.h"
@@ -12,6 +12,10 @@
 static int Message = 1;
 extern int KanGBmessage;
   
+struct object DegreeShifto;
+int DegreeShifto_size = 0;
+int *DegreeShifto_vec = NULL;
+
 /** :kan, :ring */
 struct object Kreduction(f,set)
      struct object f;
@@ -684,7 +688,7 @@ struct object homogenizeObject(ob,gradep)
     rob = newObjectArray(size);
     flag = 0;
     ob1 = getoa(ob,0);
-	if (ob1.tag == Sdollar) return(homogenizeObject_go(ob,gradep));
+    if (ob1.tag == Sdollar) return(homogenizeObject_go(ob,gradep));
     ob1 = homogenizeObject(ob1,&gr);
     maxg = gr;
     getoa(rob,0) = ob1;
@@ -746,7 +750,7 @@ struct object homogenizeObject_vec(ob,gradep)
     if (size == 0) {
       errorKan1("%s\n","homogenizeObject_vec() is called for the empty array.");
     }
-	if (getoa(ob,0).tag == Sdollar) return(homogenizeObject_go(ob,gradep));
+    if (getoa(ob,0).tag == Sdollar) return(homogenizeObject_go(ob,gradep));
     rob = newObjectArray(size);
     for (i=0; i<size; i++) {
       ob1 = getoa(ob,i);
@@ -786,40 +790,56 @@ struct object homogenizeObject_go(struct object ob,int
     errorKan1("%s\n","homogenizeObject_go(): the first argument must be a string.");
   }
   if (strcmp(KopString(ob0),"degreeShift") == 0) {
-	if (size != 3)
-	  errorKan1("%s\n","homogenizeObject_go(): [(degreeShift) shift-vector obj]");
-	ob1 = getoa(ob,1); ob2 = getoa(ob,2);
-	dssize = getoaSize(ob1);
-	ds = (int *)sGC_malloc(sizeof(int)*(dssize>0?dssize:1));
-	for (i=0; i<dssize; i++) {
-	  ds[i] = objToInteger(getoa(ob1,i));
-	}
-	if (ob2.tag == Spoly) {
-	  f = goHomogenize11(KopPOLY(ob2),ds,dssize,-1);
-	  rob = KpoPOLY(f);
-	}else if (ob2.tag == SuniversalNumber) {
-	  rob = ob2;
-	}else if (ob2.tag == Sarray) {
-	  rob = newObjectArray(getoaSize(ob2));
-	  for (i=0; i<getoaSize(ob2); i++) {
-		tob = newObjectArray(3);
-		ob1t = newObjectArray(dssize);
-		if (getoa(ob2,i).tag == Spoly) {
-		  for (j=0; j<dssize; j++) getoa(ob1t,j) = KpoInteger(0);
-		  for (j=0; j<dssize-i; j++) getoa(ob1t,j) = getoa(ob1,j+i);
-		}else{
-		  ob1t = ob1;
-		}
-		getoa(tob,0) = ob0; getoa(tob,1) = ob1t; getoa(tob,2) = getoa(ob2,i);
-		getoa(rob,i) = homogenizeObject_go(tob,gradep);
+    if (size < 2)
+      errorKan1("%s\n","homogenizeObject_go(): [(degreeShift) shift-vector obj] or [(degreeShift) shift-vector] or [(degreeShift) (value)] homogenize");
+    ob1 = getoa(ob,1);
+	if (ob1.tag != Sarray) {
+	  if (DegreeShifto_size != 0) {
+		return DegreeShifto;
+	  }else{
+        rob = NullObject;
+        return rob;
 	  }
-	}else{
-	  errorKan1("%s\n","homogenizeObject_go(): invalid object for the third element.");
 	}
+    dssize = getoaSize(ob1);
+    ds = (int *)sGC_malloc(sizeof(int)*(dssize>0?dssize:1));
+    for (i=0; i<dssize; i++) {
+      ds[i] = objToInteger(getoa(ob1,i));
+    }
+    if (size == 2) {
+      DegreeShifto = ob1;
+      DegreeShifto_size = dssize;
+      DegreeShifto_vec = ds;
+      rob = ob1;
+    }else{
+      ob2 = getoa(ob,2);
+      if (ob2.tag == Spoly) {
+        f = goHomogenize11(KopPOLY(ob2),ds,dssize,-1,0);
+        rob = KpoPOLY(f);
+      }else if (ob2.tag == SuniversalNumber) {
+        rob = ob2;
+      }else if (ob2.tag == Sarray) {
+        rob = newObjectArray(getoaSize(ob2));
+        for (i=0; i<getoaSize(ob2); i++) {
+          tob = newObjectArray(3);
+          ob1t = newObjectArray(dssize);
+          if (getoa(ob2,i).tag == Spoly) {
+            for (j=0; j<dssize; j++) getoa(ob1t,j) = KpoInteger(0);
+            for (j=0; j<dssize-i; j++) getoa(ob1t,j) = getoa(ob1,j+i);
+          }else{
+            ob1t = ob1;
+          }
+          getoa(tob,0) = ob0; getoa(tob,1) = ob1t; getoa(tob,2) = getoa(ob2,i);
+          getoa(rob,i) = homogenizeObject_go(tob,gradep);
+        }
+      }else{
+        errorKan1("%s\n","homogenizeObject_go(): invalid object for the third element.");
+      }
+    }
   }else{
-	  errorKan1("%s\n","homogenizeObject_go(): unknown key word.");
+      errorKan1("%s\n","homogenizeObject_go(): unknown key word.");
   }
-  return( rob );	
+  return( rob );    
 }
 
 
@@ -1063,10 +1083,10 @@ struct object KvectorToSchreyer_es(struct object obarr
 
 int objToInteger(struct object ob) {
   if (ob.tag == Sinteger) {
-	return KopInteger(ob);
+    return KopInteger(ob);
   }else if (ob.tag == SuniversalNumber) {
-	return(coeffToInt(KopUniversalNumber(ob)));
+    return(coeffToInt(KopUniversalNumber(ob)));
   }else {
-	errorKan1("%s\n","objToInteger(): invalid argument.");
+    errorKan1("%s\n","objToInteger(): invalid argument.");
   }
 }