2 * ----------------------------------------------------------------------------
3 * "THE BEER-WARE LICENSE" (Revision 42):
4 * <phk@login.dknet.dk> wrote this file. As long as you retain this notice you
5 * can do whatever you want with this stuff. If we meet some day, and you think
6 * this stuff is worth it, you can buy me a beer in return. Poul-Henning Kamp
7 * ----------------------------------------------------------------------------
9 * $FreeBSD: src/lib/libdisk/write_disk.c,v 1.28.2.10 2001/05/13 21:01:38 jkh Exp $
10 * $DragonFly: src/lib/libdisk/Attic/write_disk.c,v 1.3 2003/11/10 06:14:40 dillon Exp $
19 #include <sys/types.h>
21 #include <sys/ioctl.h>
22 #include <sys/disklabel.h>
23 #include <sys/diskslice.h>
24 #include <sys/diskmbr.h>
28 #define DOSPTYP_EXTENDED 5
32 #define DEF_INTERLEAVE 1
35 #define WHERE(offset,disk) (offset)
37 #define WHERE(offset,disk) (disk->flags & DISK_ON_TRACK ? offset + 63 : offset)
40 /* XXX: A lot of hardcoded 512s probably should be foo->sector_size;
41 I'm not sure which, so I leave it like it worked before. --schweikh */
43 Write_FreeBSD(int fd, struct disk *new, struct disk *old, struct chunk *c1)
54 for(i = 0; i < BBSIZE/512; i++) {
55 p = read_block(fd, WHERE(i + c1->offset, new), 512);
56 memcpy(buf + 512 * i, p, 512);
61 memcpy(buf, new->boot1, 512);
64 memcpy(buf + 512, new->boot2, BBSIZE-512);
65 #elif defined(__alpha__)
67 memcpy(buf + 512, new->boot1, BBSIZE-512);
70 dl = (struct disklabel *)(buf + 512 * LABELSECTOR + LABELOFFSET);
71 memset(dl, 0, sizeof *dl);
73 for(c2 = c1->part; c2; c2 = c2->next) {
74 if (c2->type == unused) continue;
75 if (!strcmp(c2->name, "X")) continue;
77 j = c2->name[strlen(c2->name) - 1] - 'a';
79 j = c2->name[strlen(new->name) + 2] - 'a';
81 if (j < 0 || j >= MAXPARTITIONS || j == RAW_PART) {
83 warn("weird partition letter %c", c2->name[strlen(new->name) + 2]);
87 dl->d_partitions[j].p_size = c2->size;
88 dl->d_partitions[j].p_offset = c2->offset;
89 dl->d_partitions[j].p_fstype = c2->subtype;
92 dl->d_bbsize = BBSIZE;
94 * Add in defaults for superblock size, interleave, and rpms
96 dl->d_sbsize = SBSIZE;
97 dl->d_interleave = DEF_INTERLEAVE;
100 strcpy(dl->d_typename, c1->name);
103 dl->d_secperunit = new->chunks->size;
104 dl->d_ncylinders = new->bios_cyl;
105 dl->d_ntracks = new->bios_hd;
106 dl->d_nsectors = new->bios_sect;
107 dl->d_secpercyl = dl->d_ntracks * dl->d_nsectors;
109 dl->d_npartitions = MAXPARTITIONS;
111 dl->d_type = new->name[0] == 's' || new->name[0] == 'd' ||
112 new->name[0] == 'o' ? DTYPE_SCSI : DTYPE_ESDI;
113 dl->d_partitions[RAW_PART].p_size = c1->size;
114 dl->d_partitions[RAW_PART].p_offset = c1->offset;
117 dl->d_interleave = 1;
121 if(new->flags & DISK_ON_TRACK)
122 for(i=0;i<MAXPARTITIONS;i++)
123 if (dl->d_partitions[i].p_size)
124 dl->d_partitions[i].p_offset += 63;
126 dl->d_magic = DISKMAGIC;
127 dl->d_magic2 = DISKMAGIC;
128 dl->d_checksum = dkcksum(dl);
132 * Tell SRM where the bootstrap is.
140 * Generate the bootblock checksum for the SRM console.
142 for (lp = (u_long *)buf, i = 0, sum = 0; i < 63; i++)
147 for(i=0;i<BBSIZE/512;i++) {
148 write_block(fd,WHERE(i + c1->offset, new), buf + 512 * i, 512);
155 Write_Extended(int fd, struct disk *new, struct disk *old, struct chunk *c1)
160 #if defined(__i386__) && !defined(PC98)
162 Write_Int32(u_int32_t *p, u_int32_t v)
164 u_int8_t *bp = (u_int8_t *)p;
165 bp[0] = (v >> 0) & 0xff;
166 bp[1] = (v >> 8) & 0xff;
167 bp[2] = (v >> 16) & 0xff;
168 bp[3] = (v >> 24) & 0xff;
172 #if defined(__i386__) && !defined(PC98)
174 * Special install-time configuration for the i386 boot0 boot manager.
177 Cfg_Boot_Mgr(u_char *mbr, int edd)
179 if (mbr[0x1b0] == 0x66 && mbr[0x1b1] == 0xbb) {
181 mbr[0x1bb] |= 0x80; /* Packet mode on */
183 mbr[0x1bb] &= 0x7f; /* Packet mode off */
189 Write_Disk(struct disk *d1)
195 struct disk *old = 0;
200 struct dos_partition *dp,work[NDOSPART];
203 int PC98_EntireDisk = 0;
207 int need_edd = 0; /* Need EDD (packet interface) */
213 strcpy(device,_PATH_DEV);
214 strcat(device,d1->name);
217 /* XXX - for entire FreeBSD(98) */
218 for (c1 = d1->chunks->part; c1; c1 = c1->next) {
219 if ((c1->type == freebsd) || (c1->offset == 0))
224 fd = open(device,O_RDWR);
227 warn("open(%s) failed", device);
231 ioctl(fd, DIOCWLABEL, &one);
233 memset(s,0,sizeof s);
235 mbr = read_block(fd, WHERE(1, d1), d1->sector_size);
237 mbr = read_block(fd, WHERE(0, d1), d1->sector_size);
239 dp = (struct dos_partition*)(mbr + DOSPARTOFF);
240 memcpy(work, dp, sizeof work);
243 for (c1 = d1->chunks->part; c1; c1 = c1->next) {
244 if (c1->type == unused) continue;
245 if (!strcmp(c1->name, "X")) continue;
247 j = c1->name[4] - '1';
248 j = c1->name[strlen(d1->name) + 1] - '1';
258 if (c1->type == extended)
259 ret += Write_Extended(fd, d1, old, c1);
261 if (c1->type == freebsd)
262 ret += Write_FreeBSD(fd, d1, old, c1);
266 Write_Int32(&dp[j].dp_start, c1->offset);
267 Write_Int32(&dp[j].dp_size, c1->size);
272 dp[j].dp_ssect = dp[j].dp_ipl_sct = i % d1->bios_sect;
275 dp[j].dp_shd = dp[j].dp_ipl_head = i % d1->bios_hd;
278 dp[j].dp_scyl = dp[j].dp_ipl_cyl = i;
280 if (i >= 1024*d1->bios_sect*d1->bios_hd) {
281 dp[j].dp_ssect = 0xff;
283 dp[j].dp_scyl = 0xff;
286 dp[j].dp_ssect = i % d1->bios_sect;
287 i -= dp[j].dp_ssect++;
289 dp[j].dp_shd = i % d1->bios_hd;
294 dp[j].dp_ssect |= i >> 2;
299 printf("S:%lu = (%x/%x/%x)",
300 c1->offset, dp[j].dp_scyl, dp[j].dp_shd, dp[j].dp_ssect);
306 dp[j].dp_esect = dp[j].dp_ehd = 0;
307 dp[j].dp_ecyl = i / (d1->bios_sect * d1->bios_hd);
309 dp[j].dp_esect = i % d1->bios_sect;
312 dp[j].dp_ehd = i % d1->bios_hd;
318 dp[j].dp_esect = i % d1->bios_sect;
319 i -= dp[j].dp_esect++;
321 dp[j].dp_ehd = i % d1->bios_hd;
324 if (i>1023) i = 1023;
327 dp[j].dp_esect |= i >> 2;
331 printf(" E:%lu = (%x/%x/%x)\n",
332 c1->end, dp[j].dp_ecyl, dp[j].dp_ehd, dp[j].dp_esect);
336 dp[j].dp_mid = c1->subtype & 0xff;
337 dp[j].dp_sid = c1->subtype >> 8;
338 if (c1->flags & CHUNK_ACTIVE)
339 dp[j].dp_mid |= 0x80;
341 strncpy(dp[j].dp_name, c1->sname, 16);
343 dp[j].dp_typ = c1->subtype;
344 if (c1->flags & CHUNK_ACTIVE)
345 dp[j].dp_flag = 0x80;
353 for(i = 0; i < NDOSPART; i++) {
355 memset(dp + i, 0, sizeof *dp);
363 for(i = 0; i < NDOSPART; i++)
364 if (dp[i].dp_typ == 0xa5)
365 dp[i].dp_flag = 0x80;
370 write_block(fd, WHERE(0, d1), d1->bootipl, d1->sector_size);
372 mbr = read_block(fd, WHERE(1, d1), d1->sector_size);
373 memcpy(mbr + DOSPARTOFF, dp, sizeof *dp * NDOSPART);
374 /* XXX - for entire FreeBSD(98) */
375 for (c1 = d1->chunks->part; c1; c1 = c1->next)
376 if (((c1->type == freebsd) || (c1->type == fat))
377 && (c1->offset == 0))
379 if (PC98_EntireDisk == 0)
380 write_block(fd, WHERE(1, d1), mbr, d1->sector_size);
383 for (i = 0; i * d1->sector_size < d1->bootmenu_size; i++)
384 write_block(fd, WHERE(2 + i, d1), &d1->bootmenu[i * d1->sector_size], d1->sector_size);
386 mbr = read_block(fd, WHERE(0, d1), d1->sector_size);
388 memcpy(mbr, d1->bootmgr, DOSPARTOFF);
389 Cfg_Boot_Mgr(mbr, need_edd);
391 memcpy(mbr + DOSPARTOFF, dp, sizeof *dp * NDOSPART);
394 write_block(fd, WHERE(0, d1), mbr, d1->sector_size);
395 if (d1->bootmgr && d1->bootmgr_size > d1->sector_size)
396 for(i = 1; i * d1->sector_size <= d1->bootmgr_size; i++)
397 write_block(fd, WHERE(i, d1), &d1->bootmgr[i * d1->sector_size], d1->sector_size);
402 i = ioctl(fd, DIOCSYNCSLICEINFO, &i);
405 warn("ioctl(DIOCSYNCSLICEINFO)");
407 ioctl(fd, DIOCWLABEL, &zero);