| 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 |