version 1.14, 2001/10/09 01:36:07 |
version 1.15, 2003/11/08 01:12:02 |
|
|
* 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.13 2001/09/05 09:01:27 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.14 2001/10/09 01:36:07 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 65 struct ftab print_tab[] = { |
|
Line 65 struct ftab print_tab[] = { |
|
|
|
void Pprint(NODE arg,pointer *rp) |
void Pprint(NODE arg,pointer *rp) |
{ |
{ |
printexpr(CO,ARG0(arg)); |
Obj obj; |
if ( argc(arg) == 2 ) |
OPTLIST opt; |
switch ( QTOS((Q)ARG1(arg)) ) { |
|
case 0: |
if ( arg ) { |
break; |
obj = (Obj)ARG0(arg); |
case 2: |
if ( NEXT(arg) ) { |
fflush(asir_out); break; |
opt = (OPTLIST)ARG1(arg); |
break; |
if ( INT(opt) ) { |
case 1: default: |
printexpr(CO,obj); |
putc('\n',asir_out); break; |
switch ( QTOS((Q)opt) ) { |
|
case 0: |
|
break; |
|
case 2: |
|
fflush(asir_out); break; |
|
break; |
|
case 1: default: |
|
putc('\n',asir_out); break; |
|
} |
|
} else if ( OID(opt) == O_OPTLIST ) { |
|
} else |
|
error("print : invalid argument"); |
|
} else { |
|
printexpr(CO,obj); |
|
putc('\n',asir_out); |
} |
} |
else |
} |
putc('\n',asir_out); |
|
*rp = 0; |
*rp = 0; |
} |
} |
|
|