diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2012-12-31 05:04:42 +0400 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2012-12-31 05:04:42 +0400 |
commit | 71dc8760ff4de5f365330d1bc571d934deb54af9 (patch) | |
tree | 7346d42a282562a3937d82307012b5857d642ce6 /genisoimage/diag/isodump.c | |
download | cdrkit-71dc8760ff4de5f365330d1bc571d934deb54af9.tar.gz |
Imported Upstream version 1.1.11upstream/1.1.11upstream
Diffstat (limited to 'genisoimage/diag/isodump.c')
-rw-r--r-- | genisoimage/diag/isodump.c | 715 |
1 files changed, 715 insertions, 0 deletions
diff --git a/genisoimage/diag/isodump.c b/genisoimage/diag/isodump.c new file mode 100644 index 0000000..34fa8f1 --- /dev/null +++ b/genisoimage/diag/isodump.c @@ -0,0 +1,715 @@ +/* + * This file has been modified for the cdrkit suite. + * + * The behaviour and appearence of the program code below can differ to a major + * extent from the version distributed by the original author(s). + * + * For details, see Changelog file distributed with the cdrkit package. If you + * received this file from another source then ask the distributing person for + * a log of modifications. + * + */ + +/* @(#)isodump.c 1.27 05/05/15 joerg */ +/* + * File isodump.c - dump iso9660 directory information. + * + * + * Written by Eric Youngdale (1993). + * + * Copyright 1993 Yggdrasil Computing, Incorporated + * Copyright (c) 1999-2004 J. Schilling + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License version 2 + * as published by the Free Software Foundation. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along with + * this program; see the file COPYING. If not, write to the Free Software + * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + */ + +#include <mconfig.h> +#include <stdxlib.h> +#include <unixstd.h> +#include <strdefs.h> +#include <utypes.h> + +#include <stdio.h> +#include <standard.h> +#include <ttydefs.h> +#include <signal.h> +#include <schily.h> + +#include "../scsi.h" +#include "../../wodim/defaults.h" + +/* + * XXX JS: Some structures have odd lengths! + * Some compilers (e.g. on Sun3/mc68020) padd the structures to even length. + * For this reason, we cannot use sizeof (struct iso_path_table) or + * sizeof (struct iso_directory_record) to compute on disk sizes. + * Instead, we use offsetof(..., name) and add the name size. + * See iso9660.h + */ +#ifndef offsetof +#define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER) +#endif + +/* + * Note: always use these macros to avoid problems. + * + * ISO_ROUND_UP(X) may cause an integer overflow and thus give + * incorrect results. So avoid it if possible. + * + * ISO_BLOCKS(X) is overflow safe. Prefer this when ever it is possible. + */ +#define SECTOR_SIZE (2048) +#define ISO_ROUND_UP(X) (((X) + (SECTOR_SIZE - 1)) & ~(SECTOR_SIZE - 1)) +#define ISO_BLOCKS(X) (((X) / SECTOR_SIZE) + (((X)%SECTOR_SIZE)?1:0)) + +#define infile in_image +FILE *infile = NULL; +off_t file_addr; +unsigned char buffer[2048]; +unsigned char search[64]; +int blocksize; + +#define PAGE sizeof (buffer) + +#define ISODCL(from, to) (to - from + 1) + +struct iso_primary_descriptor { + unsigned char type [ISODCL(1, 1)]; /* 711 */ + unsigned char id [ISODCL(2, 6)]; + unsigned char version [ISODCL(7, 7)]; /* 711 */ + unsigned char unused1 [ISODCL(8, 8)]; + unsigned char system_id [ISODCL(9, 40)]; /* aunsigned chars */ + unsigned char volume_id [ISODCL(41, 72)]; /* dunsigned chars */ + unsigned char unused2 [ISODCL(73, 80)]; + unsigned char volume_space_size [ISODCL(81, 88)]; /* 733 */ + unsigned char unused3 [ISODCL(89, 120)]; + unsigned char volume_set_size [ISODCL(121, 124)]; /* 723 */ + unsigned char volume_sequence_number [ISODCL(125, 128)]; /* 723 */ + unsigned char logical_block_size [ISODCL(129, 132)]; /* 723 */ + unsigned char path_table_size [ISODCL(133, 140)]; /* 733 */ + unsigned char type_l_path_table [ISODCL(141, 144)]; /* 731 */ + unsigned char opt_type_l_path_table [ISODCL(145, 148)]; /* 731 */ + unsigned char type_m_path_table [ISODCL(149, 152)]; /* 732 */ + unsigned char opt_type_m_path_table [ISODCL(153, 156)]; /* 732 */ + unsigned char root_directory_record [ISODCL(157, 190)]; /* 9.1 */ + unsigned char volume_set_id [ISODCL(191, 318)]; /* dunsigned chars */ + unsigned char publisher_id [ISODCL(319, 446)]; /* achars */ + unsigned char preparer_id [ISODCL(447, 574)]; /* achars */ + unsigned char application_id [ISODCL(575, 702)]; /* achars */ + unsigned char copyright_file_id [ISODCL(703, 739)]; /* 7.5 dchars */ + unsigned char abstract_file_id [ISODCL(740, 776)]; /* 7.5 dchars */ + unsigned char bibliographic_file_id [ISODCL(777, 813)]; /* 7.5 dchars */ + unsigned char creation_date [ISODCL(814, 830)]; /* 8.4.26.1 */ + unsigned char modification_date [ISODCL(831, 847)]; /* 8.4.26.1 */ + unsigned char expiration_date [ISODCL(848, 864)]; /* 8.4.26.1 */ + unsigned char effective_date [ISODCL(865, 881)]; /* 8.4.26.1 */ + unsigned char file_structure_version [ISODCL(882, 882)]; /* 711 */ + unsigned char unused4 [ISODCL(883, 883)]; + unsigned char application_data [ISODCL(884, 1395)]; + unsigned char unused5 [ISODCL(1396, 2048)]; +}; + +struct iso_directory_record { + unsigned char length [ISODCL(1, 1)]; /* 711 */ + unsigned char ext_attr_length [ISODCL(2, 2)]; /* 711 */ + unsigned char extent [ISODCL(3, 10)]; /* 733 */ + unsigned char size [ISODCL(11, 18)]; /* 733 */ + unsigned char date [ISODCL(19, 25)]; /* 7 by 711 */ + unsigned char flags [ISODCL(26, 26)]; + unsigned char file_unit_size [ISODCL(27, 27)]; /* 711 */ + unsigned char interleave [ISODCL(28, 28)]; /* 711 */ + unsigned char volume_sequence_number [ISODCL(29, 32)]; /* 723 */ + unsigned char name_len [ISODCL(33, 33)]; /* 711 */ + unsigned char name [1]; +}; + +static int isonum_731(char * p); +static int isonum_72(char * p); +static int isonum_723(char * p); +static int isonum_733(unsigned char * p); +static void reset_tty(void); +static void set_tty(void); +static void onsusp(int signo); +static void crsr2(int row, int col); +static int parse_rr(unsigned char * pnt, int len, int cont_flag); +static void dump_rr(struct iso_directory_record * idr); +static void showblock(int flag); +static int getbyte(void); +static void usage(int excode); + +static int +isonum_731(char *p) +{ + return ((p[0] & 0xff) + | ((p[1] & 0xff) << 8) + | ((p[2] & 0xff) << 16) + | ((p[3] & 0xff) << 24)); +} + +static int +isonum_721(char *p) +{ + return ((p[0] & 0xff) | ((p[1] & 0xff) << 8)); +} + +static int +isonum_723(char *p) +{ +#if 0 + if (p[0] != p[3] || p[1] != p[2]) { +#ifdef USE_LIBSCHILY + comerrno(EX_BAD, "invalid format 7.2.3 number\n"); +#else + fprintf(stderr, "invalid format 7.2.3 number\n"); + exit(1); +#endif + } +#endif + return (isonum_721(p)); +} + + +static int +isonum_733(unsigned char *p) +{ + return (isonum_731((char *)p)); +} + +#ifdef USE_V7_TTY +static struct sgttyb savetty; +static struct sgttyb newtty; +#else +static struct termios savetty; +static struct termios newtty; +#endif + +static void +reset_tty() +{ +#ifdef USE_V7_TTY + if (ioctl(STDIN_FILENO, TIOCSETN, &savetty) == -1) { +#else +#ifdef TCSANOW + if (tcsetattr(STDIN_FILENO, TCSANOW, &savetty) == -1) { +#else + if (ioctl(STDIN_FILENO, TCSETAF, &savetty) == -1) { +#endif +#endif +#ifdef USE_LIBSCHILY + comerr("Cannot put tty into normal mode\n"); +#else + printf("Cannot put tty into normal mode\n"); + exit(1); +#endif + } +} + +static void +set_tty() +{ +#ifdef USE_V7_TTY + if (ioctl(STDIN_FILENO, TIOCSETN, &newtty) == -1) { +#else +#ifdef TCSANOW + if (tcsetattr(STDIN_FILENO, TCSANOW, &newtty) == -1) { +#else + if (ioctl(STDIN_FILENO, TCSETAF, &newtty) == -1) { +#endif +#endif +#ifdef USE_LIBSCHILY + comerr("Cannot put tty into raw mode\n"); +#else + printf("Cannot put tty into raw mode\n"); + exit(1); +#endif + } +} + +/* Come here when we get a suspend signal from the terminal */ + +static void +onsusp(int signo) +{ +#ifdef SIGTTOU + /* ignore SIGTTOU so we don't get stopped if csh grabs the tty */ + signal(SIGTTOU, SIG_IGN); +#endif + reset_tty(); + fflush(stdout); +#ifdef SIGTTOU + signal(SIGTTOU, SIG_DFL); + /* Send the TSTP signal to suspend our process group */ + signal(SIGTSTP, SIG_DFL); +/* sigsetmask(0);*/ + kill(0, SIGTSTP); + /* Pause for station break */ + + /* We're back */ + signal(SIGTSTP, onsusp); +#endif + set_tty(); +} + + + +static void +crsr2(int row, int col) +{ + printf("\033[%d;%dH", row, col); +} + +static int +parse_rr(unsigned char *pnt, int len, int cont_flag) +{ + int slen; + int ncount; + int extent; + off_t cont_extent; + int cont_offset; + int cont_size; + int flag1; + int flag2; + unsigned char *pnts; + char symlinkname[1024]; + char name[1024]; + int goof; + +/* printf(" RRlen=%d ", len); */ + + symlinkname[0] = 0; + + cont_extent = (off_t)0; + cont_offset = cont_size = 0; + + ncount = 0; + flag1 = flag2 = 0; + while (len >= 4) { + if (ncount) + printf(","); + else + printf("["); + printf("%c%c", pnt[0], pnt[1]); + if (pnt[3] != 1 && pnt[3] != 2) { + printf("**BAD RRVERSION (%d) for %c%c\n", pnt[3], pnt[0], pnt[1]); + return (0); /* JS ??? Is this right ??? */ + } else if (pnt[0] == 'R' && pnt[1] == 'R') { + printf("=%d", pnt[3]); + } + ncount++; + if (pnt[0] == 'R' && pnt[1] == 'R') flag1 = pnt[4] & 0xff; + if (strncmp((char *)pnt, "PX", 2) == 0) flag2 |= 1; + if (strncmp((char *)pnt, "PN", 2) == 0) flag2 |= 2; + if (strncmp((char *)pnt, "SL", 2) == 0) flag2 |= 4; + if (strncmp((char *)pnt, "NM", 2) == 0) { + slen = pnt[2] - 5; + pnts = pnt+5; + if ((pnt[4] & 6) != 0) { + printf("*"); + } + memset(name, 0, sizeof (name)); + memcpy(name, pnts, slen); + printf("=%s", name); + flag2 |= 8; + } + if (strncmp((char *)pnt, "CL", 2) == 0) flag2 |= 16; + if (strncmp((char *)pnt, "PL", 2) == 0) flag2 |= 32; + if (strncmp((char *)pnt, "RE", 2) == 0) flag2 |= 64; + if (strncmp((char *)pnt, "TF", 2) == 0) flag2 |= 128; + + if (strncmp((char *)pnt, "PX", 2) == 0) { + extent = isonum_733(pnt+12); + printf("=%x", extent); + } + + if (strncmp((char *)pnt, "CE", 2) == 0) { + cont_extent = (off_t)isonum_733(pnt+4); + cont_offset = isonum_733(pnt+12); + cont_size = isonum_733(pnt+20); + printf("=[%x,%x,%d]", (int)cont_extent, cont_offset, + cont_size); + } + + if (strncmp((char *)pnt, "PL", 2) == 0 || strncmp((char *)pnt, "CL", 2) == 0) { + extent = isonum_733(pnt+4); + printf("=%x", extent); + } + + if (strncmp((char *)pnt, "SL", 2) == 0) { + int cflag; + + cflag = pnt[4]; + pnts = pnt+5; + slen = pnt[2] - 5; + while (slen >= 1) { + switch (pnts[0] & 0xfe) { + case 0: + strncat(symlinkname, (char *)(pnts+2), pnts[1]); + break; + case 2: + strcat(symlinkname, "."); + break; + case 4: + strcat(symlinkname, ".."); + break; + case 8: + if ((pnts[0] & 1) == 0) + strcat(symlinkname, "/"); + break; + case 16: + strcat(symlinkname, "/mnt"); + printf("Warning - mount point requested"); + break; + case 32: + strcat(symlinkname, "kafka"); + printf("Warning - host_name requested"); + break; + default: + printf("Reserved bit setting in symlink"); + goof++; + break; + } + if ((pnts[0] & 0xfe) && pnts[1] != 0) { + printf("Incorrect length in symlink component"); + } + if ((pnts[0] & 1) == 0) + strcat(symlinkname, "/"); + + slen -= (pnts[1] + 2); + pnts += (pnts[1] + 2); + } + if (cflag) + strcat(symlinkname, "+"); + printf("=%s", symlinkname); + symlinkname[0] = 0; + } + + len -= pnt[2]; + pnt += pnt[2]; + if (len <= 3 && cont_extent) { + unsigned char sector[2048]; + +#ifdef USE_SCG + readsecs(cont_extent * blocksize / 2048, sector, ISO_BLOCKS(sizeof (sector))); +#else + lseek(fileno(infile), cont_extent * blocksize, SEEK_SET); + read(fileno(infile), sector, sizeof (sector)); +#endif + flag2 |= parse_rr(§or[cont_offset], cont_size, 1); + } + } + if (ncount) + printf("]"); + if (!cont_flag && flag1 != flag2) { + printf("Flag %x != %x", flag1, flag2); + goof++; + } + return (flag2); +} + +static void +dump_rr(struct iso_directory_record *idr) +{ + int len; + unsigned char *pnt; + + len = idr->length[0] & 0xff; + len -= offsetof(struct iso_directory_record, name[0]); + len -= idr->name_len[0]; + pnt = (unsigned char *) idr; + pnt += offsetof(struct iso_directory_record, name[0]); + pnt += idr->name_len[0]; + if ((idr->name_len[0] & 1) == 0) { + pnt++; + len--; + } + parse_rr(pnt, len, 0); +} + + +static void +showblock(int flag) +{ + int i; + int j; + int line; + struct iso_directory_record *idr; + +#ifdef USE_SCG + readsecs(file_addr / 2048, buffer, ISO_BLOCKS(sizeof (buffer))); +#else + lseek(fileno(infile), file_addr, SEEK_SET); + read(fileno(infile), buffer, sizeof (buffer)); +#endif + for (i = 0; i < 60; i++) + printf("\n"); + fflush(stdout); + i = line = 0; + if (flag) { + while (1 == 1) { + crsr2(line+3, 1); + idr = (struct iso_directory_record *) &buffer[i]; + if (idr->length[0] == 0) + break; + printf("%3d ", idr->length[0]); + printf("[%2d] ", idr->volume_sequence_number[0]); + printf("%5x ", isonum_733(idr->extent)); + printf("%8d ", isonum_733(idr->size)); + printf("%02x/", idr->flags[0]); + printf((idr->flags[0] & 2) ? "*" : " "); + if (idr->name_len[0] == 1 && idr->name[0] == 0) + printf(". "); + else if (idr->name_len[0] == 1 && idr->name[0] == 1) + printf(".. "); + else { + for (j = 0; j < (int)idr->name_len[0]; j++) printf("%c", idr->name[j]); + for (j = 0; j < (14 - (int)idr->name_len[0]); j++) printf(" "); + } + dump_rr(idr); + printf("\n"); + i += buffer[i]; + if (i > 2048 - offsetof(struct iso_directory_record, name[0])) + break; + line++; + } + } + printf("\n"); + if (sizeof (file_addr) > sizeof (long)) { + printf(" Zone, zone offset: %14llx %12.12llx ", + (Llong)file_addr / blocksize, + (Llong)file_addr & (Llong)(blocksize - 1)); + } else { + printf(" Zone, zone offset: %6lx %4.4lx ", + (long) (file_addr / blocksize), + (long) file_addr & (blocksize - 1)); + } + fflush(stdout); +} + +static int +getbyte() +{ + char c1; + + c1 = buffer[file_addr & (blocksize-1)]; + file_addr++; + if ((file_addr & (blocksize-1)) == 0) + showblock(0); + return (c1); +} + +static void +usage(int excode) +{ + errmsgno(EX_BAD, "Usage: %s [options] image\n", + get_progname()); + + fprintf(stderr, "Options:\n"); + fprintf(stderr, "\t-help, -h Print this help\n"); + fprintf(stderr, "\t-version Print version info and exit\n"); + fprintf(stderr, "\t-i filename Filename to read ISO-9660 image from\n"); + fprintf(stderr, "\tdev=target SCSI target to use as CD/DVD-Recorder\n"); + fprintf(stderr, "\nIf neither -i nor dev= are speficied, <image> is needed.\n"); + exit(excode); +} + +int +main(int argc, char *argv[]) +{ + int cac; + char * const *cav; + char *opts = "help,h,version,i*,dev*"; + BOOL help = FALSE; + BOOL prvers = FALSE; + char *filename = NULL; + char *devname = NULL; + char c; + int i; + struct iso_primary_descriptor ipd; + struct iso_directory_record *idr; + + save_args(argc, argv); + + cac = argc - 1; + cav = argv + 1; + if (getallargs(&cac, &cav, opts, &help, &help, &prvers, + &filename, &devname) < 0) { + errmsgno(EX_BAD, "Bad Option: '%s'\n", cav[0]); + usage(EX_BAD); + } + if (help) + usage(0); + if (prvers) { + printf("isodump %s (%s)\n", CDRKIT_VERSION, HOST_SYSTEM); + exit(0); + } + cac = argc - 1; + cav = argv + 1; + if (filename == NULL && devname == NULL) { + if (getfiles(&cac, &cav, opts) != 0) { + filename = cav[0]; + cac--, cav++; + } + } + if (getfiles(&cac, &cav, opts) != 0) { + errmsgno(EX_BAD, "Bad Argument: '%s'\n", cav[0]); + usage(EX_BAD); + } + if (filename != NULL && devname != NULL) { + errmsgno(EX_BAD, "Only one of -i or dev= allowed\n"); + usage(EX_BAD); + } +#ifdef USE_SCG + if (filename == NULL && devname == NULL) + cdr_defaults(&devname, NULL, NULL, NULL); +#endif + if (filename == NULL && devname == NULL) { +#ifdef USE_LIBSCHILY + errmsgno(EX_BAD, "ISO-9660 image not specified\n"); +#else + fprintf(stderr, "ISO-9660 image not specified\n"); +#endif + usage(EX_BAD); + } + + if (filename != NULL) + infile = fopen(filename, "rb"); + else + filename = devname; + + if (infile != NULL) { + /* EMPTY */; +#ifdef USE_SCG + } else if (scsidev_open(filename) < 0) { +#else + } else { +#endif +#ifdef USE_LIBSCHILY + comerr("Cannot open '%s'\n", filename); +#else + fprintf(stderr, "Cannot open '%s'\n", filename); + exit(1); +#endif + } + + file_addr = (off_t) (16 << 11); +#ifdef USE_SCG + readsecs(file_addr / 2048, &ipd, ISO_BLOCKS(sizeof (ipd))); +#else + lseek(fileno(infile), file_addr, SEEK_SET); + read(fileno(infile), &ipd, sizeof (ipd)); +#endif + idr = (struct iso_directory_record *)ipd.root_directory_record; + + blocksize = isonum_723((char *)ipd.logical_block_size); + if (blocksize != 512 && blocksize != 1024 && blocksize != 2048) { + blocksize = 2048; + } + + file_addr = (off_t)isonum_733(idr->extent); + file_addr = file_addr * blocksize; + +/* Now setup the keyboard for single character input. */ +#ifdef USE_V7_TTY + if (ioctl(STDIN_FILENO, TIOCGETP, &savetty) == -1) { +#else +#ifdef TCSANOW + if (tcgetattr(STDIN_FILENO, &savetty) == -1) { +#else + if (ioctl(STDIN_FILENO, TCGETA, &savetty) == -1) { +#endif +#endif +#ifdef USE_LIBSCHILY + comerr("Stdin must be a tty\n"); +#else + printf("Stdin must be a tty\n"); + exit(1); +#endif + } + newtty = savetty; +#ifdef USE_V7_TTY + newtty.sg_flags &= ~(ECHO|CRMOD); + newtty.sg_flags |= CBREAK; +#else + newtty.c_lflag &= ~ICANON; + newtty.c_lflag &= ~ECHO; + newtty.c_cc[VMIN] = 1; +#endif + set_tty(); +#ifdef SIGTSTP + signal(SIGTSTP, onsusp); +#endif + on_comerr((void(*)(int, void *))reset_tty, NULL); + + do { + if (file_addr < 0) + file_addr = (off_t)0; + showblock(1); + read(STDIN_FILENO, &c, 1); /* FIXME: check return value */ + if (c == 'a') + file_addr -= blocksize; + if (c == 'b') + file_addr += blocksize; + if (c == 'g') { + crsr2(20, 1); + printf("Enter new starting block (in hex):"); + if (sizeof (file_addr) > sizeof (long)) { + Llong ll; + scanf("%llx", &ll); /* FIXME: check return value */ + file_addr = (off_t)ll; + } else { + long l; + scanf("%lx", &l); /* FIXME: check return value */ + file_addr = (off_t)l; + } + file_addr = file_addr * blocksize; + crsr2(20, 1); + printf(" "); + } + if (c == 'f') { + crsr2(20, 1); + printf("Enter new search string:"); + fgets((char *)search, sizeof (search), stdin); /* FIXME: check return value */ + while (search[strlen((char *)search)-1] == '\n') + search[strlen((char *)search)-1] = 0; + crsr2(20, 1); + printf(" "); + } + if (c == '+') { + while (1 == 1) { + int slen; + + while (1 == 1) { + c = getbyte(); + if (c == search[0]) + break; + } + slen = (int)strlen((char *)search); + for (i = 1; i < slen; i++) { + if (search[i] != getbyte()) + break; + } + if (i == slen) + break; + } + file_addr &= ~(blocksize-1); + showblock(1); + } + if (c == 'q') + break; + } while (1 == 1); + reset_tty(); + if (infile != NULL) + fclose(infile); + return (0); +} |