You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gentoo-overlay/sci-mathematics/maxima/files/ecls-0.patch

28 lines
1.3 KiB

diff -r -U1 maxima-5.30.0.orig/src/maxima.in maxima-5.30.0/src/maxima.in
--- maxima-5.30.0.orig/src/maxima.in 2012-12-04 12:54:50.000000000 +0700
+++ maxima-5.30.0/src/maxima.in 2013-04-13 12:57:12.037579805 +0700
@@ -191,3 +191,3 @@
elif [ "$MAXIMA_LISP" = "ecl" ]; then
- exec "$maxima_image_base" $MAXIMA_LISP_OPTIONS -- "$arg1" "$arg2" "$arg3" "$arg4" "$arg5" "$arg6" "$arg7" "$arg8" "$arg9"
+ exec "$maxima_image_base" $MAXIMA_LISP_OPTIONS -norc -- "$arg1" "$arg2" "$arg3" "$arg4" "$arg5" "$arg6" "$arg7" "$arg8" "$arg9"
diff -r -U1 maxima-5.30.0.orig/src/maxima.system maxima-5.30.0/src/maxima.system
--- maxima-5.30.0.orig/src/maxima.system 2013-03-23 08:32:08.000000000 +0700
+++ maxima-5.30.0/src/maxima.system 2013-04-13 12:59:54.086730845 +0700
@@ -61,2 +61,10 @@
#+ecl
+(defun split-ld-flags-for-ecl (string &aux space)
+ (setf string (string-trim '(#\Space) string))
+ (if (setf space (position #\Space string))
+ (cons (subseq string 0 space)
+ (split-ld-flags-for-ecl (subseq string (1+ space))))
+ (cons string nil)))
+
+#+ecl
(defun build-maxima-lib ()
@@ -81,3 +89,3 @@
(find-package "MAXIMA")))))
- (if (and x (not (string= x ""))) (list x)))
+ (if (and x (not (string= x ""))) (split-ld-flags-for-ecl x)))
:epilogue-code '(progn (require :defsystem)