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