| 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; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to bconv.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_toolkit