blob: ebd904b62a15a710c58fb778f93632836396d926 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "environ.h"
# ENVLIST -- Print the environment list on the output file as a sequence of
# SET commands. The commands are given in the reverse of the order in which
# they were originally entered. Printing of redefined variables may be
# inhibited if desired.
procedure envlist (fd, prefix, print_redefined_variables)
int fd # output file
char prefix[ARB] # prefix string to be prepended to each line
int print_redefined_variables
pointer el
include "environ.com"
begin
for (el = envbuf + last; el > envbuf; el = envbuf + E_LASTELEM(el))
if (E_REDEF(el) == NO || print_redefined_variables == YES) {
call putline (fd, prefix)
call putline (fd, E_SET(el))
call putci (fd, '\n')
}
end
|
