Added "source" command, for executing valexpr files

1 files changed, 24 insertions, 0 deletions

diff --git a/src/expr.cc b/src/expr.cc
index 5bc537d9..878da3f7 100644
--- a/src/expr.cc
+++ b/src/expr.cc
@@ -33,6 +33,7 @@
 
 #include "expr.h"
 #include "parser.h"
+#include "scope.h"
 
 namespace ledger {
 
@@ -162,4 +163,27 @@ void expr_t::dump(std::ostream& out) const
   if (ptr) ptr->dump(out, 0);
 }
 
+value_t source_command(call_scope_t& args)
+{
+  std::istream * in = NULL;
+  scoped_ptr<ifstream> stream;
+
+  if (args.has(0)) {
+    stream.reset(new ifstream(path(args.get<string>(0))));
+    in = stream.get();
+  }
+
+  symbol_scope_t file_locals(args);
+
+  while (in->good() && ! in->eof()) {
+    char buf[4096];
+    in->getline(buf, 4095);
+
+    if (buf[0] != ';')
+      expr_t(buf).calc(file_locals);
+  }
+
+  return true;
+}
+
 } // namespace ledger