version 1.6, 2003/02/04 20:43:54 |
version 1.7, 2005/07/20 17:48:03 |
|
|
/* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/bconv.c,v 1.5 2003/01/11 11:42:31 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/bconv.c,v 1.6 2003/02/04 20:43:54 ohara Exp $ */ |
|
|
/* bconv can convert an OX expression or a CMO expression to a byte stream. */ |
/* bconv can convert an OX expression or a CMO expression to a byte stream. */ |
/* Any expressions, as a string, must have shorter length than 8192.*/ |
/* Any expressions, as a string, must have shorter length than 8192.*/ |
Line 55 static void prompt() |
|
Line 55 static void prompt() |
|
{ |
{ |
fprintf(stdout, "> "); |
fprintf(stdout, "> "); |
fgets(cmdline, SIZE_CMDLINE, stdin); |
fgets(cmdline, SIZE_CMDLINE, stdin); |
init_parser(cmdline); |
|
} |
} |
|
|
int main() |
int main() |
|
|
ox_stderr_init(stderr); |
ox_stderr_init(stderr); |
setbuf(stdout, NULL); |
setbuf(stdout, NULL); |
|
|
setflag_parse(PFLAG_ADDREV); |
for(prompt(); (m = ox_parse_lisp(cmdline)) != NULL; prompt()) { |
for(prompt(); (m = parse()) != NULL; prompt()) { |
|
display(m); |
display(m); |
} |
} |
return 0; |
return 0; |