Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
haskell-igraph
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-igraph
Commits
d790e030
Commit
d790e030
authored
Mar 18, 2021
by
Kai Zhang
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
enable thread safe
parent
1baabf42
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
6 deletions
+8
-6
config.h
igraph/include/config.h
+7
-5
Algorithms.hs
tests/Test/Algorithms.hs
+1
-1
No files found.
igraph/include/config.h
View file @
d790e030
...
@@ -19,9 +19,10 @@
...
@@ -19,9 +19,10 @@
#define HAVE_STRINGS_H 1
#define HAVE_STRINGS_H 1
#define HAVE_STRING_H 1
#define HAVE_STRING_H 1
#define HAVE_TLS 1
#define IGRAPH_F77_SAVE static IGRAPH_THREAD_LOCAL
#define IGRAPH_F77_SAVE static IGRAPH_THREAD_LOCAL
#define IGRAPH_THREAD_LOCAL
#define IGRAPH_THREAD_LOCAL
__thread
#define
IGRAPH_THREAD_SAFE 1
#define
TLS __thread
#define INTERNAL_ARPACK 1
#define INTERNAL_ARPACK 1
#define INTERNAL_BLAS 1
#define INTERNAL_BLAS 1
...
@@ -29,14 +30,15 @@
...
@@ -29,14 +30,15 @@
#define INTERNAL_GLPK 1
#define INTERNAL_GLPK 1
#define INTERNAL_LAPACK 1
#define INTERNAL_LAPACK 1
#define LT_OBJDIR ".libs/"
#define LT_OBJDIR ".libs/"
#define PACKAGE "igraph"
#define PACKAGE "igraph"
#define PACKAGE_BUGREPORT "igraph@igraph.org"
#define PACKAGE_BUGREPORT "igraph@igraph.org"
#define PACKAGE_NAME "igraph"
#define PACKAGE_NAME "igraph"
#define PACKAGE_STRING "igraph 0.8.
0
"
#define PACKAGE_STRING "igraph 0.8.
5
"
#define PACKAGE_TARNAME "igraph"
#define PACKAGE_TARNAME "igraph"
#define PACKAGE_URL ""
#define PACKAGE_URL ""
#define PACKAGE_VERSION "0.8.
0
"
#define PACKAGE_VERSION "0.8.
5
"
#define STDC_HEADERS 1
#define STDC_HEADERS 1
#define VERSION "0.8.
0
"
#define VERSION "0.8.
5
"
#undef YYTEXT_POINTER
#undef YYTEXT_POINTER
tests/Test/Algorithms.hs
View file @
d790e030
...
@@ -150,7 +150,7 @@ communityTest = testGroup "Community"
...
@@ -150,7 +150,7 @@ communityTest = testGroup "Community"
rs
<-
replicateM
50
$
withSeed
134
$
findCommunity
zacharyKarate
Nothing
Nothing
spinglass
rs
<-
replicateM
50
$
withSeed
134
$
findCommunity
zacharyKarate
Nothing
Nothing
spinglass
all
(
==
head
rs
)
rs
@=?
True
all
(
==
head
rs
)
rs
@=?
True
consistency2
=
testCase
"Consistency -- leiden"
$
do
consistency2
=
testCase
"Consistency -- leiden"
$
do
rs
<-
replicateM
50
$
withSeed
234
$
findCommunity
zacharyKarate
Nothing
Nothing
spinglass
rs
<-
replicateM
50
$
withSeed
234
$
findCommunity
zacharyKarate
Nothing
Nothing
leiden
True
@=?
all
(
==
head
rs
)
rs
True
@=?
all
(
==
head
rs
)
rs
gr
=
mkGraph
(
replicate
10
()
)
$
map
(
\
(
i
,
j
)
->
((
i
,
j
),
()
))
gr
=
mkGraph
(
replicate
10
()
)
$
map
(
\
(
i
,
j
)
->
((
i
,
j
),
()
))
[
(
0
,
1
),
(
0
,
2
),
(
0
,
3
),
(
0
,
4
),
(
1
,
2
),
(
1
,
3
),
(
1
,
4
),
(
2
,
3
),
(
2
,
4
)
[
(
0
,
1
),
(
0
,
2
),
(
0
,
3
),
(
0
,
4
),
(
1
,
2
),
(
1
,
3
),
(
1
,
4
),
(
2
,
3
),
(
2
,
4
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment