Initial commit

lib/build-chicken-parallel/default.nix

@@ -0,0 +1,20 @@
+{ callPackage, python3, stdenv, chickenPackages, ninja, pkg-config, libfaketime }: let
+  process = callPackage ./process.nix {};
+in
+{ name, src, buildInputs, buildAgainst ? [], overrides ? { } }: let
+  buildAgainstList = builtins.toString buildAgainst;
+in stdenv.mkDerivation ({
+ inherit name src;
+
+  buildInputs = [ chickenPackages.chicken ninja pkg-config libfaketime ] ++ buildInputs;
+  propagatedBuildInputs = buildInputs;
+
+  enableParallelBuilding = true;
+  dontStrip = true;
+
+  configurePhase = ''
+   runHook preConfigure
+   ${process}/bin/process ${name} ./ $out/lib/chicken/11 ${if buildAgainst == [] then ''"" ""'' else ''"$(pkg-config --cflags ${buildAgainstList})" "$(pkg-config --libs ${buildAgainstList})"''}
+   runHook postConfigure
+  '';
+} // overrides)

lib/build-chicken-parallel/process.egg

@@ -0,0 +1,9 @@
+((version "0.0.1")
+ (synopsis "process egg files")
+ (author "puck")
+ (dependencies r7rs)
+ (component-options
+  (csc-options "-X" "r7rs" "-R" "r7rs" "-optimize-level" "3"))
+ (components
+  (program process
+    (source "process.scm"))))

lib/build-chicken-parallel/process.nix

@@ -0,0 +1,10 @@
+{ eggDerivation, chickenPackages }:
+eggDerivation {
+  name = "process";
+  src = ./.;
+
+  buildInputs = with chickenPackages.chickenEggs; [
+    r7rs
+  ];
+}
+

lib/build-chicken-parallel/process.scm

@@ -0,0 +1,139 @@
+(import (scheme base) (scheme read) (scheme write) (scheme process-context))
+
+(define egg-name (cadr (command-line)))
+
+(define srcdir (caddr (command-line)))
+(define outdir (cadr (cddr (command-line))))
+(define extra-cflags (cadr (cdr (cddr (command-line)))))
+(define extra-ldflags (cadr (cddr (cddr (command-line)))))
+
+(define shared-flags '())
+(define link-flags '())
+(define installed-files '())
+
+(unless (string=? extra-cflags "") (set! shared-flags (list "-C" extra-cflags)))
+(unless (string=? extra-ldflags "") (set! link-flags (list "-L" extra-ldflags)))
+
+; TODO(puck): make this actually escaped
+(define (make-escaped-string val) (string-append "'" val "'"))
+
+(define (emit-build outputs implicit-outputs rulename deps implicit-deps flags)
+  (write-string "build ")
+  (for-each (lambda (output) (write-string " ") (write-string output)) outputs)
+  (unless (eq? implicit-outputs '()) (write-string " |"))
+  (for-each (lambda (implicit-output) (write-string implicit-output) (write-string " ")) implicit-outputs)
+  (write-string ": ")
+  (write-string rulename)
+  (for-each (lambda (dep) (write-string " ") (write-string dep)) deps)
+  (unless (eq? implicit-deps '()) (write-string " |"))
+  (for-each (lambda (implicit-dep) (write-string implicit-dep) (write-string " ")) implicit-deps)
+  (write-string "\n")
+  (for-each (lambda (flag) (write-string "    ") (write-string (symbol->string (car flag))) (write-string " = ") (write-string (cdr flag)) (write-string "\n")) flags))
+ 
+
+(define counter 1)
+(define (inc-ctr)
+  (set! counter (+ counter 1))
+  (string-append "1980-01-01 00:00:" (number->string counter)))
+
+(define (process-component component)
+  (define name (symbol->string (cadr component)))
+  (define source #f)
+  (define deps '())
+  (define csc-options shared-flags)
+  (for-each
+   (lambda (v)
+    (case (car v)
+     ((source) (set! source (cadr v)))
+     ((component-dependencies) (set! deps (cdr v)))
+     ((csc-options) (set! csc-options (append csc-options (cdr v))))))
+   (cddr component))
+  
+  (define flagobj (list (cons 'unit name)))
+  (define flagstr "")
+  (unless (eq? csc-options shared-flags)
+    (for-each (lambda (f) (set! flagstr (string-append flagstr " " (make-escaped-string f)))) csc-options)
+    (set! flagobj (cons (cons 'flags flagstr) flagobj)))
+
+  (emit-build
+     (list (string-append name ".so"))
+     (list (string-append name ".import.scm"))
+     "csc_shared" (list (string-append srcdir source))
+     (map (lambda (dep) (string-append (symbol->string dep) ".import.so")) deps)
+     (cons (cons 'rnd (inc-ctr)) flagobj))
+
+  (emit-build
+     (list (string-append name ".static.o"))
+     (list (string-append name ".link"))
+     "csc_static" (list (string-append srcdir source))
+     (map (lambda (dep) (string-append (symbol->string dep) ".import.so")) deps)
+     (cons (cons 'rnd (inc-ctr)) (cons (cons 'linkfile (string-append name ".link")) flagobj)))
+
+  (emit-build
+     (list (string-append name ".import.so"))
+     '()
+     "csc_shared_import" (list (string-append name ".import.scm"))
+     '()
+     (cons (cons 'rnd (inc-ctr)) flagobj))
+
+  (write-string (string-append "default " name ".so " name ".static.o " name ".import.so\n"))
+
+  (emit-build (list (string-append outdir "/" name ".import.so")) '() "install" (list (string-append name ".import.so")) '() '())
+  (emit-build (list (string-append outdir "/" name ".so")) '() "install" (list (string-append name ".so")) '() '())
+  (emit-build (list (string-append outdir "/" name ".o")) '() "install" (list (string-append name ".static.o")) '() '())
+  (emit-build (list (string-append outdir "/" name ".link")) '() "install" (list (string-append name ".link")) '() '())
+
+
+  (set! installed-files
+      (append installed-files
+         (list
+          (string-append outdir "/" name ".o")
+          (string-append outdir "/" name ".so")
+          (string-append outdir "/" name ".link")
+          (string-append outdir "/" name ".import.so")))))
+
+(define egg (with-input-from-file (string-append egg-name ".egg") read))
+
+(with-output-to-file "build.ninja"
+ (lambda ()
+  (display "rule csc_shared
+    command = faketime -f \"$rnd\" csc -host -D compiling-extension -regenerate-import-libraries -setup-mode $flags $linkflags -J -shared $in -o $out
+    description = CSC $unit (shared)
+
+rule csc_shared_import
+    command = faketime -f \"$rnd\" csc -host -setup-mode $flags $linkflags -J -shared $in -o $out
+    description = CSC $unit (import)
+
+rule csc_static
+    command = faketime -f \"$rnd\" csc -host -D compiling-extension -D compiling-static-extension -regenerate-import-libraries -setup-mode -profile $flags -emit-link-file $linkfile -c -unit $unit -M -static $in -o $out
+    description = CSC $unit (static)
+
+rule install
+    command = mkdir -p $$(dirname $out) && cp $in $out
+    description = INST $in
+")
+  (for-each
+   (lambda (val)
+       (when (eq? (car val) 'component-options)
+           (for-each
+            (lambda (v)
+              (when (eq? (car v) 'csc-options)
+                    (set! shared-flags `(,@shared-flags ,@(cdr v)))
+                    (write-string "flags =")
+                    (for-each (lambda (l) (write-string (string-append " " (make-escaped-string l)))) shared-flags)
+                    (write-string "\n"))
+              (when (eq? (car v) 'link-options)
+                    (set! link-flags `(,@link-flags ,@(cdr v)))
+                    (write-string "linkflags =")
+                    (for-each (lambda (l) (write-string (string-append " " (make-escaped-string l)))) link-flags)
+                    (write-string "\n"))) (cdr val)))
+       (when (eq? (car val) 'components)
+             (for-each process-component (cdr val))))
+   egg)
+  (emit-build (list (string-append outdir "/" egg-name ".egg-info")) '() "install" (list (string-append egg-name ".egg-info")) '() '())
+  (set! installed-files (cons (string-append outdir "/" egg-name ".egg-info") installed-files))
+  (emit-build '("install") '() "phony" installed-files '() '())))
+
+
+(define egginfo `((installed-files ,@installed-files) ,@egg))
+(with-output-to-file (string-append egg-name ".egg-info") (lambda () (write egginfo)))