/* @(#)helpmidas.c	17.1.1.1 (ES0-DMD) 01/25/02 18:01:13 */
/*===========================================================================
  Copyright (C) 1995 European Southern Observatory (ESO)
 
  This program is free software; you can redistribute it and/or 
  modify it under the terms of the GNU General Public License as 
  published by the Free Software Foundation; either version 2 of 
  the License, or (at your option) any later version.
 
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public 
  License along with this program; if not, write to the Free 
  Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
  MA 02139, USA.
 
  Corresponding concerning ESO-MIDAS should be addressed as follows:
	Internet e-mail: midas@eso.org
	Postal address: European Southern Observatory
			Data Management Division 
			Karl-Schwarzschild-Strasse 2
			D 85748 Garching bei Muenchen 
			GERMANY
===========================================================================*/

/* @(#)helpmidas.c	17.1.1.1 (ES0-DMD) 01/25/02 18:01:13 */
/*===========================================================================
  Copyright (C) 1995 European Southern Observatory (ESO)
 
  This program is free software; you can redistribute it and/or 
  modify it under the terms of the GNU General Public License as 
  published by the Free Software Foundation; either version 2 of 
  the License, or (at your option) any later version.
 
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public 
  License along with this program; if not, write to the Free 
  Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
  MA 02139, USA.
 
  Corresponding concerning ESO-MIDAS should be addressed as follows:
	Internet e-mail: midas@eso.org
	Postal address: European Southern Observatory
			Data Management Division 
			Karl-Schwarzschild-Strasse 2
			D 85748 Garching bei Muenchen 
			GERMANY
===========================================================================*/

/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
.TYPE		Program
.NAME		thtest.c
.LANGUAGE	C
.AUTHOR		Francois Ochsenbein [ESO-IPG]
.CATEGORY	Help 
.COMMENTS	Test of th (hierarchical help) routines
.ENVIRONMENT	TermWindows
.VERSION  2.1	(Version '2' of TermWindows)
.VERSION  2.2	02-Jul-1987: Merging with TermDisplay.
.VERSION  2.3	02-Dec-1987: Usage of WhileInput
------------------------------------------------------------*/

#define	PM_LEVEL	2

#include <twhelp.h>
#include <trace.h>
#include <macrogen.h>
#include <pgm.h>

static TWHELP *help;


int mymath(str, len)
/*+++++++
.PURPOSE Just output $ _ ^
.RETURNS 
--------*/
	char *str;	/* IN: Math. symbol */
	int  len;	/* IN: Length */
{
  return(tx_out(str, len));
}

/*===========================================================================*/
PGM(thtest)
/*+++++++
.PURPOSE Just test the Help until the Interrupt
.RETURNS 
--------*/
{
	int	status;
	char	ch, *logfile, *hfile;
	static  char file[40];

  SaveParms();
  
  logfile = GetParmString("-log=");
  if (logfile)	OpenLog	(logfile,"Testing TH (Help) facilities"); 

  if_not (InitWindows(GetTerminalName(), (char *)0, -1)) {
	fi_puts (2, "****Bad Terminal Initialisation (see Log File)");
	return;
  }

  hfile = GetNextParm();
  if (!hfile)	hfile = "midas.ind";	/* Head file with indexes */
  help = InitHelp(hfile, NULL_WINDOW, NULL_WINDOW, NULL_WINDOW) ;
  hfile = "echelle/midas.ind";		/* Special Context	*/
  AddHelp(help, hfile);

  SetHelpTitleOption(help, 1);		/* Use title from Help File	*/
  
		/* Tell that / are used as topic separators */
        SetHelpSeparators(" /");
		/* Define what to do in case of Math. Symbols */
  	tx_math(mymath);

  	Help(help);
  
  EndWindows();
  return;
}