uboot: (firmwareOdroidC2/C4) don't invoke patch tool, use patches = [] instead

https://github.com/NixOS/nixpkgs/blob/master/pkgs/stdenv/generic/setup.sh#L948 this can do it nicely. Signed-off-by: Anton Arapov <anton@deadbeef.mx>
2021-04-03 12:58:10 +02:00 · 2021-04-03 12:58:10 +02:00 · 56de2bcd43
commit 56de2bcd43
30691 changed files with 3076956 additions and 0 deletions
--- a/pkgs/development/lisp-modules/clwrapper/build-with-lisp.sh
+++ b/pkgs/development/lisp-modules/clwrapper/build-with-lisp.sh
@ -0,0 +1,67 @@
+#! /bin/sh
+# Part of NixPkgs package collection
+# This script can be used at your option under the same license as NixPkgs or
+# under MIT/X11 license
+
+lisp="$1"
+systems="$2"
+target="$3"
+code="$4"
+
+NIX_LISP_SKIP_CODE=1 NIX_LISP_COMMAND="$lisp" source "$(dirname "$0")/cl-wrapper.sh"
+
+NIX_LISP_BUILD_CODE=
+
+case "$NIX_LISP" in
+        sbcl)
+                NIX_LISP_BUILD_CODE="(progn
+                  (let*
+                    ((old-fn (symbol-function 'sb-alien::dlopen-or-lose )))
+                    (sb-ext:with-unlocked-packages (:sb-sys :sb-alien)
+                      (defun sb-alien::dlopen-or-lose (&rest args)
+                        (or
+                          (ignore-errors (progn (apply old-fn args)))
+                          (and
+                            args
+                            (loop
+                              with try = nil
+                              with obj = (first args)
+                              with original-namestring = (sb-alien::shared-object-namestring obj)
+                              for path in (list $(echo "$NIX_LISP_LD_LIBRARY_PATH" | sed -e 's/:/" "/g; s/^/"/; s/$/"/'))
+                              for target := (format nil \"~a/~a\" path original-namestring)
+                              when (ignore-errors
+                                     (progn
+                                       (setf (sb-alien::shared-object-namestring obj) target)
+                                       (setf try (apply old-fn args))
+                                           t)) do
+                                (progn  (return try))
+                                finally (progn (setf (sb-alien::shared-object-namestring obj) original-namestring)
+                                  (return (apply old-fn args)))
+                              )
+                             )
+                          )
+                        )
+                      )
+                    )
+                  (sb-ext:save-lisp-and-die \"$target\"
+                  :toplevel (lambda ()
+                    (setf common-lisp:*standard-input* (sb-sys::make-fd-stream 0 :input t :buffering :line))
+                    (setf common-lisp:*standard-output* (sb-sys::make-fd-stream 1 :output t :buffering :line))
+                    (setf uiop/image:*command-line-arguments* (cdr sb-ext:*posix-argv*))
+                    $code)
+                    :executable t :save-runtime-options t :purify t))"
+                systems=":sb-posix $systems"
+                ;;
+        ecl)
+                NIX_LISP_BUILD_CODE="()"
+                ;;
+        clisp)
+                NIX_LISP_BUILD_CODE="(ext:saveinitmem \"$target\" :norc t :init-function (lambda () $code (ext:bye)) :script nil :executable 0)"
+                ;;
+esac
+
+"$lisp" \
+  "$NIX_LISP_EXEC_CODE" "(load \"$NIX_LISP_ASDF/lib/common-lisp/asdf/build/asdf.lisp\")" \
+  "$NIX_LISP_EXEC_CODE" "(mapcar 'asdf:load-system (list $systems))" \
+  "$NIX_LISP_EXEC_CODE" "$NIX_LISP_BUILD_CODE" \
+  "$NIX_LISP_EXEC_CODE" "(quit)"