initial default project file

src/cpp/core/CMakeLists.txt

@@ -53,6 +53,7 @@ set (CORE_SOURCE_FILES
    http/URL.cpp
    http/UriHandler.cpp
    http/Util.cpp
+   r_util/RProjectFile.cpp
    system/System.cpp
    text/DcfParser.cpp
    text/TemplateFilter.cpp

src/cpp/core/include/core/r_util/RProjectFile.hpp

@@ -0,0 +1,31 @@
+/*
+ * RProjectFile.hpp
+ *
+ * Copyright (C) 2009-11 by RStudio, Inc.
+ *
+ * This program is licensed to you under the terms of version 3 of the
+ * GNU Affero General Public License. This program is distributed WITHOUT
+ * ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT,
+ * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the
+ * AGPL (http://www.gnu.org/licenses/agpl-3.0.txt) for more details.
+ *
+ */
+
+#ifndef CORE_R_UTIL_R_PROJECT_FILE_HPP
+#define CORE_R_UTIL_R_PROJECT_FILE_HPP
+
+namespace core {
+
+class Error;
+class FilePath;
+
+namespace r_util {
+
+core::Error writeDefaultProjectFile(const FilePath& filePath);
+
+} // namespace r_util
+} // namespace core 
+
+
+#endif // CORE_R_UTIL_R_PROJECT_FILE_HPP
+

src/cpp/core/r_util/RProjectFile.cpp

@@ -0,0 +1,47 @@
+/*
+ * RProjectFile.cpp
+ *
+ * Copyright (C) 2009-11 by RStudio, Inc.
+ *
+ * This program is licensed to you under the terms of version 3 of the
+ * GNU Affero General Public License. This program is distributed WITHOUT
+ * ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT,
+ * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the
+ * AGPL (http://www.gnu.org/licenses/agpl-3.0.txt) for more details.
+ *
+ */
+
+#include <core/r_util/RProjectFile.hpp>
+
+#include <core/Error.hpp>
+#include <core/FilePath.hpp>
+#include <core/FileSerializer.hpp>
+
+namespace core {
+namespace r_util {
+
+Error writeDefaultProjectFile(const FilePath& filePath)
+{
+   std::string p;
+   p = "# R project file\n"
+       "\n"
+       "# Run .Rprofile file when loading project (Yes/No)\n"
+       "RunProfile: Yes\n"
+       "\n"
+       "# Restore .RData when loading project (Yes/No)\n"
+       "RestoreWorkspace: Yes\n"
+       "\n"
+       "# Save .RData when closing project (Yes/No/Ask)\n"
+       "SaveWorkspace: Yes\n"
+       "\n"
+       "# Save .Rhistory even when not saving .RData (Yes/No)\n"
+       "AlwaysSaveHistory: Yes\n";
+
+   return writeStringToFile(filePath, p);
+}
+
+} // namespace r_util
+} // namespace core 
+
+
+