1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# PRCHDIR -- Change the current working directory of a connected child
# process, or of all connected subprocesses if pid=0.
procedure prchdir (pid, newdir)
int pid # process id of child, or 0 for all subprocesses
char newdir[ARB] # new directory
pointer sp, cmd
begin
call smark (sp)
call salloc (cmd, SZ_COMMAND, TY_CHAR)
call strcpy ("chdir ", Memc[cmd], SZ_COMMAND)
call strcat (newdir, Memc[cmd], SZ_COMMAND)
call prupdate (pid, Memc[cmd], YES)
call sfree (sp)
end
|
