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