Mercurial > hg > octave-nkf
view src/pt-jump.cc @ 9636:74be4b7273e4 ss-3-3-50
update version info for snapshot
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 12 Sep 2009 06:55:13 -0400 |
parents | eb63fbe60fab |
children | cd96d29c5efa |
line wrap: on
line source
/* Copyright (C) 1996, 1997, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009 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/>. */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include "error.h" #include "oct-obj.h" #include "pt-bp.h" #include "pt-jump.h" #include "pt-walk.h" class octave_value_list; // Break. // Nonzero means we're breaking out of a loop or function body. int tree_break_command::breaking = 0; tree_command * tree_break_command::dup (symbol_table::scope_id, symbol_table::context_id) const { return new tree_break_command (line (), column ()); } void tree_break_command::accept (tree_walker& tw) { tw.visit_break_command (*this); } // Continue. // Nonzero means we're jumping to the end of a loop. int tree_continue_command::continuing = 0; tree_command * tree_continue_command::dup (symbol_table::scope_id, symbol_table::context_id) const { return new tree_continue_command (line (), column ()); } void tree_continue_command::accept (tree_walker& tw) { tw.visit_continue_command (*this); } // Return. // Nonzero means we're returning from a function. int tree_return_command::returning = 0; tree_command * tree_return_command::dup (symbol_table::scope_id, symbol_table::context_id) const { return new tree_return_command (line (), column ()); } void tree_return_command::accept (tree_walker& tw) { tw.visit_return_command (*this); } /* ;;; Local Variables: *** ;;; mode: C++ *** ;;; End: *** */