cannam@154: /********************************************************************
cannam@154:  *                                                                  *
cannam@154:  * THIS FILE IS PART OF THE libopusfile SOFTWARE CODEC SOURCE CODE. *
cannam@154:  * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
cannam@154:  * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
cannam@154:  * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
cannam@154:  *                                                                  *
cannam@154:  * THE libopusfile SOURCE CODE IS (C) COPYRIGHT 1994-2012           *
cannam@154:  * by the Xiph.Org Foundation and contributors http://www.xiph.org/ *
cannam@154:  *                                                                  *
cannam@154:  ********************************************************************/
cannam@154: #ifdef HAVE_CONFIG_H
cannam@154: #include "config.h"
cannam@154: #endif
cannam@154: 
cannam@154: /*For fileno()*/
cannam@154: #if !defined(_POSIX_SOURCE)
cannam@154: # define _POSIX_SOURCE 1
cannam@154: #endif
cannam@154: #include <stdio.h>
cannam@154: #include <stdlib.h>
cannam@154: #include <errno.h>
cannam@154: #include <math.h>
cannam@154: #include <string.h>
cannam@154: #include <opusfile.h>
cannam@154: #if defined(_WIN32)
cannam@154: # include "win32utf8.h"
cannam@154: # undef fileno
cannam@154: # define fileno _fileno
cannam@154: #endif
cannam@154: 
cannam@154: /*Use shorts, they're smaller.*/
cannam@154: #if !defined(OP_FIXED_POINT)
cannam@154: # define OP_FIXED_POINT (1)
cannam@154: #endif
cannam@154: 
cannam@154: #if defined(OP_FIXED_POINT)
cannam@154: 
cannam@154: typedef opus_int16 op_sample;
cannam@154: 
cannam@154: # define op_read_native op_read
cannam@154: 
cannam@154: /*TODO: The convergence after 80 ms of preroll is far from exact.
cannam@154:   Our comparison is very rough.
cannam@154:   Need to find some way to do this better.*/
cannam@154: # define MATCH_TOL (16384)
cannam@154: 
cannam@154: # define ABS(_x) ((_x)<0?-(_x):(_x))
cannam@154: 
cannam@154: # define MATCH(_a,_b) (ABS((_a)-(_b))<MATCH_TOL)
cannam@154: 
cannam@154: /*Don't have fixed-point downmixing code.*/
cannam@154: # undef OP_WRITE_SEEK_SAMPLES
cannam@154: 
cannam@154: #else
cannam@154: 
cannam@154: typedef float op_sample;
cannam@154: 
cannam@154: # define op_read_native op_read_float
cannam@154: 
cannam@154: /*TODO: The convergence after 80 ms of preroll is far from exact.
cannam@154:   Our comparison is very rough.
cannam@154:   Need to find some way to do this better.*/
cannam@154: # define MATCH_TOL (16384.0/32768)
cannam@154: 
cannam@154: # define FABS(_x) ((_x)<0?-(_x):(_x))
cannam@154: 
cannam@154: # define MATCH(_a,_b) (FABS((_a)-(_b))<MATCH_TOL)
cannam@154: 
cannam@154: # if defined(OP_WRITE_SEEK_SAMPLES)
cannam@154: /*Matrices for downmixing from the supported channel counts to stereo.*/
cannam@154: static const float DOWNMIX_MATRIX[8][8][2]={
cannam@154:   /*mono*/
cannam@154:   {
cannam@154:     {1.F,1.F}
cannam@154:   },
cannam@154:   /*stereo*/
cannam@154:   {
cannam@154:     {1.F,0.F},{0.F,1.F}
cannam@154:   },
cannam@154:   /*3.0*/
cannam@154:   {
cannam@154:     {0.5858F,0.F},{0.4142F,0.4142F},{0,0.5858F}
cannam@154:   },
cannam@154:   /*quadrophonic*/
cannam@154:   {
cannam@154:     {0.4226F,0.F},{0,0.4226F},{0.366F,0.2114F},{0.2114F,0.336F}
cannam@154:   },
cannam@154:   /*5.0*/
cannam@154:   {
cannam@154:     {0.651F,0.F},{0.46F,0.46F},{0,0.651F},{0.5636F,0.3254F},{0.3254F,0.5636F}
cannam@154:   },
cannam@154:   /*5.1*/
cannam@154:   {
cannam@154:     {0.529F,0.F},{0.3741F,0.3741F},{0.F,0.529F},{0.4582F,0.2645F},
cannam@154:     {0.2645F,0.4582F},{0.3741F,0.3741F}
cannam@154:   },
cannam@154:   /*6.1*/
cannam@154:   {
cannam@154:     {0.4553F,0.F},{0.322F,0.322F},{0.F,0.4553F},{0.3943F,0.2277F},
cannam@154:     {0.2277F,0.3943F},{0.2788F,0.2788F},{0.322F,0.322F}
cannam@154:   },
cannam@154:   /*7.1*/
cannam@154:   {
cannam@154:     {0.3886F,0.F},{0.2748F,0.2748F},{0.F,0.3886F},{0.3366F,0.1943F},
cannam@154:     {0.1943F,0.3366F},{0.3366F,0.1943F},{0.1943F,0.3366F},{0.2748F,0.2748F}
cannam@154:   }
cannam@154: };
cannam@154: 
cannam@154: static void write_samples(float *_samples,int _nsamples,int _nchannels){
cannam@154:   float stereo_pcm[120*48*2];
cannam@154:   int   i;
cannam@154:   for(i=0;i<_nsamples;i++){
cannam@154:     float l;
cannam@154:     float r;
cannam@154:     int   ci;
cannam@154:     l=r=0.F;
cannam@154:     for(ci=0;ci<_nchannels;ci++){
cannam@154:       l+=DOWNMIX_MATRIX[_nchannels-1][ci][0]*_samples[i*_nchannels+ci];
cannam@154:       r+=DOWNMIX_MATRIX[_nchannels-1][ci][1]*_samples[i*_nchannels+ci];
cannam@154:     }
cannam@154:     stereo_pcm[2*i+0]=l;
cannam@154:     stereo_pcm[2*i+1]=r;
cannam@154:   }
cannam@154:   fwrite(stereo_pcm,sizeof(*stereo_pcm)*2,_nsamples,stdout);
cannam@154: }
cannam@154: # endif
cannam@154: 
cannam@154: #endif
cannam@154: 
cannam@154: static long nfailures;
cannam@154: 
cannam@154: static void verify_seek(OggOpusFile *_of,opus_int64 _byte_offset,
cannam@154:  ogg_int64_t _pcm_offset,ogg_int64_t _pcm_length,op_sample *_bigassbuffer){
cannam@154:   opus_int64  byte_offset;
cannam@154:   ogg_int64_t pcm_offset;
cannam@154:   ogg_int64_t duration;
cannam@154:   op_sample   buffer[120*48*8];
cannam@154:   int         nchannels;
cannam@154:   int         nsamples;
cannam@154:   int         li;
cannam@154:   int         lj;
cannam@154:   int         i;
cannam@154:   byte_offset=op_raw_tell(_of);
cannam@154:   if(_byte_offset!=-1&&byte_offset<_byte_offset){
cannam@154:     fprintf(stderr,"\nRaw position out of tolerance: requested %li, "
cannam@154:      "got %li.\n",(long)_byte_offset,(long)byte_offset);
cannam@154:     nfailures++;
cannam@154:   }
cannam@154:   pcm_offset=op_pcm_tell(_of);
cannam@154:   if(_pcm_offset!=-1&&pcm_offset>_pcm_offset){
cannam@154:     fprintf(stderr,"\nPCM position out of tolerance: requested %li, "
cannam@154:      "got %li.\n",(long)_pcm_offset,(long)pcm_offset);
cannam@154:     nfailures++;
cannam@154:   }
cannam@154:   if(pcm_offset<0||pcm_offset>_pcm_length){
cannam@154:     fprintf(stderr,"\nPCM position out of bounds: got %li.\n",
cannam@154:      (long)pcm_offset);
cannam@154:     nfailures++;
cannam@154:   }
cannam@154:   nsamples=op_read_native(_of,buffer,sizeof(buffer)/sizeof(*buffer),&li);
cannam@154:   if(nsamples<0){
cannam@154:     fprintf(stderr,"\nFailed to read PCM data after seek: %i\n",nsamples);
cannam@154:     nfailures++;
cannam@154:     li=op_current_link(_of);
cannam@154:   }
cannam@154:   for(lj=0;lj<li;lj++){
cannam@154:     duration=op_pcm_total(_of,lj);
cannam@154:     if(0<=pcm_offset&&pcm_offset<duration){
cannam@154:       fprintf(stderr,"\nPCM data after seek came from the wrong link: "
cannam@154:        "expected %i, got %i.\n",lj,li);
cannam@154:       nfailures++;
cannam@154:     }
cannam@154:     pcm_offset-=duration;
cannam@154:     if(_bigassbuffer!=NULL)_bigassbuffer+=op_channel_count(_of,lj)*duration;
cannam@154:   }
cannam@154:   duration=op_pcm_total(_of,li);
cannam@154:   if(pcm_offset+nsamples>duration){
cannam@154:     fprintf(stderr,"\nPCM data after seek exceeded link duration: "
cannam@154:      "limit %li, got %li.\n",(long)duration,(long)(pcm_offset+nsamples));
cannam@154:     nfailures++;
cannam@154:   }
cannam@154:   nchannels=op_channel_count(_of,li);
cannam@154:   if(_bigassbuffer!=NULL){
cannam@154:     for(i=0;i<nsamples*nchannels;i++){
cannam@154:       if(!MATCH(buffer[i],_bigassbuffer[pcm_offset*nchannels+i])){
cannam@154:         ogg_int64_t j;
cannam@154:         fprintf(stderr,"\nData after seek doesn't match declared PCM "
cannam@154:          "position: mismatch %G\n",
cannam@154:          (double)buffer[i]-_bigassbuffer[pcm_offset*nchannels+i]);
cannam@154:         for(j=0;j<duration-nsamples;j++){
cannam@154:           for(i=0;i<nsamples*nchannels;i++){
cannam@154:             if(!MATCH(buffer[i],_bigassbuffer[j*nchannels+i]))break;
cannam@154:           }
cannam@154:           if(i==nsamples*nchannels){
cannam@154:             fprintf(stderr,"\nData after seek appears to match position %li.\n",
cannam@154:              (long)i);
cannam@154:           }
cannam@154:         }
cannam@154:         nfailures++;
cannam@154:         break;
cannam@154:       }
cannam@154:     }
cannam@154:   }
cannam@154: #if defined(OP_WRITE_SEEK_SAMPLES)
cannam@154:   write_samples(buffer,nsamples,nchannels);
cannam@154: #endif
cannam@154: }
cannam@154: 
cannam@154: #define OP_MIN(_a,_b) ((_a)<(_b)?(_a):(_b))
cannam@154: 
cannam@154: /*A simple wrapper that lets us count the number of underlying seek calls.*/
cannam@154: 
cannam@154: static op_seek_func real_seek;
cannam@154: 
cannam@154: static long nreal_seeks;
cannam@154: 
cannam@154: static int seek_stat_counter(void *_stream,opus_int64 _offset,int _whence){
cannam@154:   if(_whence==SEEK_SET)nreal_seeks++;
cannam@154:   /*SEEK_CUR with an offset of 0 is free, as is SEEK_END with an offset of 0
cannam@154:      (assuming we know the file size), so don't count them.*/
cannam@154:   else if(_offset!=0)nreal_seeks++;
cannam@154:   return (*real_seek)(_stream,_offset,_whence);
cannam@154: }
cannam@154: 
cannam@154: #define NSEEK_TESTS (1000)
cannam@154: 
cannam@154: static void print_duration(FILE *_fp,ogg_int64_t _nsamples){
cannam@154:   ogg_int64_t seconds;
cannam@154:   ogg_int64_t minutes;
cannam@154:   ogg_int64_t hours;
cannam@154:   ogg_int64_t days;
cannam@154:   ogg_int64_t weeks;
cannam@154:   seconds=_nsamples/48000;
cannam@154:   _nsamples-=seconds*48000;
cannam@154:   minutes=seconds/60;
cannam@154:   seconds-=minutes*60;
cannam@154:   hours=minutes/60;
cannam@154:   minutes-=hours*60;
cannam@154:   days=hours/24;
cannam@154:   hours-=days*24;
cannam@154:   weeks=days/7;
cannam@154:   days-=weeks*7;
cannam@154:   if(weeks)fprintf(_fp,"%liw",(long)weeks);
cannam@154:   if(weeks||days)fprintf(_fp,"%id",(int)days);
cannam@154:   if(weeks||days||hours){
cannam@154:     if(weeks||days)fprintf(_fp,"%02ih",(int)hours);
cannam@154:     else fprintf(_fp,"%ih",(int)hours);
cannam@154:   }
cannam@154:   if(weeks||days||hours||minutes){
cannam@154:     if(weeks||days||hours)fprintf(_fp,"%02im",(int)minutes);
cannam@154:     else fprintf(_fp,"%im",(int)minutes);
cannam@154:     fprintf(_fp,"%02i",(int)seconds);
cannam@154:   }
cannam@154:   else fprintf(_fp,"%i",(int)seconds);
cannam@154:   fprintf(_fp,".%03is",(int)(_nsamples+24)/48);
cannam@154: }
cannam@154: 
cannam@154: int main(int _argc,const char **_argv){
cannam@154:   OpusFileCallbacks  cb;
cannam@154:   OggOpusFile       *of;
cannam@154:   void              *fp;
cannam@154: #if defined(_WIN32)
cannam@154:   win32_utf8_setup(&_argc,&_argv);
cannam@154: #endif
cannam@154:   if(_argc!=2){
cannam@154:     fprintf(stderr,"Usage: %s <file.opus>\n",_argv[0]);
cannam@154:     return EXIT_FAILURE;
cannam@154:   }
cannam@154:   memset(&cb,0,sizeof(cb));
cannam@154:   if(strcmp(_argv[1],"-")==0)fp=op_fdopen(&cb,fileno(stdin),"rb");
cannam@154:   else{
cannam@154:     /*Try to treat the argument as a URL.*/
cannam@154:     fp=op_url_stream_create(&cb,_argv[1],
cannam@154:      OP_SSL_SKIP_CERTIFICATE_CHECK(1),NULL);
cannam@154:     /*Fall back assuming it's a regular file name.*/
cannam@154:     if(fp==NULL)fp=op_fopen(&cb,_argv[1],"rb");
cannam@154:   }
cannam@154:   if(cb.seek!=NULL){
cannam@154:     real_seek=cb.seek;
cannam@154:     cb.seek=seek_stat_counter;
cannam@154:   }
cannam@154:   of=op_open_callbacks(fp,&cb,NULL,0,NULL);
cannam@154:   if(of==NULL){
cannam@154:     fprintf(stderr,"Failed to open file '%s'.\n",_argv[1]);
cannam@154:     return EXIT_FAILURE;
cannam@154:   }
cannam@154:   if(op_seekable(of)){
cannam@154:     op_sample   *bigassbuffer;
cannam@154:     ogg_int64_t  size;
cannam@154:     ogg_int64_t  pcm_offset;
cannam@154:     ogg_int64_t  pcm_length;
cannam@154:     ogg_int64_t  nsamples;
cannam@154:     long         max_seeks;
cannam@154:     int          nlinks;
cannam@154:     int          ret;
cannam@154:     int          li;
cannam@154:     int          i;
cannam@154:     /*Because we want to do sample-level verification that the seek does what
cannam@154:        it claimed, decode the entire file into memory.*/
cannam@154:     nlinks=op_link_count(of);
cannam@154:     fprintf(stderr,"Opened file containing %i links with %li seeks "
cannam@154:      "(%0.3f per link).\n",nlinks,nreal_seeks,nreal_seeks/(double)nlinks);
cannam@154:     /*Reset the seek counter.*/
cannam@154:     nreal_seeks=0;
cannam@154:     nsamples=0;
cannam@154:     for(li=0;li<nlinks;li++){
cannam@154:       nsamples+=op_pcm_total(of,li)*op_channel_count(of,li);
cannam@154:     }
cannam@154: /*Until we find another way to do the comparisons that solves the MATCH_TOL
cannam@154:    problem, disable this.*/
cannam@154: #if 0
cannam@154:     bigassbuffer=_ogg_malloc(sizeof(*bigassbuffer)*nsamples);
cannam@154:     if(bigassbuffer==NULL){
cannam@154:       fprintf(stderr,
cannam@154:        "Buffer allocation failed. Seek offset detection disabled.\n");
cannam@154:     }
cannam@154: #else
cannam@154:     bigassbuffer=NULL;
cannam@154: #endif
cannam@154:     pcm_offset=op_pcm_tell(of);
cannam@154:     if(pcm_offset!=0){
cannam@154:       fprintf(stderr,"Initial PCM offset was not 0, got %li instead.!\n",
cannam@154:        (long)pcm_offset);
cannam@154:       nfailures++;
cannam@154:     }
cannam@154: /*Disabling the linear scan for now.
cannam@154:   Only test on non-borken files!*/
cannam@154: #if 0
cannam@154:     {
cannam@154:       op_sample    smallerbuffer[120*48*8];
cannam@154:       ogg_int64_t  pcm_print_offset;
cannam@154:       ogg_int64_t  si;
cannam@154:       opus_int32   bitrate;
cannam@154:       int          saw_hole;
cannam@154:       pcm_print_offset=pcm_offset-48000;
cannam@154:       bitrate=0;
cannam@154:       saw_hole=0;
cannam@154:       for(si=0;si<nsamples;){
cannam@154:         ogg_int64_t next_pcm_offset;
cannam@154:         opus_int32  next_bitrate;
cannam@154:         op_sample  *buf;
cannam@154:         int         buf_size;
cannam@154:         buf=bigassbuffer==NULL?smallerbuffer:bigassbuffer+si;
cannam@154:         buf_size=(int)OP_MIN(nsamples-si,
cannam@154:          (int)(sizeof(smallerbuffer)/sizeof(*smallerbuffer))),
cannam@154:         ret=op_read_native(of,buf,buf_size,&li);
cannam@154:         if(ret==OP_HOLE){
cannam@154:           /*Only warn once in a row.*/
cannam@154:           if(saw_hole)continue;
cannam@154:           saw_hole=1;
cannam@154:           /*This is just a warning.
cannam@154:             As long as the timestamps are still contiguous we're okay.*/
cannam@154:           fprintf(stderr,"\nHole in PCM data at sample %li\n",
cannam@154:            (long)pcm_offset);
cannam@154:           continue;
cannam@154:         }
cannam@154:         else if(ret<=0){
cannam@154:           fprintf(stderr,"\nFailed to read PCM data: %i\n",ret);
cannam@154:           exit(EXIT_FAILURE);
cannam@154:         }
cannam@154:         saw_hole=0;
cannam@154:         /*If we have gaps in the PCM positions, seeking is not likely to work
cannam@154:            near them.*/
cannam@154:         next_pcm_offset=op_pcm_tell(of);
cannam@154:         if(pcm_offset+ret!=next_pcm_offset){
cannam@154:           fprintf(stderr,"\nGap in PCM offset: expecting %li, got %li\n",
cannam@154:            (long)(pcm_offset+ret),(long)next_pcm_offset);
cannam@154:           nfailures++;
cannam@154:         }
cannam@154:         pcm_offset=next_pcm_offset;
cannam@154:         si+=ret*op_channel_count(of,li);
cannam@154:         if(pcm_offset>=pcm_print_offset+48000){
cannam@154:           next_bitrate=op_bitrate_instant(of);
cannam@154:           if(next_bitrate>=0)bitrate=next_bitrate;
cannam@154:           fprintf(stderr,"\r%s... [%li left] (%0.3f kbps)               ",
cannam@154:            bigassbuffer==NULL?"Scanning":"Loading",nsamples-si,bitrate/1000.0);
cannam@154:           pcm_print_offset=pcm_offset;
cannam@154:         }
cannam@154:       }
cannam@154:       ret=op_read_native(of,smallerbuffer,8,&li);
cannam@154:       if(ret<0){
cannam@154:         fprintf(stderr,"Failed to read PCM data: %i\n",ret);
cannam@154:         nfailures++;
cannam@154:       }
cannam@154:       if(ret>0){
cannam@154:         fprintf(stderr,"Read too much PCM data!\n");
cannam@154:         nfailures++;
cannam@154:       }
cannam@154:     }
cannam@154: #endif
cannam@154:     pcm_length=op_pcm_total(of,-1);
cannam@154:     size=op_raw_total(of,-1);
cannam@154:     fprintf(stderr,"\rLoaded (%0.3f kbps average).                        \n",
cannam@154:      op_bitrate(of,-1)/1000.0);
cannam@154:     fprintf(stderr,"Testing raw seeking to random places in %li bytes...\n",
cannam@154:      (long)size);
cannam@154:     max_seeks=0;
cannam@154:     for(i=0;i<NSEEK_TESTS;i++){
cannam@154:       long nseeks_tmp;
cannam@154:       opus_int64 byte_offset;
cannam@154:       nseeks_tmp=nreal_seeks;
cannam@154:       byte_offset=(opus_int64)(rand()/(double)RAND_MAX*size);
cannam@154:       fprintf(stderr,"\r\t%3i [raw position %li]...                ",
cannam@154:        i,(long)byte_offset);
cannam@154:       ret=op_raw_seek(of,byte_offset);
cannam@154:       if(ret<0){
cannam@154:         fprintf(stderr,"\nSeek failed: %i.\n",ret);
cannam@154:         nfailures++;
cannam@154:       }
cannam@154:       if(i==28){
cannam@154:         i=28;
cannam@154:       }
cannam@154:       verify_seek(of,byte_offset,-1,pcm_length,bigassbuffer);
cannam@154:       nseeks_tmp=nreal_seeks-nseeks_tmp;
cannam@154:       max_seeks=nseeks_tmp>max_seeks?nseeks_tmp:max_seeks;
cannam@154:     }
cannam@154:     fprintf(stderr,"\rTotal seek operations: %li (%.3f per raw seek, %li maximum).\n",
cannam@154:      nreal_seeks,nreal_seeks/(double)NSEEK_TESTS,max_seeks);
cannam@154:     nreal_seeks=0;
cannam@154:     fprintf(stderr,"Testing exact PCM seeking to random places in %li "
cannam@154:      "samples (",(long)pcm_length);
cannam@154:     print_duration(stderr,pcm_length);
cannam@154:     fprintf(stderr,")...\n");
cannam@154:     max_seeks=0;
cannam@154:     for(i=0;i<NSEEK_TESTS;i++){
cannam@154:       ogg_int64_t pcm_offset2;
cannam@154:       long        nseeks_tmp;
cannam@154:       nseeks_tmp=nreal_seeks;
cannam@154:       pcm_offset=(ogg_int64_t)(rand()/(double)RAND_MAX*pcm_length);
cannam@154:       fprintf(stderr,"\r\t%3i [PCM position %li]...                ",
cannam@154:        i,(long)pcm_offset);
cannam@154:       ret=op_pcm_seek(of,pcm_offset);
cannam@154:       if(ret<0){
cannam@154:         fprintf(stderr,"\nSeek failed: %i.\n",ret);
cannam@154:         nfailures++;
cannam@154:       }
cannam@154:       pcm_offset2=op_pcm_tell(of);
cannam@154:       if(pcm_offset!=pcm_offset2){
cannam@154:         fprintf(stderr,"\nDeclared PCM position did not perfectly match "
cannam@154:          "request: requested %li, got %li.\n",
cannam@154:          (long)pcm_offset,(long)pcm_offset2);
cannam@154:         nfailures++;
cannam@154:       }
cannam@154:       verify_seek(of,-1,pcm_offset,pcm_length,bigassbuffer);
cannam@154:       nseeks_tmp=nreal_seeks-nseeks_tmp;
cannam@154:       max_seeks=nseeks_tmp>max_seeks?nseeks_tmp:max_seeks;
cannam@154:     }
cannam@154:     fprintf(stderr,"\rTotal seek operations: %li (%.3f per exact seek, %li maximum).\n",
cannam@154:      nreal_seeks,nreal_seeks/(double)NSEEK_TESTS,max_seeks);
cannam@154:     nreal_seeks=0;
cannam@154:     fprintf(stderr,"OK.\n");
cannam@154:     _ogg_free(bigassbuffer);
cannam@154:   }
cannam@154:   else{
cannam@154:     fprintf(stderr,"Input was not seekable.\n");
cannam@154:     exit(EXIT_FAILURE);
cannam@154:   }
cannam@154:   op_free(of);
cannam@154:   if(nfailures>0){
cannam@154:     fprintf(stderr,"FAILED: %li failure conditions encountered.\n",nfailures);
cannam@154:   }
cannam@154:   return nfailures!=0?EXIT_FAILURE:EXIT_SUCCESS;
cannam@154: }