aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/axoloti.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/axoloti.scm')
-rw-r--r--gnu/packages/axoloti.scm275
1 files changed, 273 insertions, 2 deletions
diff --git a/gnu/packages/axoloti.scm b/gnu/packages/axoloti.scm
index a3ca6b6844..94d3d818c5 100644
--- a/gnu/packages/axoloti.scm
+++ b/gnu/packages/axoloti.scm
@@ -32,6 +32,7 @@
#:use-module (gnu packages embedded)
#:use-module (gnu packages flashing-tools)
#:use-module (gnu packages java)
+ #:use-module (gnu packages java-graphics)
#:use-module (gnu packages libusb)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages textutils)
@@ -65,7 +66,7 @@
(define-public axoloti-runtime
(package
(name "axoloti-runtime")
- (version "1.0.12")
+ (version "1.0.12-2")
(source
(origin
(method git-fetch)
@@ -74,7 +75,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
- (base32 "05hyr9qx9dplp0gkx4v34i17972b3f512qndnarzy4wzfpnp0s3b"))
+ (base32 "1qffis277wshldr3i939b0r2x3a2mlr53samxqmr2nk1sfm2b4w9"))
(modules '((guix build utils)))
(snippet
'(begin
@@ -357,3 +358,273 @@ runtime.")
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