summaryrefslogtreecommitdiffstats
path: root/unix/dltest/pkgf.c
blob: b8913e1e06ea20ca8a53550b9be9709db9ccb471 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
/*

 * pkgf.c --

 *

 *	This file contains a simple Tcl package "pkgf" that is intended for

 *	testing the Tcl dynamic loading facilities. Its Init procedure returns

 *	an error in order to test how this is handled.

 *

 * Copyright (c) 1995 Sun Microsystems, Inc.

 *

 * See the file "license.terms" for information on usage and redistribution of

 * this file, and for a DISCLAIMER OF ALL WARRANTIES.

 *

 * RCS: @(#) $Id: pkgf.c,v 1.6 2007/05/02 21:28:09 dkf Exp $

 */

#include "tcl.h"



/*

 *----------------------------------------------------------------------

 *

 * Pkgf_Init --

 *

 *	This is a package initialization procedure, which is called by Tcl

 *	when this package is to be added to an interpreter.

 *

 * Results:

 *	Returns TCL_ERROR and leaves an error message in interp->result.

 *

 * Side effects:

 *	None.

 *

 *----------------------------------------------------------------------

 */

int
Pkgf_Init(
    Tcl_Interp *interp)		/* Interpreter in which the package is to be

				 * made available. */
{
    static char script[] = "if 44 {open non_existent}";
    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
	return TCL_ERROR;
    }
    return Tcl_Eval(interp, script);
}