Subversion Repositories or1k_old

/* tclshellexe.c - Interface to Windows ShellExecute function.

   Copyright (C) 1997 Cygnus Solutions.

   Written by Tom Tromey <tromey@cygnus.com>;

   Code mostly taken from S-N.  */

#ifdef _WIN32

#include <string.h>

#include <windows.h>

#include <tcl.h>

#include <tk.h>

#include "guitcl.h"

static int

shell_execute_command (ClientData clientData, Tcl_Interp *interp,

                       int argc, char *argv[])

{

  char  *operation;

  char  *file;

  char  *param;

  char  *dir;

  int   ret;

  if (argc < 3 || argc > 5)

    {

      Tcl_AppendResult(interp, "wrong # args:  should be \"",

                       argv[0], " operation file ?parameters? ?directory?\"", NULL);

      return TCL_ERROR;

    }

  operation = argv[1];  /* Mandatory */

  if (!*operation)

    operation = NULL;

  file = argv[2];               /* Mandatory */

  if (argc > 3)

    {

      param = argv[3];

      if (!*param)

        param = NULL;

    }

  else

    param = NULL;

  if (argc > 4)

    {

      dir = argv[4];

      if (!*dir)

        dir = NULL;

    }

  else

    dir = NULL;

  ret = (int)ShellExecute(NULL, operation, file, param, dir, SW_SHOWNORMAL);

  if (ret <= 32)

    {

      Tcl_AppendResult(interp, strerror(ret), NULL);

      return TCL_ERROR;

    }

  return TCL_OK;

}

int

ide_create_shell_execute_command (Tcl_Interp *interp)

{

  if (Tcl_CreateCommand (interp, "ide_shell_execute", shell_execute_command,

                         NULL, NULL) == NULL)

    return TCL_ERROR;

  return TCL_OK;

}

#endif /* _WIN32 */