Refacor module "base"

ext/base/init.hpp

@@ -0,0 +1,24 @@
+/**
+ * This file is part of Gomu.
+ *
+ *  Copyright 2016 by Jean Fromentin <jean.fromentin@math.cnrs.fr>
+ *
+ * Gomu 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 3 of the License, or
+ * (at your option) any later version.
+ *
+ * Gomu 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 Gomu. If not, see <http://www.gnu.org/licenses/>. 
+ */
+
+#include "../../interpreter.hpp"
+#include "array.hpp"
+#include "kernel.hpp"
+#include "module.hpp"
+#include "string.hpp"

ext/base/kernel.cpp

@@ -0,0 +1,87 @@
+/**
+ * This file is part of Gomu.
+ *
+ *  Copyright 2016 by Jean Fromentin <jean.fromentin@math.cnrs.fr>
+ *
+ * Gomu 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 3 of the License, or
+ * (at your option) any later version.
+ *
+ * Gomu 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 Gomu. If not, see <http://www.gnu.org/licenses/>. 
+ */
+
+#include "kernel.hpp"
+#include "../../interpreter.hpp"
+
+//------------------------------------
+// assignment(Context&,Value&,Value&)
+//------------------------------------
+
+Value assignment(Context& context,Value& lhs,Value& rhs){
+  Value* rhse=rhs.eval();
+  if(lhs.ptr!=nullptr){
+    //Prevent auto assignement
+    if(((Value*)lhs.ptr)->ptr==rhse->ptr) return rhs;
+    Symbol* symbol=(Symbol*)lhs.ptr;
+    if(symbol->locked) ContextError("The symbol is locked");
+    ((Value*)lhs.ptr)->del();
+  }
+  if(rhs.type==type_symbol){
+    copyValue((Value*)lhs.ptr,rhse);
+  }
+  else{
+    ((Value*)lhs.ptr)->type=rhs.type;
+    ((Value*)lhs.ptr)->ptr=rhs.ptr;
+    rhs.type=type_void;
+    rhs.ptr=nullptr;
+  }
+  return lhs;
+}
+
+//----------------------
+// del(Context&,Value&)
+//----------------------
+
+Value del(Context&,Value& v){
+  ((Value*)v.ptr)->del();  
+  ((Value*)v.ptr)->type=type_void;
+  return Value(type_void,nullptr);
+}
+
+//---------
+// symbols
+//---------
+
+Value symbols(Context& context,Value& v){
+  Type* type=(Type*)v.ptr;
+  string str=type->name+'.';
+  deque<string> stack;
+  auto it=context.symbols.lower_bound(str);
+  while(it->first.substr(0,str.size())==str){
+    stack.push_back(it->first);
+    ++it;
+  }
+  ArrayValue* res=new ArrayValue(stack.size());
+  res->type=type_string;
+  for(size_t i=0;i<stack.size();++i){
+    res->tab[i]=new string(stack[i]);
+  }
+  return Value(type_array,res);
+}
+
+//-----------------------
+// type(Context&,Value&)
+//-----------------------
+
+Value type(Context&,Value& v){
+  if(v.type==type_symbol) return Value(type_type,((Value*)v.ptr)->type); 
+  else return Value(type_type,v.type);
+}
+

ext/base/kernel.hpp

@@ -0,0 +1,36 @@
+/**
+ * This file is part of Gomu.
+ *
+ *  Copyright 2016 by Jean Fromentin <jean.fromentin@math.cnrs.fr>
+ *
+ * Gomu 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 3 of the License, or
+ * (at your option) any later version.
+ *
+ * Gomu 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 Gomu. If not, see <http://www.gnu.org/licenses/>. 
+ */
+
+#include "../../module.hpp"
+
+using namespace Gomu;
+
+//! Assigneme function
+//! \param lhs left hand side of assignment
+//! \param rhs right hand side of assignment
+Value assignment(Context&,Value& lhs,Value& rhs);
+
+//! Unload a symbol
+Value del(Context&,Value&);
+
+//! Return the type of a value
+Value type(Context&,Value&);
+
+//! Return an array of member functions of a type
+Value symbols(Context&,Value&);