fakedrake

set queries {
    {
        select sum(lo_extendedprice*lo_discount) as revenu
        from lineorder, date
        where lo_orderdate = d_datekey
        and d_yearmonthnum = 199401
        and lo_discount between 4 and 6
        and lo_quantity between 26 and 35
    }

fakedrake

/*
 * ----------------------------------------------------------------------------
 * "THE BEER-WARE LICENSE" (Revision 80085):
 * <cperivol@csail.mit.edu> wrote this file. As long as you retain this notice you
 * can do whatever you want with this stuff. If we meet some day, and you think
 * this stuff is worth it, you can buy me a beer in return
 *
 * Chris Perivolaropoulos.
 * ----------------------------------------------------------------------------
 */

fakedrake

(defmacro with-repeating (threads repetitions &rest body)
  `(mapc #'sb-thread:join-thread
        (loop repeat ,threads
              collect (sb-thread:make-thread
                       (lambda () (loop repeat ,repetitions do ,@body))))))

(defstruct atomic-var
  (data 0 :type (unsigned-byte 64)))

(proclaim '(optimize (safety 0) (speed 3)))

fakedrake

(defun subpennant-sym (i) (intern (format nil "subpennant-~D" i)))
(defun pennant-type-name (ty i) (intern (format nil "pennant-type-~D" i)))
(defmacro def-pennant (ty n)
  "A pennant is a balanced tree of depth N. (def-pennant 5 integer) expands to


; ... define pennant-type-{0..4}
(struct pennant-type-5
  (node :type integer)
  (subpennant-0 :type pennant-type-0)

fakedrake

https://drive.google.com/file/d/1tMOUrOVqGLixYPdzLMGFH2TGauqmyEta/view?usp=drivesdk

fakedrake

(define (test)
  (import chicken.format simple-loops micro-benchmark vector-lib random-mtzig)

  (define workload-size 10)
  (define concurrent-workers 20)


  (define lookup-array (vector-unfold values 1000000))

  (define final-cont 0)

fakedrake

> (test)
; loading /opt/homebrew/Cellar/chicken/5.2.0/lib/chicken/11/format.so ...
; loading /opt/homebrew/Cellar/chicken/5.2.0/lib/chicken/11/simple-loops.so ...
A:start
B:start
A 0:pre
B 0:pre
A 0:post
A 1:pre
B 0:post

fakedrake

(define (test)
  (import format)
  (iqmport simple-loops)

  (define final-cont 0)
  (define cont-queue (make-vector 10))
  (define cont-queue-front 0)
  (define cont-queue-back 0)

fakedrake

(import format)

(define (test)
  (define cont-queue (vector-unfold values 10))
  (define cont-queue-front 0)
  (define cont-queue-back 0)

  (define (cont-queue-size)
    (- cont-queue-front cont-queue-back))

fakedrake

#include <cstdint>
#include <vector>
#include <atomic>
#include <optional>


// The vectors here are explicitly oragnized as pages. The kernel does
// not provide a way for userland to remap pages, so we remap them by
// hand instead of copying data when concatenating. Specifically we
// create a vector of references to pages that will be read only