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