===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/cplxnum.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- OpenXM_contrib2/asir2000/builtin/cplxnum.c	2000/12/05 01:24:49	1.4
+++ OpenXM_contrib2/asir2000/builtin/cplxnum.c	2018/03/29 01:32:50	1.5
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/cplxnum.c,v 1.3 2000/08/22 05:03:56 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/cplxnum.c,v 1.4 2000/12/05 01:24:49 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -57,131 +57,131 @@ void cplx_real(Obj,Obj *);
 void cplx_imag(Obj,Obj *);
 
 struct ftab cplx_tab[] = {
-	{"conj",Pconj,1},
-	{"real",Preal,1},
-	{"imag",Pimag,1},
-	{0,0,0},
+  {"conj",Pconj,1},
+  {"real",Preal,1},
+  {"imag",Pimag,1},
+  {0,0,0},
 };
 
 void Pconj(arg,rp)
 NODE arg;
 Obj *rp;
 {
-	cplx_conj((Obj)ARG0(arg),rp);
+  cplx_conj((Obj)ARG0(arg),rp);
 }
 
 void Preal(arg,rp)
 NODE arg;
 Obj *rp;
 {
-	cplx_real((Obj)ARG0(arg),rp);
+  cplx_real((Obj)ARG0(arg),rp);
 }
 
 void Pimag(arg,rp)
 NODE arg;
 Obj *rp;
 {
-	cplx_imag((Obj)ARG0(arg),rp);
+  cplx_imag((Obj)ARG0(arg),rp);
 }
 
 void cplx_conj(p,r)
 Obj p;
 Obj *r;
 {
-	C c;
-	DCP dc,dcr,dcr0;
-	P t;
+  C c;
+  DCP dc,dcr,dcr0;
+  P t;
 
-	if (  !p )
-		*r = 0;
-	else
-		switch ( OID(p) ) {
-			case O_N:
-				if ( NID((Num)p) <= N_B )
-					*r = p;
-				else {
-					NEWC(c); c->r = ((C)p)->r; chsgnnum(((C)p)->i,&c->i);
-					*r = (Obj)c;
-				}
-				break;
-			case O_P:
-				for ( dcr0 = 0, dc = DC((P)p); dc; dc = NEXT(dc) ) {
-					NEXTDC(dcr0,dcr); cplx_conj((Obj)COEF(dc),(Obj *)&COEF(dcr));
-					DEG(dcr) = DEG(dc);
-				}
-				NEXT(dcr) = 0; MKP(VR((P)p),dcr0,t); *r = (Obj)t;
-				break;
-			default:
-				error("cplx_conj : not implemented"); break;
-		}
+  if (  !p )
+    *r = 0;
+  else
+    switch ( OID(p) ) {
+      case O_N:
+        if ( NID((Num)p) <= N_B )
+          *r = p;
+        else {
+          NEWC(c); c->r = ((C)p)->r; chsgnnum(((C)p)->i,&c->i);
+          *r = (Obj)c;
+        }
+        break;
+      case O_P:
+        for ( dcr0 = 0, dc = DC((P)p); dc; dc = NEXT(dc) ) {
+          NEXTDC(dcr0,dcr); cplx_conj((Obj)COEF(dc),(Obj *)&COEF(dcr));
+          DEG(dcr) = DEG(dc);
+        }
+        NEXT(dcr) = 0; MKP(VR((P)p),dcr0,t); *r = (Obj)t;
+        break;
+      default:
+        error("cplx_conj : not implemented"); break;
+    }
 }
 
 void cplx_real(p,r)
 Obj p;
 Obj *r;
 {
-	DCP dc,dcr,dcr0;
-	P t;
+  DCP dc,dcr,dcr0;
+  P t;
 
-	if (  !p )
-		*r = 0;
-	else
-		switch ( OID(p) ) {
-			case O_N:
-				if ( NID((Num)p) <= N_B )
-					*r = p;
-				else
-					*r = (Obj)((C)p)->r;
-				break;
-			case O_P:
-				for ( dcr0 = 0, dc = DC((P)p); dc; dc = NEXT(dc) ) {
-					cplx_real((Obj)COEF(dc),(Obj *)&t);
-					if ( t ) {
-						NEXTDC(dcr0,dcr); DEG(dcr) = DEG(dc); COEF(dcr) = t;
-					}
-				}
-				if ( !dcr0 )
-					*r = 0;
-				else {
-					NEXT(dcr) = 0; MKP(VR((P)p),dcr0,t); *r = (Obj)t;
-				}
-				break;
-			default:
-				error("cplx_real : not implemented"); break;
-		}
+  if (  !p )
+    *r = 0;
+  else
+    switch ( OID(p) ) {
+      case O_N:
+        if ( NID((Num)p) <= N_B )
+          *r = p;
+        else
+          *r = (Obj)((C)p)->r;
+        break;
+      case O_P:
+        for ( dcr0 = 0, dc = DC((P)p); dc; dc = NEXT(dc) ) {
+          cplx_real((Obj)COEF(dc),(Obj *)&t);
+          if ( t ) {
+            NEXTDC(dcr0,dcr); DEG(dcr) = DEG(dc); COEF(dcr) = t;
+          }
+        }
+        if ( !dcr0 )
+          *r = 0;
+        else {
+          NEXT(dcr) = 0; MKP(VR((P)p),dcr0,t); *r = (Obj)t;
+        }
+        break;
+      default:
+        error("cplx_real : not implemented"); break;
+    }
 }
 
 void cplx_imag(p,r)
 Obj p;
 Obj *r;
 {
-	DCP dc,dcr,dcr0;
-	P t;
+  DCP dc,dcr,dcr0;
+  P t;
 
-	if (  !p )
-		*r = 0;
-	else
-		switch ( OID(p) ) {
-			case O_N:
-				if ( NID((Num)p) <= N_B )
-					*r = 0;
-				else
-					*r = (Obj)((C)p)->i;
-				break;
-			case O_P:
-				for ( dcr0 = 0, dc = DC((P)p); dc; dc = NEXT(dc) ) {
-					cplx_imag((Obj)COEF(dc),(Obj *)&t);
-					if ( t ) {
-						NEXTDC(dcr0,dcr); DEG(dcr) = DEG(dc); COEF(dcr) = t;
-					}
-				}
-				if ( !dcr0 )
-					*r = 0;
-				else {
-					NEXT(dcr) = 0; MKP(VR((P)p),dcr0,t); *r = (Obj)t;
-				}
-				break;
-			default:
-				error("cplx_imag : not implemented"); break;
-		}
+  if (  !p )
+    *r = 0;
+  else
+    switch ( OID(p) ) {
+      case O_N:
+        if ( NID((Num)p) <= N_B )
+          *r = 0;
+        else
+          *r = (Obj)((C)p)->i;
+        break;
+      case O_P:
+        for ( dcr0 = 0, dc = DC((P)p); dc; dc = NEXT(dc) ) {
+          cplx_imag((Obj)COEF(dc),(Obj *)&t);
+          if ( t ) {
+            NEXTDC(dcr0,dcr); DEG(dcr) = DEG(dc); COEF(dcr) = t;
+          }
+        }
+        if ( !dcr0 )
+          *r = 0;
+        else {
+          NEXT(dcr) = 0; MKP(VR((P)p),dcr0,t); *r = (Obj)t;
+        }
+        break;
+      default:
+        error("cplx_imag : not implemented"); break;
+    }
 }