Paste number 318389: opencog atomspace

Paste number 318389: opencog atomspace
Pasted by: kristofer
When:5 years, 3 months ago
Share:Tweet this! | http://paste.lisp.org/+6TO5
Channel:None
Paste contents:
Raw Source | XML | Display As
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Kristofer <kristofer@member.gnu.org>
;;;
;;; 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 (gnu packages opencog)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system cmake)
  #:use-module (guix licenses)
  ;#:use-module (gnu packages glibc)
  #:use-module (gnu packages cmake)
  #:use-module (gnu packages boost)
  #:use-module (gnu packages gcc)
  #:use-module (gnu packages base)
  #:use-module (gnu packages zip)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages multiprecision)
  ;;#:use-module (gnu packages binutils)
  )

(define-public cogutil
  (package
    (name "cogutil")
    (version "9a3bd44272a7d5d41388ba51e0b5020bfe702e44")
    (source (origin
              (method url-fetch)
              (uri "https://github.com/opencog/cogutils/archive/master.zip")
              (sha256
               (base32
                "19d013i9rzqx93m41scbynp53bmij40abk63skrghzjv957nys74"))))
    (build-system cmake-build-system)
    (arguments `(#:configure-flags
                 (list (string-append "-DBOOST_LIBRARYDIR="
                                      (assoc-ref %build-inputs "boost")
                                      "/lib")
                       (string-append "-DBOOST_INCLUDEDIR="
                                      (assoc-ref %build-inputs "boost")
                                      "/include"))
                 #:tests? #f
                 #:validate-runpath? #f
                 ))
    (inputs `(("cmake" ,cmake)
              ("gcc" ,gcc)
              ("binutils" ,binutils)
              ("glibc" ,glibc)
              ("unzip" ,unzip)
              ("boost" ,boost)))
    (synopsis "Utilities for the Open COG project.")
    (description "Utilities for the Open COG project.")
    (home-page "http://www.opencog.org")
    (license agpl3)))

(define-public atomspace
  (package
    (name "atomspace")
    (version "71e4eea59fedec14202cecf3fa143e691016917a")
    (source (origin
              (method url-fetch)
              (uri "https://github.com/opencog/atomspace/archive/master.zip")
              (sha256
               (base32
                "030k5scb659s550k8zgjp7019301rpninh3nyvimw1sp5qyggjgf"))))
    (build-system cmake-build-system)
    (arguments `(#:configure-flags
                 (list (string-append "-DGUILE_INCLUDE_DIR="
                                      (assoc-ref %build-inputs "guile")
                                      "/include/guile/2.0")
                       (string-append "-DGUILE_LIBRARY="
                                      (assoc-ref %build-inputs "guile")
                                      "/lib/libguile-2.0.so")
                       (string-append "-DBOOST_LIBRARYDIR="
                                      (assoc-ref %build-inputs "boost")
                                      "/lib")
                       (string-append "-DBOOST_INCLUDEDIR="
                                      (assoc-ref %build-inputs "boost")
                                      "/include"))
                 #:tests? #f
                 #:validate-runpath? #f
                 ;#:phases (modify-phases %standard-phases
                 ; (add-before
                 ;  'configure 'set-flags
                 ;  (lambda* (#:key inputs #:allow-other-keys)
                 ;    ;; See e.g. https://github.com/lvtk/lvtk/issues/21
                 ;    (setenv "LDFLAGS"
                 ;            (string-append
                 ;             "-L" (assoc-ref inputs "boost") "/lib "
                 ;             "-lboost_system")))))
                 ))
    (inputs `(("cmake" ,cmake)
              ("gcc" ,gcc)
              ("gmp" ,gmp)
              ("binutils" ,binutils)
              ("glibc" ,glibc)
              ("unzip" ,unzip)
              ("boost" ,boost)
              ("cogutil" ,cogutil)
              ;("postgresql" ,postgresql)
              ;("unixodbc" ,unixodbc)
              ("guile" ,guile-2.0)))
    (synopsis "Atomspace hypergraph for the Open COG project.")
    (description "Atomspace hypergraph for the Open COG project.")
    (home-page "http://www.opencog.org")
    (license agpl3)))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.