OpenXM/src/kan96xx/Kan/kanExport0.c - diff

Return to kanExport0.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/kanExport0.c between version 1.37 and 1.39

-version 1.37, 2004/09/17 02:42:57
+version 1.39, 2004/09/20 02:26:56
 Line 1
 Line 1
 Line 1
- /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.36 2004/09/16 02:22:03 takayama Exp $  */
+ /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.38 2004/09/20 02:11:22 takayama Exp $  */
  #include <stdio.h>
  #include "datatype.h"
  #include "stackm.h"
 Line 1041  struct object KdataConversion(obj,key)
 Line 1041  struct object KdataConversion(obj,key)
 Line 1041  struct object KdataConversion(obj,key)
      }else if (strcmp(key,"null") == 0) {
        rob = NullObject;
        return(rob);
+     }else if (strcmp(key,"byteArray") == 0) {
+       rob = newByteArray(getoaSize(obj),obj);
+       return(rob);
      }else {
            { /* Automatically maps the elements. */
                  int n,i;
-Line 1218  struct object KdataConversion(obj,key)
+Line 1221  struct object KdataConversion(obj,key)
 Line 1218  struct object KdataConversion(obj,key)
 Line 1221  struct object KdataConversion(obj,key)
        warningKan("Sorryl This type of data conversion of ringp has not supported yet.\n");
      }
      break;
+   case SbyteArray:
+     if (strcmp(key,"array") == 0) {
+       rob = byteArrayToArray(obj);
+       return(rob);
+     } else {
+       warningKan("Sorryl This type of data conversion of ringp has not supported yet.\n");
+     }
+     break;
    default:
      warningKan("Sorry. This type of data conversion has not supported yet.\n");
    }
-Line 3067  struct object Kget(struct object ob1, struct object ob
+Line 3078  struct object Kget(struct object ob1, struct object ob
 Line 3067  struct object Kget(struct object ob1, struct object ob
 Line 3078  struct object Kget(struct object ob1, struct object ob
        ob1 = rob;
      }
      return Kcar(ob1);
+   } else if (ob1.tag == SbyteArray) {
+     size = getByteArraySize(ob1);
+     if ((0 <= i) && (i<size)) {
+       return(KpoInteger(KopByteArray(ob1)[i]));
+     }else{
+       errorKan1("%s\n","Kget: Index is out of bound. (get)\n");
+     }
+   } else if (ob1.tag == Sdollar) {
+     unsigned char *sss;
+     sss = (unsigned char *) KopString(ob1);
+     size = strlen(sss);
+     if ((0 <= i) && (i<size)) {
+       return(KpoInteger(sss[i]));
+     }else{
+       errorKan1("%s\n","Kget: Index is out of bound. (get)\n");
+     }
    }else errorKan1("%s\n","Kget: argument must be an array or a list.");
+ }
+ /* Constructor of byteArray */
+ struct object newByteArray(int size,struct object obj) {
+   unsigned char *ba;
+   unsigned char *ba2;
+   struct object rob,tob;
+   int i,n;
+   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;
+   if (obj.tag == SbyteArray) {
+     n = getByteArraySize(obj);
+     ba2 = KopByteArray(obj);
+     for (i=0; i<(n<size?n:size); i++) {
+       ba[i] = ba2[i];
+     }
+     for (i=n; i<size; i++) ba[i] = 0;
+     return rob;
+   }else if (obj.tag == Sarray) {
+     n = getoaSize(obj);
+     for (i=0; i<n; i++) {
+       tob = getoa(obj,i);
+       tob = Kto_int32(tob);
+       if (tob.tag != Sinteger) errorKan1("%s\n","newByteArray: array is not an array of integer or universalNumber.");
+       ba[i] = (unsigned char) KopInteger(tob);
+     }
+     for (i=n; i<size; i++) ba[i] = 0;
+     return rob;
+   }else{
+     for (i=0; i<size; i++) ba[i] = 0;
+     return rob;
+   }
+ }
+ struct object byteArrayToArray(struct object obj) {
+   int n,i; unsigned char *ba;
+   struct object rob;
+   if (obj.tag != SbyteArray) errorKan1("%s\n","byteArrayToArray: argument is not an byteArray.");
+   n = getByteArraySize(obj);
+   rob = newObjectArray(n);
+   ba = KopByteArray(obj);
+   for (i=0; i<n; i++) putoa(rob,i,KpoInteger((int) ba[i]));
+   return rob;
  }
  /******************************************************************

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