/* hand-coded interface part of Tcl */
/* coding scheme version acc-2.1 */

/* Copyright 1989 - 1998 by the Opal Group, TU Berlin. All rights reserved 
   See OCSHOME/etc/LICENSE or 
   http://uebb.cs.tu-berlin.de/~opal/LICENSE.html for details
   $Date: 1998/06/16 16:00:25 $ ($Revision: 1.1.1.1 $)
*/
#include "tcl.h"

typedef struct sINTERP {
    Tcl_Interp * tcl;           /* the tcl control structure */
    OBJ State;                  /* the opal state */
} * INTERP;


#define pack_interpreter(x) pack_pointer((OBJ)(x))
#define unpack_interpreter(x) unpack_pointer((INTERP)(x))



