1 /* $NetBSD: emit.c,v 1.6 2014/04/17 18:52:03 christos 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.6 2014/04/17 18:52:03 christos 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 outname1(const char *file, size_t line, const char *name) 220 { 221 222 if (name == NULL) 223 errx(1, "%s, %zu: internal error: outname(NULL)", file, line); 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