#define B2CONV_C	1
#include "bmepsi.h"
$(trace-include)



static
void
convert_to_pdf DK_P1(BJ *,bj)
{
  int can_use_dct = 0;
  $? "+ convert_to_pdf"
  if(bj->it == DKBIF_TYPE_UNKNOWN) {
    if(bj->infname) {
      bj->it = dkbif_get_type(bj->infname);
    }
  }
  if(bj->it == DKBIF_TYPE_JPG) {	$? ". image is JPEG"
      if(((bj->bo)->enc) & BMEPS_ENCODING_DCT) {	$? ". DCT allowed"
#if DK_HAVE_JPEGLIB_H
	/* can_use_dct = 1; */
	if(((bj->bif)->d).jpg.jpgana.is_jfif < 2) {
	  can_use_dct = 1;
	  if((((bj->bif)->d).jpg.jpgana.used_sofs) & (~((bj->bo)->jfif_s))) {
	    can_use_dct = 0;	/* illegal SOFs were used */
	  }
	  if(((bj->bif)->d).jpg.jpgana.n_sofs != 1UL) {
	    can_use_dct = 0;	/* file structure too complicated */
	  }
	  if(((bj->bif)->d).jpg.jpgana.n_images != 1UL) {
	    can_use_dct = 0;	/* file structure too complicated */
	  }
	}
	if(can_use_dct) {
	  if(!((bj->bo)->opt & BMEPS_OPT_COLOR_OUTPUT)) {
	    switch(dkbif_get_channels(bj->bif)) {
	      case 3: case 4: {
	        $? ". colored data but grayscaled output"
	        can_use_dct = 0;
	      } break;
	    }
	  }
	}
#endif
      }
  }
  if(((bj->bo)->opt) & BMEPS_OPT_DRAFT) {	$? ". draft mode"
    bmeps_pdf(bj, 2);
  } else {					$? ". real output"
    if(dkbif_read_data(bj->bif, bj->inf)) {
      if(can_use_dct) {				$? ". can use dct"
        bmeps_pdf(bj, 1);
      } else {					$? ". dct not allowed"
        bmeps_pdf(bj, 0);
      }
    } else {
      bmeps_tool_msg_3(bj, DK_LOG_LEVEL_ERROR, 60, 61, bj->infname);
      bj->exval = 1;
    }
  }
  $? "- convert_to_pdf"
}



static
void
convert_to_eps DK_P1(BJ *,bj)
{
  int can_use_dct = 0;
  $? "+ convert_to_eps %d", bj->it
  if(bj->it == DKBIF_TYPE_UNKNOWN) {
    if(bj->infname) {	$? ". infname = \"%s\"", bj->infname
      bj->it = dkbif_get_type(bj->infname);
    }
  }
  $? ". it = %d", bj->it
  if(bj->it == DKBIF_TYPE_JPG) {	$? ". image is JPEG"
    if((bj->bo)->l >= BMEPS_PS_LEVEL_2) {	$? ". PS level 2 allowed"
      if(((bj->bo)->enc) & BMEPS_ENCODING_DCT) {	$? ". DCT allowed"
#if DK_HAVE_JPEGLIB_H
	/* can_use_dct = 1; */
	if(((bj->bif)->d).jpg.jpgana.is_jfif < 2) {
	  can_use_dct = 1;
	  if((((bj->bif)->d).jpg.jpgana.used_sofs) & (~((bj->bo)->jfif_s))) {
	    can_use_dct = 0;	/* illegal SOFs were used */
	  }
	  if(((bj->bif)->d).jpg.jpgana.n_sofs != 1UL) {
	    can_use_dct = 0;	/* file structure too complicated */
	  }
	  if(((bj->bif)->d).jpg.jpgana.n_images != 1UL) {
	    can_use_dct = 0;	/* file structure too complicated */
	  }
	}
	if(can_use_dct) {
	  if(!((bj->bo)->opt & BMEPS_OPT_COLOR_OUTPUT)) {
	    switch(dkbif_get_channels(bj->bif)) {
	      case 3: case 4: {
	        $? ". colored data but grayscaled output"
	        can_use_dct = 0;
	      } break;
	    }
	  }
	}
#endif
      }
    }
  }
  if(((bj->bo)->opt) & BMEPS_OPT_DRAFT) {	$? ". draft mode"
    bmeps_eps_draft(bj);
  } else {					$? ". real output"
    if(dkbif_read_data(bj->bif, bj->inf)) {
      if(can_use_dct) {				$? ". can use dct"
        bmeps_eps_dct(bj);
      } else {					$? ". dct not allowed"
        bmeps_eps_conventional(bj);
      }
    } else {
      bmeps_tool_msg_3(bj, DK_LOG_LEVEL_ERROR, 60, 61, bj->infname);
      bj->exval = 1;
    }
  }
  $? "- convert_to_eps"
}



