diff libinterp/octave-value/cdef-class.cc @ 30259:03ff3f1020cf

store file name in classdef class object * ov-classdef.h, ov-classdef.cc (octave_classdef_meta::file_name): New function. * pt-classdef.h, pt-classdef.cc (tree_classdef::m_file_name): New data member. (tree_classdef::tree_classdef): Also accept file name in constructor argument list. (tree_classdef::file_name): New function. * oct-parse.yy (base_parser::make_classdef): Store full file name in created tree_classdef object. * cdef-class.h, cdef-class.cc (cdef_class_rep::file_name, cdef_class::file_name): New functions. (cdef_class:make_meta_class): Store file name in returned class object.
author John W. Eaton <jwe@octave.org>
date Sat, 30 Oct 2021 09:45:23 -0400
parents 58f043641a78
children 91c6288781ba a61e1a0f6024
line wrap: on
line diff
--- a/libinterp/octave-value/cdef-class.cc	Sat Oct 30 13:03:02 2021 +0200
+++ b/libinterp/octave-value/cdef-class.cc	Sat Oct 30 09:45:23 2021 -0400
@@ -847,11 +847,11 @@
                                tree_classdef *t, bool is_at_folder)
   {
     cdef_class retval;
-    std::string class_name, full_class_name;
 
     // Class creation
 
-    class_name = full_class_name = t->ident ()->name ();
+    std::string class_name = t->ident ()->name ();
+    std::string full_class_name = class_name;
     if (! t->package_name ().empty ())
       full_class_name = t->package_name () + '.' + full_class_name;
 
@@ -896,6 +896,7 @@
     retval = cdm.make_class (full_class_name, slist);
 
     retval.doc_string (t->doc_string ());
+    retval.file_name (t->file_name ());
 
     // Package owning this class