Mercurial > hg > octave-jordi

comparison src/defun-dld.h @ 703:21cc5b9b9ed6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-09-15 02:39:57 by jwe]
author jwe
date Thu, 15 Sep 1994 02:41:12 +0000
parents 95ee5e330179
children 1900ccfdf860
comparison
equal deleted inserted replaced
702:45764610984a 703:21cc5b9b9ed6
34 // time. 34 // time.
35 // 35 //
36 // If Octave is not configured for dynamic linking of builtin 36 // If Octave is not configured for dynamic linking of builtin
37 // functions, this is exactly like DEFUN. 37 // functions, this is exactly like DEFUN.
38 38
39 #define DEFUN_DLD(name, fname, sname, nargin_max, nargout_max, doc) \ 39 #if defined (WITH_DLD) && defined (OCTAVE_LITE) && defined (MAKE_BUILTINS)
40 #define DEFUN_DLD_BUILTIN(name, fname, sname, nargin_max, nargout_max, doc) \
41 BEGIN_INSTALL_BUILTIN \
42 DEFINE_FUN_STRUCT (name, 0, sname, nargin_max, nargout_max, 0, doc); \
43 install_builtin_function (&sname); \
44 END_INSTALL_BUILTIN
45 #else
46 #define DEFUN_DLD_BUILTIN(name, fname, sname, nargin_max, nargout_max, doc) \
40 DEFUN_INTERNAL (name, fname, sname, nargin_max, nargout_max, 0, doc) 47 DEFUN_INTERNAL (name, fname, sname, nargin_max, nargout_max, 0, doc)
48 #endif
49
50 // Define a function that may be loaded dynamically at run time.
51 //
52 // If Octave is not configured for dynamic linking of builtin
53 // functions, this won't do anything useful.
54 //
55 // The forward declaration is for the struct, the second is for the
56 // definition of the function.
57
58 #if ! defined (MAKE_BUILTINS)
59 #define DEFUN_DLD(name, fname, sname, fsname, nargin_max, nargout_max, doc) \
60 DECLARE_FUN (fname);
61 DEFINE_FUN_STRUCT (name, fname, sname, nargin_max, nargout_max, 0, doc); \
62 DEFINE_FUN_STRUCT_FUN (sname, fsname) \
63 DECLARE_FUN (fname)
64 #endif
41 65
42 #endif 66 #endif
43 67
44 /* 68 /*
45 ;;; Local Variables: *** 69 ;;; Local Variables: ***