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

version 1.48, 2012/09/16 01:53:08 version 1.50, 2020/10/06 11:33:46
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.47 2006/12/21 05:29:49 takayama 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 3312  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 3344  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 3366  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 3374  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.48  
changed lines
  Added in v.1.50
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>