apps/camogm/camogm.c

Go to the documentation of this file.

 
/*!***************************************************************************
*! FILE NAME  : camogm.c
*! DESCRIPTION: Program to write captured video (and audio) to camera file system
*! using Ogg container.
*! Original implementation will copy package data to a buffer to use library calls?
*! Copyright (C) 2007 Elphel, Inc.
*! -----------------------------------------------------------------------------**
*!  This program is free software: you can redistribute it and/or modify
*!  it under the terms of the GNU General Public License as published by
*!  the Free Software Foundation, either version 3 of the License, or
*!  (at your option) any later version.
*!
*!  This program is distributed in the hope that it will be useful,
*!  but WITHOUT ANY WARRANTY; without even the implied warranty of
*!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
*!  GNU General Public License for more details.
*!
*!  You should have received a copy of the GNU General Public License
*!  along with this program.  If not, see <http://www.gnu.org/licenses/>.
*! -----------------------------------------------------------------------------**
*!
*!  $Log: camogm.c,v $
*!  Revision 1.9  2008/04/13 21:05:19  elphel
*!  Fixing KML generation
*!
*!  Revision 1.8  2008/04/11 23:09:33  elphel
*!  modified to handle kml generation
*!
*!  Revision 1.7  2008/04/07 09:13:34  elphel
*!  Changes related to new Exif generation/processing
*!
*!  Revision 1.6  2008/01/14 22:59:00  elphel
*!  7.1.7.4 - added timelapse mode to camogm
*!
*!  Revision 1.5  2007/12/03 08:28:45  elphel
*!  Multiple changes, mostly cleanup
*!
*!  Revision 1.4  2007/11/29 00:38:57  elphel
*!  fixed timescale bug
*!
*!  Revision 1.3  2007/11/19 05:07:19  elphel
*!  fixed 2 typos
*!
*!  Revision 1.2  2007/11/19 03:23:21  elphel
*!  7.1.5.5 Added support for *.mov files in camogm.
*!
*!  Revision 1.1  2007/11/16 08:49:56  elphel
*!  Initial release of camogm - program to record video/image to the camera hard drive (or other storage)
*!
*/ 
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
#include <fcntl.h>
#include <sys/uio.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/stat.h>
//#include <ctype.h>
//#include <getopt.h>
#include <time.h>
#include <string.h>

#include <netinet/in.h> /*little <-> big endian ?*/
#include <sys/mman.h>           /* mmap */
#include <sys/ioctl.h>

#include <asm/elphel/c313a.h>
//#include <asm/elphel/exifa.h>
#include <asm/elphel/ext353.h>
#include <asm/byteorder.h>


#include <ogg/ogg.h> // has to be before ogmstreams.h
#include "ogmstreams.h" // move it to <>?

//#include "camogm_exif.h"
#include "camogm_ogm.h"
#include "camogm_jpeg.h"
#include "camogm_mov.h"
#include "camogm_kml.h"
#include "camogm.h"

#define TRAILER_SIZE   0x02
#define MAP_OPTIONS MAP_FILE|MAP_PRIVATE

char trailer[TRAILER_SIZE] = {0xff,0xd9};

const char ExifFileName[]="/dev/exif_exif";

const char HeadFileName[]="/dev/jpeghead";
const char SensParsFileName[]="/dev/sensorpars";
unsigned long * ccam_dma_buf;           /* mmapped array */
unsigned long * imageParamsR;
int buff_size;

#define DEFAULT_DURATION 60 
#define DEFAULT_LENGTH 100000000 

#define DEFAULT_FRAMES           16384 /* Maximal number of frames in file segment (each need 4* (1 + 1/frames_per_chunk) bytes for the frame index */
#define DEFAULT_FRAMES_PER_CHUNK    10 /*second sparse index - for Quicktime fast forward */

#define DEFAULT_LENGTH 100000000 
#define DEFAULT_EXIF 1 /* use Exif */

static char cmdbuf[1024];
static int  cmdbufp=0; // current input pointer in the command buffer (read from pipe)
static int  cmdstrt=0; // start of the next partial command

camogm_state sstate;
camogm_state * state;

int   debug_level;
FILE* debug_file;


int camogm_init(void);
int camogm_start(void);






int camogm_stop(void);
int camogm_reset(void); 
int camogm_debug(const char * fname);
int camogm_debug_level(int d);
void  camogm_set_segment_duration(int sd);
void  camogm_set_segment_length(int sl);
void  camogm_set_save_gp(int d);
void  camogm_set_prefix (const char * p);
void  camogm_set_exif(int d);
void  camogm_set_timescale(double d); 
void  camogm_set_frames_skip(int d); 
void  camogm_set_format(int d);

void  camogm_kml_set_enable(int d);
void  camogm_kml_set_horHalfFov (double dd);
void  camogm_kml_set_vertHalfFov(double dd);
void  camogm_kml_set_height_mode(int d);
void  camogm_kml_set_height(double dd);
void  camogm_kml_set_period(int d);
void  camogm_kml_set_near(double dd); // distance to PhotoOverlay


int   parse_cmd(FILE* npipe);
char * getLineFromPipe(FILE* npipe);

int  sendImageFrame (void);

void  camogm_set_max_frames(int d);
void  camogm_set_frames_per_chunk(int d);


void put_uint16(void *buf, u_int16_t val)
{
        unsigned char  *tmp;

        tmp = (unsigned char *) buf;

        tmp[0] = val & 0xff;
        tmp[1] = (val >>= 8) & 0xff;
}

void put_uint32(void *buf, u_int32_t val)
{
        unsigned char  *tmp;

        tmp = (unsigned char *) buf;

        tmp[0] = val & 0xff;
        tmp[1] = (val >>= 8) & 0xff;
        tmp[2] = (val >>= 8) & 0xff;
        tmp[3] = (val >>= 8) & 0xff;
}

void put_uint64(void *buf, u_int64_t val)
{
        unsigned char  *tmp;

        tmp = (unsigned char *) buf;

        tmp[0] = val & 0xff;
        tmp[1] = (val >>= 8) & 0xff;
        tmp[2] = (val >>= 8) & 0xff;
        tmp[3] = (val >>= 8) & 0xff;
        tmp[4] = (val >>= 8) & 0xff;
        tmp[5] = (val >>= 8) & 0xff;
        tmp[6] = (val >>= 8) & 0xff;
        tmp[7] = (val >>= 8) & 0xff;
}

