Pccts/dlg/support.c

	support.c revision 4fd606d1f5abe38e1f42c38de1d2e895166bd0f4
/*
 * 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;
}