biosdisk.c revision 1.42 1 1.42 tsutsui /* $NetBSD: biosdisk.c,v 1.42 2012/07/03 15:24:37 tsutsui Exp $ */
2 1.1 perry
3 1.1 perry /*
4 1.8 drochner * Copyright (c) 1996, 1998
5 1.1 perry * Matthias Drochner. All rights reserved.
6 1.1 perry *
7 1.1 perry * Redistribution and use in source and binary forms, with or without
8 1.1 perry * modification, are permitted provided that the following conditions
9 1.1 perry * are met:
10 1.1 perry * 1. Redistributions of source code must retain the above copyright
11 1.1 perry * notice, this list of conditions and the following disclaimer.
12 1.1 perry * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 perry * notice, this list of conditions and the following disclaimer in the
14 1.1 perry * documentation and/or other materials provided with the distribution.
15 1.1 perry *
16 1.1 perry * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17 1.1 perry * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18 1.1 perry * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19 1.1 perry * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20 1.1 perry * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21 1.1 perry * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22 1.1 perry * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23 1.1 perry * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 1.1 perry * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25 1.1 perry * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 1.1 perry *
27 1.1 perry */
28 1.1 perry
29 1.3 thorpej /*
30 1.4 drochner * raw BIOS disk device for libsa.
31 1.4 drochner * needs lowlevel parts from bios_disk.S and biosdisk_ll.c
32 1.4 drochner * partly from netbsd:sys/arch/i386/boot/disk.c
33 1.4 drochner * no bad144 handling!
34 1.17 dsl *
35 1.17 dsl * A lot of this must match sys/kern/subr_disk_mbr.c
36 1.1 perry */
37 1.1 perry
38 1.1 perry /*
39 1.1 perry * Ported to boot 386BSD by Julian Elischer (julian (at) tfs.com) Sept 1992
40 1.1 perry *
41 1.1 perry * Mach Operating System
42 1.1 perry * Copyright (c) 1992, 1991 Carnegie Mellon University
43 1.1 perry * All Rights Reserved.
44 1.3 thorpej *
45 1.1 perry * Permission to use, copy, modify and distribute this software and its
46 1.1 perry * documentation is hereby granted, provided that both the copyright
47 1.1 perry * notice and this permission notice appear in all copies of the
48 1.1 perry * software, derivative works or modified versions, and any portions
49 1.1 perry * thereof, and that both notices appear in supporting documentation.
50 1.3 thorpej *
51 1.1 perry * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
52 1.1 perry * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
53 1.1 perry * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
54 1.3 thorpej *
55 1.1 perry * Carnegie Mellon requests users of this software to return to
56 1.3 thorpej *
57 1.1 perry * Software Distribution Coordinator or Software.Distribution (at) CS.CMU.EDU
58 1.1 perry * School of Computer Science
59 1.1 perry * Carnegie Mellon University
60 1.1 perry * Pittsburgh PA 15213-3890
61 1.3 thorpej *
62 1.1 perry * any improvements or extensions that they make and grant Carnegie Mellon
63 1.1 perry * the rights to redistribute these changes.
64 1.1 perry */
65 1.1 perry
66 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
67 1.29 jmcneill #define FSTYPENAMES
68 1.29 jmcneill #endif
69 1.29 jmcneill
70 1.36 jakllsch #include <lib/libkern/libkern.h>
71 1.36 jakllsch #include <lib/libsa/stand.h>
72 1.36 jakllsch
73 1.1 perry #include <sys/types.h>
74 1.21 thorpej #include <sys/md5.h>
75 1.24 junyoung #include <sys/param.h>
76 1.29 jmcneill #include <sys/disklabel.h>
77 1.36 jakllsch #include <sys/disklabel_gpt.h>
78 1.36 jakllsch #include <sys/uuid.h>
79 1.24 junyoung
80 1.24 junyoung #include <fs/cd9660/iso.h>
81 1.1 perry
82 1.1 perry #include <lib/libsa/saerrno.h>
83 1.29 jmcneill #include <machine/cpu.h>
84 1.1 perry
85 1.1 perry #include "libi386.h"
86 1.1 perry #include "biosdisk_ll.h"
87 1.5 drochner #include "biosdisk.h"
88 1.9 drochner #ifdef _STANDALONE
89 1.5 drochner #include "bootinfo.h"
90 1.9 drochner #endif
91 1.16 dsl
92 1.24 junyoung #define BUFSIZE 2048 /* must be large enough for a CD sector */
93 1.1 perry
94 1.36 jakllsch #define BIOSDISKNPART 26
95 1.36 jakllsch
96 1.3 thorpej struct biosdisk {
97 1.3 thorpej struct biosdisk_ll ll;
98 1.32 jakllsch daddr_t boff;
99 1.3 thorpej char buf[BUFSIZE];
100 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
101 1.36 jakllsch struct {
102 1.36 jakllsch daddr_t offset;
103 1.36 jakllsch daddr_t size;
104 1.36 jakllsch int fstype;
105 1.36 jakllsch } part[BIOSDISKNPART];
106 1.36 jakllsch #endif
107 1.1 perry };
108 1.1 perry
109 1.36 jakllsch #ifndef NO_GPT
110 1.36 jakllsch const struct uuid GET_nbsd_raid = GPT_ENT_TYPE_NETBSD_RAIDFRAME;
111 1.36 jakllsch const struct uuid GET_nbsd_ffs = GPT_ENT_TYPE_NETBSD_FFS;
112 1.36 jakllsch const struct uuid GET_nbsd_lfs = GPT_ENT_TYPE_NETBSD_LFS;
113 1.36 jakllsch const struct uuid GET_nbsd_swap = GPT_ENT_TYPE_NETBSD_SWAP;
114 1.36 jakllsch #endif /* NO_GPT */
115 1.36 jakllsch
116 1.9 drochner #ifdef _STANDALONE
117 1.5 drochner static struct btinfo_bootdisk bi_disk;
118 1.21 thorpej static struct btinfo_bootwedge bi_wedge;
119 1.9 drochner #endif
120 1.5 drochner
121 1.13 lukem #define RF_PROTECTED_SECTORS 64 /* XXX refer to <.../rf_optnames.h> */
122 1.13 lukem
123 1.22 junyoung int
124 1.24 junyoung biosdisk_strategy(void *devdata, int flag, daddr_t dblk, size_t size,
125 1.24 junyoung void *buf, size_t *rsize)
126 1.1 perry {
127 1.3 thorpej struct biosdisk *d;
128 1.22 junyoung int blks, frag;
129 1.1 perry
130 1.3 thorpej if (flag != F_READ)
131 1.22 junyoung return EROFS;
132 1.1 perry
133 1.3 thorpej d = (struct biosdisk *) devdata;
134 1.1 perry
135 1.24 junyoung if (d->ll.type == BIOSDISK_TYPE_CD)
136 1.24 junyoung dblk = dblk * DEV_BSIZE / ISO_DEFAULT_BLOCK_SIZE;
137 1.24 junyoung
138 1.3 thorpej dblk += d->boff;
139 1.3 thorpej
140 1.24 junyoung blks = size / d->ll.secsize;
141 1.3 thorpej if (blks && readsects(&d->ll, dblk, blks, buf, 0)) {
142 1.3 thorpej if (rsize)
143 1.3 thorpej *rsize = 0;
144 1.22 junyoung return EIO;
145 1.3 thorpej }
146 1.22 junyoung
147 1.24 junyoung /* needed for CD */
148 1.24 junyoung frag = size % d->ll.secsize;
149 1.3 thorpej if (frag) {
150 1.3 thorpej if (readsects(&d->ll, dblk + blks, 1, d->buf, 0)) {
151 1.3 thorpej if (rsize)
152 1.24 junyoung *rsize = blks * d->ll.secsize;
153 1.22 junyoung return EIO;
154 1.3 thorpej }
155 1.24 junyoung memcpy(buf + blks * d->ll.secsize, d->buf, frag);
156 1.3 thorpej }
157 1.22 junyoung
158 1.3 thorpej if (rsize)
159 1.3 thorpej *rsize = size;
160 1.22 junyoung return 0;
161 1.1 perry }
162 1.1 perry
163 1.16 dsl static struct biosdisk *
164 1.23 junyoung alloc_biosdisk(int biosdev)
165 1.1 perry {
166 1.3 thorpej struct biosdisk *d;
167 1.1 perry
168 1.23 junyoung d = alloc(sizeof(*d));
169 1.22 junyoung if (d == NULL)
170 1.16 dsl return NULL;
171 1.23 junyoung memset(d, 0, sizeof(*d));
172 1.16 dsl
173 1.23 junyoung d->ll.dev = biosdev;
174 1.11 fvdl if (set_geometry(&d->ll, NULL)) {
175 1.1 perry #ifdef DISK_DEBUG
176 1.3 thorpej printf("no geometry information\n");
177 1.1 perry #endif
178 1.26 christos dealloc(d, sizeof(*d));
179 1.16 dsl return NULL;
180 1.3 thorpej }
181 1.16 dsl return d;
182 1.16 dsl }
183 1.16 dsl
184 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
185 1.36 jakllsch static void
186 1.36 jakllsch md5(void *hash, const void *data, size_t len)
187 1.36 jakllsch {
188 1.36 jakllsch MD5_CTX ctx;
189 1.36 jakllsch
190 1.36 jakllsch MD5Init(&ctx);
191 1.36 jakllsch MD5Update(&ctx, data, len);
192 1.36 jakllsch MD5Final(hash, &ctx);
193 1.36 jakllsch
194 1.36 jakllsch return;
195 1.36 jakllsch }
196 1.36 jakllsch #endif
197 1.36 jakllsch
198 1.36 jakllsch #ifndef NO_GPT
199 1.36 jakllsch static bool
200 1.36 jakllsch guid_is_nil(const struct uuid *u)
201 1.36 jakllsch {
202 1.36 jakllsch static const struct uuid nil = { .time_low = 0 };
203 1.36 jakllsch return (memcmp(u, &nil, sizeof(*u)) == 0 ? true : false);
204 1.36 jakllsch }
205 1.36 jakllsch
206 1.36 jakllsch static bool
207 1.36 jakllsch guid_is_equal(const struct uuid *a, const struct uuid *b)
208 1.36 jakllsch {
209 1.36 jakllsch return (memcmp(a, b, sizeof(*a)) == 0 ? true : false);
210 1.36 jakllsch }
211 1.36 jakllsch
212 1.36 jakllsch static int
213 1.36 jakllsch check_gpt(struct biosdisk *d, daddr_t sector)
214 1.36 jakllsch {
215 1.36 jakllsch struct gpt_hdr gpth;
216 1.36 jakllsch const struct gpt_ent *ep;
217 1.36 jakllsch const struct uuid *u;
218 1.36 jakllsch daddr_t entblk;
219 1.36 jakllsch size_t size;
220 1.36 jakllsch uint32_t crc;
221 1.36 jakllsch int sectors;
222 1.36 jakllsch int entries;
223 1.36 jakllsch int entry;
224 1.36 jakllsch int i, j;
225 1.36 jakllsch
226 1.36 jakllsch /* read in gpt_hdr sector */
227 1.36 jakllsch if (readsects(&d->ll, sector, 1, d->buf, 1)) {
228 1.36 jakllsch #ifdef DISK_DEBUG
229 1.36 jakllsch printf("Error reading GPT header at %"PRId64"\n", sector);
230 1.36 jakllsch #endif
231 1.36 jakllsch return EIO;
232 1.36 jakllsch }
233 1.36 jakllsch
234 1.36 jakllsch gpth = *(const struct gpt_hdr *)d->buf;
235 1.36 jakllsch
236 1.36 jakllsch if (memcmp(GPT_HDR_SIG, gpth.hdr_sig, sizeof(gpth.hdr_sig)))
237 1.36 jakllsch return -1;
238 1.36 jakllsch
239 1.36 jakllsch crc = gpth.hdr_crc_self;
240 1.36 jakllsch gpth.hdr_crc_self = 0;
241 1.36 jakllsch gpth.hdr_crc_self = crc32(0, (const void *)&gpth, GPT_HDR_SIZE);
242 1.36 jakllsch if (gpth.hdr_crc_self != crc) {
243 1.36 jakllsch return -1;
244 1.36 jakllsch }
245 1.36 jakllsch
246 1.36 jakllsch if (gpth.hdr_lba_self != sector)
247 1.36 jakllsch return -1;
248 1.36 jakllsch
249 1.36 jakllsch #ifdef _STANDALONE
250 1.36 jakllsch bi_wedge.matchblk = sector;
251 1.36 jakllsch bi_wedge.matchnblks = 1;
252 1.36 jakllsch
253 1.36 jakllsch md5(bi_wedge.matchhash, d->buf, d->ll.secsize);
254 1.36 jakllsch #endif
255 1.36 jakllsch
256 1.36 jakllsch sectors = sizeof(d->buf)/d->ll.secsize; /* sectors per buffer */
257 1.36 jakllsch entries = sizeof(d->buf)/gpth.hdr_entsz; /* entries per buffer */
258 1.36 jakllsch entblk = gpth.hdr_lba_table;
259 1.36 jakllsch crc = crc32(0, NULL, 0);
260 1.36 jakllsch
261 1.36 jakllsch j = 0;
262 1.36 jakllsch ep = (const struct gpt_ent *)d->buf;
263 1.36 jakllsch
264 1.36 jakllsch for (entry = 0; entry < gpth.hdr_entries; entry += entries) {
265 1.36 jakllsch size = MIN(sizeof(d->buf),
266 1.36 jakllsch (gpth.hdr_entries - entry) * gpth.hdr_entsz);
267 1.36 jakllsch entries = size / gpth.hdr_entsz;
268 1.36 jakllsch sectors = roundup(size, d->ll.secsize) / d->ll.secsize;
269 1.36 jakllsch if (readsects(&d->ll, entblk, sectors, d->buf, 1))
270 1.36 jakllsch return -1;
271 1.36 jakllsch entblk += sectors;
272 1.36 jakllsch crc = crc32(crc, (const void *)d->buf, size);
273 1.36 jakllsch
274 1.36 jakllsch for (i = 0; j < BIOSDISKNPART && i < entries; i++, j++) {
275 1.36 jakllsch u = (const struct uuid *)ep[i].ent_type;
276 1.36 jakllsch if (!guid_is_nil(u)) {
277 1.36 jakllsch d->part[j].offset = ep[i].ent_lba_start;
278 1.36 jakllsch d->part[j].size = ep[i].ent_lba_end -
279 1.36 jakllsch ep[i].ent_lba_start + 1;
280 1.36 jakllsch if (guid_is_equal(u, &GET_nbsd_ffs))
281 1.36 jakllsch d->part[j].fstype = FS_BSDFFS;
282 1.36 jakllsch else if (guid_is_equal(u, &GET_nbsd_lfs))
283 1.36 jakllsch d->part[j].fstype = FS_BSDLFS;
284 1.36 jakllsch else if (guid_is_equal(u, &GET_nbsd_raid))
285 1.36 jakllsch d->part[j].fstype = FS_RAID;
286 1.36 jakllsch else if (guid_is_equal(u, &GET_nbsd_swap))
287 1.36 jakllsch d->part[j].fstype = FS_SWAP;
288 1.36 jakllsch else
289 1.36 jakllsch d->part[j].fstype = FS_OTHER;
290 1.36 jakllsch }
291 1.36 jakllsch }
292 1.36 jakllsch
293 1.36 jakllsch }
294 1.36 jakllsch
295 1.36 jakllsch if (crc != gpth.hdr_crc_table) {
296 1.36 jakllsch #ifdef DISK_DEBUG
297 1.36 jakllsch printf("GPT table CRC invalid\n");
298 1.36 jakllsch #endif
299 1.36 jakllsch return -1;
300 1.36 jakllsch }
301 1.36 jakllsch
302 1.36 jakllsch return 0;
303 1.36 jakllsch }
304 1.36 jakllsch
305 1.36 jakllsch static int
306 1.36 jakllsch read_gpt(struct biosdisk *d)
307 1.36 jakllsch {
308 1.36 jakllsch struct biosdisk_extinfo ed;
309 1.36 jakllsch daddr_t gptsector[2];
310 1.36 jakllsch int i, error;
311 1.36 jakllsch
312 1.37 jakllsch if (d->ll.type != BIOSDISK_TYPE_HD)
313 1.37 jakllsch /* No GPT on floppy and CD */
314 1.37 jakllsch return -1;
315 1.37 jakllsch
316 1.36 jakllsch gptsector[0] = GPT_HDR_BLKNO;
317 1.36 jakllsch if (set_geometry(&d->ll, &ed) == 0 && d->ll.flags & BIOSDISK_INT13EXT) {
318 1.36 jakllsch gptsector[1] = ed.totsec - 1;
319 1.41 perseant /* Sanity check values returned from BIOS */
320 1.41 perseant if (ed.sbytes >= 512 && (ed.sbytes & (ed.sbytes - 1)) == 0)
321 1.41 perseant d->ll.secsize = ed.sbytes;
322 1.36 jakllsch } else {
323 1.36 jakllsch #ifdef DISK_DEBUG
324 1.36 jakllsch printf("Unable to determine extended disk geometry - "
325 1.36 jakllsch "using CHS\n");
326 1.36 jakllsch #endif
327 1.36 jakllsch /* at least try some other reasonable values then */
328 1.36 jakllsch gptsector[1] = d->ll.chs_sectors - 1;
329 1.36 jakllsch }
330 1.36 jakllsch
331 1.36 jakllsch /*
332 1.36 jakllsch * Use any valid GPT available, do not require both GPTs to be valid
333 1.36 jakllsch */
334 1.36 jakllsch for (i = 0; i < __arraycount(gptsector); i++) {
335 1.36 jakllsch error = check_gpt(d, gptsector[i]);
336 1.36 jakllsch if (error == 0)
337 1.36 jakllsch break;
338 1.36 jakllsch }
339 1.36 jakllsch
340 1.36 jakllsch if (i >= __arraycount(gptsector)) {
341 1.36 jakllsch memset(d->part, 0, sizeof(d->part));
342 1.36 jakllsch return -1;
343 1.36 jakllsch }
344 1.36 jakllsch
345 1.36 jakllsch #ifdef DISK_DEBUG
346 1.36 jakllsch printf("using %s GPT\n", (i == 0) ? "primary" : "secondary");
347 1.36 jakllsch #endif
348 1.36 jakllsch return 0;
349 1.36 jakllsch }
350 1.36 jakllsch #endif /* !NO_GPT */
351 1.36 jakllsch
352 1.16 dsl #ifndef NO_DISKLABEL
353 1.37 jakllsch static void
354 1.37 jakllsch ingest_label(struct biosdisk *d, struct disklabel *lp)
355 1.37 jakllsch {
356 1.37 jakllsch int part;
357 1.37 jakllsch
358 1.37 jakllsch memset(d->part, 0, sizeof(d->part));
359 1.37 jakllsch
360 1.37 jakllsch for (part = 0; part < lp->d_npartitions; part++) {
361 1.37 jakllsch if (lp->d_partitions[part].p_size == 0)
362 1.37 jakllsch continue;
363 1.37 jakllsch if (lp->d_partitions[part].p_fstype == FS_UNUSED)
364 1.37 jakllsch continue;
365 1.37 jakllsch d->part[part].fstype = lp->d_partitions[part].p_fstype;
366 1.37 jakllsch d->part[part].offset = lp->d_partitions[part].p_offset;
367 1.37 jakllsch d->part[part].size = lp->d_partitions[part].p_size;
368 1.37 jakllsch }
369 1.37 jakllsch }
370 1.37 jakllsch
371 1.16 dsl static int
372 1.32 jakllsch check_label(struct biosdisk *d, daddr_t sector)
373 1.17 dsl {
374 1.17 dsl struct disklabel *lp;
375 1.17 dsl
376 1.17 dsl /* find partition in NetBSD disklabel */
377 1.17 dsl if (readsects(&d->ll, sector + LABELSECTOR, 1, d->buf, 0)) {
378 1.17 dsl #ifdef DISK_DEBUG
379 1.17 dsl printf("Error reading disklabel\n");
380 1.17 dsl #endif
381 1.17 dsl return EIO;
382 1.17 dsl }
383 1.17 dsl lp = (struct disklabel *) (d->buf + LABELOFFSET);
384 1.17 dsl if (lp->d_magic != DISKMAGIC || dkcksum(lp)) {
385 1.17 dsl #ifdef DISK_DEBUG
386 1.33 jakllsch printf("warning: no disklabel in sector %"PRId64"\n", sector);
387 1.17 dsl #endif
388 1.17 dsl return -1;
389 1.17 dsl }
390 1.17 dsl
391 1.37 jakllsch ingest_label(d, lp);
392 1.36 jakllsch
393 1.36 jakllsch #ifdef _STANDALONE
394 1.39 gsutre bi_disk.labelsector = sector + LABELSECTOR;
395 1.36 jakllsch bi_disk.label.type = lp->d_type;
396 1.36 jakllsch memcpy(bi_disk.label.packname, lp->d_packname, 16);
397 1.36 jakllsch bi_disk.label.checksum = lp->d_checksum;
398 1.36 jakllsch
399 1.39 gsutre bi_wedge.matchblk = sector + LABELSECTOR;
400 1.36 jakllsch bi_wedge.matchnblks = 1;
401 1.36 jakllsch
402 1.36 jakllsch md5(bi_wedge.matchhash, d->buf, d->ll.secsize);
403 1.36 jakllsch #endif
404 1.36 jakllsch
405 1.17 dsl return 0;
406 1.17 dsl }
407 1.17 dsl
408 1.17 dsl static int
409 1.40 christos read_minix_subp(struct biosdisk *d, struct disklabel* dflt_lbl,
410 1.40 christos int this_ext, daddr_t sector)
411 1.40 christos {
412 1.40 christos struct mbr_partition mbr[MBR_PART_COUNT];
413 1.40 christos int i;
414 1.40 christos int typ;
415 1.40 christos struct partition *p;
416 1.40 christos
417 1.40 christos if (readsects(&d->ll, sector, 1, d->buf, 0)) {
418 1.40 christos #ifdef DISK_DEBUG
419 1.42 tsutsui printf("Error reading MFS sector %"PRId64"\n", sector);
420 1.40 christos #endif
421 1.40 christos return EIO;
422 1.40 christos }
423 1.40 christos if ((uint8_t)d->buf[510] != 0x55 || (uint8_t)d->buf[511] != 0xAA) {
424 1.40 christos return -1;
425 1.40 christos }
426 1.40 christos memcpy(&mbr, ((struct mbr_sector *)d->buf)->mbr_parts, sizeof(mbr));
427 1.40 christos for (i = 0; i < MBR_PART_COUNT; i++) {
428 1.40 christos typ = mbr[i].mbrp_type;
429 1.40 christos if (typ == 0)
430 1.40 christos continue;
431 1.40 christos sector = this_ext + mbr[i].mbrp_start;
432 1.40 christos if (dflt_lbl->d_npartitions >= MAXPARTITIONS)
433 1.40 christos continue;
434 1.40 christos p = &dflt_lbl->d_partitions[dflt_lbl->d_npartitions++];
435 1.40 christos p->p_offset = sector;
436 1.40 christos p->p_size = mbr[i].mbrp_size;
437 1.40 christos p->p_fstype = xlat_mbr_fstype(typ);
438 1.40 christos }
439 1.40 christos return 0;
440 1.40 christos }
441 1.40 christos
442 1.40 christos static int
443 1.16 dsl read_label(struct biosdisk *d)
444 1.16 dsl {
445 1.17 dsl struct disklabel dflt_lbl;
446 1.18 lukem struct mbr_partition mbr[MBR_PART_COUNT];
447 1.17 dsl struct partition *p;
448 1.42 tsutsui uint32_t sector;
449 1.42 tsutsui int i;
450 1.17 dsl int error;
451 1.17 dsl int typ;
452 1.42 tsutsui uint32_t ext_base, this_ext, next_ext;
453 1.17 dsl #ifdef COMPAT_386BSD_MBRPART
454 1.17 dsl int sector_386bsd = -1;
455 1.17 dsl #endif
456 1.17 dsl
457 1.23 junyoung memset(&dflt_lbl, 0, sizeof(dflt_lbl));
458 1.17 dsl dflt_lbl.d_npartitions = 8;
459 1.5 drochner
460 1.7 drochner d->boff = 0;
461 1.7 drochner
462 1.24 junyoung if (d->ll.type != BIOSDISK_TYPE_HD)
463 1.24 junyoung /* No label on floppy and CD */
464 1.16 dsl return -1;
465 1.7 drochner
466 1.3 thorpej /*
467 1.7 drochner * find NetBSD Partition in DOS partition table
468 1.7 drochner * XXX check magic???
469 1.3 thorpej */
470 1.17 dsl ext_base = 0;
471 1.17 dsl next_ext = 0;
472 1.17 dsl for (;;) {
473 1.17 dsl this_ext = ext_base + next_ext;
474 1.17 dsl next_ext = 0;
475 1.17 dsl if (readsects(&d->ll, this_ext, 1, d->buf, 0)) {
476 1.1 perry #ifdef DISK_DEBUG
477 1.42 tsutsui printf("error reading MBR sector %u\n", this_ext);
478 1.17 dsl #endif
479 1.17 dsl return EIO;
480 1.17 dsl }
481 1.23 junyoung memcpy(&mbr, ((struct mbr_sector *)d->buf)->mbr_parts,
482 1.23 junyoung sizeof(mbr));
483 1.17 dsl /* Look for NetBSD partition ID */
484 1.18 lukem for (i = 0; i < MBR_PART_COUNT; i++) {
485 1.18 lukem typ = mbr[i].mbrp_type;
486 1.17 dsl if (typ == 0)
487 1.17 dsl continue;
488 1.17 dsl sector = this_ext + mbr[i].mbrp_start;
489 1.27 dsl #ifdef DISK_DEBUG
490 1.42 tsutsui printf("ptn type %d in sector %u\n", typ, sector);
491 1.27 dsl #endif
492 1.40 christos if (typ == MBR_PTYPE_MINIX_14B) {
493 1.40 christos if (!read_minix_subp(d, &dflt_lbl,
494 1.40 christos this_ext, sector)) {
495 1.40 christos /* Don't add "container" partition */
496 1.40 christos continue;
497 1.40 christos }
498 1.40 christos }
499 1.17 dsl if (typ == MBR_PTYPE_NETBSD) {
500 1.17 dsl error = check_label(d, sector);
501 1.17 dsl if (error >= 0)
502 1.17 dsl return error;
503 1.17 dsl }
504 1.17 dsl if (MBR_IS_EXTENDED(typ)) {
505 1.17 dsl next_ext = mbr[i].mbrp_start;
506 1.17 dsl continue;
507 1.17 dsl }
508 1.17 dsl #ifdef COMPAT_386BSD_MBRPART
509 1.17 dsl if (this_ext == 0 && typ == MBR_PTYPE_386BSD)
510 1.17 dsl sector_386bsd = sector;
511 1.1 perry #endif
512 1.17 dsl if (this_ext != 0) {
513 1.17 dsl if (dflt_lbl.d_npartitions >= MAXPARTITIONS)
514 1.17 dsl continue;
515 1.17 dsl p = &dflt_lbl.d_partitions[dflt_lbl.d_npartitions++];
516 1.17 dsl } else
517 1.17 dsl p = &dflt_lbl.d_partitions[i];
518 1.17 dsl p->p_offset = sector;
519 1.17 dsl p->p_size = mbr[i].mbrp_size;
520 1.17 dsl p->p_fstype = xlat_mbr_fstype(typ);
521 1.17 dsl }
522 1.17 dsl if (next_ext == 0)
523 1.3 thorpej break;
524 1.17 dsl if (ext_base == 0) {
525 1.17 dsl ext_base = next_ext;
526 1.17 dsl next_ext = 0;
527 1.3 thorpej }
528 1.17 dsl }
529 1.17 dsl
530 1.17 dsl sector = 0;
531 1.8 drochner #ifdef COMPAT_386BSD_MBRPART
532 1.17 dsl if (sector_386bsd != -1) {
533 1.17 dsl printf("old BSD partition ID!\n");
534 1.17 dsl sector = sector_386bsd;
535 1.8 drochner }
536 1.8 drochner #endif
537 1.7 drochner
538 1.17 dsl /*
539 1.17 dsl * One of two things:
540 1.17 dsl * 1. no MBR
541 1.17 dsl * 2. no NetBSD partition in MBR
542 1.17 dsl *
543 1.17 dsl * We simply default to "start of disk" in this case and
544 1.17 dsl * press on.
545 1.17 dsl */
546 1.17 dsl error = check_label(d, sector);
547 1.17 dsl if (error >= 0)
548 1.17 dsl return error;
549 1.16 dsl
550 1.17 dsl /*
551 1.17 dsl * Nothing at start of disk, return info from mbr partitions.
552 1.17 dsl */
553 1.17 dsl /* XXX fill it to make checksum match kernel one */
554 1.17 dsl dflt_lbl.d_checksum = dkcksum(&dflt_lbl);
555 1.37 jakllsch ingest_label(d, &dflt_lbl);
556 1.27 dsl return 0;
557 1.16 dsl }
558 1.16 dsl #endif /* NO_DISKLABEL */
559 1.16 dsl
560 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
561 1.36 jakllsch static int
562 1.36 jakllsch read_partitions(struct biosdisk *d)
563 1.36 jakllsch {
564 1.36 jakllsch int error;
565 1.36 jakllsch
566 1.36 jakllsch error = -1;
567 1.36 jakllsch
568 1.36 jakllsch #ifndef NO_GPT
569 1.36 jakllsch error = read_gpt(d);
570 1.36 jakllsch if (error == 0)
571 1.36 jakllsch return 0;
572 1.36 jakllsch
573 1.36 jakllsch #endif
574 1.36 jakllsch #ifndef NO_DISKLABEL
575 1.36 jakllsch error = read_label(d);
576 1.36 jakllsch
577 1.36 jakllsch #endif
578 1.36 jakllsch return error;
579 1.36 jakllsch }
580 1.36 jakllsch #endif
581 1.36 jakllsch
582 1.29 jmcneill void
583 1.29 jmcneill biosdisk_probe(void)
584 1.29 jmcneill {
585 1.29 jmcneill struct biosdisk d;
586 1.29 jmcneill struct biosdisk_extinfo ed;
587 1.29 jmcneill uint64_t size;
588 1.36 jakllsch int first;
589 1.29 jmcneill int i;
590 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
591 1.36 jakllsch int part;
592 1.36 jakllsch #endif
593 1.29 jmcneill
594 1.29 jmcneill for (i = 0; i < MAX_BIOSDISKS + 2; i++) {
595 1.29 jmcneill first = 1;
596 1.29 jmcneill memset(&d, 0, sizeof(d));
597 1.29 jmcneill memset(&ed, 0, sizeof(ed));
598 1.29 jmcneill if (i >= MAX_BIOSDISKS)
599 1.29 jmcneill d.ll.dev = 0x00 + i - MAX_BIOSDISKS; /* fd */
600 1.29 jmcneill else
601 1.29 jmcneill d.ll.dev = 0x80 + i; /* hd/cd */
602 1.29 jmcneill if (set_geometry(&d.ll, &ed))
603 1.29 jmcneill continue;
604 1.30 jmcneill printf("disk ");
605 1.29 jmcneill switch (d.ll.type) {
606 1.29 jmcneill case BIOSDISK_TYPE_CD:
607 1.30 jmcneill printf("cd0\n cd0a\n");
608 1.29 jmcneill break;
609 1.29 jmcneill case BIOSDISK_TYPE_FD:
610 1.30 jmcneill printf("fd%d\n", d.ll.dev & 0x7f);
611 1.30 jmcneill printf(" fd%da\n", d.ll.dev & 0x7f);
612 1.29 jmcneill break;
613 1.29 jmcneill case BIOSDISK_TYPE_HD:
614 1.30 jmcneill printf("hd%d", d.ll.dev & 0x7f);
615 1.29 jmcneill if (d.ll.flags & BIOSDISK_INT13EXT) {
616 1.29 jmcneill printf(" size ");
617 1.29 jmcneill size = ed.totsec * ed.sbytes;
618 1.29 jmcneill if (size >= (10ULL * 1024 * 1024 * 1024))
619 1.33 jakllsch printf("%"PRIu64" GB",
620 1.29 jmcneill size / (1024 * 1024 * 1024));
621 1.29 jmcneill else
622 1.33 jakllsch printf("%"PRIu64" MB",
623 1.29 jmcneill size / (1024 * 1024));
624 1.29 jmcneill }
625 1.29 jmcneill printf("\n");
626 1.29 jmcneill break;
627 1.29 jmcneill }
628 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
629 1.30 jmcneill if (d.ll.type != BIOSDISK_TYPE_HD)
630 1.30 jmcneill continue;
631 1.36 jakllsch
632 1.36 jakllsch if (read_partitions(&d) != 0)
633 1.36 jakllsch continue;
634 1.36 jakllsch
635 1.36 jakllsch for (part = 0; part < BIOSDISKNPART; part++) {
636 1.36 jakllsch if (d.part[part].size == 0)
637 1.29 jmcneill continue;
638 1.36 jakllsch if (d.part[part].fstype == FS_UNUSED)
639 1.29 jmcneill continue;
640 1.29 jmcneill if (first) {
641 1.29 jmcneill printf(" ");
642 1.29 jmcneill first = 0;
643 1.29 jmcneill }
644 1.29 jmcneill printf(" hd%d%c(", d.ll.dev & 0x7f, part + 'a');
645 1.36 jakllsch if (d.part[part].fstype < FSMAXTYPES)
646 1.29 jmcneill printf("%s",
647 1.36 jakllsch fstypenames[d.part[part].fstype]);
648 1.29 jmcneill else
649 1.36 jakllsch printf("%d", d.part[part].fstype);
650 1.29 jmcneill printf(")");
651 1.29 jmcneill }
652 1.36 jakllsch #endif
653 1.29 jmcneill if (first == 0)
654 1.29 jmcneill printf("\n");
655 1.29 jmcneill }
656 1.29 jmcneill }
657 1.29 jmcneill
658 1.16 dsl /* Determine likely partition for possible sector number of dos
659 1.17 dsl * partition.
660 1.17 dsl */
661 1.16 dsl
662 1.24 junyoung int
663 1.32 jakllsch biosdisk_findpartition(int biosdev, daddr_t sector)
664 1.16 dsl {
665 1.36 jakllsch #if defined(NO_DISKLABEL) && defined(NO_GPT)
666 1.16 dsl return 0;
667 1.16 dsl #else
668 1.16 dsl struct biosdisk *d;
669 1.24 junyoung int partition = 0;
670 1.27 dsl #ifdef DISK_DEBUG
671 1.33 jakllsch printf("looking for partition device %x, sector %"PRId64"\n", biosdev, sector);
672 1.27 dsl #endif
673 1.16 dsl
674 1.16 dsl /* Look for netbsd partition that is the dos boot one */
675 1.16 dsl d = alloc_biosdisk(biosdev);
676 1.17 dsl if (d == NULL)
677 1.17 dsl return 0;
678 1.17 dsl
679 1.36 jakllsch if (read_partitions(d) == 0) {
680 1.36 jakllsch for (partition = (BIOSDISKNPART-1); --partition;) {
681 1.36 jakllsch if (d->part[partition].fstype == FS_UNUSED)
682 1.16 dsl continue;
683 1.36 jakllsch if (d->part[partition].offset == sector)
684 1.16 dsl break;
685 1.16 dsl }
686 1.16 dsl }
687 1.16 dsl
688 1.26 christos dealloc(d, sizeof(*d));
689 1.16 dsl return partition;
690 1.36 jakllsch #endif /* NO_DISKLABEL && NO_GPT */
691 1.36 jakllsch }
692 1.36 jakllsch
693 1.36 jakllsch #ifdef _STANDALONE
694 1.36 jakllsch static void
695 1.36 jakllsch add_biosdisk_bootinfo(void)
696 1.36 jakllsch {
697 1.36 jakllsch static bool done;
698 1.36 jakllsch
699 1.36 jakllsch if (bootinfo == NULL) {
700 1.36 jakllsch done = false;
701 1.36 jakllsch return;
702 1.36 jakllsch }
703 1.36 jakllsch
704 1.36 jakllsch if (done)
705 1.36 jakllsch return;
706 1.36 jakllsch
707 1.36 jakllsch BI_ADD(&bi_disk, BTINFO_BOOTDISK, sizeof(bi_disk));
708 1.36 jakllsch BI_ADD(&bi_wedge, BTINFO_BOOTWEDGE, sizeof(bi_wedge));
709 1.36 jakllsch
710 1.36 jakllsch done = true;
711 1.36 jakllsch
712 1.36 jakllsch return;
713 1.16 dsl }
714 1.16 dsl
715 1.36 jakllsch #endif
716 1.36 jakllsch
717 1.22 junyoung int
718 1.24 junyoung biosdisk_open(struct open_file *f, ...)
719 1.23 junyoung /* struct open_file *f, int biosdev, int partition */
720 1.16 dsl {
721 1.16 dsl va_list ap;
722 1.16 dsl struct biosdisk *d;
723 1.23 junyoung int biosdev;
724 1.16 dsl int partition;
725 1.16 dsl int error = 0;
726 1.16 dsl
727 1.16 dsl va_start(ap, f);
728 1.23 junyoung biosdev = va_arg(ap, int);
729 1.23 junyoung d = alloc_biosdisk(biosdev);
730 1.23 junyoung if (d == NULL) {
731 1.16 dsl error = ENXIO;
732 1.16 dsl goto out;
733 1.16 dsl }
734 1.16 dsl
735 1.16 dsl partition = va_arg(ap, int);
736 1.16 dsl #ifdef _STANDALONE
737 1.16 dsl bi_disk.biosdev = d->ll.dev;
738 1.16 dsl bi_disk.partition = partition;
739 1.16 dsl bi_disk.labelsector = -1;
740 1.21 thorpej
741 1.21 thorpej bi_wedge.biosdev = d->ll.dev;
742 1.21 thorpej bi_wedge.matchblk = -1;
743 1.16 dsl #endif
744 1.16 dsl
745 1.36 jakllsch #if !defined(NO_DISKLABEL) || !defined(NO_GPT)
746 1.36 jakllsch error = read_partitions(d);
747 1.16 dsl if (error == -1) {
748 1.16 dsl error = 0;
749 1.16 dsl goto nolabel;
750 1.16 dsl }
751 1.16 dsl if (error)
752 1.16 dsl goto out;
753 1.16 dsl
754 1.36 jakllsch if (partition >= BIOSDISKNPART ||
755 1.36 jakllsch d->part[partition].fstype == FS_UNUSED) {
756 1.1 perry #ifdef DISK_DEBUG
757 1.3 thorpej printf("illegal partition\n");
758 1.1 perry #endif
759 1.3 thorpej error = EPART;
760 1.3 thorpej goto out;
761 1.16 dsl }
762 1.21 thorpej
763 1.36 jakllsch d->boff = d->part[partition].offset;
764 1.36 jakllsch
765 1.36 jakllsch if (d->part[partition].fstype == FS_RAID)
766 1.36 jakllsch d->boff += RF_PROTECTED_SECTORS;
767 1.21 thorpej
768 1.36 jakllsch #ifdef _STANDALONE
769 1.36 jakllsch bi_wedge.startblk = d->part[partition].offset;
770 1.36 jakllsch bi_wedge.nblks = d->part[partition].size;
771 1.16 dsl #endif
772 1.36 jakllsch
773 1.7 drochner nolabel:
774 1.36 jakllsch #endif
775 1.1 perry #ifdef DISK_DEBUG
776 1.34 jakllsch printf("partition @%"PRId64"\n", d->boff);
777 1.1 perry #endif
778 1.1 perry
779 1.9 drochner #ifdef _STANDALONE
780 1.36 jakllsch add_biosdisk_bootinfo();
781 1.9 drochner #endif
782 1.5 drochner
783 1.3 thorpej f->f_devdata = d;
784 1.1 perry out:
785 1.5 drochner va_end(ap);
786 1.3 thorpej if (error)
787 1.35 jakllsch dealloc(d, sizeof(*d));
788 1.22 junyoung return error;
789 1.1 perry }
790 1.1 perry
791 1.12 drochner #ifndef LIBSA_NO_FS_CLOSE
792 1.22 junyoung int
793 1.24 junyoung biosdisk_close(struct open_file *f)
794 1.1 perry {
795 1.3 thorpej struct biosdisk *d = f->f_devdata;
796 1.1 perry
797 1.24 junyoung /* let the floppy drive go off */
798 1.24 junyoung if (d->ll.type == BIOSDISK_TYPE_FD)
799 1.31 tsutsui wait_sec(3); /* 2s is enough on all PCs I found */
800 1.1 perry
801 1.35 jakllsch dealloc(d, sizeof(*d));
802 1.3 thorpej f->f_devdata = NULL;
803 1.22 junyoung return 0;
804 1.1 perry }
805 1.12 drochner #endif
806 1.1 perry
807 1.22 junyoung int
808 1.24 junyoung biosdisk_ioctl(struct open_file *f, u_long cmd, void *arg)
809 1.1 perry {
810 1.3 thorpej return EIO;
811 1.1 perry }
812