1 /*- 2 * Copyright (c) 1993, 1994 3 * The Regents of the University of California. All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley 6 * by Pace Willisson (pace@blitz.com). The Rock Ridge Extension 7 * Support code is derived from software contributed to Berkeley 8 * by Atsushi Murai (amurai@spec.co.jp). 9 * 10 * %sccs.include.redist.c% 11 * 12 * @(#)cd9660_rrip.c 8.1 (Berkeley) 01/21/94 13 */ 14 15 #include <sys/param.h> 16 #include <sys/namei.h> 17 #include <sys/buf.h> 18 #include <sys/file.h> 19 #include <sys/vnode.h> 20 #include <sys/mount.h> 21 #include <sys/kernel.h> 22 #include <sys/stat.h> 23 #include <sys/types.h> 24 25 #include <sys/time.h> 26 27 #include <isofs/cd9660/iso.h> 28 #include <isofs/cd9660/isofs_node.h> 29 #include <isofs/cd9660/isofs_rrip.h> 30 #include <isofs/cd9660/iso_rrip.h> 31 32 /* 33 * POSIX file attribute 34 */ 35 static int 36 isofs_rrip_attr(p,ana) 37 ISO_RRIP_ATTR *p; 38 ISO_RRIP_ANALYZE *ana; 39 { 40 ana->inop->inode.iso_mode = isonum_731(p->mode_l); 41 ana->inop->inode.iso_uid = (uid_t)isonum_731(p->uid_l); 42 ana->inop->inode.iso_gid = (gid_t)isonum_731(p->gid_l); 43 ana->inop->inode.iso_links = isonum_731(p->links_l); 44 ana->fields &= ~ISO_SUSP_ATTR; 45 return ISO_SUSP_ATTR; 46 } 47 48 static void 49 isofs_rrip_defattr(isodir,ana) 50 struct iso_directory_record *isodir; 51 ISO_RRIP_ANALYZE *ana; 52 { 53 /* But this is a required field! */ 54 printf("RRIP without PX field?\n"); 55 isofs_defattr(isodir,ana->inop,NULL); 56 } 57 58 /* 59 * Symbolic Links 60 */ 61 static int 62 isofs_rrip_slink(p,ana) 63 ISO_RRIP_SLINK *p; 64 ISO_RRIP_ANALYZE *ana; 65 { 66 register ISO_RRIP_SLINK_COMPONENT *pcomp; 67 register ISO_RRIP_SLINK_COMPONENT *pcompe; 68 int len, wlen, cont; 69 char *outbuf, *inbuf; 70 71 pcomp = (ISO_RRIP_SLINK_COMPONENT *)p->component; 72 pcompe = (ISO_RRIP_SLINK_COMPONENT *)((char *)p + isonum_711(p->h.length)); 73 len = *ana->outlen; 74 outbuf = ana->outbuf; 75 cont = ana->cont; 76 77 /* 78 * Gathering a Symbolic name from each component with path 79 */ 80 for (; 81 pcomp < pcompe; 82 pcomp = (ISO_RRIP_SLINK_COMPONENT *)((char *)pcomp + ISO_RRIP_SLSIZ 83 + isonum_711(pcomp->clen))) { 84 85 if (!cont) { 86 if (len < ana->maxlen) { 87 len++; 88 *outbuf++ = '/'; 89 } 90 } 91 cont = 0; 92 93 inbuf = ".."; 94 wlen = 0; 95 96 switch (*pcomp->cflag) { 97 98 case ISO_SUSP_CFLAG_CURRENT: 99 /* Inserting Current */ 100 wlen = 1; 101 break; 102 103 case ISO_SUSP_CFLAG_PARENT: 104 /* Inserting Parent */ 105 wlen = 2; 106 break; 107 108 case ISO_SUSP_CFLAG_ROOT: 109 /* Inserting slash for ROOT */ 110 /* start over from beginning(?) */ 111 outbuf -= len; 112 len = 0; 113 break; 114 115 case ISO_SUSP_CFLAG_VOLROOT: 116 /* Inserting a mount point i.e. "/cdrom" */ 117 /* same as above */ 118 outbuf -= len; 119 len = 0; 120 inbuf = ana->imp->im_mountp->mnt_stat.f_mntonname; 121 wlen = strlen(inbuf); 122 break; 123 124 case ISO_SUSP_CFLAG_HOST: 125 /* Inserting hostname i.e. "kurt.tools.de" */ 126 inbuf = hostname; 127 wlen = hostnamelen; 128 break; 129 130 case ISO_SUSP_CFLAG_CONTINUE: 131 cont = 1; 132 /* fall thru */ 133 case 0: 134 /* Inserting component */ 135 wlen = isonum_711(pcomp->clen); 136 inbuf = pcomp->name; 137 break; 138 default: 139 printf("RRIP with incorrect flags?"); 140 wlen = ana->maxlen + 1; 141 break; 142 } 143 144 if (len + wlen > ana->maxlen) { 145 /* indicate error to caller */ 146 ana->cont = 1; 147 ana->fields = 0; 148 ana->outbuf -= *ana->outlen; 149 *ana->outlen = 0; 150 return 0; 151 } 152 153 bcopy(inbuf,outbuf,wlen); 154 outbuf += wlen; 155 len += wlen; 156 157 } 158 ana->outbuf = outbuf; 159 *ana->outlen = len; 160 ana->cont = cont; 161 162 if (!isonum_711(p->flags)) { 163 ana->fields &= ~ISO_SUSP_SLINK; 164 return ISO_SUSP_SLINK; 165 } 166 return 0; 167 } 168 169 /* 170 * Alternate name 171 */ 172 static int 173 isofs_rrip_altname(p,ana) 174 ISO_RRIP_ALTNAME *p; 175 ISO_RRIP_ANALYZE *ana; 176 { 177 char *inbuf; 178 int wlen; 179 int cont; 180 181 inbuf = ".."; 182 wlen = 0; 183 cont = 0; 184 185 switch (*p->flags) { 186 case ISO_SUSP_CFLAG_CURRENT: 187 /* Inserting Current */ 188 wlen = 1; 189 break; 190 191 case ISO_SUSP_CFLAG_PARENT: 192 /* Inserting Parent */ 193 wlen = 2; 194 break; 195 196 case ISO_SUSP_CFLAG_HOST: 197 /* Inserting hostname i.e. "kurt.tools.de" */ 198 inbuf = hostname; 199 wlen = hostnamelen; 200 break; 201 202 case ISO_SUSP_CFLAG_CONTINUE: 203 cont = 1; 204 /* fall thru */ 205 case 0: 206 /* Inserting component */ 207 wlen = isonum_711(p->h.length) - 5; 208 inbuf = (char *)p + 5; 209 break; 210 211 default: 212 printf("RRIP with incorrect NM flags?\n"); 213 wlen = ana->maxlen + 1; 214 break; 215 } 216 217 if ((*ana->outlen += wlen) > ana->maxlen) { 218 /* treat as no name field */ 219 ana->fields &= ~ISO_SUSP_ALTNAME; 220 ana->outbuf -= *ana->outlen - wlen; 221 *ana->outlen = 0; 222 return 0; 223 } 224 225 bcopy(inbuf,ana->outbuf,wlen); 226 ana->outbuf += wlen; 227 228 if (!cont) { 229 ana->fields &= ~ISO_SUSP_ALTNAME; 230 return ISO_SUSP_ALTNAME; 231 } 232 return 0; 233 } 234 235 static void 236 isofs_rrip_defname(isodir,ana) 237 struct iso_directory_record *isodir; 238 ISO_RRIP_ANALYZE *ana; 239 { 240 strcpy(ana->outbuf,".."); 241 switch (*isodir->name) { 242 default: 243 isofntrans(isodir->name,isonum_711(isodir->name_len), 244 ana->outbuf,ana->outlen, 245 1,isonum_711(isodir->flags)&4); 246 break; 247 case 0: 248 *ana->outlen = 1; 249 break; 250 case 1: 251 *ana->outlen = 2; 252 break; 253 } 254 } 255 256 /* 257 * Parent or Child Link 258 */ 259 static int 260 isofs_rrip_pclink(p,ana) 261 ISO_RRIP_CLINK *p; 262 ISO_RRIP_ANALYZE *ana; 263 { 264 *ana->inump = isonum_733(p->dir_loc) << ana->imp->im_bshift; 265 ana->fields &= ~(ISO_SUSP_CLINK|ISO_SUSP_PLINK); 266 return *p->h.type == 'C' ? ISO_SUSP_CLINK : ISO_SUSP_PLINK; 267 } 268 269 /* 270 * Relocated directory 271 */ 272 static int 273 isofs_rrip_reldir(p,ana) 274 ISO_RRIP_RELDIR *p; 275 ISO_RRIP_ANALYZE *ana; 276 { 277 /* special hack to make caller aware of RE field */ 278 *ana->outlen = 0; 279 ana->fields = 0; 280 return ISO_SUSP_RELDIR|ISO_SUSP_ALTNAME|ISO_SUSP_CLINK|ISO_SUSP_PLINK; 281 } 282 283 static int 284 isofs_rrip_tstamp(p,ana) 285 ISO_RRIP_TSTAMP *p; 286 ISO_RRIP_ANALYZE *ana; 287 { 288 unsigned char *ptime; 289 290 ptime = p->time; 291 292 /* Check a format of time stamp (7bytes/17bytes) */ 293 if (!(*p->flags&ISO_SUSP_TSTAMP_FORM17)) { 294 if (*p->flags&ISO_SUSP_TSTAMP_CREAT) 295 ptime += 7; 296 297 if (*p->flags&ISO_SUSP_TSTAMP_MODIFY) { 298 isofs_tstamp_conv7(ptime,&ana->inop->inode.iso_mtime); 299 ptime += 7; 300 } else 301 bzero(&ana->inop->inode.iso_mtime,sizeof(struct timeval)); 302 303 if (*p->flags&ISO_SUSP_TSTAMP_ACCESS) { 304 isofs_tstamp_conv7(ptime,&ana->inop->inode.iso_atime); 305 ptime += 7; 306 } else 307 ana->inop->inode.iso_atime = ana->inop->inode.iso_mtime; 308 309 if (*p->flags&ISO_SUSP_TSTAMP_ATTR) 310 isofs_tstamp_conv7(ptime,&ana->inop->inode.iso_ctime); 311 else 312 ana->inop->inode.iso_ctime = ana->inop->inode.iso_mtime; 313 314 } else { 315 if (*p->flags&ISO_SUSP_TSTAMP_CREAT) 316 ptime += 17; 317 318 if (*p->flags&ISO_SUSP_TSTAMP_MODIFY) { 319 isofs_tstamp_conv17(ptime,&ana->inop->inode.iso_mtime); 320 ptime += 17; 321 } else 322 bzero(&ana->inop->inode.iso_mtime,sizeof(struct timeval)); 323 324 if (*p->flags&ISO_SUSP_TSTAMP_ACCESS) { 325 isofs_tstamp_conv17(ptime,&ana->inop->inode.iso_atime); 326 ptime += 17; 327 } else 328 ana->inop->inode.iso_atime = ana->inop->inode.iso_mtime; 329 330 if (*p->flags&ISO_SUSP_TSTAMP_ATTR) 331 isofs_tstamp_conv17(ptime,&ana->inop->inode.iso_ctime); 332 else 333 ana->inop->inode.iso_ctime = ana->inop->inode.iso_mtime; 334 335 } 336 ana->fields &= ~ISO_SUSP_TSTAMP; 337 return ISO_SUSP_TSTAMP; 338 } 339 340 static void 341 isofs_rrip_deftstamp(isodir,ana) 342 struct iso_directory_record *isodir; 343 ISO_RRIP_ANALYZE *ana; 344 { 345 isofs_deftstamp(isodir,ana->inop,NULL); 346 } 347 348 /* 349 * POSIX device modes 350 */ 351 static int 352 isofs_rrip_device(p,ana) 353 ISO_RRIP_DEVICE *p; 354 ISO_RRIP_ANALYZE *ana; 355 { 356 unsigned high, low; 357 358 high = isonum_733(p->dev_t_high_l); 359 low = isonum_733(p->dev_t_low_l); 360 361 if ( high == 0 ) { 362 ana->inop->inode.iso_rdev = makedev( major(low), minor(low) ); 363 } else { 364 ana->inop->inode.iso_rdev = makedev( high, minor(low) ); 365 } 366 ana->fields &= ~ISO_SUSP_DEVICE; 367 return ISO_SUSP_DEVICE; 368 } 369 370 /* 371 * Flag indicating 372 */ 373 static int 374 isofs_rrip_idflag(p,ana) 375 ISO_RRIP_IDFLAG *p; 376 ISO_RRIP_ANALYZE *ana; 377 { 378 ana->fields &= isonum_711(p->flags)|~0xff; /* don't touch high bits */ 379 /* special handling of RE field */ 380 if (ana->fields&ISO_SUSP_RELDIR) 381 return isofs_rrip_reldir(p,ana); 382 383 return ISO_SUSP_IDFLAG; 384 } 385 386 /* 387 * Continuation pointer 388 */ 389 static int 390 isofs_rrip_cont(p,ana) 391 ISO_RRIP_CONT *p; 392 ISO_RRIP_ANALYZE *ana; 393 { 394 ana->iso_ce_blk = isonum_733(p->location); 395 ana->iso_ce_off = isonum_733(p->offset); 396 ana->iso_ce_len = isonum_733(p->length); 397 return ISO_SUSP_CONT; 398 } 399 400 /* 401 * System Use end 402 */ 403 static int 404 isofs_rrip_stop(p,ana) 405 ISO_SUSP_HEADER *p; 406 ISO_RRIP_ANALYZE *ana; 407 { 408 /* stop analyzing */ 409 ana->fields = 0; 410 return ISO_SUSP_STOP; 411 } 412 413 /* 414 * Extension reference 415 */ 416 static int 417 isofs_rrip_extref(p,ana) 418 ISO_RRIP_EXTREF *p; 419 ISO_RRIP_ANALYZE *ana; 420 { 421 if (isonum_711(p->len_id) != 10 422 || bcmp((char *)p + 8,"RRIP_1991A",10) 423 || isonum_711(p->version) != 1) 424 return 0; 425 ana->fields &= ~ISO_SUSP_EXTREF; 426 return ISO_SUSP_EXTREF; 427 } 428 429 typedef struct { 430 char type[2]; 431 int (*func)(); 432 void (*func2)(); 433 int result; 434 } RRIP_TABLE; 435 436 static int 437 isofs_rrip_loop(isodir,ana,table) 438 struct iso_directory_record *isodir; 439 ISO_RRIP_ANALYZE *ana; 440 RRIP_TABLE *table; 441 { 442 register RRIP_TABLE *ptable; 443 register ISO_SUSP_HEADER *phead; 444 register ISO_SUSP_HEADER *pend; 445 struct buf *bp = NULL; 446 int i; 447 char *pwhead; 448 int result; 449 450 /* 451 * Note: If name length is odd, 452 * it will be padding 1 byte after the name 453 */ 454 pwhead = isodir->name + isonum_711(isodir->name_len); 455 if (!(isonum_711(isodir->name_len)&1)) 456 pwhead++; 457 458 /* If it's not the '.' entry of the root dir obey SP field */ 459 if (*isodir->name != 0 460 || isonum_733(isodir->extent) != ana->imp->root_extent) 461 pwhead += ana->imp->rr_skip; 462 else 463 pwhead += ana->imp->rr_skip0; 464 465 phead = (ISO_SUSP_HEADER *)pwhead; 466 pend = (ISO_SUSP_HEADER *)((char *)isodir + isonum_711(isodir->length)); 467 468 result = 0; 469 while (1) { 470 ana->iso_ce_len = 0; 471 /* 472 * Note: "pend" should be more than one SUSP header 473 */ 474 while (pend >= phead + 1) { 475 if (isonum_711(phead->version) == 1) { 476 for (ptable = table; ptable->func; ptable++) { 477 if (*phead->type == *ptable->type 478 && phead->type[1] == ptable->type[1]) { 479 result |= ptable->func(phead,ana); 480 break; 481 } 482 } 483 if (!ana->fields) 484 break; 485 } 486 /* 487 * move to next SUSP 488 * Hopefully this works with newer versions, too 489 */ 490 phead = (ISO_SUSP_HEADER *)((char *)phead + isonum_711(phead->length)); 491 } 492 493 if ( ana->fields && ana->iso_ce_len ) { 494 if (ana->iso_ce_blk >= ana->imp->volume_space_size 495 || ana->iso_ce_off + ana->iso_ce_len > ana->imp->logical_block_size 496 || bread(ana->imp->im_devvp, 497 ana->iso_ce_blk * ana->imp->logical_block_size / DEV_BSIZE, 498 ana->imp->logical_block_size,NOCRED,&bp)) 499 /* what to do now? */ 500 break; 501 phead = (ISO_SUSP_HEADER *)(bp->b_un.b_addr + ana->iso_ce_off); 502 pend = (ISO_SUSP_HEADER *) ((char *)phead + ana->iso_ce_len); 503 } else 504 break; 505 } 506 if (bp) 507 brelse(bp); 508 /* 509 * If we don't find the Basic SUSP stuffs, just set default value 510 * ( attribute/time stamp ) 511 */ 512 for (ptable = table; ptable->func2; ptable++) 513 if (!(ptable->result&result)) 514 ptable->func2(isodir,ana); 515 516 return result; 517 } 518 519 static RRIP_TABLE rrip_table_analyze[] = { 520 { "PX", isofs_rrip_attr, isofs_rrip_defattr, ISO_SUSP_ATTR }, 521 { "TF", isofs_rrip_tstamp, isofs_rrip_deftstamp, ISO_SUSP_TSTAMP }, 522 { "PN", isofs_rrip_device, 0, ISO_SUSP_DEVICE }, 523 { "RR", isofs_rrip_idflag, 0, ISO_SUSP_IDFLAG }, 524 { "CE", isofs_rrip_cont, 0, ISO_SUSP_CONT }, 525 { "ST", isofs_rrip_stop, 0, ISO_SUSP_STOP }, 526 { "", 0, 0, 0 } 527 }; 528 529 int 530 isofs_rrip_analyze(isodir,inop,imp) 531 struct iso_directory_record *isodir; 532 struct iso_node *inop; 533 struct iso_mnt *imp; 534 { 535 ISO_RRIP_ANALYZE analyze; 536 537 analyze.inop = inop; 538 analyze.imp = imp; 539 analyze.fields = ISO_SUSP_ATTR|ISO_SUSP_TSTAMP|ISO_SUSP_DEVICE; 540 541 return isofs_rrip_loop(isodir,&analyze,rrip_table_analyze); 542 } 543 544 /* 545 * Get Alternate Name from 'AL' record 546 * If either no AL record or 0 length, 547 * it will be return the translated ISO9660 name, 548 */ 549 static RRIP_TABLE rrip_table_getname[] = { 550 { "NM", isofs_rrip_altname, isofs_rrip_defname, ISO_SUSP_ALTNAME }, 551 { "CL", isofs_rrip_pclink, 0, ISO_SUSP_CLINK|ISO_SUSP_PLINK }, 552 { "PL", isofs_rrip_pclink, 0, ISO_SUSP_CLINK|ISO_SUSP_PLINK }, 553 { "RE", isofs_rrip_reldir, 0, ISO_SUSP_RELDIR }, 554 { "RR", isofs_rrip_idflag, 0, ISO_SUSP_IDFLAG }, 555 { "CE", isofs_rrip_cont, 0, ISO_SUSP_CONT }, 556 { "ST", isofs_rrip_stop, 0, ISO_SUSP_STOP }, 557 { "", 0, 0, 0 } 558 }; 559 560 int 561 isofs_rrip_getname(isodir,outbuf,outlen,inump,imp) 562 struct iso_directory_record *isodir; 563 char *outbuf; 564 u_short *outlen; 565 ino_t *inump; 566 struct iso_mnt *imp; 567 { 568 ISO_RRIP_ANALYZE analyze; 569 RRIP_TABLE *tab; 570 571 analyze.outbuf = outbuf; 572 analyze.outlen = outlen; 573 analyze.maxlen = NAME_MAX; 574 analyze.inump = inump; 575 analyze.imp = imp; 576 analyze.fields = ISO_SUSP_ALTNAME|ISO_SUSP_RELDIR|ISO_SUSP_CLINK|ISO_SUSP_PLINK; 577 *outlen = 0; 578 579 tab = rrip_table_getname; 580 if (*isodir->name == 0 581 || *isodir->name == 1) { 582 isofs_rrip_defname(isodir,&analyze); 583 584 analyze.fields &= ~ISO_SUSP_ALTNAME; 585 tab++; 586 } 587 588 return isofs_rrip_loop(isodir,&analyze,tab); 589 } 590 591 /* 592 * Get Symbolic Name from 'SL' record 593 * 594 * Note: isodir should contains SL record! 595 */ 596 static RRIP_TABLE rrip_table_getsymname[] = { 597 { "SL", isofs_rrip_slink, 0, ISO_SUSP_SLINK }, 598 { "RR", isofs_rrip_idflag, 0, ISO_SUSP_IDFLAG }, 599 { "CE", isofs_rrip_cont, 0, ISO_SUSP_CONT }, 600 { "ST", isofs_rrip_stop, 0, ISO_SUSP_STOP }, 601 { "", 0, 0, 0 } 602 }; 603 604 int 605 isofs_rrip_getsymname(isodir,outbuf,outlen,imp) 606 struct iso_directory_record *isodir; 607 char *outbuf; 608 u_short *outlen; 609 struct iso_mnt *imp; 610 { 611 ISO_RRIP_ANALYZE analyze; 612 613 analyze.outbuf = outbuf; 614 analyze.outlen = outlen; 615 *outlen = 0; 616 analyze.maxlen = MAXPATHLEN; 617 analyze.cont = 1; /* don't start with a slash */ 618 analyze.imp = imp; 619 analyze.fields = ISO_SUSP_SLINK; 620 621 return (isofs_rrip_loop(isodir,&analyze,rrip_table_getsymname)&ISO_SUSP_SLINK); 622 } 623 624 static RRIP_TABLE rrip_table_extref[] = { 625 { "ER", isofs_rrip_extref, 0, ISO_SUSP_EXTREF }, 626 { "CE", isofs_rrip_cont, 0, ISO_SUSP_CONT }, 627 { "ST", isofs_rrip_stop, 0, ISO_SUSP_STOP }, 628 { "", 0, 0, 0 } 629 }; 630 631 /* 632 * Check for Rock Ridge Extension and return offset of its fields. 633 * Note: We require the ER field. 634 */ 635 int 636 isofs_rrip_offset(isodir,imp) 637 struct iso_directory_record *isodir; 638 struct iso_mnt *imp; 639 { 640 ISO_RRIP_OFFSET *p; 641 ISO_RRIP_ANALYZE analyze; 642 643 imp->rr_skip0 = 0; 644 p = (ISO_RRIP_OFFSET *)(isodir->name + 1); 645 if (bcmp(p,"SP\7\1\276\357",6)) { 646 /* Maybe, it's a CDROM XA disc? */ 647 imp->rr_skip0 = 15; 648 p = (ISO_RRIP_OFFSET *)((char *)p + 15); 649 if (bcmp(p,"SP\7\1\276\357",6)) 650 return -1; 651 } 652 653 analyze.imp = imp; 654 analyze.fields = ISO_SUSP_EXTREF; 655 if (!(isofs_rrip_loop(isodir,&analyze,rrip_table_extref)&ISO_SUSP_EXTREF)) 656 return -1; 657 658 return isonum_711(p->skip); 659 } 660