1 /* Copyright (c) 1998, 1999 Thai Open Source Software Center Ltd
2 See the file COPYING for copying permission.
12 #include "winconfig.h"
13 #elif defined(MACOS_CLASSIC)
14 #include "macconfig.h"
15 #elif defined(__amigaos__)
16 #include "amigaconfig.h"
17 #elif defined(__WATCOMC__)
18 #include "watcomconfig.h"
19 #elif defined(HAVE_EXPAT_CONFIG_H)
20 #include <expat_config.h>
21 #endif /* ndef WIN32 */
24 #include "internal.h" /* for UNUSED_P only */
29 #if (defined(_MSC_VER) || (defined(__WATCOMC__) && !defined(__LINUX__)))
33 #if defined(__amigaos__) && defined(__USE_INLINE__)
34 #include <proto/expat.h>
43 #define O_BINARY _O_BINARY
52 #define READ_SIZE (1024*8)
62 reportError(XML_Parser parser, const XML_Char *filename)
64 enum XML_Error code = XML_GetErrorCode(parser);
65 const XML_Char *message = XML_ErrorString(code);
67 ftprintf(stdout, T("%s:%" XML_FMT_INT_MOD "u:%" XML_FMT_INT_MOD "u: %s\n"),
69 XML_GetErrorLineNumber(parser),
70 XML_GetErrorColumnNumber(parser),
73 ftprintf(stderr, T("%s: (unknown message %d)\n"), filename, code);
76 /* This implementation will give problems on files larger than INT_MAX. */
78 processFile(const void *data, size_t size,
79 const XML_Char *filename, void *args)
81 XML_Parser parser = ((PROCESS_ARGS *)args)->parser;
82 int *retPtr = ((PROCESS_ARGS *)args)->retPtr;
83 if (XML_Parse(parser, (const char *)data, (int)size, 1) == XML_STATUS_ERROR) {
84 reportError(parser, filename);
91 #if (defined(WIN32) || defined(__WATCOMC__))
94 isAsciiLetter(XML_Char c)
96 return (T('a') <= c && c <= T('z')) || (T('A') <= c && c <= T('Z'));
101 static const XML_Char *
102 resolveSystemId(const XML_Char *base, const XML_Char *systemId,
108 || *systemId == T('/')
109 #if (defined(WIN32) || defined(__WATCOMC__))
110 || *systemId == T('\\')
111 || (isAsciiLetter(systemId[0]) && systemId[1] == T(':'))
115 *toFree = (XML_Char *)malloc((tcslen(base) + tcslen(systemId) + 2)
119 tcscpy(*toFree, base);
121 if (tcsrchr(s, T('/')))
122 s = tcsrchr(s, T('/')) + 1;
123 #if (defined(WIN32) || defined(__WATCOMC__))
124 if (tcsrchr(s, T('\\')))
125 s = tcsrchr(s, T('\\')) + 1;
132 externalEntityRefFilemap(XML_Parser parser,
133 const XML_Char *context,
134 const XML_Char *base,
135 const XML_Char *systemId,
136 const XML_Char *UNUSED_P(publicId))
140 const XML_Char *filename;
141 XML_Parser entParser = XML_ExternalEntityParserCreate(parser, context, 0);
143 args.retPtr = &result;
144 args.parser = entParser;
145 filename = resolveSystemId(base, systemId, &s);
146 XML_SetBase(entParser, filename);
147 if (!filemap(filename, processFile, &args))
150 XML_ParserFree(entParser);
155 processStream(const XML_Char *filename, XML_Parser parser)
157 /* passing NULL for filename means read intput from stdin */
158 int fd = 0; /* 0 is the fileno for stdin */
160 if (filename != NULL) {
161 fd = topen(filename, O_BINARY|O_RDONLY);
169 char *buf = (char *)XML_GetBuffer(parser, READ_SIZE);
171 if (filename != NULL)
173 ftprintf(stderr, T("%s: out of memory\n"),
174 filename != NULL ? filename : "xmlwf");
177 nread = read(fd, buf, READ_SIZE);
179 tperror(filename != NULL ? filename : "STDIN");
180 if (filename != NULL)
184 if (XML_ParseBuffer(parser, nread, nread == 0) == XML_STATUS_ERROR) {
185 reportError(parser, filename != NULL ? filename : "STDIN");
186 if (filename != NULL)
191 if (filename != NULL)
200 externalEntityRefStream(XML_Parser parser,
201 const XML_Char *context,
202 const XML_Char *base,
203 const XML_Char *systemId,
204 const XML_Char *UNUSED_P(publicId))
207 const XML_Char *filename;
209 XML_Parser entParser = XML_ExternalEntityParserCreate(parser, context, 0);
210 filename = resolveSystemId(base, systemId, &s);
211 XML_SetBase(entParser, filename);
212 ret = processStream(filename, entParser);
214 XML_ParserFree(entParser);
219 XML_ProcessFile(XML_Parser parser,
220 const XML_Char *filename,
225 if (!XML_SetBase(parser, filename)) {
226 ftprintf(stderr, T("%s: out of memory"), filename);
230 if (flags & XML_EXTERNAL_ENTITIES)
231 XML_SetExternalEntityRefHandler(parser,
232 (flags & XML_MAP_FILE)
233 ? externalEntityRefFilemap
234 : externalEntityRefStream);
235 if (flags & XML_MAP_FILE) {
237 args.retPtr = &result;
238 args.parser = parser;
239 if (!filemap(filename, processFile, &args))
243 result = processStream(filename, parser);