1 /* 2 char id_chdir[] = "@(#)chdir_.c 1.2"; 3 * 4 * change default directory 5 * 6 * calling sequence: 7 * integer chdir 8 * ierror = chdir(dirname) 9 * where: 10 * ierror will receive a returned status (0 == OK) 11 * dirname is the directory name 12 */ 13 14 #include "../libI77/f_errno.h" 15 16 long chdir_(dname, dnamlen) 17 char *dname; 18 long dnamlen; 19 { 20 char buf[128]; 21 22 if (dnamlen >= sizeof buf) 23 return((long)(errno=F_ERARG)); 24 g_char(dname, dnamlen, buf); 25 if (chdir(buf) != 0) 26 return((long)errno); 27 return(0L); 28 } 29