/[gxemul]/trunk/src/disk/bootblock_iso9660.c
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/src/disk/bootblock_iso9660.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 44 - (hide annotations)
Mon Oct 8 16:22:56 2007 UTC (13 years, 3 months ago) by dpavlin
File MIME type: text/plain
File size: 9501 byte(s)
++ trunk/HISTORY	(local)
$Id: HISTORY,v 1.1632 2007/09/11 21:46:35 debug Exp $
20070616	Implementing the MIPS32/64 revision 2 "ror" instruction.
20070617	Adding a struct for each physpage which keeps track of which
		ranges within that page (base offset, length) that are
		continuously translatable. When running with native code
		generation enabled (-b), a range is added after each read-
		ahead loop.
		Experimenting with using the physical program counter sample
		data (implemented 20070608) together with the "translatable
		range" information, to figure out which physical address ranges
		would be worth translating to native code (if the number of
		samples falling within a range is above a certain threshold).
20070618	Adding automagic building of .index comment files for
		src/file/, src/promemul/, src src/useremul/ as well.
		Adding a "has been translated" bit to the ranges, so that only
		not-yet-translated ranges will be sampled.
20070619	Moving src/cpu.c and src/memory_rw.c into src/cpus/,
		src/device.c into src/devices/, and src/machine.c into
		src/machines/.
		Creating a skeleton cc/ld native backend module; beginning on
		the function which will detect cc command line, etc.
20070620	Continuing on the native code generation infrastructure.
20070621	Moving src/x11.c and src/console.c into a new src/console/
		subdir (for everything that is console or framebuffer related).
		Moving src/symbol*.c into a new src/symbol/, which should
		contain anything that is symbol handling related.
20070624	Making the program counter sampling threshold a "settings
		variable" (sampling_threshold), i.e. it can now be changed
		during runtime.
		Switching the RELEASE notes format from plain text to HTML.
		If the TMPDIR environment variable is set, it is used instead
		of "/tmp" for temporary files.
		Continuing on the cc/ld backend: simple .c code is generated,
		the compiler and linker are called, etc.
		Adding detection of host architecture to the configure script
		(again), and adding icache invalidation support (only
		implemented for Alpha hosts so far).
20070625	Simplifying the program counter sampling mechanism.
20070626	Removing the cc/ld native code generation stuff, program
		counter sampling, etc; it would not have worked well in the
		general case.
20070627	Removing everything related to native code generation.
20070629	Removing the (practically unusable) support for multiple
		emulations. (The single emulation allowed now still supports
		multiple simultaneous machines, as before.)
		Beginning on PCCTWO and M88K interrupts.
20070723	Adding a dummy skeleton for emulation of M32R processors.
20070901	Fixing a warning found by "gcc version 4.3.0 20070817
		(experimental)" on amd64.
20070905	Removing some more traces of the old "multiple emulations"
		code.
		Also looking in /usr/local/include and /usr/local/lib for
		X11 libs, when running configure.
20070909	Minor updates to the guest OS install instructions, in
		preparation for the NetBSD 4.0 release.
20070918	More testing of NetBSD 4.0 RC1.

