util.c revision 1.1 1 1.1 phil /* $NetBSD: util.c,v 1.1 1997/09/26 17:54:09 phil 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.1 phil
41 1.1 phil #include <stdio.h>
42 1.1 phil #include <stdlib.h>
43 1.1 phil #include <string.h>
44 1.1 phil #include <stdarg.h>
45 1.1 phil #include "defs.h"
46 1.1 phil
47 1.1 phil /* Error routine */
48 1.1 phil void
49 1.1 phil yyerror(const char *fmt, ...)
50 1.1 phil {
51 1.1 phil va_list args;
52 1.1 phil
53 1.1 phil va_start (args, fmt);
54 1.1 phil printf ("%s:%d: ", src_name, line_no);
55 1.1 phil vfprintf (stdout, fmt, args);
56 1.1 phil printf ("\n");
57 1.1 phil va_end (args);
58 1.1 phil had_errors = TRUE;
59 1.1 phil }
60 1.1 phil
61 1.1 phil
62 1.1 phil /* Buffer routines */
63 1.1 phil static char *mc_buff = NULL;
64 1.1 phil static int mc_size = 0;
65 1.1 phil static int mc_loc = 0;
66 1.1 phil
67 1.1 phil void buff_add_ch (char ch)
68 1.1 phil {
69 1.1 phil char *t;
70 1.1 phil
71 1.1 phil if (mc_loc >= mc_size-1) {
72 1.1 phil if (mc_size == 0)
73 1.1 phil mc_size = 80;
74 1.1 phil else
75 1.1 phil mc_size *= 2;
76 1.1 phil t = (char *) malloc (mc_size);
77 1.1 phil if (t == NULL) {
78 1.1 phil (void) fprintf (stderr, "%s:%d: Malloc error\n",
79 1.1 phil src_name, line_no);
80 1.1 phil exit (1);
81 1.1 phil }
82 1.1 phil if (mc_buff != NULL) {
83 1.1 phil strcpy (t, mc_buff);
84 1.1 phil free (mc_buff);
85 1.1 phil }
86 1.1 phil mc_buff = t;
87 1.1 phil }
88 1.1 phil mc_buff[mc_loc++] = ch;
89 1.1 phil mc_buff[mc_loc] = '\0';
90 1.1 phil }
91 1.1 phil
92 1.1 phil /* get a copy of the string ! */
93 1.1 phil
94 1.1 phil char *
95 1.1 phil buff_copy (void)
96 1.1 phil {
97 1.1 phil char *res = strdup (mc_buff);
98 1.1 phil mc_loc = 0;
99 1.1 phil mc_buff[0] = '\0';
100 1.1 phil return res;
101 1.1 phil }
102