rearrange benchmarks into dev dir

Author: garlic0x1

dev/benchmark.lisp

@@ -0,0 +1,37 @@
+(in-package #:rope/dev)
+
+;; (progn
+;;   (sb-ext:restrict-compiler-policy 'speed 3 3)
+;;   (sb-ext:restrict-compiler-policy 'debug 0 0)
+;;   ;; (sb-ext:restrict-compiler-policy 'space 0 0)
+;;   (sb-ext:restrict-compiler-policy 'safety 0 0))
+
+
+(defparameter *readme*
+  (merge-pathnames "README.md" (asdf:system-source-directory :rope)))
+
+(defun print-time (time reps length)
+  (format t "rope size: ~a, ~a microseconds~%"
+          length
+          (* 1000000 (/ time reps))))
+
+(defmacro time* (&body body)
+  `(let ((time))
+     (sb-ext:call-with-timing
+      (lambda (&rest plist) (setf time (getf plist :real-time-ms)))
+      (lambda () ,@body))
+     (coerce (/ time 1000) 'float)))
+
+(defun benchmark-insert (&optional (reps 1000000))
+  (with-open-file (s *readme*)
+    (let* ((starting-rope (split-rope (make-rope s) 1000))
+           (rope starting-rope))
+      (dotimes (i 100)
+        (print-time
+         (time*
+           (dotimes (i reps)
+             (insert-rope rope (random (rope-length rope)) "Hello, world!")))
+         reps
+         (rope-length rope))
+        (force-output)
+        (setf rope (concat-rope rope starting-rope))))))

dev/graphviz.lisp

@@ -22,21 +22,21 @@
   (let ((obj (root-rope obj)))
     (graph-object-points-to self obj)))
 
-(defmethod graph-object-node ((self (eql 'rope)) (obj branch))
+(defmethod graph-object-node ((self (eql 'rope)) (obj rope::branch))
   (make-instance 'node
                  :attributes `(:label ,(format nil "length: ~a~%depth: ~a"
                                                (rope-length obj)
                                                (rope-depth obj)))))
 
-(defmethod graph-object-points-to ((self (eql 'rope)) (obj branch))
+(defmethod graph-object-points-to ((self (eql 'rope)) (obj rope::branch))
   (list (make-instance 'attributed
-                       :object (branch-right obj)
+                       :object (rope::branch-right obj)
                        :attributes `(:label "R"))
         (make-instance 'attributed
-                       :object (branch-left obj)
+                       :object (rope::branch-left obj)
                        :attributes `(:label "L"))))
 
-(defmethod graph-object-node ((self (eql 'rope)) (obj leaf))
+(defmethod graph-object-node ((self (eql 'rope)) (obj rope::leaf))
   (make-instance 'node
                  :attributes `(:label ,(format nil "~a"
                                                (rope::leaf-string obj))

dev/package.lisp

@@ -1,4 +1,7 @@
 (defpackage #:rope/dev
   (:use #:cl #:cl-dot #:rope)
   (:export
-   #:graph-ropes))
+   ;; graphviz.lisp
+   #:graph-ropes
+   ;; benchmark.lisp
+   ))