Re: Simple oct function

[Iago Mosqueira]

OK, thanks to John Eaton and Andrei Romanenko the function looks like this,
but although it compiles fine, when I call it from octave I get a relocation
error: udefined symbol in addone_ and octave crashes.

Any idea?

Many thanks

iago

>
> #include <octave/config.h>
> #include <octave/oct.h>
>
> extern "C" int F77_FUNC (addone, ADDONE) (const int&, int&);
>
> DEFUN_DLD (addone, args, ,
>   "y = addone (x)")
> {
>   octave_value retval;
>
>   int nargin = args.length ();
>
>   if (nargin == 1)
>     {
>       int x = args(0).int_value ();
>
>       if (! error_state)
>         {
>           int result;
>           F77_FUNC (addone, ADDONE) (x, result);
>           retval = static_cast<double> (result);
>         }
>       else
>         error ("addone: expecting integer argument");
>     }
>   else
>     print_usage ("addone");
>
>  return retval;
> }




-------------------------------------------------------------
Octave is freely available under the terms of the GNU GPL.

Octave's home on the web:  http://www.octave.org
How to fund new projects:  http://www.octave.org/funding.html
Subscription information:  http://www.octave.org/archive.html
-------------------------------------------------------------