cctwtcltiff.cpp File Reference

#include <assert.h>
#include <inttypes.h>
#include <iostream>
#include <stdlib.h>
#include <tiffio.h>
#include <tiffio.hxx>
#include <tcl.h>
#include "cctwtcltiff.h"

Include dependency graph for cctwtcltiff.cpp:

Go to the source code of this file.

Macros
#define	UNUSED   __attribute__((unused))

Functions
static bool	tiff_read (char *filename, void **output, uint32 *output_length)
int	Cctwtcltiff_Read_Cmd (UNUSED ClientData clientData, UNUSED Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])

Macro Definition Documentation

#define UNUSED   __attribute__((unused))

Definition at line 22 of file cctwtcltiff.cpp.

Function Documentation

int Cctwtcltiff_Read_Cmd	(	UNUSED ClientData	clientData,
		UNUSED Tcl_Interp *	interp,
		int	objc,
		Tcl_Obj *const	objv[]
	)

Definition at line 52 of file cctwtcltiff.cpp.

References tiff_read().

{
  assert(objc == 4);

  char *filename   = Tcl_GetString(objv[1]);
  Tcl_Obj *pointer = objv[2];
  Tcl_Obj *length  = objv[3];

  void *output;
  uint32 bytes;
  bool rc = tiff_read(filename, &output, &bytes);
  if (!rc)
    return TCL_ERROR;

  Tcl_ObjSetVar2(interp, pointer, NULL, Tcl_NewLongObj((long)output), 0);
  Tcl_ObjSetVar2(interp, length,  NULL, Tcl_NewIntObj((int)bytes),      0);

  return TCL_OK;
}

static bool tiff_read ( char *  filename, void **  output, uint32 *  output_length  )

static

Definition at line 24 of file cctwtcltiff.cpp.

Referenced by Cctwtcltiff_Read_Cmd().

{
  TIFF *tif = TIFFOpen(filename, "r");
  if (tif == NULL)
    return false;

  int width, height;

  TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &width);
  TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &height);
  cout << "wh: " << width << " " << height << endl;

  int npixels = width * height;
  int length = npixels * sizeof (uint32);
  uint32* raster = (uint32*) malloc(length);
  assert(raster != NULL);

  int rc = TIFFReadRGBAImage(tif, width, height, raster, 0);
  assert(rc == 1);

  TIFFClose(tif);

  *output = raster;
  *output_length = length;
  return true;
}