int camogm_init(void) {
   const char sserial[]="elp0";
   int * ipser= (int*) sserial;
   state->running=0; // mo
   state->starting=0; // mo
   state->vf=NULL;
   camogm_set_segment_duration(DEFAULT_DURATION);
   camogm_set_segment_length(DEFAULT_LENGTH);
   camogm_set_max_frames(DEFAULT_FRAMES);
   camogm_set_frames_per_chunk(DEFAULT_FRAMES_PER_CHUNK);
   camogm_set_prefix ("\0");
   camogm_set_save_gp(0);
   camogm_reset(); 
   state->serialno= ipser[0];
   state->last= 0;
   debug_file= stderr;
   camogm_debug_level(1);
   strcpy(state->debug_name,"stderr");
   camogm_set_timescale(1.0);
   camogm_set_frames_skip(0); 
   camogm_set_format(CAMOGM_FORMAT_OGM);
   state->exifSize=0;
   state->exif= DEFAULT_EXIF;
   state->frame_lengths=NULL;
   state->frameno=0;
   state->formats=0;

   camogm_kml_set_enable(0);
   state->kml_file=NULL;
   camogm_kml_set_horHalfFov (20.0);
   camogm_kml_set_vertHalfFov(15.0);
   camogm_kml_set_height_mode(0);
   camogm_kml_set_height(10.0);
   camogm_kml_set_period(2); // 2 sec
   camogm_kml_set_near(40.0); // 40 m (distance to PhotoOverlay)
   state->kml_path[0]='\0';


/*
void  camogm_kml_set_enable(int d);
void  camogm_kml_set_horHalfFov (double dd);
void  camogm_kml_set_vertHalfFov(double dd);
void  camogm_kml_set_height_mode(int d);
void  camogm_kml_set_height(double dd);
void  camogm_kml_set_decimate(int d);

  int                   kml_enable;       //! enable KML file generation
  FILE*                 kml_file;         //! stream to write kml file
  double                kml_horHalfFov;   //! half horizontal Fov (degrees)
  double                kml_vertHalfFov;  //! half vertical Fov (degrees)
  int                   kml_height_mode;  //! 1 - actual, 0 - ground
  double                kml_height;       //! extra height to add
  int                   kml_decimate;     //! generate PhotoOverlay for each kml_decimate frame;
  int                   kml_decimate_counter; //! counter to skip kml frames
  double                kml_near;         //! Use in KML "near" parameter (<=0 - don't use it)

*/



   return 0;
}


int camogm_debug(const char * fname) {
  int none=1;
  if (fname && strlen(fname) && strcmp(fname, "none") && strcmp(fname, "null")  && strcmp(fname, "/dev/null")) none=0;
  if (debug_file){
    if (strcmp(state->debug_name, "stdout") && strcmp(state->debug_name, "stderr")) fclose (debug_file);
    debug_file=NULL;
    state->debug_name[0]='\0';
  }
  if (!none) {
    if      (strcmp(fname, "stdout") ==0) debug_file=stdout;
    else if (strcmp(fname, "stderr") ==0) debug_file=stderr;
    else                                  debug_file=fopen(fname,"w+");
  }
  if (debug_file) {
      strncpy(state->debug_name,fname,sizeof(state->debug_name)-1);
      state->debug_name[sizeof(state->debug_name)-1]='\0';
  }
  return 0;
}

int camogm_debug_level(int d) {
  debug_level=d;
  return 0;
}




int camogm_start(void) {
  int timestamp_start;
  int rslt;
  int next_metadata_start, next_jpeg_len, fp;
  D1(fprintf (debug_file,"Starting recording\n"));
  state->frameno=0;
  state->timescale=        state->set_timescale;

  int * ifp =      (int *) &(state->frame_params) ;
  int * ifp_this = (int *) &(state->this_frame_params) ;
  if (state->kml_enable) camogm_init_kml() ; // do nothing

  if (state->format != state->set_format) {
     state->format=  state->set_format;
     switch (state->format) {
      case CAMOGM_FORMAT_NONE: rslt= 0; break;
      case CAMOGM_FORMAT_OGM:  rslt= camogm_init_ogm(); break;
      case CAMOGM_FORMAT_JPEG: rslt= camogm_init_jpeg();break;
      case CAMOGM_FORMAT_MOV:  rslt= camogm_init_mov(); break;
     }
     state->formats |= 1 << (state->format);
  }
  state->max_frames=       state->set_max_frames;
  state->frames_per_chunk= state->frames_per_chunk;
  state->starting=1; 

D3(fprintf (debug_file,"1: state->cirbuf_rp=0x%x\n",state->cirbuf_rp));
  if ((state->cirbuf_rp <0) || (lseek(state->fd_circ,state->cirbuf_rp,SEEK_SET) < 0) || (lseek(state->fd_circ,CIRCLSEEK_VALID,SEEK_END) < 0 )) {
D3(fprintf (debug_file,"2: state->cirbuf_rp=0x%x\n",state->cirbuf_rp));
    state->cirbuf_rp=lseek(state->fd_circ,CIRCLSEEK_LAST,SEEK_END);
    if (((fp=lseek(state->fd_circ,CIRCLSEEK_PREV,SEEK_END)))>=0) state->cirbuf_rp=fp; 
    state->buf_overruns++;
//    state->buf_min=lseek(state->fd_circ,CIRCLSEEK_FREE,SEEK_END);
//    lseek(state->fd_circ,state->cirbuf_rp,SEEK_SET); //! restore after moving (side effect)
    state->buf_min=imageParamsR[P_FREECIRCBUF];

  } else {
//      b_free=lseek(state->fd_circ,CIRCLSEEK_FREE,SEEK_END);
//      lseek(state->fd_circ,state->cirbuf_rp,SEEK_SET); //! restore after moving (side effect)
//      if (state->buf_min > b_free) state->buf_min=b_free;
      if (state->buf_min > imageParamsR[P_FREECIRCBUF]) state->buf_min=imageParamsR[P_FREECIRCBUF];

  }
D3(fprintf (debug_file,"3: state->cirbuf_rp=0x%x\n",state->cirbuf_rp));
D3(fprintf (debug_file,"4:lseek(state->fd_circ,CIRCLSEEK_READY,SEEK_END)=%d\n",(int) lseek(state->fd_circ,CIRCLSEEK_READY,SEEK_END)));

  if (lseek(state->fd_circ,CIRCLSEEK_READY,SEEK_END) <0) return -CAMOGM_FRAME_NOT_READY; 
D3(fprintf (debug_file,"5: state->cirbuf_rp=0x%x\n",state->cirbuf_rp));
  state->metadata_start=(state->cirbuf_rp)-32;
  if (state->metadata_start<0) state->metadata_start+=state->circ_buff_size;


  memcpy (&(state->frame_params), (unsigned long * ) &ccam_dma_buf[state->metadata_start>>2],32);
  state->jpeg_len=state->frame_params.frame_length; 


  if (state->frame_params.signffff !=0xffff) {
    D0(fprintf(debug_file, "%s:%d: wrong signature - %d\r\n",__FILE__,__LINE__,(int) state->frame_params.signffff));
     state->cirbuf_rp=-1;
     D1(fprintf(debug_file, "state->cirbuf_rp=0x%x\r\n",(int) state->cirbuf_rp));
     D1(fprintf(debug_file, "%08x %08x %08x %08x %08x %08x %08x %08x\r\n",ifp[0],ifp[1],ifp[2],ifp[3],ifp[4],ifp[5],ifp[6],ifp[7]));
     return -CAMOGM_FRAME_BROKEN;
  }
  timestamp_start=(state->cirbuf_rp)+((state->jpeg_len+CCAM_MMAP_META+3) & (~0x1f)) + 32 - CCAM_MMAP_META_SEC; 
  if (timestamp_start >= state->circ_buff_size) timestamp_start-=state->circ_buff_size;
  memcpy (&(state->frame_params.timestamp_sec), (unsigned long * ) &ccam_dma_buf[timestamp_start>>2],8);

  if ((lseek(state->fd_circ,CIRCLSEEK_NEXT,SEEK_END) < 0 ) ||
      (((fp=lseek(state->fd_circ,CIRCLSEEK_READY,SEEK_END))) < 0)) {
        lseek(state->fd_circ,state->cirbuf_rp,SEEK_SET); 
        return -CAMOGM_FRAME_NOT_READY; 
  }
  next_metadata_start=fp-32;
  if (next_metadata_start<0) next_metadata_start+= state->circ_buff_size;
  memcpy (&(state->this_frame_params), (unsigned long * ) &ccam_dma_buf[next_metadata_start>>2],32);
  next_jpeg_len=state->this_frame_params.frame_length; 
  if (state->this_frame_params.signffff !=0xffff) { 
     D0(fprintf(debug_file, "%s:%d: wrong signature - %d\r\n",__FILE__,__LINE__,(int) state->this_frame_params.signffff));
     D1(fprintf(debug_file, "fp=0x%x\r\n",(int) fp));
     D1(fprintf(debug_file, "%08x %08x %08x %08x %08x %08x %08x %08x\r\n",ifp_this[0],ifp_this[1],ifp_this[2],ifp_this[3],ifp_this[4],ifp_this[5],ifp_this[6],ifp_this[7]));
//  int * ifp =      (int *) &(state->this_frame_params) ;
//  int * ifp_this = (int *) &(state->this_frame_params) ;

     state->cirbuf_rp=-1;
     return -CAMOGM_FRAME_BROKEN;
  }
  timestamp_start=fp+((next_jpeg_len+CCAM_MMAP_META+3) & (~0x1f)) + 32 - CCAM_MMAP_META_SEC; 
  if (timestamp_start >= state->circ_buff_size) timestamp_start-=state->circ_buff_size;
  memcpy (&(state->this_frame_params.timestamp_sec), (unsigned long * ) &ccam_dma_buf[timestamp_start>>2],8);
  if ((state->frame_params.width  != state->this_frame_params.width) ||
      (state->frame_params.height != state->this_frame_params.height)) {
     state->cirbuf_rp=fp;
     return -CAMOGM_FRAME_CHANGED; // no yet checking for the FPS
  }
   state->frame_period=(state->this_frame_params.timestamp_usec - state->frame_params.timestamp_usec)+
               1000000*(state->this_frame_params.timestamp_sec  - state->frame_params.timestamp_sec);

  state->frames_skip=      state->set_frames_skip;
  if (state->frames_skip > 0) {
    state->frames_skip_left=0;
    state->frame_period *= (state->frames_skip+1);
//    state->frames_skip_left= state->set_frames_skip;
  } else if (state->frames_skip < 0) {
    state->frame_period=-(state->frames_skip) ; 
    state->frames_skip_left=state->frame_params.timestamp_sec;
  }
   state->time_unit= (ogg_int64_t) (((double) state-> frame_period) * ((double) 10) / ((double) state-> timescale));
   state->width=state->frame_params.width;
   state->height=state->frame_params.height;

   lseek(state->fd_head,state->cirbuf_rp+1,SEEK_END); 

   lseek(state->fd_head,0,0);
   read (state->fd_head,state->jpegHeader,state->head_size);
   lseek(state->fd_circ,state->cirbuf_rp,SEEK_SET);
   switch (state->format) {
    case CAMOGM_FORMAT_NONE: rslt= 0;  break;
    case CAMOGM_FORMAT_OGM:  rslt= camogm_start_ogm();  break;
    case CAMOGM_FORMAT_JPEG: rslt= camogm_start_jpeg(); break;
    case CAMOGM_FORMAT_MOV:  rslt= camogm_start_mov();  break;
    default: rslt=0; // do nothing
   }
   if (rslt) return rslt;
   if (state->kml_enable) rslt=camogm_start_kml() ; // will turn on state->kml_used if it can
   if (rslt) return rslt;
   state->running=1;
   state->starting=0;
   D1(fprintf (debug_file,"Started OK\n"));
   return 0;
}


