Mercurial > octave-antonio
view libinterp/parse-tree/pt-loop.cc @ 20163:075a5e2e1ba5 stable
doc: Update more docstrings to have one sentence summary as first line.
Reviewed build-aux, libinterp/dldfcn, libinterp/octave-value,
libinterp/parse-tree directories.
* build-aux/mk-opts.pl, libinterp/dldfcn/__magick_read__.cc,
libinterp/dldfcn/amd.cc, libinterp/dldfcn/audiodevinfo.cc,
libinterp/dldfcn/audioread.cc, libinterp/dldfcn/ccolamd.cc,
libinterp/dldfcn/chol.cc, libinterp/dldfcn/colamd.cc,
libinterp/dldfcn/convhulln.cc, libinterp/dldfcn/dmperm.cc,
libinterp/dldfcn/fftw.cc, libinterp/dldfcn/qr.cc, libinterp/dldfcn/symbfact.cc,
libinterp/dldfcn/symrcm.cc, libinterp/octave-value/ov-base.cc,
libinterp/octave-value/ov-bool-mat.cc, libinterp/octave-value/ov-cell.cc,
libinterp/octave-value/ov-class.cc, libinterp/octave-value/ov-fcn-handle.cc,
libinterp/octave-value/ov-fcn-inline.cc, libinterp/octave-value/ov-java.cc,
libinterp/octave-value/ov-null-mat.cc, libinterp/octave-value/ov-oncleanup.cc,
libinterp/octave-value/ov-range.cc, libinterp/octave-value/ov-struct.cc,
libinterp/octave-value/ov-typeinfo.cc, libinterp/octave-value/ov-usr-fcn.cc,
libinterp/octave-value/ov.cc, libinterp/parse-tree/lex.ll,
libinterp/parse-tree/oct-parse.in.yy, libinterp/parse-tree/pt-binop.cc,
libinterp/parse-tree/pt-eval.cc, libinterp/parse-tree/pt-mat.cc:
doc: Update more docstrings to have one sentence summary as first line.
author | Rik <rik@octave.org> |
---|---|
date | Sun, 03 May 2015 21:52:42 -0700 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
/* Copyright (C) 1996-2015 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 "quit.h" #include "error.h" #include "gripes.h" #include "oct-map.h" #include "oct-lvalue.h" #include "ov.h" #include "pt-arg-list.h" #include "pt-bp.h" #include "pt-cmd.h" #include "pt-exp.h" #include "pt-jit.h" #include "pt-jump.h" #include "pt-loop.h" #include "pt-stmt.h" #include "pt-walk.h" #include "unwind-prot.h" // While. tree_while_command::~tree_while_command (void) { delete expr; delete list; delete lead_comm; delete trail_comm; #ifdef HAVE_LLVM delete compiled; #endif } tree_command * tree_while_command::dup (symbol_table::scope_id scope, symbol_table::context_id context) const { return new tree_while_command (expr ? expr->dup (scope, context) : 0, list ? list->dup (scope, context) : 0, lead_comm ? lead_comm->dup () : 0, trail_comm ? trail_comm->dup (): 0, line (), column ()); } void tree_while_command::accept (tree_walker& tw) { tw.visit_while_command (*this); } // Do-Until tree_command * tree_do_until_command::dup (symbol_table::scope_id scope, symbol_table::context_id context) const { return new tree_do_until_command (expr ? expr->dup (scope, context) : 0, list ? list->dup (scope, context) : 0, lead_comm ? lead_comm->dup () : 0, trail_comm ? trail_comm->dup (): 0, line (), column ()); } void tree_do_until_command::accept (tree_walker& tw) { tw.visit_do_until_command (*this); } // For. tree_simple_for_command::~tree_simple_for_command (void) { delete lhs; delete expr; delete maxproc; delete list; delete lead_comm; delete trail_comm; #ifdef HAVE_LLVM delete compiled; #endif } tree_command * tree_simple_for_command::dup (symbol_table::scope_id scope, symbol_table::context_id context) const { return new tree_simple_for_command (parallel, lhs ? lhs->dup (scope, context) : 0, expr ? expr->dup (scope, context) : 0, maxproc ? maxproc->dup (scope, context) : 0, list ? list->dup (scope, context) : 0, lead_comm ? lead_comm->dup () : 0, trail_comm ? trail_comm->dup () : 0, line (), column ()); } void tree_simple_for_command::accept (tree_walker& tw) { tw.visit_simple_for_command (*this); } tree_complex_for_command::~tree_complex_for_command (void) { delete lhs; delete expr; delete list; delete lead_comm; delete trail_comm; } tree_command * tree_complex_for_command::dup (symbol_table::scope_id scope, symbol_table::context_id context) const { return new tree_complex_for_command (lhs ? lhs->dup (scope, context) : 0, expr ? expr->dup (scope, context) : 0, list ? list->dup (scope, context) : 0, lead_comm ? lead_comm->dup () : 0, trail_comm ? trail_comm->dup () : 0, line (), column ()); } void tree_complex_for_command::accept (tree_walker& tw) { tw.visit_complex_for_command (*this); }