Subversion Repositories or1k_old

/* tclhelp.c -- TCL interface to help.

   Copyright (C) 1997 Cygnus Solutions.

   Written by Ian Lance Taylor <ian@cygnus.com>.  */

#include "config.h"

#include <stdio.h>

#include <ctype.h>

#ifdef HAVE_STDLIB_H

#include <stdlib.h>

#endif

#include <errno.h>

#ifndef errno

extern int errno;

#endif

#ifdef HAVE_STRING_H

#include <string.h>

#else

#ifdef HAVE_STRINGS_H

#include <strings.h>

#else

extern char *strerror ();

#endif

#endif

#ifdef _WIN32

/* We avoid warnings by including this before tcl.h.  */

#include <windows.h>

#include <winuser.h>

#endif

#include <tcl.h>

#include <tk.h>

#include "guitcl.h"

#include "subcommand.h"

/* This file defines one TCL command with subcommands.  This command

   may be used to bring up a help window.

   ide_help initialize ...

       Initialize the help system.

       On Windows, this takes two arguments: the name of the help

       file, and the name of the header file which may be used to map

       help topics to numbers.  This header files is created by the

       help system.

       The Unix help system has not yet been implemented.

   ide_help topic TOPIC

       Brings up a help window for the particular topic.  The topic is

       a string.

   ide_help toc

       Brings up a help window for the main table of contents.

   ide_help display_file FILENAME TOPIC_ID

       The "display_file" subcommand was added as a hack to get the Foundry Tour to

       launch.  The help system can't handle more than one help file and should

       be rewritten */

#ifdef _WIN32

/* Windows implementation.  This uses WinHelp.  */

/* We use an instance of this structure as the client data for the

   ide_help command.  */

struct help_command_data

{

  /* The name of the help file.  */

  char *filename;

  /* The name of the help header file which we use to map topic

     strings to numbers.  */

  char *header_filename;

  /* A hash table mapping help topic strings to numbers.  */

  Tcl_HashTable topic_hash;

  /* Nonzero if the hash table has been initialized.  */

  int hash_initialized;

  /* The window we are passing to WinHelp.  */

  HWND window;

};

/* This function is called as an exit handler.  */

static void

help_command_atexit (ClientData cd)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  /* Tell Windows we don't need any more help.  */

  if (hdata->window != NULL)

    WinHelp (hdata->window, hdata->filename, HELP_QUIT, 0);

}

/* This function is called if the ide_help command is deleted.  */

static void

help_command_deleted (ClientData cd)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  /* Run the exit handler now, rather than when we exit.  */

  help_command_atexit (cd);

  Tcl_DeleteExitHandler (help_command_atexit, cd);

  if (hdata->filename != NULL)

    free (hdata->filename);

  if (hdata->header_filename != NULL)

    free (hdata->header_filename);

  if (hdata->hash_initialized)

    Tcl_DeleteHashTable (&hdata->topic_hash);

  Tcl_Free ((char *) hdata);

}

/* Initialize the help system: choose a window, and set up the topic

   hash table.  We don't set up the topic hash table when the command

   is created, because there's no point wasting time on it at program

   startup time if the help system is not going to be used.  */

static int

help_initialize (Tcl_Interp *interp, struct help_command_data *hdata)

