version 1.1, 1999/12/03 07:39:07 |
version 1.6, 2000/03/16 04:55:20 |
|
|
/* $OpenXM: OpenXM/src/asir99/builtin/miscf.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.5 2000/03/10 06:42:22 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#if INET && !defined(VISUAL) |
#if INET && !defined(VISUAL) |
Line 34 struct ftab misc_tab[] = { |
|
Line 34 struct ftab misc_tab[] = { |
|
{"gc",Pgc,0}, |
{"gc",Pgc,0}, |
{"batch",Pbatch,2}, |
{"batch",Pbatch,2}, |
{"send_progress",Psend_progress,-2}, |
{"send_progress",Psend_progress,-2}, |
#if INET && !defined(VISUAL) |
#if INET && !defined(VISUAL) && DO_PLOT |
{"xpause",Pxpause,0}, |
{"xpause",Pxpause,0}, |
#endif |
#endif |
#if 0 |
#if 0 |
|
|
asir_terminate(2); |
asir_terminate(2); |
else { |
else { |
closecurrentinput(); |
closecurrentinput(); |
if ( !asir_infile->fp ) |
if ( !asir_infile->fp && strcmp(asir_infile->name,"string") ) |
asir_terminate(2); |
asir_terminate(2); |
} |
} |
*rp = 0; |
*rp = 0; |
|
|
code = QTOS((Q)ARG0(arg)); |
code = QTOS((Q)ARG0(arg)); |
reason = BDY((STRING)ARG1(arg)); |
reason = BDY((STRING)ARG1(arg)); |
action = BDY((STRING)ARG2(arg)); |
action = BDY((STRING)ARG2(arg)); |
|
#if defined(VISUAL) |
set_error(code,reason,action); |
set_error(code,reason,action); |
|
#endif |
error(""); |
error(""); |
*rp = 0; |
*rp = 0; |
} |
} |
|
|
STOQ(ret,*rp); |
STOQ(ret,*rp); |
} |
} |
|
|
#if INET && !defined(VISUAL) |
#if INET && !defined(VISUAL) && DO_PLOT |
void Pxpause(rp) |
void Pxpause(rp) |
Q *rp; |
Q *rp; |
{ |
{ |