URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [insight/] [tcl/] [unix/] [dltest/] [pkge.c] - Rev 578
Go to most recent revision | Compare with Previous | Blame | View Log
/* * pkge.c -- * * This file contains a simple Tcl package "pkge" 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. * * SCCS: @(#) pkge.c 1.5 96/03/07 09:34:27 */ #include "tcl.h" /* * Prototypes for procedures defined later in this file: */ static int Pkgd_SubCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); static int Pkgd_UnsafeCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); /* *---------------------------------------------------------------------- * * Pkge_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 Pkge_Init(interp) Tcl_Interp *interp; /* Interpreter in which the package is * to be made available. */ { return Tcl_Eval(interp, "if 44 {open non_existent}"); }
Go to most recent revision | Compare with Previous | Blame | View Log