Logo Search packages:      
Sourcecode: pccts version File versions  Download package

support.c

/*
 * 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;
}

Generated by  Doxygen 1.6.0   Back to index