Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

/*
 *	PIPE
 */

#include "c-env.h"
#include "errno.h"
#include "sys/usysio.h"
#include "sys/usysig.h"
#include "sys/file.h"	/* For O_ flag definitions */

/* ------------------ */
/*      get pipe      */
/* ------------------ */
int
pipe(fildes)
int fildes[2];
{
    int ifd, ofd, ifx, ofx;
    extern int _openufx();
#if SYS_T20
    int ijfn, ojfn;
    static int _pipe();
#endif
    USYS_BEG();

    /* Get an input FD and UFX slot */
    if ((ifd = _uiofd()) < 0 || !(ifx = _uiofx()))
	USYS_RET(-1);		/* No FD or UFX slots (errno is set) */
    _uionopen[ifx] = 1;		/* Pretend UFX open so don't get again */
    _uioufx[ifd] = ifx;		/* Pretend ditto for FD */

    /* Get an output FD and UFX slot */
    if ((ofd = _uiofd()) < 0 || !(ofx = _uiofx())) {
	_uionopen[ifx] = 0;	/* Failed, free up input UFX slot */
	_uioufx[ifd] = 0;	/* Ditto FD slot, sigh */
	USYS_RET(-1);		/* No FD or UFX slots (errno is set) */
    }

#if SYS_T20
    if (_pipe(&ijfn, &ojfn) == 0) {
	_uioch[ofx] = ojfn;	/* Set returned JFNs up in UFX */
	_uioch[ifx] = ijfn;
	_openufx(ifx, O_RDONLY);	/* Then finish rest of UFX setup */
	_openufx(ofx, O_WRONLY);
	_uioufx[ofd] = ofx;	/* Say output FD is open (other already is) */
	fildes[0] = ifd;	/* Return input and output FD values */
	fildes[1] = ofd;
	USYS_RET(0);		/* Success! */
    }
#else
#error pipe() not supported for this system.
#endif
    _uionopen[ifx] = 0;	/* Failed, free up input UFX slot */
    _uioufx[ifd] = 0;	/* Ditto FD slot, sigh */
    USYS_RETERR(ENXIO);	/* Well, what else can we use... */
}

#if SYS_T20
/* _pipe(read,write) - low-level support for pipe()
**	int *read,*write;
**
**	fildes[0] gets read end, fildes[1] gets write
**	returns 0 for success, -1 for failure
*/

static int
_pipe(read, write)
int *read, *write;
{
#asm
	SEARCH MONSYM
	EXTERN $RETN		/* From CRT */

	MOVE	1,[GJ%SHT]	;Using short form
	HRROI	2,[ASCIZ/PIP:/]	;A pipe with default size buffers
	GTJFN%			;Create an instance of a pipe device
	 ERJMPA	$RETN
	MOVEM	1,@-2(17)	;Store it away
	MOVE	2,@-2(17)	;Get back the first JFN
	ADJSP	17,20		;Make some space
	HRROI	1,-17(17)	;And point to it
	MOVE	3,[1B2!1B8!JS%PAF] ;Output device and filename w/punc
	JFNS%			;Build a second string for GTJFN%
	MOVEI	3,"."		;Get dot to separate name and extension
	IDPB	3,1		;Tack on the dot
	MOVE	2,@-2-20(17)	;Get back that JFN
	MOVE	3,[1B8]		;Output filename again, no punc.
	JFNS%			;Create "PIP:#.#"
	SETZ	3,		;Get a null byte
	IDPB	3,1		;Tie off second GTJFN% string
	MOVE	1,[GJ%SHT]	;Using short form
	HRROI	2,-17(17)	;Point to string we just built
	GTJFN%			;Get a JFN on the other side of pipe
	 ERJMPA [ ADJSP	17,-20
		 JRST $RETN ]
	ADJSP	17,-20		;Give back temp space
	MOVEM	1,@-1(17)	;Use that as the read side
	MOVE	1,@-2(17)	;Get the JFN for the write side
	MOVE	2,[7B5!OF%WR]	;7-bits, write access
	OPENF%			;Create write side
	 ERJMPA	$RETN
	MOVE	1,@-1(17)	;Get the JFN to use for the read side
	MOVE	2,[7B5!OF%RD]	;7-bits, read-access
	OPENF%			;Create read side
	 ERJMPA	$RETN
#endasm
	return 0;		/* Success return value is 0 */
}	/* End of _pipe() */
#endif /* T20 */