-
Notifications
You must be signed in to change notification settings - Fork 0
/
example.nb
69 lines (62 loc) · 2.1 KB
/
example.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 1994, 61]
NotebookOptionsPosition[ 1711, 46]
NotebookOutlinePosition[ 2069, 62]
CellTagsIndexPosition[ 2026, 59]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{
RowBox[{"SetDirectory", "[",
RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n",
RowBox[{"Needs", "[", "\"\<CCompilerDriver`\>\"", "]"}], "\n",
RowBox[{
RowBox[{"lib", " ", "=", " ",
RowBox[{"CreateLibrary", "[", "\n", "\t",
RowBox[{
RowBox[{"{", "\"\<callGoFunc.c\>\"", "}"}], ",", " ", "\n", "\t",
"\"\<callGoFunc\>\"", ",", " ", "\n", "\t",
RowBox[{"\"\<Debug\>\"", " ", "\[Rule]", " ", "True"}], ",", "\n", "\t",
RowBox[{"\"\<IncludeDirectories\>\"", " ", "\[Rule]", " ",
RowBox[{"NotebookDirectory", "[", "]"}]}], ",", "\n", "\t",
RowBox[{"\"\<Libraries\>\"", " ", "\[Rule]", " ", "\"\<goSquare\>\""}]}],
"\n", "]"}]}], ";"}], "\n",
RowBox[{"callGo", "=",
RowBox[{"LibraryFunctionLoad", "[",
RowBox[{"lib", ",", "\"\<callGoFunc\>\"", ",",
RowBox[{"{", "Integer", "}"}], ",", "Integer"}], "]"}]}], "\n",
RowBox[{"callGo", "[", "3", "]"}], "\n", "9"}], "Code",
InitializationCell->False,
CellChangeTimes->{{3.6909459458161592`*^9, 3.690945970047391*^9}, {
3.690950441145135*^9, 3.690950441847436*^9}, 3.690961967025248*^9}]
},
WindowSize->{1190, 732},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1149, 24, 246, "Code",
InitializationCell->False]
}
]
*)