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.34 and 1.38

-version 1.34, 2004/09/13 11:24:11
+version 1.38, 2004/09/20 02:11:22
 Line 1
 Line 1
 Line 1
- /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.33 2004/09/11 01:00:42 takayama Exp $  */
+ /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.37 2004/09/17 02:42:57 takayama Exp $  */
  #include <stdio.h>
  #include "datatype.h"
  #include "stackm.h"
 Line 687  KooEqualQ(obj1,obj2)
 Line 687  KooEqualQ(obj1,obj2)
 Line 687  KooEqualQ(obj1,obj2)
  {
    struct object ob;
    int i;
+   extern int Verbose;
    if (obj1.tag != obj2.tag) {
      warningKan("KooEqualQ(ob1,ob2): the datatypes of ob1 and ob2  are not same. Returns false (0).\n");
+         if (Verbose & 0x10) {
+           fprintf(stderr,"obj1(tag:%d)=",obj1.tag);
+           printObject(obj1,0,stderr);
+           fprintf(stderr,", obj2(tag:%d)=",obj2.tag);
+           printObject(obj2,0,stderr);
+           fprintf(stderr,"\n"); fflush(stderr);
+         }
      return(0);
    }
    switch(obj1.tag) {
-Line 1033  struct object KdataConversion(obj,key)
+Line 1041  struct object KdataConversion(obj,key)
 Line 1033  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 1210  struct object KdataConversion(obj,key)
+Line 1221  struct object KdataConversion(obj,key)
 Line 1210  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 3059  struct object Kget(struct object ob1, struct object ob
+Line 3078  struct object Kget(struct object ob1, struct object ob
 Line 3059  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; 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;
+ }
  /******************************************************************
       error handler
  ******************************************************************/
-Line 3073  errorKan1(str,message)
+Line 3153  errorKan1(str,message)
 Line 3073  errorKan1(str,message)
 Line 3153  errorKan1(str,message)
    extern char *GotoLabel;
    extern int GotoP;
    extern int ErrorMessageMode;
+   extern int RestrictedMode, RestrictedMode_saved;
    char tmpc[1024];
+   RestrictedMode = RestrictedMode_saved;
    cancelAlarm();
    if (ErrorMessageMode == 1 || ErrorMessageMode == 2) {
      sprintf(tmpc,"\nERROR(kanExport[0|1].c): ");

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