Mercurial > octave
view src/toplev.h @ 13983:7dd7cccf0757
clean up memory allocated for singletons before exit
* singleton-cleanup.h, singleton-cleanup.cc: New files.
* liboctave/Makefile.am (INCS, LIBOCTAVE_CXX_SOURCES):
Add them to the lists.
* toplev.cc (clean_up_and_exit): Call singleton_cleanup_list::cleanup.
* debug.h, debug.cc (bp_table::instance_ok): Move definition to
debug.cc.
* coment-list.h (octave_comment_buffer::~octave_comment_buffer):
Define destructor for class.
* ov-typeinfo.h (octave_value_typeinfo::~octave_value_typeinfo):
Likewise.
* cmd-edit.h (command_editor::cleanup_instance): New function.
* cmd-hist.h (command_history::cleanup_instance): New function.
* file-ops.h (file_ops::cleanup_instance): New function.
* mach-info.h (oct_mach_info::cleanup_instance): New function.
* oct-env.h (octave_env::cleanup_instance): New function.
* oct-fftw.h (octave_fftw_planner::cleanup_instance): New function.
* oct-rand.h (octave_rand::cleanup_instance): New function.
* oct-spparms.h (octave_sparse_params::cleanup_instance):
New function.
* pathsearch.h (static_members::cleanup_instance): New function.
* comment-list.h (octave_comment_buffer::cleanup_instance):
New function.
* debug.h (bp_table::cleanup_instance): New function.
* display.h (display_info::cleanup_instance): New function.
* dynamic-ld.cc (octave_shlib_list::cleanup_instance,
octave_mex_file_list::cleanup_instance): New functions.
* dynamic-ld.h (octave_dynamic_loader::cleanup_instance):
New function.
* load-path.h (load_path::cleanup_instance): New function.
* oct-stream.h (octave_stream_list::cleanup_instance): New function.
* ov-typeinfo.h (octave_value_typeinfo::cleanup_instance):
New function.
* pager.h, pager.cc (octave_pager_stream::instance_ok,
octave_pager_stream::cleanup_instance): New functions.
(octave_diary_stream::instance_ok,
octave_diary_stream::cleanup_instance): New functions.
* sighandlers.h (octave_child_list::cleanup_instance): New function.
* toplev.h (octave_call_stack
* pager.cc (octave_pager_stream::stream, octave_diary_stream::stream):
Use instance_ok to create instance.
* toplev.h (octave_call_stack::cleanup_instance): New function.
* cmd-edit.cc (command_editor::instance_ok):
Register cleanup function.
* cmd-hist.cc (command_history::instance_ok): Likewise.
* file-ops.cc (file_ops::instance_ok): Likewise.
* mach-info.cc (oct_mach_info::instance_ok): Likewise.
* oct-env.cc (octave_env::instance_ok): Likewise.
* oct-fftw.cc (octave_fftw_planner::instance_ok): Likewise.
* oct-rand.cc (octave_rand::instance_ok): Likewise.
* oct-spparms.cc (octave_sparse_params::instance_ok): Likewise.
* pathsearch.cc (dir_path::static_members::instance_ok): Likewise.
* comment-list.cc (comment_list::instance_ok): Likewise.
* debug.cc (bp_table::instance_ok): Likewise.
* display.cc (display_info::instance_ok): Likewise.
* dynamic-ld.cc (octave_shlib_list::instance_ok,
octave_mex_file_list::instance_ok, octave_dynamic_loader): Likewise.
* load-path.cc (load_path::instance_ok): Likewise.
* oct-stream.cc (octave_stream_list::instance_ok): Likewise.
* ov-typeinfo.cc (octave_value_typeinfo::instance_ok): Likewise.
* sighandlers.cc (octave_child_list::instance_ok): Likewise.
* symtab.h, symtab.cc (symbol_table::scope_id::create_instance):
New function.
* symtab.h (symbol_table::scope_id::instance_ok): Call create_instance.
* toplev.h, toplev.cc (octave_call_stack::create_instance):
New function.
* toplev.cc (octave_call_stack::instance_ok): Call create_instance.
* pager.h, pager.cc (octave_pager_stream::set_diary_skip,
octave_pager_stream::flush_current_contents_to_diary): Now static.
octave_pager_stream::do_set_diary_skip,
octave_pager_stream::do_flush_current_contents_to_diary):
New functions.
(octave_pager_stream::stream): Return std::ostream&, not
octave_pager_stream&. If instance creation fails, return std::cout.
(octave_diary_stream::stream): Return std::ostream&, not
octave_diary_stream&. If instance creation fails, return std::cout.
(octave_pager_stream::do_reset, octave_diary_stream::do_reset):
Use instance_ok to create instance.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 03 Dec 2011 04:34:17 -0500 |
parents | 12df7854fa7c |
children | 907d03def9d5 |
line wrap: on
line source
/* Copyright (C) 1993-2011 John W. Eaton This file is part of Octave. Octave 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. Octave 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 Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if !defined (octave_toplev_h) #define octave_toplev_h 1 #include <cstdio> #include <deque> #include <string> class octave_value; class octave_value_list; class octave_function; class octave_user_script; class tree_statement; class tree_statement_list; class charMatrix; #include "quit.h" #include "input.h" #include "oct-map.h" typedef void (*octave_exit_func) (int); extern OCTINTERP_API octave_exit_func octave_exit; extern OCTINTERP_API bool quit_allowed; extern OCTINTERP_API bool quitting_gracefully; extern OCTINTERP_API int exit_status; extern OCTINTERP_API void clean_up_and_exit (int); extern OCTINTERP_API void recover_from_exception (void); extern OCTINTERP_API int main_loop (void); extern OCTINTERP_API void do_octave_atexit (void); extern OCTINTERP_API void octave_add_atexit_function (const std::string& fname); extern OCTINTERP_API bool octave_remove_atexit_function (const std::string& fname); // Current command to execute. extern OCTINTERP_API tree_statement_list *global_command; // TRUE means we are ready to interpret commands, but not everything // is ready for interactive use. extern OCTINTERP_API bool octave_interpreter_ready; // TRUE means we've processed all the init code and we are good to go. extern OCTINTERP_API bool octave_initialized; class OCTINTERP_API octave_call_stack { private: struct call_stack_elt { call_stack_elt (octave_function *f, symbol_table::scope_id s, symbol_table::context_id c, size_t p = 0) : fcn (f), stmt (0), scope (s), context (c), prev (p) { } call_stack_elt (const call_stack_elt& elt) : fcn (elt.fcn), stmt (elt.stmt), scope (elt.scope), context (elt.context), prev (elt.prev) { } octave_function *fcn; tree_statement *stmt; symbol_table::scope_id scope; symbol_table::context_id context; size_t prev; }; protected: octave_call_stack (void) : cs (), curr_frame (0) { } public: typedef std::deque<call_stack_elt>::iterator iterator; typedef std::deque<call_stack_elt>::const_iterator const_iterator; typedef std::deque<call_stack_elt>::reverse_iterator reverse_iterator; typedef std::deque<call_stack_elt>::const_reverse_iterator const_reverse_iterator; static void create_instance (void); static bool instance_ok (void) { bool retval = true; if (! instance) create_instance (); if (! instance) { ::error ("unable to create call stack object!"); retval = false; } return retval; } // Current function (top of stack). static octave_function *current (void) { return instance_ok () ? instance->do_current () : 0; } // Current statement (top of stack). static tree_statement *current_statement (void) { return instance_ok () ? instance->do_current_statement () : 0; } // Current line in current function. static int current_line (void) { return instance_ok () ? instance->do_current_line () : -1; } // Current column in current function. static int current_column (void) { return instance_ok () ? instance->do_current_column () : -1; } // Line in user code caller. static int caller_user_code_line (void) { return instance_ok () ? instance->do_caller_user_code_line () : -1; } // Column in user code caller. static int caller_user_code_column (void) { return instance_ok () ? instance->do_caller_user_code_column () : -1; } // Caller function, may be built-in. static octave_function *caller (void) { return instance_ok () ? instance->do_caller () : 0; } static size_t current_frame (void) { return instance_ok () ? instance->do_current_frame () : 0; } static size_t size (void) { return instance_ok () ? instance->do_size () : 0; } static size_t num_user_code_frames (octave_idx_type& curr_user_frame) { return instance_ok () ? instance->do_num_user_code_frames (curr_user_frame) : 0; } static symbol_table::scope_id current_scope (void) { return instance_ok () ? instance->do_current_scope () : 0; } static symbol_table::context_id current_context (void) { return instance_ok () ? instance->do_current_context () : 0; } // Function at location N on the call stack (N == 0 is current), may // be built-in. static octave_function *element (size_t n) { return instance_ok () ? instance->do_element (n) : 0; } // First user-defined function on the stack. static octave_user_code *caller_user_code (size_t nskip = 0) { return instance_ok () ? instance->do_caller_user_code (nskip) : 0; } static void push (octave_function *f, symbol_table::scope_id scope = symbol_table::current_scope (), symbol_table::context_id context = symbol_table::current_context ()) { if (instance_ok ()) instance->do_push (f, scope, context); } static void push (symbol_table::scope_id scope = symbol_table::current_scope (), symbol_table::context_id context = symbol_table::current_context ()) { if (instance_ok ()) instance->do_push (0, scope, context); } static void set_statement (tree_statement *s) { if (instance_ok ()) instance->do_set_statement (s); } static bool goto_frame (size_t n = 0, bool verbose = false) { return instance_ok () ? instance->do_goto_frame (n, verbose) : false; } static void restore_frame (size_t n) { goto_frame (n); } static bool goto_frame_relative (int n, bool verbose = false) { return instance_ok () ? instance->do_goto_frame_relative (n, verbose) : false; } static void goto_caller_frame (void) { if (instance_ok ()) instance->do_goto_caller_frame (); } static void goto_base_frame (void) { if (instance_ok ()) instance->do_goto_base_frame (); } static octave_map backtrace (size_t nskip, octave_idx_type& curr_user_frame) { return instance_ok () ? instance->do_backtrace (nskip, curr_user_frame) : octave_map (); } static octave_map empty_backtrace (void); static void pop (void) { if (instance_ok ()) instance->do_pop (); } static void clear (void) { if (instance_ok ()) instance->do_clear (); } static void backtrace_error_message (void) { if (instance_ok ()) instance->do_backtrace_error_message (); } private: // The current call stack. std::deque<call_stack_elt> cs; size_t curr_frame; static octave_call_stack *instance; static void cleanup_instance (void) { delete instance; instance = 0; } int do_current_line (void) const; int do_current_column (void) const; int do_caller_user_code_line (void) const; int do_caller_user_code_column (void) const; octave_function *do_caller (void) const { return curr_frame > 1 ? cs[curr_frame-1].fcn : cs[0].fcn; } size_t do_current_frame (void) { return curr_frame; } size_t do_size (void) { return cs.size (); } size_t do_num_user_code_frames (octave_idx_type& curr_user_frame) const; symbol_table::scope_id do_current_scope (void) const { return curr_frame > 0 && curr_frame < cs.size () ? cs[curr_frame].scope : 0; } symbol_table::context_id do_current_context (void) const { return curr_frame > 0 && curr_frame < cs.size () ? cs[curr_frame].context : 0; } octave_function *do_element (size_t n) { octave_function *retval = 0; if (cs.size () > n) { call_stack_elt& elt = cs[n]; retval = elt.fcn; } return retval; } octave_user_code *do_caller_user_code (size_t nskip) const; void do_push (octave_function *f, symbol_table::scope_id scope, symbol_table::context_id context) { size_t prev_frame = curr_frame; curr_frame = cs.size (); cs.push_back (call_stack_elt (f, scope, context, prev_frame)); symbol_table::set_scope_and_context (scope, context); } octave_function *do_current (void) const { octave_function *retval = 0; if (! cs.empty ()) { const call_stack_elt& elt = cs[curr_frame]; retval = elt.fcn; } return retval; } tree_statement *do_current_statement (void) const { tree_statement *retval = 0; if (! cs.empty ()) { const call_stack_elt& elt = cs[curr_frame]; retval = elt.stmt; } return retval; } void do_set_statement (tree_statement *s) { if (! cs.empty ()) { call_stack_elt& elt = cs.back (); elt.stmt = s; } } octave_map do_backtrace (size_t nskip, octave_idx_type& curr_user_frame) const; bool do_goto_frame (size_t n, bool verbose); bool do_goto_frame_relative (int n, bool verbose); void do_goto_caller_frame (void); void do_goto_base_frame (void); void do_pop (void) { if (cs.size () > 1) { const call_stack_elt& elt = cs.back (); curr_frame = elt.prev; cs.pop_back (); const call_stack_elt& new_elt = cs[curr_frame]; symbol_table::set_scope_and_context (new_elt.scope, new_elt.context); } } void do_clear (void) { cs.clear (); } void do_backtrace_error_message (void) const; }; #endif