apps/ccam/qtime.c

Go to the documentation of this file.

#include <stdio.h> // for printf
#include <time.h>
#include <string.h>

#include "qtime.h"

#define D(x)
FILE *infile;
FILE *outfile;
const char hexStr[]="0123456789abcdef";
/*
 starts with the input file pointer just after the opening "{",
 and output file - at the beginning of it's output
 on exit - input pointer - after closing "}", output after it's output

*/
char comStr[1024];

int     width=1280;
int height=1024;
int nframes=100;
int sample_dur=80;
int samplesPerChunk=10;
int     framesize=80000;
int     timescale=600;
int * sizes;    // array of frame sizes
 D(FILE * dbg);

long headerSize=0;
//stime
void putBigEndian(unsigned long d, int l) {
        if (l>3) fputc((d >>24) & 0xff,outfile);
        if (l>2) fputc((d >>16) & 0xff,outfile);
        if (l>1) fputc((d >> 8) & 0xff,outfile);
        if (l>0) fputc((d     ) & 0xff,outfile);
}

int parse_special(void) {
        
   time_t ltime;
         int n,j,l;
        char str[256];
        char c;
        int i=0;
        while (((c=fgetc(infile))!=0x20) && (c!=0x09) && (c!=0x0a) && (c!=0x0d) && (c!=0x0) && (i<255) && ( feof(infile) == 0 )) str[i++]=c;
        str[i]=0;

  D(fprintf(dbg,"parse_special, str=!%s\n",str));

        if (strcmp(str,"mdata")==0)  {putBigEndian(headerSize, 4);return 0;} // will put zeroes on pass 1
        if (strcmp(str,"height")==0) {putBigEndian(height,2);return 0;}
        if (strcmp(str,"width")==0)  {putBigEndian(width,2);return 0;}
        if (strcmp(str,"width")==0)  {putBigEndian(width,2);return 0;}
        if (strcmp(str,"nframes")==0)  {putBigEndian(nframes,4);return 0;}
        if (strcmp(str,"timescale")==0)  {putBigEndian(timescale,4);return 0;}
        if (strcmp(str,"duration")==0)  {putBigEndian(nframes*sample_dur,4);return 0;}
        if (strcmp(str,"frame_duration")==0)  {putBigEndian(sample_dur,4);return 0;}
        if (strcmp(str,"samples_chunk")==0)  {putBigEndian(samplesPerChunk, 4);return 0;} // will put zeroes on pass 1
        if (strcmp(str,"sample_sizes")==0)  {
       if (sizes!=NULL) for (i=0;i<nframes;i++) putBigEndian(sizes[i],4);
       else             for (i=0;i<nframes;i++) putBigEndian(framesize,4);
           return 0;
        }
        if (strcmp(str,"chunk_offsets")==0)  {
       n= (nframes-1)/samplesPerChunk +1;
       putBigEndian(n,4);
       if (sizes!=NULL) {
         l=0;j=0;
         for (i=0; i<nframes;i++) {
           if (j==0) putBigEndian(headerSize+l,4);
           j++; if (j>=samplesPerChunk) j=0;
           l+=sizes[i];
         }

       } else for (i=0;i<n;i++) putBigEndian(headerSize+framesize*samplesPerChunk*i,4);
           return 0;
        }
        if (strcmp(str,"data_size")==0)  {
       if (sizes!=NULL) {
         l=0;
         for (i=0; i<nframes;i++) l+=sizes[i];
         putBigEndian(l,4);
       } else putBigEndian(nframes * framesize,4);
           return 0;
        }
        if (strcmp(str,"time")==0)  {
                time (&ltime);
                ltime+=2082801600;      // 1970->1904// 31,557,600 seconds/year
                putBigEndian(ltime,4);return 0;}
        return -1;



}
int parse (int top) {   // if top - will not include length
        long out_start, out_end;
        char c;
        unsigned long d,l;
        char * cp;
        c=fgetc(infile);
        out_start=ftell (outfile);

  D(fprintf(dbg,"parse(%x)\n",top));

        if (!top)  putBigEndian(0, 4);
        while (( feof(infile) == 0 ) && (c!='}')) {
// skip white spaces strchr
                if ((c!=' ') && (c!=0x9) && (c!=0xa) && (c!=0xd)) {
                  if (c=='!') {
                     if (parse_special()<0) return -1;
                  }
// children atoms
                  else if (c=='{') {
                    if (parse(0)<0) return -1;
// skip comments
                  } else if (c=='#') fgets( comStr, sizeof(comStr), infile);
                  else if (c=='\'') {
                        fgets ( comStr, sizeof(comStr), infile);
                        if ((cp=strchr(comStr,0x0a))!=NULL) cp[0]=0;
                        if ((cp=strchr(comStr,0x0d))!=NULL) cp[0]=0;
                        if ((cp=strchr(comStr,'#'))!=NULL) cp[0]=0;
                        cp=comStr+strlen(comStr)-1;
                        while ((cp>comStr) && ((cp[0]==0x20) || (cp[0]==0x09))) cp--;
                        cp[1]=0;
                        fwrite (comStr,1, strlen(comStr),outfile);

  D(fprintf(dbg,"writing string <%s>\n",comStr));

                  } else if (strchr(hexStr,c)) {
                        d=0;
                        l=1;
                        do {
                                d=(d<<4)+(strchr(hexStr,c)-hexStr);
                                l++;
                        } while (( feof(infile) == 0 ) && (l<=8) && (strchr(hexStr,(c=fgetc(infile)))) );
                        l=(l)>>1;
                putBigEndian(d, l);

  D(fprintf(dbg,"writing hex %lx, %lx bytes\n",d,l));


                  } else if ((c=='}')){
             break;

                  } else {
                    return -1;
                  }

        }
            c=fgetc(infile);

        }       

        //      fread fseek ftell
        if (!top) {
          out_end=ftell (outfile);
          fseek (outfile,out_start,SEEK_SET);
          putBigEndian((out_end-out_start), 4);
          fseek (outfile,out_end,SEEK_SET);
    }
        return 0;
}


