#include "dk3all.h"



$!trace-include


#define	LEVELS2	1


DK3_MAIN
{
  dk3_stream_t		*os;
  dk3_of_t		*of;
  char			 bu[1024];
  size_t		 rd;
  size_t		 wr;
#if DK3_ON_WINDOWS
  int oldmode;
#endif
  int			 cc = 1;
#if DK3_ON_WINDOWS
  oldmode = _setmode(_fileno(stdin), O_BINARY);
#endif
  $!trace-init test-of.deb
  $? "+ main"
  os = dk3stream_open_file_app(stdout, DK3_STREAM_FLAG_WRITE, NULL);
  if(os) {
    of = dk3of_open_app(os, NULL);
    if(of) {
      if(dk3of_add_cell(of, DK3_OF_CELL_TYPE_A85)) {
#if LEVELS2
	if(dk3of_add_cell(of, DK3_OF_CELL_TYPE_FLATE)) {
#endif
          if(dk3of_start_chunk(of)) {
	    while(cc) {
	      cc = 0;
	      rd = fread(bu, 1, sizeof(bu), stdin);
	      if(rd > 0) {
	        cc = 1;
	        dk3of_write_bytes(of, bu, rd);
	      }
	    }
	    dk3of_end_chunk(of);
	  }
#if LEVELS2
	}
#endif
      }
      dk3of_close(of);
    }
    dk3stream_close(os);
  }
  $? "- main"
  $!trace-end
#if DK3_ON_WINDOWS
  _setmode(_fileno(stdin), oldmode);
#endif
  exit(0); return 0;
}