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"
36 static const int want_near_indication
= 0;
38 static void make_print(char *str
)
48 static void generic_msg(const char *s
, const char *t
, const char *n
, va_list ap
)
50 fprintf(stderr
, "%s:%d: %s: ", input_name
? input_name
: "stdin", line_number
, t
);
51 vfprintf(stderr
, s
, ap
);
53 if (want_near_indication
)
60 fprintf(stderr
, " near '%s'", cpy
);
67 /* yyerror: yacc assumes this is not newline terminated. */
68 int parser_error(const char *s
, ...)
72 generic_msg(s
, "Error", parser_text
, ap
);
73 fprintf(stderr
, "\n");
79 void error_loc(const char *s
, ...)
83 generic_msg(s
, "Error", parser_text
, ap
);
88 int parser_warning(const char *s
, ...)
92 generic_msg(s
, "Warning", parser_text
, ap
);
97 void error(const char *s
, ...)
101 fprintf(stderr
, "error: ");
102 vfprintf(stderr
, s
, ap
);
107 void warning(const char *s
, ...)
111 fprintf(stderr
, "warning: ");
112 vfprintf(stderr
, s
, ap
);
116 void chat(const char *s
, ...)
118 if(debuglevel
& DEBUGLEVEL_CHAT
)
122 fprintf(stderr
, "chat: ");
123 vfprintf(stderr
, s
, ap
);
128 char *dup_basename(const char *name
, const char *ext
)
131 int extlen
= strlen(ext
);
138 slash
= strrchr(name
, '/');
142 namelen
= strlen(name
);
144 /* +4 for later extension and +1 for '\0' */
145 base
= xmalloc(namelen
+4 +1);
147 if(!strcasecmp(name
+ namelen
-extlen
, ext
))
149 base
[namelen
- extlen
] = '\0';
154 size_t widl_getline(char **linep
, size_t *lenp
, FILE *fp
)
166 while (fgets(&line
[n
], len
- n
, fp
))
168 n
+= strlen(&line
[n
]);
169 if (line
[n
- 1] == '\n')
171 else if (n
== len
- 1)
174 line
= xrealloc(line
, len
);
183 void *xmalloc(size_t size
)
191 error("Virtual memory exhausted.\n");
193 memset(res
, 0x55, size
);
198 void *xrealloc(void *p
, size_t size
)
203 res
= realloc(p
, size
);
206 error("Virtual memory exhausted.\n");
211 char *xstrdup(const char *str
)
216 s
= xmalloc(strlen(str
)+1);
217 return strcpy(s
, str
);