1 /* flex - tool to generate fast lexical analyzers */
2
3 /* Copyright (c) 1990 The Regents of the University of California. */
4 /* All rights reserved. */
5
6 /* This code is derived from software contributed to Berkeley by */
7 /* Vern Paxson. */
8
9 /* The United States Government has rights in this work pursuant */
10 /* to contract no. DE-AC03-76SF00098 between the United States */
11 /* Department of Energy and the University of California. */
12
13 /* This file is part of flex. */
14
15 /* Redistribution and use in source and binary forms, with or without */
16 /* modification, are permitted provided that the following conditions */
17 /* are met: */
18
19 /* 1. Redistributions of source code must retain the above copyright */
20 /* notice, this list of conditions and the following disclaimer. */
21 /* 2. Redistributions in binary form must reproduce the above copyright */
22 /* notice, this list of conditions and the following disclaimer in the */
23 /* documentation and/or other materials provided with the distribution. */
24
25 /* Neither the name of the University nor the names of its contributors */
26 /* may be used to endorse or promote products derived from this software */
27 /* without specific prior written permission. */
28
29 /* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR */
30 /* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED */
31 /* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR */
32 /* PURPOSE. */
33
34 #include "flexdef.h"
35
36 /* Take note: The buffer object is sometimes used as a String buffer (one
37 * continuous string), and sometimes used as a list of strings, usually line by
38 * line.
39 *
40 * The type is specified in buf_init by the elt_size. If the elt_size is
41 * sizeof(char), then the buffer should be treated as string buffer. If the
42 * elt_size is sizeof(char*), then the buffer should be treated as a list of
43 * strings.
44 *
45 * Certain functions are only appropriate for one type or the other.
46 */
47
48 /* global buffers. */
49 struct Buf userdef_buf; /**< for user #definitions triggered by cmd-line. */
50 struct Buf defs_buf; /**< for #define's autogenerated. List of strings. */
51 struct Buf yydmap_buf; /**< string buffer to hold yydmap elements */
52 struct Buf m4defs_buf; /**< m4 definitions. List of strings. */
53 struct Buf top_buf; /**< contains %top code. String buffer. */
54
buf_print_strings(struct Buf * buf,FILE * out)55 struct Buf *buf_print_strings(struct Buf * buf, FILE* out)
56 {
57 int i;
58
59 if(!buf || !out)
60 return buf;
61
62 for (i=0; i < buf->nelts; i++){
63 const char * s = ((char**)buf->elts)[i];
64 if(s)
65 fprintf(out, "%s", s);
66 }
67 return buf;
68 }
69
70 /* Append a "%s" formatted string to a string buffer */
buf_prints(struct Buf * buf,const char * fmt,const char * s)71 struct Buf *buf_prints (struct Buf *buf, const char *fmt, const char *s)
72 {
73 char *t;
74 size_t tsz;
75
76 tsz = strlen(fmt) + strlen(s) + 1;
77 t = malloc(tsz);
78 if (!t)
79 flexfatal (_("Allocation of buffer to print string failed"));
80 snprintf (t, tsz, fmt, s);
81 buf = buf_strappend (buf, t);
82 free(t);
83 return buf;
84 }
85
86 /** Append a line directive to the string buffer.
87 * @param buf A string buffer.
88 * @param filename file name
89 * @param lineno line number
90 * @return buf
91 */
buf_linedir(struct Buf * buf,const char * filename,int lineno)92 struct Buf *buf_linedir (struct Buf *buf, const char* filename, int lineno)
93 {
94 char *dst, *t;
95 const char *src;
96 size_t tsz;
97
98 if (gen_line_dirs)
99 return buf;
100
101 tsz = strlen("#line \"\"\n") + /* constant parts */
102 2 * strlen (filename) + /* filename with possibly all backslashes escaped */
103 NUMCHARLINES + /* line number */
104 1; /* NUL */
105 t = malloc(tsz);
106 if (!t)
107 flexfatal (_("Allocation of buffer for line directive failed"));
108 for (dst = t + snprintf (t, tsz, "#line %d \"", lineno), src = filename; *src; *dst++ = *src++)
109 if (*src == '\\') /* escape backslashes */
110 *dst++ = '\\';
111 *dst++ = '"';
112 *dst++ = '\n';
113 *dst = '\0';
114 buf = buf_strappend (buf, t);
115 free(t);
116 return buf;
117 }
118
119
120 /** Append the contents of @a src to @a dest.
121 * @param @a dest the destination buffer
122 * @param @a dest the source buffer
123 * @return @a dest
124 */
buf_concat(struct Buf * dest,const struct Buf * src)125 struct Buf *buf_concat(struct Buf* dest, const struct Buf* src)
126 {
127 buf_append(dest, src->elts, src->nelts);
128 return dest;
129 }
130
131
132 /* Appends n characters in str to buf. */
buf_strnappend(struct Buf * buf,const char * str,int n)133 struct Buf *buf_strnappend (struct Buf *buf, const char *str, int n)
134 {
135 buf_append (buf, str, n + 1);
136
137 /* "undo" the '\0' character that buf_append() already copied. */
138 buf->nelts--;
139
140 return buf;
141 }
142
143 /* Appends characters in str to buf. */
buf_strappend(struct Buf * buf,const char * str)144 struct Buf *buf_strappend (struct Buf *buf, const char *str)
145 {
146 return buf_strnappend (buf, str, (int) strlen (str));
147 }
148
149 /* appends "#define str def\n" */
buf_strdefine(struct Buf * buf,const char * str,const char * def)150 struct Buf *buf_strdefine (struct Buf *buf, const char *str, const char *def)
151 {
152 buf_strappend (buf, "#define ");
153 buf_strappend (buf, " ");
154 buf_strappend (buf, str);
155 buf_strappend (buf, " ");
156 buf_strappend (buf, def);
157 buf_strappend (buf, "\n");
158 return buf;
159 }
160
161 /** Pushes "m4_define( [[def]], [[val]])m4_dnl" to end of buffer.
162 * @param buf A buffer as a list of strings.
163 * @param def The m4 symbol to define.
164 * @param val The definition; may be NULL.
165 * @return buf
166 */
buf_m4_define(struct Buf * buf,const char * def,const char * val)167 struct Buf *buf_m4_define (struct Buf *buf, const char* def, const char* val)
168 {
169 const char * fmt = "m4_define( [[%s]], [[[[%s]]]])m4_dnl\n";
170 char * str;
171 size_t strsz;
172
173 val = val?val:"";
174 strsz = strlen(fmt) + strlen(def) + strlen(val) + 2;
175 str = malloc(strsz);
176 if (!str)
177 flexfatal (_("Allocation of buffer for m4 def failed"));
178
179 snprintf(str, strsz, fmt, def, val);
180 buf_append(buf, &str, 1);
181 return buf;
182 }
183
184 /** Pushes "m4_undefine([[def]])m4_dnl" to end of buffer.
185 * @param buf A buffer as a list of strings.
186 * @param def The m4 symbol to undefine.
187 * @return buf
188 */
buf_m4_undefine(struct Buf * buf,const char * def)189 struct Buf *buf_m4_undefine (struct Buf *buf, const char* def)
190 {
191 const char * fmt = "m4_undefine( [[%s]])m4_dnl\n";
192 char * str;
193 size_t strsz;
194
195 strsz = strlen(fmt) + strlen(def) + 2;
196 str = malloc(strsz);
197 if (!str)
198 flexfatal (_("Allocation of buffer for m4 undef failed"));
199
200 snprintf(str, strsz, fmt, def);
201 buf_append(buf, &str, 1);
202 return buf;
203 }
204
205 /* create buf with 0 elements, each of size elem_size. */
buf_init(struct Buf * buf,size_t elem_size)206 void buf_init (struct Buf *buf, size_t elem_size)
207 {
208 buf->elts = NULL;
209 buf->nelts = 0;
210 buf->elt_size = elem_size;
211 buf->nmax = 0;
212 }
213
214 /* frees memory */
buf_destroy(struct Buf * buf)215 void buf_destroy (struct Buf *buf)
216 {
217 if (buf) {
218 free(buf->elts);
219 buf->elts = NULL;
220 }
221 }
222
223
224 /* appends ptr[] to buf, grow if necessary.
225 * n_elem is number of elements in ptr[], NOT bytes.
226 * returns buf.
227 * We grow by mod(512) boundaries.
228 */
229
buf_append(struct Buf * buf,const void * ptr,int n_elem)230 struct Buf *buf_append (struct Buf *buf, const void *ptr, int n_elem)
231 {
232 int n_alloc = 0;
233
234 if (!ptr || n_elem == 0)
235 return buf;
236
237 /* May need to alloc more. */
238 if (n_elem + buf->nelts > buf->nmax) {
239
240 /* exact count needed... */
241 n_alloc = n_elem + buf->nelts;
242
243 /* ...plus some extra */
244 if ((((size_t) n_alloc * buf->elt_size) % 512) != 0
245 && buf->elt_size < 512)
246 n_alloc += (int)
247 ((512 -
248 (((size_t) n_alloc * buf->elt_size) % 512)) /
249 buf->elt_size);
250
251 if (!buf->elts)
252 buf->elts =
253 allocate_array ((int) n_alloc, buf->elt_size);
254 else
255 buf->elts =
256 reallocate_array (buf->elts, (int) n_alloc,
257 buf->elt_size);
258
259 buf->nmax = n_alloc;
260 }
261
262 memcpy ((char *) buf->elts + (size_t) buf->nelts * buf->elt_size, ptr,
263 (size_t) n_elem * buf->elt_size);
264 buf->nelts += n_elem;
265
266 return buf;
267 }
268
269 /* vim:set tabstop=8 softtabstop=4 shiftwidth=4: */
270