Home | History | Annotate | Line # | Download | only in common
emit.c revision 1.4
      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 ((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 }
    239