version 1.5, 2000/02/08 04:47:12 |
version 1.7, 2000/07/13 05:09:03 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.4 2000/01/19 01:49:36 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" |
|
|
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 ) { |