Store the source tarballs into a subdirectory to remove clutter.

Restructure the announcing code so that there can be multiple announce
targets.

"Announce" to a file in the output directory by default.

Also announce the list of active thorns and all parameter values.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/Formaline/trunk@14 83718e91-0e4f-0410-abf4-91180603181f

1 files changed, 77 insertions, 0 deletions

diff --git a/src/storage.cc b/src/storage.cc
new file mode 100644
index 0000000..b4f6cd4
--- /dev/null
+++ b/src/storage.cc
@@ -0,0 +1,77 @@
+// $Header$
+
+#include <sstream>
+
+#include "storage.hh"
+
+using namespace std;
+
+
+
+storage::
+~ storage ()
+{
+}
+
+
+
+void storage::
+store (char const * const key,
+       int const value)
+{
+  assert (key);
+  
+  ostringstream keybuf;
+  keybuf << key;
+  ostringstream valuebuf;
+  valuebuf << value;
+  
+  ostringstream buf;
+  buf << "<key>" << clean (keybuf.str()) << "</key> "
+      << "<value>" << clean (valuebuf.str()) << "</value>\n";
+  
+  write (buf.str());
+}
+
+
+
+void storage::
+store (char const * const key,
+       char const * const value)
+{
+  assert (key);
+  
+  ostringstream keybuf;
+  keybuf << key;
+  ostringstream valuebuf;
+  valuebuf << value;
+  
+  ostringstream buf;
+  buf << "<key>" << clean (keybuf.str()) << "</key> "
+      << "<value>" << clean (valuebuf.str()) << "</value>\n";
+  
+  write (buf.str());
+}
+
+
+
+string storage::
+clean (string const & txt)
+  const
+{
+  ostringstream buf;
+  
+  for (string::const_iterator p = txt.begin(); p != txt.end(); ++ p)
+  {
+    switch (* p)
+    {
+    case '<': buf << "<langle>"; break;
+    case '>': buf << "<rangle>"; break;
+//     case '"': buf << "<quote>"; break;
+//     case '\\': buf << "<backslash>"; break;
+    default: buf << * p;
+    }
+  }
+  
+  return buf.str();
+}