(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      7814,        225]
NotebookOptionsPosition[      6727,        187]
NotebookOutlinePosition[      7118,        204]
CellTagsIndexPosition[      7075,        201]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"projectDirectory", "=", "\"\<C:\\\\project\\\\\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"projectHashSave", "=", "\"\<project.mx\>\""}], ";"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetFilenames", "[", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Pick", "[", 
      RowBox[{"#", ",", 
       RowBox[{"StringMatchQ", "[", 
        RowBox[{"#", ",", 
         RowBox[{"__", "~~", "\"\<.\>\"", "~~", "__"}]}], "]"}]}], "]"}], 
     "&"}], "/@", 
    RowBox[{"FileNames", "[", 
     RowBox[{"__", ",", 
      RowBox[{"{", "projectDirectory", "}"}], ",", "Infinity"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"projectUpdate", "[", "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"projectFiles", "=", 
      RowBox[{"GetFilenames", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"projectHash", "[", "file_", "]"}], ":=", "0"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"projectHash", "[", "#", "]"}], "=", 
         RowBox[{"FileHash", "[", "#", "]"}]}], ")"}], "&"}], "/@", 
      "projectFiles"}], ";", "\[IndentingNewLine]", 
     RowBox[{"DumpSave", "[", 
      RowBox[{"projectHashSave", ",", "projectHash"}], "]"}], ";"}], 
    "\[IndentingNewLine]", ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"projectChanges", "[", "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"<<", "\"\<project.mx\>\""}], ";", "\[IndentingNewLine]", 
     RowBox[{"TprojectFiles", "=", 
      RowBox[{"GetFilenames", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", "\"\<Changed Files:\>\"", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"FileHash", "[", "#", "]"}], "\[NotEqual]", 
          RowBox[{"projectHash", "[", "#", "]"}]}], ",", 
         RowBox[{"Print", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
      "TprojectFiles"}], ";"}], "\[IndentingNewLine]", ")"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.4482045274065638`*^9, 3.4482045279395638`*^9}, {
  3.448204604175564*^9, 3.4482046301955643`*^9}, {3.4482046927955637`*^9, 
  3.448204695852564*^9}, {3.448204762595564*^9, 3.448204762876564*^9}, {
  3.448205304430564*^9, 3.448205306857564*^9}, {3.448205462744564*^9, 
  3.448205478303564*^9}, {3.448205515878564*^9, 3.4482055673615637`*^9}, {
  3.448205786548564*^9, 3.448205849799564*^9}, {3.4482059487885637`*^9, 
  3.448206026461564*^9}, {3.4482063047035637`*^9, 3.448206329416564*^9}, {
  3.448206390483564*^9, 3.4482063912615643`*^9}, {3.448206457565564*^9, 
  3.4482065243945637`*^9}, {3.448207118752564*^9, 3.448207124520564*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"projectChanges", "[", "]"}]], "Input",
 CellChangeTimes->{{3.448206410659564*^9, 3.4482064152075644`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Changed Files:\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608271916*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\bugs_love.docx\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082722390003`*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\bugs_love.html\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082722539997`*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\bugs_love.pdf\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608272277*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\gallery.html\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082724*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\globscript.js\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082724379997`*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\heap_make.docx\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608272506*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\heap_make.html\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082725290003`*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\heap_make.pdf\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608272547*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\images\\\\bugs_love.png\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082725620003`*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\index.html\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608272848*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\mult_fns.html\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608273165*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\news2.txt\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.4506082732060003`*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\news3.txt\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608273223*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\news.txt\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608273256*^9}],

Cell[BoxData["\<\"C:\\\\project\\\\search\\\\index.html\"\>"], "Print",
 CellChangeTimes->{
  3.4482064157365637`*^9, {3.448206505757564*^9, 3.4482065302215643`*^9}, 
   3.450608273307*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"projectUpdate", "[", "]"}]], "Input",
 CellChangeTimes->{{3.4482065114125643`*^9, 3.448206515491564*^9}}]
},
WindowSize->{960, 549},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
CellLabelAutoDelete->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 210, 5, 52, "Input"],
Cell[758, 27, 2656, 64, 272, "Input"],
Cell[CellGroupData[{
Cell[3439, 95, 130, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[3594, 101, 166, 3, 23, "Print"],
Cell[3763, 106, 188, 3, 23, "Print"],
Cell[3954, 111, 188, 3, 23, "Print"],
Cell[4145, 116, 182, 3, 23, "Print"],
Cell[4330, 121, 179, 3, 23, "Print"],
Cell[4512, 126, 187, 3, 23, "Print"],
Cell[4702, 131, 183, 3, 23, "Print"],
Cell[4888, 136, 188, 3, 23, "Print"],
Cell[5079, 141, 182, 3, 23, "Print"],
Cell[5264, 146, 197, 3, 23, "Print"],
Cell[5464, 151, 179, 3, 23, "Print"],
Cell[5646, 156, 182, 3, 23, "Print"],
Cell[5831, 161, 183, 3, 23, "Print"],
Cell[6017, 166, 178, 3, 23, "Print"],
Cell[6198, 171, 177, 3, 23, "Print"],
Cell[6378, 176, 189, 3, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[6594, 183, 129, 2, 31, "Input"]
}
]
*)

(* End of internal cache information *)