{

  if (hdata->filename == NULL || hdata->header_filename == NULL)

    {

      Tcl_SetResult (interp, "help system has not been initialized",

                     TCL_STATIC);

      return TCL_ERROR;

    }

  if (hdata->window == NULL)

    {

      HWND window, parent;

      /* We don't really care what window we use, although it should

         probably be one that will last until the application exits.  */

      window = GetActiveWindow ();

      if (window == NULL)

        window = GetFocus ();

      if (window == NULL)

        {

          Tcl_SetResult (interp, "can't find window to use for help",

                         TCL_STATIC);

          return TCL_ERROR;

        }

      while ((parent = GetParent (window)) != NULL)

        window = parent;

      hdata->window = window;

      Tcl_CreateExitHandler (help_command_atexit, (ClientData) hdata);

    }

  if (! hdata->hash_initialized)

    {

      FILE *e;

      char buf[200];

      e = fopen (hdata->header_filename, "r");

      if (e == NULL)

        {

          Tcl_AppendResult (interp, "can't open help file \"",

                            hdata->header_filename, "\": ",

                            strerror (errno), (char *) NULL);

          return TCL_ERROR;

        }

      Tcl_InitHashTable (&hdata->topic_hash, TCL_STRING_KEYS);

      hdata->hash_initialized = 1;

      /* We expect the format of the header file to be tightly

         constrained: the lines of interest will look like

             #define TOPIC_STRING TOPIC_NUMBER

         We ignore all other lines.  We assume that topic strings have

         a limited length, since they are created by humans, so for

         simplicity we use fgets with a fixed size buffer.  The error

         checking is minimal, but that's OK, because this file is part

         of the application; it is not created by the user.  */

      while (fgets (buf, sizeof buf, e) != NULL)

        {

          char *s, *topic;

          int number;

          Tcl_HashEntry *he;

          int new;

          if (strncmp (buf, "#define", 7) != 0)

            continue;

          s = buf + 7;

          while (isspace ((unsigned char) *s))

            ++s;

          topic = s;

          while (! isspace ((unsigned char) *s))

            ++s;

          *s = '\0';

          number = atoi (s + 1);

          if (number == 0)

            continue;

          he = Tcl_CreateHashEntry (&hdata->topic_hash, topic, &new);

          Tcl_SetHashValue (he, (ClientData) number);

        }

      fclose (e);

    }

  return TCL_OK;

}

/* Implement the ide_help initialize command.  We don't actually look

   at the files now; we only do that if the user requests help.  */

static int

help_initialize_command (ClientData cd, Tcl_Interp *interp, int argc,

                         char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  hdata->filename = strdup (argv[2]);

  hdata->header_filename = strdup (argv[3]);

  return TCL_OK;

}

#define INIT_MINARGS (4)

#define INIT_MAXARGS (4)

/* Implement the ide_help topic command.  */

static int

help_topic_command (ClientData cd, Tcl_Interp *interp, int argc, char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  Tcl_HashEntry *he;

  if (help_initialize (interp, hdata) != TCL_OK)

    return TCL_ERROR;

  he = Tcl_FindHashEntry (&hdata->topic_hash, argv[2]);

  if (he == NULL)

    {

      Tcl_AppendResult (interp, "unknown help topic \"", argv[2], "\"",

                        (char *) NULL);

      return TCL_ERROR;

    }

  if (! WinHelp (hdata->window, hdata->filename, HELP_CONTEXT,

                 (DWORD) Tcl_GetHashValue (he)))

    {

      char buf[200];

      FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError (), 0,

                     buf, 200, NULL);

      Tcl_AppendResult (interp, "WinHelp failed: ", buf, (char *) NULL);

      return TCL_ERROR;

    }

  return TCL_OK;

}

/* Implement the ide_help toc command.  */

static int

help_toc_command (ClientData cd, Tcl_Interp *interp, int argc, char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  if (help_initialize (interp, hdata) != TCL_OK)

    return TCL_ERROR;

  if (! WinHelp (hdata->window, hdata->filename, HELP_FINDER, 0))

    {

      char buf[200];

      FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError (), 0,

                     buf, 200, NULL);

      Tcl_AppendResult (interp, "WinHelp failed: ", buf, (char *) NULL);

      return TCL_ERROR;

    }

  return TCL_OK;

}

/* Implement the ide_help display_file command.  */

/* This is a hack to display an external help file, */

/* by 'external' I mean not part of Foundry Help. */

/* This was added specifically to display the Foundry */

/* Tour help file and should be made less hacky in the future */

/* The "display_file" subcommand was added as a hack to get the Foundry Tour to */

/* launch.  The help system can't handle more than one help file and should */

/* be rewritten */

static int