int  sendImageFrame (void) {
   int rslt;
//   struct frame_params_t this_frame_params;
//   elph_packet_chunk packetchunks[7];
   unsigned char frame_packet_type = PACKET_IS_SYNCPOINT;
//   int chunk_index=0;
//   int i;
//   unsigned long * tts= (unsigned long *) &(state->granulepos); //to word-swap timestamt to granule
   int timestamp_start;
//   int * ifp =      (int *) &(state->frame_params) ;
   int * ifp_this = (int *) &(state->this_frame_params) ;

   if (state->frameno >= (state->max_frames)) return -CAMOGM_FRAME_CHANGED;
//   D3(fprintf (debug_file,"sendImageFrame: format=%d, set_format=%d\n", state->format, state->set_format));

   if (state->format != state->set_format) return -CAMOGM_FRAME_CHANGED;
   if ((state->vf) && (state->segment_length >=0) && (ftell(state->vf) > state->segment_length)) return -CAMOGM_FRAME_CHANGED;
   if (((state->ivf)>=0) && (state->segment_length >=0) && (lseek(state->ivf, 0, SEEK_CUR) > state->segment_length)) return -CAMOGM_FRAME_CHANGED;
   if (lseek(state->fd_circ,state->cirbuf_rp,SEEK_SET) <0) return -CAMOGM_FRAME_INVALID; 

   if (lseek(state->fd_circ,CIRCLSEEK_READY,SEEK_END) <0) return -CAMOGM_FRAME_NOT_READY; 
/*
  state->frames_skip=      state->set_frames_skip;
  if (state->frames_skip > 0) {
    state->frames_skip_left=0;
    state->frame_period *= (state->frames_skip+1);
//    state->frames_skip_left= state->set_frames_skip;
  } else if (state->frames_skip < 0) {
    state->frame_period=-(state->frames_skip) ; //! actual frame period will fluctuate to the nearest frame acquired (free running)
    state->frames_skip_left=state->frame_params.timestamp_sec;
  }
*/

   if ( (state->frames_skip > 0) && (state->frames_skip_left > 0 )) { 
     state->cirbuf_rp=lseek(state->fd_circ,CIRCLSEEK_NEXT,SEEK_END);
     if (state->save_gp) lseek(state->fd_circ,CIRCLSEEK_SETP,SEEK_END);
     state->frames_skip_left--;
     return -CAMOGM_FRAME_NOT_READY; 
   }

//D3(fprintf (debug_file,"_1_"));
   state->metadata_start=state->cirbuf_rp-32;
   if (state->metadata_start<0) state->metadata_start+=state->circ_buff_size;
   memcpy (&(state->this_frame_params), (unsigned long * ) &ccam_dma_buf[state->metadata_start>>2],32);
   state->jpeg_len=state->this_frame_params.frame_length; 
   if (state->this_frame_params.signffff !=0xffff) {
     D0(fprintf(debug_file, "%s:%d: wrong signature - %d\r\n",__FILE__,__LINE__,(int) state->this_frame_params.signffff));
     D1(fprintf(debug_file, "state->cirbuf_rp=0x%x\r\n",(int) state->cirbuf_rp));
     D1(fprintf(debug_file, "%08x %08x %08x %08x %08x %08x %08x %08x\r\n",ifp_this[0],ifp_this[1],ifp_this[2],ifp_this[3],ifp_this[4],ifp_this[5],ifp_this[6],ifp_this[7]));


     return -CAMOGM_FRAME_BROKEN;
   }
//D3(fprintf (debug_file,"_2_"));
   timestamp_start=state->cirbuf_rp+((state->jpeg_len+CCAM_MMAP_META+3) & (~0x1f)) + 32 - CCAM_MMAP_META_SEC; 
   if (timestamp_start >= state->circ_buff_size) timestamp_start-=state->circ_buff_size;
//D3(fprintf (debug_file,"_3_"));
   memcpy (&(state->this_frame_params.timestamp_sec), (unsigned long * ) &ccam_dma_buf[timestamp_start>>2],8);
   if ((state->frame_params.width  != state->this_frame_params.width) ||
       (state->frame_params.height != state->this_frame_params.height)) return -CAMOGM_FRAME_CHANGED; 

   if ((state->segment_duration > 0) && 
       ((state->this_frame_params.timestamp_sec-state->frame_params.timestamp_sec) > state->segment_duration))
           return -CAMOGM_FRAME_CHANGED;

   if ((state->frames_skip < 0) && (state->frames_skip_left > state->this_frame_params.timestamp_sec) ) {
     state->cirbuf_rp=lseek(state->fd_circ,CIRCLSEEK_NEXT,SEEK_END);
     if (state->save_gp) lseek(state->fd_circ,CIRCLSEEK_SETP,SEEK_END);
     return -CAMOGM_FRAME_NOT_READY; 
   }


//D3(fprintf (debug_file,"_4_"));
   if (state->exif) {
D3(fprintf (debug_file,"_5_"));
//     updateExif(ep, state->ed, &(state->frame_params));
     state->exifSize=lseek(state->fd_exif,1,SEEK_END); // at the beginning of page 1 - position == page length
//     if (state->exifSize < 0) state->exifSize=0; // error from lseek;
     if (state->exifSize > 0) {
//state->this_frame_params.meta_index
       lseek(state->fd_exif,state->this_frame_params.meta_index,SEEK_END); 
       rslt=read (state->fd_exif, state->ed, state->exifSize);
       if (rslt<0) rslt=0;
       state->exifSize=rslt;
     } else state->exifSize=0;
   } else state->exifSize=0;

//D3(fprintf (debug_file,"_6_"));

   state->chunk_index=0;
   state->packetchunks[state->chunk_index  ].bytes=1;
   state->packetchunks[state->chunk_index++].chunk=&frame_packet_type;
   if (state->exif>0) {
//D3(fprintf (debug_file,"_7_"));
     state->packetchunks[state->chunk_index  ].bytes=2;
     state->packetchunks[state->chunk_index++].chunk=state->jpegHeader;
     state->packetchunks[state->chunk_index  ].bytes=state->exifSize;
     state->packetchunks[state->chunk_index++].chunk= state->ed;
     state->packetchunks[state->chunk_index  ].bytes=state->head_size-2;
     state->packetchunks[state->chunk_index++].chunk= &(state->jpegHeader[2]);
   } else {
//D3(fprintf (debug_file,"_8_"));
     state->packetchunks[state->chunk_index  ].bytes=state->head_size;
     state->packetchunks[state->chunk_index++].chunk= state->jpegHeader;
   }
//D3(fprintf (debug_file,"_9_"));

//     if ((jpeg_start+jpeg_len) > state->circ_buff_size) { // two segments
   if ((state->cirbuf_rp + state->jpeg_len) > state->circ_buff_size) { 

//D3(fprintf (debug_file,"_10_"));

//        sendBuffer((void *) &ccam_dma_buf[jpeg_start>>2], state->circ_buff_size-state->cirbuf_rp);
     state->packetchunks[state->chunk_index  ].bytes=state->circ_buff_size-state->cirbuf_rp;
     state->packetchunks[state->chunk_index++].chunk= (unsigned char*) &ccam_dma_buf[state->cirbuf_rp>>2];
//        sendBuffer((void *) &ccam_dma_buf[0], jpeg_len-(state->circ_buff_size-state->cirbuf_rp));
     state->packetchunks[state->chunk_index  ].bytes=state->jpeg_len - (state->circ_buff_size-state->cirbuf_rp);
     state->packetchunks[state->chunk_index++].chunk= (unsigned char*) &ccam_dma_buf[0];
   } else { // single segment
//D3(fprintf (debug_file,"_11_"));

//        sendBuffer((void *) &ccam_dma_buf[state->cirbuf_rp>>2], state->jpeg_len);
     state->packetchunks[state->chunk_index  ].bytes=state->jpeg_len;
     state->packetchunks[state->chunk_index++].chunk= (unsigned char*)  &ccam_dma_buf[state->cirbuf_rp>>2];
   }
//D3(fprintf (debug_file,"_12_"));
   state->packetchunks[state->chunk_index  ].bytes=2;
   state->packetchunks[state->chunk_index++].chunk= (unsigned char*) trailer;

   switch (state->format) {
    case CAMOGM_FORMAT_NONE: rslt=0; break;
    case CAMOGM_FORMAT_OGM:  rslt=camogm_frame_ogm(); break;
    case CAMOGM_FORMAT_JPEG: rslt=camogm_frame_jpeg(); break;
    case CAMOGM_FORMAT_MOV:  rslt=camogm_frame_mov(); break;
    default: rslt=0; // do nothing
   }
   if (rslt) return rslt;
   if (state->kml_used) rslt=camogm_frame_kml() ; // will turn on state->kml_used if it can
   if (rslt) return rslt;

//D3(fprintf (debug_file,"_14_"));
   state->frameno++;
   state->cirbuf_rp=lseek(state->fd_circ,CIRCLSEEK_NEXT,SEEK_END);
   if (state->save_gp) lseek(state->fd_circ,CIRCLSEEK_SETP,SEEK_END);
//D3(fprintf (debug_file,"_15_\n"));
//D3(fprintf (debug_file,"state->cirbuf_rp=0x%08x granulepos=0x%x 0x%x (%d.%06d)\n", state->cirbuf_rp, (int) ((state->granulepos)>>32), (int) (state->granulepos),
//                                                                (int) state->this_frame_params.timestamp_sec, (int)state->this_frame_params.timestamp_usec));
  if (state->frames_skip > 0) {
     state->frames_skip_left= state->frames_skip;
  } else if (state->frames_skip < 0) {
     state->frames_skip_left+= -(state->frames_skip);
  }
   return 0;
}



