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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tk/] [mac/] [tkMacTest.c] - Blame information for rev 1765

Details | Compare with Previous | View Log


/*
 * tkMacTest.c --
 *
 *      Contains commands for platform specific tests for
 *      the Macintosh platform.
 *
 * Copyright (c) 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: tkMacTest.c,v 1.1.1.1 2002-01-16 10:25:57 markom Exp $
 */
 
#include <Types.h>
 
/*
 * Forward declarations of procedures defined later in this file:
 */
 
int                     TkplatformtestInit _ANSI_ARGS_((Tcl_Interp *interp));
static int              DebuggerCmd _ANSI_ARGS_((ClientData dummy,
                            Tcl_Interp *interp, int argc, char **argv));
 
/*
 *----------------------------------------------------------------------
 *
 * TkplatformtestInit --
 *
 *      Defines commands that test platform specific functionality for
 *      Unix platforms.
 *
 * Results:
 *      A standard Tcl result.
 *
 * Side effects:
 *      Defines new commands.
 *
 *----------------------------------------------------------------------
 */
 
int
TkplatformtestInit(
    Tcl_Interp *interp)         /* Interpreter to add commands to. */
{
    /*
     * Add commands for platform specific tests on MacOS here.
     */
 
    Tcl_CreateCommand(interp, "debugger", DebuggerCmd,
            (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
 
    return TCL_OK;
}
 
/*
 *----------------------------------------------------------------------
 *
 * DebuggerCmd --
 *
 *      This procedure simply calls the low level debugger.
 *
 * Results:
 *      A standard Tcl result.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */
 
static int
DebuggerCmd(
    ClientData clientData,              /* Not used. */
    Tcl_Interp *interp,                 /* Not used. */
    int argc,                           /* Not used. */
    char **argv)                        /* Not used. */
{
    Debugger();
    return TCL_OK;
}

Line No.	Rev	Author	Line
1	578	markom	`/*`
2			`* tkMacTest.c --`
3			`*`
4			`* Contains commands for platform specific tests for`
5			`* the Macintosh platform.`
6			`*`
7			`* Copyright (c) 1996 Sun Microsystems, Inc.`
8			`*`
9			`* See the file "license.terms" for information on usage and redistribution`
10			`* of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
11			`*`
12			`* RCS: @(#) $Id: tkMacTest.c,v 1.1.1.1 2002-01-16 10:25:57 markom Exp $`
13			`*/`
14
15			`#include <Types.h>`
16
17			`/*`
18			`* Forward declarations of procedures defined later in this file:`
19			`*/`
20
21			`int TkplatformtestInit _ANSI_ARGS_((Tcl_Interp *interp));`
22			`static int DebuggerCmd _ANSI_ARGS_((ClientData dummy,`
23			`Tcl_Interp interp, int argc, char *argv));`
24
25			`/*`
26			`*----------------------------------------------------------------------`
27			`*`
28			`* TkplatformtestInit --`
29			`*`
30			`* Defines commands that test platform specific functionality for`
31			`* Unix platforms.`
32			`*`
33			`* Results:`
34			`* A standard Tcl result.`
35			`*`
36			`* Side effects:`
37			`* Defines new commands.`
38			`*`
39			`*----------------------------------------------------------------------`
40			`*/`
41
42			`int`
43			`TkplatformtestInit(`
44			`Tcl_Interp interp) / Interpreter to add commands to. */`
45			`{`
46			`/*`
47			`* Add commands for platform specific tests on MacOS here.`
48			`*/`
49
50			`Tcl_CreateCommand(interp, "debugger", DebuggerCmd,`
51			`(ClientData) 0, (Tcl_CmdDeleteProc *) NULL);`
52
53			`return TCL_OK;`
54			`}`
55
56			`/*`
57			`*----------------------------------------------------------------------`
58			`*`
59			`* DebuggerCmd --`
60			`*`
61			`* This procedure simply calls the low level debugger.`
62			`*`
63			`* Results:`
64			`* A standard Tcl result.`
65			`*`
66			`* Side effects:`
67			`* None.`
68			`*`
69			`*----------------------------------------------------------------------`
70			`*/`
71
72			`static int`
73			`DebuggerCmd(`
74			`ClientData clientData, /* Not used. */`
75			`Tcl_Interp interp, / Not used. */`
76			`int argc, /* Not used. */`
77			`char *argv) / Not used. */`
78			`{`
79			`Debugger();`
80			`return TCL_OK;`
81			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tk/] [mac/] [tkMacTest.c] - Blame information for rev 1765