12405Sdlw /* 2*2534Sdlw char id_chdir[] = "@(#)chdir_.c 1.2"; 32405Sdlw * 42405Sdlw * change default directory 52405Sdlw * 62405Sdlw * calling sequence: 72405Sdlw * integer chdir 82405Sdlw * ierror = chdir(dirname) 92405Sdlw * where: 102405Sdlw * ierror will receive a returned status (0 == OK) 112405Sdlw * dirname is the directory name 122405Sdlw */ 132405Sdlw 142405Sdlw #include "../libI77/f_errno.h" 152405Sdlw 162405Sdlw long chdir_(dname, dnamlen) 172405Sdlw char *dname; 182405Sdlw long dnamlen; 192405Sdlw { 202405Sdlw char buf[128]; 212405Sdlw 22*2534Sdlw if (dnamlen >= sizeof buf) 23*2534Sdlw return((long)(errno=F_ERARG)); 242405Sdlw g_char(dname, dnamlen, buf); 252405Sdlw if (chdir(buf) != 0) 262405Sdlw return((long)errno); 272405Sdlw return(0L); 282405Sdlw } 29