int camogm_stop(void) {
  int rslt=0;
  if (!state->running) {
    if (!state->starting) {
      D2(fprintf (debug_file,"Recording was not running, nothing to stop\n"));
    } else {
      state->starting=0;
      D1(fprintf (debug_file,"Dropping attempt to start\n"));
    }
    return 0;
  }
  D1(fprintf (debug_file,"Ending recording\n"));
   if (state->kml_used) camogm_end_kml() ;
   switch (state->format) {
    case CAMOGM_FORMAT_NONE: rslt= 0; break;
    case CAMOGM_FORMAT_OGM:  rslt= camogm_end_ogm(); break;
    case CAMOGM_FORMAT_JPEG: rslt= camogm_end_jpeg();break;
    case CAMOGM_FORMAT_MOV:  rslt= camogm_end_mov(); break;
   }
  if (state->vf) fclose (state->vf);
  state->vf=NULL;
  if (rslt) return rslt;
  state->last=1;
  state->running=0;
  state->starting=0;
  return 0;
}

void camogm_free() {
   int f;
//add kml when needed
   for (f=0;f<31;f++) {
     if (state->formats & ( 1 << (state->format))) {
       switch (f) {
        case CAMOGM_FORMAT_NONE: break;
        case CAMOGM_FORMAT_OGM:  camogm_free_ogm(); break;
        case CAMOGM_FORMAT_JPEG: camogm_free_jpeg();break;
        case CAMOGM_FORMAT_MOV:  camogm_free_mov(); break;
       }
     }
   }
   state->formats=0;
}

