util.c revision 1.5 1 1.5 mbalmer /* $NetBSD: util.c,v 1.5 2012/03/06 16:55:18 mbalmer Exp $ */
2 1.1 phil
3 1.1 phil /*
4 1.1 phil * Copyright 1997 Piermont Information Systems Inc.
5 1.1 phil * All rights reserved.
6 1.1 phil *
7 1.1 phil * Written by Philip A. Nelson for Piermont Information Systems Inc.
8 1.1 phil *
9 1.1 phil * Redistribution and use in source and binary forms, with or without
10 1.1 phil * modification, are permitted provided that the following conditions
11 1.1 phil * are met:
12 1.1 phil * 1. Redistributions of source code must retain the above copyright
13 1.1 phil * notice, this list of conditions and the following disclaimer.
14 1.1 phil * 2. Redistributions in binary form must reproduce the above copyright
15 1.1 phil * notice, this list of conditions and the following disclaimer in the
16 1.1 phil * documentation and/or other materials provided with the distribution.
17 1.5 mbalmer * 3. The name of Piermont Information Systems Inc. may not be used to endorse
18 1.1 phil * or promote products derived from this software without specific prior
19 1.1 phil * written permission.
20 1.1 phil *
21 1.1 phil * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
22 1.1 phil * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 1.1 phil * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 1.1 phil * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
25 1.1 phil * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
26 1.1 phil * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27 1.1 phil * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
28 1.1 phil * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
29 1.1 phil * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
30 1.1 phil * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
31 1.1 phil * THE POSSIBILITY OF SUCH DAMAGE.
32 1.1 phil *
33 1.1 phil */
34 1.1 phil
35 1.1 phil /* util.c - utility routines. */
36 1.2 agc
37 1.4 jmc #if HAVE_NBTOOL_CONFIG_H
38 1.4 jmc #include "nbtool_config.h"
39 1.4 jmc #endif
40 1.4 jmc
41 1.2 agc #include <sys/cdefs.h>
42 1.2 agc
43 1.3 lukem #if defined(__RCSID) && !defined(lint)
44 1.5 mbalmer __RCSID("$NetBSD: util.c,v 1.5 2012/03/06 16:55:18 mbalmer Exp $");
45 1.2 agc #endif
46 1.2 agc
47 1.1 phil #include <stdio.h>
48 1.1 phil #include <stdlib.h>
49 1.1 phil #include <string.h>
50 1.1 phil #include <stdarg.h>
51 1.1 phil #include "defs.h"
52 1.1 phil
53 1.1 phil /* Error routine */
54 1.1 phil void
55 1.1 phil yyerror(const char *fmt, ...)
56 1.1 phil {
57 1.1 phil va_list args;
58 1.1 phil
59 1.5 mbalmer va_start(args, fmt);
60 1.5 mbalmer printf("%s:%d: ", src_name, line_no);
61 1.5 mbalmer vfprintf(stdout, fmt, args);
62 1.5 mbalmer printf("\n");
63 1.5 mbalmer va_end(args);
64 1.1 phil had_errors = TRUE;
65 1.1 phil }
66 1.1 phil
67 1.1 phil /* Buffer routines */
68 1.1 phil static char *mc_buff = NULL;
69 1.1 phil static int mc_size = 0;
70 1.1 phil static int mc_loc = 0;
71 1.1 phil
72 1.5 mbalmer void
73 1.5 mbalmer buff_add_ch(char ch)
74 1.1 phil {
75 1.1 phil char *t;
76 1.1 phil
77 1.1 phil if (mc_loc >= mc_size-1) {
78 1.1 phil if (mc_size == 0)
79 1.1 phil mc_size = 80;
80 1.1 phil else
81 1.1 phil mc_size *= 2;
82 1.5 mbalmer t = (char *)malloc(mc_size);
83 1.1 phil if (t == NULL) {
84 1.5 mbalmer (void)fprintf(stderr, "%s:%d: Malloc error\n",
85 1.1 phil src_name, line_no);
86 1.5 mbalmer exit(1);
87 1.1 phil }
88 1.1 phil if (mc_buff != NULL) {
89 1.5 mbalmer strcpy(t, mc_buff);
90 1.5 mbalmer free(mc_buff);
91 1.1 phil }
92 1.1 phil mc_buff = t;
93 1.1 phil }
94 1.1 phil mc_buff[mc_loc++] = ch;
95 1.1 phil mc_buff[mc_loc] = '\0';
96 1.1 phil }
97 1.1 phil
98 1.1 phil /* get a copy of the string ! */
99 1.1 phil char *
100 1.5 mbalmer buff_copy(void)
101 1.1 phil {
102 1.5 mbalmer char *res = strdup(mc_buff);
103 1.5 mbalmer
104 1.1 phil mc_loc = 0;
105 1.1 phil mc_buff[0] = '\0';
106 1.5 mbalmer return res;
107 1.1 phil }
108