1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# PRENVSET -- Change the value of an environment variable in a connected child
# process, or in all connected subprocesses if pid=0.
procedure prenvset (pid, envvar, valuestr)
int pid # process id of child, or 0 for all subprocesses
char envvar[ARB] # name of environment variable
char valuestr[ARB] # value of environment variable
pointer sp, cmd
begin
call smark (sp)
call salloc (cmd, SZ_COMMAND, TY_CHAR)
call strcpy ("set ", Memc[cmd], SZ_COMMAND)
call strcat (envvar, Memc[cmd], SZ_COMMAND)
call strcat ("=", Memc[cmd], SZ_COMMAND)
call strcat (valuestr, Memc[cmd], SZ_COMMAND)
call prupdate (pid, Memc[cmd], NO)
call sfree (sp)
end
|
