version 1.3, 2003/07/21 12:41:22 |
version 1.7, 2021/03/12 06:45:55 |
|
|
/* $OpenXM: OpenXM/src/k097/dm.c,v 1.2 2000/01/21 03:01:25 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) |
Line 58 void testNewFunction(objectp op) |
|
Line 58 void testNewFunction(objectp op) |
|
} |
} |
|
|
struct object KSpop() { |
struct object KSpop() { |
struct object obj; |
struct object obj = OINIT; |
obj.tag = 0; |
obj.tag = 0; |
fprintf(stderr," Do not use Test.\n"); |
fprintf(stderr," Do not use Test.\n"); |
return(obj); |
return(obj); |