octave: src/symtab.cc comparison

also stash directory name for subfunctions

comparison

equal deleted inserted replaced

-:8dee145c777d
+:96d87674b818
 #include "dirfns.h"
 #include "input.h"
 #include "load-path.h"
 #include "symtab.h"
 #include "ov-fcn.h"
+#include "ov-usr-fcn.h"
 #include "pager.h"
 #include "parse.h"
 #include "pt-arg-list.h"
 #include "toplev.h"
 #include "unwind-prot.h"
 os << "\n";
 }
 }
+void
+symbol_table::stash_dir_name_for_subfunctions (scope_id scope,
+					       const std::string& dir_name)
+{
+// FIXME -- is this the best way to do this?  Maybe it would be
+// better if we had a map from scope to list of subfunctions
+// stored with the function.  Do we?
+for (fcn_table_const_iterator p = fcn_table.begin ();
+p != fcn_table.end (); p++)
+{
+std::pair<std::string, octave_value> tmp
+	= p->second.subfunction_defined_in_scope (scope);
+std::string nm = tmp.first;
+if (! nm.empty ())
+	{
+	  octave_value& fcn = tmp.second;
+	  octave_user_function *f = fcn.user_function_value ();
+	  if (f)
+	    f->stash_dir_name (dir_name);
+	}
+}
+}
 octave_value
 symbol_table::do_find (const std::string& name, tree_argument_list *args,
 		       const string_vector& arg_names,
 		       octave_value_list& evaluated_args,
 		       bool& args_evaluated, bool skip_variables)

Mercurial > octave