Drezil/hgraph
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fehlende Dateien

Browse Source
This commit is contained in:
tpajenka 2013-11-27 13:19:02 +01:00
parent a4096b66ab
commit 31f0468cfd
4 changed files with 33 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
dist/build/autogen/Paths_hgraph.hs vendored
View File

@ -1,34 +1,30 @@
module Paths_hgraph ( module Paths_hgraph (
version, version,
getBinDir, getLibDir, getDataDir, getLibexecDir, getBinDir, getLibDir, getDataDir, getLibexecDir,
getDataFileName, getSysconfDir getDataFileName
) where ) where
import qualified Control.Exception as Exception import qualified Control.Exception as Exception
import Data.Version (Version(..)) import Data.Version (Version(..))
import System.Environment (getEnv) import System.Environment (getEnv)
import Prelude
catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
catchIO = Exception.catch catchIO = Exception.catch
version :: Version version :: Version
version = Version {versionBranch = [0,0,1], versionTags = []} version = Version {versionBranch = [0,0,1], versionTags = []}
bindir, libdir, datadir, libexecdir, sysconfdir :: FilePath bindir, libdir, datadir, libexecdir :: FilePath
bindir = "/home/sdressel/.cabal/bin" bindir = "/home/thomas/.cabal/bin"
libdir = "/home/sdressel/.cabal/lib/x86_64-linux-ghc-7.6.3/hgraph-0.0.1" libdir = "/home/thomas/.cabal/lib/hgraph-0.0.1/ghc-7.4.1"
datadir = "/home/sdressel/.cabal/share/x86_64-linux-ghc-7.6.3/hgraph-0.0.1" datadir = "/home/thomas/.cabal/share/hgraph-0.0.1"
libexecdir = "/home/sdressel/.cabal/libexec" libexecdir = "/home/thomas/.cabal/libexec"
sysconfdir = "/home/sdressel/.cabal/etc"
getBinDir, getLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath getBinDir, getLibDir, getDataDir, getLibexecDir :: IO FilePath
getBinDir = catchIO (getEnv "hgraph_bindir") (\_ -> return bindir) getBinDir = catchIO (getEnv "hgraph_bindir") (\_ -> return bindir)
getLibDir = catchIO (getEnv "hgraph_libdir") (\_ -> return libdir) getLibDir = catchIO (getEnv "hgraph_libdir") (\_ -> return libdir)
getDataDir = catchIO (getEnv "hgraph_datadir") (\_ -> return datadir) getDataDir = catchIO (getEnv "hgraph_datadir") (\_ -> return datadir)
getLibexecDir = catchIO (getEnv "hgraph_libexecdir") (\_ -> return libexecdir) getLibexecDir = catchIO (getEnv "hgraph_libexecdir") (\_ -> return libexecdir)
getSysconfDir = catchIO (getEnv "hgraph_sysconfdir") (\_ -> return sysconfdir)
getDataFileName :: FilePath -> IO FilePath getDataFileName :: FilePath -> IO FilePath
getDataFileName name = do getDataFileName name = do

44
dist/build/autogen/cabal_macros.h vendored
View File

