home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tkisrc04.zip / tcl / os2 / tclOS2Test.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-08-07  |  1.1 KB  |  49 lines
  1. /* 
  2.  * tclOS2Test.c --
  3.  *
  4.  *    Contains commands for platform specific tests on OS/2.
  5.  *
  6.  * Copyright (c) 1996 Sun Microsystems, Inc.
  7.  * Copyright (c) 1996-1997 Illya Vaes
  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.  */
  13.  
  14. #include "tclInt.h"
  15. #include "tclPort.h"
  16.  
  17. /*
  18.  * Forward declarations of procedures defined later in this file:
  19.  */
  20. int            TclplatformtestInit _ANSI_ARGS_((Tcl_Interp *interp));
  21.  
  22. /*
  23.  *----------------------------------------------------------------------
  24.  *
  25.  * TclplatformtestInit --
  26.  *
  27.  *    Defines commands that test platform specific functionality for
  28.  *    OS/2 platforms.
  29.  *
  30.  * Results:
  31.  *    A standard Tcl result.
  32.  *
  33.  * Side effects:
  34.  *    Defines new commands.
  35.  *
  36.  *----------------------------------------------------------------------
  37.  */
  38.  
  39. int
  40. TclplatformtestInit(interp)
  41.     Tcl_Interp *interp;        /* Interpreter to add commands to. */
  42. {
  43.     /*
  44.      * Add commands for platform specific tests for OS/2 here.
  45.      */
  46.     
  47.     return TCL_OK;
  48. }
  49.