?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
mkfs: symlink support
[minix.git] / commands / writeisofs / writeisofs.c
blob39c810dc89ad2a7010743111b84c1d45fd481795
1
2 /* writeisofs - simple ISO9660-format-image writing utility */
3
4 #include <errno.h>
5 #include <stdio.h>
6 #include <time.h>
7 #include <stdlib.h>
8 #include <fcntl.h>
9 #include <string.h>
10 #include <unistd.h>
11 #include <dirent.h>
12 #include <assert.h>
13 #include <ctype.h>
14 #include <a.out.h>
15 #include <machine/partition.h>
16
17 #include <sys/stat.h>
18
19 #define Writefield(fd, f) Write(fd, &(f), sizeof(f))
20
21 extern char *optarg;
22 extern int optind;
23
24 #ifndef __NBSD_LIBC
25 typedef unsigned char u_int8_t;
26 typedef unsigned short int u_int16_t;
27 typedef unsigned long int u_int32_t;
28 #endif
29
30 #ifndef min
31 #define min(a,b) ((a) < (b) ? (a) : (b))
32 #endif
33
34 #define FLAG_DIR 2
35
36 #include <sys/types.h>
37 #include <sys/stat.h>
38
39 #define NAMELEN (NAME_MAX+5)
40 #define ISONAMELEN 12 /* XXX could easily be 31 */
41 #define PLATFORM_80X86 0
42
43 #define ISO_SECTOR 2048
44 #define VIRTUAL_SECTOR 512
45 #define ROUNDUP(v, n) (((v)+(n)-1)/(n))
46
47 #define CURRENTDIR "."
48 #define PARENTDIR ".."
49
50 /* *** CD (disk) data structures ********************* */
51
52 /* primary volume descriptor */
53
54 struct pvd {
55 u_int8_t one;
56 char set[6];
57 u_int8_t zero;
58 char system[32];
59 char volume[32];
60 u_int8_t zeroes1[8];
61 u_int32_t sectors[2];
62 u_int8_t zeroes2[32];
63 u_int16_t setsize[2];
64 u_int16_t seq[2];
65 u_int16_t sectorsize[2];
66 u_int32_t pathtablesize[2];
67 u_int32_t first_little_pathtable_start;
68 u_int32_t second_little_pathtable_start;
69 u_int32_t first_big_pathtable_start;
70 u_int32_t second_big_pathtable_start;
71 u_int8_t rootrecord[34];
72 u_int8_t volumeset[128];
73 u_int8_t publisher[128];
74 u_int8_t preparer[128];
75 u_int8_t application[128];
76 u_int8_t copyrightfile[37];
77 u_int8_t abstractfile[37];
78 u_int8_t bibliofile[37];
79 u_int8_t create[17];
80 u_int8_t modified[17];
81 char expiry[17];
82 u_int8_t effective[17];
83 u_int8_t one2;
84 u_int8_t zero2;
85 u_int8_t zeroes3[512];
86 u_int8_t zeroes4[653];
87 };
88
89 /* boot record volume descriptor */
90
91 struct bootrecord {
92 u_int8_t indicator; /* 0 */
93 char set[5]; /* "CD001" */
94 u_int8_t version; /* 1 */
95 char ident[32]; /* "EL TORITO SPECIFICATION" */
96 u_int8_t zero[32]; /* unused, must be 0 */
97 u_int32_t bootcatalog; /* starting sector of boot catalog */
98 u_int8_t zero2[1973]; /* unused, must be 0 */
99 };
100
101 /* boot catalog validation entry */
102
103 struct bc_validation {
104 u_int8_t headerid; /* 1 */
105 u_int8_t platform; /* 0: 80x86; 1: powerpc; 2: mac */
106 u_int8_t zero[2]; /* unused, must be 0 */
107 char idstring[24]; /* id string */
108 u_int16_t checksum;
109 u_int8_t keys[2]; /* 0x55AA */
110 };
111
112 /* boot catalog initial/default entry */
113
114 #define INDICATE_BOOTABLE 0x88
115
116 #define BOOTMEDIA_UNSPECIFIED -1
117 #define BOOTMEDIA_NONE 0
118 #define BOOTMEDIA_1200K 1
119 #define BOOTMEDIA_1440K 2
120 #define BOOTMEDIA_2880K 3
121 #define BOOTMEDIA_HARDDISK 4
122
123 struct bc_initial {
124 u_int8_t indicator; /* INDICATE_BOOTABLE */
125 u_int8_t media; /* BOOTMEDIA_* */
126 u_int16_t seg; /* load segment or 0 for default */
127 u_int8_t type; /* system type (from part. table) */
128 u_int8_t zero;
129 u_int16_t sectors;
130 u_int32_t startsector;
131 u_int8_t zero2[20];
132 };
133
134 /* directory entry */
135
136 struct dir {
137 u_int8_t recordsize;
138 u_int8_t extended;
139 u_int32_t datasector[2];
140 u_int32_t filesize[2];
141 u_int8_t year;
142 u_int8_t month;
143 u_int8_t day;
144 u_int8_t hour;
145 u_int8_t minute;
146 u_int8_t second;
147 u_int8_t offset;
148 u_int8_t flags;
149 u_int8_t interleaved;
150 u_int8_t interleavegap;
151 u_int16_t sequence[2];
152 u_int8_t namelen;
153 char name[NAMELEN];
154 };
155
156 /* *** program (memory) data structures ********************* */
157
158 struct node {
159 char name[NAMELEN];
160 time_t timestamp;
161 int isdir;
162 int pathtablerecord;
163 struct node *firstchild, *nextchild;
164
165 /* filled out at i/o time */
166 u_int32_t startsector, bytesize;
167 };
168
169 int n_reserved_pathtableentries = 0, n_used_pathtableentries = 0;
170 int bootmedia = BOOTMEDIA_UNSPECIFIED;
171 unsigned long bootseg = 0;
172 int system_type = 0;
173 int bootimage_is_aout = 0;
174
175 int get_system_type(int fd);
176
177 ssize_t
178 Write(int fd, void *buf, ssize_t len)
179 {
180 ssize_t r;
181 if((r=write(fd, buf, len)) != len) {
182 if(r < 0) { perror("write"); }
183 fprintf(stderr, "failed or short write - aborting.\n");
184 exit(1);
185 }
186 return len;
187 }
188
189 off_t
190 Lseek(int fd, off_t pos, int rel)
191 {
192 off_t r;
193
194 if((r=lseek(fd, pos, rel)) < 0) {
195 perror("lseek");
196 fprintf(stderr, "lseek failed - aborting.\n");
197 exit(1);
198 }
199
200 return r;
201 }
202
203 void
204 writesector(int fd, char *block, int *currentsector)
205 {
206 Write(fd, block, ISO_SECTOR);
207 (*currentsector)++;
208 return;
209 }
210
211 void
212 seeksector(int fd, int sector, int *currentsector)
213 {
214 Lseek(fd, sector*ISO_SECTOR, SEEK_SET);
215 *currentsector = sector;
216 }
217
218 void
219 seekwritesector(int fd, int sector, char *block, int *currentsector)
220 {
221 seeksector(fd, sector, currentsector);
222 writesector(fd, block, currentsector);
223 }
224
225 ssize_t
226 Read(int fd, void *buf, ssize_t len)
227 {
228 ssize_t r;
229 if((r=read(fd, buf, len)) != len) {
230 if(r < 0) { perror("read"); }
231 fprintf(stderr, "failed or short read.\n");
232 exit(1);
233 }
234
235 return len;
236 }
237
238 void both16(unsigned char *both, unsigned short i16)
239 {
240 unsigned char *little, *big;
241
242 little = both;
243 big = both + 2;
244
245 little[0] = big[1] = i16 & 0xFF;
246 little[1] = big[0] = (i16 >> 8) & 0xFF;
247 }
248
249 void both32(unsigned char *both, unsigned long i32)
250 {
251 unsigned char *little, *big;
252
253 little = both;
254 big = both + 4;
255
256 little[0] = big[3] = i32 & 0xFF;
257 little[1] = big[2] = (i32 >> 8) & 0xFF;
258 little[2] = big[1] = (i32 >> 16) & 0xFF;
259 little[3] = big[0] = (i32 >> 24) & 0xFF;
260 }
261
262 #define MINDIRLEN 1
263 #define MAXDIRLEN 31
264
265 #define MAXLEVEL 8
266
267 static int cmpf(const void *v1, const void *v2)
268 {
269 struct node *n1, *n2;
270 int i;
271 char f1[NAMELEN], f2[NAMELEN];
272
273 n1 = (struct node *) v1;
274 n2 = (struct node *) v2;
275 strcpy(f1, n1->name);
276 strcpy(f2, n2->name);
277 for(i = 0; i < strlen(f1); i++) f1[i] = toupper(f1[i]);
278 for(i = 0; i < strlen(f2); i++) f2[i] = toupper(f2[i]);
279
280
281 return -strcmp(f1, f2);
282 }
283
284 void
285 maketree(struct node *thisdir, char *name, int level)
286 {
287 DIR *dir;
288 struct dirent *e;
289 struct node *dirnodes = NULL;
290 int reserved_dirnodes = 0, used_dirnodes = 0;
291 struct node *child;
292
293 thisdir->firstchild = NULL;
294 thisdir->isdir = 1;
295 thisdir->startsector = 0xdeadbeef;
296
297 if(level >= MAXLEVEL) {
298 fprintf(stderr, "ignoring entries in %s (too deep for iso9660)\n",
299 name);
300 return;
301 }
302
303 if(!(dir = opendir(CURRENTDIR))) {
304 perror("opendir");
305 return;
306 }
307
308 /* how many entries do we need to allocate? */
309 while(readdir(dir)) reserved_dirnodes++;
310 if(!reserved_dirnodes) {
311 closedir(dir);
312 return;
313 }
314
315 if(!(dirnodes = malloc(sizeof(*dirnodes)*reserved_dirnodes))) {
316 fprintf(stderr, "couldn't allocate dirnodes (%d bytes)\n",
317 sizeof(*dirnodes)*reserved_dirnodes);
318 exit(1);
319 }
320
321
322 /* remember all entries in this dir */
323 rewinddir(dir);
324
325 child = dirnodes;
326 while((e=readdir(dir))) {
327 struct stat st;
328 mode_t type;
329 if(!strcmp(e->d_name, CURRENTDIR) || !strcmp(e->d_name, PARENTDIR))
330 continue;
331 if(stat(e->d_name, &st) < 0) {
332 perror(e->d_name);
333 fprintf(stderr, "failed to stat file/dir\n");
334 exit(1);
335 }
336
337 type = st.st_mode & S_IFMT;
338
339 /*
340 printf("%s type: %x dir: %x file: %x\n",
341 e->d_name, type, S_IFDIR, S_IFREG);
342 */
343 if(type != S_IFDIR && type != S_IFREG)
344 continue;
345
346 used_dirnodes++;
347 if(used_dirnodes > reserved_dirnodes) {
348 fprintf(stderr, "huh, directory entries appeared "
349 "(not enough pre-allocated nodes; this can't happen) ?\n");
350 exit(1);
351 }
352
353 if(type == S_IFDIR) {
354 child->isdir = 1;
355 } else {
356 child->isdir = 0;
357 child->firstchild = NULL;
358 }
359 strlcpy(child->name, e->d_name, sizeof(child->name));
360 child->timestamp = st.st_mtime;
361
362 child++;
363 }
364
365 closedir(dir);
366
367 if(!used_dirnodes)
368 return;
369
370 if(!(dirnodes=realloc(dirnodes, used_dirnodes*sizeof(*dirnodes)))) {
371 fprintf(stderr, "realloc() of dirnodes failed - aborting\n");
372 exit(1);
373 }
374
375 qsort(dirnodes, used_dirnodes, sizeof(*dirnodes), cmpf);
376
377 child = dirnodes;
378
379 while(used_dirnodes--) {
380 child->nextchild = thisdir->firstchild;
381 thisdir->firstchild = child;
382 if(child->isdir) {
383 if(chdir(child->name) < 0) {
384 perror(child->name);
385 } else {
386 maketree(child, child->name, level+1);
387 if(chdir(PARENTDIR) < 0) {
388 perror("chdir() failed");
389 fprintf(stderr, "couldn't chdir() to parent, aborting\n");
390 exit(1);
391 }
392 }
393 }
394
395 child++;
396 }
397
398 }
399
400 void
401 little32(unsigned char *dest, u_int32_t src)
402 {
403 dest[0] = ((src >> 0) & 0xFF);
404 dest[1] = ((src >> 8) & 0xFF);
405 dest[2] = ((src >> 16) & 0xFF);
406 dest[3] = ((src >> 24) & 0xFF);
407
408 return;
409 }
410
411 void
412 little16(unsigned char *dest, u_int16_t src)
413 {
414 dest[0] = ((src >> 0) & 0xFF);
415 dest[1] = ((src >> 8) & 0xFF);
416
417 return;
418 }
419
420 void
421 big32(unsigned char *dest, u_int32_t src)
422 {
423 dest[3] = ((src >> 0) & 0xFF);
424 dest[2] = ((src >> 8) & 0xFF);
425 dest[1] = ((src >> 16) & 0xFF);
426 dest[0] = ((src >> 24) & 0xFF);
427 return;
428 }
429
430 void
431 big16(unsigned char *dest, u_int16_t src)
432 {
433 dest[1] = ((src >> 0) & 0xFF);
434 dest[0] = ((src >> 8) & 0xFF);
435 return;
436 }
437
438
439 void
440 traversetree(struct node *root, int level, int littleendian,
441 int maxlevel, int *bytes, int fd, int parentrecord, int *recordno)
442 {
443 struct node *child;
444 struct pte {
445 u_int8_t len;
446 u_int8_t zero;
447 u_int32_t startsector;
448 u_int16_t parent;
449 } pte;
450
451 if(level == maxlevel) {
452 int i;
453 char newname[NAMELEN];
454 if(!root->isdir)
455 return;
456 pte.zero = 0;
457 if(level == 1) {
458 /* root */
459 pte.len = 1;
460 pte.parent = 1;
461 root->name[0] = root->name[1] = '\0';
462 } else {
463 pte.len = strlen(root->name);
464 pte.parent = parentrecord;
465 }
466 pte.startsector = root->startsector;
467 root->pathtablerecord = (*recordno)++;
468
469 if(littleendian) {
470 little32((unsigned char *) &pte.startsector, pte.startsector);
471 little16((unsigned char *) &pte.parent, pte.parent);
472 } else {
473 big32((unsigned char *) &pte.startsector, pte.startsector);
474 big16((unsigned char *) &pte.parent, pte.parent);
475 }
476
477 *bytes += Write(fd, &pte.len, sizeof(pte.len));
478 *bytes += Write(fd, &pte.zero, sizeof(pte.zero));
479 *bytes += Write(fd, &pte.startsector, sizeof(pte.startsector));
480 *bytes += Write(fd, &pte.parent, sizeof(pte.parent));
481 if(!(pte.len%2))
482 root->name[pte.len++] = '\0';
483 for(i = 0; i < pte.len; i++)
484 newname[i] = toupper(root->name[i]);
485 *bytes += Write(fd, newname, pte.len);
486 return;
487 }
488
489 for(child = root->firstchild; child; child = child->nextchild)
490 if(child->isdir)
491 traversetree(child, level+1, littleendian,
492 maxlevel, bytes, fd, root->pathtablerecord,
493 recordno);
494
495 return;
496 }
497
498 int
499 makepathtables(struct node *root, int littleendian, int *bytes, int fd)
500 {
501 int level;
502 static char block[ISO_SECTOR];
503 int recordno;
504
505 recordno = 1;
506
507 *bytes = 0;
508
509 for(level = 1; level <= MAXLEVEL; level++)
510 traversetree(root, 1, littleendian, level, bytes, fd, 1, &recordno);
511
512 if(*bytes % ISO_SECTOR) {
513 ssize_t x;
514 x = ISO_SECTOR-(*bytes % ISO_SECTOR);
515 write(fd, block, x);
516 *bytes += x;
517 }
518
519 return *bytes/ISO_SECTOR;
520 }
521
522 ssize_t
523 write_direntry(struct node * n, char *origname, int fd)
524 {
525 int namelen, total = 0;
526 struct dir entry;
527 char copyname[NAMELEN];
528 struct tm tm;
529
530 memset(&entry, 0, sizeof(entry));
531
532 if(!strcmp(origname, CURRENTDIR)) {
533 entry.name[0] = '\000';
534 namelen = 1;
535 } else if(!strcmp(origname, PARENTDIR)) {
536 entry.name[0] = '\001';
537 namelen = 1;
538 } else {
539 int i;
540 strlcpy(copyname, origname, sizeof(copyname));
541 namelen = strlen(copyname);
542
543 /* XXX No check for 8+3 ? (DOS compatibility) */
544 assert(ISONAMELEN <= NAMELEN-2);
545 if(namelen > ISONAMELEN) {
546 fprintf(stderr, "%s: truncated, too long for iso9660\n", copyname);
547 namelen = ISONAMELEN;
548 copyname[namelen] = '\0';
549 }
550
551 strlcpy(entry.name, copyname, namelen+1);
552 for(i = 0; i < namelen; i++)
553 entry.name[i] = toupper(entry.name[i]);
554
555 /* padding byte + system field */
556 entry.name[namelen] = '\0';
557 entry.name[namelen+1] = '\0';
558 entry.name[namelen+2] = '\0';
559 }
560 entry.namelen = namelen; /* original length */
561 if(!(namelen%2)) namelen++; /* length with padding byte */
562
563
564 /* XXX 2 extra bytes for 'system use'.. */
565 entry.recordsize = 33 + namelen;
566 both32((unsigned char *) entry.datasector, n->startsector);
567 both32((unsigned char *) entry.filesize, n->bytesize);
568
569 if(n->isdir) entry.flags = FLAG_DIR;
570
571 memcpy(&tm, gmtime(&n->timestamp), sizeof(tm));
572 entry.year = (unsigned)tm.tm_year > 255 ? 255 : tm.tm_year;
573 entry.month = tm.tm_mon + 1;
574 entry.day = tm.tm_mday;
575 entry.hour = tm.tm_hour;
576 entry.minute = tm.tm_min;
577 entry.second = tm.tm_sec;
578 entry.offset = 0; /* Posix uses UTC timestamps! */
579
580 both16((unsigned char *) entry.sequence, 1);
581
582 total = Write(fd, &entry.recordsize, sizeof(entry.recordsize));
583 total += Write(fd, &entry.extended, sizeof(entry.extended));
584 total += Write(fd, entry.datasector, sizeof(entry.datasector));
585 total += Write(fd, entry.filesize, sizeof(entry.filesize));
586 total += Write(fd, &entry.year, sizeof(entry.year));
587 total += Write(fd, &entry.month, sizeof(entry.month));
588 total += Write(fd, &entry.day, sizeof(entry.day));
589 total += Write(fd, &entry.hour, sizeof(entry.hour));
590 total += Write(fd, &entry.minute, sizeof(entry.minute));
591 total += Write(fd, &entry.second, sizeof(entry.second));
592 total += Write(fd, &entry.offset, sizeof(entry.offset));
593 total += Write(fd, &entry.flags, sizeof(entry.flags));
594 total += Write(fd, &entry.interleaved, sizeof(entry.interleaved));
595 total += Write(fd, &entry.interleavegap, sizeof(entry.interleavegap));
596 total += Write(fd, entry.sequence, sizeof(entry.sequence));
597 total += Write(fd, &entry.namelen, sizeof(entry.namelen));
598 total += Write(fd, entry.name, namelen);
599
600 if(total != entry.recordsize || (total % 2) != 0) {
601 printf("%2d, %2d! ", total, entry.recordsize);
602 printf("%3d = %3d - %2d + %2d\n",
603 entry.recordsize, sizeof(entry), sizeof(entry.name), namelen);
604 }
605
606 return entry.recordsize;
607 }
608
609 void
610 writedata(struct node *parent, struct node *root,
611 int fd, int *currentsector, int dirs, struct dir *rootentry,
612 int rootsize, int remove_after)
613 {
614 static char buf[1024*1024];
615 struct node *c;
616 ssize_t written = 0, rest;
617
618 for(c = root->firstchild; c; c = c->nextchild) {
619 if(c->isdir && chdir(c->name) < 0) {
620 perror(c->name);
621 fprintf(stderr, "couldn't chdir to %s - aborting\n",
622 c->name);
623 exit(1);
624 }
625 writedata(root, c, fd, currentsector, dirs, rootentry, rootsize, remove_after);
626 if(c->isdir && chdir(PARENTDIR) < 0) {
627 perror("chdir to ..");
628 fprintf(stderr, "couldn't chdir to parent - "
629 "aborting\n");
630 exit(1);
631 }
632 }
633
634 /* write nodes depth-first, down-top */
635
636 if(root->isdir && dirs) {
637 /* dir */
638 written = 0;
639 root->startsector = *currentsector;
640 written += write_direntry(root, CURRENTDIR, fd);
641 if(parent) {
642 written += write_direntry(parent, PARENTDIR, fd);
643 } else {
644 written += write_direntry(root, PARENTDIR, fd);
645 }
646 for(c = root->firstchild; c; c = c->nextchild) {
647 off_t cur1, cur2;
648 ssize_t written_before;
649 cur1 = Lseek(fd, 0, SEEK_CUR);
650 written_before = written;
651 written += write_direntry(c, c->name, fd);
652 cur2 = Lseek(fd, 0, SEEK_CUR);
653 if(cur1/ISO_SECTOR != (cur2-1)/ISO_SECTOR) {
654 /* passed a sector boundary, argh! */
655 Lseek(fd, cur1, SEEK_SET);
656 written = written_before;
657 rest=(ISO_SECTOR-(written % ISO_SECTOR));
658 memset(buf, 0, rest);
659 Write(fd, buf, rest);
660 written += rest;
661 written += write_direntry(c, c->name, fd);
662 }
663 }
664 root->bytesize = written;
665 } else if(!root->isdir && !dirs) {
666 /* file */
667 struct stat st;
668 ssize_t rem;
669 int filefd;
670
671 if(stat(root->name, &st) < 0) {
672 perror(root->name);
673 fprintf(stderr, "couldn't stat %s - aborting\n", root->name);
674 exit(1);
675 }
676
677 if((filefd = open(root->name, O_RDONLY)) < 0) {
678 perror(root->name);
679 fprintf(stderr, "couldn't open %s - aborting\n", root->name);
680 exit(1);
681 }
682
683 rem = st.st_size;
684
685 root->startsector = *currentsector;
686
687 while(rem > 0) {
688 ssize_t chunk;
689 chunk = min(sizeof(buf), rem);
690 Read(filefd, buf, chunk);
691 Write(fd, buf, chunk);
692 rem -= chunk;
693 }
694
695 close(filefd);
696
697 root->bytesize = written = st.st_size;
698 if(remove_after && unlink(root->name) < 0) {
699 perror("unlink");
700 fprintf(stderr, "couldn't remove %s\n", root->name);
701 }
702 } else {
703 /* nothing to be done */
704 return;
705 }
706
707 /* fill out sector with zero bytes */
708
709 if((rest=(ISO_SECTOR-(written % ISO_SECTOR)))) {
710 memset(buf, 0, rest);
711 Write(fd, buf, rest);
712 written += rest;
713 }
714
715 /* update dir size with padded size */
716
717 if(root->isdir) { root->bytesize = written; }
718
719 *currentsector += written/ISO_SECTOR;
720 }
721
722 void
723 writebootcatalog(int fd, int *currentsector, int imagesector, int imagesectors)
724 {
725 static char buf[ISO_SECTOR];
726 struct bc_validation validate;
727 struct bc_initial initial;
728
729 ssize_t written, rest;
730 u_int16_t *v, sum = 0;
731 int i;
732
733 /* write validation entry */
734
735 memset(&validate, 0, sizeof(validate));
736 validate.headerid = 1;
737 validate.platform = PLATFORM_80X86;
738 strcpy(validate.idstring, "");
739 validate.keys[0] = 0x55;
740 validate.keys[1] = 0xaa;
741
742 v = (u_int16_t *) &validate;
743 for(i = 0; i < sizeof(validate)/2; i++)
744 sum += v[i];
745 validate.checksum = 65535 - sum + 1; /* sum must be 0 */
746
747 written = Write(fd, &validate, sizeof(validate));
748
749 /* write initial/default entry */
750
751 memset(&initial, 0, sizeof(initial));
752
753 initial.indicator = INDICATE_BOOTABLE;
754 initial.media = bootmedia;
755 initial.seg = (u_int16_t) (bootseg & 0xFFFF);
756 initial.sectors = 1;
757 if (bootmedia == BOOTMEDIA_HARDDISK)
758 {
759 initial.type = system_type;
760 }
761 if (bootmedia == BOOTMEDIA_NONE)
762 {
763 initial.sectors = imagesectors;
764 }
765 initial.startsector = imagesector;
766
767 written += Write(fd, &initial, sizeof(initial));
768
769 /* fill out the rest of the sector with 0's */
770
771 if((rest = ISO_SECTOR - (written % ISO_SECTOR))) {
772 memset(buf, 0, sizeof(buf));
773 written += Write(fd, buf, rest);
774 }
775
776 (*currentsector) += written / ISO_SECTOR;
777
778 return;
779 }
780
781 int
782 writebootimage(char *bootimage, int bootfd, int fd, int *currentsector,
783 char *appendsectorinfo, struct node *root)
784 {
785 static unsigned char buf[1024*64], *addr;
786 ssize_t written = 0, rest;
787 int virtuals, rem;
788 struct exec hdr;
789 struct stat sb;
790 struct bap {
791 off_t sector;
792 int length;
793 } bap[2];
794
795 bap[0].length = bap[0].sector = 0;
796 bap[1].length = bap[1].sector = 0;
797
798 if (fstat(bootfd, &sb) < 0) {
799 perror("stat boot image");
800 exit(1);
801 }
802
803 if (bootimage_is_aout) {
804 Read(bootfd, &hdr, A_MINHDR);
805
806 if(hdr.a_magic[0] != A_MAGIC0) {
807 fprintf(stderr, "bad magic in a.out of boot image.\n");
808 exit(1);
809 }
810
811 if(hdr.a_hdrlen > sizeof(hdr)) {
812 fprintf(stderr, "surprisingly large header in boot image.\n");
813 exit(1);
814 }
815
816 /* read rest of a.out header. */
817 Read(bootfd, (char *) &hdr + A_MINHDR, hdr.a_hdrlen - A_MINHDR);
818
819 /* copy text+data */
820 rem = hdr.a_text + hdr.a_data;
821 } else
822 rem = sb.st_size;
823
824 while(rem > 0) {
825 int want;
826 want = rem < sizeof(buf) ? rem : sizeof(buf);
827 Read(bootfd, buf, want);
828 if (written == 0) {
829 /* check some properties at beginning. */
830 if (!bootimage_is_aout && buf[0] == 1 && buf[1] == 3) {
831 fprintf(stderr, "boot image %s is an a.out executable\n",
832 bootimage);
833 exit(1);
834 }
835 if (rem >= VIRTUAL_SECTOR
836 && (buf[510] != 0x55 || buf[511] != 0xaa) ) {
837 fprintf(stderr, "invalid boot sector (bad magic.)\n");
838 exit(1);
839 }
840 }
841 written += Write(fd, buf, want);
842 rem -= want;
843 }
844
845 if(appendsectorinfo) {
846 struct node *n;
847 for(n = root->firstchild; n; n = n ->nextchild) {
848 if(!strcasecmp(appendsectorinfo, n->name)) {
849 bap[0].sector = n->startsector;
850 bap[0].length = ROUNDUP(n->bytesize, ISO_SECTOR);
851 break;
852 }
853 }
854 if(!n) {
855 fprintf(stderr, "%s not found in root.\n",
856 appendsectorinfo);
857 exit(1);
858 }
859
860 fprintf(stderr, " * appended sector info: 0x%lx len 0x%x\n",
861 bap[0].sector, bap[0].length);
862
863 addr = buf;
864 addr[0] = bap[0].length;
865 assert(addr[0] > 0);
866 addr[1] = (bap[0].sector >> 0) & 0xFF;
867 addr[2] = (bap[0].sector >> 8) & 0xFF;
868 addr[3] = (bap[0].sector >> 16) & 0xFF;
869 addr[4] = 0;
870 addr[5] = 0;
871
872 written += Write(fd, addr, 6);
873 }
874
875 virtuals = ROUNDUP(written, VIRTUAL_SECTOR);
876 assert(virtuals * VIRTUAL_SECTOR >= written);
877
878 if((rest = ISO_SECTOR - (written % ISO_SECTOR))) {
879 memset(buf, 0, sizeof(buf));
880 written += Write(fd, buf, rest);
881 }
882
883 (*currentsector) += written/ISO_SECTOR;
884
885 return virtuals;
886 }
887
888 void
889 writebootrecord(int fd, int *currentsector, int bootcatalogsector)
890 {
891 int i;
892 static struct bootrecord bootrecord;
893 ssize_t w = 0;
894 /* boot record volume descriptor */
895
896 memset(&bootrecord, 0, sizeof(bootrecord));
897 bootrecord.set[0] = 'C';
898 bootrecord.set[1] = 'D';
899 bootrecord.set[2] = '0';
900 bootrecord.set[3] = '0';
901 bootrecord.set[4] = '1';
902 bootrecord.version = 1;
903 bootrecord.bootcatalog = bootcatalogsector;
904 strcpy(bootrecord.ident, "EL TORITO SPECIFICATION");
905 for(i = strlen(bootrecord.ident);
906 i < sizeof(bootrecord.ident); i++)
907 bootrecord.ident[i] = '\0';
908
909 w = Writefield(fd, bootrecord.indicator);
910 w += Writefield(fd, bootrecord.set);
911 w += Writefield(fd, bootrecord.version);
912 w += Writefield(fd, bootrecord.ident);
913 w += Writefield(fd, bootrecord.zero);
914 w += Writefield(fd, bootrecord.bootcatalog);
915 w += Writefield(fd, bootrecord.zero2);
916
917 if(w != ISO_SECTOR) {
918 fprintf(stderr, "WARNING: something went wrong - boot record (%d) isn't a sector size (%d)\n",
919 w, ISO_SECTOR);
920 }
921
922 (*currentsector)++;
923 }
924
925 int
926 main(int argc, char *argv[])
927 {
928 int currentsector = 0;
929 int imagesector, imagesectors;
930 int bootfd, fd, i, ch, nsectors;
931 int remove_after = 0;
932 static char block[ISO_SECTOR];
933 static struct pvd pvd;
934 char *label = "ISO9660";
935 struct tm *now;
936 time_t nowtime;
937 char timestr[20], *prog;
938 char *bootimage = NULL;
939 struct node root;
940 int pvdsector;
941 int bigpath, littlepath, pathbytes = 0, dirsector, filesector, enddir;
942 int bootvolumesector, bootcatalogsector;
943 char *appendsectorinfo = NULL;
944
945 prog = argv[0];
946
947 /* This check is to prevent compiler padding screwing up
948 * our format.
949 */
950
951 if(sizeof(struct pvd) != ISO_SECTOR) {
952 fprintf(stderr, "Something confusing happened at\n"
953 "compile-time; pvd should be a sector size. %d != %d\n",
954 sizeof(struct pvd), ISO_SECTOR);
955 return 1;
956 }
957
958 while ((ch = getopt(argc, argv, "a:b:B:s:Rb:hl:nfF")) != -1) {
959 switch(ch) {
960 case 's':
961 if(optarg[0] != '0' || optarg[1] != 'x') {
962 fprintf(stderr, "%s: -s<hex>\n",
963 argv[0]);
964 return 1;
965 }
966 bootseg = strtoul(optarg+2, NULL, 16);
967 break;
968 case 'h':
969 bootmedia= BOOTMEDIA_HARDDISK;
970 break;
971 case 'n':
972 bootmedia= BOOTMEDIA_NONE;
973 break;
974 case 'f':
975 bootmedia= BOOTMEDIA_1440K;
976 break;
977 case 'F':
978 bootmedia= BOOTMEDIA_2880K;
979 break;
980 case 'a':
981 if(!(appendsectorinfo = strdup(optarg)))
982 exit(1);
983 break;
984 case 'l':
985 label = optarg;
986 break;
987 case 'R':
988 remove_after = 1;
989 break;
990 case 'b':
991 bootimage_is_aout= 1;
992 /*FALLTHROUGH*/
993 case 'B':
994 bootimage = optarg;
995 if((bootfd = open(bootimage, O_RDONLY)) < 0) {
996 perror(bootimage);
997 return 1;
998 }
999 break;
1000 }
1001 }
1002
1003 argc -= optind;
1004 argv += optind;
1005
1006 /* Args check */
1007
1008 if(argc != 2) {
1009 fprintf(stderr, "usage: %s [-l <label>] [-(b|B) <bootimage> [-n|-f|-F|-h] [-s <bootsegment>] [ -a <appendfile> ] <dir> <isofile>\n",
1010 prog);
1011 return 1;
1012 }
1013
1014 if((bootimage && bootmedia == BOOTMEDIA_UNSPECIFIED) ||
1015 (!bootimage && bootmedia != BOOTMEDIA_UNSPECIFIED)) {
1016 fprintf(stderr, "%s: provide both boot image and boot type or neither.\n",
1017 prog);
1018 return 1;
1019 }
1020
1021 if(!bootimage && bootseg) {
1022 fprintf(stderr, "%s: boot seg provided but no boot image\n",
1023 prog);
1024 return 1;
1025 }
1026
1027 if(appendsectorinfo) {
1028 if(!bootimage || bootmedia != BOOTMEDIA_NONE) {
1029 fprintf(stderr, "%s: append sector info where?\n",
1030 prog);
1031 return 1;
1032 }
1033 }
1034
1035 /* create .iso file */
1036
1037 if((fd=open(argv[1], O_WRONLY | O_TRUNC | O_CREAT, 0600)) < 0) {
1038 perror(argv[1]);
1039 return 1;
1040 }
1041
1042 /* go to where the iso has to be made from */
1043
1044 if(chdir(argv[0]) < 0) {
1045 perror(argv[0]);
1046 return 1;
1047 }
1048
1049 /* collect dirs and files */
1050
1051 fprintf(stderr, " * traversing input tree\n");
1052
1053 maketree(&root, "", 1);
1054
1055 fprintf(stderr, " * writing initial zeroes and pvd\n");
1056
1057 /* first sixteen sectors are zero */
1058
1059 memset(block, 0, sizeof(block));
1060
1061 for(i = 0; i < 16; i++)
1062 writesector(fd, block, &currentsector);
1063
1064 /* Primary Volume Descriptor */
1065 memset(&pvd, 0, sizeof(pvd));
1066 pvd.one = 1;
1067 pvd.set[0] = 67;
1068 pvd.set[1] = 68;
1069 pvd.set[2] = 48;
1070 pvd.set[3] = 48;
1071 pvd.set[4] = 49;
1072 pvd.set[5] = 1;
1073 pvd.set[5] = 1;
1074
1075 strncpy(pvd.volume, label, sizeof(pvd.volume)-1);
1076 for(i = strlen(pvd.volume); i < sizeof(pvd.volume); i++)
1077 pvd.volume[i] = ' ';
1078 for(i = 0; i < sizeof(pvd.system); i++)
1079 pvd.system[i] = ' ';
1080
1081 both16((unsigned char *) pvd.setsize, 1);
1082 both16((unsigned char *) pvd.seq, 1);
1083 both16((unsigned char *) pvd.sectorsize, ISO_SECTOR);
1084
1085 /* fill time fields */
1086 time(&nowtime);
1087 now = gmtime(&nowtime);
1088 strftime(timestr, sizeof(timestr), "%Y%m%d%H%M%S000", now);
1089 memcpy(pvd.create, timestr, strlen(timestr));
1090 memcpy(pvd.modified, timestr, strlen(timestr));
1091 memcpy(pvd.effective, timestr, strlen(timestr));
1092 strcpy(pvd.expiry, "0000000000000000"); /* not specified */
1093 pvdsector = currentsector;
1094
1095 writesector(fd, (char *) &pvd, &currentsector);
1096
1097 if(bootimage) {
1098 fprintf(stderr, " * writing boot record volume descriptor\n");
1099 bootvolumesector = currentsector;
1100 writebootrecord(fd, &currentsector, 0);
1101 }
1102
1103 /* volume descriptor set terminator */
1104 memset(block, 0, sizeof(block));
1105 block[0] = 255;
1106 block[1] = 67;
1107 block[2] = 68;
1108 block[3] = 48;
1109 block[4] = 48;
1110 block[5] = 49;
1111 block[6] = 1;
1112
1113 writesector(fd, block, &currentsector);
1114
1115 if(bootimage) {
1116 /* write the boot catalog */
1117 fprintf(stderr, " * writing the boot catalog\n");
1118 bootcatalogsector = currentsector;
1119 if (bootmedia == BOOTMEDIA_HARDDISK)
1120 system_type = get_system_type(bootfd);
1121 writebootcatalog(fd, &currentsector, 0, 0);
1122
1123 /* write boot image */
1124 fprintf(stderr, " * writing the boot image\n");
1125 imagesector = currentsector;
1126 imagesectors = writebootimage(bootimage, bootfd,
1127 fd, &currentsector, NULL, &root);
1128 fprintf(stderr, " * image: %d %d-byte sectors @ cd sector 0x%x\n",
1129 imagesectors, VIRTUAL_SECTOR, imagesector);
1130 }
1131
1132 /* write out all the file data */
1133
1134 filesector = currentsector;
1135 fprintf(stderr, " * writing file data\n");
1136 writedata(NULL, &root, fd, &currentsector, 0,
1137 (struct dir *) &pvd.rootrecord, sizeof(pvd.rootrecord),
1138 remove_after);
1139
1140 /* write out all the dir data */
1141
1142 dirsector = currentsector;
1143 fprintf(stderr, " * writing dir data\n");
1144 writedata(NULL, &root, fd, &currentsector, 1,
1145 (struct dir *) &pvd.rootrecord, sizeof(pvd.rootrecord),
1146 remove_after);
1147 enddir = currentsector;
1148 seeksector(fd, dirsector, &currentsector);
1149 fprintf(stderr, " * rewriting dir data\n");
1150 fflush(NULL);
1151 writedata(NULL, &root, fd, &currentsector, 1,
1152 (struct dir *) &pvd.rootrecord, sizeof(pvd.rootrecord),
1153 remove_after);
1154 if(currentsector != enddir) {
1155 fprintf(stderr, "warning: inconsistent directories - "
1156 "I have a bug! iso may be broken.\n");
1157 }
1158
1159 /* now write the path table in both formats */
1160
1161 fprintf(stderr, " * writing big-endian path table\n");
1162 bigpath = currentsector;
1163 currentsector += makepathtables(&root, 0, &pathbytes, fd);
1164
1165 fprintf(stderr, " * writing little-endian path table\n");
1166 littlepath = currentsector;
1167 currentsector += makepathtables(&root, 1, &pathbytes, fd);
1168
1169 both32((unsigned char *) pvd.pathtablesize, pathbytes);
1170 little32((unsigned char *) &pvd.first_little_pathtable_start, littlepath);
1171 big32((unsigned char *) &pvd.first_big_pathtable_start, bigpath);
1172
1173 /* this is the size of the iso filesystem for use in the pvd later */
1174
1175 nsectors = currentsector;
1176 both32((unsigned char *) pvd.sectors, nsectors);
1177
1178 /* *********** Filesystem writing done ************************* */
1179
1180 /* finish and rewrite the pvd. */
1181 fprintf(stderr, " * rewriting pvd\n");
1182 seekwritesector(fd, pvdsector, (char *) &pvd, &currentsector);
1183
1184 /* write root dir entry in pvd */
1185 seeksector(fd, pvdsector, &currentsector);
1186 Lseek(fd, (int)((char *) &pvd.rootrecord - (char *) &pvd), SEEK_CUR);
1187 if(write_direntry(&root, CURRENTDIR, fd) > sizeof(pvd.rootrecord)) {
1188 fprintf(stderr, "warning: unexpectedly large root record\n");
1189 }
1190
1191 if(bootimage) {
1192 fprintf(stderr, " * rewriting boot catalog\n");
1193 seeksector(fd, bootcatalogsector, &currentsector);
1194 writebootcatalog(fd, &currentsector, imagesector, imagesectors);
1195
1196 /* finish and rewrite the boot record volume descriptor */
1197 fprintf(stderr, " * rewriting the boot rvd\n");
1198 seeksector(fd, bootvolumesector, &currentsector);
1199 writebootrecord(fd, &currentsector, bootcatalogsector);
1200
1201 if(appendsectorinfo) {
1202 Lseek(bootfd, 0, SEEK_SET);
1203 fprintf(stderr, " * rewriting boot image\n");
1204 seeksector(fd, imagesector, &currentsector);
1205 writebootimage(bootimage, bootfd,
1206 fd, &currentsector, appendsectorinfo, &root);
1207
1208 }
1209 close(bootfd);
1210 }
1211
1212 fprintf(stderr, " * all ok\n");
1213
1214 return 0;
1215 }
1216
1217 int get_system_type(int fd)
1218 {
1219 off_t old_pos;
1220 size_t size;
1221 ssize_t r;
1222 int type;
1223 struct part_entry *partp;
1224 unsigned char bootsector[512];
1225
1226 errno= 0;
1227 old_pos= lseek(fd, 0, SEEK_SET);
1228 if (old_pos == -1 && errno != 0)
1229 {
1230 fprintf(stderr, "bootimage file is not seekable: %s\n",
1231 strerror(errno));
1232 exit(1);
1233 }
1234 size= sizeof(bootsector);
1235 r= read(fd, bootsector, size);
1236 if (r != size)
1237 {
1238 fprintf(stderr, "error reading bootimage file: %s\n",
1239 r < 0 ? strerror(errno) : "unexpected EOF");
1240 exit(1);
1241 }
1242 if (bootsector[size-2] != 0x55 && bootsector[size-1] != 0xAA)
1243 {
1244 fprintf(stderr, "bad magic in bootimage file\n");
1245 exit(1);
1246 }
1247
1248 partp= (struct part_entry *)&bootsector[PART_TABLE_OFF];
1249 type= partp->sysind;
1250 if (type == NO_PART)
1251 {
1252 fprintf(stderr, "first partition table entry is unused\n");
1253 exit(1);
1254 }
1255 if (!(partp->bootind & ACTIVE_FLAG))
1256 {
1257 fprintf(stderr, "first partition table entry is not active\n");
1258 exit(1);
1259 }
1260
1261 lseek(fd, old_pos, SEEK_SET);
1262 return type;
1263 }
MINIX 3 (repo.or.cz mirror)