forgot some files

SVN-Revision: 3302

diff --git a/src/scripting/serialize.cpp b/src/scripting/serialize.cpp
new file mode 100644 (file)
index 0000000..3908196
--- /dev/null
+++ b/src/scripting/serialize.cpp
@@ -0,0 +1,117 @@
+#include "serialize.hpp"
+
+#include <memory>
+#include <assert.h>
+#include "lisp/lisp.hpp"
+#include "lisp/list_iterator.hpp"
+#include "lisp/parser.hpp"
+#include "lisp/writer.hpp"
+
+namespace Scripting
+{
+
+void load_squirrel_table(HSQUIRRELVM v, int table_idx, const lisp::Lisp* lisp)
+{
+  using namespace lisp;
+ 
+  lisp::ListIterator iter(lisp);
+  while(iter.next()) {
+    const std::string& token = iter.item();
+    sq_pushstring(v, token.c_str(), token.size());
+
+    const lisp::Lisp* value = iter.value();
+    switch(value->get_type()) {
+      case Lisp::TYPE_CONS:
+        sq_newtable(v);
+        //load_squirrel_table(v, sq_gettop(v), *iter);
+        break;
+      case Lisp::TYPE_INTEGER:
+        sq_pushinteger(v, value->get_int());
+        break;
+      case Lisp::TYPE_REAL:
+        sq_pushfloat(v, value->get_float());
+        break;
+      case Lisp::TYPE_STRING:
+        sq_pushstring(v, value->get_string().c_str(), -1);
+        break;
+      case Lisp::TYPE_BOOLEAN:
+        sq_pushbool(v, value->get_bool());
+        break;
+      case Lisp::TYPE_SYMBOL:
+        std::cerr << "Unexpected symbol in lisp file...";
+        sq_pushnull(v);
+        break;
+      default:
+        assert(false);
+        break;
+    }
+    if(table_idx < 0) {
+      sq_createslot(v, table_idx - 2);
+    } else {
+      sq_createslot(v, table_idx);
+    }
+  }
+}
+
+void save_squirrel_table(HSQUIRRELVM v, int table_idx, lisp::Writer& writer)
+{
+  // offset because of sq_pushnull
+  if(table_idx < 0)
+    table_idx--;
+  
+  //iterator table
+  sq_pushnull(v);
+  while(SQ_SUCCEEDED(sq_next(v, table_idx))) {
+    if(sq_gettype(v, -2) != OT_STRING) {
+      std::cerr << "Table contains non-string key\n";
+      continue;
+    }
+    const char* key;
+    sq_getstring(v, -2, &key);
+
+    switch(sq_gettype(v, -1)) {
+      case OT_INTEGER: {
+        int val;
+        sq_getinteger(v, -1, &val);
+        writer.write_int(key, val);
+        break;
+      }
+      case OT_FLOAT: {
+        float val;
+        sq_getfloat(v, -1, &val);
+        writer.write_float(key, val);
+        break;
+      }
+      case OT_BOOL: {
+        SQBool val;
+        sq_getbool(v, -1, &val);
+        writer.write_bool(key, val);
+        break;
+      }
+      case OT_STRING: {
+        const char* str;
+        sq_getstring(v, -1, &str);
+        writer.write_string(key, str);
+        break;
+      }
+      case OT_TABLE: {
+        writer.start_list(key);
+        save_squirrel_table(v, -1, writer);
+        writer.end_list(key);
+        break;
+      }
+      case OT_CLOSURE:
+        break; // ignore
+      case OT_NATIVECLOSURE:
+        break;
+      default:
+        std::cerr << "Can't serialize key '" << key << "' in table.\n";
+        break;
+    }
+    sq_pop(v, 2);
+  }
+  sq_pop(v, 1);
+}
+
+}
+

diff --git a/src/scripting/serialize.hpp b/src/scripting/serialize.hpp
new file mode 100644 (file)
index 0000000..bfd0d77
--- /dev/null
+++ b/src/scripting/serialize.hpp
@@ -0,0 +1,19 @@
+#ifndef __SERIALIZE_HPP__
+#define __SERIALIZE_HPP__
+
+#include <squirrel.h>
+#include <string>
+#include "lisp/lisp.hpp"
+#include "lisp/writer.hpp"
+
+namespace Scripting
+{
+
+  void save_squirrel_table(HSQUIRRELVM vm, int table_idx, lisp::Writer& writer);
+  void load_squirrel_table(HSQUIRRELVM vm, int table_idx, const lisp::Lisp& lisp);
+
+}
+
+#endif
+
+