btparser/cparser/tests/exp_lex/WAVTemplate.bt

232 lines
4.8 KiB
Plaintext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12: typedef char ID [ 4 ] ;
13:
14:
15: local int haveValidFormat = false ;
16:
17:
18:
19:
20:
21: typedef struct
22: {
23: ID groupID ;
24: long size ;
25: ID riffType ;
26: } WAVRIFFHEADER ;
27:
28:
29: typedef struct {
30: ID chunkID ;
31: long chunkSize ;
32: local int pos = FTell ( ) ;
33: short wFormatTag ;
34: unsigned short wChannels ;
35: unsigned long dwSamplesPerSec ;
36: unsigned long dwAvgBytesPerSec ;
37: unsigned short wBlockAlign ;
38: unsigned short wBitsPerSample ;
39:
40:
41: haveValidFormat = true ;
42:
43:
44: if ( chunkSize > ( FTell ( ) - pos ) )
45: uchar unknown [ chunkSize - ( FTell ( ) - pos ) ] ;
46:
47:
48: if ( chunkSize & 1 )
49: uchar padding ;
50: } FORMATCHUNK ;
51:
52:
53: typedef struct
54: {
55: ID chunkID ;
56: long chunkSize ;
57:
58:
59: if ( ! haveValidFormat )
60: {
61: Warning ( "File contains no valid WAVE format chunk." ) ;
62: return - 1 ;
63: }
64:
65:
66: if ( ( ( format . wBitsPerSample != 8 ) && ( format . wBitsPerSample != 16 ) && ( format . wBitsPerSample != 32 ) )
67: || ( chunkSize % ( int ) format . wBlockAlign != 0 ) )
68: {
69:
70: unsigned char waveformData [ chunkSize ] ;
71: }
72: else if ( ( format . wChannels == 1 ) && ( format . wBitsPerSample == 8 ) )
73: {
74:
75: uchar samples [ chunkSize ] ;
76: }
77: else if ( ( format . wChannels == 1 ) && ( format . wBitsPerSample == 16 ) )
78: {
79:
80: short samples [ chunkSize / 2 ] ;
81: }
82: else if ( ( format . wChannels == 1 ) && ( format . wBitsPerSample == 32 ) )
83: {
84:
85: int samples [ chunkSize / 4 ] ;
86: }
87: else
88: {
89:
90: struct SAMPLES {
91: if ( format . wBitsPerSample == 8 )
92: uchar channels [ format . wChannels ] ;
93: else if ( format . wBitsPerSample == 16 )
94: short channels [ format . wChannels ] ;
95: else if ( format . wBitsPerSample == 32 )
96: int channels [ format . wChannels ] ;
97: } samples [ chunkSize / ( int ) format . wBlockAlign ] ;
98: }
99:
100:
101: if ( ( chunkSize & 1 ) && ( FTell ( ) < FileSize ( ) ) )
102: uchar padding ;
103: } DATACHUNK ;
104:
105:
106: typedef struct
107: {
108: ID chunkID ;
109: long chunkSize ;
110: unsigned long uncompressedSize ;
111: } FACTCHUNK ;
112:
113:
114: typedef struct {
115: long dwIdentifier ;
116: long dwPosition ;
117: ID fccChunk ;
118: long dwChunkStart ;
119: long dwBlockStart ;
120: long dwSampleOffset ;
121: } CUEPOINT ;
122:
123: typedef struct {
124: ID chunkID ;
125: long chunkSize ;
126: local int pos = FTell ( ) ;
127: long dwCuePoints ;
128: CUEPOINT points [ dwCuePoints ] ;
129:
130:
131: if ( chunkSize > ( FTell ( ) - pos ) )
132: uchar unknown [ chunkSize - ( FTell ( ) - pos ) ] ;
133: } CUECHUNK ;
134:
135:
136: typedef struct {
137: ID chunkID ;
138: long chunkSize ;
139: char listData [ chunkSize ] ;
140:
141:
142: if ( ( chunkSize & 1 ) && ( FTell ( ) < FileSize ( ) ) )
143: uchar padding ;
144: } LISTSUBCHUNK ;
145:
146: typedef struct {
147: ID chunkID ;
148: long chunkSize ;
149: local quad pos = FTell ( ) ;
150: ID chunkType ;
151:
152:
153: while ( FTell ( ) - pos < chunkSize )
154: LISTSUBCHUNK subchunk ;
155:
156:
157: if ( ( chunkSize & 1 ) && ( FTell ( ) < FileSize ( ) ) )
158: uchar padding ;
159: } LISTCHUNK ;
160:
161:
162: typedef struct {
163: ID chunkID ;
164: long chunkSize ;
165: uchar unknownData [ chunkSize ] ;
166:
167:
168: if ( ( chunkSize & 1 ) && ( FTell ( ) < FileSize ( ) ) )
169: uchar padding ;
170: } UNKNOWNCHUNK ;
171:
172:
173:
174:
175: LittleEndian ( ) ;
176: SetBackColor ( cLtPurple ) ;
177: WAVRIFFHEADER header ;
178:
179:
180: if ( header . groupID != "RIFF" || header . riffType != "WAVE" )
181: {
182: Warning ( "File is not a valid wave file. Template stopped." ) ;
183: return - 1 ;
184: }
185:
186:
187: local char tag [ 5 ] ;
188: local uint size ;
189: while ( ! FEof ( ) )
190: {
191:
192: ReadBytes ( tag , FTell ( ) , 4 ) ;
193: tag [ 4 ] = 0 ;
194:
195:
196: switch ( tag )
197: {
198: case "fmt " :
199: SetBackColor ( cLtGray ) ;
200: FORMATCHUNK format ;
201: break ;
202: case "data" :
203: SetBackColor ( cNone ) ;
204: DATACHUNK data ;
205: break ;
206: case "fact" :
207: SetBackColor ( cLtBlue ) ;
208: FACTCHUNK fact ;
209: break ;
210: case "cue " :
211: SetBackColor ( cLtGray ) ;
212: CUECHUNK cue ;
213: break ;
214: case "LIST" :
215: SetBackColor ( cLtYellow ) ;
216: LISTCHUNK list ;
217: break ;
218: default :
219:
220: size = ReadUInt ( FTell ( ) + 4 ) ;
221: Printf ( "Encountered unknown chunk '%s' of size %d at position %Ld.\n" ,
222: tag , size , FTell ( ) ) ;
223: SetBackColor ( cNone ) ;
224: UNKNOWNCHUNK unknown ;
225: break ;
226: }
227: }
228:
229:
230:
231:
232: tok_eof