//ISO1 is ISO9660
//ISO2 is ISO13490
//ISO3 is ISO13346

//ISO13346 tag id types
#define ISO3T_PRI_VOL_DESC		1
#define ISO3T_ANCHOR_VOL_DESC_PTR	2
#define ISO3T_VOL_DESC_PTR		3
#define ISO3T_IMPLEMENTATION_VOL_DESC	4
#define ISO3T_PRT_DESC			5
#define ISO3T_LOG_VOL_DESC		6
#define ISO3T_UNALLOCATED_SPACE_DESC	7
#define ISO3T_TERMINATOR_DESC		8
#define ISO3T_LOG_VOL_INTEGRITY_DESC	9
#define ISO3T_FILE_SET_DESC		256
#define ISO3T_FILE_ID_DESC		257
#define ISO3T_ALLOC_EXTENT_DESC		258
#define ISO3T_INDIRECT_ENTRY		259
#define ISO3T_TERMINAL_ENTRY		260
#define ISO3T_FILE_ENTRY		261
#define ISO3T_EXT_ATTR_HEADER_DESC	262
#define ISO3T_UNALLOC_SPACE_ENTRY	263
#define ISO3T_SPACE_BITMAP_DESC		264
#define ISO3T_PRT_INTEGRITY_ENTRY	265
#define ISO3T_EXT_FILE_ENTRY		266

class CISO3Tag
{
  U16 id;
  U16 version;
  U8 xsum;
  U8 reserved;
  U16 serial_num;
  U16 desc_crc;
  U16 desc_crc_len;
  U32 loc;
};

class CISO3Date
{
  U16 time_zone;
  I16 year;
  U8 mon;
  U8 day;
  U8 hour;
  U8 min;
  U8 sec;
  U8 sec100;
  U8 sec10000;
  U8 sec1000000;
};


class CISO3DString32
{
  U8 body[31];
  U8 len;
};

class CISO3DString128
{
  U8 body[127];
  U8 len;
};

class CISO3CharSpec
{
  U8 type;
  U8 body[63];
};

class CISO3RegId
{
  U8 flags;
  U8 id[23];
  U8 id_suffix[8];
};

class CISO3ExtentAD
{
  U32 len;
  U32 loc;
};

class CISO3LBAdd
{
  U32 log_blk_num;
  U16 prt_ref_num;
};

class CISO3LongAD
{
  U32 len;
  CISO3LBAdd loc;
  U8 implementation_use[6];
};

class CISO3ICBTag
{
  U32 prior_record_direct_entries;
  U16 strategy_type;
  U16 strategy_param;
  U16 max_entries;
  U8 reserved;
  U8 file_type;
  CISO3LBAdd parent_icb_loc;
  U16 flags;
};

class CISO3PriDesc
{
  CISO3Tag tag;
  U32 vol_desc_seq_num;
  U32 pri_vol_desc_num;
  CISO3DString32 vol_id;
  U16 vol_seq_num;
  U16 max_vol_seq_num;
  U16 interchg_level;
  U16 max_interchg_level;
  U32 char_set_list;
  U32 max_char_set_list;
  CISO3DString128 vol_set_id;
  CISO3CharSpec desc_char_set;
  CISO3CharSpec explanatory_char_set;
  CISO3ExtentAD vol_abstract;
  CISO3ExtentAD vol_copyright_notice;
  CISO3RegId app_id;
  CISO3Date recording_date_time;
  CISO3RegId implementation_id[32];
  U8 implementation_use[64];
  U32 pred_vol_desc_seq_loc;
  U16 flags;
  U8 reserved[22];
};

class CISO3PrtMap
{
  U8 type;
  U8 len;
  U0 mapping;
};

class CISO3PrtMap1
{
  U8 type;
  U8 len;
  U16 vol_seq_num;
  U16 prt_num;
};

class CISO3PrtMap2
{
  U8 type;
  U8 len;
  U8 prt_id[62];
};

class CISO3LogVolDesc
{
  CISO3Tag tag;
  U32 vol_desc_seq_num;
  CISO3CharSpec desc_char_set;
  CISO3DString128 log_vol_id;
  U32 blk_size;
  CISO3RegId domain_id;
  U8 log_vol_contents_use[16];
  U32 map_table_len;
  U32 num_prt_maps;
  CISO3RegId implementation_id;
  U8 implementation_use[128];
  CISO3ExtentAD integrity_seq_extent;
  U0 prt_maps;
};

class CISO3Prt
{
  CISO3Tag tag;
  U32 vol_desc_seq_num;
  U16 flags;
  U16 num;
  CISO3RegId contents;
  U8 contents_use[128];
  U32 access_type;
  U32 starting_loc;
  U32 len;
  CISO3RegId implementation_id;
  U8 implementation_use[128];
  U8 reserved[156];
};

