version 1.11, 2016/03/31 06:34:29 |
version 1.12, 2020/10/07 23:53:25 |
|
|
/* $OpenXM: OpenXM/src/k097/ki.c,v 1.10 2016/03/31 05:27:34 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/ki.c,v 1.11 2016/03/31 06:34:29 takayama Exp $ */ |
/* ki.c ( kx interpreter ) */ |
/* ki.c ( kx interpreter ) */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
|
|
#include <stdlib.h> |
#include <stdlib.h> |
#include "mysig.h" |
#include "mysig.h" |
|
|
|
#include "ki.h" |
|
|
char *getLOAD_K_PATH(); /* from d.h */ |
char *getLOAD_K_PATH(); /* from d.h */ |
|
|
#if defined(__CYGWIN__) |
#if defined(__CYGWIN__) |
Line 42 int K00_verbose = 0; |
|
Line 44 int K00_verbose = 0; |
|
|
|
extern int DebugMode; |
extern int DebugMode; |
|
|
sendKan(int p) { |
int sendKan(int p) { |
static int n = 2; |
static int n = 2; |
extern int Interactive; |
extern int Interactive; |
struct object obj = OINIT; |
struct object obj = OINIT; |
Line 131 void *mymalloc(int n) |
|
Line 133 void *mymalloc(int n) |
|
return((void *)GC_malloc(n)); |
return((void *)GC_malloc(n)); |
} |
} |
|
|
execFile(char *s) |
int execFile(char *s) |
{ |
{ |
FILE *fp; |
FILE *fp; |
#define TMP_SIZE 1024 |
#define TMP_SIZE 1024 |