/* | |
* SOFTWARE RIGHTS | |
* | |
* We reserve no LEGAL rights to the Purdue Compiler Construction Tool | |
* Set (PCCTS) -- PCCTS is in the public domain. An individual or | |
* company may do whatever they wish with source code distributed with | |
* PCCTS or the code generated by PCCTS, including the incorporation of | |
* PCCTS, or its output, into commerical software. | |
* | |
* We encourage users to develop software with PCCTS. However, we do ask | |
* that credit is given to us for developing PCCTS. By "credit", | |
* we mean that if you incorporate our source code into one of your | |
* programs (commercial product, research project, or otherwise) that you | |
* acknowledge this fact somewhere in the documentation, research report, | |
* etc... If you like PCCTS and have developed a nice tool with the | |
* output, please mention that you developed it using PCCTS. In | |
* addition, we ask that this header remain intact in our source code. | |
* As long as these guidelines are kept, we expect to continue enhancing | |
* this system and expect to make other tools available as they are | |
* completed. | |
* | |
* DLG 1.33 | |
* Will Cohen | |
* With mods by Terence Parr; AHPCRC, University of Minnesota | |
* 1989-2001 | |
*/ | |
#include <stdio.h> | |
#include <string.h> | |
#include "dlg.h" | |
#ifdef MEMCHK | |
#include "trax.h" | |
#else | |
#ifdef __STDC__ | |
#include <stdlib.h> | |
#else | |
#include <malloc.h> | |
#endif /* __STDC__ */ | |
#endif | |
int err_found = 0; /* indicates whether problem found */ | |
#ifdef __USE_PROTOS | |
void internal_error(char *s, char *file,int line) /* MR9 23-Sep-97 */ | |
#else | |
void internal_error(s,file,line) /* MR9 23-Sep-97 */ | |
char *s,*file; | |
int line; | |
#endif | |
{ | |
fprintf(stderr,s,file,line); | |
exit(PCCTS_EXIT_FAILURE); | |
} | |
#ifdef __USE_PROTOS | |
char *dlg_malloc(int bytes,char *file,int line) | |
#else | |
char *dlg_malloc(bytes,file,line) | |
int bytes; | |
char *file; | |
int line; | |
#endif | |
{ | |
char *t; | |
t = (char *) malloc(bytes); | |
if (!t){ | |
/* error */ | |
internal_error("%s(%d): unable to allocate memory\n", | |
file,line); | |
} | |
return t; | |
} | |
#ifdef __USE_PROTOS | |
char *dlg_calloc(int n,int bytes,char *file,int line) | |
#else | |
char *dlg_calloc(n,bytes,file,line) | |
int n,bytes; | |
char *file; | |
int line; | |
#endif | |
{ | |
char *t; | |
t = (char *) calloc(n,bytes); | |
if (!t){ | |
/* error */ | |
internal_error("%s(%d): unable to allocate memory\n", | |
file,line); | |
} | |
return t; | |
} | |
#ifdef __USE_PROTOS | |
FILE *read_stream(char *name) | |
#else | |
FILE *read_stream(name) | |
char *name; | |
#endif | |
{ | |
FILE *f; | |
if (name){ | |
if (name[0] == '-') { | |
fprintf(stderr, "dlg: invalid option: '%s'\n", name); | |
f = NULL; | |
}else{ | |
f = fopen(name, "r"); | |
if (f == NULL){ | |
/* couldn't open file */ | |
fprintf(stderr, | |
"dlg: Warning: Can't read file %s.\n", | |
name); | |
} | |
} | |
}else{ | |
/* open stdin if nothing there */ | |
f = stdin; | |
} | |
return f; | |
} | |
#ifdef __USE_PROTOS | |
FILE *write_stream(char *name) | |
#else | |
FILE *write_stream(name) | |
char *name; | |
#endif | |
{ | |
FILE *f; | |
if (name){ | |
if (name[0] == '-') { | |
fprintf(stderr, "dlg: invalid option: '%s'\n", name); | |
f = NULL; | |
}else{ | |
f = fopen(OutMetaName(name), "w"); | |
if (f == NULL){ | |
/* couldn't open file */ | |
fprintf(stderr, | |
"dlg: Warning: Can't write to file %s.\n", | |
name); | |
} | |
else | |
#ifdef SPECIAL_FOPEN | |
special_fopen_actions(OutMetaName(name)); /* MR1 */ | |
#else | |
; /* MR1 */ | |
#endif | |
} | |
}else{ | |
/* open stdout if nothing there */ | |
f = stdout; | |
} | |
return f; | |
} | |
#ifdef __USE_PROTOS | |
void fatal(char *message,int line_no) | |
#else | |
void fatal(message,line_no) | |
char *message; | |
int line_no; | |
#endif | |
{ | |
fprintf(stderr,ErrHdr, | |
(file_str[0] ? file_str[0] : "stdin"), line_no); | |
fprintf(stderr, " Fatal: %s\n", message); | |
exit(PCCTS_EXIT_FAILURE); | |
} | |
#ifdef __USE_PROTOS | |
void error(char *message,int line_no) | |
#else | |
void error(message,line_no) | |
char *message; | |
int line_no; | |
#endif | |
{ | |
fprintf(stderr,ErrHdr, | |
(file_str[0] ? file_str[0] : "stdin"), line_no); | |
fprintf(stderr, " Error: %s\n", message); | |
err_found = 1; | |
} | |
#ifdef __USE_PROTOS | |
void warning(char *message,int line_no) | |
#else | |
void warning(message,line_no) | |
char *message; | |
int line_no; | |
#endif | |
{ | |
fprintf(stderr,ErrHdr, | |
(file_str[0] ? file_str[0] : "stdin"), line_no); | |
fprintf(stderr, " Warning: %s\n", message); | |
} | |
/* MR10: Jeff Vincent | |
MR10: Changed to remove directory information from n only if | |
MR10: if OutputDirectory was changed by user (-o option) | |
*/ | |
#ifdef __USE_PROTOS | |
char *OutMetaName(char *n) | |
#else | |
char *OutMetaName(n) | |
char *n; | |
#endif | |
{ | |
static char *dir_sym = DirectorySymbol; | |
static char newname[MaxFileName+1]; | |
char *p; | |
/* If OutputDirectory is same as TopDirectory (platform default) then leave n alone. */ | |
if (strcmp(OutputDirectory, TopDirectory) == 0) | |
return n; | |
/* p will point to filename without path information */ | |
if ((p = strrchr(n, *dir_sym)) != NULL) | |
p++; | |
else | |
p = n; | |
/* Copy new output directory into newname[] */ | |
strcpy(newname, OutputDirectory); | |
/* if new output directory does not have trailing dir_sym, add it! */ | |
if (newname[strlen(newname)-1] != *dir_sym) | |
strcat(newname, dir_sym); | |
/* contatenate FILE NAME ONLY to new output directory */ | |
strcat(newname, p); | |
return newname; | |
} |