README.md

@@ -34,6 +34,7 @@ section in [Guix's manual](http://guix.gnu.org/manual/).
 - [bic@1.0.0](https://github.com/hexagonal-sun/bic) - C interpreter and API explorer
 - [birch@0.0.1-2.27691aa](https://github.com/dylanaraps/birch.git) - Internet Relay Chat client
 - [cdrdao@1.2.4](http://cdrdao.sourceforge.net/) - Write audio/data CD-Rs in disk-at-once mode
+- [emma_02@1.36](https://www.emma02.hobby-site.com) - RCA CDP1802 Multi-system Emulator
 - [gappa@1.3.5](http://gappa.gforge.inria.fr/) - Proof generator for arithmetic properties
 - [gneuralnetwork@0.9.1](https://www.gnu.org/software/gneuralnetwork/) - Programmable neural network
 - [gpsim@0.31.0](http://gpsim.sourceforge.net/) - Software emulator for PIC microcontrollers
@@ -43,5 +44,5 @@ section in [Guix's manual](http://guix.gnu.org/manual/).
 - [sdcc@3.9.0](http://sdcc.sourceforge.net/) - Small Device C Compiler
 - [sollya@7.0](http://sollya.gforge.inria.fr/) - Development environment for safe floating-point code
 - [treedec@0.9.0-0.aceed46](https://github.com/freetdi/tdlib) - Library of tree decomposition algorithms
-- [xorgxrdp@0.2.13](http://www.xrdp.org) - Xorg drivers for xrdp
-- [xrdp@0.9.13](http://www.xrdp.org) - Remote Desktop Protocol server
+- [xorgxrdp@0.2.13](http://xrdp.org) - Xorg drivers for xrdp
+- [xrdp@0.9.13.1](http://xrdp.org) - Remote Desktop Protocol server

bavier/licenses.scm

@@ -1,10 +1,12 @@
 ;;; This file is part of guix-bavier.git
-;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2019,2020 Eric Bavier <bavier@posteo.net>
 ;;; License: GPLv3+
 
 (define-module (bavier licenses)
   #:use-module (guix licenses)
-  #:export (non-redistributable-assets))
+  #:export (non-redistributable-assets
+            cc-by-nc-sa3.0
+            permission-for-commercial))
 
 (define license
   (@@ (guix licenses) license))
@@ -15,3 +17,13 @@
 	   (string-append
 	    "This software contains assets which cannot be freely redistributed.  "
 	    comment)))
+
+(define cc-by-nc-sa3.0
+  (license "CC BY-NC-SA 3.0"
+           "https://creativecommons.org/licenses/by-nc-sa/3.0/"
+           "https://www.gnu.org/licenses/license-list.html#CC-BY-NC"))
+
+(define (permission-for-commercial uri)
+  (license "permission-for-commercial"
+           uri
+           "Requires written permission for author to use in commercial applications."))

bavier/packages/emulators.scm

@@ -0,0 +1,120 @@
+;;; This file is part of guix-bavier.git
+;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
+;;; License: GPLv3+
+
+(define-module (bavier packages emulators)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix git-download)
+  #:use-module (guix licenses)
+  #:use-module (bavier licenses)
+  #:use-module (guix packages)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages electronics)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages wxwidgets))
+
+;;; TODO: See if we can read data files directly from the store, rather than
+;;; importing them into the users home directory.
+(define-public emma-02
+  (package
+   (name "emma_02")
+   (version "1.36")
+   (source (origin
+            (method git-fetch)
+            (uri (git-reference
+                  (url "https://github.com/etxmato/emma_02")
+                  (commit "4f2fb6d99aab8a8126a3e8ba58f94d0a5e0445fb")))
+            (file-name (git-file-name name version))
+            (sha256
+             (base32
+              "0kifjirq9fps43gvagw7z3z0zbizcp0bsvma85wlxcsblsnlwa0f"))))
+   (build-system gnu-build-system)
+   (inputs
+    `(("curl" ,curl)
+      ("libserialport" ,libserialport)
+      ("sdl" ,(sdl-union (list sdl sdl-mixer)))
+      ("wxwidgets" ,wxwidgets)))
+   (arguments
+    `(#:tests? #f                       ; No tests
+      #:modules ((ice-9 ftw)
+                 ,@%gnu-build-system-modules)
+      #:phases
+      (modify-phases %standard-phases
+        (delete 'configure)
+        (replace 'build
+          (lambda* (#:key inputs #:allow-other-keys)
+            (for-each (lambda (v)
+                        (setenv v (string-append (assoc-ref inputs "sdl")
+                                                 "/include/SDL:"
+                                                 (or (getenv v) ""))))
+                      (list "CPLUS_INCLUDE_PATH" "C_INCLUDE_PATH"))
+            (chdir "Release")
+            (invoke "make")
+            (chdir "..")
+            #t))
+        (replace 'install
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let* ((out (assoc-ref outputs "out"))
+                   (bin (string-append out "/bin"))
+                   (data (string-append out "/share"))
+                   (emma (string-append data "/emma_02"))
+                   (doc (string-append data "/doc/emma_02"))
+                   (copy (lambda (src dst)
+                           (copy-recursively src (string-append dst "/" src)))))
+              (install-file "Release/emma_02" bin)
+              (install-file "copyright.rtf" doc)
+              (install-file "introduction.rtf" doc)
+              (install-file "Linux build/emma_02.desktop"
+                            (string-append data "/applications"))
+              (install-file "Linux build/emma02.xpm"
+                            (string-append data "/pixmaps"))
+              (for-each (lambda (f) (install-file f emma))
+                        (scandir "." (lambda (file)
+                                       ((file-name-predicate
+                                         ".*\\.(syntax|def|xrc|ini|htb)")
+                                        file #t))))
+              (copy "data" emma)
+              (copy "Configurations" emma)
+              (copy "images" emma)
+              (copy "images_linux" emma)
+              #t))))))
+   (home-page "https://www.emma02.hobby-site.com")
+   (synopsis "RCA CDP1802 Multi-system Emulator")
+   (description "The Emma 02 Emulator can emulate the following computers:
+@itemize @bullet
+@item CDP18S020 Evaluation Kit
+@item Cidelsa
+@item COMX-35
+@item Cosmac Elf
+@item Cosmac Elf 2000
+@item Cosmac VIP
+@item Cosmac VIP II, supporting two versions: ED and RCA
+@item Cosmicos
+@item ETI 660
+@item FRED 1
+@item FRED 1.5
+@item Infinite UC1800
+@item MCDS, Microboard Computer Development System
+@item Membership Card
+@item Microboard System, supporting CPU boards CDP18S600 to CDP18S610
+@item Microtutor
+@item Microtutor II
+@item MS 2000, MicroDisk Development System
+@item Netronics Elf II
+@item Oscom Nano
+@item Pecom 32 and 64
+@item Quest Super Elf
+@item RCA Coin Arcade
+@item RCA Studio II
+@item RCA Studio III / Victory MPT-02
+@item RCA Studio IV
+@item Telmac TMC-600
+@item Telmac 1800
+@item Telmac 2000
+@item VELF
+@item VIP2K Membership Card
+@item Visicom COM-100
+@end itemize")
+   (license (list lgpl2.0+
+                  cc-by-nc-sa3.0        ; Quest Electronics components
+                  (permission-for-commercial "src/about.cpp")))))