int camogm_reset(void) { 
   state->cirbuf_rp=-1;
   state->buf_overruns=-1; 
   return 0;
}

void  camogm_kml_set_enable(int d) {
   state->kml_enable=d;
}
void  camogm_kml_set_horHalfFov (double dd) {
   state->kml_horHalfFov=dd;
}
void  camogm_kml_set_vertHalfFov(double dd) {
   state->kml_vertHalfFov=dd;
}
void  camogm_kml_set_height_mode(int d) {
   state->kml_height_mode=d;
}
void  camogm_kml_set_height(double dd) {
   state->kml_height=dd;
}
void  camogm_kml_set_period(int d) {
   state->kml_period=d;
   state->kml_last_ts=0;
   state->kml_last_uts=0;
}
void  camogm_kml_set_near(double dd) { // distance to PhotoOverlay
   state->kml_near=dd;
}


void  camogm_set_segment_duration(int sd) {
   state->segment_duration=sd;
}
void  camogm_set_segment_length(int sl) {
   state->segment_length=   sl;
}
void  camogm_set_save_gp(int d) {
   state->save_gp=   d;
}
void  camogm_set_exif(int d) {
   state->exif=   d;
}

void  camogm_set_prefix (const char * p) {
  strncpy(state->path_prefix, p, sizeof(state->path_prefix)-1);
  state->path_prefix[sizeof(state->path_prefix)-1]='\0';
}

void  camogm_set_timescale(double d) { 
   state->set_timescale=  d;
   if ((state->running==0) && (state->starting==0)) {
     state->timescale=state->set_timescale;
   }
}

void  camogm_set_frames_skip(int d) { 
   state->set_frames_skip=  d;
   if ((state->running==0) && (state->starting==0)) {
     state->frames_skip=      state->set_frames_skip;
//     state->frames_skip_left= state->set_frames_skip;
     state->frames_skip_left= 0;
   }
}