help_display_file_command (ClientData cd, Tcl_Interp *interp, int argc, char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  FILE *e;

  DWORD   topic_id = 0; /* default topic id is 0 which brings up the find dialog */

  /* We call Help initialize just to make sure the window handle is setup */

  /* We don't care about the finding the main help file and checking the */

  /* hash table but we do it anyway because this is a hack. */

  if (help_initialize (interp, hdata) != TCL_OK)

    return TCL_ERROR;

  /* We should check to see if the help file we want exists since function */

  /* 'help_initialize' checked the wrong file (it checked the main help file) */

  e = fopen (argv[2], "r");

  if (e == NULL)

  {

          Tcl_AppendResult (interp, "can't open help file \"",

                argv[2], "\": ",

                            strerror (errno), (char *) NULL);

          return TCL_ERROR;

  }

  fclose (e);

  if (argc > 3)

  {

      if ( Tcl_GetInt (interp, argv[3], &topic_id) != TCL_OK )

        return TCL_ERROR;

  }

  if (! WinHelp (hdata->window, argv[2], HELP_CONTEXT, topic_id))

  {

      char buf[200];

      FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError (), 0,

                     buf, 200, NULL);

      Tcl_AppendResult (interp, "WinHelp failed: ", buf, (char *) NULL);

      return TCL_ERROR;

  }

  return TCL_OK;

}

/* Initialize the help command structure.  */

struct help_command_data *

hdata_initialize ()

{

  struct help_command_data *hdata;

  hdata = (struct help_command_data *) Tcl_Alloc (sizeof *hdata);

  hdata->filename = NULL;

  hdata->header_filename = NULL;

  hdata->hash_initialized = 0;

  hdata->window = NULL;

  return hdata;

}

#else /* ! _WIN32 */

/* The Unix help implementation. */

/* We use an instance of this structure as the client data for the

   ide_help command.  */

struct help_command_data

{

  /* path to webhelp.csh file */

  char *filename;

  /* path to foundry.hh file */

  char *header_filename;

  /* path to help directory */

  char *help_dir;

  /* A hash table mapping help topic strings to numbers. */

  Tcl_HashTable topic_hash;

  /* Nonzero if the hash table has been initialized. */

  int hash_initialized;

  /* pointer to large block of memory used for hashing */

  char *memory_block;

  };

/* This function is called if the ide_help command is deleted.  */

static void

help_command_deleted (ClientData cd)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  if (hdata->filename != NULL)

    free (hdata->filename);

  if (hdata->header_filename != NULL)

    free (hdata->header_filename);

  if (hdata->hash_initialized)

    Tcl_DeleteHashTable (&hdata->topic_hash);

  if (hdata->memory_block != NULL)

    free (hdata->memory_block);

  Tcl_Free ((char *) hdata);

}

/* Implement the ide_help initialize command.  */

static int

help_initialize_command (ClientData cd, Tcl_Interp *interp, int argc,

             char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  hdata->filename = strdup (argv[2]);

  hdata->header_filename = strdup (argv[3]);

  hdata->help_dir = strdup (argv[4]);

  return TCL_OK;

}

static int

help_initialize (Tcl_Interp *interp, struct help_command_data *hdata)

{

  if (hdata->filename == NULL || hdata->header_filename == NULL)

    {

      Tcl_SetResult (interp, "help system has not been initialized",

             TCL_STATIC);

      return TCL_ERROR;

    }

  if (! hdata->hash_initialized)

    {

      FILE *e;

      char buf[200], *block_start;

      block_start = hdata->memory_block = malloc(6000);

      e = fopen (hdata->header_filename, "r");

      if (e == NULL)

    {

      Tcl_AppendResult (interp, "can't open help file \"",

                hdata->header_filename, "\": ",

                strerror (errno), (char *) NULL);

      return TCL_ERROR;

    }

      Tcl_InitHashTable (&hdata->topic_hash, TCL_STRING_KEYS);

      hdata->hash_initialized = 1;

      /* We expect the format of the header file to be tightly

     constrained: the lines of interest will look like

         #define TOPIC_STRING TOPIC_FILENAME

     We ignore all other lines.  We assume that topic strings have

     a limited length, since they are created by humans, so for

     simplicity we use fgets with a fixed size buffer.  The error

     checking is minimal, but that's OK, because this file is part

     of the application; it is not created by the user.  */

      while (fgets (buf, sizeof buf, e) != NULL)

    {

      char *s, *topic, *strng;

      Tcl_HashEntry *he;

      int new;

      if (strncmp (buf, "#define", 7) != 0)

        continue;

      s = buf + 7;

      while (isspace ((unsigned char) *s))

        ++s;

      topic = s;

      while (! isspace ((unsigned char) *s))

        ++s;

      *s = '\0';

      ++s;

      while (isspace ((unsigned char) *s))

        ++s;

      strng = s;

      while (! isspace ((unsigned char) *s))

        ++s;

      *s = '\0';

      strcpy (block_start, strng);

      he = Tcl_CreateHashEntry (&hdata->topic_hash, topic, &new);

      Tcl_SetHashValue (he, (ClientData) block_start);

      block_start += strlen(strng) + 2;

    }

      fclose (e);

    }

  return TCL_OK;

}

