From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ricardo Wurmus Subject: [PATCH] Add libsvm. Date: Thu, 28 May 2015 16:39:31 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/x-patch; charset="utf-8" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44364) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YxyyH-0006bT-V7 for guix-devel@gnu.org; Thu, 28 May 2015 10:39:47 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YxyyE-00078V-LH for guix-devel@gnu.org; Thu, 28 May 2015 10:39:45 -0400 Received: from sinope.bbbm.mdc-berlin.de ([141.80.25.23]:57987) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YxyyE-00077x-88 for guix-devel@gnu.org; Thu, 28 May 2015 10:39:42 -0400 Received: from localhost (localhost [127.0.0.1]) by sinope.bbbm.mdc-berlin.de (Postfix) with ESMTP id CBB4A280826 for ; Thu, 28 May 2015 16:39:39 +0200 (CEST) Received: from sinope.bbbm.mdc-berlin.de ([127.0.0.1]) by localhost (sinope.bbbm.mdc-berlin.de [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id NGMZWNzxiFfQ for ; Thu, 28 May 2015 16:39:31 +0200 (CEST) Received: from HTCAONE.mdc-berlin.net (mab.citx.mdc-berlin.de [141.80.36.102]) by sinope.bbbm.mdc-berlin.de (Postfix) with ESMTP for ; Thu, 28 May 2015 16:39:30 +0200 (CEST) Content-Disposition: inline; filename="0001-gnu-Add-libsvm.patch" List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: Guix-devel >From bbd4a72d89762f93816cfe4ed917c55ffe19bac8 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 28 May 2015 15:53:14 +0200 Subject: [PATCH] gnu: Add libsvm. * gnu/packages/machine-learning.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/machine-learning.scm | 72 +++++++++++++++++++++++++++++++++= ++++++ 2 files changed, 73 insertions(+) create mode 100644 gnu/packages/machine-learning.scm diff --git a/gnu-system.am b/gnu-system.am index 43ced12..c699da8 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -196,6 +196,7 @@ GNU_SYSTEM_MODULES =3D \ gnu/packages/lxqt.scm \ gnu/packages/lynx.scm \ gnu/packages/m4.scm \ + gnu/packages/machine-learning.scm \ gnu/packages/man.scm \ gnu/packages/mail.scm \ gnu/packages/make-bootstrap.scm \ diff --git a/gnu/packages/machine-learning.scm b/gnu/packages/machine-lea= rning.scm new file mode 100644 index 0000000..e368fc5 --- /dev/null +++ b/gnu/packages/machine-learning.scm @@ -0,0 +1,72 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2015 Ricardo Wurmus +;;; +;;; 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 (a= t +;;; 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 . + +(define-module (gnu packages machine-learning) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix utils) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (gnu packages)) + +(define-public libsvm + (package + (name "libsvm") + (version "3.20") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/cjlin1/libsvm/archive/v" + (string-join (string-split version #\.) "") ".tar.gz")) + (sha256 + (base32 + "1jpjlql3frjza7zxzrqqr2firh44fjb8fqsdmvz6bjz7sb47zgp4")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ;no "check" target + #:phases (modify-phases %standard-phases + (delete 'configure) + (add-after + 'build 'build-library + (lambda _ + (zero? (system* "make" "lib")))) + (replace + 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin/")) + (lib (string-append out "/lib/"))) + (mkdir-p lib) + (mkdir bin) + (for-each (lambda (file) + (copy-file file (string-append bin fi= le))) + '("svm-train" + "svm-predict" + "svm-scale")) + (copy-file "libsvm.so.2" + (string-append lib "libsvm.so.2"))) + #t))))) + (home-page "http://www.csie.ntu.edu.tw/~cjlin/libsvm/") + (synopsis "Library for Support Vector Machines") + (description + "LIBSVM is an integrated software for support vector +classification, (C-SVC, nu-SVC), regression (epsilon-SVR, nu-SVR) and +distribution estimation (one-class SVM). It supports multi-class +classification.") + (license license:bsd-3))) --=20 2.1.0