===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/hol.sm1,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- OpenXM/src/kan96xx/Doc/hol.sm1	2004/05/04 08:29:35	1.16
+++ OpenXM/src/kan96xx/Doc/hol.sm1	2004/05/13 05:52:53	1.17
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/hol.sm1,v 1.15 2004/05/04 08:03:30 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/hol.sm1,v 1.16 2004/05/04 08:29:35 takayama Exp $
 %% hol.sm1, 1998, 11/8, 11/10, 11/14, 11/25, 1999, 5/18, 6/5. 2000, 6/8
 %% rank, rrank, characteristic
 %% This file is error clean.
@@ -14,6 +14,7 @@ $hol.sm1, basic package for holonomic systems (C) N.Ta
 message-quiet
 
 /gb.warning 0 def
+/gb.oxRingStructure [ ] def
 /rank.v [(x) (y) (z)] def   %% default value of v (variables).
 /rank.ch [ ] def  %% characteristic variety.
 /rank.verbose 0 def
@@ -415,6 +416,7 @@ message-quiet
       /ans set
     }{ }
     ifelse
+    ans getRing (oxRingStructure) dc /gb.oxRingStructure set
     %% 
     env1 restoreOptions  %% degreeShift changes "grade"
 
@@ -762,6 +764,7 @@ message-quiet
   (                array ds; ds is the degree shift )
   (  )
   (gb.authoHomogenize 1 [default])
+  (gb.oxRingStructure )
   ( )
   $Example 1: [ [( (x Dx)^2 + (y Dy)^2 -1) ( x y Dx Dy -1)] (x,y) $
   $             [ [ (Dx) 1 ] ] ] gb pmat ; $