OpenXM/src/kan96xx/plugin/oxmisc2.c - diff

Return to oxmisc2.c CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

Diff for /OpenXM/src/kan96xx/plugin/oxmisc2.c between version 1.17 and 1.20

-version 1.17, 2002/11/08 14:18:02
+version 1.20, 2003/12/06 02:35:54
 Line 1
 Line 1
 Line 1
- /* $OpenXM: OpenXM/src/kan96xx/plugin/oxmisc2.c,v 1.16 2002/11/08 02:54:12 takayama Exp $ */
+ /* $OpenXM: OpenXM/src/kan96xx/plugin/oxmisc2.c,v 1.19 2003/11/17 08:49:16 takayama Exp $ */
  #include <stdio.h>
  #include "ox_kan.h"
  #include "oxmisc2.h"   /* This file requires sm1 object description. */
 Line 648  struct object KoxWatch(struct object client,struct obj
 Line 648  struct object KoxWatch(struct object client,struct obj
 Line 648  struct object KoxWatch(struct object client,struct obj
    return(KpoInteger(ans));
  }
+ struct object KoxLog(struct object client,struct object in,struct object out)
+ {
+   int ans,k;
+   static oxclientp cc1 = NULL;
+   struct object rob;
+   rob.tag = Snull;
+   if (cc1 == NULL) {
+     cc1 = (oxclientp) mymalloc(sizeof(oxclient));
+     if (cc1 == NULL) {
+       errorOxmisc2("KoxLog(): no more memory.");
+       return(rob);
+     }
+     oxInitClient(cc1);
+   }
+   if (oxObjectToClient(client,cc1) == -1) return(rob);
+   if (cc1 == NULL) {
+     errorOxmisc2("KoxLog(): the first argument must be a client object.");
+     return(rob);
+   }
+   if (in.tag != Sfile) {
+         errorOxmisc2("KoxLog(): the second argument is not a file object.");
+         return rob;
+   }
+   if (out.tag != Sfile) {
+         errorOxmisc2("KoxLog(): the third argument is not a file object.");
+         return rob;
+   }
+   k = fp2log(cc1->datafp2,in.rc.file,out.rc.file);
+   fputc(cc1->engineByteOrder,out.rc.file); /* Output engineByteOrder. */
+   /* synchronize cc1 and client. */
+   oxClientToObject(cc1,client);
+   return(KpoInteger(ans));
+ }
+ struct object KoxLogStop(struct object client) {
+   static oxclientp cc1 = NULL;
+   struct object rob;
+   rob.tag = Snull;
+   if (cc1 == NULL) {
+     cc1 = (oxclientp) mymalloc(sizeof(oxclient));
+     if (cc1 == NULL) {
+       errorOxmisc2("KoxLog(): no more memory.");
+       return(rob);
+     }
+     oxInitClient(cc1);
+   }
+   if (oxObjectToClient(client,cc1) == -1) return(rob);
+   if (cc1 == NULL) {
+     errorOxmisc2("KoxLog(): the first argument must be a client object.");
+     return(rob);
+   }
+   return(KpoInteger(fp2stopLog(cc1->datafp2)));
+ }
  struct object KoxCloseClient(struct object client) {
    oxclientp cc1 = NULL;
-Line 709  static int cmoCheck00(struct object obj,int cmo[], int
+Line 766  static int cmoCheck00(struct object obj,int cmo[], int
 Line 709  static int cmoCheck00(struct object obj,int cmo[], int
 Line 766  static int cmoCheck00(struct object obj,int cmo[], int
      /* typeTrans[Spoly] = CMO_DMS;  */
      typeTrans[Spoly] = CMO_DISTRIBUTED_POLYNOMIAL;
      typeTrans[Sdouble] = CMO_64BIT_MACHINE_DOUBLE;
+         typeTrans[SrationalFunction] = CMO_RATIONAL;
      typeTrans[CLASSNAME_ERROR_PACKET]   = CMO_ERROR2;
      typeTrans[CLASSNAME_mathcap] = CMO_MATHCAP;
      typeTrans[CLASSNAME_indeterminate] = CMO_INDETERMINATE;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>