OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [generic/] [tclLoadNone.c] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
/*
2
 * tclLoadNone.c --
3
 *
4
 *      This procedure provides a version of the TclLoadFile for use
5
 *      in systems that don't support dynamic loading; it just returns
6
 *      an error.
7
 *
8
 * Copyright (c) 1995-1996 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: tclLoadNone.c,v 1.1.1.1 2002-01-16 10:25:28 markom Exp $
14
 */
15
 
16
#include "tclInt.h"
17
 
18
/*
19
 *----------------------------------------------------------------------
20
 *
21
 * TclLoadFile --
22
 *
23
 *      This procedure is called to carry out dynamic loading of binary
24
 *      code;  it is intended for use only on systems that don't support
25
 *      dynamic loading (it returns an error).
26
 *
27
 * Results:
28
 *      The result is TCL_ERROR, and an error message is left in
29
 *      interp->result.
30
 *
31
 * Side effects:
32
 *      None.
33
 *
34
 *----------------------------------------------------------------------
35
 */
36
 
37
int
38
TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
39
    Tcl_Interp *interp;         /* Used for error reporting. */
40
    char *fileName;             /* Name of the file containing the desired
41
                                 * code. */
42
    char *sym1, *sym2;          /* Names of two procedures to look up in
43
                                 * the file's symbol table. */
44
    Tcl_PackageInitProc **proc1Ptr, **proc2Ptr;
45
                                /* Where to return the addresses corresponding
46
                                 * to sym1 and sym2. */
47
{
48
    Tcl_SetResult(interp,
49
            "dynamic loading is not currently available on this system",
50
            TCL_STATIC);
51
    return TCL_ERROR;
52
}
53
 
54
/*
55
 *----------------------------------------------------------------------
56
 *
57
 * TclGuessPackageName --
58
 *
59
 *      If the "load" command is invoked without providing a package
60
 *      name, this procedure is invoked to try to figure it out.
61
 *
62
 * Results:
63
 *      Always returns 0 to indicate that we couldn't figure out a
64
 *      package name;  generic code will then try to guess the package
65
 *      from the file name.  A return value of 1 would have meant that
66
 *      we figured out the package name and put it in bufPtr.
67
 *
68
 * Side effects:
69
 *      None.
70
 *
71
 *----------------------------------------------------------------------
72
 */
73
 
74
int
75
TclGuessPackageName(fileName, bufPtr)
76
    char *fileName;             /* Name of file containing package (already
77
                                 * translated to local form if needed). */
78
    Tcl_DString *bufPtr;        /* Initialized empty dstring.  Append
79
                                 * package name to this if possible. */
80
{
81
    return 0;
82
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.