SAVEDS void PrintStr( const STRPTR text)
{
		Write( Output(), text, mystrlen( text));
}
 
///ULONG mystrlen( const TEXT *text)
ULONG mystrlen( const char *text)
{
	ULONG len = 0;
///	const TEXT *strt;
	const char *strt;
 
	if (text)
	{
		strt = text;
		while (*text)
			text ++;
 
		len = text - strt;
	}
 
	return len;
}

__saveds
void piper(void)
{
	struct Process *myself;
	struct LaunchMessage *mess;
	struct MsgPort *host=NULL, *pipeport=NULL;		// 2 ports
	struct gcmsg gmsg, *repmsg;							// the message structure
	UBYTE	 *inbuff = NULL;									// buffer pointer
	UBYTE	 pname[100];										// full name of pipe
	struct Event *bt;
	UBYTE	 g;
	BPTR	 fp = NULL;
	LONG	 c, ret, buffsize, bufflimit, d;
	ULONG	 sig;
 
	// ------------- get start-up message
 
	myself	= (struct Process *)FindTask(NULL);		  // this process
	pipeport = &myself->pr_MsgPort;						  // and it's port
	WaitPort(pipeport);
	mess = (struct LaunchMessage *)GetMsg(pipeport);  // the message from G4C
	host = mess->rm_Node.mn_ReplyPort;					  // Gui4Cli message port
	bt	  = mess->bt;											  // the calling event
	buffsize = mess->ID;										  // size of input buffer
	strncpy (pname, mess->comline, 95);					  // get the pipe name
	pname[95] = 0;
	mess->task = NULL;								 // ==NULL if pipe not opened
 
	// ------------- open pipe & get buffer
 
	// initiate pipe
	if (fp = Open (pname, MODE_NEWFILE))
	{	 Write (fp, "\n", 1);
		 Close (fp);
	}
 
	if (!(fp = Open (pname, MODE_OLDFILE)))
		 goto endprog;
 
	if (!(inbuff = (char *)AllocVec (buffsize, MEMF_ANY)))
		 goto endprog;
	bufflimit = buffsize - 100;
 
	// ------------ all ok - store task address to pass to G4C
	//					 stored in bt->xt by gui.c
 
	mess->task	= &myself->pr_Task;
	ReplyMsg((struct Message *)mess); // #### CAUSES ENFORCER HIT - WHY??
	// null msg pointer so we know we sent the 1st one
	mess = NULL;
 
	// ------------ initialise the message
 
	gmsg.rm_Node.mn_Node.ln_Type = NT_MESSAGE;
	gmsg.rm_Node.mn_Length		  = sizeof (struct gcmsg);
	gmsg.rm_Node.mn_ReplyPort	  = pipeport;
	gmsg.dummy		= (APTR)bt;			// calling xPipe event (=0 to signal end)
	gmsg.data		= inbuff;			// this is where the data will go
	gmsg.rm_Action = MM_PIPE_DATA;	// magic number
	gmsg.num			= buffsize;			// for changing buffer size	  
 
	// ------------- clean pipe
 
	while ((Read(fp, &g, 1)) > 0);
 
	// ------------- read in lines & pass them to G4C
 
	while (1)  // do for ever
	{
		// ---------- wait
 
		// the stuff in here will not be done if pipe is full
		while ((Read(fp, &g, 1)) < 1)
		{	 sig = SetSignal (0, 0);
			 // ctrl-C from freefile(), ctrl-D from setgad OFF
			 if ((sig & SIGBREAKF_CTRL_C) || (sig & SIGBREAKF_CTRL_D))
				  goto endprog;
			 Delay (10);
		}
 
		inbuff[0] = g;
		c = 1;
 
		// ---------- read in a line - length shorter than buffsize for safety
		while (((ret = Read (fp, &g, 1)) > 0) && (g != '\n') && (g != '\r') && (c<bufflimit))
		{
			 // deal with tabs here - lvadd does not expand it
			 if (g == '\t')
			 {	  for (d=0; d < gd->tab; ++d) inbuff[c+d] = ' ';
				  c += gd->tab;
			 }
			 // if ((g < 32) || (g > 126)) g = '.'; - no need to textify ?..
			 else
			 {	  inbuff[c] = g;
				  ++c;
			 }
		}
		inbuff[c] = 0;
 
		if (ret == -1)			// error in reading
			 goto endprog;
 
		// ---------- get & deal with signals
 
		sig = SetSignal (0, 0);
		// signal from freefile() - die immediate (to print&die use ctrl-d)
		if (sig & SIGBREAKF_CTRL_C)
			  goto endprog;
		// signal from setgad CLEAN - stop & flush pipe
		else if (sig & SIGBREAKF_CTRL_F)
		{	  while ((Read(fp, &g, 1)) > 0);
			  SetSignal (0L, SIGBREAKF_CTRL_F); // reset signal
			  goto skippipe;
		}
 
		// sanity check- g4c+gui may have quit
		if (bt->gf->magic != MM_GFILE)
			  goto endprog;
 
		// ----------- send the message
 
		gmsg.num = buffsize;	 // for buffer size change
		PutMsg (host, &gmsg.rm_Node); // #### CAUSES ENFORCER ERROR - WHY?????
 
		// wait for reply
		WaitPort (pipeport);
		repmsg = (struct gcmsg *)GetMsg(pipeport);
		// the buffer we sent was exchanged with gd->membuff[4]
		inbuff	 = gmsg.data;
		buffsize	 = gmsg.num;		  // new buffer size
		bufflimit = buffsize - 100;
 
		// they told us to quit - from gui.c main loop
		if (repmsg->dummy == NULL)	  // should normally be *bt
			 goto endprog;
 
		skippipe: ;
	}
 
	// ---------------------- clean up & exit
	endprog :
 
	// empty pipe & close the file if still open
	if (fp)
	{	while ((Read(fp, &g, 1))>0);
		Close (fp);
		fp = NULL;
	}
 
	// free buffer
	if (inbuff) FreeVec (inbuff);
 
	// empty the port
	Forbid();
	if (mess)	 // if yes, its the 1st message
		 ReplyMsg((struct Message *)mess);
	while (mess = (struct LaunchMessage *)GetMsg(pipeport))
		 ReplyMsg((struct Message *)mess);
 
	// end of process
}