aboutsummaryrefslogtreecommitdiff
path: root/sys/etc/envlist.x
diff options
context:
space:
mode:
Diffstat (limited to 'sys/etc/envlist.x')
-rw-r--r--sys/etc/envlist.x25
1 files changed, 25 insertions, 0 deletions
diff --git a/sys/etc/envlist.x b/sys/etc/envlist.x
new file mode 100644
index 00000000..ebd904b6
--- /dev/null
+++ b/sys/etc/envlist.x
@@ -0,0 +1,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