Lui/Lui.m at master · dbigham/Lui · GitHub

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
BeginPackage["Lui`Lui`"]

Needs["JLink`"]

Needs["WUtils`WUtils`"]; (* CreateReloadFunctionForDirectory, etc. *)

ReloadLui::usage = "ReloadLui  "

$LuiJavaPath::usage = "$LuiJavaPath  "

$LuiDir::usage = "$LuiDir  ";

$Grammar::usage = "$Grammar  "

Begin["`Private`"]

$LuiDir = FileNameDrop[FindFile["Lui`Lui`"], -1];
$LuiJavaPath = FileNameJoin[{$LuiDir, "bin"}];

(* Disabled unless doing active Lui development. *)
If [False,
    With[{package = "Lui`"},
    With[{dir = DirectoryName[DirectoryName[FindFile[package]]]},
        Lui`Private`$ReloadFunction = ReloadLui;
        WUtils`WUtils`TabsOrSpaces[package] = "Tabs";
        If [!ValueQ[$reloadLui],
            $reloadLui =
                CreateReloadFunctionForDirectory[
                    DirectoryName[DirectoryName[FindFile[package]]]
                ];
        ];
        Lui`$UnitTestDir = FileNameJoin[{DirectoryName[DirectoryName[FindFile[package]]], "Tests"}];
        WUtils`WUtils`NotebookTypeToDirectory[package] = FileNameJoin[{dir, "Notebooks"}];
    ];
    ];

    (* Reloads .m files in this directory if they've changed. *)
    ReloadLui[] := $reloadLui[];
    If [!ListQ[Global`$ReloadFunctions], Global`$ReloadFunctions = {}];
    Global`$ReloadFunctions =
        DeleteDuplicates[
            Append[Global`$ReloadFunctions, ReloadLui]
        ]
]

End[]

EndPackage[]