#!/usr/bin/php

<?php

function  frm_dump($fname)
{
   global $dbtypes;

   echo  "Dumping  {$fname} using .frm header format ... \n" ;

   $fh = fopen($fname, 'r') or die("can't open file ". $fname);

   // echo "\n File size is : " . filesize($fname) ;
   // echo "\n File handle is : " . $fh . "\n" ;

   // $buf = fread($handle, filesize($filename));
   $buf = fread($fh, 64);

   // echo  "\n The contents is : " . $buf  ;

   printf("\n OFFSET |Len| Expected   | Found  | Comments  \n");
   printf(" (Dec)  |   |  (Hex)     | (Hex)  |           \n");
   printf("-----------------------------------------------\n");
   printf(" 0      | 2 |  FE 01     | %02x %02x  | Magic mark. 0xFE 01\n", 
                                                ord($buf[0]), ord($buf[1]) );
   printf(" 2      | 1 |  09        | %02x     | FRMVER + 3 + VarcharInTab?1:0\n",
                                                ord($buf[2]) );
   printf(" 3      | 1 |  09(MyISAM)| %02x     | Found type: %s\n", 
                                                ord($buf[3]), $dbtypes{ord($buf[3])});

   printf(" 4      | 1 |  ??        | %02x     | ?? \n", ord($buf[4]));
   printf(" 5      | 1 |   0        | %02x     | Always 0 \n",  ord($buf[5]));
   printf(" 6      | 2 |  00 10     | %02x %02x  | IO_SIZE 4096(dec)is 0x1000(LittleEnd)\n",
                                                ord($buf[6]), ord($buf[7]));
   printf(" 8      | 2 |  01 00     | %02x %02x  | ??? \n",
                                                ord($buf[8]), ord($buf[9]));
   printf(" *      | * |  .......   | ...... | ....... \n");
   printf(" 33     | 1 |  05        | %02x     | Marked 5 for Ver5 FRM File\n",
                                                ord($buf[33]));
   printf(" 38     | 1 |  08? 2e?   | %02x     | default charset num for this table.\n". 
          "                                  | 08 is latin1 default. 2e is utf8_bin\n",
                                                ord($buf[38]));
   $vers = ord($buf[54]);
   $vers = ($vers *256) +   ord($buf[53]);
   $vers = ($vers * 256) + ord($buf[52]);
   $vers = ($vers * 256) + ord($buf[51]);
   printf(" 51     | 4 |  Version   | %06x | MySQL Version ID Found: Dec: %d\n",
                                                $vers, $vers);

}


$dbtypes = Array(
  '0' => 'DB_TYPE_UNKNOWN',
  '1' => 'DB_TYPE_DIAB_ISAM',
  '2' => 'DB_TYPE_HASH',     '3'  => 'DB_TYPE_MISAM',  '4'  => 'DB_TYPE_PISAM',
  '5' => 'DB_TYPE_RMS_ISAM', '6'  => 'DB_TYPE_HEAP',   '7'  => 'DB_TYPE_ISAM',
  '8' => 'DB_TYPE_MRG_ISAM', '9' => 'DB_TYPE_MYISAM', '10' => 'DB_TYPE_MRG_MYISAM',
  '11' => 'DB_TYPE_BERKELEY_DB', '12' => 'DB_TYPE_INNODB',
  '13' => 'DB_TYPE_GEMINI', 
  '14' => 'DB_TYPE_NDBCLUSTER',
  '15' => 'DB_TYPE_EXAMPLE_DB', 
  '16' => 'DB_TYPE_ARCHIVE_DB', 
  '17' => 'DB_TYPE_CSV_DB',
  '18' => 'DB_TYPE_FEDERATED_DB',
  '19' => 'DB_TYPE_BLACKHOLE_DB',
  '20' => 'DB_TYPE_PARTITION_DB',
  '21' => 'DB_TYPE_BINLOG',
  '22' => 'DB_TYPE_SOLID',
  '23' => 'DB_TYPE_PBXT',
  '24' => 'DB_TYPE_TABLE_FUNCTION',
  '25' => 'DB_TYPE_MEMCACHE',
  '26' => 'DB_TYPE_FALCON',
  '27' => 'DB_TYPE_MARIA',
'42'  =>   'DB_TYPE_FIRST_DYNAMIC' ,
'127' =>   'DB_TYPE_DEFAULT' 
);


if ($argc < 2) {
  die ("Usage: {$argv[0]}  frm-file-name \n") ;
}

frm_dump($argv[1]);


// echo "\n Argc is " . $argc  . "\n" ; 
// echo "argv length is " . count($argv) . "\n";
// print_r ($argv) ;


?>