more setupts in cfg.lua
[apps/madmutt.git] / lib-lua / lua-token.sh
1 #! /bin/sh -e
2
3 die() {
4     echo "$@" 1>&2
5     exit 2
6 }
7
8 do_hdr() {
9     cat <<EOF
10 /*
11  *  This program is free software; you can redistribute it and/or modify
12  *  it under the terms of the GNU General Public License as published by
13  *  the Free Software Foundation; either version 2 of the License, or (at
14  *  your option) any later version.
15  *
16  *  This program is distributed in the hope that it will be useful, but
17  *  WITHOUT ANY WARRANTY; without even the implied warranty of
18  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19  *  General Public License for more details.
20  *
21  *  You should have received a copy of the GNU General Public License
22  *  along with this program; if not, write to the Free Software
23  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
24  *  MA 02110-1301, USA.
25  *
26  *  Copyright © 2007 Pierre Habouzit
27  */
28
29 /*****     THIS FILE IS AUTOGENERATED DO NOT MODIFY DIRECTLY !    *****/
30
31 EOF
32 }
33
34 do_h() {
35     do_hdr
36     cat <<EOF
37 #ifndef MUTT_LIB_LUA_LUA_TOKEN_H
38 #define MUTT_LIB_LUA_LUA_TOKEN_H
39
40 typedef enum mlua_token {
41     LTK_UNKNOWN = -1,
42 `grep_self "$0" | tr 'a-z-/' 'A-Z__' | sed -e 's/.*/    LTK_&,/'`
43     LTK_count,
44 } mlua_token;
45
46 extern const char *__mlua_token[LTK_count];
47
48 __attribute__((pure))
49 mlua_token mlua_which_token(const char *s, ssize_t len);
50 #endif /* MUTT_LIB_LUA_LUA_TOKEN_H */
51 EOF
52 }
53
54 do_tokens() {
55     while read tok; do
56         echo "$tok, LTK_`echo $tok | tr 'a-z-' 'A-Z_'`"
57     done
58 }
59
60 do_c() {
61     cat <<EOF | gperf -m16 -l -t -C -F",0" -Nmlua_which_token_aux
62 %{
63 `do_hdr`
64
65 #include <lib-lib/lib-lib.h>
66 #include "lua-token.h"
67
68 static const struct tok *
69 mlua_which_token_aux(const char *str, unsigned int len);
70
71 %}
72 struct tok { const char *name; int val; };
73 %%
74 `grep_self "$0" | do_tokens`
75 %%
76
77 const char *__mlua_token[LTK_count] = {
78 `grep_self "$0" | sed -e 's/.*/    "&",/'`
79 };
80
81 mlua_token mlua_which_token(const char *s, ssize_t len)
82 {
83     if (len < 0)
84         len = m_strlen(s);
85
86     if (len) {
87         const struct tok *res = mlua_which_token_aux(s, len);
88         return res ? res->val : LTK_UNKNOWN;
89     } else {
90         return LTK_UNKNOWN;
91     }
92 }
93 EOF
94 }
95
96 grep_self() {
97     grep '^## ' "$1" | cut -d' ' -f2
98 }
99
100 trap "rm -f $1" 1 2 3 15
101
102 rm -f $1
103 case "$1" in
104     *.h) do_h > $1;;
105     *.c) do_c > $1;;
106     *)  die "you must ask for the 'h' or 'c' generation";;
107 esac
108 chmod -w $1
109
110 exit 0
111
112 ############ Put tokens here ############
113 ## alias_file
114 ## alias_format
115 ## ask-no
116 ## ask-yes
117 ## assumed_charset
118 ## autoencrypt
119 ## autopgp
120 ## autosign
121 ## autosmime
122 ## beep
123 ## beep_new
124 ## bindir
125 ## ca_certificates_file
126 ## cert_file
127 ## charset
128 ## docdir
129 ## dotlock
130 ## dsn_notify
131 ## dsn_return
132 ## editor
133 ## envelope_from_address
134 ## file_charset
135 ## force_tls
136 ## from
137 ## gecos_mask
138 ## hcache_backend
139 ## homedir
140 ## hostname
141 ## mailcap_path
142 ## mailcap_sanitize
143 ## mail_check
144 ## min_dh_prime_bits
145 ## no
146 ## operating_system
147 ## pgp_entry_format
148 ## quit
149 ## record
150 ## replyencrypt
151 ## replysign
152 ## replysignencrypted
153 ## send_charset
154 ## sendmail
155 ## sendmail_wait
156 ## shell
157 ## shorthost
158 ## signature
159 ## smime_is_default
160 ## spam_separator
161 ## starttls
162 ## sysconfdir
163 ## tmpdir
164 ## use_8bitmime
165 ## use_domain
166 ## use_envelope_from
167 ## username
168 ## use_sslv3
169 ## use_tlsv1
170 ## verify_sig
171 ## version
172 ## yes