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.16 and 1.20

-version 1.16, 2002/11/08 02:54:12
+version 1.20, 2003/12/06 02:35:54
 Line 1
 Line 1
 Line 1
- /* $OpenXM: OpenXM/src/kan96xx/plugin/oxmisc2.c,v 1.15 2002/11/07 23:52:20 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;
-Line 1329  void oxClientListRemove(struct object ob) {
+Line 1387  void oxClientListRemove(struct object ob) {
 Line 1329  void oxClientListRemove(struct object ob) {
 Line 1387  void oxClientListRemove(struct object ob) {
          /* errorOxmisc2("oxClientListRemove(): the client table is full.\n");*/
    }
  }
+ static void KoxCleanClientList() {
+   extern int OxClientListn;
+   extern struct object OxClientList[];
+   int i,j,n;
+   struct object ob;
+   n = 0;
+   for (i=0; i<OxClientListn; i++) {
+         if ((OxClientList[i]).tag != Snull) {
+           if (!isItClientObject(OxClientList[i])) {
+                 (OxClientList[i]).tag = Snull;
+           }
+         }
+   }
+ }
  struct object KoxGetClientList() {
    extern int OxClientListn;
    extern struct object OxClientList[];
    int i,j,n;
    struct object rob;
+   KoxCleanClientList();
    n = 0;
    for (i=0; i<OxClientListn; i++) {
          if ((OxClientList[i]).tag != Snull) n++;

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