1 /********************************************************************
2 * *
3 * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. *
4 * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS *
5 * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
6 * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. *
7 * *
8 * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007 *
9 * by the Xiph.Org Foundation http://www.xiph.org/ *
10 * *
11 ********************************************************************
12
13 function: illustrate seeking, and test it too
14 last mod: $Id: seeking_example.c 16329 2009-07-24 01:53:20Z xiphmont $
15
16 ********************************************************************/
17
18 #include <stdlib.h>
19 #include <stdio.h>
20 #include "vorbis/codec.h"
21 #include "vorbis/vorbisfile.h"
22
23 #ifdef _WIN32 /* We need the following two to set stdin/stdout to binary */
24 # include <io.h>
25 # include <fcntl.h>
26 #endif
27
_verify(OggVorbis_File * ov,ogg_int64_t val,ogg_int64_t pcmval,double timeval,ogg_int64_t pcmlength,char * bigassbuffer)28 void _verify(OggVorbis_File *ov,
29 ogg_int64_t val,ogg_int64_t pcmval,double timeval,
30 ogg_int64_t pcmlength,
31 char *bigassbuffer){
32 int j;
33 long bread;
34 char buffer[4096];
35 int dummy;
36 ogg_int64_t pos;
37
38 /* verify the raw position, the pcm position and position decode */
39 if(val!=-1 && ov_raw_tell(ov)<val){
40 fprintf(stderr,"raw position out of tolerance: requested %ld, got %ld\n",
41 (long)val,(long)ov_raw_tell(ov));
42 exit(1);
43 }
44 if(pcmval!=-1 && ov_pcm_tell(ov)>pcmval){
45 fprintf(stderr,"pcm position out of tolerance: requested %ld, got %ld\n",
46 (long)pcmval,(long)ov_pcm_tell(ov));
47 exit(1);
48 }
49 if(timeval!=-1 && ov_time_tell(ov)>timeval){
50 fprintf(stderr,"time position out of tolerance: requested %f, got %f\n",
51 timeval,ov_time_tell(ov));
52 exit(1);
53 }
54 pos=ov_pcm_tell(ov);
55 if(pos<0 || pos>pcmlength){
56 fprintf(stderr,"pcm position out of bounds: got %ld\n",(long)pos);
57 exit(1);
58 }
59 bread=ov_read(ov,buffer,4096,1,1,1,&dummy);
60 for(j=0;j<bread;j++){
61 if(buffer[j]!=bigassbuffer[j+pos*2]){
62 fprintf(stderr,"data position after seek doesn't match pcm position\n");
63
64 {
65 FILE *f=fopen("a.m","w");
66 for(j=0;j<bread;j++)fprintf(f,"%d\n",(int)buffer[j]);
67 fclose(f);
68 f=fopen("b.m","w");
69 for(j=0;j<bread;j++)fprintf(f,"%d\n",(int)bigassbuffer[j+pos*2]);
70 fclose(f);
71 }
72
73 exit(1);
74 }
75 }
76 }
77
main()78 int main(){
79 OggVorbis_File ov;
80 int i,ret;
81 ogg_int64_t pcmlength;
82 double timelength;
83 char *bigassbuffer;
84 int dummy;
85
86 #ifdef _WIN32 /* We need to set stdin/stdout to binary mode. Damn windows. */
87 _setmode( _fileno( stdin ), _O_BINARY );
88 #endif
89
90
91 /* open the file/pipe on stdin */
92 if(ov_open_callbacks(stdin,&ov,NULL,-1,OV_CALLBACKS_NOCLOSE)<0){
93 fprintf(stderr,"Could not open input as an OggVorbis file.\n\n");
94 exit(1);
95 }
96
97 if(ov_seekable(&ov)){
98
99 /* to simplify our own lives, we want to assume the whole file is
100 stereo. Verify this to avoid potentially mystifying users
101 (pissing them off is OK, just don't confuse them) */
102 for(i=0;i<ov.links;i++){
103 vorbis_info *vi=ov_info(&ov,i);
104 if(vi->channels!=2){
105 fprintf(stderr,"Sorry; right now seeking_test can only use Vorbis files\n"
106 "that are entirely stereo.\n\n");
107 exit(1);
108 }
109 }
110
111 /* because we want to do sample-level verification that the seek
112 does what it claimed, decode the entire file into memory */
113 pcmlength=ov_pcm_total(&ov,-1);
114 timelength=ov_time_total(&ov,-1);
115 bigassbuffer=malloc(pcmlength*2); /* w00t */
116 i=0;
117 while(i<pcmlength*2){
118 int ret=ov_read(&ov,bigassbuffer+i,pcmlength*2-i,1,1,1,&dummy);
119 if(ret<0){
120 fprintf(stderr,"Error reading file.\n");
121 exit(1);
122 }
123 if(ret){
124 i+=ret;
125 }else{
126 pcmlength=i/2;
127 }
128 fprintf(stderr,"\rloading.... [%ld left] ",
129 (long)(pcmlength*2-i));
130 }
131
132 {
133 ogg_int64_t length=ov.end;
134 fprintf(stderr,"\rtesting raw seeking to random places in %ld bytes....\n",
135 (long)length);
136
137 for(i=0;i<1000;i++){
138 ogg_int64_t val=(double)rand()/RAND_MAX*length;
139 fprintf(stderr,"\r\t%d [raw position %ld]... ",i,(long)val);
140 ret=ov_raw_seek(&ov,val);
141 if(ret<0){
142 fprintf(stderr,"seek failed: %d\n",ret);
143 exit(1);
144 }
145
146 _verify(&ov,val,-1,-1.,pcmlength,bigassbuffer);
147
148 }
149 }
150
151 fprintf(stderr,"\r");
152 {
153 fprintf(stderr,"testing pcm page seeking to random places in %ld samples....\n",
154 (long)pcmlength);
155
156 for(i=0;i<1000;i++){
157 ogg_int64_t val=(double)rand()/RAND_MAX*pcmlength;
158 fprintf(stderr,"\r\t%d [pcm position %ld]... ",i,(long)val);
159 ret=ov_pcm_seek_page(&ov,val);
160 if(ret<0){
161 fprintf(stderr,"seek failed: %d\n",ret);
162 exit(1);
163 }
164
165 _verify(&ov,-1,val,-1.,pcmlength,bigassbuffer);
166
167 }
168 }
169
170 fprintf(stderr,"\r");
171 {
172 fprintf(stderr,"testing pcm exact seeking to random places in %ld samples....\n",
173 (long)pcmlength);
174
175 for(i=0;i<1000;i++){
176 ogg_int64_t val=(double)rand()/RAND_MAX*pcmlength;
177 fprintf(stderr,"\r\t%d [pcm position %ld]... ",i,(long)val);
178 ret=ov_pcm_seek(&ov,val);
179 if(ret<0){
180 fprintf(stderr,"seek failed: %d\n",ret);
181 exit(1);
182 }
183 if(ov_pcm_tell(&ov)!=val){
184 fprintf(stderr,"Declared position didn't perfectly match request: %ld != %ld\n",
185 (long)val,(long)ov_pcm_tell(&ov));
186 exit(1);
187 }
188
189 _verify(&ov,-1,val,-1.,pcmlength,bigassbuffer);
190
191 }
192 }
193
194 fprintf(stderr,"\r");
195 {
196 fprintf(stderr,"testing time page seeking to random places in %f seconds....\n",
197 timelength);
198
199 for(i=0;i<1000;i++){
200 double val=(double)rand()/RAND_MAX*timelength;
201 fprintf(stderr,"\r\t%d [time position %f]... ",i,val);
202 ret=ov_time_seek_page(&ov,val);
203 if(ret<0){
204 fprintf(stderr,"seek failed: %d\n",ret);
205 exit(1);
206 }
207
208 _verify(&ov,-1,-1,val,pcmlength,bigassbuffer);
209
210 }
211 }
212
213 fprintf(stderr,"\r");
214 {
215 fprintf(stderr,"testing time exact seeking to random places in %f seconds....\n",
216 timelength);
217
218 for(i=0;i<1000;i++){
219 double val=(double)rand()/RAND_MAX*timelength;
220 fprintf(stderr,"\r\t%d [time position %f]... ",i,val);
221 ret=ov_time_seek(&ov,val);
222 if(ret<0){
223 fprintf(stderr,"seek failed: %d\n",ret);
224 exit(1);
225 }
226 if(ov_time_tell(&ov)<val-1 || ov_time_tell(&ov)>val+1){
227 fprintf(stderr,"Declared position didn't perfectly match request: %f != %f\n",
228 val,ov_time_tell(&ov));
229 exit(1);
230 }
231
232 _verify(&ov,-1,-1,val,pcmlength,bigassbuffer);
233
234 }
235 }
236
237 fprintf(stderr,"\r \nOK.\n\n");
238
239
240 }else{
241 fprintf(stderr,"Standard input was not seekable.\n");
242 }
243
244 ov_clear(&ov);
245 return 0;
246 }
247
248
249
250
251
252
253
254
255
256
257
258
259
260