---

Sadie_FileIO.c

Go to the documentation of this file.

/*
##########################################
# Sadie_FileIO.c -
#   Set of routines for linking SADIE file I/O routines to tcl/tk.
#
# RCS: $Id: Sadie_FileIO.c,v 2.6 2000/08/15 00:14:49 giri Exp $ 
# 
# Digital Image Analysis Lab
# Dept. of Electrical and Computer Engineering
# University of Arizona
##########################################
*/

#include <tcl.h>
#include <tk.h>
#include <stdio.h>
#include <string.h>
#include "sadie.h"
#include <math.h>

/* RCS Indentification information */
static char rcsid[] =
  "$Id: Sadie_FileIO.c,v 2.6 2000/08/15 00:14:49 giri Exp $";

int
Sadie_FileIO_OpenCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                      char *argv[])
{
  int addrstr;
  long filesize;
  IMAGE *theimg = NULL;
  char msg[SLEN];
  Tcl_Obj *tclvar = NULL;

  if (argc <= 3)
    {
      sprintf (msg, "Usage: Sadie_FileIO_Open filename filesize title");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  /* Read the size of the file */
  tclvar = Tcl_NewStringObj (argv[2], -1);
  if (Tcl_GetLongFromObj (interp, tclvar, &filesize) == TCL_ERROR)
    {
      return TCL_ERROR;
    }
  Tcl_DecrRefCount (tclvar);

  DISK2IMG (argv[1], filesize, &theimg);

  if (theimg)
    sprintf (theimg->text, "%s", argv[3]);
  addrstr = (int) theimg;

  sprintf (msg, "%x", addrstr);
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_FileIO_OpenTIFFCmd (ClientData client_data, Tcl_Interp * interp,
                          int argc, char *argv[])
{
  int addrstr;
  IMAGE *theimg = NULL;
  char msg[SLEN];

  if (argc <= 2)
    {
      sprintf (msg, "Usage: Sadie_FileIO_OpenTIFF filename title");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  TIFF2IMG (argv[1], &theimg);

  if (theimg)
    sprintf (theimg->text, "%s", argv[2]);
  addrstr = (int) theimg;

  sprintf (msg, "%x", addrstr);
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_FileIO_OpenPNMCmd (ClientData client_data, Tcl_Interp * interp,
                         int argc, char *argv[])
{
  int addrstr;
  IMAGE *theimg = NULL;
  char msg[SLEN];

  if (argc <= 2)
    {
      sprintf (msg, "Usage: Sadie_FileIO_OpenPNM filename title");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  PNM2IMG (argv[1], &theimg);

  if (theimg)
    sprintf (theimg->text, "%s", argv[2]);
  addrstr = (int) theimg;

  sprintf (msg, "%x", addrstr);
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_FileIO_ImportCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                        char *argv[])
{
  int addrstr;
  long filesize;
  IMAGE *theimg = NULL;
  char *name;
  int hdrsize;
  int nbnd;
  int nlin;
  int npix;
  int nbit;
  int option;
  int subsamp;
  int fromband, toband, incrband, fromline, toline, incrline, frompixel,
    topixel, incrpixel;
  char msg[SLEN];
  Tcl_Obj *tclvar = NULL;

  if (argc <= 19)
    {
      sprintf (msg, "Sadie_FileIO_Import expects a minimum of 18 arguments");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  name = argv[1];

  if (Tcl_GetInt (interp, argv[2], &hdrsize) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[3], &nbnd) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[4], &nlin) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[5], &npix) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[6], &nbit) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[7], &option) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[8], &subsamp) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (subsamp)
    {
      if (Tcl_GetInt (interp, argv[9], &fromband) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[10], &toband) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[11], &incrband) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[12], &fromline) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[13], &toline) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[14], &incrline) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[15], &frompixel) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[16], &topixel) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (Tcl_GetInt (interp, argv[17], &incrpixel) != TCL_OK)
        {
          return TCL_ERROR;
        }

      if (fromband > 0)
        fromband--;
      if (toband > 0)
        toband--;
      if (fromline > 0)
        fromline--;
      if (toline > 0)
        toline--;
      if (frompixel > 0)
        frompixel--;
      if (topixel > 0)
        topixel--;
    }
  else
    {
      fromband = 0;
      fromline = 0;
      frompixel = 0;

      toband = nbnd - 1;
      toline = nlin - 1;
      topixel = npix - 1;

      incrband = 1;
      incrline = 1;
      incrpixel = 1;
    }

  /* Read the size of the file */
  tclvar = Tcl_NewStringObj (argv[18], -1);
  if (Tcl_GetLongFromObj (interp, tclvar, &filesize) == TCL_ERROR)
    {
      return TCL_ERROR;
    }
  Tcl_DecrRefCount (tclvar);

  IMPORT (name, option, hdrsize, nbnd, nlin, npix, nbit, fromband, fromline,
          frompixel, incrband, incrline, incrpixel, toband, toline, topixel,
          filesize, &theimg);

  if (theimg)
    sprintf (theimg->text, "%s", name);
  addrstr = (int) theimg;

  sprintf (msg, "%x", addrstr);
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_FileIO_SaveCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                      char *argv[])
{
  int imgaddr;
  IMAGE *theimg = NULL;
  char *name;
  int bitsperpix;
  char msg[SLEN];

  if (argc <= 3)
    {
      sprintf (msg,
               "Usage: Sadie_FileIO_Save image_address filename bitsperpixel");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  sscanf (argv[3], "%d", &bitsperpix);

  name = argv[2];

  IMG2DISK (theimg, bitsperpix, name);

  return TCL_OK;
}

int
Sadie_FileIO_SaveEPSCmd (ClientData client_data, Tcl_Interp * interp,
                         int argc, char *argv[])
{
  int imgaddr;
  IMAGE *theimg = NULL;
  char *name;
  int bitsperpix;
  char msg[SLEN];

  if (argc <= 3)
    {
      sprintf (msg,
               "Usage: Sadie_FileIO_SaveEPS image_address filename bitsperpixel");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  sscanf (argv[3], "%d", &bitsperpix);

  name = argv[2];

  IMG2EPSF (theimg, name, bitsperpix);

  return TCL_OK;
}

int
Sadie_FileIO_SaveTIFFCmd (ClientData client_data, Tcl_Interp * interp,
                          int argc, char *argv[])
{
  int imgaddr;
  IMAGE *theimg = NULL;
  char *name;
  int bitsperpix;
  char msg[SLEN];

  if (argc <= 3)
    {
      sprintf (msg,
               "Usage: Sadie_FileIO_SaveTIFF image_address filename bitsperpixel");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  sscanf (argv[3], "%d", &bitsperpix);

  name = argv[2];

  IMG2TIFF (theimg, name, bitsperpix);

  return TCL_OK;
}

int
Sadie_FileIO_SavePNMCmd (ClientData client_data, Tcl_Interp * interp,
                         int argc, char *argv[])
{
  int imgaddr;
  IMAGE *theimg = NULL;
  char *name;
  int bitsperpix;
  char msg[SLEN];

  if (argc <= 2)
    {
      sprintf (msg, "Usage: Sadie_FileIO_SavePNM image_address filename");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  name = argv[2];

  IMG2PNM (theimg, name);

  return TCL_OK;
}

int
Sadie_FileIO_SaveTEXTCmd (ClientData client_data, Tcl_Interp * interp,
                          int argc, char *argv[])
{
  int imgaddr;
  IMAGE *theimg = NULL;
  char *name;
  char msg[SLEN];

  if (argc <= 2)
    {
      sprintf (msg, "Usage: Sadie_FileIO_SaveTEXT image_address filename");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  name = argv[2];

  IMG2TEXT (theimg, name);

  return TCL_OK;
}

/*************************************************************************
 *
 * This procedure initializes the the Sadie_FileIO procedures when
 * this package is loaded.
 *
 *************************************************************************/
int
Sadie_FileIO_Init (Tcl_Interp * interp)
{
  Tcl_CreateCommand (interp, "Sadie_FileIO_Open", Sadie_FileIO_OpenCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_OpenTIFF",
                     Sadie_FileIO_OpenTIFFCmd, (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_OpenPNM", Sadie_FileIO_OpenPNMCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_Import", Sadie_FileIO_ImportCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_Save", Sadie_FileIO_SaveCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_SaveEPS", Sadie_FileIO_SaveEPSCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_SaveTIFF",
                     Sadie_FileIO_SaveTIFFCmd, (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_SavePNM", Sadie_FileIO_SavePNMCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_FileIO_SaveTEXT",
                     Sadie_FileIO_SaveTEXTCmd, (ClientData) NULL, NULL);

  return TCL_OK;
}

---