Hello community, here is the log from the commit of package ghc-hmatrix-gsl for openSUSE:Factory checked in at 2017-03-28 15:21:36 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hmatrix-gsl (Old) and /work/SRC/openSUSE:Factory/.ghc-hmatrix-gsl.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-hmatrix-gsl" Tue Mar 28 15:21:36 2017 rev:2 rq:479844 version:0.18.0.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hmatrix-gsl/ghc-hmatrix-gsl.changes 2017-03-09 01:54:36.497905312 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-hmatrix-gsl.new/ghc-hmatrix-gsl.changes 2017-03-28 15:21:37.362660299 +0200 @@ -1,0 +2,5 @@ +Sun Feb 12 14:13:48 UTC 2017 - [email protected] + +- Update to version 0.18.0.1 with cabal2obs. + +------------------------------------------------------------------- Old: ---- hmatrix-gsl-0.17.0.0.tar.gz New: ---- hmatrix-gsl-0.18.0.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hmatrix-gsl.spec ++++++ --- /var/tmp/diff_new_pack.AAVnbW/_old 2017-03-28 15:21:39.690330635 +0200 +++ /var/tmp/diff_new_pack.AAVnbW/_new 2017-03-28 15:21:39.694330069 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-hmatrix-gsl # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %global pkg_name hmatrix-gsl Name: ghc-%{pkg_name} -Version: 0.17.0.0 +Version: 0.18.0.1 Release: 0 Summary: Numerical computation License: GPL-1.0+ ++++++ hmatrix-gsl-0.17.0.0.tar.gz -> hmatrix-gsl-0.18.0.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/hmatrix-gsl.cabal new/hmatrix-gsl-0.18.0.1/hmatrix-gsl.cabal --- old/hmatrix-gsl-0.17.0.0/hmatrix-gsl.cabal 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/hmatrix-gsl.cabal 2016-11-02 21:18:45.000000000 +0100 @@ -1,5 +1,5 @@ Name: hmatrix-gsl -Version: 0.17.0.0 +Version: 0.18.0.1 License: GPL License-file: LICENSE Author: Alberto Ruiz @@ -25,12 +25,11 @@ library - Build-Depends: base<5, hmatrix>=0.17, array, vector, + Build-Depends: base<5, hmatrix>=0.18, array, vector, process, random - Extensions: ForeignFunctionInterface, - CPP + Extensions: ForeignFunctionInterface hs-source-dirs: src Exposed-modules: Numeric.GSL.Differentiation, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Fitting.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Fitting.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Fitting.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Fitting.hs 2016-11-02 21:18:45.000000000 +0100 @@ -87,7 +87,7 @@ fp <- mkVecVecfun (aux_vTov (checkdim1 n p . f)) jp <- mkVecMatfun (aux_vTom (checkdim2 n p . jac)) rawpath <- createMatrix RowMajor maxit (2+p) - c_nlfit m fp jp epsabs epsrel (fi maxit) (fi n) # xiv # rawpath #|"c_nlfit" + (xiv `applyRaw` (rawpath `applyRaw` id)) (c_nlfit m fp jp epsabs epsrel (fi maxit) (fi n)) #|"c_nlfit" let it = round (rawpath `atIndex` (maxit-1,0)) path = takeRows it rawpath [sol] = toRows $ dropRows (it-1) path diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Fourier.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Fourier.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Fourier.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Fourier.hs 2016-11-02 21:18:45.000000000 +0100 @@ -25,7 +25,7 @@ genfft code v = unsafePerformIO $ do r <- createVector (size v) - c_fft code # v # r #|"fft" + (v `applyRaw` (r `applyRaw` id)) (c_fft code) #|"fft" return r foreign import ccall unsafe "gsl-aux.h fft" c_fft :: CInt -> TCV (TCV Res) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Internal.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Internal.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Internal.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Internal.hs 2016-11-02 21:18:45.000000000 +0100 @@ -1,3 +1,5 @@ +{-# LANGUAGE FlexibleContexts #-} + -- | -- Module : Numeric.GSL.Internal -- Copyright : (c) Alberto Ruiz 2009 @@ -23,7 +25,7 @@ createV, createMIO, module Numeric.LinearAlgebra.Devel, - check,(#),vec, ww2, + check,(#),(#!),vec, ww2, Res,TV,TM,TCV,TCM ) where @@ -86,12 +88,12 @@ createV n fun msg = unsafePerformIO $ do r <- createVector n - fun # r #| msg + (r # id) fun #| msg return r createMIO r c fun msg = do res <- createMatrix RowMajor r c - fun # res #| msg + (res # id) fun #| msg return res -------------------------------------------------------------------------------- @@ -135,3 +137,10 @@ a # b = applyRaw a b {-# INLINE (#) #-} +--infixr 1 # +--a # b = apply a b +--{-# INLINE (#) #-} + +a #! b = a # b # id +{-# INLINE (#!) #-} + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Interpolation.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Interpolation.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Interpolation.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Interpolation.hs 2016-11-02 21:18:45.000000000 +0100 @@ -1,3 +1,5 @@ +{-# LANGUAGE MagicHash, UnboxedTuples #-} + {- | Module : Numeric.GSL.Interpolation Copyright : (c) Matthew Peddie 2015 @@ -40,6 +42,10 @@ import Numeric.GSL.Internal import System.IO.Unsafe(unsafePerformIO) +-- FIXME +import qualified Data.Vector.Storable as S +import GHC.Base (IO(..), realWorld#) + data InterpolationMethod = Linear | Polynomial | CSpline @@ -59,6 +65,12 @@ dim :: Numeric t => Vector t -> Int dim = size +-- FIXME +appVector f x = unsafeInlinePerformIO (S.unsafeWith x (return . f)) + +unsafeInlinePerformIO (IO f) = case f realWorld# of + (# _, x #) -> x + applyCFun hsname cname fun mth xs ys x | dim xs /= dim ys = error $ "Error: Vectors of unequal sizes " ++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/LinearAlgebra.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/LinearAlgebra.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/LinearAlgebra.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/LinearAlgebra.hs 2016-11-02 21:18:45.000000000 +0100 @@ -40,7 +40,7 @@ -> Vector Double randomVector seed dist n = unsafePerformIO $ do r <- createVector n - c_random_vector (fi seed) ((fi.fromEnum) dist) # r #|"randomVector" + (r `applyRaw` id) (c_random_vector (fi seed) ((fi.fromEnum) dist)) #|"randomVector" return r foreign import ccall unsafe "random_vector" c_random_vector :: CInt -> CInt -> TV @@ -56,7 +56,7 @@ charname <- newCString filename charfmt <- newCString fmt let o = if orderOf m == RowMajor then 1 else 0 - matrix_fprintf charname charfmt o # m #|"matrix_fprintf" + (m `applyRaw` id) (matrix_fprintf charname charfmt o) #|"matrix_fprintf" free charname free charfmt @@ -69,7 +69,7 @@ fscanfVector filename n = do charname <- newCString filename res <- createVector n - gsl_vector_fscanf charname # res #|"gsl_vector_fscanf" + (res `applyRaw` id) (gsl_vector_fscanf charname) #|"gsl_vector_fscanf" free charname return res @@ -80,7 +80,7 @@ fprintfVector filename fmt v = do charname <- newCString filename charfmt <- newCString fmt - gsl_vector_fprintf charname charfmt # v #|"gsl_vector_fprintf" + (v `applyRaw` id) (gsl_vector_fprintf charname charfmt) #|"gsl_vector_fprintf" free charname free charfmt @@ -91,7 +91,7 @@ freadVector filename n = do charname <- newCString filename res <- createVector n - gsl_vector_fread charname # res #| "gsl_vector_fread" + (res `applyRaw` id) (gsl_vector_fread charname) #| "gsl_vector_fread" free charname return res @@ -101,7 +101,7 @@ fwriteVector :: FilePath -> Vector Double -> IO () fwriteVector filename v = do charname <- newCString filename - gsl_vector_fwrite charname # v #|"gsl_vector_fwrite" + (v `applyRaw` id) (gsl_vector_fwrite charname) #|"gsl_vector_fwrite" free charname foreign import ccall unsafe "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/ODE.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/ODE.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/ODE.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/ODE.hs 2016-11-02 21:18:45.000000000 +0100 @@ -17,7 +17,7 @@ @ import Numeric.GSL.ODE import Numeric.LinearAlgebra -import Numeric.LinearAlgebra.Util(mplot) +import Graphics.Plot(mplot) xdot t [x,v] = [v, -0.95*x - 0.1*v] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Polynomials.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Polynomials.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Polynomials.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Polynomials.hs 2016-11-02 21:18:45.000000000 +0100 @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} {- | Module : Numeric.GSL.Polynomials Copyright : (c) Alberto Ruiz 2006 @@ -24,7 +25,7 @@ import Foreign.C.Types (CInt(..)) #endif -{- | Solution of general polynomial equations, using /gsl_poly_complex_solve/. +{- | Solution of general polynomial equations, using /gsl_poly_complex_solve/. For example, the three solutions of x^3 + 8 = 0 @@ -41,14 +42,14 @@ 0.30901699437494756 :+ (-0.9510565162951535), 1.0000000000000002 :+ 0.0] --} +-} polySolve :: [Double] -> [Complex Double] polySolve = toList . polySolve' . fromList polySolve' :: Vector Double -> Vector (Complex Double) polySolve' v | size v > 1 = unsafePerformIO $ do r <- createVector (size v-1) - c_polySolve # v # r #| "polySolve" + (v `applyRaw` (r `applyRaw` id)) c_polySolve #| "polySolve" return r | otherwise = error "polySolve on a polynomial of degree zero" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Random.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Random.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Random.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Random.hs 2016-11-02 21:18:45.000000000 +0100 @@ -39,13 +39,13 @@ gaussianSample :: Seed -> Int -- ^ number of rows -> Vector Double -- ^ mean vector - -> Matrix Double -- ^ covariance matrix + -> Herm Double -- ^ covariance matrix -> Matrix Double -- ^ result gaussianSample seed n med cov = m where c = size med meds = konst 1 n `outer` med rs = reshape c $ randomVector seed Gaussian (c * n) - m = rs <> cholSH cov + meds + m = rs <> chol cov + meds -- | Obtains a matrix whose rows are pseudorandom samples from a multivariate -- uniform distribution. @@ -87,4 +87,3 @@ -} randn :: Int -> Int -> IO (Matrix Double) randn = randm Gaussian - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Vector.hs new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Vector.hs --- old/hmatrix-gsl-0.17.0.0/src/Numeric/GSL/Vector.hs 2015-09-15 13:16:07.000000000 +0200 +++ new/hmatrix-gsl-0.18.0.1/src/Numeric/GSL/Vector.hs 2016-11-02 21:18:45.000000000 +0100 @@ -34,7 +34,7 @@ -> Vector Double randomVector seed dist n = unsafePerformIO $ do r <- createVector n - c_random_vector_GSL (fi seed) ((fi.fromEnum) dist) # r #|"randomVectorGSL" + (r `applyRaw` id) (c_random_vector_GSL (fi seed) ((fi.fromEnum) dist)) #|"randomVectorGSL" return r foreign import ccall unsafe "random_vector_GSL" c_random_vector_GSL :: CInt -> CInt -> TV @@ -50,7 +50,7 @@ charname <- newCString filename charfmt <- newCString fmt let o = if orderOf m == RowMajor then 1 else 0 - matrix_fprintf charname charfmt o # m #|"matrix_fprintf" + (m `applyRaw` id) (matrix_fprintf charname charfmt o) #|"matrix_fprintf" free charname free charfmt @@ -63,7 +63,7 @@ fscanfVector filename n = do charname <- newCString filename res <- createVector n - gsl_vector_fscanf charname # res #|"gsl_vector_fscanf" + (res `applyRaw` id) (gsl_vector_fscanf charname) #|"gsl_vector_fscanf" free charname return res @@ -74,7 +74,7 @@ fprintfVector filename fmt v = do charname <- newCString filename charfmt <- newCString fmt - gsl_vector_fprintf charname charfmt # v #|"gsl_vector_fprintf" + (v `applyRaw` id) (gsl_vector_fprintf charname charfmt) #|"gsl_vector_fprintf" free charname free charfmt @@ -85,7 +85,7 @@ freadVector filename n = do charname <- newCString filename res <- createVector n - gsl_vector_fread charname # res #|"gsl_vector_fread" + (res `applyRaw` id) (gsl_vector_fread charname) #|"gsl_vector_fread" free charname return res @@ -95,7 +95,7 @@ fwriteVector :: FilePath -> Vector Double -> IO () fwriteVector filename v = do charname <- newCString filename - gsl_vector_fwrite charname # v #|"gsl_vector_fwrite" + (v `applyRaw` id) (gsl_vector_fwrite charname) #|"gsl_vector_fwrite" free charname foreign import ccall unsafe "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV
