mathematica-ChemTools/ChemTools.wl at master · b3m2a1/mathematica-ChemTools · 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
(* ::Subsection::Closed:: *)
(*Temp Loading Flag Code*)


Temp`PackageScope`ChemToolsLoading`Private`$PackageLoadData=
  If[#===None, <||>, Replace[Quiet@Get@#, Except[_?OptionQ]-><||>]]&@
    Append[
      FileNames[
        "LoadInfo."~~"m"|"wl",
        FileNameJoin@{DirectoryName@$InputFileName, "Config"}
        ],
      None
      ][[1]];
Temp`PackageScope`ChemToolsLoading`Private`$PackageLoadMode=
  Lookup[Temp`PackageScope`ChemToolsLoading`Private`$PackageLoadData, "Mode", "Primary"];
Temp`PackageScope`ChemToolsLoading`Private`$DependencyLoad=
  TrueQ[Temp`PackageScope`ChemToolsLoading`Private`$PackageLoadMode==="Dependency"];


(* ::Subsection:: *)
(*Main*)


If[Temp`PackageScope`ChemToolsLoading`Private`$DependencyLoad,
  If[!TrueQ[Evaluate[Symbol["`ChemTools`PackageScope`Private`$LoadCompleted"]]],
    Get@FileNameJoin@{DirectoryName@$InputFileName, "ChemToolsLoader.wl"}
    ],
  If[!TrueQ[Evaluate[Symbol["ChemTools`PackageScope`Private`$LoadCompleted"]]],
    <<ChemTools`ChemToolsLoader`,
   BeginPackage["ChemTools`"];
   EndPackage[];
   ]
  ]