|
6218
|
1 #! /bin/sh |
|
2335
|
2 |
|
5794
|
3 if test $# -ne 1; then |
|
|
4 echo "usage: mkbuiltins f1" 1>&2 |
|
2907
|
5 exit 1 |
|
|
6 fi |
|
|
7 |
|
4299
|
8 SED=${SED:-'sed'} |
|
|
9 |
|
2907
|
10 DEF_FILES=`cat $1` |
|
|
11 |
|
|
12 if test -z "$DEF_FILES"; then |
|
|
13 echo "mkbuiltins: DEF_FILES is empty!" 1>&2 |
|
|
14 exit 1 |
|
|
15 fi |
|
|
16 |
|
2335
|
17 cat << \EOF |
|
|
18 // DO NOT EDIT! Generated automatically by mkbuiltins. |
|
|
19 |
|
|
20 #ifdef HAVE_CONFIG_H |
|
|
21 #include "config.h" |
|
|
22 #endif |
|
|
23 |
|
2968
|
24 #include "defun.h" |
|
2335
|
25 #include "oct-obj.h" |
|
|
26 #include "variables.h" |
|
|
27 |
|
3399
|
28 #if defined (quad) |
|
|
29 #undef quad |
|
|
30 #endif |
|
|
31 |
|
4128
|
32 #if defined (ENABLE_DYNAMIC_LINKING) |
|
5796
|
33 |
|
3364
|
34 #define XDEFUN_DLD_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) |
|
5796
|
35 |
|
|
36 #define XDEFUNX_DLD_INTERNAL(name, fname, args_name, nargout_name, \ |
|
|
37 is_text_fcn, doc) |
|
|
38 |
|
3364
|
39 #else |
|
5796
|
40 |
|
3364
|
41 #define XDEFUN_DLD_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \ |
|
|
42 XDEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) |
|
5796
|
43 |
|
|
44 #define XDEFUNX_DLD_INTERNAL(name, fname, args_name, nargout_name, \ |
|
|
45 is_text_fcn, doc) \ |
|
|
46 XDEFUNX_INTERNAL(name, fname, args_name, nargout_name, is_text_fcn, doc) |
|
|
47 |
|
3364
|
48 #endif |
|
|
49 |
|
3295
|
50 #define XDEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \ |
|
|
51 extern DECLARE_FUN (name, args_name, nargout_name); \ |
|
4234
|
52 install_builtin_function (F ## name, #name, doc, is_text_fcn); \ |
|
|
53 |
|
|
54 #define XDEFCONSTFUN_INTERNAL(name, args_name, nargout_name, \ |
|
|
55 is_text_fcn, doc) \ |
|
|
56 extern DECLARE_FUN (name, args_name, nargout_name); \ |
|
|
57 install_builtin_function (F ## name, #name, doc, is_text_fcn, false); \ |
|
3295
|
58 |
|
3744
|
59 #define XDEFUNX_INTERNAL(name, fname, args_name, nargout_name, \ |
|
|
60 is_text_fcn, doc) \ |
|
|
61 extern DECLARE_FUNX (fname, args_name, nargout_name); \ |
|
4234
|
62 install_builtin_function (fname, name, doc, is_text_fcn); \ |
|
3744
|
63 |
|
3295
|
64 #define XDEFALIAS_INTERNAL(alias, name) \ |
|
|
65 alias_builtin (#alias, #name); |
|
|
66 |
|
3321
|
67 #define XDEFCONST_INTERNAL(name, defn, doc) |
|
3295
|
68 |
|
|
69 #define XDEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \ |
|
|
70 d_c_map, c_c_map, lo, hi, \ |
|
4100
|
71 ch_map_flag, can_ret_cmplx_for_real, doc) |
|
3295
|
72 |
|
2373
|
73 EOF |
|
|
74 |
|
2907
|
75 for file in $DEF_FILES; do |
|
4299
|
76 fcn=`echo $file | $SED 's,^\./,,; s/\.df//; s/-/_/g'` |
|
2373
|
77 echo "static void" |
|
|
78 echo "install_${fcn}_fcns (void)" |
|
|
79 echo "{" |
|
|
80 cat $file |
|
|
81 echo "}" |
|
2907
|
82 echo "" |
|
|
83 done |
|
|
84 |
|
2373
|
85 cat << \EOF |
|
2907
|
86 |
|
|
87 static void |
|
2335
|
88 install_builtin_functions (void) |
|
|
89 { |
|
|
90 EOF |
|
|
91 |
|
2907
|
92 for file in $DEF_FILES; do |
|
4299
|
93 fcn=`echo $file | $SED 's,^\./,,; s/\.df//; s/-/_/g'` |
|
2373
|
94 echo " install_${fcn}_fcns ();" |
|
|
95 done |
|
2335
|
96 |
|
|
97 cat << \EOF |
|
|
98 } |
|
|
99 |
|
2910
|
100 extern void install_mapper_functions (void); |
|
|
101 |
|
2335
|
102 void |
|
|
103 install_builtins (void) |
|
|
104 { |
|
|
105 install_mapper_functions (); |
|
|
106 install_builtin_functions (); |
|
|
107 } |
|
|
108 EOF |
|
|
109 |
|
|
110 exit 0 |