int qtime (const char * inFileName,
           const char * outFileName,
           int i_width, // width in pixels
           int i_height,
           int i_nframes,
           int i_sample_dur,
           int i_samplesPerChunk,
           int i_framesize,
           int i_timescale,
           int * i_sizes
         ) {
        D(dbg=fopen ("/var/qtime_debug","w"));

  D(fprintf(dbg,"inFileName=%s\n",inFileName));
  D(fprintf(dbg,"ioutFileName=%s\n",outFileName));
  D(fprintf(dbg,"i_width=0x%x\n",i_width));
  D(fprintf(dbg,"i_height=0x%x\n",i_height));
  D(fprintf(dbg,"i_nframes=0x%x\n",i_nframes));
  D(fprintf(dbg,"i_sample_dur=0x%x\n",i_sample_dur));
  D(fprintf(dbg,"i_samplesPerChunk=0x%x\n",i_samplesPerChunk));
  D(fprintf(dbg,"i_framesize=0x%x\n",i_framesize));
  D(fprintf(dbg,"i_timescale=0x%x\n",i_timescale));
        width=           i_width;
        height=          i_height;
        nframes=         i_nframes;
        sample_dur=      i_sample_dur;
        samplesPerChunk= i_samplesPerChunk;
        framesize=       i_framesize;
        timescale=       i_timescale;
        sizes=           i_sizes;
       remove (outFileName);  // hope is not needed


        if ((infile= fopen (inFileName,"r"))==NULL) return -1;
        if ((outfile=fopen (outFileName,"wb+"))==NULL) return -1;

  D(fprintf(dbg,"PASS I\n"));

        while ( feof(infile) == 0 )   parse(1); // pass 1

        headerSize=ftell (outfile);
        fseek (outfile,0,SEEK_SET); // rewind for pass 2
        fseek (infile, 0,SEEK_SET); // 

  D(fprintf(dbg,"PASS II\n"));
        while ( feof(infile) == 0 )   parse(1); // pass 2

        fclose (infile);
        fclose (outfile);
   D(fclose (dbg));
        return 0;
}

---