[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.46 and 1.50

version 1.46, 2005/09/27 06:10:43 version 1.50, 2020/10/06 11:33:46
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.45 2005/07/03 11:08:53 ohara Exp $  */  /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.49 2015/10/08 11:49:37 takayama Exp $  */
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
Line 688  struct object KooDiv(ob1,ob2)
Line 688  struct object KooDiv(ob1,ob2)
 }  }
   
 /* :relation */  /* :relation */
 KooEqualQ(obj1,obj2)  int KooEqualQ(obj1,obj2)
      struct object obj1;       struct object obj1;
      struct object obj2;       struct object obj2;
 {  {
Line 940  struct object KdataConversion(obj,key)
Line 940  struct object KdataConversion(obj,key)
       rob = newObjectArray(0);        rob = newObjectArray(0);
       return rob;        return rob;
     }else{      }else{
         /* fprintf(stderr,"key=%s\n",key); */
       warningKan("Sorry. The data conversion from null to this data type has not supported yet.\n");        warningKan("Sorry. The data conversion from null to this data type has not supported yet.\n");
     }      }
     break;      break;
Line 1659  int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
Line 1660  int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
   newRingp->cc = cc;    newRingp->cc = cc;
   newRingp->x = xvars;    newRingp->x = xvars;
   newRingp->D = dvars;    newRingp->D = dvars;
     newRingp->Dsmall = makeDsmall(dvars,n);
   /* You don't need to set order and orderMatrixSize here.    /* You don't need to set order and orderMatrixSize here.
      It was set by setOrder(). */       It was set by setOrder(). */
   setFromTo(newRingp);    setFromTo(newRingp);
Line 3310  struct object KsetAttribute(struct object ob,struct ob
Line 3312  struct object KsetAttribute(struct object ob,struct ob
      Error handler       Error handler
 ******************************************************************/  ******************************************************************/
   
 errorKan1(str,message)  int errorKan1(str,message)
      char *str;       char *str;
      char *message;       char *message;
 {  {
Line 3342  errorKan1(str,message)
Line 3344  errorKan1(str,message)
   stdOperandStack(); contextControl(CCRESTORE);    stdOperandStack(); contextControl(CCRESTORE);
   /* fprintf(stderr,"Now. Long jump!\n"); */    /* fprintf(stderr,"Now. Long jump!\n"); */
 #if defined(__CYGWIN__)  #if defined(__CYGWIN__)
   siglongjmp(EnvOfStackMachine,1);    MYSIGLONGJMP(EnvOfStackMachine,1);
 #else  #else
   longjmp(EnvOfStackMachine,1);    MYLONGJMP(EnvOfStackMachine,1);
 #endif  #endif
 }  }
   
   
 warningKan(str)  int warningKan(str)
      char *str;       char *str;
 {  {
   extern int WarningMessageMode;    extern int WarningMessageMode;
Line 3364  warningKan(str)
Line 3366  warningKan(str)
   }    }
   if (WarningMessageMode != 1) {    if (WarningMessageMode != 1) {
     fprintf(stderr,"\nWARNING(kanExport[0|1].c): ");      fprintf(stderr,"\nWARNING(kanExport[0|1].c): ");
     fprintf(stderr,str);      fprintf(stderr,"%s",str);
     fprintf(stderr,"\n");      fprintf(stderr,"\n");
   }    }
   /* if (Strict) errorKan1("%s\n"," "); */    /* if (Strict) errorKan1("%s\n"," "); */
Line 3372  warningKan(str)
Line 3374  warningKan(str)
   return(0);    return(0);
 }  }
   
 warningKanNoStrictMode(str)  int warningKanNoStrictMode(str)
      char *str;       char *str;
 {  {
   extern int Strict;    extern int Strict;
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.50
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>