/*
 * main  Version 1.0  28NOV83
 *
 *       Version 3.0   8MAR84 - created to build a main script for the 
 *                              design environment tools
 *
 *       Version 4.0  22MAY84 - created to provide access to the 80186 
 *                              Pascal Compiler/ICS scripts
 *
 * This is the master script for building the `main' session file.
 *
 */

/*
 * TNIX/Unix/VMS Version
 * Keyshell Version Number 4
 */

/*
 * #include files used.
 */

#include <defines>
#include <edit>
#ifdef _asm
#include <assemble>
#endif

#ifdef _pascal
#if (_micro==_8086uP || _micro==_8087uP || _micro==_80186uP || _micro==_80187uP)
#include <pascal86>
#else
#include <pascal>
#endif
#endif
#ifdef _c
#include <c>
#endif

#ifdef _compiler
#if (_compiler > 1)
#include <compile>
#endif
#endif

#ifndef _TNIX
#ifdef _iunit
#include <dbug>
#endif
#endif

#include <files>
#include <mail>
#include <info>

#ifdef _sasd
#include <analysis>
#include <design>
#define _fnedit f3
#include <code>
#define _fndebug f5
#define _fnfiles f6
#include <sysops>
#else
#define _fnedit f1
#define _fndebug f4
#define _fnfiles f5
#endif

#include <exit>

main
{

#ifdef _sasd
>
>\kanalysis\e - Gives you access to structured analysis tools.
>
>\kdesign\e - Gives you access to structured design tools.
#endif
>
>\kedit\e - Gives you access to text editors, and formatters.
>
#ifdef _sasd
>\kcode\e - Gives you access to assemblers, compilers, and linkers.
>
#else
>\kassemble\e - Gives you access to assemblers, and linkers.
>
>\kcompile\e - Gives you access to compilers, and linkers.
#endif
>
>\kdebug\e - Lets you do program debugging and hardware integration.
>
>\kfiles\e - Displays, prints, and lists files, lets you create or modify files
#ifndef _TNIX
>            and directories.
#else
>            and directories, and make a flexible disk archive.
#endif
#ifdef _sasd
>
>\ksys.ops\e - Provides access to system operations
>
#else
>
>\ksys.info\e - Provides information about the system and about other users.
>
>\kmail\e - Lets you exchange messages with other system users.
>
#endif
#ifndef _TNIX
>\kexit\e - Lets you exit ColorKey+, save and unsave session files.
#else
>\kexit\e - Lets you exit ColorKey+.
#endif
>

msg (^ColorKey+ - top level);

#ifdef _sasd
f1;analysis;[analysis];

f2;design;[design];

#endif
_fnedit;edit;[edit];

#ifdef _sasd
f4;code;[code];

#else
#include <asscmpl>
#endif

_fndebug;debug; 
#ifdef _iunit
#ifndef _TNIX
	[dbug];
#else
	{
	msg (^Loading in the Debug script.),
	cmd, sly (history off),
	sly (newexp keynotes _kdir/dbug.n),
	sly (unsave _kdir/dbug.s),
	break;
	};
#endif
#else
	{
>
>ColorKey+ is not currently setup with keys for the debug functions.
>To add them, run \usetksh\n and build a new custom configuration if 
>a Tektronix Integration Unit is available at your site. 
>
	msg (^Displaying message.), sly (history off), sly (shiftkey 4),
	sly (history on), msg, break;
	};
#endif

_fnfiles;files;[files];

#ifdef _sasd
f7;sys.ops;[sysops];
#else
f6;sys.info;[info];
f7;mail;[mail];
#endif

f8;exit;[exit];
}
