home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tk8.0 / mac / tkMacTest.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-15  |  1.8 KB  |  82 lines  |  [TEXT/CWIE]
  1. /* 
  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.  * SCCS: @(#) tkMacTest.c 1.2 96/12/15 14:34:00
  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. }
  82.