1/* iffscan - Simple AIFF/RIFF chunk scanner
2 * Copyright (C) 2007  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
35static 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
40static 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
45static FLAC__uint32 unpack32_(const FLAC__byte *b, foreign_block_type_t type)
46{
47	if(type == FOREIGN_BLOCK_TYPE__AIFF)
48		return unpack32be_(b);
49	else
50		return unpack32le_(b);
51}
52
53int main(int argc, char *argv[])
54{
55	FILE *f;
56	char buf[12];
57	foreign_metadata_t *fm;
58	const char *fn, *error;
59	size_t i;
60	FLAC__uint32 size;
61
62	if(argc != 2) {
63		fprintf(stderr, "usage: %s { file.wav | file.aif }\n", argv[0]);
64		return 1;
65	}
66	fn = argv[1];
67	if(0 == (f = fopen(fn, "rb")) || fread(buf, 1, 4, f) != 4) {
68		fprintf(stderr, "ERROR opening %s for reading\n", fn);
69		return 1;
70	}
71	fclose(f);
72	if(0 == (fm = flac__foreign_metadata_new(memcmp(buf, "RIFF", 4)? FOREIGN_BLOCK_TYPE__AIFF : FOREIGN_BLOCK_TYPE__RIFF))) {
73		fprintf(stderr, "ERROR: out of memory\n");
74		return 1;
75	}
76	if(fm->type == FOREIGN_BLOCK_TYPE__AIFF) {
77		if(!flac__foreign_metadata_read_from_aiff(fm, fn, &error)) {
78			fprintf(stderr, "ERROR reading chunks from %s: %s\n", fn, error);
79			return 1;
80		}
81	}
82	else {
83		if(!flac__foreign_metadata_read_from_wave(fm, fn, &error)) {
84			fprintf(stderr, "ERROR reading chunks from %s: %s\n", fn, error);
85			return 1;
86		}
87	}
88	if(0 == (f = fopen(fn, "rb"))) {
89		fprintf(stderr, "ERROR opening %s for reading\n", fn);
90		return 1;
91	}
92	for(i = 0; i < fm->num_blocks; i++) {
93		if(fseeko(f, fm->blocks[i].offset, SEEK_SET) < 0) {
94			fprintf(stderr, "ERROR seeking in %s\n", fn);
95			return 1;
96		}
97		if(fread(buf, 1, 12, f) != 12) {
98			fprintf(stderr, "ERROR reading %s\n", fn);
99			return 1;
100		}
101		size = unpack32_((const FLAC__byte*)buf+4, fm->type);
102		printf("block:[%c%c%c%c] size=%08x=(%10u)", buf[0], buf[1], buf[2], buf[3], size, size);
103		if(i == 0)
104			printf(" type:[%c%c%c%c]", buf[8], buf[9], buf[10], buf[11]);
105		else if(fm->type == FOREIGN_BLOCK_TYPE__AIFF && i == fm->audio_block)
106			printf(" offset size=%08x=(%10u)", fm->ssnd_offset_size, fm->ssnd_offset_size);
107		printf("\n");
108	}
109	fclose(f);
110	flac__foreign_metadata_delete(fm);
111	return 0;
112}
113