1/*
2 * tclXwinCmds.c --
3 *
4 * Tcl commands to access Win32 functionality and stubs for Unix commands that
5 * are not implemented.
6 *-----------------------------------------------------------------------------
7 * Copyright 1991-1999 Karl Lehenbauer and Mark Diekhans.
8 *
9 * Permission to use, copy, modify, and distribute this software and its
10 * documentation for any purpose and without fee is hereby granted, provided
11 * that the above copyright notice appear in all copies.  Karl Lehenbauer and
12 * Mark Diekhans make no representations about the suitability of this
13 * software for any purpose.  It is provided "as is" without express or
14 * implied warranty.
15 *-----------------------------------------------------------------------------
16 * $Id: tclXwinCmds.c,v 1.2 2002/04/04 06:13:02 hobbs Exp $
17 *-----------------------------------------------------------------------------
18 */
19
20#include "tclExtdInt.h"
21
22static int
23TclX_ChrootObjCmd _ANSI_ARGS_((ClientData clientData,
24                              Tcl_Interp *interp,
25			      int         objc,
26			      Tcl_Obj     *CONST objv[]));
27
28static int
29TclX_TimesObjCmd _ANSI_ARGS_((ClientData   clientData,
30                             Tcl_Interp  *interp,
31			     int          objc,
32			     Tcl_Obj      *CONST objv[]));
33
34
35/*-----------------------------------------------------------------------------
36 * Tcl_ChrootObjCmd --
37 *   Stub to return an error if the chroot command is used on Windows.
38 *-----------------------------------------------------------------------------
39 */
40static int
41TclX_ChrootObjCmd (ClientData  clientData,
42                  Tcl_Interp *interp,
43                  int         objc,
44                  Tcl_Obj   *CONST objv[])
45{
46    return TclXNotAvailableObjError (interp, objv [0]);
47}
48
49/*-----------------------------------------------------------------------------
50 * Tcl_TimesObjCmd --
51 *   Stub to return an error if the times command is used on Windows.
52 *-----------------------------------------------------------------------------
53 */
54static int
55TclX_TimesObjCmd (ClientData  clientData,
56                 Tcl_Interp *interp,
57                 int         objc,
58                 Tcl_Obj   *CONST objv[])
59{
60    return TclXNotAvailableObjError (interp, objv [0]);
61}
62
63/*-----------------------------------------------------------------------------
64 * TclX_PlatformCmdsInit --
65 *     Initialize the platform-specific commands.
66 *-----------------------------------------------------------------------------
67 */
68void
69TclX_PlatformCmdsInit (interp)
70    Tcl_Interp *interp;
71{
72    Tcl_CreateObjCommand (interp,
73			  "chroot",
74			  TclX_ChrootObjCmd,
75                          (ClientData) NULL,
76			  (Tcl_CmdDeleteProc *) NULL);
77
78    Tcl_CreateObjCommand (interp,
79			  "times",
80			  TclX_TimesObjCmd,
81                          (ClientData) NULL,
82			  (Tcl_CmdDeleteProc*) NULL);
83
84}
85
86
87/*-----------------------------------------------------------------------------
88 * TclX_ServerInit --
89 *
90 *   Stub, does nothing.  The Unix version of the function initilizes some
91 * compatiblity functions that are not implemented on Win32.
92 *-----------------------------------------------------------------------------
93 */
94void
95TclX_ServerInit (Tcl_Interp *interp)
96{
97}
98