#include <texttool.h>
#include <locator.h>
#include <memory.h>
#include <GSOS.h>
#include "IR.h"

/*

  IR.h (available w/ IR) doesn't have an #endif
  and twice says '#define <comment>
  That needs to be fixed, but it's not my duty to
  distrubute the modified headers.

*/


#ifdef STACK
#include <stdio.h>
#include <stack.h>
#endif


/* Function Prototypes */
GSString255Ptr cstring2gs(char *);
void FixSBI(void);		/* extern (assembly) kludge */

/* IR.h doesn't have this record */
typedef struct askIrAreYouThereOut{
	word recvCount;
	word IrID;
	long IRVersion;
}askIrAreYouThereOut, *AskIRAreYouThereOutPtr;

askIrAreYouThereOut IRHere;
askInstallInputRecord InstallIn={irDontOpenNDAs+irNoDuplicates,NULL,0,0};
askInstallOutputRecord InstallOut;

OpenRecGS 	OpenOS=	{15,0,NULL,1,0,0,0,0L,0,
			{0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,0},
                        NULL,0L,0L,0L,0L};
RefNumRecGS 	CloseOS={1,0};

word MyID;

extern void Fix_start(void);
extern void Fix_end(void);

int main(int argc, char *argv[]){
	#ifdef STACK
	begin_stack_check();
	#endif
	

	MyID=MMStartUp();
	
	if (argc==1){
		WriteCString("\tShell Interface for IR v 1.0\r");
		WriteCString("\tKelvin Sherlock, 3/19/97\r");
		WriteCString("Usage: ");
		WriteCString(argv[0]);
		WriteCString(" <file>\r");

		MMShutDown(MyID);
		return 0;
	}
	/* check that IR is active */
	SendRequest(askIRAreYouThere,sendToName+stopAfterOne,
		(long)NAME_OF_IR, (long)NULL,  (Ptr)&IRHere);

	if (_toolErr){
		WriteCString(argv[0]);
		WriteCString(" :Error - IR is not active\r");
		MMShutDown(MyID);
		return 0;
	}
	/* get the file/auxtype */
	
	OpenOS.pathname = InstallIn.pathname = cstring2gs(argv[1]);
	OpenGS(&OpenOS);
	if (_toolErr){
		WriteCString(argv[0]);
		WriteCString(" :Error - could not open file ");
		WriteCString(argv[1]);
		WriteCString("\r");
		MMShutDown(MyID);
		return 0;
	}
	CloseOS.refNum= OpenOS.refNum;
	CloseGS(&CloseOS);

	InstallIn.filetype=OpenOS.fileType;
	InstallIn.auxtype=OpenOS.auxType;

	Fix_start();
	
	SendRequest(askIRToInstall,sendToName+stopAfterOne,
		(long)NAME_OF_IR, (long)&InstallIn, (Ptr)&InstallOut);

	Fix_end();

	if ( (_toolErr) || (InstallOut.irError) ){
		/* error installing */
	        WriteCString(argv[0]);
		WriteCString(" :Error - IR could not install the file ");
		WriteCString(argv[1]);
		WriteCString("\r");
		MMShutDown(MyID);
		return 0;
	}
	
	MMShutDown(MyID);

	#ifdef STACK
	printf("stack usage %d\n",end_stack_check());
	#endif
	
	return 0;
	
}




/*
Converts a C string to a GSOS string
*/
GSString255* cstring2gs(char *the_file_name){

static GSString255 string;

        string.length=strlen(the_file_name);
	BlockMove(the_file_name,(Pointer)(&string)+2,string.length);
        	//move the string into it
	return &string;
}