OpenXM/src/k097/ki.c - diff

Return to ki.c CVS log

Up to [local] / OpenXM / src / k097

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

version 1.12, 2020/10/07 23:53:25

Line 1

/* $OpenXM: OpenXM/src/k097/ki.c,v 1.9 2015/10/10 11:29:46 takayama Exp $ */

/* $OpenXM: OpenXM/src/k097/ki.c,v 1.11 2016/03/31 06:34:29 takayama Exp $ */

/* ki.c ( kx interpreter ) */

#include <stdio.h>

Line 15

#include <stdlib.h>

#include "mysig.h"

#include "ki.h"

char *getLOAD_K_PATH(); /* from d.h */

#if defined(__CYGWIN__)

Line 42 int K00_verbose = 0;

Line 44 int K00_verbose = 0;

extern int DebugMode;

sendKan(int p) {

int sendKan(int p) {

static int n = 2;

extern int Interactive;

struct object obj = OINIT;

int result;

extern int InSendmsg2;

result=0;

mysignal(SIGINT,SIG_IGN); /* Don't jump to ctrlC(). */

if (p == 10) {printf("In(%d)= ",n++); return 0;}

if (p == 0 && DebugCompiler) printf("sendKan[%s]\n",Kbuff);

Line 130 void *mymalloc(int n)

Line 133 void *mymalloc(int n)

return((void *)GC_malloc(n));

}

execFile(char *s)

int execFile(char *s)

{

FILE *fp;

#define TMP_SIZE 1024