[Pingus-CVS] rev 2216 - trunk/src

[Ingo Ruhnke]

Author: grumbel
Date: 2004-04-06 03:47:11 +0200 (Tue, 06 Apr 2004)
New Revision: 2216

Added:
   trunk/src/test.xml
   trunk/src/xml_eval.cxx
   trunk/src/xml_eval.hxx
Log:
- added experimental xml-scripting language

Added: trunk/src/test.xml
===================================================================
--- trunk/src/test.xml  2004-04-05 14:56:08 UTC (rev 2215)
+++ trunk/src/test.xml  2004-04-06 01:47:11 UTC (rev 2216)
@@ -0,0 +1,40 @@
+<block>
+    <defvar name="foo" value="3" />
+
+    <defun name="dosomething">
+      <foobar />
+
+      <defvarvar name="tmp" var="foo" />
+      <modulo var="tmp" value="2" />
+
+      <if-zero var="tmp">
+        <printvar var="foo" />
+        <print string=" ist gerade!" />
+        <newline />
+      </if-zero>
+
+      <if-non-zero var="tmp">
+        <printvar var="foo" />
+        <print string=" ist ungerade!" />
+        <newline />
+      </if-non-zero>
+
+      <add  var="foo" value="5" />
+      <mult var="foo" value="3" />
+
+      <printvar var="i" />
+      <print string=". Hello World "/>
+      <printvar var="foo" />
+      <newline />
+    </defun>
+
+    <print string="-- Start"/>
+    <newline />
+    
+    <for name="i" start="1" end="5">
+      <funcall name="dosomething" />
+    </for>
+
+    <print string="-- End" />
+    <newline />
+</block>
\ No newline at end of file

