1 7285a491 2004-06-17 devnull #include <u.h>
2 7285a491 2004-06-17 devnull #include <libc.h>
3 7285a491 2004-06-17 devnull #include <bio.h>
4 7285a491 2004-06-17 devnull #include <disk.h>
5 7285a491 2004-06-17 devnull #include <libsec.h>
6 7285a491 2004-06-17 devnull #include "iso9660.h"
8 7285a491 2004-06-17 devnull ulong now;
9 7285a491 2004-06-17 devnull int chatty;
10 7285a491 2004-06-17 devnull int doabort;
11 7285a491 2004-06-17 devnull int docolon;
12 7285a491 2004-06-17 devnull int mk9660;
13 7285a491 2004-06-17 devnull Conform *map;
15 7285a491 2004-06-17 devnull static void addprotofile(char *new, char *old, Dir *d, void *a);
16 7285a491 2004-06-17 devnull void usage(void);
18 7285a491 2004-06-17 devnull char *argv0;
21 7285a491 2004-06-17 devnull usage(void)
23 7285a491 2004-06-17 devnull if(mk9660)
24 c8b6342d 2005-01-13 devnull fprint(2, "usage: mk9660 [-D:] [-9cjr] [-b bootfile] [-p proto] [-s src] cdimage\n");
26 c8b6342d 2005-01-13 devnull fprint(2, "usage: dump9660 [-D:] [-9cjr] [-m maxsize] [-n now] [-p proto] [-s src] cdimage\n");
27 7285a491 2004-06-17 devnull exits("usage");
31 7285a491 2004-06-17 devnull main(int argc, char **argv)
34 7285a491 2004-06-17 devnull char buf[256], *dumpname, *proto, *s, *src, *status;
35 7285a491 2004-06-17 devnull ulong block, length, newnull, cblock, clength, maxsize;
36 7285a491 2004-06-17 devnull Cdimg *cd;
37 7285a491 2004-06-17 devnull Cdinfo info;
38 7285a491 2004-06-17 devnull XDir dir;
39 7285a491 2004-06-17 devnull Direc *iconform, idumproot, iroot, *jconform, jdumproot, jroot, *r;
40 7285a491 2004-06-17 devnull Dump *dump;
43 7285a491 2004-06-17 devnull status = nil;
44 7285a491 2004-06-17 devnull memset(&info, 0, sizeof info);
45 c8b6342d 2005-01-13 devnull proto = unsharp("#9/proto/allproto");
46 7285a491 2004-06-17 devnull src = "./";
48 7285a491 2004-06-17 devnull info.volumename = atom("9CD");
49 7285a491 2004-06-17 devnull info.volumeset = atom("9VolumeSet");
50 7285a491 2004-06-17 devnull info.publisher = atom("9Publisher");
51 7285a491 2004-06-17 devnull info.preparer = atom("dump9660");
52 7285a491 2004-06-17 devnull info.application = atom("dump9660");
53 7285a491 2004-06-17 devnull info.flags = CDdump;
54 7285a491 2004-06-17 devnull maxsize = 0;
55 7285a491 2004-06-17 devnull mk9660 = 0;
56 7285a491 2004-06-17 devnull fmtinstall('H', encodefmt);
58 7285a491 2004-06-17 devnull ARGBEGIN{
59 7285a491 2004-06-17 devnull case 'D':
60 7285a491 2004-06-17 devnull chatty++;
62 7285a491 2004-06-17 devnull case 'M':
63 7285a491 2004-06-17 devnull mk9660 = 1;
64 7285a491 2004-06-17 devnull argv0 = "disk/mk9660";
65 7285a491 2004-06-17 devnull info.flags &= ~CDdump;
67 7285a491 2004-06-17 devnull case '9':
68 7285a491 2004-06-17 devnull info.flags |= CDplan9;
70 7285a491 2004-06-17 devnull case ':':
71 7285a491 2004-06-17 devnull docolon = 1;
73 7285a491 2004-06-17 devnull case 'a':
74 7285a491 2004-06-17 devnull doabort = 1;
76 7285a491 2004-06-17 devnull case 'b':
77 7285a491 2004-06-17 devnull if(!mk9660)
79 7285a491 2004-06-17 devnull info.flags |= CDbootable;
80 7285a491 2004-06-17 devnull info.bootimage = EARGF(usage());
82 7285a491 2004-06-17 devnull case 'c':
83 7285a491 2004-06-17 devnull info.flags |= CDconform;
85 7285a491 2004-06-17 devnull case 'f':
88 7285a491 2004-06-17 devnull case 'j':
89 7285a491 2004-06-17 devnull info.flags |= CDjoliet;
91 7285a491 2004-06-17 devnull case 'n':
92 7285a491 2004-06-17 devnull now = atoi(EARGF(usage()));
94 7285a491 2004-06-17 devnull case 'm':
95 7285a491 2004-06-17 devnull maxsize = strtoul(EARGF(usage()), 0, 0);
97 7285a491 2004-06-17 devnull case 'p':
98 7285a491 2004-06-17 devnull proto = EARGF(usage());
100 7285a491 2004-06-17 devnull case 'r':
101 7285a491 2004-06-17 devnull info.flags |= CDrockridge;
103 7285a491 2004-06-17 devnull case 's':
104 7285a491 2004-06-17 devnull src = EARGF(usage());
106 7285a491 2004-06-17 devnull case 'v':
107 7285a491 2004-06-17 devnull info.volumename = atom(EARGF(usage()));
109 7285a491 2004-06-17 devnull default:
110 7285a491 2004-06-17 devnull usage();
113 7285a491 2004-06-17 devnull if(mk9660 && (fix || now || maxsize))
114 7285a491 2004-06-17 devnull usage();
116 7285a491 2004-06-17 devnull if(argc != 1)
117 7285a491 2004-06-17 devnull usage();
119 7285a491 2004-06-17 devnull if(now == 0)
120 7285a491 2004-06-17 devnull now = (ulong)time(0);
121 7285a491 2004-06-17 devnull if(mk9660){
122 7285a491 2004-06-17 devnull if((cd = createcd(argv[0], info)) == nil)
123 7285a491 2004-06-17 devnull sysfatal("cannot create '%s': %r", argv[0]);
125 7285a491 2004-06-17 devnull if((cd = opencd(argv[0], info)) == nil)
126 7285a491 2004-06-17 devnull sysfatal("cannot open '%s': %r", argv[0]);
127 7285a491 2004-06-17 devnull if(!(cd->flags & CDdump))
128 7285a491 2004-06-17 devnull sysfatal("not a dump cd");
131 7285a491 2004-06-17 devnull /* create ISO9660/Plan 9 tree in memory */
132 7285a491 2004-06-17 devnull memset(&dir, 0, sizeof dir);
133 7285a491 2004-06-17 devnull dir.name = atom("");
134 7285a491 2004-06-17 devnull dir.uid = atom("sys");
135 7285a491 2004-06-17 devnull dir.gid = atom("sys");
136 7285a491 2004-06-17 devnull dir.uidno = 0;
137 7285a491 2004-06-17 devnull dir.gidno = 0;
138 7285a491 2004-06-17 devnull dir.mode = DMDIR | 0755;
139 7285a491 2004-06-17 devnull dir.mtime = now;
140 7285a491 2004-06-17 devnull dir.atime = now;
141 7285a491 2004-06-17 devnull dir.ctime = now;
143 7285a491 2004-06-17 devnull mkdirec(&iroot, &dir);
144 7285a491 2004-06-17 devnull iroot.srcfile = src;
147 7285a491 2004-06-17 devnull * Read new files into memory
149 a8763864 2004-07-09 devnull if(rdproto(proto, src, addprotofile, 0, &iroot) < 0)
150 7285a491 2004-06-17 devnull sysfatal("rdproto: %r");
152 7285a491 2004-06-17 devnull if(mk9660){
153 7285a491 2004-06-17 devnull dump = emalloc(sizeof *dump);
154 7285a491 2004-06-17 devnull dumpname = nil;
157 7285a491 2004-06-17 devnull * Read current dump tree and _conform.map.
159 7285a491 2004-06-17 devnull idumproot = readdumpdirs(cd, &dir, isostring);
160 7285a491 2004-06-17 devnull readdumpconform(cd);
161 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet)
162 7285a491 2004-06-17 devnull jdumproot = readdumpdirs(cd, &dir, jolietstring);
164 7285a491 2004-06-17 devnull if(fix){
165 7285a491 2004-06-17 devnull dumpname = nil;
166 7285a491 2004-06-17 devnull cd->nextblock = cd->nulldump+1;
167 7285a491 2004-06-17 devnull cd->nulldump = 0;
168 7285a491 2004-06-17 devnull Cwseek(cd, cd->nextblock*Blocksize);
169 7285a491 2004-06-17 devnull goto Dofix;
172 7285a491 2004-06-17 devnull dumpname = adddumpdir(&idumproot, now, &dir);
173 7285a491 2004-06-17 devnull /* note that we assume all names are conforming and thus sorted */
174 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet) {
175 7285a491 2004-06-17 devnull s = adddumpdir(&jdumproot, now, &dir);
176 7285a491 2004-06-17 devnull if(s != dumpname)
177 7285a491 2004-06-17 devnull sysfatal("dumpnames don't match %s %s\n", dumpname, s);
179 7285a491 2004-06-17 devnull dump = dumpcd(cd, &idumproot);
180 7285a491 2004-06-17 devnull cd->nextblock = cd->nulldump+1;
184 7285a491 2004-06-17 devnull * Write new files, starting where the dump tree was.
185 7285a491 2004-06-17 devnull * Must be done before creation of the Joliet tree so that
186 7285a491 2004-06-17 devnull * blocks and lengths are correct.
188 7285a491 2004-06-17 devnull Cwseek(cd, cd->nextblock*Blocksize);
189 7285a491 2004-06-17 devnull writefiles(dump, cd, &iroot);
191 7285a491 2004-06-17 devnull if(cd->bootimage){
192 7285a491 2004-06-17 devnull findbootimage(cd, &iroot);
193 7285a491 2004-06-17 devnull Cupdatebootcat(cd);
196 7285a491 2004-06-17 devnull /* create Joliet tree */
197 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet)
198 7285a491 2004-06-17 devnull copydirec(&jroot, &iroot);
200 7285a491 2004-06-17 devnull if(info.flags & CDconform) {
201 7285a491 2004-06-17 devnull checknames(&iroot, isbadiso9660);
202 7285a491 2004-06-17 devnull convertnames(&iroot, struprcpy);
204 5241ed2b 2004-07-03 devnull convertnames(&iroot, (char* (*)(char*, char*))strcpy);
206 cbeb0b26 2006-04-01 devnull /* isoabstract = findconform(&iroot, abstract); */
207 cbeb0b26 2006-04-01 devnull /* isobiblio = findconform(&iroot, biblio); */
208 cbeb0b26 2006-04-01 devnull /* isonotice = findconform(&iroot, notice); */
210 7285a491 2004-06-17 devnull dsort(&iroot, isocmp);
212 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet) {
213 cbeb0b26 2006-04-01 devnull /* jabstract = findconform(&jroot, abstract); */
214 cbeb0b26 2006-04-01 devnull /* jbiblio = findconform(&jroot, biblio); */
215 cbeb0b26 2006-04-01 devnull /* jnotice = findconform(&jroot, notice); */
217 7285a491 2004-06-17 devnull checknames(&jroot, isbadjoliet);
218 5241ed2b 2004-07-03 devnull convertnames(&jroot, (char* (*)(char*, char*))strcpy);
219 7285a491 2004-06-17 devnull dsort(&jroot, jolietcmp);
223 7285a491 2004-06-17 devnull * Write directories.
225 7285a491 2004-06-17 devnull writedirs(cd, &iroot, Cputisodir);
226 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet)
227 7285a491 2004-06-17 devnull writedirs(cd, &jroot, Cputjolietdir);
229 7285a491 2004-06-17 devnull if(mk9660){
230 7285a491 2004-06-17 devnull cblock = 0;
231 7285a491 2004-06-17 devnull clength = 0;
232 7285a491 2004-06-17 devnull newnull = 0;
235 7285a491 2004-06-17 devnull * Write incremental _conform.map block.
237 7285a491 2004-06-17 devnull wrconform(cd, cd->nconform, &cblock, &clength);
239 7285a491 2004-06-17 devnull /* jump here if we're just fixing up the cd */
242 fa325e9b 2020-01-10 cross * Write null dump header block; everything after this will be
243 7285a491 2004-06-17 devnull * overwritten at the next dump. Because of this, it needs to be
244 7285a491 2004-06-17 devnull * reconstructable. We reconstruct the _conform.map and dump trees
245 fa325e9b 2020-01-10 cross * from the header blocks in dump.c, and we reconstruct the path
246 7285a491 2004-06-17 devnull * tables by walking the cd.
248 7285a491 2004-06-17 devnull newnull = Cputdumpblock(cd);
252 7285a491 2004-06-17 devnull * Write _conform.map.
254 7285a491 2004-06-17 devnull dir.mode = 0444;
255 7285a491 2004-06-17 devnull if(cd->flags & (CDconform|CDjoliet)) {
256 7285a491 2004-06-17 devnull if(!mk9660 && cd->nconform == 0){
257 fa325e9b 2020-01-10 cross block = cblock;
258 7285a491 2004-06-17 devnull length = clength;
260 7285a491 2004-06-17 devnull wrconform(cd, 0, &block, &length);
262 fa325e9b 2020-01-10 cross if(mk9660)
264 7285a491 2004-06-17 devnull idumproot = iroot;
265 7285a491 2004-06-17 devnull jdumproot = jroot;
267 7285a491 2004-06-17 devnull if(length) {
268 7285a491 2004-06-17 devnull /* The ISO9660 name will get turned into uppercase when written. */
269 7285a491 2004-06-17 devnull if((iconform = walkdirec(&idumproot, "_conform.map")) == nil)
270 7285a491 2004-06-17 devnull iconform = adddirec(&idumproot, "_conform.map", &dir);
271 7285a491 2004-06-17 devnull jconform = nil;
272 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet) {
273 7285a491 2004-06-17 devnull if((jconform = walkdirec(&jdumproot, "_conform.map")) == nil)
274 7285a491 2004-06-17 devnull jconform = adddirec(&jdumproot, "_conform.map", &dir);
276 7285a491 2004-06-17 devnull iconform->block = block;
277 7285a491 2004-06-17 devnull iconform->length = length;
278 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet) {
279 7285a491 2004-06-17 devnull jconform->block = block;
280 7285a491 2004-06-17 devnull jconform->length = length;
283 7285a491 2004-06-17 devnull if(mk9660) {
284 7285a491 2004-06-17 devnull iroot = idumproot;
285 7285a491 2004-06-17 devnull jroot = jdumproot;
289 7285a491 2004-06-17 devnull if(mk9660){
291 7285a491 2004-06-17 devnull * Patch in root directories.
293 7285a491 2004-06-17 devnull setroot(cd, cd->iso9660pvd, iroot.block, iroot.length);
294 7285a491 2004-06-17 devnull setvolsize(cd, cd->iso9660pvd, cd->nextblock*Blocksize);
295 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet){
296 7285a491 2004-06-17 devnull setroot(cd, cd->jolietsvd, jroot.block, jroot.length);
297 7285a491 2004-06-17 devnull setvolsize(cd, cd->jolietsvd, cd->nextblock*Blocksize);
301 7285a491 2004-06-17 devnull * Write dump tree at end. We assume the name characters
302 7285a491 2004-06-17 devnull * are all conforming, so everything is already sorted properly.
304 5241ed2b 2004-07-03 devnull convertnames(&idumproot, (info.flags & CDconform) ? struprcpy : (char* (*)(char*, char*)) strcpy);
305 7285a491 2004-06-17 devnull if(cd->nulldump) {
306 7285a491 2004-06-17 devnull r = walkdirec(&idumproot, dumpname);
307 7285a491 2004-06-17 devnull assert(r != nil);
308 7285a491 2004-06-17 devnull copybutname(r, &iroot);
310 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet) {
311 5241ed2b 2004-07-03 devnull convertnames(&jdumproot, (char* (*)(char*, char*))strcpy);
312 7285a491 2004-06-17 devnull if(cd->nulldump) {
313 7285a491 2004-06-17 devnull r = walkdirec(&jdumproot, dumpname);
314 7285a491 2004-06-17 devnull assert(r != nil);
315 7285a491 2004-06-17 devnull copybutname(r, &jroot);
319 7285a491 2004-06-17 devnull writedumpdirs(cd, &idumproot, Cputisodir);
320 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet)
321 7285a491 2004-06-17 devnull writedumpdirs(cd, &jdumproot, Cputjolietdir);
324 7285a491 2004-06-17 devnull * Patch in new root directory entry.
326 7285a491 2004-06-17 devnull setroot(cd, cd->iso9660pvd, idumproot.block, idumproot.length);
327 7285a491 2004-06-17 devnull setvolsize(cd, cd->iso9660pvd, cd->nextblock*Blocksize);
328 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet){
329 7285a491 2004-06-17 devnull setroot(cd, cd->jolietsvd, jdumproot.block, jdumproot.length);
330 7285a491 2004-06-17 devnull setvolsize(cd, cd->jolietsvd, cd->nextblock*Blocksize);
333 fa325e9b 2020-01-10 cross writepathtables(cd);
335 7285a491 2004-06-17 devnull if(!mk9660){
337 7285a491 2004-06-17 devnull * If we've gotten too big, truncate back to what we started with,
338 7285a491 2004-06-17 devnull * fix up the cd, and exit with a non-zero status.
340 7285a491 2004-06-17 devnull Cwflush(cd);
341 7285a491 2004-06-17 devnull if(cd->nulldump && maxsize && Cwoffset(cd) > maxsize){
342 7285a491 2004-06-17 devnull fprint(2, "too big; writing old tree back\n");
343 7285a491 2004-06-17 devnull status = "cd too big; aborted";
345 7285a491 2004-06-17 devnull rmdumpdir(&idumproot, dumpname);
346 7285a491 2004-06-17 devnull rmdumpdir(&jdumproot, dumpname);
348 7285a491 2004-06-17 devnull cd->nextblock = cd->nulldump+1;
349 7285a491 2004-06-17 devnull cd->nulldump = 0;
350 7285a491 2004-06-17 devnull Cwseek(cd, cd->nextblock*Blocksize);
351 7285a491 2004-06-17 devnull goto Dofix;
355 7285a491 2004-06-17 devnull * Write old null header block; this commits all our changes.
357 7285a491 2004-06-17 devnull if(cd->nulldump){
358 7285a491 2004-06-17 devnull Cwseek(cd, cd->nulldump*Blocksize);
359 7285a491 2004-06-17 devnull sprint(buf, "plan 9 dump cd\n");
360 7285a491 2004-06-17 devnull sprint(buf+strlen(buf), "%s %lud %lud %lud %lud %lud %lud",
361 7285a491 2004-06-17 devnull dumpname, now, newnull, cblock, clength, iroot.block,
362 7285a491 2004-06-17 devnull iroot.length);
363 7285a491 2004-06-17 devnull if(cd->flags & CDjoliet)
364 7285a491 2004-06-17 devnull sprint(buf+strlen(buf), " %lud %lud",
365 7285a491 2004-06-17 devnull jroot.block, jroot.length);
366 7285a491 2004-06-17 devnull strcat(buf, "\n");
367 7285a491 2004-06-17 devnull Cwrite(cd, buf, strlen(buf));
368 7285a491 2004-06-17 devnull Cpadblock(cd);
369 7285a491 2004-06-17 devnull Cwflush(cd);
372 7285a491 2004-06-17 devnull fdtruncate(cd->fd, cd->nextblock*Blocksize);
373 7285a491 2004-06-17 devnull exits(status);
374 7285a491 2004-06-17 devnull return 0;
377 7285a491 2004-06-17 devnull static void
378 7285a491 2004-06-17 devnull addprotofile(char *new, char *old, Dir *d, void *a)
380 7285a491 2004-06-17 devnull char *name, *p;
381 7285a491 2004-06-17 devnull Direc *direc;
382 7285a491 2004-06-17 devnull XDir xd;
384 7285a491 2004-06-17 devnull dirtoxdir(&xd, d);
385 7285a491 2004-06-17 devnull name = nil;
386 7285a491 2004-06-17 devnull if(docolon && strchr(new, ':')) {
387 7285a491 2004-06-17 devnull name = emalloc(strlen(new)+1);
388 7285a491 2004-06-17 devnull strcpy(name, new);
389 7285a491 2004-06-17 devnull while((p=strchr(name, ':')))
391 7285a491 2004-06-17 devnull new = name;
393 7285a491 2004-06-17 devnull if((direc = adddirec((Direc*)a, new, &xd))) {
394 7285a491 2004-06-17 devnull direc->srcfile = atom(old);
396 cbeb0b26 2006-04-01 devnull /* BUG: abstract, biblio, notice */
398 7285a491 2004-06-17 devnull if(name)
399 7285a491 2004-06-17 devnull free(name);