#define INIT_MINARGS 2

#define INIT_MAXARGS 5

/* Implement the ide_help topic command.  */

static int

help_topic_command (ClientData cd, Tcl_Interp *interp, int argc, char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  Tcl_HashEntry *he;

  char htmlFile[250], htmlFile2[250];

  if (help_initialize (interp, hdata) != TCL_OK)

    return TCL_ERROR;

  he = Tcl_FindHashEntry (&hdata->topic_hash, argv[2]);

  if (he == NULL)

    {

      Tcl_AppendResult (interp, "unknown help topic \"", argv[2], "\"",

            (char *) NULL);

      return TCL_ERROR;

    }

  else

    {

     strcpy (htmlFile, hdata->help_dir);

     strcat (htmlFile, "/");

     strcat (htmlFile, Tcl_GetHashValue (he));

     ShowHelp (htmlFile, hdata->filename);

     return TCL_OK;

    }

}

/* Implement the ide_help toc command.  */

static int

help_toc_command (ClientData cd, Tcl_Interp *interp, int argc, char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  char htmlFile[250];

  strcpy (htmlFile, hdata->help_dir);

  strcat (htmlFile, "/start.htm");

  if (! ShowHelp (htmlFile, hdata->filename))

    { Tcl_SetResult (interp, "Help not available", TCL_STATIC);

      return TCL_ERROR;

    }

}

/* Implement the ide_help display command.  */

static int

help_display_file_command (ClientData cd, Tcl_Interp *interp, int argc, char **argv)

{

  struct help_command_data *hdata = (struct help_command_data *) cd;

  if (! ShowHelp (argv[2], hdata->filename))

    { Tcl_SetResult (interp, "Help not available", TCL_STATIC);

      return TCL_ERROR;

    }

}

/* Initialize the help command structure.  */

struct help_command_data *

hdata_initialize ()

{

  struct help_command_data *hdata;

  hdata = (struct help_command_data *) Tcl_Alloc (sizeof *hdata);

  hdata->filename = NULL;

  hdata->help_dir = NULL;

  hdata->header_filename = NULL;

  hdata->hash_initialized = 0;

  hdata->memory_block = NULL;

  return hdata;

}

int

ShowHelp(const char* html_filename, const char* shellFile)

{

  int pidProcess = fork();

  if (pidProcess == 0)

    {

    /* new child process */

    execl("/bin/csh", "/bin/csh", shellFile, html_filename, 0);

    /* execl only returns if error occurred */

     _exit(-1);

    }

  /* fork failed, error number is why */

  else if (pidProcess == (-1))

    { return 0; }

}

#endif /* ! _WIN32 */

/* The subcommand table.  */

/* The "display_file" subcommand was added as a hack to get the Foundry Tour to */

/* launch.  The help system can't handle more than one help file and should */

/* be rewritten */

static const struct ide_subcommand_table help_commands[] =

{

  { "initialize",       help_initialize_command, INIT_MINARGS, INIT_MAXARGS },

  { "topic",            help_topic_command,      3, 3 },

  { "toc",              help_toc_command,        2, 2 },

  { "display_file",      help_display_file_command,    3, 4 },

  { NULL, NULL, 0, 0 }

};

/* This function creates the ide_help TCL command.  */

int

ide_create_help_command (Tcl_Interp *interp)

{

  struct help_command_data *hdata;

  hdata = hdata_initialize ();

  return ide_create_command_with_subcommands (interp, "ide_help",

                                              help_commands,

                                              (ClientData) hdata,

                                              help_command_deleted);

}