void  camogm_set_format(int d) {
   int rslt=0;
   state->set_format=  d;
   if ((state->running==0) && (state->starting==0)) {
     state->format=  state->set_format;
     switch (state->format) {
      case CAMOGM_FORMAT_NONE: rslt= 0; break;
      case CAMOGM_FORMAT_OGM:  rslt= camogm_init_ogm(); break;
      case CAMOGM_FORMAT_JPEG: rslt= camogm_init_jpeg();break;
      case CAMOGM_FORMAT_MOV:  rslt= camogm_init_mov(); break;
     }
     if (rslt) {
       D0(fprintf (debug_file,"%s:%d: Error setting format to=%d\n",__FILE__,__LINE__, state->format));
     }
     state->formats |= 1 << (state->format);
   }
}
void  camogm_set_max_frames(int d) {
   state->set_max_frames=  d;
   if ((state->running==0) && (state->starting==0)) state->max_frames=  d;
}
void  camogm_set_frames_per_chunk(int d) {
   state->set_frames_per_chunk=  d;
   if ((state->running==0) && (state->starting==0)) state->frames_per_chunk=  d;
}
void  camogm_status(char * fn, int xml) {
  int _len=0;
  int _dur,_udur;
//TODO:make it XML file
  FILE* f;
  char *_state, *_output_format, *_using_exif, *_using_global_pointer, *_compressor_state;
  int _b_free, _b_used; // , save_p;
  int _frames_remain=0;
  int _sec_remain=0;
  int _frames_skip=0;
  int _sec_skip=0;
  char *_kml_enable, *_kml_used, *_kml_height_mode;

  _kml_enable=      state->kml_enable?"yes":"no";
  _kml_used=        state->kml_used?"yes":"no";
  _kml_height_mode= state->kml_height_mode?"GPS altitude":"map ground level";  


  _b_free=imageParamsR[P_FREECIRCBUF];
  _b_used=imageParamsR[P_CIRCBUFSIZE]-imageParamsR[P_FREECIRCBUF];

  if (!fn) f=stdout;
  else if (strcmp(fn, "stdout")==0) f=stdout;
  else if (strcmp(fn, "stderr")==0) f=stderr;
  else {
    if (!((f=fopen (fn,"w")))) {
       D0(fprintf (debug_file,"Error opening %s\n", fn));
      return;
    }
  }
  if      (state->vf)       _len=ftell(state->vf); 
  else if ((state->ivf)>=0) _len=lseek(state->ivf, 0, SEEK_CUR); 
  _dur= state->this_frame_params.timestamp_sec-state->frame_params.timestamp_sec;
  _udur=state->this_frame_params.timestamp_usec-state->frame_params.timestamp_usec;
  if (_udur<0) {
    _dur-=1;
    _udur+=1000000;
  } else if (_udur>=1000000) {
    _dur+=1;
    _udur-=1000000;
  }
  _state=         state->running? "running":(state->starting?"starting":"stopped");
  _output_format= state->format?((state->format==CAMOGM_FORMAT_OGM)?"ogm":
                                             ((state->format==CAMOGM_FORMAT_JPEG)?"jpeg":
                                             ((state->format==CAMOGM_FORMAT_MOV)?"mov":
                                              "other"))):"none";
  _using_exif=    state->exif?"yes":"no";
  _using_global_pointer=state->save_gp?"yes":"no";
  _compressor_state=(imageParamsR[P_CAMSEQSTATE]==CAMSEQ_RUN)?"running":
                     ((imageParamsR[P_CAMSEQSTATE]==CAMSEQ_SINGLE)?"acquiring":
                      ((imageParamsR[P_CAMSEQSTATE]==CAMSEQ_STOP)?"stoppping":
                       ((imageParamsR[P_CAMSEQSTATE]==CAMSEQ_JPEG)?"stopped":
                        ((imageParamsR[P_CAMSEQSTATE]==CAMSEQ_OFF)?"reset":"other"))));
    if ( state->frames_skip >0 ) {
      _frames_remain= state->frames_skip_left;
      _frames_skip=state->frames_skip;
    } else if ( state->frames_skip <0 ) {
      _sec_remain= (state->frames_skip_left - state->this_frame_params.timestamp_sec);
      _sec_skip=-(state->frames_skip);
    }


  if (xml) {
    fprintf (f,"<?xml version=\"1.0\"?>\n" \
             "<camogm_state>\n" \
             "  <state>\"%s\"</state>\n" \
             "  <compressor_state>\"%s\"</compressor_state>\n" \
             "  <file_name>\"%s\"</file_name>\n" \
             "  <frame_number>%d</frame_number>\n" \
             "  <file_duration>%d.%06d</file_duration>\n" \
             "  <file_length>%d</file_length>\n" \
             "  <frame_period>%d</frame_period>\n" \
             "  <frames_skip>%d</frames_skip>\n" \
             "  <seconds_skip>%d</seconds_skip>\n" \
             "  <frames_skip_left>%d</frames_skip_left>\n" \
             "  <seconds_skip_left>%d</seconds_skip_left>\n" \
             "  <frame_width>%d</frame_width>\n" \
             "  <frame_height>%d</frame_height>\n" \
             "  <format>\"%s\"</format>\n" \
             "  <exif>\"%s\"</exif>\n" \
             "  <prefix>\"%s\"</prefix>\n" \
             "  <max_duration>%d</max_duration>\n" \
             "  <max_length>%d</max_length>\n" \
             "  <max_frames>%d</max_frames>\n" \
             "  <timescale>%f</timescale>\n" \
             "  <frames_per_chunk>%d</frames_per_chunk>\n" \
             "  <buffer_overruns>%d</buffer_overruns>\n" \
             "  <buffer_minimal>%d</buffer_minimal>\n" \
             "  <buffer_free>%d</buffer_free>\n" \
             "  <buffer_used>%d</buffer_used>\n" \
             "  <circbuf_rp>%d</circbuf_rp>\n" \
             "  <debug_output>\"%s\"</debug_output>\n" \
             "  <debug_level>%d</debug_level>\n" \
             "  <use_global_rp>\"%s\"</use_global_rp>\n" \
             "  <kml_enable>\"%s\"</kml_enable>\n" \
             "  <kml_used>\"%s\"</kml_used>\n" \
             "  <kml_path>\"%s\"</kml_path>\n" \
             "  <kml_horHalfFov>\"%f\"</kml_horHalfFov>\n" \
             "  <kml_vertHalfFov>\"%f\"</kml_vertHalfFov>\n" \
             "  <kml_near>\"%f\"</kml_near>\n" \
             "  <kml_height_mode>\"%s\"</kml_height_mode>\n" \
             "  <kml_height>\"%f\"</kml_height>\n" \
             "  <kml_period>%d</kml_period>\n" \
             "  <kml_last_ts>%d.%06d</kml_last_ts>\n" \
             "</camogm_state>\n",
             _state,_compressor_state,state->path,state->frameno,_dur,_udur,_len,state->frame_period, \
             _frames_skip,_sec_skip,_frames_remain, _sec_remain, \
             state->width,state->height,_output_format,_using_exif, \
             state->path_prefix, state->segment_duration, state->segment_length, state->max_frames, state->timescale, \
             state->frames_per_chunk, state->buf_overruns, state->buf_min, _b_free, _b_used, state->cirbuf_rp, \
             state->debug_name, debug_level, _using_global_pointer, \
             _kml_enable,_kml_used,state->kml_path,state->kml_horHalfFov,state->kml_vertHalfFov,state->kml_near,\
             _kml_height_mode,state->kml_height,state->kml_period,state->kml_last_ts,state->kml_last_uts);
  } else {
    fprintf (f,"state              %s\n",        _state);
    fprintf (f,"compressor state   %s\n",        _compressor_state);
    fprintf (f,"file               %s\n",        state->path);
    fprintf (f,"frame              %d\n",        state->frameno);
    fprintf (f,"file duration      %d.%06d sec\n",_dur,_udur);
    fprintf (f,"file length        %d B\n",      _len);
    fprintf (f,"frame period       %d (0x%x)\n", state->frame_period,state->frame_period);
    if ( _frames_skip >0 ) fprintf (f,"frames to skip   %d (left %d)\n",_frames_skip, _frames_remain);
    if ( _sec_skip    <0 ) fprintf (f,"timelapse period  %d sec (remaining %d sec)\n", _sec_skip, _sec_remain);
    fprintf (f,"width              %d (0x%x)\n", state->width,state->width);
    fprintf (f,"height             %d (0x%x)\n", state->height,state->height);
    fprintf (f,"\n");
    fprintf (f,"output format      %s\n",        _output_format);
    fprintf (f,"using exif         %s\n",        _using_exif);
    fprintf (f,"path prefix:       %s\n",        state->path_prefix);
    fprintf (f,"max file duration: %d sec\n",    state->segment_duration);
    fprintf (f,"max file length:   %d B\n",      state->segment_length);
    fprintf (f,"max frames         %d\n",        state->max_frames);
    fprintf (f,"timescale          %f\n",        state->timescale);
    fprintf (f,"frames per chunk   %d\n",        state->frames_per_chunk);
    fprintf (f,"\n");
    fprintf (f,"buffer overruns    %d\n",        state->buf_overruns);
    fprintf (f,"buffer minimal     %d\n",        state->buf_min);
    fprintf (f,"buffer free        %d\n",        _b_free);
    fprintf (f,"buffer used        %d\n",        _b_used);
    fprintf (f,"circbuf_rp         %d (0x%x)\n", state->cirbuf_rp,state->cirbuf_rp);
    fprintf (f,"\n");
    fprintf (f,"debug output to    %s\n",        state->debug_name);
    fprintf (f,"debug level        %d\n",        debug_level);
    fprintf (f,"use global pointer %s\n",        _using_global_pointer);
    fprintf (f,"\n\n");
    fprintf (f,"kml_enable         %s\n",        _kml_enable);
    fprintf (f,"kml_used           %s\n",        _kml_used);
    fprintf (f,"kml_path           %s\n",        state->kml_path);
    fprintf (f,"kml_horHalfFov     %f degrees\n",state->kml_horHalfFov);
    fprintf (f,"kml_vertHalfFov    %f degrees\n",state->kml_vertHalfFov);
    fprintf (f,"kml_near           %f m\n",      state->kml_near);
    fprintf (f,"kml height mode    %s\n",        _kml_height_mode);
    fprintf (f,"kml_height (extra) %f m\n",      state->kml_height);
    fprintf (f,"kml_period         %d\n",        state->kml_period);
    fprintf (f,"kml_last_ts        %d.%06d\n",   state->kml_last_ts,state->kml_last_uts);
    fprintf (f,"\n\n");

  }
  if ((f!=stdout) && (f!=stderr)) fclose (f);
  if (state->buf_overruns>=0) state->buf_overruns=0; 
  state->buf_min=_b_free;
}