class CISO3FileSetDesc
{
  CISO3Tag tag;
  CISO3Date recording_date_time;
  U16 interchg_level;
  U16 max_interchg_level;
  U32 char_set_list;
  U32 max_char_set_list;
  U32 file_set_num;
  U32 file_set_desc_num;
  CISO3CharSpec log_vol_id_char_set;
  CISO3DString128 log_vol_id;
  CISO3CharSpec	file_set_char_set;
  CISO3DString32 file_set_id;
  CISO3DString32 copyright_file_id;
  CISO3DString32 abstract_file_id;
  CISO3LongAD root_dir_icb;
  CISO3RegId domain_id;
  CISO3LongAD next_extent;
  CISO3LongAD sys_stream_dir_icb;
  U8 reserved[32];
};

class CISO3FileIdDesc
{
  CISO3Tag tag;
  U16 version;
  U8 characteristics;
  U8 len_of_file_id;
  CISO3LongAD icb;
  U16 len_of_implementation_use;
  U0 implementation_use;
  U0 file_id;
};

class CISO3File
{
  CISO3Tag tag;
  CISO3ICBTag icb_tag;
  U32 uid;
  U32 gid;
  U32 permissions;
  U16 file_link_cnt;
  U8 record_fmt;
  U8 record_display_attr;
  U32 record_len;
  I64 info_len;
  I64 log_blks_recorded;
  CISO3Date access_date_time;
  CISO3Date modification_date_time;
  CISO3Date attr_date_time;
  U32 chk_pt;
  CISO3LongAD ext_attr_icb;
  CISO3RegId implementation_id;
  I64 unique_id;
  U32 ext_attr_len;
  U32 alloc_desc_len;
  U0 ext_attr;
  U0 alloc_desc;
};

class CISO3FileExt
{
  CISO3Tag tag;
  CISO3ICBTag icb_tag;
  U32 uid;
  U32 gid;
  U32 permissions;
  U16 file_link_cnt;
  U8 record_fmt;
  U8 record_display_attr;
  U32 record_len;
  I64 info_len;
  I64 object_size;
  I64 log_blks_recorded;
  CISO3Date access_date_time;
  CISO3Date modification_date_time;
  CISO3Date creation_date_time;
  CISO3Date attr_date_time;
  U32 chk_pt;
  U32 reserved;
  CISO3LongAD ext_attr_icb;
  CISO3LongAD stream_dir_icb;
  CISO3RegId implementation_id;
  I64 unique_id;
  U32 ext_attr_len;
  U32 alloc_desc_len;
  U0 ext_attr;
  U0 alloc_desc;
};

import U0 ClassRep(U8 *class_name,U8 *d,I64 max_depth=2,Bool fun=FALSE,I64 offset=0);

Bool ISO3PrtInitPrt(CPrt *p,I64 blk)
{
  CBlkDev *bdev=p->bdev;
  I64 spc=bdev->blk_size>>BLK_SIZE_BITS,i=blk/spc;
  CISO3FileSetDesc *iso=MAlloc(bdev->blk_size);
  Bool unlock,result=FALSE;
  try {
    unlock=PrtLock(p);
    while (TRUE) {
      p->size=MaxI64(p->size,(i+1)*spc);
      RBlks(p,iso,i*spc,spc);
      "%X:%X\n",i,iso->tag.id;
      switch (iso->tag.id) {
	case ISO3T_FILE_SET_DESC:
	  ClassRep("CISO3FileSetDesc",iso,3);
//	  p->offset=blk;
//	  p->root_cluster=iso->root_dir_icb.loc.log_blk_num+p->offset/spc;
	  result=TRUE;
	  break;
	case ISO3T_EXT_FILE_ENTRY:
	  ClassRep("CISO3FileExt",iso,3);
	  break;
	case ISO3T_FILE_ENTRY:
	  ClassRep("CISO3File",iso,3);
	  break;
	case ISO3T_FILE_ID_DESC:
	  ClassRep("CISO3FileIdDesc",iso,3);
	  break;
	case ISO3T_ALLOC_EXTENT_DESC:
	case ISO3T_INDIRECT_ENTRY:
	case ISO3T_TERMINAL_ENTRY:
	case ISO3T_EXT_ATTR_HEADER_DESC:
	case ISO3T_UNALLOC_SPACE_ENTRY:
	case ISO3T_SPACE_BITMAP_DESC:
	case ISO3T_PRT_INTEGRITY_ENTRY:
	  break;
	default
	  goto i3pip_done;
      }
      i++;
    }
i3pip_done:
    Free(iso);
    if (unlock)
      PrtUnlock(p);
  } catch {
    Free(iso);
    if (unlock)
      PrtUnlock(p);
  }
  return result;
}

