OpenXM_contrib2/asir2000/parse/asir_lib.c - diff

Return to asir_lib.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.8, 2004/06/15 00:56:52

version 1.11, 2015/08/14 13:51:56

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/asir_lib.c,v 1.7 2004/02/13 05:48:36 saito Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/asir_lib.c,v 1.10 2015/08/06 10:01:53 fujimoto Exp $

#include "ca.h"

#include "parse.h"

Line 72 void Init_Asir(int argc,char **argv)

FILE *ifp;

char ifname[BUFSIZ];

extern int GC_dont_gc;

extern int read_exec_file;

extern int do_asirrc;

char *getenv();

static asirlib_initialized=0;

Line 94 void Init_Asir(int argc,char **argv)

Line 93 void Init_Asir(int argc,char **argv)

rtime_init();

env_init();

endian_init();

#if !defined(VISUAL) && !defined(THINK_C)

#if !defined(VISUAL) && !defined(__MINGW32__) && !defined(THINK_C)

/* check_key(); */

#endif

process_args(--argc,++argv);

Line 119 void Init_Asir(int argc,char **argv)

Line 118 void Init_Asir(int argc,char **argv)

#endif

if ( do_asirrc && (ifp = fopen(ifname,"r")) ) {

input_init(ifp,ifname);

if ( !setjmp(env) ) {

if ( !setjmp(asir_infile->jmpbuf) )

read_exec_file = 1;

read_eval_loop();

read_exec_file = 0;

}

fclose(ifp);

} else

error(".asirrc not found");