fix bug with fractional seconds on some locales (SF#1858012: https://sourceforge...
[flac.git] / src / flac / iffscan.c
1 /* iffscan - Simple AIFF/RIFF chunk scanner
2  * Copyright (C) 2007,2008  Josh Coalson
3  *
4  * This program is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU General Public License
6  * as published by the Free Software Foundation; either version 2
7  * of the License, or (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 General Public License for more details.
13  *
14  * You should have received a copy of the GNU 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 #if HAVE_CONFIG_H
20 #  include <config.h>
21 #endif
22
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #if defined _MSC_VER || defined __MINGW32__
27 #include <sys/types.h> /* for off_t */
28 #if _MSC_VER <= 1600 /* @@@ [2G limit] */
29 #define fseeko fseek
30 #define ftello ftell
31 #endif
32 #endif
33 #include "foreign_metadata.h"
34
35 static FLAC__uint32 unpack32be_(const FLAC__byte *b)
36 {
37         return ((FLAC__uint32)b[0]<<24) + ((FLAC__uint32)b[1]<<16) + ((FLAC__uint32)b[2]<<8) + (FLAC__uint32)b[3];
38 }
39
40 static FLAC__uint32 unpack32le_(const FLAC__byte *b)
41 {
42         return (FLAC__uint32)b[0] + ((FLAC__uint32)b[1]<<8) + ((FLAC__uint32)b[2]<<16) + ((FLAC__uint32)b[3]<<24);
43 }
44
45 static FLAC__uint64 unpack64le_(const FLAC__byte *b)
46 {
47         return (FLAC__uint64)b[0] + ((FLAC__uint64)b[1]<<8) + ((FLAC__uint64)b[2]<<16) + ((FLAC__uint64)b[3]<<24) + ((FLAC__uint64)b[4]<<32) + ((FLAC__uint64)b[5]<<40) + ((FLAC__uint64)b[6]<<48) + ((FLAC__uint64)b[7]<<56);
48 }
49
50 static FLAC__uint32 unpack32_(const FLAC__byte *b, foreign_block_type_t type)
51 {
52         if(type == FOREIGN_BLOCK_TYPE__AIFF)
53                 return unpack32be_(b);
54         else
55                 return unpack32le_(b);
56 }
57
58 int main(int argc, char *argv[])
59 {
60         FILE *f;
61         char buf[36];
62         foreign_metadata_t *fm;
63         const char *fn, *error;
64         size_t i;
65         FLAC__uint32 size;
66
67         if(argc != 2) {
68                 fprintf(stderr, "usage: %s { file.wav | file.aif }\n", argv[0]);
69                 return 1;
70         }
71         fn = argv[1];
72         if(0 == (f = fopen(fn, "rb")) || fread(buf, 1, 4, f) != 4) {
73                 fprintf(stderr, "ERROR opening %s for reading\n", fn);
74                 return 1;
75         }
76         fclose(f);
77         if(0 == (fm = flac__foreign_metadata_new(memcmp(buf, "RIFF", 4) && memcmp(buf, "RF64", 4)? FOREIGN_BLOCK_TYPE__AIFF : FOREIGN_BLOCK_TYPE__RIFF))) {
78                 fprintf(stderr, "ERROR: out of memory\n");
79                 return 1;
80         }
81         if(fm->type == FOREIGN_BLOCK_TYPE__AIFF) {
82                 if(!flac__foreign_metadata_read_from_aiff(fm, fn, &error)) {
83                         fprintf(stderr, "ERROR reading chunks from %s: %s\n", fn, error);
84                         return 1;
85                 }
86         }
87         else {
88                 if(!flac__foreign_metadata_read_from_wave(fm, fn, &error)) {
89                         fprintf(stderr, "ERROR reading chunks from %s: %s\n", fn, error);
90                         return 1;
91                 }
92         }
93         if(0 == (f = fopen(fn, "rb"))) {
94                 fprintf(stderr, "ERROR opening %s for reading\n", fn);
95                 return 1;
96         }
97         for(i = 0; i < fm->num_blocks; i++) {
98                 if(fseeko(f, fm->blocks[i].offset, SEEK_SET) < 0) {
99                         fprintf(stderr, "ERROR seeking in %s\n", fn);
100                         return 1;
101                 }
102                 if(fread(buf, 1, i==0?12:8, f) != (i==0?12:8)) {
103                         fprintf(stderr, "ERROR reading %s\n", fn);
104                         return 1;
105                 }
106                 size = unpack32_((const FLAC__byte*)buf+4, fm->type);
107                 printf("block:[%c%c%c%c] size=%08x=(%10u)", buf[0], buf[1], buf[2], buf[3], size, size);
108                 if(i == 0)
109                         printf(" type:[%c%c%c%c]", buf[8], buf[9], buf[10], buf[11]);
110                 else if(fm->type == FOREIGN_BLOCK_TYPE__AIFF && i == fm->audio_block)
111                         printf(" offset size=%08x=(%10u)", fm->ssnd_offset_size, fm->ssnd_offset_size);
112                 else if(fm->type == FOREIGN_BLOCK_TYPE__RIFF && i == 1 && !memcmp(buf, "ds64", 4)) {
113                         if(fread(buf+8, 1, 36-8, f) != 36-8) {
114                                 fprintf(stderr, "ERROR reading %s\n", fn);
115                                 return 1;
116                         }
117 #ifdef _MSC_VER
118                         printf(" RIFF size=%016I64x=(%I64u)", unpack64le_(buf+8), unpack64le_(buf+8));
119                         printf(" data size=%016I64x=(%I64u)", unpack64le_(buf+16), unpack64le_(buf+16));
120                         printf(" sample count=%016I64x=(%I64u)", unpack64le_(buf+24), unpack64le_(buf+24));
121 #else
122                         printf(" RIFF size=%016llx=(%llu)", unpack64le_(buf+8), unpack64le_(buf+8));
123                         printf(" data size=%016llx=(%llu)", unpack64le_(buf+16), unpack64le_(buf+16));
124                         printf(" sample count=%016llx=(%llu)", unpack64le_(buf+24), unpack64le_(buf+24));
125 #endif
126                         printf(" table size=%08x=(%u)", unpack32le_(buf+32), unpack32le_(buf+32));
127                 }
128                 printf("\n");
129         }
130         fclose(f);
131         flac__foreign_metadata_delete(fm);
132         return 0;
133 }