/* HELP (STD) -- Online Help System */
/* HELP (STD) -- Online-Hilfe */
/* -- INTENDED FOR KEY-CALL USE -- */
/*
// Copyright (c) 1998-2012 Oliver Bartels F+E, Muenchen
// Author: Manfred Baumeister
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091021) RELEASED FOR BAE V7.4.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030904) RELEASED FOR BAE V6.2.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (000725) RELEASED FOR BAE V4.6.
//	rl (000725) ENHANCEMENT:
//		Added windows online manual support.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (980910) RELEASED FOR BAE V4.2.
//	mb (980811) CHANGE:
//		Abort option provided for SIDEMENU configurations.
//	mb (980713) ORIGINAL CODING.
//
// DESCRIPTION
//
// The help User Language program provides BAE online help.
*/

// Includes
#include "std.ulh"			// User Language standard include

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string MI_BAEMAN	= M("&Handbuch"		  ,"&Manual");
string MI_HLPMAIN	= M("&Referenzhandbuch"   ,"&Reference Manual");
string MI_HLPITEM	= M("Hilfe &zu"		  ,"Help to &Item");
string MI_HLPKEYS	= M("%&Tastaturbelegung"  ,"%&Key Bindings");
string MI_HLPPROD	= M("%&Produktinformation","%&Product Info");

// User Language program names
#define UL_BAEMAN	"baeman"	// ULP: Online Help - Manual
#define UL_HLPPROD	"hlpprod"	// ULP: Online Help - Product Info
#define UL_HLPKEYS	"hlpkeys"	// ULP: Online Help - Key Bindings

// Main program
void main()
{
	string progname			/* Program name buffer */;
	// Swallow right mouse button activation notification
	if (bae_peekiact() && bae_getactmenu()<0)
		askstr("",1024);
	// Check environment
	switch (bae_swconfig(3)) {
		// Windows Environments
		case BAE_WinPulldwn :
		// Select the help function
		switch (bae_askmenu(6,MI_BAEMAN,MI_HLPMAIN,MI_HLPITEM,
		 MI_HLPKEYS,MI_HLPPROD,M_UPRABORT())) {
			case 0 : progname=UL_BAEMAN; break;
			case 1 : bae_callmenu(9038); exit(0);
			case 2 : bae_callmenu(9039); exit(0);
			case 3 : progname=UL_HLPKEYS; break;
			case 4 : progname=UL_HLPPROD; break;
			default :
			error_abort();
			}
		break;
		case BAE_WinStd :
		// Select the help function
		switch (bae_askmenu(5,MI_BAEMAN,MI_HLPMAIN,
		 MI_HLPKEYS,MI_HLPPROD,M_UPRABORT())) {
			case 0 : progname=UL_BAEMAN; break;
			case 1 : bae_callmenu(9038); exit(0);
			case 2 : progname=UL_HLPKEYS; break;
			case 3 : progname=UL_HLPPROD; break;
			default :
			error_abort();
			}
		break;
		// Motif Pulldown Menu
		case BAE_MotifPdwn :
		// Select the help function
		switch (bae_askmenu(3,MI_HLPKEYS,MI_HLPPROD,M_UPRABORT())) {
			case 0 : progname=UL_HLPKEYS; break;
			case 1 : progname=UL_HLPPROD; break;
			default :
			error_abort();
			}
		break;
		default :
		// Select the help function
		switch (bae_askmenu(2,MI_HLPKEYS,MI_HLPPROD)) {
			case 0 : progname=UL_HLPKEYS; break;
			case 1 : progname=UL_HLPPROD; break;
			default :
			error_abort();
			}
		}
	// Run the designated UL program
	runulprog(progname);
}

// User Language program end