void
bmeps_convert DK_P1(BJ *,bj)
{
  $? "+ bmeps_convert"
  $? ". bo      = %s", TR_PTR(bj->bo)
  $? ". outf    = %s", TR_PTR(bj->outf)
  $? ". inf     = %s", TR_PTR(bj->inf)
  $? ". infname = %s", TR_STR(bj->infname)
  $? ". a       = %s", TR_PTR(bj->a)
  $? ". frame_s = %ld", bj->frame_s
  $? ". frame_e = %ld", bj->frame_e
  $? ". tmp1    = \"%s\"", TR_STR(bj->tmp1)
  $? ". tmp2    = \"%s\"", TR_STR(bj->tmp2)
  $? ". tmp3    = \"%s\"", TR_STR(bj->tmp3)
  $? ". tmp4    = \"%s\"", TR_STR(bj->tmp4)
  $? ". tmp5    = \"%s\"", TR_STR(bj->tmp5)
  $? ". tmp6    = \"%s\"", TR_STR(bj->tmp6)
  $? ". tmp7    = \"%s\"", TR_STR(bj->tmp7)
  $? ". msg     = %s", TR_PTR(bj->msg)
  $? ". it      = %d", bj->it
  if(bj) {
    bj->bif = dkbif_open();
    if(bj->bif) {
      if((bj->it == BMEPS_OUTPUT_TYPE_BB)
         || ((bj->bo)->opt & BMEPS_OPT_DRAFT))
      {
        dkbif_set_width_height_sufficient(bj->bif, 1);
      }
      if(dkbif_read_header(bj->bif, bj->inf, bj->infname, bj->it, bj->tmp7)) {
        if(!(bj->frame_c)) {
	  bj->frame_s = 0UL;
	  if(dkbif_number_of_frames(bj->bif) > 0L) {
	    $? ". number of frames ok"
	    bj->frame_e = (long)dkbif_number_of_frames(bj->bif) - 1L;
	  } else {
	    bj->frame_e = 0L;
	    $? "! error, wrong number of frames"
	  }
          $? ". frame_s = %ld", bj->frame_s
          $? ". frame_e = %ld", bj->frame_e
	}
	if(bj->frame_s < 0L) {
	  bj->frame_e = (long)dkbif_number_of_frames(bj->bif) - 1L;
	  bj->frame_s = 0L;
	} else {
	  if(bj->frame_e >= (long)dkbif_number_of_frames(bj->bif)) {
	    bj->frame_e = (long)dkbif_number_of_frames(bj->bif) - 1L;
	  }
	  if(bj->frame_e < 0L) { bj->frame_e = 0L; }
	  if(bj->frame_s > bj->frame_e) bj->frame_s = bj->frame_e;
	}
        bj->os = dkstream_for_file(bj->outf);
	if(bj->os) {
          switch((bj->bo)->ot) {
            case BMEPS_OUTPUT_TYPE_PDF: {
              convert_to_pdf(bj);
            } break;
            case BMEPS_OUTPUT_TYPE_BB: {
              bmeps_eps_bb(bj);
            } break;
            default: {
              convert_to_eps(bj);
            } break;
          }
	  dkstream_close(bj->os); bj->os = NULL;
	} else {	$? "! failed to create output stream"
	  bmeps_tool_msg_1(bj, DK_LOG_LEVEL_ERROR, 59);
	  bj->exval = 1;
	}
      } else {		$? "! failed to read input file"
	bmeps_tool_msg_3(bj, DK_LOG_LEVEL_ERROR, 57, 58, bj->infname);
	bj->exval = 1;
      }
      dkbif_close(bj->bif); bj->bif = NULL;
    } else {
      bmeps_tool_error_memory(bj); bj->exval = 1;
    }
  }
  $? "- bmeps_convert exval=%d", bj->exval
}



#ifndef LINT
static char sccs_id[] = {
"@(#)b2conv.ctr 1.6 06/26/08\tbmeps2"
};
#endif