Added: trunk/src/xml_eval.cxx
===================================================================
--- trunk/src/xml_eval.cxx      2004-04-05 14:56:08 UTC (rev 2215)
+++ trunk/src/xml_eval.cxx      2004-04-06 01:47:11 UTC (rev 2216)
@@ -0,0 +1,161 @@
+//  $Id$
+//
+//  Pingus - A free Lemmings clone
+//  Copyright (C) 2002 Ingo Ruhnke <address@hidden>
+//
+//  This program is free software; you can redistribute it and/or
+//  modify it under the terms of the GNU General Public License
+//  as published by the Free Software Foundation; either version 2
+//  of the License, or (at your option) any later version.
+//
+//  This program is distributed in the hope that it will be useful,
+//  but WITHOUT ANY WARRANTY; without even the implied warranty of
+//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//  GNU General Public License for more details.
+//
+//  You should have received a copy of the GNU General Public License
+//  along with this program; if not, write to the Free Software
+//  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+#include <iostream>
+#include <ClanLib/core.h>
+#include "xml_eval.hxx"
+#include "string_converter.hxx"
+
+namespace XMLEval {
+
+std::map<std::string, int> variables;
+std::map<std::string, CL_DomNode> functions;
+
+void eval_block(CL_DomNode child)
+{
+  while(!child.is_null())
+    { 
+      if (child.is_element())
+        eval(child);
+                  
+      child = child.get_next_sibling();
+    }
+}
+
+void eval(const CL_DomNode& cur)
+{
+  CL_DomElement el = cur.to_element();
+
+  if (cur.is_element())
+    {
+      if (cur.get_node_name() == "for")
+        {         
+          std::string var   = el.get_attribute("name");
+          int start = 0;
+          int end   = 0;
+
+          from_string(el.get_attribute("start"), start);
+          from_string(el.get_attribute("end"), end);
+
+          for(int i = start; i <= end; ++i)
+            {
+              variables[var] = i;
+              eval_block(cur.get_first_child());
+            }
+        }
+      else if (cur.get_node_name() == "newline")
+        {
+          std::cout << std::endl;
+        }
+      else if (cur.get_node_name() == "printvar")
+        {
+          std::cout << variables[el.get_attribute("var")] << std::flush;       
   
+        }
+      else if (cur.get_node_name() == "print")
+        {
+          std::cout << el.get_attribute("string") << std::flush;
+        }
+      else if (cur.get_node_name() == "foobar")
+        {
+          std::cout << "Foobar" << std::endl;
+        }
+      else if (cur.get_node_name() == "block")
+        {
+          eval_block(cur.get_first_child());
+        }
+      else if (cur.get_node_name() == "defvar")
+        {
+          int value = 0;
+          from_string(el.get_attribute("value"), value);
+          variables[el.get_attribute("name")] = value;
+        }
+      else if (cur.get_node_name() == "defun")
+        {
+          functions[el.get_attribute("name")] = el.get_first_child();
+        }
+      else if (cur.get_node_name() == "defvarvar")
+        {
+          variables[el.get_attribute("name")] = 
variables[el.get_attribute("var")];
+        }
+      else if (cur.get_node_name() == "modulo")
+        {
+          int value = 0;
+          from_string(el.get_attribute("value"), value);
+          variables[el.get_attribute("var")] = 
variables[el.get_attribute("var")] % value;
+        }
+      else if (cur.get_node_name() == "add")
+        {
+          int value = 0;
+          from_string(el.get_attribute("value"), value);
+          variables[el.get_attribute("var")] = 
variables[el.get_attribute("var")] + value;
+        }
+      else if (cur.get_node_name() == "if-non-zero")
+        {
+          int var = variables[el.get_attribute("var")];
+          if (var != 0)
+            eval_block(cur.get_first_child());
+        }
+      else if (cur.get_node_name() == "if-zero")
+        {
+          int var = variables[el.get_attribute("var")];
+          if (var == 0)
+            eval_block(cur.get_first_child());
+        }
+      else if (cur.get_node_name() == "mult")
+        {
+          int value = 0;
+          from_string(el.get_attribute("value"), value);
+          variables[el.get_attribute("var")] = 
variables[el.get_attribute("var")] * value;
+        }
+      else if (cur.get_node_name() == "funcall")
+        {
+          eval_block(functions[el.get_attribute("name")]);
+        }
+      else
+        {
+          std::cout << "Unknown command: " << cur.get_node_name() << std::endl;
+        }
+    }
+  else
+    {
+      std::cout << "Unknown thingy" << std::endl;
+    }
+}
+
+} // namespace XMLEval
+
+int main(int argc, char** argv)
+{
+  try {
+  CL_SetupCore::init();
+
+  CL_DomDocument dom(new CL_InputSource_File("test.xml"), true);
+
+  CL_DomNode cur = dom.get_document_element();
+  
+  XMLEval::eval(cur);
+
+  CL_SetupCore::deinit();
+  } catch (CL_Error& err) {
+    std::cout << "CL_Error: " << err.message << std::endl;
+  }
+  return 0;
+}
+
+/* EOF */

Added: trunk/src/xml_eval.hxx
===================================================================
--- trunk/src/xml_eval.hxx      2004-04-05 14:56:08 UTC (rev 2215)
+++ trunk/src/xml_eval.hxx      2004-04-06 01:47:11 UTC (rev 2216)
@@ -0,0 +1,32 @@
+//  $Id$
+// 
+//  Pingus - A free Lemmings clone
+//  Copyright (C) 2002 Ingo Ruhnke <address@hidden>
+//
+//  This program is free software; you can redistribute it and/or
+//  modify it under the terms of the GNU General Public License
+//  as published by the Free Software Foundation; either version 2
+//  of the License, or (at your option) any later version.
+//
+//  This program is distributed in the hope that it will be useful,
+//  but WITHOUT ANY WARRANTY; without even the implied warranty of
+//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//  GNU General Public License for more details.
+// 
+//  You should have received a copy of the GNU General Public License
+//  along with this program; if not, write to the Free Software
+//  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+#ifndef HEADER_XML_EVAL_HXX
+#define HEADER_XML_EVAL_HXX
+
+namespace XMLEval {
+
+void eval(const CL_DomNode& cur);
+void eval_block(CL_DomNode cur);
+
+} // namespace XMLEval
+
+#endif
+
+/* EOF */