#! /bin/sh -e

die() {
    echo "$@" 1>&2
    exit 2
}

do_hdr() {
    cat <<EOF
/*
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or (at
 *  your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful, but
 *  WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 *  MA 02110-1301, USA.
 *
 *  Copyright © 2007 Pierre Habouzit
 */

/*****     THIS FILE IS AUTOGENERATED DO NOT MODIFY DIRECTLY !    *****/

EOF
}

do_h() {
    do_hdr
    cat <<EOF
#ifndef MUTT_LIB_LUA_LUA_TOKEN_H
#define MUTT_LIB_LUA_LUA_TOKEN_H

typedef enum mlua_token {
    LTK_UNKNOWN = -1,
`grep_self "$0" | tr 'a-z-/' 'A-Z__' | sed -e 's/.*/    LTK_&,/'`
    LTK_count,
} mlua_token;

extern const char *__mlua_token[LTK_count];

__attribute__((pure))
mlua_token mlua_which_token(const char *s, ssize_t len);
#endif /* MUTT_LIB_LUA_LUA_TOKEN_H */
EOF
}

do_tokens() {
    while read tok; do
        echo "$tok, LTK_`echo $tok | tr 'a-z-' 'A-Z_'`"
    done
}

do_c() {
    cat <<EOF | gperf -m16 -l -t -C -F",0" -Nmlua_which_token_aux | sed -e '/__gnu_inline__/d;s/\<\(__\|\)inline\>//g'
%{
`do_hdr`

#include <lib-lib/lib-lib.h>
#include "lua-token.h"

static const struct tok *
mlua_which_token_aux(const char *str, unsigned int len);

%}
struct tok { const char *name; int val; };
%%
`grep_self "$0" | do_tokens`
%%

const char *__mlua_token[LTK_count] = {
`grep_self "$0" | sed -e 's/.*/    "&",/'`
};

mlua_token mlua_which_token(const char *s, ssize_t len)
{
    if (len < 0)
        len = m_strlen(s);

    if (len) {
        const struct tok *res = mlua_which_token_aux(s, len);
        return res ? res->val : LTK_UNKNOWN;
    } else {
        return LTK_UNKNOWN;
    }
}
EOF
}

grep_self() {
    grep '^## ' "$1" | cut -d' ' -f2
}

trap "rm -f $1" 1 2 3 15

rm -f $1
case "$1" in
    *.h) do_h > $1;;
    *.c) do_c > $1;;
    *)  die "you must ask for the 'h' or 'c' generation";;
esac
chmod -w $1

exit 0

############ Put tokens here ############
## alias_file
## alias_format
## ask-no
## ask-yes
## assumed_charset
## autoencrypt
## autopgp
## autosign
## autosmime
## beep
## beep_new
## bindir
## ca_certificates_file
## cachedir
## cert_file
## charset
## docdir
## dsn_notify
## dsn_return
## editor
## enable
## envelope_from_address
## file_charset
## force_tls
## from
## gecos_mask
## hcache_backend
## homedir
## hostname
## mailcap_path
## mailcap_sanitize
## mail_check
## min_dh_prime_bits
## no
## operating_system
## pgp_entry_format
## quit
## record
## replyencrypt
## replysign
## replysignencrypted
## send_charset
## sendmail
## sendmail_wait
## shell
## shorthost
## signature
## smime_is_default
## spam_separator
## sysconfdir
## threshold_delete
## threshold_flag
## threshold_read
## tmpdir
## use_8bitmime
## use_domain
## use_envelope_from
## username
## use_sslv3
## use_tlsv1
## verify_sig
## version
## yes