OpenXM_contrib2/asir2000/io/ox_asir.c - diff

Return to ox_asir.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.3, 2000/01/18 05:55:07

version 1.4, 2000/01/19 09:31:00

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.2 1999/12/22 07:01:39 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.3 2000/01/18 05:55:07 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "ox.h"

Line 549 static void ox_asir_init(int argc,char **argv)

char *getenv();

static ox_asir_initialized = 0;

FILE *ifp;

char *homedir;

char *ptr;

#if !defined(VISUAL) && !MPI

do_server_in_X11 = 1; /* XXX */

Line 587 static void ox_asir_init(int argc,char **argv)

Line 589 static void ox_asir_init(int argc,char **argv)

#if defined(UINIT)

reg_sysf();

#endif

/* if ASIR_CONFIG is set, execute it; else execute .asirrc */

if ( ptr = getenv("ASIR_CONFIG") )

strcpy(ifname,ptr);

else {

#if defined(THINK_C)

sprintf(ifname,"asirrc");

#else

sprintf(ifname,"%s/.asirrc",getenv("HOME"));

homedir = getenv("HOME");

if ( !homedir ) {

char rootname[BUFSIZ];

get_rootdir(rootname,sizeof(rootname));

homedir = rootname;

}

sprintf(ifname,"%s/.asirrc",homedir);

#endif

}

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

input_init(ifp,ifname);

if ( !setjmp(env) ) {