===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/type.c,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM_contrib2/asir2000/builtin/type.c	2000/08/21 08:31:21	1.2
+++ OpenXM_contrib2/asir2000/builtin/type.c	2018/03/29 01:32:50	1.4
@@ -23,7 +23,7 @@
  * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
- * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification
+ * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
  * for such modification or the source code of the modified part of the
  * SOFTWARE.
  * 
@@ -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/type.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/type.c,v 1.3 2000/08/22 05:04:00 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -53,34 +53,34 @@
 void Ptype(), Pntype();
 
 struct ftab type_tab[] = {
-	{"type",Ptype,1},
-	{"ntype",Pntype,1},
-	{0,0,0},
+  {"type",Ptype,1},
+  {"ntype",Pntype,1},
+  {0,0,0},
 };
 
 void Ptype(arg,rp)
 NODE arg;
 Obj *rp;
 {
-	Obj t;
-	Q q;
+  Obj t;
+  Q q;
 
-	if ( t = (Obj)ARG0(arg) ) {
-		STOQ(OID(t),q); *rp = (Obj)q;
-	} else 
-		*rp = 0;
+  if ( t = (Obj)ARG0(arg) ) {
+    STOQ(OID(t),q); *rp = (Obj)q;
+  } else 
+    *rp = 0;
 }
 
 void Pntype(arg,rp)
 NODE arg;
 Obj *rp;
 {
-	Obj t;
-	Q q;
+  Obj t;
+  Q q;
 
-	if ( t = (Obj)ARG0(arg) ) {
-		asir_assert(t,O_N,"ntype");
-		STOQ(NID(t),q); *rp = (Obj)q;
-	} else 
-		*rp = 0;
+  if ( t = (Obj)ARG0(arg) ) {
+    asir_assert(t,O_N,"ntype");
+    STOQ(NID(t),q); *rp = (Obj)q;
+  } else 
+    *rp = 0;
 }