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

Return to ext.c CVS log

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

version 1.48, 2016/03/31 05:27:34

version 1.50, 2020/10/06 11:33:46

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.47 2016/03/31 03:22:54 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.49 2018/09/07 00:09:32 takayama Exp $ */

#include <stdio.h>

#include <string.h>

#include <sys/types.h>

Line 22

#include "ox_pathfinder.h"

#include "mysig.h"

void cmoDumpCmo(struct object ob); /* defined in ../plugin/cmo0.h */

extern int Quiet;

extern char **environ;

extern char *MsgSourceTrace;

Line 124 struct object Kextension(struct object obj)

Line 126 struct object Kextension(struct object obj)

char **argv;

FILE *fp;

void (*oldsig)();

extern SecureMode;

extern int SecureMode;

extern char *UD_str;

extern int UD_attr;

Line 524 struct object Kextension(struct object obj)

Line 526 struct object Kextension(struct object obj)

obj1 = getoa(obj,1);

if (obj1.tag != Sdollar) errorKan1("%s\n","unlink, the first argument should be a string (filename).");

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 "Kclass/tree.hh"