version 1.15, 2003/11/08 01:12:02 |
version 1.16, 2004/03/03 01:16:28 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.14 2001/10/09 01:36:07 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.15 2003/11/08 01:12:02 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
void Pprint(); |
void Pprint(); |
void Pquotetolist(); |
void Pquotetolist(); |
|
void Pobjtoquote(); |
void Peval_variables_in_quote(); |
void Peval_variables_in_quote(); |
void Pset_print_function(); |
void Pset_print_function(); |
|
|
struct ftab print_tab[] = { |
struct ftab print_tab[] = { |
{"print",Pprint,-2}, |
{"print",Pprint,-2}, |
|
{"objtoquote",Pobjtoquote,1}, |
{"quotetolist",Pquotetolist,1}, |
{"quotetolist",Pquotetolist,1}, |
{"eval_variables_in_quote",Peval_variables_in_quote,1}, |
{"eval_variables_in_quote",Peval_variables_in_quote,1}, |
{"set_print_function",Pset_print_function,-1}, |
{"set_print_function",Pset_print_function,-1}, |
Line 92 void Pprint(NODE arg,pointer *rp) |
|
Line 94 void Pprint(NODE arg,pointer *rp) |
|
} |
} |
} |
} |
*rp = 0; |
*rp = 0; |
|
} |
|
|
|
void Pobjtoquote(NODE arg,QUOTE *rp) |
|
{ |
|
objtoquote(ARG0(arg),rp); |
} |
} |
|
|
void Pquotetolist(NODE arg,LIST *rp) |
void Pquotetolist(NODE arg,LIST *rp) |