From d039c803eb3df092ce5ccb78300c6eff2a9840f8 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 23 Apr 2009 12:08:30 -0500
Subject: [PATCH] env vocab for accessing the environment as an assoc

---
 extra/env/authors.txt     |  1 +
 extra/env/env-docs.factor | 13 +++++++++++++
 extra/env/env.factor      | 26 ++++++++++++++++++++++++++
 extra/env/summary.txt     |  1 +
 4 files changed, 41 insertions(+)
 create mode 100644 extra/env/authors.txt
 create mode 100644 extra/env/env-docs.factor
 create mode 100644 extra/env/env.factor
 create mode 100644 extra/env/summary.txt

diff --git a/extra/env/authors.txt b/extra/env/authors.txt
new file mode 100644
index 0000000000..f13c9c1e77
--- /dev/null
+++ b/extra/env/authors.txt
@@ -0,0 +1 @@
+Joe Groff
diff --git a/extra/env/env-docs.factor b/extra/env/env-docs.factor
new file mode 100644
index 0000000000..918b30af4b
--- /dev/null
+++ b/extra/env/env-docs.factor
@@ -0,0 +1,13 @@
+! (c)2009 Joe Groff, see bsd license
+USING: help.markup help.syntax ;
+IN: env
+
+HELP: env
+{ $class-description "A singleton that implements the " { $link "assocs-protocol" } " over " { $link "environment" } "." } ;
+
+ARTICLE: "env" "Accessing the environment via the assoc protocol"
+"The " { $vocab-link "env" } " vocabulary defines a " { $link env } " word which implements the " { $link "assocs-protocol" } " over " { $link "environment" } "."
+{ $subsection env }
+;
+
+ABOUT: "env"
diff --git a/extra/env/env.factor b/extra/env/env.factor
new file mode 100644
index 0000000000..f7f4c5d231
--- /dev/null
+++ b/extra/env/env.factor
@@ -0,0 +1,26 @@
+! (c)2009 Joe Groff, see bsd license
+USING: assocs environment kernel sequences ;
+IN: env
+
+SINGLETON: env
+
+INSTANCE: env assoc
+
+M: env at*
+    drop os-env dup >boolean ;
+
+M: env assoc-size
+    drop (os-envs) length ;
+
+M: env >alist
+    drop os-envs >alist ;
+
+M: env set-at
+    drop set-os-env ;
+
+M: env delete-at
+    drop unset-os-env ;
+
+M: env clear-assoc
+    drop os-envs keys [ unset-os-env ] each ;
+
diff --git a/extra/env/summary.txt b/extra/env/summary.txt
new file mode 100644
index 0000000000..bd15472427
--- /dev/null
+++ b/extra/env/summary.txt
@@ -0,0 +1 @@
+Access environment variables via the assoc protocol