| version 1.4, 2000/01/19 01:49:36 |
version 1.7, 2000/07/13 05:09:03 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.3 2000/01/11 06:43:38 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.6 2000/06/05 03:21:58 noro Exp $ */ |
| #include "ca.h" |
#include "ca.h" |
| #include "al.h" |
#include "al.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 152 static char asir_history[BUFSIZ]; |
|
| Line 152 static char asir_history[BUFSIZ]; |
|
| |
|
| extern int mpi_myid; |
extern int mpi_myid; |
| |
|
| |
#if !defined(VISUAL_LIB) |
| |
void ExitAsir() { |
| |
exit(0); |
| |
} |
| |
#endif |
| |
|
| /* |
/* |
| * status = 1 abnormal termination (error() etc.) |
* status = 1 abnormal termination (error() etc.) |
| * status = 2 normal termination (end(), quit() etc.) |
* status = 2 normal termination (end(), quit() etc.) |
|
|
| fprintf(stderr,"%s\n",s); |
fprintf(stderr,"%s\n",s); |
| set_lasterror(s); |
set_lasterror(s); |
| if ( CPVS != GPVS ) { |
if ( CPVS != GPVS ) { |
| searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp); |
if ( CPVS->usrf && CPVS->usrf && CPVS->usrf->f.usrf ) |
| error_snode = *snp; |
searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp); |
| |
if ( snp ) |
| |
error_snode = *snp; |
| |
else |
| |
error_snode = 0; |
| } else |
} else |
| error_snode = 0; |
error_snode = 0; |
| if ( do_file ) { |
if ( do_file ) { |
| Line 725 void copyright() { |
|
| Line 735 void copyright() { |
|
| printf("Copyright (C) FUJITSU LABORATORIES LIMITED.\n"); |
printf("Copyright (C) FUJITSU LABORATORIES LIMITED.\n"); |
| printf("1994-1999. All rights reserved.\n"); |
printf("1994-1999. All rights reserved.\n"); |
| } |
} |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to glob.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / parse