drewc

		       ━━━━━━━━━━━━━━━━━━━━━━━━━
			I LOVE A SLIME'Y SWANK!


			     Drew Crampsie
		       ━━━━━━━━━━━━━━━━━━━━━━━━━


Table of Contents
─────────────────

drewc

(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define drewc/gurf/surf#surf-driver!
    (lambda ()
      (letrec* ((_min-sleep119_ '1e-5)
                (_max-sleep120_ '.05)
                (_sleep-incr121_ '1e-8)
                (_sleep122_ _min-sleep119_)
                (_sleepy123_
                 (lambda ()

drewc

(import (for-syntax :drewc/gsf/glib) :std/foreign
        :drewc/gsf/glib :std/srfi/13)
(export read-bytes-from-input input-tell input-seek input-byte-position)

(begin-glib-ffi (read-bytes-from-input input-tell input-seek G_SEEK_SET G_SEEK_CURR G_SEEK_END)

  (c-declare #<<END-C


#include <gsf/gsf.h>

drewc

(user)> (def (pregexp-match* re str (start 0) (end (string-length str)))
            (def (%m start end)
                (if (= start end)
                    '() (let ((first (pregexp-match-positions re str start end)))
                          (if (not first) '() 
                              (cons (cadr first) (%m (+ 1 start) end))))))
          (let ((idxs (delete-duplicates (%m start end) equal?)))
            (map (lambda (idx) (substring str (car idx) (cdr idx))) idxs)))
            
#!void

drewc

defsyntax (define-endpoint stx)

  (def (%defvar name match in)
    (let ((e (gensym))
	  (i (gensym))
	  (c (gensym))
	  (varname (string->symbol (format "~A::endpoint"
					   name))))
      `(define ,varname
	 (let ((,e

drewc

(defun sequence-right-trim (thing sequence)
           (let ((last (elt sequence (- (length sequence) 1))))
             (if (equalp thing last)
                 (subseq sequence 0 (1+ (position-if-not (lambda (c) (equalp c thing)) sequence :from-end t)))
                 sequence)))

drewc

* Install 
** libs

#+BEGIN_SRC shell
sudo apt-get install openssl libssl-dev \
     sqlite3 libsqlite3-dev build-essential automake zlib1g-dev \
     liblmdb-dev libtool  libjson-perl  
#+END_SRC

** Gambit 

drewc

Verifying that +drewc is my blockchain ID. https://onename.com/drewc