|
3295
|
1 #! /bin/sh |
|
|
2 |
|
|
3 if test $# -ne 1; then |
|
|
4 echo "usage: mkgendoc f1" 1>&2 |
|
|
5 exit 1 |
|
|
6 fi |
|
|
7 |
|
|
8 DOC_FILES=`cat $1` |
|
|
9 |
|
|
10 if test -z "$DOC_FILES"; then |
|
|
11 echo "mkgendoc: DOC_FILES is empty!" 1>&2 |
|
|
12 exit 1 |
|
|
13 fi |
|
|
14 |
|
|
15 cat << \EOF |
|
3364
|
16 // DO NOT EDIT! Generated automatically by mkgendoc |
|
3295
|
17 |
|
|
18 #include <iostream.h> |
|
|
19 #include <string> |
|
|
20 |
|
3364
|
21 #define XDEFUN_DLD_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \ |
|
|
22 print_doc_string (#name, doc); |
|
|
23 |
|
3295
|
24 #define XDEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \ |
|
|
25 print_doc_string (#name, doc); |
|
|
26 |
|
|
27 #define XDEFALIAS_INTERNAL(alias, name) |
|
|
28 |
|
|
29 #define XDEFVAR_INTERNAL(name, sname, defn, protect, chg_fcn, doc) \ |
|
|
30 print_doc_string (#name, doc); |
|
|
31 |
|
3321
|
32 #define XDEFCONST_INTERNAL(name, defn, doc) \ |
|
3295
|
33 print_doc_string (#name, doc); |
|
|
34 |
|
|
35 #define XDEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \ |
|
|
36 d_c_map, c_c_map, lo, hi, \ |
|
|
37 can_ret_cmplx_for_real, doc) \ |
|
|
38 print_doc_string (#name, doc); |
|
|
39 |
|
|
40 static void |
|
|
41 print_doc_string (const string& name, const string& doc) |
|
|
42 { |
|
3321
|
43 cout << " "; |
|
|
44 |
|
|
45 size_t len = name.length (); |
|
|
46 |
|
|
47 if (name[0] == '"' && name[len-1] == '"') |
|
|
48 cout << name.substr (1, len-2); |
|
|
49 else |
|
|
50 cout << name; |
|
|
51 |
|
|
52 cout << "\n" << doc << "\n"; |
|
3295
|
53 } |
|
|
54 |
|
|
55 EOF |
|
|
56 |
|
|
57 for file in $DOC_FILES; do |
|
|
58 fcn=`echo $file | sed 's,^\./,,; s/\.df//; s/-/_/g'` |
|
|
59 echo "static void" |
|
|
60 echo "print_${fcn}_doc_strings (void)" |
|
|
61 echo "{" |
|
|
62 cat $file |
|
|
63 echo "}" |
|
|
64 echo "" |
|
|
65 done |
|
|
66 |
|
|
67 cat << \EOF |
|
|
68 |
|
|
69 int |
|
|
70 main (void) |
|
|
71 { |
|
|
72 EOF |
|
|
73 |
|
|
74 for file in $DOC_FILES; do |
|
|
75 fcn=`echo $file | sed 's,^\./,,; s/\.df//; s/-/_/g'` |
|
|
76 echo " print_${fcn}_doc_strings ();" |
|
|
77 done |
|
|
78 |
|
|
79 cat << \EOF |
|
|
80 |
|
|
81 return 0; |
|
|
82 } |
|
|
83 EOF |
|
|
84 |
|
|
85 exit 0 |
