Tools/CodeTools/TianoTools/Pccts/dlg/support.c

   1 /*
   2  * SOFTWARE RIGHTS
   3  *
   4  * We reserve no LEGAL rights to the Purdue Compiler Construction Tool
   5  * Set (PCCTS) -- PCCTS is in the public domain.  An individual or
   6  * company may do whatever they wish with source code distributed with
   7  * PCCTS or the code generated by PCCTS, including the incorporation of
   8  * PCCTS, or its output, into commerical software.
   9  *
  10  * We encourage users to develop software with PCCTS.  However, we do ask
  11  * that credit is given to us for developing PCCTS.  By "credit",
  12  * we mean that if you incorporate our source code into one of your
  13  * programs (commercial product, research project, or otherwise) that you
  14  * acknowledge this fact somewhere in the documentation, research report,
  15  * etc...  If you like PCCTS and have developed a nice tool with the
  16  * output, please mention that you developed it using PCCTS.  In
  17  * addition, we ask that this header remain intact in our source code.
  18  * As long as these guidelines are kept, we expect to continue enhancing
  19  * this system and expect to make other tools available as they are
  20  * completed.
  21  *
  22  * DLG 1.33
  23  * Will Cohen
  24  * With mods by Terence Parr; AHPCRC, University of Minnesota
  25  * 1989-2001
  26  */
  27
  28 #include <stdio.h>
  29 #include <string.h>
  30 #include "dlg.h"
  31 #ifdef MEMCHK
  32 #include "trax.h"
  33 #else
  34 #ifdef __STDC__
  35 #include <stdlib.h>
  36 #else
  37 #include <malloc.h>
  38 #endif /* __STDC__ */
  39 #endif
  40
  41 int     err_found = 0;                  /* indicates whether problem found */
  42
  43 #ifdef __USE_PROTOS
  44 void internal_error(char *s, char *file,int line)    /* MR9 23-Sep-97 */
  45 #else
  46 void internal_error(s,file,line)    /* MR9 23-Sep-97 */
  47 char *s,*file;
  48 int line;
  49 #endif
  50 {
  51         fprintf(stderr,s,file,line);
  52         exit(PCCTS_EXIT_FAILURE);
  53 }
  54
  55 #ifdef __USE_PROTOS
  56 char *dlg_malloc(int bytes,char *file,int line)
  57 #else
  58 char *dlg_malloc(bytes,file,line)
  59 int bytes;
  60 char *file;
  61 int line;
  62 #endif
  63 {
  64         char *t;
  65
  66         t = (char *) malloc(bytes);
  67         if (!t){
  68                 /* error */
  69                 internal_error("%s(%d): unable to allocate memory\n",
  70                         file,line);
  71         }
  72         return t;
  73 }
  74
  75
  76 #ifdef __USE_PROTOS
  77 char *dlg_calloc(int n,int bytes,char *file,int line)
  78 #else
  79 char *dlg_calloc(n,bytes,file,line)
  80 int n,bytes;
  81 char *file;
  82 int line;
  83 #endif
  84 {
  85         char *t;
  86
  87         t = (char *) calloc(n,bytes);
  88         if (!t){
  89                 /* error */
  90                 internal_error("%s(%d): unable to allocate memory\n",
  91                         file,line);
  92         }
  93         return t;
  94 }
  95
  96
  97 #ifdef __USE_PROTOS
  98 FILE *read_stream(char *name)
  99 #else
 100 FILE *read_stream(name)
 101 char *name;
 102 #endif
 103 {
 104         FILE *f;
 105
 106         if (name){
 107                 if (name[0] == '-') {
 108                         fprintf(stderr, "dlg: invalid option: '%s'\n", name);
 109                         f = NULL;
 110                 }else{
 111                         f = fopen(name, "r");
 112                         if (f == NULL){
 113                                 /* couldn't open file */
 114                                 fprintf(stderr,
 115                                         "dlg: Warning: Can't read file %s.\n",
 116                                         name);
 117                         }
 118                 }
 119         }else{
 120                 /* open stdin if nothing there */
 121                 f = stdin;
 122         }
 123         return f;
 124 }
 125
 126 #ifdef __USE_PROTOS
 127 FILE *write_stream(char *name)
 128 #else
 129 FILE *write_stream(name)
 130 char *name;
 131 #endif
 132 {
 133         FILE *f;
 134
 135         if (name){
 136                 if (name[0] == '-') {
 137                         fprintf(stderr, "dlg: invalid option: '%s'\n", name);
 138                         f = NULL;
 139                 }else{
 140                         f = fopen(OutMetaName(name), "w");
 141                         if (f == NULL){
 142                                 /* couldn't open file */
 143                                 fprintf(stderr,
 144                                         "dlg: Warning: Can't write to file %s.\n",
 145                                         name);
 146                         }
 147                         else
 148 #ifdef SPECIAL_FOPEN
 149                 special_fopen_actions(OutMetaName(name));       /* MR1 */
 150 #else
 151                 ;                                               /* MR1 */
 152 #endif
 153                 }
 154         }else{
 155                 /* open stdout if nothing there */
 156                 f = stdout;
 157         }
 158         return f;
 159 }
 160
 161
 162 #ifdef __USE_PROTOS
 163 void fatal(char *message,int line_no)
 164 #else
 165 void fatal(message,line_no)
 166 char *message;
 167 int line_no;
 168 #endif
 169 {
 170         fprintf(stderr,ErrHdr,
 171                 (file_str[0] ? file_str[0] : "stdin"), line_no);
 172         fprintf(stderr, " Fatal: %s\n", message);
 173         exit(PCCTS_EXIT_FAILURE);
 174 }
 175
 176 #ifdef __USE_PROTOS
 177 void error(char *message,int line_no)
 178 #else
 179 void error(message,line_no)
 180 char *message;
 181 int line_no;
 182 #endif
 183 {
 184         fprintf(stderr,ErrHdr,
 185                 (file_str[0] ? file_str[0] : "stdin"), line_no);
 186         fprintf(stderr, " Error: %s\n", message);
 187         err_found = 1;
 188 }
 189
 190 #ifdef __USE_PROTOS
 191 void warning(char *message,int line_no)
 192 #else
 193 void warning(message,line_no)
 194 char *message;
 195 int line_no;
 196 #endif
 197 {
 198         fprintf(stderr,ErrHdr,
 199                 (file_str[0] ? file_str[0] : "stdin"), line_no);
 200         fprintf(stderr, " Warning: %s\n", message);
 201 }
 202
 203 /* MR10: Jeff Vincent
 204    MR10: Changed to remove directory information from n only if
 205    MR10: if OutputDirectory was changed by user (-o option)
 206 */
 207
 208 #ifdef __USE_PROTOS
 209 char *OutMetaName(char *n)
 210 #else
 211 char *OutMetaName(n)
 212 char *n;
 213 #endif
 214 {
 215     static char *dir_sym = DirectorySymbol;
 216     static char newname[MaxFileName+1];
 217     char *p;
 218
 219         /* If OutputDirectory is same as TopDirectory (platform default) then leave n alone. */
 220     if (strcmp(OutputDirectory, TopDirectory) == 0)
 221                 return n;
 222
 223         /* p will point to filename without path information */
 224         if ((p = strrchr(n, *dir_sym)) != NULL)
 225                 p++;
 226         else
 227                 p = n;
 228
 229         /* Copy new output directory into newname[] */
 230         strcpy(newname, OutputDirectory);
 231
 232         /* if new output directory does not have trailing dir_sym, add it! */
 233         if (newname[strlen(newname)-1] != *dir_sym)
 234                 strcat(newname, dir_sym);
 235
 236         /* contatenate FILE NAME ONLY to new output directory */
 237         strcat(newname, p);
 238
 239         return newname;
 240 }