1/* 2 * pkgf.c -- 3 * 4 * This file contains a simple Tcl package "pkgf" that is intended 5 * for testing the Tcl dynamic loading facilities. Its Init 6 * procedure returns an error in order to test how this is handled. 7 * 8 * Copyright (c) 1995 Sun Microsystems, Inc. 9 * 10 * See the file "license.terms" for information on usage and redistribution 11 * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 12 * 13 * RCS: @(#) $Id: pkgf.c,v 1.4 1999/04/16 00:48:06 stanton Exp $ 14 */ 15#include "tcl.h" 16 17/* 18 * Prototypes for procedures defined later in this file: 19 */ 20 21static int Pkgd_SubCmd _ANSI_ARGS_((ClientData clientData, 22 Tcl_Interp *interp, int argc, char **argv)); 23static int Pkgd_UnsafeCmd _ANSI_ARGS_((ClientData clientData, 24 Tcl_Interp *interp, int argc, char **argv)); 25 26/* 27 *---------------------------------------------------------------------- 28 * 29 * Pkgf_Init -- 30 * 31 * This is a package initialization procedure, which is called 32 * by Tcl when this package is to be added to an interpreter. 33 * 34 * Results: 35 * Returns TCL_ERROR and leaves an error message in interp->result. 36 * 37 * Side effects: 38 * None. 39 * 40 *---------------------------------------------------------------------- 41 */ 42 43int 44Pkgf_Init(interp) 45 Tcl_Interp *interp; /* Interpreter in which the package is 46 * to be made available. */ 47{ 48 static char script[] = "if 44 {open non_existent}"; 49 if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { 50 return TCL_ERROR; 51 } 52 return Tcl_Eval(interp, script); 53} 54