/*
 * CIN source file 
 */

#include "extcode.h"
#include <stdio.h>

CIN MgErr CINRun(int32 *error_code, LStrHandle return_string);
int GetErrorStrings(int Ecod, int Enum, int Snum, char *Terr);
void GetOperationError(int Ecod, char *Oper);
void GetProcedureError(int Ecod, char *Proc);

CIN MgErr CINRun(int32 *error_code, LStrHandle return_string) {

	/* ENTER YOUR CODE HERE */

	char ErrStrg[256];
	int errcd,strsiz,i;
	MgErr err;

	errcd = *error_code;

	GetErrorStrings(errcd,0,0,ErrStrg);

	for(i=0;i<256;i++)
		if(ErrStrg[i]=='\0') break;
	strsiz = i;
	if(err = NumericArrayResize(uB,1L,(UHandle*)&return_string,strsiz))
			return err;

	//for(i=0;i<strsiz;i++)
		//*return_string->str+i = ErrStrg+i;
	MoveBlock(ErrStrg,LStrBuf(*return_string),strsiz);
	LStrLen(*return_string) = strsiz;

	return noErr;
	}
int GetErrorStrings(int Ecod, int Enum, int Snum, char *Terr){
	char str1[128], str2[128];
	
	if(Ecod&0x1){
		//GetOperationError(Ecod, str1);
		GetProcedureError(Ecod, Terr);
		//sprintf(Terr,"ERROR: %s",str1);}
		//sprintf(Terr,"ERROR: %s -- %s",str1, str2);}
	}
	else
		sprintf(Terr,"all OK");
	return 0;
}