version 1.33, 2003/03/07 06:39:59 |
version 1.37, 2003/09/12 01:12:41 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.32 2003/03/07 03:12:31 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.36 2003/05/16 07:56:16 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |
#include <io.h> |
#include <io.h> |
#include <direct.h> |
#include <direct.h> |
|
#else |
|
#include <unistd.h> |
|
#include <string.h> |
|
#include <stdio.h> |
#endif |
#endif |
|
|
#if defined(SYSV) && !defined(_IBMR2) |
#if defined(SYSV) && !defined(_IBMR2) |
Line 124 struct oVS oGPVS,oAPVS,oEPVS; |
|
Line 128 struct oVS oGPVS,oAPVS,oEPVS; |
|
VS GPVS = &oGPVS; |
VS GPVS = &oGPVS; |
VS APVS = &oAPVS; |
VS APVS = &oAPVS; |
VS EPVS = &oEPVS; |
VS EPVS = &oEPVS; |
VS CPVS; |
VS CPVS,MPVS; |
|
|
|
NODE MODULE_LIST; |
|
MODULE CUR_MODULE; |
|
char *CUR_FUNC; |
|
|
struct oF oF_TRUE,oF_FALSE; |
struct oF oF_TRUE,oF_FALSE; |
F F_TRUE = &oF_TRUE; |
F F_TRUE = &oF_TRUE; |
F F_FALSE = &oF_FALSE; |
F F_FALSE = &oF_FALSE; |
|
|
#if defined(__SVR4) && defined(sun) |
|
char cppname[BUFSIZ] = "/usr/ccs/lib/cpp "; |
|
#else |
|
#if defined(__FreeBSD__) || defined(__NetBSD__) || (defined(__MACH__) && defined(__ppc__)) || defined(__CYGWIN__) |
|
char cppname[BUFSIZ] = "/usr/bin/cpp "; |
|
#else |
|
#if defined(VISUAL) |
#if defined(VISUAL) |
char cppname[BUFSIZ] = "c:\\asir\\stdlib\\cpp "; |
char cppname[BUFSIZ] = "c:\\asir\\stdlib\\cpp "; |
#else |
#else |
char cppname[BUFSIZ] = "/lib/cpp "; |
char cppname[BUFSIZ] = "/lib/cpp "; |
#endif |
#endif |
#endif |
|
#endif |
|
char asirname[BUFSIZ]; |
char asirname[BUFSIZ]; |
char displayname[BUFSIZ]; |
char displayname[BUFSIZ]; |
|
|
Line 253 void sprompt(char *ptr) |
|
Line 253 void sprompt(char *ptr) |
|
sprintf(ptr,"[%d] ",APVS->n); |
sprintf(ptr,"[%d] ",APVS->n); |
} |
} |
|
|
|
#if !defined(VISUAL) |
|
static int which(char *prog, char *path, char *buf, size_t size) |
|
{ |
|
char *tok; |
|
char delim[] = ":"; |
|
char *path2 = malloc(strlen(path)+1); |
|
char *name = malloc(size); |
|
int proglen = strlen(prog)+3; /* "/" + prog + " \0" */ |
|
|
|
if (!name || !path2) { |
|
return 0; |
|
} |
|
strcpy(path2, path); |
|
tok = strtok(path2, delim); |
|
while (tok != NULL) { |
|
if (size >= strlen(tok)) { |
|
sprintf(name, "%s/%s", tok, prog); |
|
if (access(name, X_OK&R_OK) == 0) { |
|
strcpy(buf, name); |
|
strcat(buf, " "); |
|
free(path2); free(name); |
|
return 1; |
|
} |
|
tok = strtok(NULL, delim); |
|
} |
|
} |
|
free(path2); free(name); |
|
return 0; |
|
} |
|
#endif |
|
|
|
void cppname_init() |
|
{ |
|
#if !defined(VISUAL) |
|
if (access(cppname, X_OK&R_OK) != 0) { |
|
which("cpp", "/lib:/usr/ccs/lib:/usr/bin", cppname, BUFSIZ) || |
|
which("cpp", getenv("PATH"), cppname, BUFSIZ); |
|
} |
|
#endif |
|
} |
|
|
FILE *in_fp; |
FILE *in_fp; |
|
|
void process_args(int ac,char **av) |
void process_args(int ac,char **av) |
Line 590 SNODE error_snode; |
|
Line 631 SNODE error_snode; |
|
|
|
void error(char *s) |
void error(char *s) |
{ |
{ |
SNODE *snp; |
SNODE *snp=0; |
|
|
#if !defined(VISUAL) |
#if !defined(VISUAL) |
if ( timer_is_set ) |
if ( timer_is_set ) |
Line 599 void error(char *s) |
|
Line 640 void error(char *s) |
|
fprintf(stderr,"%s\n",s); |
fprintf(stderr,"%s\n",s); |
set_lasterror(s); |
set_lasterror(s); |
if ( CPVS != GPVS ) { |
if ( CPVS != GPVS ) { |
if ( CPVS->usrf && CPVS->usrf && CPVS->usrf->f.usrf ) |
if ( CPVS && CPVS->usrf && CPVS->usrf->f.usrf ) |
searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp); |
searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp); |
if ( snp ) |
if ( snp ) |
error_snode = *snp; |
error_snode = *snp; |