char * getLineFromPipe(FILE* npipe) {
      int fl;
      char * nlp;
      if (cmdstrt > 0) {
        memmove(cmdbuf, &cmdbuf[cmdstrt], sizeof(cmdbuf)- cmdstrt);
        cmdbufp-=cmdstrt;
        cmdstrt=0;
      }
      if (!cmdbufp) cmdbuf[cmdbufp]=0; 
//      nlp= strchr(cmdbuf,'\n');
      nlp= strpbrk(cmdbuf,";\n");
      if (!nlp) { 
        fl=fread(&cmdbuf[cmdbufp], 1,sizeof(cmdbuf)-cmdbufp-1,npipe);
        cmdbuf[cmdbufp+fl]=0;
//        nlp= strchr(&cmdbuf[cmdbufp],'\n'); //! there were no new lines before cmdbufp
        nlp= strpbrk(&cmdbuf[cmdbufp],";\n"); 
        cmdbufp+=fl; 
      }
      if (nlp) {
//printf ("++nlp=%d\n", (int) (nlp-cmdbuf));
        nlp[0]=0;
        cmdstrt=nlp-cmdbuf+1;
//printf ("++cmdstrt=%d\n", cmdstrt);
//printf ("cmdbuf[0]=%d, cmdbuf[1]=%d, cmdbuf[2]=%d, cmdbuf[3]=%d, \n",cmdbuf[0],cmdbuf[1],cmdbuf[2],cmdbuf[3]);
        for (fl=0; cmdbuf[fl] && strchr(" \t",cmdbuf[fl]); fl++);
//printf ("++fl=%d\n", fl);
        return &cmdbuf[fl];
      } else {
//printf ("notready: cmdbufp=%d, cmdstrt=%d\n",cmdbufp, cmdstrt);
          return NULL;
      }
}
// command[= \t]*args[ \t]*
int parse_cmd(FILE* npipe) {
  char * cmd;
  char * args;
  char * argse;
  int d;
  double dd;
//  if (!((cmd=getLineFromPipe(npipe)))) return 0; //! nothing in the pipe
  while(((cmd=getLineFromPipe(npipe))) && !cmd[0]) ;
  if (!cmd) return 0; 
//  printf ("cmd[0]=%d:%s\n",(int) cmd[0],cmd);
  args=strpbrk(cmd,"= \t");
  if (args) {
    args[0]=0;
    args++;
    while (strchr("= \t",args[0])) args++;
    if (args[0]) {
      for (argse=strchr(args,'\0')-1; strchr("= \t",argse[0]);argse--) argse[0]='\0';
    }
    if (!args[0]) args=NULL;
  }
  if      (strcmp(cmd, "start")==0) {
     camogm_start();
     return 1;
  } else if (strcmp(cmd, "reset")==0) { 
     camogm_reset();
     return 2;
  } else if (strcmp(cmd, "stop")==0) {
     camogm_stop();
     return 3;
  } else if (strcmp(cmd, "exit")==0) { 
     camogm_stop();
     camogm_free();
     exit (0);
  } else if (strcmp(cmd, "duration")==0) {
     if (!(args) || (((d= strtol(args, NULL, 10)))<=0)) d=DEFAULT_DURATION;
     camogm_set_segment_duration(d);
     return 4;
  } else if (strcmp(cmd, "length")==0) {
     if (!(args) || (((d= strtol(args, NULL, 10)))<=0)) d=DEFAULT_LENGTH;
     camogm_set_segment_length(d);
     return 5;
  } else if (strcmp(cmd, "prefix")==0) {
     if (args) camogm_set_prefix (args);
     return 6;
  } else if (strcmp(cmd, "status")==0) { 
     camogm_status(args, 0);
     return 7;
  } else if (strcmp(cmd, "xstatus")==0) { 
     camogm_status(args, 1);
     return 7;
  } else if (strcmp(cmd, "save_gp")==0) {
     if ((args) && (((d= strtol(args, NULL, 10)))>=0)) camogm_set_save_gp(d);
     return 8;
  } else if (strcmp(cmd, "exif")==0) {
     if ((args) && (((d= strtol(args, NULL, 10)))>=0)) camogm_set_exif(d);
     return 8;
  } else if (strcmp(cmd, "debug")==0) {
     camogm_debug(args);
     return 9;
  } else if (strcmp(cmd, "timescale")==0) {
     dd= strtod(args,NULL);
     camogm_set_timescale(dd?dd:1.0);
     return 10;


  } else if (strcmp(cmd, "frameskip")==0) {
     d= strtol(args, NULL, 10);
     camogm_set_frames_skip(d);
     return 11;
  } else if (strcmp(cmd, "timelapse")==0) { 
     d= strtol(args, NULL, 10);
     camogm_set_frames_skip(-d);
     return 11;
  } else if (strcmp(cmd, "format")==0) {
     if (args) {
      if      (strcmp(args,  "none")==0) camogm_set_format(0);
      else if ((strcmp(args, "ogm" )==0) || (strcmp(args, "ogg")==0)) camogm_set_format(CAMOGM_FORMAT_OGM);
      else if ((strcmp(args, "jpeg")==0) || (strcmp(args, "jpg")==0)) camogm_set_format(CAMOGM_FORMAT_JPEG);
      else if (strcmp(args,  "mov" )==0)                              camogm_set_format(CAMOGM_FORMAT_MOV);
     }
     return 12;
  } else if (strcmp(cmd, "debuglev")==0) {
     d= strtol(args, NULL, 10);
     camogm_debug_level(d?d:0);
     return 13;
  } else if (strcmp(cmd, "kml")==0) {
     if ((args) && (((d= strtol(args, NULL, 10)))>=0)) camogm_kml_set_enable(d);
     return 14;
  } else if (strcmp(cmd, "kml_hhf")==0) {
     dd= strtod(args,NULL);
     camogm_kml_set_horHalfFov(dd);
     return 15;
  } else if (strcmp(cmd, "kml_vhf")==0) {
     dd= strtod(args,NULL);
     camogm_kml_set_vertHalfFov(dd);
     return 16;
  } else if (strcmp(cmd, "kml_near")==0) {
     dd= strtod(args,NULL);
     camogm_kml_set_near(dd);
     return 17;
  } else if (strcmp(cmd, "kml_alt")==0) {
     if (args) {
      if      (strcmp(args, "gps"   )==0) camogm_kml_set_height_mode(1);
      else if (strcmp(args, "ground")==0) camogm_kml_set_height_mode(0);
     }
     return 18;
  } else if (strcmp(cmd, "kml_height")==0) {
     dd= strtod(args,NULL);
     camogm_kml_set_height(dd);
     return 19;
  } else if (strcmp(cmd, "kml_period")==0) {
     d= strtol(args, NULL, 10);
     camogm_kml_set_period(d?d:1);
     return 20;
  }

  return -1;
}

