/
archiver_iso9660.c
365 lines (308 loc) · 12.8 KB
1
2
3
4
5
/*
* ISO9660 support routines for PhysicsFS.
*
* Please see the file LICENSE.txt in the source's root directory.
*
6
7
8
* This file originally written by Christoph Nelles, but was largely
* rewritten by Ryan C. Gordon (so please harass Ryan about bugs and not
* Christoph).
9
10
11
12
13
14
*/
/*
* Handles CD-ROM disk images (and raw CD-ROM devices).
*
* Not supported:
15
* - Rock Ridge (needed for sparse files, device nodes and symlinks, etc).
16
* - Non 2048 Sectors
17
* - TRANS.TBL (maps 8.3 filenames on old discs to long filenames).
18
* - Multiextents (4gb max file size without it).
19
20
21
22
23
24
25
26
27
28
29
30
31
* - UDF
*
* Deviations from the standard
* - Ignores mandatory sort order
* - Allows various invalid file names
*
* Problems
* - Ambiguities in the standard
*/
#define __PHYSICSFS_INTERNAL__
#include "physfs_internal.h"
32
33
#if PHYSFS_SUPPORTS_ISO9660
34
35
#include <time.h>
36
37
38
39
40
41
42
43
44
45
46
47
/* ISO9660 often stores values in both big and little endian formats: little
first, followed by big. While technically there might be different values
in each, we just always use the littleendian ones and swap ourselves. The
fields aren't aligned anyhow, so you have to serialize them in any case
to avoid crashes on many CPU archs in any case. */
static int iso9660LoadEntries(PHYSFS_Io *io, const int joliet,
const char *base, const PHYSFS_uint64 dirstart,
const PHYSFS_uint64 dirend, void *unpkarc);
static int iso9660AddEntry(PHYSFS_Io *io, const int joliet, const int isdir,
const char *base, PHYSFS_uint8 *fname,
48
const int fnamelen, const PHYSFS_sint64 ts,
49
50
const PHYSFS_uint64 pos, const PHYSFS_uint64 len,
void *unpkarc)
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
{
char *fullpath;
char *fnamecpy;
size_t baselen;
size_t fullpathlen;
void *entry;
if (fnamelen == 1 && ((fname[0] == 0) || (fname[0] == 1)))
return 1; /* Magic that represents "." and "..", ignore */
BAIL_IF(fnamelen == 0, PHYSFS_ERR_CORRUPT, 0);
assert(fnamelen > 0);
assert(fnamelen <= 255);
BAIL_IF(joliet && (fnamelen % 2), PHYSFS_ERR_CORRUPT, 0);
/* Joliet is UCS-2, so at most UTF-8 will double the byte size */
baselen = strlen(base);
fullpathlen = baselen + (fnamelen * (joliet ? 2 : 1)) + 2;
fullpath = (char *) __PHYSFS_smallAlloc(fullpathlen);
BAIL_IF(!fullpath, PHYSFS_ERR_OUT_OF_MEMORY, 0);
fnamecpy = fullpath;
if (baselen > 0)
73
{
74
75
76
77
snprintf(fullpath, fullpathlen, "%s/", base);
fnamecpy += baselen + 1;
fullpathlen -= baselen - 1;
} /* if */
78
79
if (joliet)
80
{
81
82
83
84
85
86
87
PHYSFS_uint16 *ucs2 = (PHYSFS_uint16 *) fname;
int total = fnamelen / 2;
int i;
for (i = 0; i < total; i++)
ucs2[i] = PHYSFS_swapUBE16(ucs2[i]);
ucs2[total] = '\0';
PHYSFS_utf8FromUcs2(ucs2, fnamecpy, fullpathlen);
88
89
90
} /* if */
else
{
91
92
/* !!! FIXME: we assume the filenames are low-ASCII; if they use
any high-ASCII chars, they will be invalid UTF-8. */
93
94
95
96
97
98
99
100
101
102
memcpy(fnamecpy, fname, fnamelen);
fnamecpy[fnamelen] = '\0';
if (!isdir)
{
/* find last SEPARATOR2 */
char *ptr = strrchr(fnamecpy, ';');
if (ptr && (ptr != fnamecpy))
*(ptr--) = '\0';
else
ptr = fnamecpy + (fnamelen - 1);
103
104
105
106
107
108
/* chop out any trailing '.', as done in all implementations */
if (*ptr == '.')
*ptr = '\0';
} /* if */
} /* else */
109
110
entry = UNPK_addEntry(unpkarc, fullpath, isdir, ts, ts, pos, len);
111
if ((entry) && (isdir))
112
{
113
114
if (!iso9660LoadEntries(io, joliet, fullpath, pos, pos + len, unpkarc))
entry = NULL; /* so we report a failure later. */
115
116
} /* if */
117
118
119
__PHYSFS_smallFree(fullpath);
return entry != NULL;
} /* iso9660AddEntry */
120
121
122
123
static int iso9660LoadEntries(PHYSFS_Io *io, const int joliet,
const char *base, const PHYSFS_uint64 dirstart,
const PHYSFS_uint64 dirend, void *unpkarc)
124
{
125
PHYSFS_uint64 readpos = dirstart;
126
127
128
while (1)
{
129
130
131
132
133
134
135
136
137
PHYSFS_uint8 recordlen;
PHYSFS_uint8 extattrlen;
PHYSFS_uint32 extent;
PHYSFS_uint32 datalen;
PHYSFS_uint8 ignore[4];
PHYSFS_uint8 year, month, day, hour, minute, second, offset;
PHYSFS_uint8 flags;
PHYSFS_uint8 fnamelen;
PHYSFS_uint8 fname[256];
138
139
PHYSFS_sint64 timestamp;
struct tm t;
140
141
142
143
int isdir;
int multiextent;
BAIL_IF_ERRPASS(!io->seek(io, readpos), 0);
144
145
/* recordlen = 0 -> no more entries or fill entry */
146
147
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &recordlen, 1), 0);
if (recordlen == 0)
148
149
{
/* if we are in the last sector of the directory & it's 0 -> end */
150
if ((dirend - 2048) <= (readpos - 1))
151
152
153
154
155
156
157
break; /* finished */
/* else skip to the next sector & continue; */
readpos = (((readpos - 1) / 2048) + 1) * 2048;
continue;
} /* if */
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
readpos += recordlen; /* ready to seek to next record. */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &extattrlen, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &extent, 4), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* extent be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &datalen, 4), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* datalen be */
/* record timestamp */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &year, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &month, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &day, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &hour, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &minute, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &second, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &offset, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &flags, 1), 0);
isdir = (flags & (1 << 1)) != 0;
multiextent = (flags & (1 << 7)) != 0;
BAIL_IF(multiextent, PHYSFS_ERR_UNSUPPORTED, 0); /* !!! FIXME */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 1), 0); /* unit size */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 1), 0); /* interleave gap */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* seqnum le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* seqnum be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &fnamelen, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, fname, fnamelen), 0);
187
188
189
190
191
192
193
194
195
196
t.tm_sec = second;
t.tm_min = minute;
t.tm_hour = hour;
t.tm_mday = day;
t.tm_mon = month - 1;
t.tm_year = year;
t.tm_wday = 0;
t.tm_yday = 0;
t.tm_isdst = -1;
timestamp = (PHYSFS_sint64) mktime(&t);
197
198
199
extent += extattrlen; /* skip extended attribute record. */
if (!iso9660AddEntry(io, joliet, isdir, base, fname, fnamelen,
200
timestamp, extent * 2048, datalen, unpkarc))
201
{
202
return 0;
203
204
205
} /* if */
} /* while */
206
207
return 1;
} /* iso9660LoadEntries */
208
209
210
211
static int parseVolumeDescriptor(PHYSFS_Io *io, PHYSFS_uint64 *_rootpos,
PHYSFS_uint64 *_rootlen, int *_joliet)
212
{
213
214
215
216
PHYSFS_uint64 pos = 32768; /* start at the Primary Volume Descriptor */
int found = 0;
int first = 1;
int done = 0;
217
218
*_joliet = 0;
219
220
while (!done)
221
{
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
PHYSFS_uint8 type;
PHYSFS_uint8 identifier[5];
PHYSFS_uint8 version;
PHYSFS_uint8 flags;
PHYSFS_uint8 escapeseqs[32];
PHYSFS_uint8 ignore[32];
PHYSFS_uint16 blocksize;
PHYSFS_uint32 extent;
PHYSFS_uint32 datalen;
BAIL_IF_ERRPASS(!io->seek(io, pos), 0);
pos += 2048; /* each volume descriptor is 2048 bytes */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &type, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &identifier, 5), 0);
if (memcmp(identifier, "CD001", 5) != 0)
239
{
240
241
BAIL_IF(first, PHYSFS_ERR_UNSUPPORTED, 0); /* maybe not an iso? */
continue; /* just skip this one */
242
243
} /* if */
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
first = 0; /* okay, this is probably an iso. */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &version, 1), 0); /* version */
BAIL_IF(version != 1, PHYSFS_ERR_UNSUPPORTED, 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &flags, 1), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 32), 0); /* system id */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 32), 0); /* volume id */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 8), 0); /* reserved */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* space le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* space be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, escapeseqs, 32), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* setsize le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* setsize be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* seq num le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* seq num be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &blocksize, 2), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 2), 0); /* blocklen be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* pthtablen le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* pthtablen be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* pthtabpos le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* optpthtabpos le */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* pthtabpos be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* optpthtabpos be */
/* root directory record... */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 1), 0); /* len */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 1), 0); /* attr len */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &extent, 4), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* extent be */
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, &datalen, 4), 0);
BAIL_IF_ERRPASS(!__PHYSFS_readAll(io, ignore, 4), 0); /* datalen be */
/* !!! FIXME: deal with this properly. */
blocksize = PHYSFS_swapULE32(blocksize);
BAIL_IF(blocksize && (blocksize != 2048), PHYSFS_ERR_UNSUPPORTED, 0);
switch (type)
282
{
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
case 1: /* Primary Volume Descriptor */
case 2: /* Supplementary Volume Descriptor */
if (found < type)
{
*_rootpos = PHYSFS_swapULE32(extent) * 2048;
*_rootlen = PHYSFS_swapULE32(datalen);
found = type;
if (found == 2) /* possible Joliet volume */
{
const PHYSFS_uint8 *s = escapeseqs;
*_joliet = !(flags & 1) &&
(s[0] == 0x25) && (s[1] == 0x2F) &&
((s[2] == 0x40) || (s[2] == 0x43) || (s[2] == 0x45));
} /* if */
} /* if */
break;
case 255: /* type 255 terminates the volume descriptor list */
done = 1;
break;
default:
break; /* skip unknown types. */
} /* switch */
308
309
} /* while */
310
BAIL_IF(!found, PHYSFS_ERR_CORRUPT, 0);
311
312
return 1;
313
} /* parseVolumeDescriptor */
314
315
316
static void *ISO9660_openArchive(PHYSFS_Io *io, const char *filename, int forWriting)
317
{
318
319
PHYSFS_uint64 rootpos = 0;
PHYSFS_uint64 len = 0;
320
321
int joliet = 0;
void *unpkarc = NULL;
322
323
assert(io != NULL); /* shouldn't ever happen. */
324
325
326
BAIL_IF(forWriting, PHYSFS_ERR_READ_ONLY, NULL);
BAIL_IF_ERRPASS(!parseVolumeDescriptor(io, &rootpos, &len, &joliet), NULL);
327
328
329
unpkarc = UNPK_openArchive(io);
BAIL_IF_ERRPASS(!unpkarc, NULL);
330
331
332
if (!iso9660LoadEntries(io, joliet, "", rootpos, rootpos + len, unpkarc))
{
333
UNPK_abandonArchive(unpkarc);
334
335
return NULL;
} /* if */
336
337
338
return unpkarc;
} /* ISO9660_openArchive */
339
340
341
342
const PHYSFS_Archiver __PHYSFS_Archiver_ISO9660 =
{
343
CURRENT_PHYSFS_ARCHIVER_API_VERSION,
344
345
346
{
"ISO",
"ISO9660 image file",
347
348
"Ryan C. Gordon <icculus@icculus.org>",
"https://icculus.org/physfs/",
349
0, /* supportsSymlinks */
350
},
351
ISO9660_openArchive,
352
353
354
355
356
357
358
359
UNPK_enumerateFiles,
UNPK_openRead,
UNPK_openWrite,
UNPK_openAppend,
UNPK_remove,
UNPK_mkdir,
UNPK_stat,
UNPK_closeArchive
360
361
};
362
363
#endif /* defined PHYSFS_SUPPORTS_ISO9660 */
364
/* end of archiver_iso9660.c ... */