From 06754951d32e4bbaa1c04e10f17c8e96eb0bfa1d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Apr 2013 14:12:20 -0700
Subject: [PATCH] hash-sets.wrapped: support for "wrapped" hash-sets.

---
 basis/hash-sets/wrapped/authors.txt           |  1 +
 .../wrapped/prettyprint/prettyprint.factor    | 15 ++++++
 basis/hash-sets/wrapped/wrapped.factor        | 50 +++++++++++++++++++
 3 files changed, 66 insertions(+)
 create mode 100644 basis/hash-sets/wrapped/authors.txt
 create mode 100644 basis/hash-sets/wrapped/prettyprint/prettyprint.factor
 create mode 100644 basis/hash-sets/wrapped/wrapped.factor

diff --git a/basis/hash-sets/wrapped/authors.txt b/basis/hash-sets/wrapped/authors.txt
new file mode 100644
index 0000000000..e091bb8164
--- /dev/null
+++ b/basis/hash-sets/wrapped/authors.txt
@@ -0,0 +1 @@
+John Benediktsson
diff --git a/basis/hash-sets/wrapped/prettyprint/prettyprint.factor b/basis/hash-sets/wrapped/prettyprint/prettyprint.factor
new file mode 100644
index 0000000000..a8b0bb08ff
--- /dev/null
+++ b/basis/hash-sets/wrapped/prettyprint/prettyprint.factor
@@ -0,0 +1,15 @@
+! Copyright (C) 2013 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: continuations hash-sets.wrapped namespaces
+prettyprint.config prettyprint.custom sets ;
+
+IN: hash-sets.wrapped.prettyprint
+
+M: wrapped-hash-set >pprint-sequence members ;
+
+M: wrapped-hash-set pprint*
+    nesting-limit inc
+    [ pprint-object ] [ nesting-limit dec ] [ ] cleanup ;
+
+
diff --git a/basis/hash-sets/wrapped/wrapped.factor b/basis/hash-sets/wrapped/wrapped.factor
new file mode 100644
index 0000000000..b70b7da618
--- /dev/null
+++ b/basis/hash-sets/wrapped/wrapped.factor
@@ -0,0 +1,50 @@
+! Copyright (C) 2013 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: accessors arrays hash-sets kernel sequences sets
+vocabs.loader ;
+
+IN: hash-sets.wrapped
+
+TUPLE: wrapped-key
+    { underlying read-only } ;
+
+TUPLE: wrapped-hash-set
+    { underlying hash-set read-only } ;
+
+GENERIC: wrap-key ( key wrapped-hash -- wrapped-key )
+
+<PRIVATE
+
+: wrapper@ ( key wrapped-hash -- wrapped-key hash-set )
+    [ wrap-key ] [ nip underlying>> ] 2bi ; inline
+
+PRIVATE>
+
+M: wrapped-hash-set adjoin
+    wrapper@ adjoin ; inline
+
+M: wrapped-hash-set ?adjoin
+    wrapper@ ?adjoin ; inline
+
+M: wrapped-hash-set in?
+    wrapper@ in? ; inline
+
+M: wrapped-hash-set clear-set
+    underlying>> clear-set ; inline
+
+M: wrapped-hash-set delete
+    wrapper@ delete ; inline
+
+M: wrapped-hash-set cardinality
+    underlying>> cardinality ; inline
+
+M: wrapped-hash-set members
+    underlying>> members [ underlying>> ] map ;
+
+M: wrapped-hash-set equal?
+    over wrapped-hash-set? [ [ underlying>> ] same? ] [ 2drop f ] if ;
+
+INSTANCE: wrapped-hash-set set
+
+{ "hash-sets.wrapped" "prettyprint" } "hash-sets.wrapped.prettyprint" require-when