Installer.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     16329,        470]
NotebookOptionsPosition[     15011,        417]
NotebookOutlinePosition[     15488,        439]
CellTagsIndexPosition[     15414,        434]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Run the following code to install the Toolbox", "Subsection"],

Cell["\<\
The following code will install the MASS Toolbox in \
$UserBaseDirectory/Applications\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"install", "[", 
    RowBox[{"path_String:", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
      "]"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "configPath", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SetDirectory", "[", 
       RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", 
       RowBox[{
        RowBox[{"DeleteDirectory", "[", 
         RowBox[{
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{"path", ",", "\"\<Toolbox\>\""}], "}"}], "]"}], ",", 
          RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], ",", 
        RowBox[{"{", 
         StyleBox[
          RowBox[{"DeleteDirectory", "::", "nodir"}], "MessageName"], "}"}]}],
        "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"CopyDirectory", "[", 
       RowBox[{"\"\<Toolbox\>\"", ",", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path", ",", "\"\<Toolbox\>\""}], "}"}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", 
       RowBox[{
        RowBox[{"DeleteDirectory", "[", 
         RowBox[{
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{"path", ",", "\"\<AutomaticUnits\>\""}], "}"}], "]"}], 
          ",", 
          RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], ",", 
        RowBox[{"{", 
         StyleBox[
          RowBox[{"DeleteDirectory", "::", "nodir"}], "MessageName"], "}"}]}],
        "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"CopyDirectory", "[", 
       RowBox[{"\"\<AutomaticUnits\>\"", ",", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path", ",", "\"\<AutomaticUnits\>\""}], "}"}], "]"}]}], 
       "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"install", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.624074264671877*^9, 3.6240742731735888`*^9}, {
  3.624074650996521*^9, 3.6240746959425087`*^9}, {3.6256129091812162`*^9, 
  3.625612912606317*^9}, {3.628267099491096*^9, 3.6282671069533854`*^9}, {
  3.644254895636889*^9, 3.644254915674518*^9}, {3.644587882015006*^9, 
  3.644587894119781*^9}},
 CellTags->"InstallCode"],

Cell[BoxData[
 RowBox[{"NotebookClose", "[", "]"}]], "Input",
 CellChangeTimes->{{3.636072013017332*^9, 3.636072016463275*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Run the following code to uninstall the Toolbox", "Subsection"],

Cell["\<\
The following code will determine the location of the currently installed \
MASS Toolbox and uninstall it\
\>", "Text"],

Cell[BoxData[{
 RowBox[{"<<", "Toolbox`"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Toolbox", "::", "gitrepository"}], "=", 
   "\"\<Package found at `1` is a GIT repository and not a regular \
installation of the Toolbox. It will not be removed.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"installationDirectory", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{
     RowBox[{"FileNameSplit", "[", 
      RowBox[{"DirectoryName", "[", 
       RowBox[{"FindFile", "[", "\"\<Toolbox`\>\"", "]"}], "]"}], "]"}], "[", 
     
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"-", "2"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"FileNameTake", "/@", 
       RowBox[{"FileNames", "[", 
        RowBox[{"\"\<.*\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"DirectoryName", "[", "installationDirectory", "]"}], 
          "}"}]}], "]"}]}], ",", "\"\<.git\>\""}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Message", "[", 
     RowBox[{
      RowBox[{"Toolbox", "::", "gitrepository"}], ",", 
      "installationDirectory"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"ChoiceDialog", "[", 
       RowBox[{"StringJoin", "[", 
        RowBox[{
        "\"\<Are you sure that you want to delete the following directory:\\n\
\>\"", ",", "installationDirectory", ",", 
         "\"\<\\nThis action cannot be undone.\>\""}], "]"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"DeleteDirectory", "[", 
       RowBox[{"installationDirectory", ",", 
        RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.628267132443421*^9, 3.628267135314639*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Run the following code to deploy the Toolbox (for developers only!)\
\>", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"deploy", "[", "path_String", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"gitCommitHash", ",", "path2", ",", "configPath"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"gitCommitHash", "=", 
       RowBox[{
        RowBox[{"StringSplit", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"StringSplit", "[", 
            RowBox[{
             RowBox[{"Import", "[", 
              RowBox[{"\"\<.git/logs/HEAD\>\"", ",", "\"\<Text\>\""}], "]"}], 
             ",", "\"\<\\n\>\""}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}], ",", "\"\< \>\""}], "]"}], "[", 
        
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"path2", "=", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{"path", ",", 
          RowBox[{
           RowBox[{"DateString", "[", 
            RowBox[{"{", 
             RowBox[{
             "\"\<Year\>\"", ",", "\"\<\>\"", ",", "\"\<Month\>\"", ",", 
              "\"\<\>\"", ",", "\"\<Day\>\""}], "}"}], "]"}], "<>", 
           "\"\<_\>\"", "<>", "\"\<MASS-Toolbox\>\"", "<>", "\"\<_\>\"", "<>", 
           RowBox[{"StringTake", "[", 
            RowBox[{"gitCommitHash", ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}]}], "}"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"DirectoryQ", "[", "path2", "]"}]}], ",", 
        RowBox[{"CreateDirectory", "[", "path2", "]"}], ",", 
        RowBox[{
         RowBox[{"DeleteDirectory", "[", 
          RowBox[{"path2", ",", 
           RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], ";", 
         RowBox[{"CreateDirectory", "[", "path2", "]"}], ";"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"SetDirectory", "[", 
       RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", 
       RowBox[{
        RowBox[{"DeleteDirectory", "[", 
         RowBox[{
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{"path2", ",", "\"\<Toolbox\>\""}], "}"}], "]"}], ",", 
          RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], ",", 
        RowBox[{"{", 
         StyleBox[
          RowBox[{"DeleteDirectory", "::", "nodir"}], "MessageName"], "}"}]}],
        "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"CopyDirectory", "[", 
       RowBox[{"\"\<Toolbox\>\"", ",", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path2", ",", "\"\<Toolbox\>\""}], "}"}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"DeleteDirectory", "[", 
       RowBox[{
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path2", ",", "\"\<Toolbox/Documentation\>\""}], "}"}], 
         "]"}], ",", 
        RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"CopyDirectory", "[", 
       RowBox[{"\"\<build/Toolbox/Documentation\>\"", ",", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
          "path2", ",", "\"\<Toolbox\>\"", ",", "\"\<Documentation\>\""}], 
          "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"CopyFile", "[", 
       RowBox[{"\"\<LICENSE.txt\>\"", ",", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path2", ",", "\"\<LICENSE.txt\>\""}], "}"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"CopyFile", "[", 
       RowBox[{"\"\<README.md\>\"", ",", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path2", ",", "\"\<README.md\>\""}], "}"}], "]"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Set", " ", "version", " ", "information", " ", "in", " ", 
        RowBox[{"Config", ".", "m"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"configPath", "=", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{"path2", ",", "\"\<Toolbox/Config.m\>\""}], "}"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{"configPath", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Import", "[", 
          RowBox[{"configPath", ",", "\"\<Text\>\""}], "]"}], "<>", 
         "\"\<\\n\\n$Toolbox$Version = \\\"\>\"", "<>", "gitCommitHash", 
         "<>", "\"\<\\\"\>\""}], "\[IndentingNewLine]", ",", "\"\<Text\>\""}],
        "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{"path2", ",", "\"\<Installer.nb\>\""}], "}"}], "]"}], ",", 
        RowBox[{"Notebook", "[", 
         RowBox[{
          RowBox[{"Import", "[", "\"\<Installer.nb\>\"", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", 
            RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}]}], "]"}], ";"}]}],
     "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"deploy", "[", "\"\</Users/niko/tmp/\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.581985596844112*^9, 3.581985649162616*^9}, {
  3.581985714758624*^9, 3.5819857820525*^9}, {3.581985898542766*^9, 
  3.5819859256030207`*^9}, {3.628267143997563*^9, 3.628267155460804*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Development setup (for developers only!)", "Subsection"],

Cell[CellGroupData[{

Cell["Setup", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"1.", " ", "Run"}], ";", " ", 
     RowBox[{"2.", " ", 
      RowBox[{"Quit", "[", "]"}]}]}], ",", " ", 
    RowBox[{"3.", " ", 
     RowBox[{"<<", "Toolbox`"}], " ", "should", " ", "work"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"initDir", "=", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
       "$UserBaseDirectory", ",", "\"\<Kernel\>\"", ",", "\"\<init.m\>\""}], 
       "}"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"setupString", "=", 
     RowBox[{
     "\"\<\\n\\n(** Start Toolbox Development Setup **)\\nAppendTo[$Path,\\\"\
\>\"", "<>", 
      RowBox[{"StringReplace", "[", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        RowBox[{"\"\<\\\\\>\"", "\[Rule]", "\"\</\>\""}]}], "]"}], "<>", 
      "\"\<\\\"]\\n(** End Toolbox Development Setup **)\\n\>\""}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"initFile", "=", 
     RowBox[{"Import", "[", 
      RowBox[{"initDir", ",", "\"\<Text\>\""}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"initFile", "=", 
     RowBox[{"StringReplace", "[", 
      RowBox[{"initFile", ",", 
       RowBox[{
        RowBox[{
        "Whitespace", "~~", "\"\<(** Start Toolbox Development Setup **)\>\"",
          "~~", "__", "~~", "\"\<(** End Toolbox Development Setup **)\>\""}],
         "\[Rule]", "\"\<\>\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"initDir", ",", 
      RowBox[{"initFile", "<>", "setupString"}], ",", "\"\<Text\>\""}], "]"}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"Import", "[", 
    RowBox[{"initDir", ",", "\"\<Text\>\""}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Quit", "[", "]"}]}]}]], "Input"],

Cell[BoxData["\<\"(* ::Package:: *)\\n\\n(** User Mathematica initialization \
file **)\\n\\n(*AppendTo[$Path, \
ToFileName[{$HomeDirectory,\\\"work/Code/MathematicaRepo/ModelBuilding/\\\"}]]\
;\\nAppendTo[$Path, ToFileName[{$HomeDirectory,\\\"work/Code/MathematicaRepo/\
\\\"}]];\\nAppendTo[$Path, \
ToFileName[{$HomeDirectory,\\\"work/Code/MathematicaRepo/MASStoolbox/\\\"}]];*\
)\\n\\n(** Start Toolbox Development Setup \
**)\\nAppendTo[$Path,\\\"/Users/niko/work/Code/MathematicaRepo/MASStoolbox/\\\
\"]\\n(** End Toolbox Development Setup **)\"\>"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "MASStoolbox`"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cleanup", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"initDir", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$UserBaseDirectory", ",", "\"\<Kernel\>\"", ",", "\"\<init.m\>\""}], 
     "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"initFile", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"initDir", ",", "\"\<Text\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"initFile", "=", 
   RowBox[{"StringReplace", "[", 
    RowBox[{"initFile", ",", 
     RowBox[{
      RowBox[{
      "Whitespace", "~~", "\"\<(** Start Toolbox Development Setup **)\>\"", "~~",
        "__", "~~", "\"\<(** End Toolbox Development Setup **)\>\""}], 
      "\[Rule]", "\"\<\>\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"initDir", ",", "initFile", ",", "\"\<Text\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Import", "[", 
  RowBox[{"initDir", ",", "\"\<Text\>\""}], "]"}]}], "Input"],

Cell[BoxData["\<\"(* ::Package:: *)\\n\\n(** User Mathematica initialization \
file **)\"\>"], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{967, 450},
WindowMargins->{{Automatic, 68}, {15, Automatic}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "InstallCode"->{
  Cell[761, 29, 2421, 60, 165, "Input",
   CellTags->"InstallCode"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"InstallCode", 15321, 428}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 67, 0, 44, "Subsection"],
Cell[649, 24, 109, 3, 30, "Text"],
Cell[761, 29, 2421, 60, 165, "Input",
 CellTags->"InstallCode"],
Cell[3185, 91, 127, 2, 28, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3349, 98, 69, 0, 44, "Subsection"],
Cell[3421, 100, 129, 3, 30, "Text"],
Cell[3553, 105, 1985, 53, 233, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5575, 163, 97, 2, 44, "Subsection"],
Cell[5675, 167, 5489, 130, 403, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11201, 302, 62, 0, 44, "Subsection"],
Cell[CellGroupData[{
Cell[11288, 306, 30, 0, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[11343, 310, 1842, 50, 199, "Input"],
Cell[13188, 362, 565, 8, 199, "Output"]
}, Open  ]],
Cell[13768, 373, 56, 1, 28, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13861, 379, 32, 0, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[13918, 383, 946, 26, 131, "Input"],
Cell[14867, 411, 104, 1, 63, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)