Bool ISO3PrtInit(CPrt *p,I64 blk)
{
  CBlkDev *bdev=p->bdev;
  I64 spc=bdev->blk_size>>BLK_SIZE_BITS,i=blk/spc,offset=0;
  CISO3Prt *iso=MAlloc(bdev->blk_size);
  Bool unlock,result=FALSE;

  try {
    unlock=PrtLock(p);
    while (TRUE) {
      p->size=MaxI64(p->size,(i+1)*spc);
      RBlks(p,iso,i*spc,spc);
"%X:%X\n",i,iso->tag.id;
      switch (iso->tag.id) {
	case ISO3T_PRT_DESC:
	  ClassRep("CISO3Prt",iso,3);
	  offset=iso->starting_loc*spc; //one partition for now
	  break;
	case ISO3T_PRI_VOL_DESC:
	  ClassRep("CISO3PriDesc",iso,3);
	  break;
	case ISO3T_LOG_VOL_DESC:
	  ClassRep("CISO3LogVolDesc",iso,3);
	  D(&iso(CISO3LogVolDesc *)->prt_maps);
	  break;
	case ISO3T_ANCHOR_VOL_DESC_PTR:
	case ISO3T_VOL_DESC_PTR:
	case ISO3T_IMPLEMENTATION_VOL_DESC:
	case ISO3T_UNALLOCATED_SPACE_DESC:
	case ISO3T_LOG_VOL_INTEGRITY_DESC:
	  break;
	case ISO3T_TERMINATOR_DESC:
	  goto i3pi_done;
	default:
	  PutDefineErr("ST_UNSUPPORTED_FILE_SYSTEM");
	  throw(EXCEPT_PRT,8);
      }
      i++;
    }
i3pi_done:
    if (offset)
      result=ISO3PrtInitPrt(p,offset);
    Free(iso);
    if (unlock)
      PrtUnlock(p);
  } catch {
    Free(iso);
    if (unlock)
      PrtUnlock(p);
  }
  return result;
}


/****
U0 CDate2ISO3(CISO3Date *dst,CDate ltdt)
{
  CDateStruct ds;
  CDate2CDateStruct(&ds,ltdt);
  MemSet(dst,0,sizeof(CISO3Date));
  dst->year=ds.year;
  dst->mon=ds.mon;
  dst->day=ds.day_of_mon;
  dst->hour=ds.hour;
  dst->min=ds.min;
  dst->sec=ds.sec;
  dst->sec100=ds.sec100;
}

CDate ISO3Date2CDate(CISO3Date *dt)
{
  CDateStruct ds;
  MemSet(&ds,0,sizeof(CDateStruct));
  ds.day_of_mon=dt->day;
  ds.mon=dt->mon;
  ds.year=dt->year;
  ds.sec100=dt->sec100;
  ds.sec=dt->sec;
  ds.min=dt->min;
  ds.hour=dt->hour;
  return CDateStruct2CDate(&ds);
}
****/


Bool ISOPrtInit(CPrt *p,I64 blk)
{
  CBlkDev *bdev=p->bdev;
  I64 spc=bdev->blk_size>>BLK_SIZE_BITS,i=blk/spc;
  CISO1PriDesc *iso=MAlloc(bdev->blk_size);
  CISO1DirEntry *de;
  Bool unlock,result=FALSE;
  U8 buf[8];

  try {
    unlock=PrtLock(p);
    p->type=PT_ISO9660; //default
    p->spc=spc;
    p->offset=p->data=p->root_cluster=p->size=0;
    while (TRUE) {
      p->size=MaxI64(p->size,(i+1)*spc);
      RBlks(p,iso,i*spc,spc);
      buf[0](U32)=iso->id[0](U32);
      buf[4](U16)=iso->id[4](U8);
      switch (ListEntryMatch(buf,"CD001\0CDW02\0BEA01\0BOOT2\0NSR02\0NSR03\0TEA01\0",LEF_EXACT)) {
	case 0:
	  p->type=PT_ISO9660;
	  switch (iso->type) {
	    case ISO1T_SUPPLEMENTARY_DESC:
	      p->data=0;
	      de=&iso->root_dir_record;
	      p->root_cluster=de->loc.little;
	      p->size=iso->vol_space_size.little*bdev->blk_size>>BLK_SIZE_BITS;
	      result=TRUE;
	      goto ipi_done;
	    case ISO1T_TERMINATOR:
	      throw(EXCEPT_PRT,9);
	  }
	  break;
	case 2...6:
	  p->type=PT_ISO13346;
	  break;
	case 1: //PT_ISO13490 (Not supported)
	default: //Its normal for ISO13346 to read NULL blk as terminator
	  switch (p->type) {
	    case PT_ISO13346:
	      i++; //Terminator is blk after last valid.  Advance to next blk
	      if (ISO3PrtInit(p,i*spc)) {
		result=TRUE;
		goto ipi_done;
	      }
	      break;
	  }
	  PutDefineErr("ST_UNSUPPORTED_FILE_SYSTEM");
	  throw(EXCEPT_PRT,10);
      }
      i++;
    }
ipi_done:
    Free(iso);
    if (unlock)
      PrtUnlock(p);
  } catch {
    p->type=PT_ISO9660;
    p->spc=spc;
    p->offset=p->data=p->root_cluster=0;
    Free(iso);
    if (unlock)
      PrtUnlock(p);
  }
  return result;
}