version 1.23, 2007/11/07 19:26:17 |
version 1.25, 2011/06/16 08:17:15 |
|
|
* 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.22 2006/09/26 05:35:25 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.24 2007/11/22 05:14:48 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 81 void Pprintf(NODE arg,pointer *rp) |
|
Line 81 void Pprintf(NODE arg,pointer *rp) |
|
print_to_wfep(s); |
print_to_wfep(s); |
}else { |
}else { |
printexpr(CO,s); |
printexpr(CO,s); |
/* XXX : if ox_asir, we have to fflush always */ |
fflush(asir_out); |
if ( I_am_server ) { |
|
fflush(asir_out); |
|
} |
|
} |
} |
} |
} |
*rp = 0; |
*rp = 0; |
Line 168 void fnodetotree(FNODE f,LIST *rp) |
|
Line 165 void fnodetotree(FNODE f,LIST *rp) |
|
|
|
if ( !f ) { |
if ( !f ) { |
MKSTR(head,"internal"); |
MKSTR(head,"internal"); |
n = mknode(2,head,0); |
n = mknode(2,head,NULLP); |
MKLIST(*rp,n); |
MKLIST(*rp,n); |
return; |
return; |
} |
} |