/*
***************************************************************************
*
* Datei:
*	  RSysMain.c
*
* Inhalt:
*
*      --- Globale Routinen ---
*
*    void _icon_parse ( char *progname );
*    void _main ( long alen , char *aptr );
*    void _wb_parse ( void );
*
*      --- Lokale  Routinen ---
*
*
* Bemerkungen:
*	  Startup-Routinen von RSys; ruft das Hauptprogramm auf.
*
* Erstellungsdatum:
*	  07-Jul-93 	Rolf Böhme
*
* Änderungen:
*	  07-Jul-93 	Rolf Böhme	  Erstellung
*
***************************************************************************
*/

#include "RSys.h"

extern int Enable_Abort;

extern int _argc;
extern char **_argv;
extern struct WBStartup *WBenchMsg;

void	_cli_parse(struct Process *pp, long alen, char *aptr);

extern char _dir[], _file[];

void
_wb_parse(void)
{
	return;
};

static struct DiskObject *dop;

static char *
ToolType(char *type)
{
   return (char *)FindToolType((UBYTE **) dop->do_ToolTypes,(UBYTE *) (type));
}

void
_icon_parse(char *progname)
{
	register char *cp;

	if (IconBase = OpenLibrary((UBYTE *) "icon.library", 0L))
	{
		if (dop = GetDiskObject((UBYTE *) progname))
		{
			if (cp = ToolType("CX_HOTKEY")) strcpy(&hotkey[0][0], cp);
			if (cp = ToolType("CX_CRYPT")) strcpy(&hotkey[1][0], cp);
			if (cp = ToolType("CX_FINDFILE")) strcpy(&hotkey[2][0], cp);
			if (cp = ToolType("CX_FORMAT")) strcpy(&hotkey[3][0], cp);
			if (cp = ToolType("CX_HUNKLIST")) strcpy(&hotkey[4][0], cp);
			if (cp = ToolType("CX_CRC")) strcpy(&hotkey[5][0], cp);
			if (cp = ToolType("CX_SAVEWINDOW")) strcpy(&hotkey[6][0], cp);
			if (cp = ToolType("CX_FILEREQUEST")) strcpy(&hotkey[7][0], cp);
			if (cp = ToolType("NOFASTMODE")) Flags.fastmode = 0;
			if (cp = ToolType("NOSORT")) Flags.sortmode = 0;
			if (cp = ToolType("WORKINGBAR")) Flags.workingbar = 1;
   		if (cp = ToolType("AUTOFRONT")) Flags.autofront = 1;
			if (cp = ToolType("MOUSEWINDOW")) Flags.mousewindow = 1;
			if (cp = ToolType("TOPAZFONT")) Flags.sysfont = 1;
			if (cp = ToolType("NOSAVEASKING")) Flags.saveasking = 0;
			if (cp = ToolType("TEXTFORMATTER")) Flags.textformat = 1;
			if (cp = ToolType("NOAPPICON")) Flags.appicon = 0;
			if (cp = ToolType("BACKPATTERNCOL")) bpc = atoi(cp);
			if (cp = ToolType("BACKGROUNDCOL")) bgc = atoi(cp);
			if (cp = ToolType("BACKPATTERN")) bpp = ahtoi(cp);
			if (cp = ToolType("DETAILPEN")) winddetail = atoi(cp);
			if (cp = ToolType("BLOCKPEN")) windblock = atoi(cp);
			if (cp = ToolType("MENUPEN")) menudetail = atoi(cp);
			if (cp = ToolType("HARDWAREDATA")) strcpy((char *)RSysFiles.Hardware, cp);
			if (cp = ToolType("LIBOFFDATA")) strcpy((char *)RSysFiles.LibOffsets, cp);
			if (cp = ToolType("AGUIDEDOC")) strcpy((char *)RSysFiles.Guide, cp);
			if (cp = ToolType("AGUIDECONTEXT")) strcpy((char *)RSysFiles.GuideContext, cp);
			if (cp = ToolType("ACTIONFILE")) strcpy((char *)RSysFiles.ActionFile, cp);
			if (cp = ToolType("ICONX")) iconx = atoi(cp);
			if (cp = ToolType("ICONY")) icony = atoi(cp);

			if (cp = ToolType("OUTWINDOW")) strcpy((char *)autocon,cp);
         else
   			strcpy((char *)autocon,"CON:/40//150/Sys - Window/auto/close");

			if (cp = ToolType("LISTHEIGHT"))
         {
				listviewheight = atoi(cp);
            if(listviewheight == -1) listviewheight = 1000;
            else
               if(listviewheight < 2) listviewheight = 10;

            SysHeight += (listviewheight - 10) * 8;
         }

			FreeDiskObject(dop);
		}

		CloseLibrary(IconBase);

		IconBase = NULL;
	}

	return;
}

void
_main(long alen, char *aptr)
{
	register struct Process *pp;

   SysBase = *(struct ExecBase **) 4;

   if (SysBase->LibNode.lib_Version < 36)
   {
   	if (alen)   Write(Output(), (UBYTE *)"WB 2.0 ONLY!\n", 13);
   	exit(0);
   }

   if(DOSBase = (struct DosLibrary *)OpenLibrary((STRPTR)"dos.library", 36L))
   {
   	LastID = SYSTEMINFO;

   	pp = (struct Process *) FindTask(0L);

   	strcpy(hotkey[0], "lshift rshift y");
   	strcpy(hotkey[1], "lshift rshift k");
   	strcpy(hotkey[2], "lshift rshift s");
   	strcpy(hotkey[3], "lshift rshift f");
   	strcpy(hotkey[4], "lshift rshift h");
   	strcpy(hotkey[5], "lshift rshift c");
   	strcpy(hotkey[6], "lshift rshift w");
   	strcpy(hotkey[7], "lshift rshift esc");

   	if (pp->pr_CLI)
   	{
   		_cli_parse(pp, alen, aptr);

   		RSysName = AllocVec(MAXFULLNAME, MEMF_CLEAR);
   		if (RSysName)
   		{
   			NameFromLock(GetProgramDir(), (UBYTE *) RSysName, MAXFULLNAME);
   			strcpy(_dir,RSysName);
   			strcpy(_file,(char *)FilePart((UBYTE *) _argv[0]));

   			AddPart((UBYTE *) RSysName, FilePart((UBYTE *) _argv[0]), MAXFULLNAME);
   		}

   		Enable_Abort = 1;
   	}
   	else
   	{
   		WaitPort(&pp->pr_MsgPort);

   		WBenchMsg = (struct WBStartup *) GetMsg(&pp->pr_MsgPort);

   		if (WBenchMsg->sm_ArgList)
   		{
   			NameFromLock(WBenchMsg->sm_ArgList->wa_Lock, (UBYTE *) _dir, MAXFULLNAME);
   			strcpy(_file, (char *)FilePart((UBYTE *)WBenchMsg->sm_ArgList->wa_Name));

   			RSysName = AllocVec(strlen(WBenchMsg->sm_ArgList->wa_Name) + 1, MEMF_CLEAR);
   			if (RSysName) strcpy(RSysName, WBenchMsg->sm_ArgList->wa_Name);

   			CurrentDir(WBenchMsg->sm_ArgList->wa_Lock);
   		}

   		_argv = (char **)WBenchMsg;
   	}

   	if (RSysName) _icon_parse(RSysName);

   	main(_argc, _argv);
   }

	return;
}