[BACK]Return to kanExport0.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/kanExport0.c between version 1.38 and 1.41

version 1.38, 2004/09/20 02:11:22 version 1.41, 2004/11/15 08:27:27
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.37 2004/09/17 02:42:57 takayama Exp $  */  /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.40 2004/09/23 12:20:52 takayama Exp $  */
 #include <stdio.h>  #include <stdio.h>
 #include "datatype.h"  #include "datatype.h"
 #include "stackm.h"  #include "stackm.h"
Line 1522  int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
Line 1522  int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
         ob4 = Order matrix          ob4 = Order matrix
         ob5 = [(keyword) value (keyword) value ....]          ob5 = [(keyword) value (keyword) value ....]
      */       */
 #define RP_LIMIT 500  #define RP_LIMIT 5000
 {  {
   int i;    int i;
   struct object ob;    struct object ob;
Line 3105  struct object newByteArray(int size,struct object obj)
Line 3105  struct object newByteArray(int size,struct object obj)
   struct object rob,tob;    struct object rob,tob;
   int i,n;    int i,n;
   ba = NULL;    ba = NULL;
   if (size > 0) ba = (unsigned char *) sGC_malloc(size);    if (size > 0) {
   if (ba == NULL) errorKan1("%s\n","No more memory.");      ba = (unsigned char *) sGC_malloc(size);
       if (ba == NULL) errorKan1("%s\n","No more memory.");
     }
   rob.tag = SbyteArray; rob.lc.bytes = ba; rob.rc.ival = size;    rob.tag = SbyteArray; rob.lc.bytes = ba; rob.rc.ival = size;
   if (obj.tag == SbyteArray) {    if (obj.tag == SbyteArray) {
     n = getByteArraySize(obj);      n = getByteArraySize(obj);
     ba2 = KopByteArray(obj);      ba2 = KopByteArray(obj);
     for (i=0; i<n; i++) {      for (i=0; i<(n<size?n:size); i++) {
       ba[i] = ba2[i];        ba[i] = ba2[i];
     }      }
     for (i=n; i<size; i++) ba[i] = 0;      for (i=n; i<size; i++) ba[i] = 0;
Line 3130  struct object newByteArray(int size,struct object obj)
Line 3132  struct object newByteArray(int size,struct object obj)
     for (i=0; i<size; i++) ba[i] = 0;      for (i=0; i<size; i++) ba[i] = 0;
     return rob;      return rob;
   }    }
   }
   struct object newByteArrayFromStr(char *s,int size) {
     unsigned char *ba;
     struct object rob;
     int i;
     ba = NULL;
     if (size > 0) {
       ba = (unsigned char *) sGC_malloc(size);
       if (ba == NULL) errorKan1("%s\n","No more memory.");
     }
     rob.tag = SbyteArray; rob.lc.bytes = ba; rob.rc.ival = size;
     for (i=0; i<size; i++) {
           ba[i] = (char) s[i];
     }
     return(rob);
 }  }
 struct object byteArrayToArray(struct object obj) {  struct object byteArrayToArray(struct object obj) {
   int n,i; unsigned char *ba;    int n,i; unsigned char *ba;
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.41
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>