===================================================================
RCS file: /home/cvs/OpenXM/src/ox_math/lib/primadec.m,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM/src/ox_math/lib/primadec.m	1999/12/17 02:21:41	1.2
+++ OpenXM/src/ox_math/lib/primadec.m	2000/01/20 15:00:02	1.3
@@ -1,4 +1,4 @@
-(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.1 1999/12/15 03:40:36 ohara Exp $ *)
+(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.2 1999/12/17 02:21:41 ohara Exp $ *)
 
 (*
 usage:
@@ -8,27 +8,11 @@ Copyright 1988-97 Wolfram Research, Inc.
  -- Motif graphics initialized -- 
 
 In[1]:= <<primadec.m
-In[2]:= primadec[{x^2-3*x+2},{x}]
-Out[2]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}
+In[2]:= OxStart["ox_asir"]
+In[3]:= primadec[{x^2-3*x+2},{x}]
+Out[3]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}
 *)
 
-asirRtostr[x_] := Module[
-	{list = {}, i, s},
-	If[ x[[0]] === List,
-	  list = Append[list, " [ " ];
-	  If[ Length[x] > 0 ,
-		list = Append[list, asirRtostr[ x[[1] ] ] ];
-		For[i=2, i<= Length[x], i++, 
-		   list = Append[list, " , "];
-		   list = Append[list, asirRtostr[ x[[i]] ] ]
-			]
-		  ];
-	  list = Append[list, " ] "];
-	  s = StringJoin[list],
-	  s = ToString[x, InputForm]
-		]
-	]
-
 primadec[polys_List, vars_List] := Block[
 	{s},
 	s = StringJoin[
@@ -37,5 +21,5 @@ primadec[polys_List, vars_List] := Block[
 	ToExpression[OxPopString[]]
 	]
 
-Install[Environment["OpenXM_HOME"] <> "/bin/math2ox"]
-OxStart["ox_asir"]
+Get[Environment["OpenXM_HOME"] <> "/lib/math/oxclient.m"]
+