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