From 0c7ff04ce7ef6f9051042238de48eee51f5627ae Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 19 Jan 2009 22:24:30 -0600
Subject: [PATCH] make asn1 work again

---
 extra/asn1/asn1.factor | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index b087d3ae2b..51a9f5bbf9 100644
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -7,6 +7,24 @@ math.parser namespaces make pack strings sequences accessors ;
 
 IN: asn1
 
+<PRIVATE
+
+: (>128-ber) ( n -- )
+    dup 0 > [
+        [ HEX: 7f bitand HEX: 80 bitor , ] keep -7 shift
+        (>128-ber)
+    ] [
+        drop
+    ] if ;
+
+PRIVATE>
+
+: >128-ber ( n -- str )
+    [
+        [ HEX: 7f bitand , ] keep -7 shift
+        (>128-ber)
+    ] { } make reverse ;
+
 : tag-classes ( -- seq )
     { "universal" "application" "context_specific" "private" } ;