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

Diff for /OpenXM/src/kan96xx/Kan/ext.c between version 1.47 and 1.49

version 1.47, 2016/03/31 03:22:54 version 1.49, 2018/09/07 00:09:32
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.46 2013/09/25 00:05:55 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.48 2016/03/31 05:27:34 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include <string.h>  #include <string.h>
 #include <sys/types.h>  #include <sys/types.h>
Line 20 
Line 20 
 #include <errno.h>  #include <errno.h>
 #include <regex.h>  #include <regex.h>
 #include "ox_pathfinder.h"  #include "ox_pathfinder.h"
 #include "../plugin/mysig.h"  #include "mysig.h"
   
 extern int Quiet;  extern int Quiet;
 extern char **environ;  extern char **environ;
Line 524  struct object Kextension(struct object obj)
Line 524  struct object Kextension(struct object obj)
     obj1 = getoa(obj,1);      obj1 = getoa(obj,1);
     if (obj1.tag != Sdollar) errorKan1("%s\n","unlink, the first argument should be a string (filename).");      if (obj1.tag != Sdollar) errorKan1("%s\n","unlink, the first argument should be a string (filename).");
     rob = KpoInteger(oxDeleteFile(KopString(obj1)));      rob = KpoInteger(oxDeleteFile(KopString(obj1)));
     }else if (strcmp(key,"quiet")==0) {
       obj1 = getoa(obj,1);
       if (obj1.tag != Sinteger) errorKan1("%s\n","quiet, the first argument should be an integer.");
       Quiet = KopInteger(obj1);
       rob = obj1;
   }    }
 #include "plugin.hh"  #include "plugin.hh"
 #include "Kclass/tree.hh"  #include "Kclass/tree.hh"

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.49

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