Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-6/lib/usys/chdir.c
There are 5 other files named chdir.c in the archive. Click here to see a list.
/*
** CHDIR - change current working directory
**
** (c) Copyright Ken Harrenstien 1989
** for all changes after v.3, 5-Jul-1987
** (c) Copyright Ian Macky, SRI International 1987
*/
#include <c-env.h>
#if SYS_T20+SYS_10X /* Systems supported for */
#include <errno.h>
#include <sys/usysig.h>
#if SYS_T20+SYS_10X
#include <jsys.h>
#endif
int chdir(path)
char *path;
{
#if SYS_T20+SYS_10X
int ablock[5], accblk[3];
USYS_BEG();
ablock[1] = AC_CON + 3; /* connect + 3-long arg block */
ablock[2] = (int) accblk; /* this is the arg block */
accblk[0] = (int) (path - 1); /* pointer to pathname */
accblk[1] = 0; /* no password */
accblk[2] = -1; /* this job */
if (!jsys(ACCES, ablock))
USYS_RETERR(EINVAL);
USYS_RET(0);
#else
return -1;
#endif
}
#endif /* T20+10X */