4 * Copyright 1998 Bertho A. Stultiens
5 * Copyright 2002 Ove Kaaven
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #include "wine/port.h"
37 static const int want_near_indication
= 0;
39 static void make_print(char *str
)
49 static void generic_msg(const char *s
, const char *t
, const char *n
, va_list ap
)
51 fprintf(stderr
, "%s:%d: %s: ", input_name
? input_name
: "stdin", line_number
, t
);
52 vfprintf(stderr
, s
, ap
);
54 if (want_near_indication
)
61 fprintf(stderr
, " near '%s'", cpy
);
68 int parser_error(const char *s
, ...)
72 generic_msg(s
, "Error", parser_text
, ap
);
78 int parser_warning(const char *s
, ...)
82 generic_msg(s
, "Warning", parser_text
, ap
);
87 void error(const char *s
, ...)
91 fprintf(stderr
, "error: ");
92 vfprintf(stderr
, s
, ap
);
97 void warning(const char *s
, ...)
101 fprintf(stderr
, "warning: ");
102 vfprintf(stderr
, s
, ap
);
106 void chat(const char *s
, ...)
108 if(debuglevel
& DEBUGLEVEL_CHAT
)
112 fprintf(stderr
, "chat: ");
113 vfprintf(stderr
, s
, ap
);
118 char *dup_basename(const char *name
, const char *ext
)
121 int extlen
= strlen(ext
);
128 slash
= strrchr(name
, '/');
132 namelen
= strlen(name
);
134 /* +4 for later extension and +1 for '\0' */
135 base
= xmalloc(namelen
+4 +1);
137 if(!strcasecmp(name
+ namelen
-extlen
, ext
))
139 base
[namelen
- extlen
] = '\0';
144 size_t widl_getline(char **linep
, size_t *lenp
, FILE *fp
)
156 while (fgets(&line
[n
], len
- n
, fp
))
158 n
+= strlen(&line
[n
]);
159 if (line
[n
- 1] == '\n')
161 else if (n
== len
- 1)
164 line
= xrealloc(line
, len
);
173 void *xmalloc(size_t size
)
181 error("Virtual memory exhausted.\n");
183 memset(res
, 0x55, size
);
188 void *xrealloc(void *p
, size_t size
)
193 res
= realloc(p
, size
);
196 error("Virtual memory exhausted.\n");
201 char *xstrdup(const char *str
)
206 s
= xmalloc(strlen(str
)+1);
207 return strcpy(s
, str
);