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