From ecfa271e9a3c0b88481f4590e1f0ccacaada3aa1 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 11 Nov 2020 19:42:30 +0100
Subject: Electronics package with nonfree PIC software programming

---
 electronics.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/electronics.scm b/electronics.scm
index 58d54e2..077e931 100644
--- a/electronics.scm
+++ b/electronics.scm
@@ -1,6 +1,12 @@
 (define-module (electronics)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (gnu packages bison)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages flex)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages texinfo)
+  #:use-module (guix build-system gnu)
   #:use-module (guix build-system gnu)
   #:use-module ((guix licenses) #:prefix license:))
 
@@ -22,3 +28,46 @@
     (description "GPUTILS is a collection of tools for the Microchip (TM) PIC
 microcontrollers.  It includes gpasm, gplink, and gplib.")
     (license license:gpl2+)))
+
+(define-public sdcc-nonfree
+  (package
+    (name "sdcc-nonfree")
+    (version "3.7.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://sourceforge/sdcc/sdcc"
+                    "/" version "/sdcc-src-" version ".tar.bz2"))
+              (sha256
+               (base32
+                "13llvx0j3v5qa7qd4fh7nix4j3alpd3ccprxvx163c4q8q4lfkc5"))))
+    (build-system gnu-build-system)
+    (inputs
+      `(("gputils" ,gputils)))
+    (native-inputs
+     `(("bison" ,bison)
+       ("boost" ,boost)
+       ("flex" ,flex)
+       ("python-2" ,python-2)
+       ("texinfo" ,texinfo)))
+    (arguments
+     `(;; Allow non-free software for PIC microcontroller support
+       #:configure-flags
+       '("--enable-ucsim")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-makefile
+           (lambda _
+             (substitute* (find-files "." "(\\.mk$|\\.in$)")
+               (("/bin/sh") (which "sh")))
+             #t)))))
+    (home-page "http://sdcc.sourceforge.net")
+    (synopsis "Small devices C compiler")
+    (description "SDCC is a retargetable, optimizing Standard C compiler suite
+that targets the Intel MCS51-based microprocessors (8031, 8032, 8051, 8052, ...),
+Maxim (formerly Dallas) DS80C390 variants, Freescale (formerly Motorola)
+HC08-based (hc08, s08), Zilog Z80-based MCUs (z80, z180, gbz80, Rabbit
+2000/3000, Rabbit 3000A, TLCS-90) and STMicroelectronics STM8.
+Work is in progress on supporting the Microchip PIC16 and PIC18 targets.
+It can be retargeted for other microprocessors.")
+    (license license:gpl2+)))
-- 
cgit v1.2.3