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

Return to ext.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/ext.c between version 1.15 and 1.28

version 1.15, 2003/07/21 13:36:41

version 1.28, 2004/09/11 23:49:34

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.14 2003/07/14 12:49:52 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.27 2004/09/11 12:13:41 takayama Exp $ */

#include <stdio.h>

#include <sys/types.h>

#include <sys/stat.h>

Line 12

#include "extern2.h"

#include <signal.h>

#include "plugin.h"

#include "kclass.h"

#include <ctype.h>

#include <errno.h>

#include "ox_pathfinder.h"

extern int Quiet;

extern char **environ;

#define MYCP_SIZE 100

static int Mychildren[MYCP_SIZE];

static int Mycp = 0;

static int Verbose_mywait = 0;

static void mywait() {

int status;

int pid;

int i,j;

signal(SIGCHLD,SIG_IGN);

/* signal(SIGCHLD,SIG_IGN); */

pid = wait(&status);

fprintf(stderr,"Child process %d is exiting.\n",pid);

if ((!Quiet) && (Verbose_mywait)) fprintf(stderr,"Child process %d is exiting.\n",pid);

for (i=0; i<Mycp; i++) {

if (Mychildren[i] == pid) {

for (j=i; j<Mycp-1; j++) {

Line 102 struct object Kextension(struct object obj)

Line 106 struct object Kextension(struct object obj)

#endif

extern void ctrlC();

extern int SigIgn;

extern errno;

extern int DebugCMO;

extern int OXprintMessage;

struct stat buf;

Line 110 struct object Kextension(struct object obj)

Line 113 struct object Kextension(struct object obj)

FILE *fp;

void (*oldsig)();

extern SecureMode;

extern char *UD_str;

extern int UD_attr;

if (obj.tag != Sarray) errorKan1("%s\n","Kextension(): The argument must be an array.");

size = getoaSize(obj);

Line 143 struct object Kextension(struct object obj)

Line 148 struct object Kextension(struct object obj)

obj1 = getoa(obj,1);

if (obj1.tag != Sinteger) errorKan1("%s\n","[(chattrs) num] extension.");

m = KopInteger(obj1);

if (!( m == 0 || m == PROTECT || m == ABSOLUTE_PROTECT))

/* if (!( m == 0 || m == PROTECT || m == ABSOLUTE_PROTECT || m == ATTR_INFIX))

errorKan1("%s\n","The number must be 0, 1 or 2.");

errorKan1("%s\n","The number must be 0, 1 or 2.");*/

putUserDictionary2((char *)NULL,0,0,m | SET_ATTR_FOR_ALL_WORDS,

CurrentContextp->userDictionary);

}else if (strcmp(key,"keywords")==0) {

Line 313 struct object Kextension(struct object obj)

Line 318 struct object Kextension(struct object obj)

if (obj1.tag != Sinteger) errorKan1("%s\n","[(chattr) num symbol] extension.");

if (obj2.tag != Sstring) errorKan1("%s\n","[(chattr) num symbol] extension.");

m = KopInteger(obj1);

if (!( m == 0 || m == PROTECT || m == ABSOLUTE_PROTECT))

/* if (!( m == 0 || m == PROTECT || m == ABSOLUTE_PROTECT || m == ATTR_INFIX))

errorKan1("%s\n","The number must be 0, 1 or 2.");

errorKan1("%s\n","The number must be 0, 1 or 2.");*/

putUserDictionary2(obj2.lc.str,(obj2.rc.op->lc).ival,(obj2.rc.op->rc).ival,

m,CurrentContextp->userDictionary);

}else if (strcmp(key,"getattr")==0) {

if (size != 2) errorKan1("%s\n","[(getattr) symbol] extension.");

obj1 = getoa(obj,1);

if (obj1.tag != Sstring) errorKan1("%s\n","[(getattr) symbol] extension.");

rob = KfindUserDictionary(obj1.lc.str);

if (rob.tag != NoObject.tag) {

if (strcmp(UD_str,obj1.lc.str) == 0) {

rob = KpoInteger(UD_attr);

}else errorKan1("%s\n","getattr: internal error.");

}else rob = NullObject;

}else if (strcmp(key,"getServerEnv")==0) {

if (size != 2) errorKan1("%s\n","[(getServerEnv) serverName] extension.");

obj1 = getoa(obj,1);

Line 342 struct object Kextension(struct object obj)

Line 357 struct object Kextension(struct object obj)

obj2 = getoa(obj,2);

if (obj2.tag != Sarray) errorKan1("%s\n","[(regionMatches) str strArray] extension. strArray must be an array.");

rob = KregionMatches(obj1,obj2);

}else if (strcmp(key,"newVector")==0) {

if (size != 2) errorKan1("%s\n","[(newVector) m] extension.");

obj1 = getoa(obj,1);

if (obj1.tag != Sinteger) errorKan1("%s\n","[(newVector) m] extension. m must be an integer.");

rob = newObjectArray(KopInteger(obj1));

}else if (strcmp(key,"newMatrix")==0) {

if (size != 3) errorKan1("%s\n","[(newMatrix) m n] extension.");

obj1 = getoa(obj,1);

if (obj1.tag != Sinteger) errorKan1("%s\n","[(newMatrix) m n] extension. m must be an integer.");

obj2 = getoa(obj,2);

if (obj2.tag != Sinteger) errorKan1("%s\n","[(newMatrix) m n] extension. n must be an integer.");

rob = newObjectArray(KopInteger(obj1));

for (i=0; i<KopInteger(obj1); i++) {

putoa(rob,i,newObjectArray(KopInteger(obj2)));

}

}else if (strcmp(key,"ooPower")==0) {

if (size != 3) errorKan1("%s\n","[(ooPower) a b] extension.");

obj1 = getoa(obj,1);

obj2 = getoa(obj,2);

rob = KooPower(obj1,obj2);

}else if (strcmp(key,"Krest")==0) {

if (size != 2) errorKan1("%s\n","[(Krest) a] extension b");

obj1 = getoa(obj,1);

rob = Krest(obj1);

}else if (strcmp(key,"Kjoin")==0) {

if (size != 3) errorKan1("%s\n","[(Kjoin) a b] extension c");

obj1 = getoa(obj,1);

obj2 = getoa(obj,2);

rob = Kjoin(obj1,obj2);

}else if (strcmp(key,"ostype")==0) {

rob = newObjectArray(1);

/* Hard encode the OS type. */

Line 350 struct object Kextension(struct object obj)

Line 394 struct object Kextension(struct object obj)

#else

putoa(rob,0,KpoString("unix"));

#endif

}else if (strcmp(key,"traceClearStack")==0) {

traceClearStack();

rob = NullObject;

}else if (strcmp(key,"traceShowStack")==0) {

char *ssst;

ssst = traceShowStack();

if (ssst != NULL) {

rob = KpoString(ssst);

}else{

rob = NullObject;

}

#include "plugin.hh"

#include "Kclass/tree.hh"

else{

errorKan1("%s\n","Unknown tag for extension.");

}

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