interpretor/libsndfile-1.0.25/src/rx2.c

   1 /*
   2 ** Copyright (C) 2001-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
   3 **
   4 ** This program is free software; you can redistribute it and/or modify
   5 ** it under the terms of the GNU Lesser General Public License as published by
   6 ** the Free Software Foundation; either version 2.1 of the License, or
   7 ** (at your option) any later version.
   8 **
   9 ** This program is distributed in the hope that it will be useful,
  10 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ** GNU Lesser General Public License for more details.
  13 **
  14 ** You should have received a copy of the GNU Lesser General Public License
  15 ** along with this program; if not, write to the Free Software
  16 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17 */
  18
  19 #include        "sfconfig.h"
  20
  21 #include        <stdio.h>
  22 #include        <string.h>
  23 #include        <ctype.h>
  24 #include        <stdarg.h>
  25
  26 #include        "sndfile.h"
  27 #include        "sfendian.h"
  28 #include        "common.h"
  29
  30 #if (ENABLE_EXPERIMENTAL_CODE == 0)
  31
  32 int
  33 rx2_open        (SF_PRIVATE *psf)
  34 {       if (psf)
  35                 return SFE_UNIMPLEMENTED ;
  36         return 0 ;
  37 } /* rx2_open */
  38
  39 #else
  40
  41 /*------------------------------------------------------------------------------
  42  * Macros to handle big/little endian issues.
  43 */
  44
  45 #define CAT_MARKER      (MAKE_MARKER ('C', 'A', 'T', ' '))
  46 #define GLOB_MARKER (MAKE_MARKER ('G', 'L', 'O', 'B'))
  47
  48 #define RECY_MARKER (MAKE_MARKER ('R', 'E', 'C', 'Y'))
  49
  50 #define SLCL_MARKER (MAKE_MARKER ('S', 'L', 'C', 'L'))
  51 #define SLCE_MARKER (MAKE_MARKER ('S', 'L', 'C', 'E'))
  52
  53 #define DEVL_MARKER     (MAKE_MARKER ('D', 'E', 'V', 'L'))
  54 #define TRSH_MARKER     (MAKE_MARKER ('T', 'R', 'S', 'H'))
  55
  56 #define EQ_MARKER       (MAKE_MARKER ('E', 'Q', ' ', ' '))
  57 #define COMP_MARKER (MAKE_MARKER ('C', 'O', 'M', 'P'))
  58
  59 #define SINF_MARKER (MAKE_MARKER ('S', 'I', 'N', 'F'))
  60 #define SDAT_MARKER (MAKE_MARKER ('S', 'D', 'A', 'T'))
  61
  62 /*------------------------------------------------------------------------------
  63  * Typedefs for file chunks.
  64 */
  65
  66
  67 /*------------------------------------------------------------------------------
  68  * Private static functions.
  69 */
  70 static int      rx2_close       (SF_PRIVATE *psf) ;
  71
  72 /*------------------------------------------------------------------------------
  73 ** Public functions.
  74 */
  75
  76 int
  77 rx2_open        (SF_PRIVATE *psf)
  78 {       static const char *marker_type [4] =
  79         {       "Original Enabled", "Enabled Hidden",
  80                 "Additional/PencilTool", "Disabled"
  81                 } ;
  82
  83         int error, marker, length, glob_offset, slce_count, frames ;
  84
  85         int sdat_length = 0, slce_total = 0 ;
  86
  87         int n_channels ;
  88
  89
  90         /* So far only doing read. */
  91
  92         psf_binheader_readf (psf, "Epm4", 0, &marker, &length) ;
  93
  94         if (marker != CAT_MARKER)
  95         {       psf_log_printf (psf, "length : %d\n", length) ;
  96                 return -1000 ;
  97                 } ;
  98
  99         if (length != psf->filelength - 8)
 100                 psf_log_printf (psf, "%M : %d (should be %d)\n", marker, length, psf->filelength - 8) ;
 101         else
 102                 psf_log_printf (psf, "%M : %d\n", marker, length) ;
 103
 104         /* 'REX2' marker */
 105         psf_binheader_readf (psf, "m", &marker) ;
 106         psf_log_printf (psf, "%M", marker) ;
 107
 108         /* 'HEAD' marker */
 109         psf_binheader_readf (psf, "m", &marker) ;
 110         psf_log_printf (psf, "%M\n", marker) ;
 111
 112         /* Grab 'GLOB' offset. */
 113         psf_binheader_readf (psf, "E4", &glob_offset) ;
 114         glob_offset += 0x14 ;   /* Add the current file offset. */
 115
 116         /* Jump to offset 0x30 */
 117         psf_binheader_readf (psf, "p", 0x30) ;
 118
 119         /* Get name length */
 120         length = 0 ;
 121         psf_binheader_readf (psf, "1", &length) ;
 122         if (length >= SIGNED_SIZEOF (psf->u.cbuf))
 123         {       psf_log_printf (psf, "  Text : %d *** Error : Too sf_count_t!\n") ;
 124                 return -1001 ;
 125                 }
 126
 127         memset (psf->u.cbuf, 0, sizeof (psf->u.cbuf)) ;
 128         psf_binheader_readf (psf, "b", psf->u.cbuf, length) ;
 129         psf_log_printf (psf, " Text : \"%s\"\n", psf->u.cbuf) ;
 130
 131         /* Jump to GLOB offset position. */
 132         if (glob_offset & 1)
 133                 glob_offset ++ ;
 134
 135         psf_binheader_readf (psf, "p", glob_offset) ;
 136
 137         slce_count = 0 ;
 138         /* GLOB */
 139         while (1)
 140         {       psf_binheader_readf (psf, "m", &marker) ;
 141
 142                 if (marker != SLCE_MARKER && slce_count > 0)
 143                 {       psf_log_printf (psf, "   SLCE count : %d\n", slce_count) ;
 144                         slce_count = 0 ;
 145                         }
 146                 switch (marker)
 147                 {       case GLOB_MARKER:
 148                                         psf_binheader_readf (psf, "E4", &length) ;
 149                                         psf_log_printf (psf, " %M : %d\n", marker, length) ;
 150                                         psf_binheader_readf (psf, "j", length) ;
 151                                         break ;
 152
 153                         case RECY_MARKER:
 154                                         psf_binheader_readf (psf, "E4", &length) ;
 155                                         psf_log_printf (psf, " %M : %d\n", marker, length) ;
 156                                         psf_binheader_readf (psf, "j", (length+1) & 0xFFFFFFFE) ; /* ?????? */
 157                                         break ;
 158
 159                         case CAT_MARKER:
 160                                         psf_binheader_readf (psf, "E4", &length) ;
 161                                         psf_log_printf (psf, " %M : %d\n", marker, length) ;
 162                                         /*-psf_binheader_readf (psf, "j", length) ;-*/
 163                                         break ;
 164
 165                         case DEVL_MARKER:
 166                                         psf_binheader_readf (psf, "mE4", &marker, &length) ;
 167                                         psf_log_printf (psf, "  DEVL%M : %d\n", marker, length) ;
 168                                         if (length & 1)
 169                                                 length ++ ;
 170                                         psf_binheader_readf (psf, "j", length) ;
 171                                         break ;
 172
 173                         case EQ_MARKER:
 174                         case COMP_MARKER:
 175                                         psf_binheader_readf (psf, "E4", &length) ;
 176                                         psf_log_printf (psf, "   %M : %d\n", marker, length) ;
 177                                         /* This is weird!!!! why make this (length - 1) */
 178                                         if (length & 1)
 179                                                 length ++ ;
 180                                         psf_binheader_readf (psf, "j", length) ;
 181                                         break ;
 182
 183                         case SLCL_MARKER:
 184                                         psf_log_printf (psf, "  %M\n    (Offset, Next Offset, Type)\n", marker) ;
 185                                         slce_count = 0 ;
 186                                         break ;
 187
 188                         case SLCE_MARKER:
 189                                         {       int len [4], indx ;
 190
 191                                                 psf_binheader_readf (psf, "E4444", &len [0], &len [1], &len [2], &len [3]) ;
 192
 193                                                 indx = ((len [3] & 0x0000FFFF) >> 8) & 3 ;
 194
 195                                                 if (len [2] == 1)
 196                                                 {       if (indx != 1)
 197                                                                 indx = 3 ;      /* 2 cases, where next slice offset = 1 -> disabled & enabled/hidden */
 198
 199                                                         psf_log_printf (psf, "   %M : (%6d, ?: 0x%X, %s)\n", marker, len [1], (len [3] & 0xFFFF0000) >> 16, marker_type [indx]) ;
 200                                                         }
 201                                                 else
 202                                                 {       slce_total += len [2] ;
 203
 204                                                         psf_log_printf (psf, "   %M : (%6d, SLCE_next_ofs:%d, ?: 0x%X, %s)\n", marker, len [1], len [2], (len [3] & 0xFFFF0000) >> 16, marker_type [indx]) ;
 205                                                         } ;
 206
 207                                                 slce_count ++ ;
 208                                                 } ;
 209                                         break ;
 210
 211                         case SINF_MARKER:
 212                                         psf_binheader_readf (psf, "E4", &length) ;
 213                                         psf_log_printf (psf, " %M : %d\n", marker, length) ;
 214
 215                                         psf_binheader_readf (psf, "E2", &n_channels) ;
 216                                         n_channels = (n_channels & 0x0000FF00) >> 8 ;
 217                                         psf_log_printf (psf, "  Channels    : %d\n", n_channels) ;
 218
 219                                         psf_binheader_readf (psf, "E44", &psf->sf.samplerate, &frames) ;
 220                                         psf->sf.frames = frames ;
 221                                         psf_log_printf (psf, "  Sample Rate : %d\n", psf->sf.samplerate) ;
 222                                         psf_log_printf (psf, "  Frames      : %D\n", psf->sf.frames) ;
 223
 224                                         psf_binheader_readf (psf, "E4", &length) ;
 225                                         psf_log_printf (psf, "  ??????????? : %d\n", length) ;
 226
 227                                         psf_binheader_readf (psf, "E4", &length) ;
 228                                         psf_log_printf (psf, "  ??????????? : %d\n", length) ;
 229                                         break ;
 230
 231                         case SDAT_MARKER:
 232                                         psf_binheader_readf (psf, "E4", &length) ;
 233
 234                                 sdat_length = length ;
 235
 236                                         /* Get the current offset. */
 237                                         psf->dataoffset = psf_binheader_readf (psf, NULL) ;
 238
 239                                         if (psf->dataoffset + length != psf->filelength)
 240                                                 psf_log_printf (psf, " %M : %d (should be %d)\n", marker, length, psf->dataoffset + psf->filelength) ;
 241                                         else
 242                                                 psf_log_printf (psf, " %M : %d\n", marker, length) ;
 243                                         break ;
 244
 245                         default :
 246                                         psf_log_printf (psf, "Unknown marker : 0x%X %M", marker, marker) ;
 247                                         return -1003 ;
 248                                         break ;
 249                         } ;
 250
 251                 /* SDAT always last marker in file. */
 252                 if (marker == SDAT_MARKER)
 253                         break ;
 254                 } ;
 255
 256         puts (psf->logbuffer) ;
 257         puts ("-----------------------------------") ;
 258
 259         printf ("SDAT length  : %d\n", sdat_length) ;
 260         printf ("SLCE count   : %d\n", slce_count) ;
 261
 262         /* Hack for zero slice count. */
 263         if (slce_count == 0 && slce_total == 1)
 264                 slce_total = frames ;
 265
 266         printf ("SLCE samples : %d\n", slce_total) ;
 267
 268         /* Two bytes per sample. */
 269         printf ("Comp Ratio   : %f:1\n", (2.0 * slce_total * n_channels) / sdat_length) ;
 270
 271         puts (" ") ;
 272
 273         psf->logbuffer [0] = 0 ;
 274
 275         /* OK, have the header although not too sure what it all means. */
 276
 277         psf->endian = SF_ENDIAN_BIG ;
 278
 279         psf->datalength = psf->filelength - psf->dataoffset ;
 280
 281         if (psf_fseek (psf, psf->dataoffset, SEEK_SET))
 282                 return SFE_BAD_SEEK ;
 283
 284         psf->sf.format = (SF_FORMAT_REX2 | SF_FORMAT_DWVW_12) ;
 285
 286         psf->sf.channels        = 1 ;
 287         psf->bytewidth          = 2 ;
 288         psf->blockwidth         = psf->sf.channels * psf->bytewidth ;
 289
 290         if ((error = dwvw_init (psf, 16)))
 291                 return error ;
 292
 293         psf->container_close = rx2_close ;
 294
 295         if (! psf->sf.frames && psf->blockwidth)
 296                 psf->sf.frames = psf->datalength / psf->blockwidth ;
 297
 298         /* All done. */
 299
 300         return 0 ;
 301 } /* rx2_open */
 302
 303 /*------------------------------------------------------------------------------
 304 */
 305
 306 static int
 307 rx2_close       (SF_PRIVATE *psf)
 308 {
 309         if (psf->file.mode == SFM_WRITE)
 310         {       /*  Now we know for certain the length of the file we can re-write
 311                 **      correct values for the FORM, 8SVX and BODY chunks.
 312                 */
 313
 314                 } ;
 315
 316         return 0 ;
 317 } /* rx2_close */
 318
 319 #endif