rpms/clisp
3
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add libsvm patch to fix FTBFS on Rawhide (bz 715970).

Browse source 
Fix readline module to also use compat-readline5 instead of readline6.
Enable use of lightning on supported arches.
This commit is contained in:
Jerry James 2011-07-02 11:52:15 -06:00
commit 3e2265ad3e
2 changed files with 86 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

63
clisp-libsvm.patch Normal file
View file

@ -0,0 +1,63 @@
--- modules/libsvm/config.h.in.orig 2010-06-30 12:02:55.000000000 -0600
+++ modules/libsvm/config.h.in 2011-06-23 14:28:00.454999254 -0600
@@ -27,8 +27,8 @@
/* Define to 1 if you have the `svm_cross_validation' function. */
#undef HAVE_SVM_CROSS_VALIDATION
-/* Define to 1 if you have the `svm_destroy_model' function. */
-#undef HAVE_SVM_DESTROY_MODEL
+/* Define to 1 if you have the `svm_free_and_destroy_model' function. */
+#undef HAVE_SVM_FREE_AND_DESTROY_MODEL
/* Define to 1 if you have the `svm_destroy_param' function. */
#undef HAVE_SVM_DESTROY_PARAM
--- modules/libsvm/configure.in.orig 2010-06-30 12:02:55.000000000 -0600
+++ modules/libsvm/configure.in 2011-06-23 14:28:49.333999905 -0600
@@ -30,7 +30,7 @@
AC_CHECK_FUNCS(svm_check_parameter dnl
svm_check_probability_model dnl
svm_cross_validation dnl
-svm_destroy_model dnl
+svm_free_and_destroy_model dnl
svm_destroy_param dnl
svm_get_labels dnl
svm_get_nr_class dnl
--- modules/libsvm/configure.orig 2010-06-30 12:02:55.000000000 -0600
+++ modules/libsvm/configure 2011-06-23 14:28:27.827999766 -0600
@@ -4555,7 +4555,7 @@
if test "$ac_cv_search_svm_train" = "no"; then
as_fn_error "cannot find LibSVM library" "$LINENO" 5
fi
-for ac_func in svm_check_parameter svm_check_probability_model svm_cross_validation svm_destroy_model svm_destroy_param svm_get_labels svm_get_nr_class svm_get_svm_type svm_get_svr_probability svm_load_model svm_predict svm_predict_probability svm_predict_values svm_save_model svm_train svm_set_print_string_function
+for ac_func in svm_check_parameter svm_check_probability_model svm_cross_validation svm_free_and_destroy_model svm_destroy_param svm_get_labels svm_get_nr_class svm_get_svm_type svm_get_svr_probability svm_load_model svm_predict svm_predict_probability svm_predict_values svm_save_model svm_train svm_set_print_string_function
do :
as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
--- modules/libsvm/libsvm.lisp.orig 2010-06-30 11:56:36.000000000 -0600
+++ modules/libsvm/libsvm.lisp 2011-06-23 14:33:44.334999678 -0600
@@ -97,11 +97,11 @@
;;; foreign functions and small wrappers
;;;
-(ffi:def-call-out svm_destroy_model
- (:arguments (model model)) (:return-type nil))
+(ffi:def-call-out svm_free_and_destroy_model
+ (:arguments (model (c-pointer model))) (:return-type nil))
(defun destroy-model (model)
(when (validp model)
- (svm_destroy_model model)
+ (svm_free_and_destroy_model (ffi:with-c-var (modelp 'model model) (ffi:c-var-address modelp)))
(setf (validp model) nil)))
(cl:defun finalize-model (model)
(ext:finalize (set-foreign-pointer model :copy) #'destroy-model)
--- modules/libsvm/svm.xml.orig 2010-05-26 11:52:55.000000000 -0600
+++ modules/libsvm/svm.xml 2011-06-23 14:34:44.021999852 -0600
@@ -91,7 +91,7 @@
<varlistentry><term><code>(destroy-model &model-r;)</code></term>
<listitem><simpara>Release the memory taken by the <type>model</type>
object and invalidate the &foreign-variable-t; &model-r;.</simpara>
- <simpara>Calls <function>svm_destroy_model</function>.</simpara>
+ <simpara>Calls <function>svm_free_and_destroy_model</function>.</simpara>
<simpara>You do &not-e; have to call this function yourself, it is
attached to the &model-r; by <function>train</function>
and <function>load-model</function> via &finalize;.</simpara>