summaryrefslogtreecommitdiff
path: root/wolfram_link
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2018-10-10 21:45:32 -0400
committerJaron Kent-Dobias <jaron@kent-dobias.com>2018-10-10 21:45:32 -0400
commita43ff1f98e9b9814f858bccb11c174b418458491 (patch)
treeae7e094d914eddb8a1ae9548420ba8c2f329ffae /wolfram_link
parent6e264d243f0b29d90e90b605b6cdeab8227129c9 (diff)
downloadc++-a43ff1f98e9b9814f858bccb11c174b418458491.tar.gz
c++-a43ff1f98e9b9814f858bccb11c174b418458491.tar.bz2
c++-a43ff1f98e9b9814f858bccb11c174b418458491.zip
big rearrangement of files to make libraries and example (research) files clearer, and changed to c++ std lib random numbers
Diffstat (limited to 'wolfram_link')
-rw-r--r--wolfram_link/Makefile13
-rw-r--r--wolfram_link/convexminorant.tm34
2 files changed, 0 insertions, 47 deletions
diff --git a/wolfram_link/Makefile b/wolfram_link/Makefile
deleted file mode 100644
index 9d65623..0000000
--- a/wolfram_link/Makefile
+++ /dev/null
@@ -1,13 +0,0 @@
-
-CC = clang
-WSPREP = /opt/Mathematica/SystemFiles/Links/WSTP/DeveloperKit/Linux-x86-64/CompilerAdditions/wsprep
-CFLAGS = -g -Os -O3 -Wall -fno-strict-aliasing -Wstrict-overflow -Wno-missing-field-initializers -flto -fopenmp=libiomp5 -I/usr/lib/gcc/x86_64-linux-gnu/4.8/include/ -march=native -I/opt/Mathematica/SystemFiles/Links/WSTP/DeveloperKit/Linux-x86-64/CompilerAdditions/ -I../lib/
-LDFLAGS = -L/opt/Mathematica/SystemFiles/Links/WSTP/DeveloperKit/Linux-x86-64/CompilerAdditions -lm -lpthread -lrt -lstdc++ -ldl -luuid -l WSTP64i4
-
-convex.o: ../lib/convex.c
- @${CC} -c -o $@ $< ${CFLAGS}
-
-convexminorant: convexminorant.tm convex.o
- @${WSPREP} $< -o $@.c
- @${CC} -o $@ convex.o $@.c ${CFLAGS} ${LDFLAGS}
-
diff --git a/wolfram_link/convexminorant.tm b/wolfram_link/convexminorant.tm
deleted file mode 100644
index edca6f4..0000000
--- a/wolfram_link/convexminorant.tm
+++ /dev/null
@@ -1,34 +0,0 @@
-
-#include <convex.h>
-#include <wstp.h>
-
-extern int WSMain(int, char **);
-
-void convexminorant(double *, int);
-
-:Begin:
-:Function: convexminorant
-:Pattern: GetConvexMinorant[ list:{___Real} ]
-:Arguments: { list }
-:ArgumentTypes: { Real64List }
-:ReturnType: Manual
-:End:
-
-:Evaluate: GetConvexMinorant[ sequence___Float]:= GetConvexMinorant[ {sequence} ]
-
-void convexminorant(double * Gammas, int len) {
- int i;
- for (i = 0; i < len; i++) {
- if (Gammas[i] <= 0) {
- break;
- }
- }
- double *m = get_convex_minorant(i, Gammas);
- WSPutReal64List(stdlink, m, i);
- free(m);
-}
-
-int main(int argc, char **argv) {
- return WSMain(argc, argv);
-}
-