---

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;
}

---