;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017, 2019 Ricardo Wurmus ;;; Copyright © 2019 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages axoloti) #:use-module (guix utils) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix build-system gnu) #:use-module (guix build-system ant) #:use-module (gnu packages) #:use-
aboutsummaryrefslogtreecommitdiff
blob: 5bc7a5ce03cb650c6c83da4f42f40a0dfb9074e5 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
#! /usr/bin/env node
// -*- js -*-

"use strict";

var createHash = require("crypto").createHash;
var fetch = require("./fetch");
var spawn = require("child_process").spawn;
var zlib = require("zlib");
var args = process.argv.slice(2);
if (!args.length) args.push("-mc");
args.unshift("bin/uglifyjs");
args.push("--timings");
var urls = [
    "https://code.jquery.com/jquery-3.4.1.js",
    "https://code.angularjs.org/1.7.8/angular.js",
    "https://unpkg.com/mathjs@6.2.3/dist/math.js",
    "https://unpkg.com/react@15.3.2/dist/react.js",
    "https://cdnjs.cloudflare.com/ajax/libs/d3/6.7.0/d3.js",
    "https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.js",
    "https://cdnjs.cloudflare.com/ajax/libs/lodash.js/4.17.15/lodash.js",
    "https://cdnjs.cloudflare.com/ajax/libs/ember.js/2.12.2/ember.prod.js",
    "https://raw.githubusercontent.com/kangax/html-minifier/v4.0.0/dist/htmlminifier.js",
];
var results = {};
var remaining = 2 * urls.length;
function done() {
    if (!--remaining) {
        var failures = [];
        var sum = { input: 0, output: 0, gzip: 0 };
        urls.forEach(function(url) {
            var info = results[url];
            console.log();
            console.log(url);
            console.log(info.log);
            console.log("Original:", info.input, "bytes");
            console.log("Uglified:", info.output, "bytes");
            console.log("GZipped: ", info.gzip, "bytes");
            console.log("SHA1 sum:", info.sha1);
            if (info.code) {
                failures.push(url);
            }
            sum.input += info.input;
            sum.output += info.output;
            sum.gzip += info.gzip;
        });
        if (failures.length) {
            console.error("Benchmark failed:");
            failures.forEach(function(url) {
                console.error(url);
            });
            process.exit(1);
        } else {
            console.log();
            console.log("Subtotal");
            console.log();
            console.log("Original:", sum.input, "bytes");
            console.log("Uglified:", sum.output, "bytes");
            console.log("GZipped: ", sum.gzip, "bytes");
        }
    }
}
urls.forEach(function(url) {
    results[url] = {
        input: 0,
        output: 0,
        gzip: 0,
        log: ""
    };
    fetch(url, function(err, res) {
        if (err) throw err;
        var uglifyjs = spawn(process.argv[0], args, { silent: true });
        res.on("data", function(data) {
            results[url].input += data.length;
        }).pipe(uglifyjs.stdin);
        var sha1 = createHash("sha1");
        uglifyjs.stdout.on("data", function(data) {
            results[url].output += data.length;
        }).pipe(zlib.createGzip({
            level: zlib.Z_BEST_COMPRESSION
        })).on("data", function(data) {
            results[url].gzip += data.length;
            sha1.update(data);
        }).on("end", function() {
            results[url].sha1 = sha1.digest("hex");
            done();
        });
        uglifyjs.stderr.setEncoding("utf8");
        uglifyjs.stderr.on("data", function(data) {
            results[url].log += data;
        });
        uglifyjs.on("exit", function(code) {
            results[url].code = code;
            done();
        });
    });
});
table (lambda _ (for-each make-file-writable (find-files ".")) #t)) (delete 'configure) (replace 'build (lambda* (#:key inputs #:allow-other-keys) (setenv "JAVA_HOME" (assoc-ref inputs "icedtea")) ;; We want to use our own jar files instead of the pre-built ;; stuff in lib. So we replace the zipfileset tags in the ;; build.xml with new ones that reference our jars. (let* ((build.xml (with-input-from-file "build.xml" (lambda _ (xml->sxml #:trim-whitespace? #t)))) (jars (append-map (match-lambda (((? (cut string-prefix? "java-" <>) label) . directory) (find-files directory "\\.jar$")) (_ '())) inputs)) (classpath (string-join jars ":")) (fileset (map (lambda (jar) `(zipfileset (@ (excludes "META-INF/*.SF") (src ,jar)))) jars))) (call-with-output-file "build.xml" (lambda (port) (sxml->xml (pre-post-order build.xml `(;; Remove all zipfileset tags from the "jar" tree and ;; inject our own tags. (jar . ,(lambda (tag . kids) `(jar ,@(append-map (filter (lambda (e) (not (eq? 'zipfileset (car e))))) kids) ,@fileset))) ;; Skip the "bundle" target (and the "-post-jar" target ;; that depends on it), because we don't need it and it ;; confuses sxml->xml. (target . ,(lambda (tag . kids) (let ((name ((sxpath '(name *text*)) (car kids)))) (if (or (member "bundle" name) (member "-post-jar" name)) '() ; skip `(,tag ,@kids))))) (*default* . ,(lambda (tag . kids) `(,tag ,@kids))) (*text* . ,(lambda (_ txt) (match txt ;; Remove timestamp. ("${TODAY}" "(unknown)") (_ txt)))))) port))) ;; Build it! (invoke "ant" (string-append "-Djavac.classpath=" classpath) "-Dbuild.runtime=true" "-Dbuild.time=01/01/1970 00:00:00" "-Djavac.source=1.7" "-Djavac.target=1.7" (string-append "-Dtag.short.version=" ,version))))) (replace 'install (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (share (string-append out "/share/axoloti/"))) (install-file "dist/Axoloti.jar" share) ;; We do this to ensure that this package retains references to ;; other Java packages' jar files. (install-file "build.xml" share) ;; Create a launcher script (mkdir (string-append out "/bin")) (let ((target (string-append out "/bin/Axoloti"))) (with-output-to-file target (lambda () (let* ((dir (string-append (assoc-ref outputs "out") "/share/axoloti")) (runtime (string-append (assoc-ref inputs "axoloti-runtime") "/share/axoloti")) (toolchain (assoc-ref inputs "cross-toolchain")) (includes (string-append toolchain "/arm-none-eabi/include:" toolchain "/arm-none-eabi/include/arm-none-eabi/armv7e-m"))) (display (string-append "#!" (which "sh") "\n" "export CROSS_CPATH=" includes "\n" "export CROSS_CPLUS_INCLUDE_PATH=" includes "\n" "export CROSS_LIBRARY_PATH=" toolchain "/arm-none-eabi/lib" "\n" (which "java") " -Daxoloti_release=" runtime " -Daxoloti_runtime=" runtime " -jar " dir "/Axoloti.jar"))))) (chmod target #o555)) #t))) (add-after 'install 'strip-jar-timestamps (assoc-ref ant:%standard-phases 'strip-jar-timestamps))))) (inputs `(("icedtea" ,icedtea "jdk") ("cross-toolchain" ,arm-none-eabi-nano-toolchain-4.9) ("java-simple-xml" ,java-simple-xml) ("java-rsyntaxtextarea" ,java-rsyntaxtextarea) ("java-usb4java" ,java-usb4java) ("java-jsch" ,java-jsch) ("java-slf4j-api" ,java-slf4j-api) ("java-jgit" ,java-jgit-4.2) ("axoloti-runtime" ,axoloti-runtime))) (native-inputs `(("ant" ,ant) ("zip" ,zip) ; for repacking the jar ("unzip" ,unzip))) (description "The Axoloti patcher offers a “patcher” environment similar to Pure Data for sketching digital audio algorithms. The patches run on a standalone powerful microcontroller board: Axoloti Core. This package provides the patcher application."))) (define-public axoloti-patcher-next (package (name "axoloti-patcher-next") (version "2.0.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/axoloti/axoloti.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "022p993wf9l9mp6vg94x592vfqd1k1sjrq5f6x45h5r16qy6bdzh")) (modules '((guix build utils))) (snippet '(begin ;; Remove pre-built Java binaries. (delete-file-recursively "lib/") #t)))) (build-system gnu-build-system) (arguments `(#:tests? #f ; there's a Java test which is run as part of the Java build. #:modules ((guix build gnu-build-system) ((guix build ant-build-system) #:prefix ant:) (guix build utils) (srfi srfi-1) (srfi srfi-26) (ice-9 match) (ice-9 regex) (sxml simple) (sxml xpath) (sxml transform)) #:imported-modules ((guix build ant-build-system) (guix build syscalls) ,@%gnu-build-system-modules) #:phases (modify-phases %standard-phases (add-after 'unpack 'make-git-checkout-writable (lambda* (#:key inputs #:allow-other-keys) (copy-recursively (assoc-ref inputs "elfloader") "firmware/elfloader") (for-each make-file-writable (find-files ".")) #t)) (add-after 'unpack 'patch-paths (lambda* (#:key inputs #:allow-other-keys) ;; prepare ChibiOS (invoke "7z" "x" (assoc-ref inputs "chibios")) (with-directory-excursion "ChibiOS_19.1.3/ext" (invoke "7z" "x" "fatfs-0.13_patched.7z")) ;; Hardcode full path to compiler tools (substitute* '("ChibiOS_19.1.3/os/common/startup/ARMCMx/compilers/GCC/mk/arm-none-eabi.mk" "env/arm-none-eabi.mk") (("TRGT =.*") (string-append "TRGT = " (assoc-ref inputs "cross-toolchain") "/bin/arm-none-eabi-\n"))) ;; Hardcode path to "make" (substitute* "src/main/java/axoloti/shell/ShellTask.java" (("return \"make\"") (string-append "return \"" (which "make") "\""))) ;; Hardcode path to "dfu-util" (substitute* "src/main/java/axoloti/shell/UploadFirmwareDFU.java" (("Axoloti.getReleaseDir\\(\\) \\+ \"/platform_.+/bin/dfu-util\"") (string-append "\"" (which "dfu-util") "\""))) #t)) (delete 'configure) (replace 'build ;; Build Axoloti firmware with cross-compiler (lambda* (#:key inputs #:allow-other-keys) (let* ((toolchain (assoc-ref inputs "cross-toolchain")) (headers (string-append toolchain "/arm-none-eabi/include:" toolchain "/arm-none-eabi/include/arm-none-eabi/armv7e-m"))) (setenv "CROSS_CPATH" headers) (setenv "CROSS_CPLUS_INCLUDE_PATH" headers) (setenv "CROSS_LIBRARY_PATH" (string-append toolchain "/arm-none-eabi/lib"))) (with-directory-excursion "platform_linux" (invoke "sh" "compile_firmware.sh")))) (add-after 'build 'build-patcher (lambda* (#:key inputs outputs #:allow-other-keys) (setenv "JAVA_HOME" (assoc-ref inputs "jdk")) ;; We want to use our own jar files instead of the pre-built ;; stuff in lib. So we replace the zipfileset tags in the ;; build.xml with new ones that reference our jars. (let* ((build.xml (with-input-from-file "build.xml" (lambda _ (xml->sxml #:trim-whitespace? #t)))) (jars (append-map (match-lambda (((? (cut string-prefix? "java-" <>) label) . directory) (find-files directory "\\.jar$")) (_ '())) inputs)) (classpath (string-join jars ":")) (fileset (map (lambda (jar) `(zipfileset (@ (excludes "META-INF/*.SF") (src ,jar)))) jars))) (call-with-output-file "build.xml" (lambda (port) (sxml->xml (pre-post-order build.xml `( ;; Remove all zipfileset tags from the "jar" tree and ;; inject our own tags. (jar . ,(lambda (tag . kids) `(jar ,@(append-map (filter (lambda (e) (not (eq? 'zipfileset (car e))))) kids) ,@fileset))) ;; Skip the "bundle" target (and the "-post-jar" target ;; that depends on it), because we don't need it and it ;; confuses sxml->xml. (target . ,(lambda (tag . kids) (let ((name ((sxpath '(name *text*)) (car kids)))) (if (or (member "bundle" name) (member "-post-jar" name)) '() ; skip `(,tag ,@kids))))) (*default* . ,(lambda (tag . kids) `(,tag ,@kids))) (*text* . ,(lambda (_ txt) (match txt ;; Remove timestamp. ("${TODAY}" "(unknown)") (_ txt)))))) port))) ;; Build it! (invoke "ant" (string-append "-Djavac.classpath=" classpath) "-Dbuilt_by=guix" "-Dbuild.time=01/01/1970 00:00:00" "-Djavac.source=1.8" "-Djavac.target=1.8" (string-append "-Dshort.version=" ,version) ;; TODO: this is the output of: ;; git describe --long --tags --dirty --always (string-append "-Dbuild.version=" ,version "-0-g88b60feb"))))) (replace 'install (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (share (string-append out "/share/axoloti/"))) ;; TODO: don't copy *everything* from these directories. (for-each (lambda (dir) (copy-recursively dir (string-append share "/" dir))) '("api" "archive" "doc" "env" "firmware" "nbproject" "platform_linux")) (install-file "dist/Axoloti.jar" share) ;; Install old firmware (let ((target (string-append share "/old_firmware/")) (old-firmware (string-append (assoc-ref inputs "axoloti-runtime") "/share/axoloti/firmware/"))) (mkdir-p target) (install-file (string-append old-firmware "flasher/flasher_build/flasher.bin") target) ;; TODO: the old file differs from the file that is included ;; in this repository as the old firmware. (install-file (string-append old-firmware "build/axoloti.bin") target)) ;; We do this to ensure that this package retains references to ;; other Java packages' jar files. (install-file "build.xml" share) ;; Create a launcher script (mkdir (string-append out "/bin")) (let ((target (string-append out "/bin/Axoloti"))) (with-output-to-file target (lambda () (let* ((dir (string-append (assoc-ref outputs "out") "/share/axoloti")) (toolchain (assoc-ref inputs "cross-toolchain")) (includes (string-append toolchain "/arm-none-eabi/include:" toolchain "/arm-none-eabi/include/arm-none-eabi/armv7e-m"))) (display (string-append "#!" (which "sh") "\n" "export CROSS_CPATH=" includes "\n" "export CROSS_CPLUS_INCLUDE_PATH=" includes "\n" "export CROSS_LIBRARY_PATH=" toolchain "/arm-none-eabi/lib" "\n" (which "java") ;; Renderer arguments " -Xbootclasspath/a:" (assoc-ref inputs "java-marlin-renderer") "/lib/marlin.jar" " -Dsun.java2d.renderer=org.marlin.pisces.MarlinRenderingEngine" " -Daxoloti_release=" share " -jar " dir "/Axoloti.jar"))))) (chmod target #o555)) #t))) (add-after 'install 'strip-jar-timestamps (assoc-ref ant:%standard-phases 'strip-jar-timestamps))))) (inputs `(("jdk" ,icedtea "jdk") ("cross-toolchain" ,arm-none-eabi-nano-toolchain-7-2018-q2-update) ;; for compiling patches ("make" ,gnu-make) ;; for uploading compiled patches and firmware ("dfu-util" ,dfu-util-for-axoloti) ;; for org/apache/commons/lang3/tuple/ImmutablePair ("java-commons-lang3" ,java-commons-lang3) ("java-jgit" ,java-jgit-4.2) ("java-jsch" ,java-jsch) ("java-marlin-renderer" ,java-marlin-renderer) ("java-piccolo2d-core" ,java-piccolo2d-core) ("java-piccolo2d-extras" ,java-piccolo2d-extras) ("java-rsyntaxtextarea" ,java-rsyntaxtextarea) ("java-simple-xml" ,java-simple-xml) ("java-slf4j-api" ,java-slf4j-api) ("java-usb4java" ,java-usb4java))) (native-inputs `(("ant" ,ant) ("axoloti-runtime" ,axoloti-runtime) ; for old firmware ("java-junit" ,java-junit) ("java-hamcrest-core" ,java-hamcrest-core) ("p7zip" ,p7zip) ("zip" ,zip) ; for repacking the jar ("elfloader" ,(let ((commit "d0f93acac6577a069b8739bf42c9500e9a862988")) (origin (method git-fetch) (uri (git-reference (url "https://github.com/JohannesTaelman/elfloader.git") (commit commit))) (file-name (git-file-name "elfloader" commit)) (sha256 (base32 "0zsy6w784amfq4vr1qnx8xvy70v33gvffz1vljllwppdc8s3khmn"))))) ("chibios" ,(origin (method url-fetch) (uri "http://rwthaachen.dl.osdn.jp/chibios/70739/ChibiOS_19.1.3.7z") (sha256 (base32 "1090alqp1z1bhj1z8ls04a350kbs8hsjcpkfddbprds73zbnnpk9")))))) (home-page "http://www.axoloti.com/") (synopsis "Audio development environment for the Axoloti core board") (description "The Axoloti patcher offers a “patcher” environment similar to Pure Data for sketching digital audio algorithms. The patches run on a standalone powerful microcontroller board: Axoloti Core.") (license (list license:gpl3+ ; the whole project and GUI license:bsd-3)))) ; the elfloader