URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [insight/] [tcl/] [generic/] [tclLoadNone.c] - Rev 1774
Go to most recent revision | Compare with Previous | Blame | View Log
/* * tclLoadNone.c -- * * This procedure provides a version of the TclLoadFile for use * in systems that don't support dynamic loading; it just returns * an error. * * Copyright (c) 1995-1996 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: tclLoadNone.c,v 1.1.1.1 2002-01-16 10:25:28 markom Exp $ */ #include "tclInt.h" /* *---------------------------------------------------------------------- * * TclLoadFile -- * * This procedure is called to carry out dynamic loading of binary * code; it is intended for use only on systems that don't support * dynamic loading (it returns an error). * * Results: * The result is TCL_ERROR, and an error message is left in * interp->result. * * Side effects: * None. * *---------------------------------------------------------------------- */ int TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) Tcl_Interp *interp; /* Used for error reporting. */ char *fileName; /* Name of the file containing the desired * code. */ char *sym1, *sym2; /* Names of two procedures to look up in * the file's symbol table. */ Tcl_PackageInitProc **proc1Ptr, **proc2Ptr; /* Where to return the addresses corresponding * to sym1 and sym2. */ { Tcl_SetResult(interp, "dynamic loading is not currently available on this system", TCL_STATIC); return TCL_ERROR; } /* *---------------------------------------------------------------------- * * TclGuessPackageName -- * * If the "load" command is invoked without providing a package * name, this procedure is invoked to try to figure it out. * * Results: * Always returns 0 to indicate that we couldn't figure out a * package name; generic code will then try to guess the package * from the file name. A return value of 1 would have meant that * we figured out the package name and put it in bufPtr. * * Side effects: * None. * *---------------------------------------------------------------------- */ int TclGuessPackageName(fileName, bufPtr) char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ { return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log