Mercurial > octave-nkf

view libinterp/corefcn/hook-fcn.cc @ 19907:d575cd1e0da7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace std::size_t with bare size_t for conformity to rest of code. * gl2ps-renderer.cc (draw): Replace std::size_t with size_t. * help.cc (size): Replace std::size_t with size_t. * __fltk_uigetfile__.cc (F__fltk_uigetfile__): Replace std::size_t with size_t. * __init_fltk__.cc (fltk_uimenu::find_index_by_name): Replace std::size_t with size_t. * audioread.cc (Faudiowrite): Replace std::size_t with size_t.
author Rik <rik@octave.org>
date Fri, 27 Feb 2015 15:51:12 -0800
parents 4197fc428c7d
children
line wrap: on
line source

/*

Copyright (C) 2013-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/>.

*/

#include <config.h>

#include "hook-fcn.h"

hook_function::hook_function (const octave_value& f, const octave_value& d)
{
  if (f.is_string ())
    {
      std::string name = f.string_value ();

      rep = new named_hook_function (name, d);
    }
  else if (f.is_function_handle ())
    {
      rep = new fcn_handle_hook_function (f, d);
    }
  else
    error ("invalid hook function");
}