int main(int argc, char *argv[])
{
   const char circbufFileName[]="/dev/circbuf";
//     int fd_circ;
   FILE * cmd_file;
   const char usage[]=   "This program allows recording of the video/images acquired by Elphel camera to the storage media.\n" \
                         "It is designed to run in the background and accept commands through a named pipe.\n\n" \
                         "Usage:\n\n" \
                         "%s <named_pipe_name>\n\n" \
                         "i.e.:\n\n" \
                         "%s /var/state/camogm_cmd\n\n" \
                         "When the program is runninig you may send commands by writing strings to the command file\n" \
                         "(/var/state/camogm_cmd in the example above). The complete list of available commands is available\n" \
                         "on Elphel Wiki (http://wiki.elphel.com/index.php?title=Camogm), here is the example of usage\n" \
                         "from the shell prompt in the camera:\n\n" \
                         "echo \"status; exif=1; format=jpeg;status=/var/tmp/camogm.status\" > /var/state/camogm_cmd\n\n" \
                         "That will print status information on the standard output (may not be visible if the program was not\n" \
                         "started from the same session), set exif mode on (each frame will have the full Exif header including\n" \
                         "a precise time stamp), set output format to a series of individual JPEG files, and then send status\n" \
                         "information to a file /var/tmp/camogm.status in the camera file system.\n\n" \
                         "This program does not control the process of acquisition of the video/images to the camera internal\n" \
                         "buffer, it only retrieves that data from the buffer (waiting when needed), packages it to selected\n" \
                         "format and stores the result files.\n\n";
   int go=1;
   int cmd;
   int i,rslt;
   state= &sstate; //extern
   if ((argc < 2) || (argv[1][1]=='-'))  { 
     printf (usage,argv[0],argv[0]);
     return 0;
   }
   camogm_init();

   state->fd_exif = open(ExifFileName, O_RDONLY);
   if (state->fd_exif<0) { // check control OK
     D0(fprintf (debug_file,"Error opening %s\n", ExifFileName));
     return -1;
   }

   state->fd_head = open(HeadFileName, O_RDWR);
   if (state->fd_head<0) { // check control OK
     D0(fprintf (debug_file,"Error opening %s\n", HeadFileName));
     return -1;
   }
   state->head_size=lseek(state->fd_head,0,SEEK_END);
   if (state->head_size>JPEG_HEADER_SIZE) {
     D0(fprintf (debug_file,"%s:%d: Too big JPEG header (%d > %d)",__FILE__,__LINE__,state->head_size, JPEG_HEADER_SIZE ));
     return -2;
   }

   state->fd_circ = open(circbufFileName, O_RDWR);
   if (state->fd_circ<0) { // check control OK
      D0(fprintf (debug_file,"Error opening %s\n", circbufFileName));
      return -2;
   }
   state->circ_buff_size=lseek(state->fd_circ,0,SEEK_END);
   ccam_dma_buf = (unsigned long *) mmap(0, state->circ_buff_size, PROT_READ, MAP_SHARED, state->fd_circ, 0);
   if((int)ccam_dma_buf == -1) {
     D0(fprintf (debug_file,"Error in mmap of %s\n",circbufFileName));
//     close (fd_head);
     close(state->fd_circ);
     return -3;
   }


   state->fd_sens = open(SensParsFileName, O_RDWR);
   if (state->fd_sens<0) { // check control OK
      D0(fprintf (debug_file,"Error opening %s\n", SensParsFileName));
      return -2;
   }
   state->senspars_size=lseek(state->fd_sens,0,SEEK_END);
   imageParamsR = (unsigned long *) mmap(0, state->senspars_size, PROT_READ, MAP_SHARED, state->fd_sens, 0);
   if((int)imageParamsR == -1) {
     D0(fprintf (debug_file,"Error in mmap of %s\n",SensParsFileName));
     close(state->fd_sens);
     close(state->fd_circ);
     return -3;
   }



   i=unlink (argv[1]);
   if (i) {
       D1(fprintf (debug_file,"Unlink %s returned %d, errno=%d \n", argv[1], i, errno));
   }
   i=mkfifo(argv[1], 0777); //EEXIST
   if (i) {
    if (errno==EEXIST) {
       D1(fprintf (debug_file,"Named pipe %s already exists, will use it.\n", argv[1]));
    } else {
       D0(fprintf (debug_file,"Can not create a named pipe %s, errno=%d \n", argv[1], errno));
       return -4;
    }
   }

   if (!((cmd_file=fopen(argv[1],"r")))) {
     D0(fprintf (debug_file,"Can not open command file %s\n",argv[1]));
     return -5;
   }
   D1(fprintf (debug_file,"Pipe %s open for reading\n",argv[1]));

#define COMMAND_LOOP_DELAY 500000 //0.5sec
 
   while (go) {
//   D3(fprintf (debug_file,"%s:%d: format=%d, set_format=%d\n",__FILE__,__LINE__, state->format, state->set_format));

     cmd=parse_cmd(cmd_file);
     if (cmd) {
       if (cmd<0) D0(fprintf (debug_file,"Unrecognized command\n"));
     } else if (state->running) { 
//   D3(fprintf (debug_file,"%s:%d: format=%d, set_format=%d\n",__FILE__,__LINE__, state->format, state->set_format));

       switch ((rslt=-sendImageFrame ())) {
         case 0:
/*
          D3(fprintf (debug_file,"%s:line %d - sendImageFrame() returned %d\n" \
                                  "state->cirbuf_rp= 0x%x\n",__FILE__,__LINE__,rslt,state->cirbuf_rp));
*/
                            break; 
         case CAMOGM_FRAME_NOT_READY:        


//     D3(fprintf (debug_file,"%s:line %d - sendImageFrame() returned -%d\n",__FILE__,__LINE__,rslt));
/*
     D3(fprintf (debug_file,"%s:line %d - sendImageFrame() returned -%d\n" \
                                  "state->cirbuf_rp= 0x%x\n",__FILE__,__LINE__,rslt,state->cirbuf_rp));
*/

                lseek(state->fd_circ,CIRCLSEEK_WAIT,SEEK_END);
                break;
         case  CAMOGM_FRAME_CHANGED:   
         case  CAMOGM_FRAME_NEXTFILE:  
         case  CAMOGM_FRAME_INVALID:   
         case  CAMOGM_FRAME_BROKEN:    

//     D3(fprintf (debug_file,"%s:line %d - sendImageFrame() returned -%d\n",__FILE__,__LINE__,rslt));
                camogm_stop();
                camogm_start();
                break;
         case  CAMOGM_FRAME_FILE_ERR:  
         case  CAMOGM_FRAME_OTHER:     
                D0(fprintf (debug_file,"%s:line %d - error=%d\n",__FILE__,__LINE__,rslt));
                break;
         default:
          D0(fprintf (debug_file,"%s:line %d - should not get here (rslt=%d)\n",__FILE__,__LINE__,rslt));
          exit (-1);
       } //switch
     } else if (state->starting) { 
//   D3(fprintf (debug_file,"%s:%d: format=%d, set_format=%d\n",__FILE__,__LINE__, state->format, state->set_format));

       switch ((rslt=-camogm_start())) {
         case 0:                       break; 
         case CAMOGM_FRAME_NOT_READY:        


//                lseek(state->fd_circ,CIRCLSEEK_WAIT,SEEK_END);
         case  CAMOGM_FRAME_CHANGED:   
         case  CAMOGM_FRAME_NEXTFILE:
         case  CAMOGM_FRAME_INVALID:   
         case  CAMOGM_FRAME_BROKEN:    
//     D3(fprintf (debug_file,"%s:line %d - camogm_start() returned -%d,  state->cirbuf_rp= 0x%x\n", __FILE__,__LINE__,rslt,state->cirbuf_rp));
                usleep( COMMAND_LOOP_DELAY) ; 
                break;
         case  CAMOGM_FRAME_FILE_ERR:  
         case  CAMOGM_FRAME_OTHER:     
                D0(fprintf (debug_file,"%s:line %d - error=%d\n",__FILE__,__LINE__,rslt));
                break;
         default:
          D0(fprintf (debug_file,"%s:line %d - should not get here (rslt=%d)\n",__FILE__,__LINE__,rslt));
          exit (-1);
       } //switch
     } else { 
       usleep( COMMAND_LOOP_DELAY) ; 
     }
   } 
   return 0;
}

---