a56/subs.c

   1 /*******************************************************
   2  *
   3  *  a56 - a DSP56001 assembler
   4  *
   5  *  Written by Quinn C. Jensen
   6  *  July 1990
   7  *
   8  *******************************************************\
   9
  10 /*
  11  * Copyright (C) 1990-1994 Quinn C. Jensen
  12  *
  13  * Permission to use, copy, modify, distribute, and sell this software
  14  * and its documentation for any purpose is hereby granted without fee,
  15  * provided that the above copyright notice appear in all copies and
  16  * that both that copyright notice and this permission notice appear
  17  * in supporting documentation.  The author makes no representations
  18  * about the suitability of this software for any purpose.  It is
  19  * provided "as is" without express or implied warranty.
  20  *
  21  */
  22 static char *Copyright = "Copyright (C) 1990-1994 Quinn C. Jensen";
  23
  24 /*
  25  *  subs.c - Some subroutines for the assembler.
  26  *
  27  */
  28
  29 #include "a56.h"
  30
  31 #define MAX 1024
  32
  33 char *alloc();
  34
  35 FILE *open_read(file)
  36 char *file;
  37 {
  38         FILE *fp;
  39
  40         if(strcmp(file, "-") == 0)
  41                 fp = stdin;
  42         else if ((fp = fopen(file, "r")) == NULL) {
  43                 perror(file);
  44                 exit(1);
  45         }
  46         return fp;
  47 }
  48
  49 FILE *open_write(file)
  50 char *file;
  51 {
  52         FILE *fp;
  53         if ((fp = fopen(file, "w")) == NULL) {
  54                 perror(file);
  55                 exit(1);
  56         }
  57         return fp;
  58 }
  59
  60 FILE *open_append(file)
  61 char *file;
  62 {
  63         FILE *fp;
  64         if ((fp = fopen(file, "a")) == NULL) {
  65                 perror(file);
  66                 exit(1);
  67         }
  68         return fp;
  69 }
  70
  71 fatal(c, a1, a2, a3, a4, a5, a6, a7, a8)
  72 char *c, *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
  73 {
  74         fprintf(stderr, c, a1, a2, a3, a4, a5, a6, a7, a8);
  75         exit(1);
  76 }
  77
  78 #define TABS 8
  79 #define MAX_BUF 256
  80
  81 char tabbuf[MAX_BUF], *untabn();
  82 char *untab(s)  /* expand tabs in s */
  83 register char *s;
  84 {
  85         return untabn(s, TABS);
  86 }
  87
  88 char *untabn(s, stops)  /* expand tabs in s */
  89 register char *s;
  90 register int stops;
  91 {
  92         char *o = s;
  93
  94         /* copy input string into buffer to scan while input string is modified */
  95
  96         register char *b = tabbuf;
  97
  98         strncpy(b, s, MAX_BUF);
  99
 100         /* iterate until the copy of the input string is depleted */
 101
 102         while(*b) {
 103                 if(*b == '\t') {
 104                         do
 105                                 *s = ' ';
 106                         while ((++s - o) % stops);
 107                 } else {
 108                         *s = *b; s++;
 109                 }
 110                 b++;
 111         }
 112
 113         /* null terminate the resultant string */
 114
 115         *s = '\0';
 116
 117         return o;
 118 }
 119
 120 char *alloc(size)
 121 int size;
 122 {
 123         char *p = (char *)malloc(size);
 124         if(NOT p)
 125                 fatal("alloc:  insufficient virtual memory to allocate %d bytes\n",
 126                         size);
 127         return p;
 128 }
 129
 130 #define ascii2n(c)  \
 131         ((c) >= 'a' ? (c) - 'a' + 10 : ((c) >= 'A' ? (c) - 'A' + 10 : (c) - '0'))
 132
 133 #define valid(c) ((c) >= '0' && (c) <= '9' || \
 134         (c) >= 'A' && (c) <= 'Z' || \
 135         (c) >= 'a' && (c) <= 'z')
 136
 137 strtol(s, p, base)
 138 register char *s, **p;
 139 register int base;
 140 {
 141         register long result = 0;
 142         register int sign = 0;
 143
 144         while(*s == ' ' || *s == '\t')
 145                 s++;
 146
 147         if(*s == '-') {
 148                 s++;
 149                 sign++;
 150         }
 151
 152         while(valid(*s)) {
 153                 register int dig = ascii2n(*s);
 154                 if(dig >= base)
 155                         break;
 156                 result *= base;
 157                 result += dig;
 158                 s++;
 159         }
 160
 161         if(p)
 162                 *p = s;
 163
 164         return sign ? -result : result;
 165 }