1 /* Copyright (c) 1998, 1999 Thai Open Source Software Center Ltd
2 See the file COPYING for copying permission.
3 */
4
5 #include <stdio.h>
6 #include <stdlib.h>
7 #include <stddef.h>
8 #include <string.h>
9 #include <fcntl.h>
10 #ifdef COMPILED_FROM_DSP
11 #include "winconfig.h"
12 #else
13 #ifdef HAVE_EXPAT_CONFIG_H
14 #include "expat_config.h"
15 #endif
16 #endif
17 #include "expat.h"
18 #include "xmlfile.h"
19 #include "xmltchar.h"
20 #include "filemap.h"
21
22 #ifdef _MSC_VER
23 #include <io.h>
24 #endif
25
26 #ifdef HAVE_UNISTD_H
27 #include <unistd.h>
28 #endif
29
30 #ifndef O_BINARY
31 #ifdef _O_BINARY
32 #define O_BINARY _O_BINARY
33 #else
34 #define O_BINARY 0
35 #endif
36 #endif
37
38 #ifdef _DEBUG
39 #define READ_SIZE 16
40 #else
41 #define READ_SIZE (1024*8)
42 #endif
43
44
45 typedef struct {
46 XML_Parser parser;
47 int *retPtr;
48 } PROCESS_ARGS;
49
50 static void
reportError(XML_Parser parser,const XML_Char * filename)51 reportError(XML_Parser parser, const XML_Char *filename)
52 {
53 int code = XML_GetErrorCode(parser);
54 const XML_Char *message = XML_ErrorString(code);
55 if (message)
56 ftprintf(stdout, T("%s:%d:%d: %s\n"),
57 filename,
58 XML_GetErrorLineNumber(parser),
59 XML_GetErrorColumnNumber(parser),
60 message);
61 else
62 ftprintf(stderr, T("%s: (unknown message %d)\n"), filename, code);
63 }
64
65 static void
processFile(const void * data,size_t size,const XML_Char * filename,void * args)66 processFile(const void *data, size_t size,
67 const XML_Char *filename, void *args)
68 {
69 XML_Parser parser = ((PROCESS_ARGS *)args)->parser;
70 int *retPtr = ((PROCESS_ARGS *)args)->retPtr;
71 if (XML_Parse(parser, data, size, 1) == XML_STATUS_ERROR) {
72 reportError(parser, filename);
73 *retPtr = 0;
74 }
75 else
76 *retPtr = 1;
77 }
78
79 #ifdef WIN32
80
81 static int
isAsciiLetter(XML_Char c)82 isAsciiLetter(XML_Char c)
83 {
84 return (T('a') <= c && c <= T('z')) || (T('A') <= c && c <= T('Z'));
85 }
86
87 #endif /* WIN32 */
88
89 static const XML_Char *
resolveSystemId(const XML_Char * base,const XML_Char * systemId,XML_Char ** toFree)90 resolveSystemId(const XML_Char *base, const XML_Char *systemId,
91 XML_Char **toFree)
92 {
93 XML_Char *s;
94 *toFree = 0;
95 if (!base
96 || *systemId == T('/')
97 #ifdef WIN32
98 || *systemId == T('\\')
99 || (isAsciiLetter(systemId[0]) && systemId[1] == T(':'))
100 #endif
101 )
102 return systemId;
103 *toFree = (XML_Char *)malloc((tcslen(base) + tcslen(systemId) + 2)
104 * sizeof(XML_Char));
105 if (!*toFree)
106 return systemId;
107 tcscpy(*toFree, base);
108 s = *toFree;
109 if (tcsrchr(s, T('/')))
110 s = tcsrchr(s, T('/')) + 1;
111 #ifdef WIN32
112 if (tcsrchr(s, T('\\')))
113 s = tcsrchr(s, T('\\')) + 1;
114 #endif
115 tcscpy(s, systemId);
116 return *toFree;
117 }
118
119 static int
externalEntityRefFilemap(XML_Parser parser,const XML_Char * context,const XML_Char * base,const XML_Char * systemId,const XML_Char * publicId)120 externalEntityRefFilemap(XML_Parser parser,
121 const XML_Char *context,
122 const XML_Char *base,
123 const XML_Char *systemId,
124 const XML_Char *publicId)
125 {
126 int result;
127 XML_Char *s;
128 const XML_Char *filename;
129 XML_Parser entParser = XML_ExternalEntityParserCreate(parser, context, 0);
130 PROCESS_ARGS args;
131 args.retPtr = &result;
132 args.parser = entParser;
133 filename = resolveSystemId(base, systemId, &s);
134 XML_SetBase(entParser, filename);
135 if (!filemap(filename, processFile, &args))
136 result = 0;
137 free(s);
138 XML_ParserFree(entParser);
139 return result;
140 }
141
142 static int
processStream(const XML_Char * filename,XML_Parser parser)143 processStream(const XML_Char *filename, XML_Parser parser)
144 {
145 /* passing NULL for filename means read intput from stdin */
146 int fd = 0; /* 0 is the fileno for stdin */
147
148 if (filename != NULL) {
149 fd = topen(filename, O_BINARY|O_RDONLY);
150 if (fd < 0) {
151 tperror(filename);
152 return 0;
153 }
154 }
155 for (;;) {
156 int nread;
157 char *buf = XML_GetBuffer(parser, READ_SIZE);
158 if (!buf) {
159 if (filename != NULL)
160 close(fd);
161 ftprintf(stderr, T("%s: out of memory\n"),
162 filename != NULL ? filename : "xmlwf");
163 return 0;
164 }
165 nread = read(fd, buf, READ_SIZE);
166 if (nread < 0) {
167 tperror(filename != NULL ? filename : "STDIN");
168 if (filename != NULL)
169 close(fd);
170 return 0;
171 }
172 if (XML_ParseBuffer(parser, nread, nread == 0) == XML_STATUS_ERROR) {
173 reportError(parser, filename != NULL ? filename : "STDIN");
174 if (filename != NULL)
175 close(fd);
176 return 0;
177 }
178 if (nread == 0) {
179 if (filename != NULL)
180 close(fd);
181 break;;
182 }
183 }
184 return 1;
185 }
186
187 static int
externalEntityRefStream(XML_Parser parser,const XML_Char * context,const XML_Char * base,const XML_Char * systemId,const XML_Char * publicId)188 externalEntityRefStream(XML_Parser parser,
189 const XML_Char *context,
190 const XML_Char *base,
191 const XML_Char *systemId,
192 const XML_Char *publicId)
193 {
194 XML_Char *s;
195 const XML_Char *filename;
196 int ret;
197 XML_Parser entParser = XML_ExternalEntityParserCreate(parser, context, 0);
198 filename = resolveSystemId(base, systemId, &s);
199 XML_SetBase(entParser, filename);
200 ret = processStream(filename, entParser);
201 free(s);
202 XML_ParserFree(entParser);
203 return ret;
204 }
205
206 int
XML_ProcessFile(XML_Parser parser,const XML_Char * filename,unsigned flags)207 XML_ProcessFile(XML_Parser parser,
208 const XML_Char *filename,
209 unsigned flags)
210 {
211 int result;
212
213 if (!XML_SetBase(parser, filename)) {
214 ftprintf(stderr, T("%s: out of memory"), filename);
215 exit(1);
216 }
217
218 if (flags & XML_EXTERNAL_ENTITIES)
219 XML_SetExternalEntityRefHandler(parser,
220 (flags & XML_MAP_FILE)
221 ? externalEntityRefFilemap
222 : externalEntityRefStream);
223 if (flags & XML_MAP_FILE) {
224 PROCESS_ARGS args;
225 args.retPtr = &result;
226 args.parser = parser;
227 if (!filemap(filename, processFile, &args))
228 result = 0;
229 }
230 else
231 result = processStream(filename, parser);
232 return result;
233 }
234