Return to miscf.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / builtin |
version 1.4, 2000/03/01 02:29:17 | version 1.5, 2000/03/10 06:42:22 | ||
---|---|---|---|
|
|
||
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.3 2000/02/08 04:47:09 noro Exp $ */ | /* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.4 2000/03/01 02:29:17 noro Exp $ */ | ||
#include "ca.h" | #include "ca.h" | ||
#include "parse.h" | #include "parse.h" | ||
#if INET && !defined(VISUAL) | #if INET && !defined(VISUAL) | ||
|
|
||
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; |