| version 1.4, 2005/06/16 05:07:24 |
version 1.7, 2021/03/12 06:45:55 |
|
|
| /* $OpenXM: OpenXM/src/k097/dm.c,v 1.3 2003/07/21 12:41:22 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/dm.c,v 1.6 2020/10/07 23:53:25 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "d.h" |
#include "d.h" |
| |
|
| Line 6 int K00_verbose = 0; |
|
| Line 6 int K00_verbose = 0; |
|
| extern int DebugMode; |
extern int DebugMode; |
| |
|
| /* dm.c main program of d. */ |
/* dm.c main program of d. */ |
| main(int argc, char *argv[]) { |
int main(int argc, char *argv[]) { |
| int i; |
int i; |
| DebugMode = 0; |
DebugMode = 0; |
| if (argc >= 2) { |
if (argc >= 2) { |
| Line 22 main(int argc, char *argv[]) { |
|
| Line 22 main(int argc, char *argv[]) { |
|
| parseAfile(stdin); |
parseAfile(stdin); |
| /* parseAstring("print(1+2);\nx=1+2;\n"); tests */ |
/* parseAstring("print(1+2);\nx=1+2;\n"); tests */ |
| KCparse(); |
KCparse(); |
| exit(0); |
return 0; |
| } |
} |
| |
|
| |
|
| Line 36 void *mymalloc(int size) { |
|
| Line 36 void *mymalloc(int size) { |
|
| return((void *)malloc(size)); |
return((void *)malloc(size)); |
| } |
} |
| |
|
| void *GC_malloc(int size) { |
void *GC_malloc(size_t size) { |
| return((void *)malloc(size)); |
return((void *)malloc(size)); |
| } |
} |
| void *sGC_malloc(int size) { |
void *sGC_malloc(size_t size) { |
| return ((void *) GC_malloc(size)); |
return ((void *) GC_malloc(size)); |
| } |
} |
| |
|
| sendKan(int p) { /* do nothing */ } |
int sendKan(int p) { /* do nothing */ return 0; } |
| |
|
| /* test new function */ |
/* test new function */ |
| void testNewFunction(objectp op) |
void testNewFunction(objectp op) |