neox
/
configurations-guix
1
0
Fork 0
Code Issues Pull Requests Releases Activity

nett

This commit is contained in:
Adrien 'neox' Bourmault 2024-02-23 16:12:02 +01:00
parent 29713b05ab
commit d92d40eb23
No known key found for this signature in database
GPG Key ID: 2974E1D5F25DFCC8
6 changed files with 301 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
channels.scm
View File

@ -1,5 +0,0 @@
(use-modules (guix ci))
(list (channel-with-substitutes-available
%default-guix-channel
"https://ci.guix.gnu.org"))

193
packages/defs/ada.scm Normal file
View File

@ -0,0 +1,193 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2022 Peter Polidoro <peter@polidoro.io>
;;;
;;; 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 <http://www.gnu.org/licenses/>.
(define-module (ada)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages bootstrap)
#:use-module (gnu packages compression)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages gcc)
#:use-module (gnu packages elf)
#:use-module (guix build-system copy)
#:use-module (guix build utils)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (ice-9 popen))
(define-public libgnat-bootstrap
(package
(name "libgnat-bootstrap")
(version "10.3.0")
(source (origin
(method url-fetch)
(uri (string-append "http://us.archive.trisquel.info/trisquel/pool/main/g/"
"gcc-10/libgnat-10_"
version
"-15ubuntu1_amd64.deb"))
(sha256
(base32
"1grd7k4qjdclj12lqvrm5iamqixf0f5292zigrp4q9b3r509q13x"))))
(build-system copy-build-system)
(arguments
(list
#:validate-runpath? #f
#:phases
#~(modify-phases %standard-phases
(replace 'unpack
(lambda* (#:key source #:allow-other-keys)
(invoke "ar" "x" source)
(invoke "tar" "axvf" "data.tar.zst")
;(invoke "mv" "usr/bin" "bin")
(invoke "mv" "usr/lib" "lib")
(invoke "mv" "usr/share" "share")
;(invoke "mv" "usr/x86_64-linux-gnu" "x86_64-linux-gnu")
(invoke "rm" "control.tar.zst")
(invoke "rm" "debian-binary")
(invoke "rm" "data.tar.zst")
(invoke "rm" "-r" "usr")
#t))
(add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(gnat (string-append out "/bin/gnat")))
(wrap-program gnat ))))
;(add-after 'install 'fix-rpath
; (lambda* (#:key outputs #:allow-other-keys)
; (let ((libdir (string-append (assoc-ref outputs "out") "/lib")))
; (for-each
; (lambda (file)
; (let* ((pipe (open-pipe* OPEN_READ "patchelf"
; "--print-rpath" file))
; (line (read-line pipe)))
; (and (zero? (close-pipe pipe))
; (invoke "patchelf" "--set-rpath"
; (string-append libdir ":" line)
; file))))
; (find-files libdir ".*\\.so$")))))
)))
(inputs
(list
libgccjit
gcc))
(native-inputs
(list
zstd
patchelf))
(home-page "https://gnu.org/software/gnat")
(synopsis "Ada language compiler")
(description (string-append "GNAT is a compiler for the Ada programming language."
"It produces optimized code on platforms supported by the GNU"
"Compiler Collection (GCC). The libgnat library provides runtime"
"components needed by most applications produced with GNAT."))
(license license:gpl3)))
(define-public gnat-bootstrap
(package
(name "gnat-bootstrap")
(version "10.3.0")
(source (origin
(method url-fetch)
(uri (string-append "http://us.archive.trisquel.info/trisquel/pool/main/g/"
"gcc-10/gnat-10_"
version
"-15ubuntu1_amd64.deb"))
(sha256
(base32
"0b8fmqwbgpg0fy2f27z2gz6lnha4nqil30bbzhrmasai98l4mcpp"))))
(build-system copy-build-system)
(arguments
(list
#:validate-runpath? #f
#:phases
#~(modify-phases %standard-phases
(replace 'unpack
(lambda* (#:key source #:allow-other-keys)
(invoke "ar" "x" source)
(invoke "tar" "axvf" "data.tar.zst")
(invoke "mv" "usr/bin" "bin")
(invoke "mv" "usr/lib" "lib")
(invoke "mv" "usr/share" "share")
;(invoke "mv" "usr/x86_64-linux-gnu" "x86_64-linux-gnu")
(invoke "rm" "control.tar.zst")
(invoke "rm" "debian-binary")
(invoke "rm" "data.tar.zst")
(invoke "rm" "-r" "usr")
#t))
(add-after 'install 'input-symlink
(lambda* (#:key inputs outputs #:allow-other-keys)
;(setenv "CONFIG_SHELL" (which "bash"))
;(setenv "LD_LIBRARY_PATH"
;(string-append (assoc-ref inputs "gmp") "/lib"))
;invoke "patchelf" "--set-interpreter"
; (search-input-file inputs #$(glibc-dynamic-linker))
; (string-append (assoc-ref inputs "libgnat-bootstrap")
; "/lib/x86_64-linux-gnu/libgnarl-10.so"))
;(invoke "patchelf" "--set-interpreter"
; (search-input-file inputs #$(glibc-dynamic-linker))
; (string-append (assoc-ref inputs "libgnat-bootstrap")
; "/lib/x86_64-linux-gnu/libgnat-10.so"))
(invoke "echo" (string-append (assoc-ref inputs "libgnat-bootstrap")
"/lib/x86_64-linux-gnu/libgnarl-10.so"))
(invoke "echo" (string-append (assoc-ref outputs "out")
"/lib/x86_64-linux-gnu/libgnarl-10.so"))
(symlink (string-append (assoc-ref inputs "libgnat-bootstrap")
"/lib/x86_64-linux-gnu/libgnarl-10.so")
(string-append (assoc-ref outputs "out")
"/lib/x86_64-linux-gnu/libgnarl-10.so"))
(symlink (string-append (assoc-ref inputs "libgnat-bootstrap")
"/lib/x86_64-linux-gnu/libgnat-10.so")
(string-append (assoc-ref outputs "out")
"/lib/x86_64-linux-gnu/libgnat-10.so"))
#t)))))
(inputs
(list
libgnat-bootstrap
elfutils
gmp
isl
mpc
mpfr
libgccjit
zstd
zlib))
(native-inputs
(list
zstd
patchelf))
(home-page "https://gnu.org/software/gnat")
(synopsis "Ada language compiler")
(description " GNAT is a compiler for the Ada programming language. It produces optimized code on platforms supported by the GNU Compiler Collection (GCC). The libgnat library provides runtime components needed by most applications produced with GNAT. ")
(license license:gpl3)))

49
packages/defs/brainparty.scm Normal file
View File

@ -0,0 +1,49 @@
(define-module (brainparty)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages gl)
#:use-module (gnu packages sdl)
#:use-module (gnu packages gcc)
#:use-module (gnu packages audio)
#:use-module (gnu packages networking)
#:use-module (gnu packages image)
#:use-module (gnu packages game-development)
#:use-module (gnu packages curl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages xorg)
#:use-module (guix build-system gnu)
#:use-module (guix build utils)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils))
(define-public brainparty
(package
(name "brainparty")
(version "0.61")
(source (origin
(method url-fetch)
(uri (string-append "https://launchpad.net/brainparty/trunk/"
version "/+download/brainparty" version ".tar.gz"))
(sha256
(base32 "09d6f43d7ij8xfimc9pqhml7d7k16dfyv8wgn98m94szniivac39"))))
(build-system gnu-build-system)
(inputs `(("sdl" ,sdl)
("sdl-image" ,sdl-image)
("sdl-mixer" ,sdl-mixer)
("sdl-ttf" ,sdl-ttf)
("sdl-gfx" ,sdl-gfx)
("mesa" ,mesa) ; For OpenGL support
("glu" ,glu)))
(arguments
`(#:phases (modify-phases %standard-phases
(delete 'configure))))
(home-page "https://launchpad.net/brainparty")
(synopsis "Brain Party - a fun, free puzzle game for all the family")
(description "Brain Party is a fun, free puzzle game for all the family
that's made up of 36 minigames designed to push your brain to its limits
by testing memory, logic, mathematics, reaction time and more!")
(license license:gpl3+)))

BIN
packages/defs/icecat-.zip Normal file
View File

Binary file not shown.

48
packages/defs/my_opengl_program.scm Normal file
View File

@ -0,0 +1,48 @@
(define-module (my_opengl_program)
#:use-module (guix packages)
#:use-module (gnu packages base)
#:use-module (gnu packages commencement)
#:use-module (gnu packages pkg-config)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages gl)
#:use-module (gnu packages bash)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages image))
(define-public my_opengl_program
(package
(name "my_opengl_program")
(version "1.0")
(source (origin
(method url-fetch)
(uri (string-append "file:///home/neox/Projets/compute_shader_test/archive.tar.xz"))
(sha256
(base32
"1zwpgis7py1bf8p88pz3mpai6a02qrdb8ww2fa9kxxdl9b8r2k81"))))
(build-system gnu-build-system)
(inputs
`(("bash" ,bash)
("coreutils" ,coreutils)
("gcc-toolchain" ,gcc-toolchain)
("pkg-config" ,pkg-config)
("findutils" ,findutils)
("make" ,make)
("glu" ,glu)
("glew" ,glew)
("glfw" ,glfw)
("mesa-headers" ,mesa-headers)
("mesa" ,mesa)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'patch-source
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "path/to/source/file.c"
(("WIDTH 512") (string-append "WIDTH " (number->string WIDTH)))
(("HEIGHT 512") (string-append "HEIGHT " (number->string HEIGHT))))
#t)))))
(home-page "https://example.com/my-opengl-program")
(synopsis "My OpenGL Program")
(description "A program that uses OpenGL compute shaders to blur an image without display.")
(license license:gpl3)))

13
packages/defs/speed-dreams.scm
View File

@ -97,21 +97,29 @@ of the others")
(origin
(method git-fetch)
(uri (git-reference
(url "https://forge.chalec.org/neox/speed-dreams.git")
(url "https://forge.chalec.org/neox/speed-dreams")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0w9l6lg4d20jiddkp1599l3hvy3y1745qv8pzb137kn8j2lz73c0"))))
(base32 "0w9l6lg4d20jiddkp1599l3hvy3y1745qv8pzb137kn8j2lz73c0"))))
(build-system cmake-build-system)
(arguments
(list
#:configure-flags
#~(list
"-DOPTION_UNLOAD_SSGGRAPH:BOOL=ON"
"-DCMAKE_CXX_FLAGS=-march=native"
"-DCMAKE_BUILD_TYPE=Release"
"-DOPTION_OFFICIAL_ONLY:BOOL=ON")
#:phases
#~(modify-phases %standard-phases
;(add-after 'unpack 'make-git-checkout-writable
;(lambda* (#:key inputs #:allow-other-keys)
;(make-file-writable "CMakeLists.txt")))
;(add-after 'unpack 'apply-patches
;(lambda* (#:key inputs #:allow-other-keys)
;(invoke "patch" "--force" "-p1"
;"speed-dreams-add-desktop-entry.patch")))
(delete 'validate-runpath)
(delete 'check))))
(native-inputs
@ -137,3 +145,4 @@ of the others")
"SPEEEEEED.")
(home-page "https://www.speed-dreams.net/en/")))