# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1347935933 14400
# Node ID 4d0ed64a6d1964972e23fbf568abeb2cfb7dfdde
# Parent  2b8d9eac2c2ec8533d7423fdf67c0c506d01dcf9
provide load_workspace and save_workspace functions

* load-save.h, load-save.cc (load_workspace, save_workspace):
New functions.

diff --git a/libinterp/interpfcn/load-save.cc b/libinterp/interpfcn/load-save.cc
--- a/libinterp/interpfcn/load-save.cc
+++ b/libinterp/interpfcn/load-save.cc
@@ -1443,6 +1443,16 @@
     }
 }
 
+void
+load_workspace (const std::string& file)
+{
+  octave_value_list args;
+
+  if (! file.empty ())
+    args(0) = file;
+
+  Fload (args);
+}
 
 DEFUN (save, args, ,
   "-*- texinfo -*-\n\
@@ -1745,6 +1755,17 @@
   return retval;
 }
 
+void
+save_workspace (const std::string& file)
+{
+  octave_value_list args;
+
+  if (! file.empty ())
+    args(0) = file;
+
+  Fsave (args);
+}
+
 DEFUN (crash_dumps_octave_core, args, nargout,
   "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} crash_dumps_octave_core ()\n\
diff --git a/libinterp/interpfcn/load-save.h b/libinterp/interpfcn/load-save.h
--- a/libinterp/interpfcn/load-save.h
+++ b/libinterp/interpfcn/load-save.h
@@ -87,4 +87,7 @@
 extern void
 write_header (std::ostream& os, load_save_format format);
 
+extern OCTINTERP_API void load_workspace (const std::string& file);
+extern OCTINTERP_API void save_workspace (const std::string& file);
+
 #endif