~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
Tina5/tina-tools/tinatool/wdgts/tcl/wdgtsTcl_tcl_serialise.c

Version: ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  1 /**********
  2  * 
  3  * Copyright (c) 2003, Division of Imaging Science and Biomedical Engineering,
  4  * University of Manchester, UK.  All rights reserved.
  5  * 
  6  * Redistribution and use in source and binary forms, with or without modification, 
  7  * are permitted provided that the following conditions are met:
  8  * 
  9  *   . Redistributions of source code must retain the above copyright notice, 
 10  *     this list of conditions and the following disclaimer.
 11  *    
 12  *   . Redistributions in binary form must reproduce the above copyright notice,
 13  *     this list of conditions and the following disclaimer in the documentation 
 14  *     and/or other materials provided with the distribution.
 15  * 
 16  *   . Neither the name of the University of Manchester nor the names of its
 17  *     contributors may be used to endorse or promote products derived from this 
 18  *     software without specific prior written permission.
 19  * 
 20  * 
 21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
 22  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
 23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
 24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE 
 25  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
 26  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
 27  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 28  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
 29  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
 30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
 31  * POSSIBILITY OF SUCH DAMAGE.
 32  *
 33  **********
 34  * 
 35  * Program :    TINA
 36  * File    :  $Source: /home/tina/cvs/tina-tools/tinatool/wdgts/tcl/wdgtsTcl_tcl_serialise.c,v $
 37  * Date    :  $Date: 2003/10/01 16:02:48 $
 38  * Version :  $Revision: 1.3 $
 39  * CVS Id  :  $Id: wdgtsTcl_tcl_serialise.c,v 1.3 2003/10/01 16:02:48 tony Exp $
 40  *
 41  * Author  : Legacy TINA
 42  *
 43  * Notes :
 44  *
 45  *********
 46 */
 47 
 48 #include "wdgtsTcl_tcl_serialise.h"
 49 
 50 #if HAVE_CONFIG_H
 51 #   include <config.h>
 52 #endif
 53 
 54 #include <tcl.h>
 55 #include <tina/sys/sysDef.h>
 56 #include <tina/sys/sysPro.h>
 57 #include <tina/image/imgDef.h>
 58 #include <tina/image/imgPro.h>
 59 
 60 static int ttcl_sndfromtos(ClientData clientdata, Tcl_Interp *interp, 
 61                          int argc, char **argv)
 62 {
 63         Imrect  *im;
 64         int      type, fd;
 65 
 66 
 67         if (argc != 2)
 68         {
 69                 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
 70                                                                                  " sock ", (char *) NULL);
 71                 return TCL_ERROR;
 72         }
 73 
 74         if (sscanf(argv[1], "sock%d", &fd) != 1)
 75                 return TCL_ERROR;
 76 
 77         if ((im = (Imrect *) stack_inspect(&type)) == NULL)
 78                 return TCL_ERROR;
 79 /*
 80  * removed until TS fixed in tina5
 81  * a.lacey@man.ac.uk 18.07.03
 82         define_all_ts_handlers();
 83         repeatp_checker_off();
 84         ts_swrite(im, fd);
 85 */      
 86   return TCL_OK;
 87 }
 88 
 89 
 90 static int ttcl_rcvtotos(ClientData clientdata, Tcl_Interp *interp, 
 91                          int argc, char **argv)
 92 {
 93         Imrect  *im;
 94         int      fd;
 95 
 96         if (argc != 2)
 97         {
 98                 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
 99                                                                                  " sock ", (char *) NULL);
100                 return TCL_ERROR;
101         }
102 
103         if (sscanf(argv[1], "sock%d", &fd) != 1)
104                 return TCL_ERROR;
105 /*
106  * removed until TS fixed in tina5
107  * a.lacey@man.ac.uk 18.07.03
108         define_all_ts_handlers();
109         repeatp_checker_off();
110         ts_sread(&im, fd);
111 */
112         
113         stack_push((void *)im, IMRECT, im_free);
114 
115   return TCL_OK;
116 }
117 
118 
119 int    Tcl_SerialiseInit(Tcl_Interp *interp)
120 {
121         if (!interp)
122                 return TCL_ERROR;
123 
124   Tcl_CreateCommand(interp, "ts_sndfromtos", ttcl_sndfromtos, (ClientData)NULL, 
125                         (Tcl_CmdDeleteProc *) NULL);
126 
127   Tcl_CreateCommand(interp, "ts_rcvtotos", ttcl_rcvtotos, (ClientData)NULL, 
128                         (Tcl_CmdDeleteProc *) NULL);
129 
130   return TCL_OK;
131 }
132 
133 
134 

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.