usr.bin/xlint/common/emit.c

   1 /*      $NetBSD: emit.c,v 1.4 2004/06/20 22:20:16 jmc Exp $     */
   2
   3 /*
   4  * Copyright (c) 1994, 1995 Jochen Pohl
   5  * All Rights Reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. All advertising materials mentioning features or use of this software
  16  *    must display the following acknowledgement:
  17  *      This product includes software developed by Jochen Pohl for
  18  *      The NetBSD Project.
  19  * 4. The name of the author may not be used to endorse or promote products
  20  *    derived from this software without specific prior written permission.
  21  *
  22  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  23  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  24  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  25  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  26  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  27  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  28  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  29  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  30  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  31  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  32  */
  33
  34 #if HAVE_NBTOOL_CONFIG_H
  35 #include "nbtool_config.h"
  36 #endif
  37
  38 #include <sys/cdefs.h>
  39 #if defined(__RCSID) && !defined(lint)
  40 __RCSID("$NetBSD: emit.c,v 1.4 2004/06/20 22:20:16 jmc Exp $");
  41 #endif
  42
  43 #include <ctype.h>
  44 #include <stdio.h>
  45 #include <string.h>
  46
  47 #include "lint.h"
  48
  49 /* name and handle of output file */
  50 static  const   char *loname;
  51 static  FILE    *lout;
  52
  53 /* output buffer data */
  54 ob_t    ob;
  55
  56 static  void    outxbuf(void);
  57
  58
  59 /*
  60  * initialize output
  61  */
  62 void
  63 outopen(const char *name)
  64 {
  65
  66         loname = name;
  67
  68         /* Open output file */
  69         if ((lout = fopen(name, "w")) == NULL)
  70                 err(1, "cannot open '%s'", name);
  71
  72         /* Create output buffer */
  73         ob.o_len = 1024;
  74         ob.o_end = (ob.o_buf = ob.o_nxt = xmalloc(ob.o_len)) + ob.o_len;
  75 }
  76
  77 /*
  78  * flush output buffer and close file
  79  */
  80 void
  81 outclose(void)
  82 {
  83
  84         outclr();
  85         if (fclose(lout) == EOF)
  86                 err(1, "cannot close '%s'", loname);
  87 }
  88
  89 /*
  90  * resize output buffer
  91  */
  92 static void
  93 outxbuf(void)
  94 {
  95         ptrdiff_t coffs;
  96
  97         coffs = ob.o_nxt - ob.o_buf;
  98         ob.o_len *= 2;
  99         ob.o_end = (ob.o_buf = xrealloc(ob.o_buf, ob.o_len)) + ob.o_len;
 100         ob.o_nxt = ob.o_buf + coffs;
 101 }
 102
 103 /*
 104  * reset output buffer
 105  * if it is not empty, it is flushed
 106  */
 107 void
 108 outclr(void)
 109 {
 110         size_t  sz;
 111
 112         if (ob.o_buf != ob.o_nxt) {
 113                 outchar('\n');
 114                 sz = ob.o_nxt - ob.o_buf;
 115                 if (sz > ob.o_len)
 116                         errx(1, "internal error: outclr() 1");
 117                 if (fwrite(ob.o_buf, sz, 1, lout) != 1)
 118                         err(1, "cannot write to %s", loname);
 119                 ob.o_nxt = ob.o_buf;
 120         }
 121 }
 122
 123 /*
 124  * write a character to the output buffer
 125  */
 126 void
 127 outchar(int c)
 128 {
 129
 130         if (ob.o_nxt == ob.o_end)
 131                 outxbuf();
 132         *ob.o_nxt++ = (char)c;
 133 }
 134
 135 /*
 136  * write a character to the output buffer, qouted if necessary
 137  */
 138 void
 139 outqchar(int c)
 140 {
 141
 142         if (isprint(c) && c != '\\' && c != '"' && c != '\'') {
 143                 outchar(c);
 144         } else {
 145                 outchar('\\');
 146                 switch (c) {
 147                 case '\\':
 148                         outchar('\\');
 149                         break;
 150                 case '"':
 151                         outchar('"');
 152                         break;
 153                 case '\'':
 154                         outchar('\'');
 155                         break;
 156                 case '\b':
 157                         outchar('b');
 158                         break;
 159                 case '\t':
 160                         outchar('t');
 161                         break;
 162                 case '\n':
 163                         outchar('n');
 164                         break;
 165                 case '\f':
 166                         outchar('f');
 167                         break;
 168                 case '\r':
 169                         outchar('r');
 170                         break;
 171                 case '\v':
 172                         outchar('v');
 173                         break;
 174                 case '\a':
 175                         outchar('a');
 176                         break;
 177                 default:
 178                         outchar((((u_int)c >> 6) & 07) + '0');
 179                         outchar((((u_int)c >> 3) & 07) + '0');
 180                         outchar((c & 07) + '0');
 181                         break;
 182                 }
 183         }
 184 }
 185
 186 /*
 187  * write a strint to the output buffer
 188  * the string must not contain any characters which
 189  * should be quoted
 190  */
 191 void
 192 outstrg(const char *s)
 193 {
 194
 195         while (*s != '\0') {
 196                 if (ob.o_nxt == ob.o_end)
 197                         outxbuf();
 198                 *ob.o_nxt++ = *s++;
 199         }
 200 }
 201
 202 /*
 203  * write an integer value to toe output buffer
 204  */
 205 void
 206 outint(int i)
 207 {
 208
 209         if ((size_t)(ob.o_end - ob.o_nxt) < 3 * sizeof (int))
 210                 outxbuf();
 211         ob.o_nxt += sprintf(ob.o_nxt, "%d", i);
 212 }
 213
 214 /*
 215  * write the name of a symbol to the output buffer
 216  * the name is preceded by its length
 217  */
 218 void
 219 outname(const char *name)
 220 {
 221
 222         if (name == NULL)
 223                 errx(1, "internal error: outname() 1");
 224         outint((int)strlen(name));
 225         outstrg(name);
 226 }
 227
 228 /*
 229  * write the name of the .c source
 230  */
 231 void
 232 outsrc(const char *name)
 233 {
 234
 235         outclr();
 236         outchar('S');
 237         outstrg(name);
 238 }