+forge deps

Author: bennn

src/asn1-lib/ber.rkt

@@ -0,0 +1,54 @@
+;; Copyright 2017-2019 Ryan Culpepper
+;; SPDX-License-Identifier: Apache-2.0
+
+#lang racket/base
+(require racket/contract/base
+         racket/match
+         (for-syntax racket/base syntax/transformer)
+         "private/base.rkt"
+         "private/types.rkt"
+         "private/ber-frame.rkt"
+         "private/ber.rkt")
+(provide (rename-out [BER-frame* BER-frame])
+         BER-frame?
+         BER-frame-tag-class
+         BER-frame-tag-number
+         BER-frame-content
+         (contract-out
+          [read-BER-frame
+           (->* [] [input-port? #:der? any/c #:limit (or/c exact-nonnegative-integer? #f)]
+                BER-frame?)]
+          [write-BER-frame
+           (->* [BER-frame?] [output-port? #:der? any/c] void?)]
+          [BER-encode (->* [asn1-type? any/c] [#:der? any/c] BER-frame?)]
+          [BER-decode (->* [asn1-type? BER-frame?] [#:der? any/c] any/c)]))
+
+(define (make-BER-frame tagclass tagn content)
+  (BER-frame (make-tag tagclass tagn) content))
+
+(define-module-boundary-contract make-BER-frame* make-BER-frame
+  (-> (or/c 'universal 'application 'context-sensitive 'private)
+      exact-positive-integer?
+      (or/c bytes? (listof (or/c bytes? BER-frame?)))
+      BER-frame?)
+  #:name-for-blame BER-frame)
+
+(define-match-expander BER-frame*
+  (syntax-rules ()
+    [(_ tagclass tagn content)
+     (? BER-frame?
+        (app BER-frame-tag-class tagclass)
+        (app BER-frame-tag-number tagn)
+        (app BER-frame-content content))])
+  (make-variable-like-transformer #'make-BER-frame*))
+
+(define (write-BER-frame frame [out (current-output-port)] #:der? [der? #f])
+  (write-frame frame out der?))
+
+(define (read-BER-frame [in (current-input-port)] #:der? [der? #f] #:limit [limit #f])
+  (define br (make-asn1-binary-reader in #:limit limit))
+  (read-frame br der?))
+
+;; BER-decode : Type BER-Frame Boolean -> Any
+(define (BER-decode type frame #:der? [der? #f])
+  (decode-frame type frame der?))

src/asn1-lib/info.rkt

@@ -0,0 +1,18 @@
+;; Copyright 2014-2022 Ryan Culpepper
+;; SPDX-License-Identifier: Apache-2.0
+
+#lang info
+
+;; ========================================
+;; pkg info
+
+(define version "1.3")
+(define collection "asn1")
+(define deps '("base" ["binaryio-lib" #:version "1.1"]))
+(define pkg-authors '(ryanc))
+(define license 'Apache-2.0)
+
+;; ========================================
+;; collect info
+
+(define name "asn1")