@ -1,11 +1,11 @@
/* DO NOT EDIT: This file is automatically generated by Cabal */ /* DO NOT EDIT: This file is automatically generated by Cabal */
/* package QuickCheck-2.6 */ /* package QuickCheck-2.5.1.1 */
#define VERSION_QuickCheck "2.6" #define VERSION_QuickCheck "2.5.1.1"
#define MIN_VERSION_QuickCheck(major1,major2,minor) (\ #define MIN_VERSION_QuickCheck(major1,major2,minor) (\
(major1) < 2 || \ (major1) < 2 || \
(major1) == 2 && (major2) < 6 || \ (major1) == 2 && (major2) < 5 || \
(major1) == 2 && (major2) == 6 && (minor) <= 0) (major1) == 2 && (major2) == 5 && (minor) <= 1)
/* package Stream-0.4.6.1 */ /* package Stream-0.4.6.1 */
#define VERSION_Stream "0.4.6.1" #define VERSION_Stream "0.4.6.1"
@ -14,40 +14,40 @@
(major1) == 0 && (major2) < 4 || \ (major1) == 0 && (major2) < 4 || \
(major1) == 0 && (major2) == 4 && (minor) <= 6) (major1) == 0 && (major2) == 4 && (minor) <= 6)
/* package accelerate-0.14.0.0 */ /* package accelerate-0.13.0.5 */
#define VERSION_accelerate "0.14.0.0" #define VERSION_accelerate "0.13.0.5"
#define MIN_VERSION_accelerate(major1,major2,minor) (\ #define MIN_VERSION_accelerate(major1,major2,minor) (\
(major1) < 0 || \ (major1) < 0 || \
(major1) == 0 && (major2) < 14 || \ (major1) == 0 && (major2) < 13 || \
(major1) == 0 && (major2) == 14 && (minor) <= 0) (major1) == 0 && (major2) == 13 && (minor) <= 0)
/* package base-4.6.0.1 */ /* package base-4.5.0.0 */
#define VERSION_base "4.6.0.1" #define VERSION_base "4.5.0.0"
#define MIN_VERSION_base(major1,major2,minor) (\ #define MIN_VERSION_base(major1,major2,minor) (\
(major1) < 4 || \ (major1) < 4 || \
(major1) == 4 && (major2) < 6 || \ (major1) == 4 && (major2) < 5 || \
(major1) == 4 && (major2) == 6 && (minor) <= 0) (major1) == 4 && (major2) == 5 && (minor) <= 0)
/* package bytestring-0.10.0.2 */ /* package bytestring-0.9.2.1 */
#define VERSION_bytestring "0.10.0.2" #define VERSION_bytestring "0.9.2.1"
#define MIN_VERSION_bytestring(major1,major2,minor) (\ #define MIN_VERSION_bytestring(major1,major2,minor) (\
(major1) < 0 || \ (major1) < 0 || \
(major1) == 0 && (major2) < 10 || \ (major1) == 0 && (major2) < 9 || \
(major1) == 0 && (major2) == 10 && (minor) <= 0) (major1) == 0 && (major2) == 9 && (minor) <= 2)
/* package deepseq-1.3.0.1 */ /* package deepseq-1.3.0.0 */
#define VERSION_deepseq "1.3.0.1" #define VERSION_deepseq "1.3.0.0"
#define MIN_VERSION_deepseq(major1,major2,minor) (\ #define MIN_VERSION_deepseq(major1,major2,minor) (\
(major1) < 1 || \ (major1) < 1 || \
(major1) == 1 && (major2) < 3 || \ (major1) == 1 && (major2) < 3 || \
(major1) == 1 && (major2) == 3 && (minor) <= 0) (major1) == 1 && (major2) == 3 && (minor) <= 0)
/* package ghc-7.6.3 */ /* package ghc-7.4.1 */
#define VERSION_ghc "7.6.3" #define VERSION_ghc "7.4.1"
#define MIN_VERSION_ghc(major1,major2,minor) (\ #define MIN_VERSION_ghc(major1,major2,minor) (\
(major1) < 7 || \ (major1) < 7 || \
(major1) == 7 && (major2) < 6 || \ (major1) == 7 && (major2) < 4 || \
(major1) == 7 && (major2) == 6 && (minor) <= 3) (major1) == 7 && (major2) == 4 && (minor) <= 1)
/* package monad-par-0.3.4.5 */ /* package monad-par-0.3.4.5 */
#define VERSION_monad_par "0.3.4.5" #define VERSION_monad_par "0.3.4.5"

4
dist/setup-config vendored
View File

File diff suppressed because one or more lines are too long

47
src/Main.hs
View File

@ -17,6 +17,8 @@ module Main (
main main
) where ) where
import DCB
import Control.Monad (unless) import Control.Monad (unless)
import Control.Parallel.Strategies import Control.Parallel.Strategies
import Control.DeepSeq import Control.DeepSeq
@ -32,51 +34,6 @@ import Data.Either (lefts, rights)
import Debug.Trace import Debug.Trace
import qualified Data.Text as T import qualified Data.Text as T
import Data.Text.Encoding import Data.Text.Encoding
--import Stream hiding (map) --same as Data.Stream imported above?
import Data.Array.Accelerate hiding (not,(++))
-- change to Data.Array.Accelerate.CUDA as I and link accelerate-cuda to use GPU instead of CPU
-- depends on accelerate-cuda package in cabal, which needs the installed CUDA-stuff form
-- nVidia (nvcc, header-files, ...) and the propriatary driver
import Data.Array.Accelerate.Interpreter as I
type Matrix e = Array DIM2 e
type Attr = Matrix Double
-- Adjecency-Matrix
type Adj = Matrix Int8
-- Vector of the Adjecency-Matrix
type AdjV = Vector Int8
newtype Constraints = Matrix Double
-- Graph consists of a Vector denoting which colums of the matrix represents wich originating
-- column in the global adjencency-matrix, the reduces adjencency-matrix of the graph, a
-- matrix of constraints and a scalar denoting the density
type Density = Scalar Float
-- Graph
type Graph = (Vector Int8, Adj, Constraints, Density)
-- Vector of Graphs
type MultiGraph e = (Vector Int8, Array DIM3 e, Constraints, Density)
expand :: Acc (MultiGraph Int8)-> Acc Adj -> Acc Attr -> Acc (MultiGraph Int8)
expand g a att = undefined
-- constraint gets a Graph and an Attribute-Matrix and yields true, if the Graph still fulfills
-- all constraints defined via the Attribute-Matrix.
constraint :: Acc Graph -> Acc Attr -> Acc (Scalar Bool)
constraint g a = undefined
-- addPoint gets a graph and a tuple of an adjecancy-Vector with an int wich column of the
-- Adjacency-Matrix the Vector should represent to generate further Graphs
addPoint :: Acc Graph -> Acc (Adj, (Scalar Int)) -> Acc (MultiGraph Int8)
addPoint g a = undefined
-- addablePoints yields all valid addititonsto a Graph
addablePoints :: Acc Adj -> Acc Graph-> Acc (Vector Int8)
addablePoints a g = undefined
-- TODO: Give createGraph a presized Array and no dynamic [Int]. -- TODO: Give createGraph a presized Array and no dynamic [Int].