1 dpavlin 36 /*
2     * Copyright (C) 2003-2007 Anders Gavare. All rights reserved.
3     *
4     * Redistribution and use in source and binary forms, with or without
5     * modification, are permitted provided that the following conditions are met:
6     *
7     * 1. Redistributions of source code must retain the above copyright
8     * notice, this list of conditions and the following disclaimer.
9     * 2. Redistributions in binary form must reproduce the above copyright
10     * notice, this list of conditions and the following disclaimer in the
11     * documentation and/or other materials provided with the distribution.
12     * 3. The name of the author may not be used to endorse or promote products
13     * derived from this software without specific prior written permission.
14     *
15     * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16     * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17     * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18     * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19     * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20     * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21     * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22     * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23     * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24     * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25     * SUCH DAMAGE.
26     *
27     *
28 dpavlin 44 * $Id: bootblock_iso9660.c,v 1.4 2007/06/23 23:59:14 debug Exp $
29 dpavlin 36 *
30     * ISO9660 CD-ROM "bootblock" handling.
31     *
32     * There is really no bootblock; instead, the file which is to be booted
33     * is extracted into a temporary file, and started as if it was given
34     * as a normal file argument on the command line.
35     *
36     * TODO: This is really ugly. It's a quick hack. All the magic constants
37     * need to be replaced with real code!
38     */
39    
40     #include <stdio.h>
41     #include <stdlib.h>
42     #include <string.h>
43     #include <sys/types.h>
44     #include <unistd.h>
45    
46     #include "cpu.h"
47     #include "diskimage.h"
48     #include "machine.h"
49     #include "misc.h"
50    
51     /* #define ISO_DEBUG */
52    
53    
54     static void debug_print_volume_id_and_filename(int iso_type,
55     unsigned char *buf, char *filename)
56     {
57     /* Volume ID: */
58     char str[35];
59     int i, ofs = iso_type == 3? 48 : 40;
60    
61     memcpy(str, buf + ofs, sizeof(str));
62     str[32] = '\0'; i = 31;
63    
64     while (i >= 0 && str[i]==' ')
65     str[i--] = '\0';
66     if (str[0])
67     debug("\"%s\"", str);
68     else {
69     /* System ID: */
70     ofs = iso_type == 3? 16 : 8;
71     memcpy(str, buf + ofs, sizeof(str));
72     str[32] = '\0'; i = 31;
73     while (i >= 0 && str[i]==' ')
74     str[i--] = '\0';
75     if (str[0])
76     debug("\"%s\"", str);
77     else
78     debug("(no ID)");
79     }
80    
81     debug(":%s\n", filename);
82     }
83    
84    
85     /*
86     * iso_load_bootblock():
87     *
88     * Try to load a kernel from an ISO 9660 disk image. iso_type is 1 for
89     * "CD001" (standard), 2 for "CDW01" (ECMA), and 3 for "CDROM" (Sierra).
90     *
91     * TODO: This function uses too many magic offsets and so on; it should be
92     * cleaned up some day.
93     *
94     * Returns 1 on success, 0 on failure.
95     */
96     int iso_load_bootblock(struct machine *m, struct cpu *cpu,
97     int disk_id, int disk_type, int iso_type, unsigned char *buf,
98     int *n_loadp, char ***load_namesp)
99     {
100 dpavlin 42 int filenr, dirlen, res = 0, res2, iadd = DEBUG_INDENTATION, found_dir;
101     uint64_t dirofs, fileofs, filelen;
102     unsigned char *dirbuf = NULL, *dp, *match_entry = NULL, *filebuf = NULL;
103     char *p, *filename_orig, *filename, *tmpfname = NULL;
104 dpavlin 36 char **new_array;
105 dpavlin 44 char *tmpdir = getenv("TMPDIR");
106 dpavlin 36 int tmpfile_handle;
107    
108 dpavlin 44 if (tmpdir == NULL)
109     tmpdir = DEFAULT_TMP_DIR;
110    
111 dpavlin 42 CHECK_ALLOCATION(filename = strdup(cpu->machine->boot_kernel_filename));
112 dpavlin 36 filename_orig = filename;
113    
114     debug("ISO9660 boot:\n");
115     debug_indentation(iadd);
116    
117     debug_print_volume_id_and_filename(iso_type, buf, filename);
118    
119    
120     /*
121     * Traverse the directory structure to find the kernel.
122     */
123    
124     dirlen = buf[0x84] + 256*buf[0x85] + 65536*buf[0x86];
125     if (dirlen != buf[0x8b] + 256*buf[0x8a] + 65536*buf[0x89])
126     fatal("WARNING: Root directory length mismatch?\n");
127    
128     dirofs = (int64_t)(buf[0x8c] + (buf[0x8d] << 8) + (buf[0x8e] << 16) +
129     ((uint64_t)buf[0x8f] << 24)) * 2048;
130    
131     #ifdef ISO_DEBUG
132     debug("root = %i bytes at 0x%llx\n", dirlen, (long long)dirofs);
133     #endif
134    
135 dpavlin 42 CHECK_ALLOCATION(dirbuf = malloc(dirlen));
136 dpavlin 36 res2 = diskimage_access(m, disk_id, disk_type, 0, dirofs, dirbuf,
137     dirlen);
138     if (!res2) {
139     fatal("Couldn't read the disk image. Aborting.\n");
140     goto ret;
141     }
142    
143     found_dir = 1; /* Assume root dir */
144     dp = dirbuf; filenr = 1;
145     p = NULL;
146     while (dp < dirbuf + dirlen) {
147     size_t i, nlen = dp[0];
148     int x = dp[2] + (dp[3] << 8) + (dp[4] << 16) +
149     ((uint64_t)dp[5] << 24);
150     int y = dp[6] + (dp[7] << 8);
151     char direntry[65];
152    
153     dp += 8;
154    
155     /*
156     * As long as there is an \ or / in the filename, then we
157     * have not yet found the directory.
158     */
159     p = strchr(filename, '/');
160     if (p == NULL)
161     p = strchr(filename, '\\');
162    
163     #ifdef ISO_DEBUG
164     debug("%i%s: %i, %i, \"", filenr, filenr == found_dir?
165     " [CURRENT]" : "", x, y);
166     #endif
167     for (i=0; i<nlen && i<sizeof(direntry)-1; i++)
168     if (dp[i]) {
169     direntry[i] = dp[i];
170     #ifdef ISO_DEBUG
171     debug("%c", dp[i]);
172     #endif
173     } else
174     break;
175     #ifdef ISO_DEBUG
176     debug("\"\n");
177     #endif
178     direntry[i] = '\0';
179    
180     /* A directory name match? */
181     if ((p != NULL && strncasecmp(filename, direntry, nlen) == 0
182     && nlen == (size_t)p - (size_t)filename && found_dir == y)
183     || (p == NULL && direntry[0] == '\0') ) {
184     found_dir = filenr;
185     if (p != NULL)
186     filename = p+1;
187     dirofs = 2048 * (int64_t)x;
188     }
189    
190     dp += nlen;
191    
192     /* 16-bit aligned lenght: */
193     if (nlen & 1)
194     dp ++;
195    
196     filenr ++;
197     }
198    
199     p = strchr(filename, '/');
200     if (p == NULL)
201     p = strchr(filename, '\\');
202    
203     if (p != NULL) {
204     char *blah = filename_orig;
205    
206     fatal("could not find '%s' in /", filename);
207    
208     /* Print the first part of the filename: */
209     while (blah != filename)
210     fatal("%c", *blah++);
211    
212     fatal("\n");
213     goto ret;
214     }
215    
216     /* debug("dirofs = 0x%llx\n", (long long)dirofs); */
217    
218     /* Free the old dirbuf, and allocate a new one: */
219     free(dirbuf);
220 dpavlin 42 CHECK_ALLOCATION(dirbuf = malloc(512));
221 dpavlin 36
222     for (;;) {
223     size_t len, i;
224    
225     /* Too close to another sector? Then realign. */
226     if ((dirofs & 2047) + 70 > 2047) {
227     dirofs = (dirofs | 2047) + 1;
228     /* debug("realign dirofs = 0x%llx\n", dirofs); */
229     }
230    
231     res2 = diskimage_access(m, disk_id, disk_type, 0, dirofs,
232     dirbuf, 256);
233     if (!res2) {
234     fatal("Couldn't read the disk image. Aborting.\n");
235     goto ret;
236     }
237    
238     dp = dirbuf;
239     len = dp[0];
240     if (len < 2)
241     break;
242    
243     /*
244     * TODO: Actually parse the directory entry!
245     *
246     * Haha, this must be rewritten.
247     */
248    
249     #if 0
250     /* hahahaha */
251     printf("filename = '%s'\n", filename);
252     {
253     int j;
254     for (j=32; j<len; j++)
255     printf("%c", dp[j] >= ' ' && dp[j] < 128? dp[j] : '.');
256     printf("\n");
257     }
258     #endif
259    
260     for (i=32; i<len; i++) {
261     if (i < len - strlen(filename))
262     if (strncmp(filename, (char *)dp + i,
263     strlen(filename)) == 0) {
264     /* The filename was found somewhere
265     in the directory entry. */
266     if (match_entry != NULL) {
267     fatal("TODO: I'm too lazy to"
268     " implement a correct "
269     "directory parser right "
270     "now... (BUG)\n");
271     exit(1);
272     }
273 dpavlin 42 CHECK_ALLOCATION(match_entry =
274     malloc(512));
275 dpavlin 36 memcpy(match_entry, dp, 512);
276     break;
277     }
278     }
279    
280     if (match_entry != NULL)
281     break;
282    
283     dirofs += len;
284     }
285    
286     if (match_entry == NULL) {
287     char *blah = filename_orig;
288    
289     fatal("could not find '%s' in /", filename);
290    
291     /* Print the first part of the filename: */
292     while (blah != filename)
293     fatal("%c", *blah++);
294    
295     fatal("\n");
296     goto ret;
297     }
298    
299     fileofs = match_entry[2] + (match_entry[3] << 8) +
300     (match_entry[4] << 16) + ((uint64_t)match_entry[5] << 24);
301     filelen = match_entry[10] + (match_entry[11] << 8) +
302     (match_entry[12] << 16) + ((uint64_t)match_entry[13] << 24);
303     fileofs *= 2048;
304    
305     /* debug("filelen=%llx fileofs=%llx\n", (long long)filelen,
306     (long long)fileofs); */
307    
308 dpavlin 42 CHECK_ALLOCATION(filebuf = malloc(filelen));
309 dpavlin 36
310 dpavlin 44 CHECK_ALLOCATION(tmpfname = malloc(300));
311     snprintf(tmpfname, 300, "%s/gxemul.XXXXXXXXXXXX", tmpdir);
312    
313 dpavlin 36 res2 = diskimage_access(m, disk_id, disk_type, 0, fileofs, filebuf,
314     filelen);
315     if (!res2) {
316     fatal("could not read the file from the disk image!\n");
317     goto ret;
318     }
319    
320     tmpfile_handle = mkstemp(tmpfname);
321     if (tmpfile_handle < 0) {
322     fatal("could not create %s\n", tmpfname);
323     exit(1);
324     }
325     write(tmpfile_handle, filebuf, filelen);
326     close(tmpfile_handle);
327    
328     debug("extracted %lli bytes into %s\n", (long long)filelen, tmpfname);
329    
330     /* Add the temporary filename to the load_namesp array: */
331     (*n_loadp)++;
332 dpavlin 42 CHECK_ALLOCATION(new_array = malloc(sizeof(char *) * (*n_loadp)));
333 dpavlin 36 memcpy(new_array, *load_namesp, sizeof(char *) * (*n_loadp));
334     *load_namesp = new_array;
335    
336     /* This adds a Backspace char in front of the filename; this
337     is a special hack which causes the file to be removed once
338     it has been loaded. */
339 dpavlin 42 CHECK_ALLOCATION(tmpfname = realloc(tmpfname, strlen(tmpfname) + 2));
340 dpavlin 36 memmove(tmpfname + 1, tmpfname, strlen(tmpfname) + 1);
341     tmpfname[0] = 8;
342    
343     (*load_namesp)[*n_loadp - 1] = tmpfname;
344    
345     res = 1;
346    
347     ret:
348     if (dirbuf != NULL)
349     free(dirbuf);
350    
351     if (filebuf != NULL)
352     free(filebuf);
353    
354     if (match_entry != NULL)
355     free(match_entry);
356    
357 dpavlin 44 if (tmpfname != NULL)
358     free(tmpfname);
359    
360 dpavlin 36 free(filename_orig);
361    
362     debug_indentation(-iadd);
363     return res;
364     }
365    

  ViewVC Help
Powered by ViewVC 1.1.26