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