1 files changed, 461 insertions, 0 deletions

diff --git a/src/quote_fmt_parse.y b/src/quote_fmt_parse.y
new file mode 100644
index 0000000..336b481
--- /dev/null
+++ b/src/quote_fmt_parse.y
@@ -0,0 +1,461 @@
+%{
+
+#include "defs.h"
+
+#include <glib.h>
+#include <ctype.h>
+
+#include "procmsg.h"
+#include "procmime.h"
+#include "utils.h"
+
+#include "quote_fmt.h"
+#include "quote_fmt_lex.h"
+
+/* decl */
+/*
+flex quote_fmt.l
+bison -p quote_fmt quote_fmt.y
+*/
+
+int yylex(void);
+
+static MsgInfo *msginfo = NULL;
+static gboolean *visible = NULL;
+static gint maxsize = 0;
+static gint stacksize = 0;
+
+static gchar *buffer = NULL;
+static gint bufmax = 0;
+static gint bufsize = 0;
+static const gchar *quote_str = NULL;
+static const gchar *body = NULL;
+static gint error = 0;
+
+static void add_visibility(gboolean val)
+{
+        stacksize++;
+        if (maxsize < stacksize) {
+                maxsize += 128;
+                visible = g_realloc(visible, maxsize * sizeof(gboolean));
+                if (visible == NULL)
+                        maxsize = 0;
+        }
+
+        visible[stacksize - 1] = val;
+}
+
+static void remove_visibility(void)
+{
+        stacksize--;
+}
+
+static void add_buffer(const gchar *s)
+{
+        gint len;
+
+        len = strlen(s);
+        if (bufsize + len + 1 > bufmax) {
+                if (bufmax == 0)
+                        bufmax = 128;
+                while (bufsize + len + 1 > bufmax)
+                        bufmax *= 2;
+                buffer = g_realloc(buffer, bufmax);
+        }
+        strcpy(buffer + bufsize, s);
+        bufsize += len;
+}
+
+#if 0
+static void flush_buffer(void)
+{
+        if (buffer != NULL)
+                *buffer = '\0';
+        bufsize = 0;
+}
+#endif
+
+gchar *quote_fmt_get_buffer(void)
+{
+        if (error != 0)
+                return NULL;
+        else
+                return buffer;
+}
+
+#define INSERT(buf) \
+        if (stacksize != 0 && visible[stacksize - 1]) \
+                add_buffer(buf)
+
+#define INSERT_CHARACTER(chr) \
+        if (stacksize != 0 && visible[stacksize - 1]) { \
+                gchar tmp[2]; \
+                tmp[0] = (chr); \
+                tmp[1] = '\0'; \
+                add_buffer(tmp); \
+        }
+
+void quote_fmt_init(MsgInfo *info, const gchar *my_quote_str,
+                    const gchar *my_body)
+{
+        quote_str = my_quote_str;
+        body = my_body;
+        msginfo = info;
+        stacksize = 0;
+        add_visibility(TRUE);
+        if (buffer != NULL)
+                *buffer = 0;
+        bufsize = 0;
+        error = 0;
+}
+
+void quote_fmterror(char *str)
+{
+        g_warning("Error: %s\n", str);
+        error = 1;
+}
+
+int quote_fmtwrap(void)
+{
+        return 1;
+}
+
+static int isseparator(int ch)
+{
+        return g_ascii_isspace(ch) || ch == '.' || ch == '-';
+}
+%}
+
+%union {
+        char chr;
+}
+
+%token SHOW_NEWSGROUPS
+%token SHOW_DATE SHOW_FROM SHOW_FULLNAME SHOW_FIRST_NAME
+%token SHOW_SENDER_INITIAL SHOW_SUBJECT SHOW_TO SHOW_MESSAGEID
+%token SHOW_PERCENT SHOW_CC SHOW_REFERENCES SHOW_MESSAGE
+%token SHOW_QUOTED_MESSAGE SHOW_BACKSLASH SHOW_TAB
+%token SHOW_QUOTED_MESSAGE_NO_SIGNATURE SHOW_MESSAGE_NO_SIGNATURE
+%token SHOW_EOL SHOW_QUESTION_MARK SHOW_OPARENT SHOW_CPARENT
+%token QUERY_DATE QUERY_FROM
+%token QUERY_FULLNAME QUERY_SUBJECT QUERY_TO QUERY_NEWSGROUPS
+%token QUERY_MESSAGEID QUERY_CC QUERY_REFERENCES
+%token OPARENT CPARENT
+%token CHARACTER
+
+%start quote_fmt
+
+%token <chr> CHARACTER
+%type <chr> character
+
+%%
+
+quote_fmt:
+        character_or_special_or_query_list;
+
+character_or_special_or_query_list:
+        character_or_special_or_query character_or_special_or_query_list
+        | character_or_special_or_query ;
+
+character_or_special_or_query:
+        special
+        | character
+        {
+                INSERT_CHARACTER($1);
+        }
+        | query ;
+
+
+character:
+        CHARACTER
+        ;
+
+special:
+        SHOW_NEWSGROUPS
+        {
+                if (msginfo->newsgroups)
+                        INSERT(msginfo->newsgroups);
+        }
+        | SHOW_DATE
+        {
+                if (msginfo->date) {
+                        INSERT(msginfo->date);
+                } else if (msginfo->size == 0) {
+                        gchar buf[64];
+
+                        get_rfc822_date(buf, sizeof(buf));
+                        INSERT(buf);
+                }
+        }
+        | SHOW_FROM
+        {
+                if (msginfo->from)
+                        INSERT(msginfo->from);
+        }
+        | SHOW_FULLNAME
+        {
+                if (msginfo->fromname)
+                        INSERT(msginfo->fromname);
+        }
+        | SHOW_FIRST_NAME
+        {
+                if (msginfo->fromname) {
+                        gchar *p;
+                        gchar *str;
+
+                        str = alloca(strlen(msginfo->fromname) + 1);
+                        if (str != NULL) {
+                                strcpy(str, msginfo->fromname);
+                                p = str;
+                                while (*p && !g_ascii_isspace(*p)) p++;
+                                *p = '\0';
+                                INSERT(str);
+                        }
+                }
+        }
+        | SHOW_SENDER_INITIAL
+        {
+#define MAX_SENDER_INITIAL 20
+                if (msginfo->fromname) {
+                        gchar tmp[MAX_SENDER_INITIAL];
+                        gchar *p;
+                        gchar *cur;
+                        gint len = 0;
+
+                        p = msginfo->fromname;
+                        cur = tmp;
+                        while (*p) {
+                                if (*p && g_ascii_isalnum(*p)) {
+                                        *cur = g_ascii_toupper(*p);
+                                                cur++;
+                                        len++;
+                                        if (len >= MAX_SENDER_INITIAL - 1)
+                                                break;
+                                } else
+                                        break;
+                                while (*p && !isseparator(*p)) p++;
+                                while (*p && isseparator(*p)) p++;
+                        }
+                        *cur = '\0';
+                        INSERT(tmp);
+                }
+        }
+        | SHOW_SUBJECT
+        {
+                if (msginfo->subject)
+                        INSERT(msginfo->subject);
+        }
+        | SHOW_TO
+        {
+                if (msginfo->to)
+                        INSERT(msginfo->to);
+        }
+        | SHOW_MESSAGEID
+        {
+                if (msginfo->msgid)
+                        INSERT(msginfo->msgid);
+        }
+        | SHOW_PERCENT
+        {
+                INSERT("%");
+        }
+        | SHOW_CC
+        {
+                if (msginfo->cc)
+                        INSERT(msginfo->cc);
+        }
+        | SHOW_REFERENCES
+        {
+                /* if (msginfo->references)
+                        INSERT(msginfo->references); */
+        }
+        | SHOW_MESSAGE
+        {
+                gchar buf[BUFFSIZE];
+                FILE *fp = NULL;
+
+                if (body)
+                        fp = str_open_as_stream(body);
+                else if (msginfo->size > 0) {
+                        fp = procmime_get_first_text_content(msginfo, NULL);
+                        if (fp == NULL)
+                                g_warning("quote_fmt_parse.y: Can't get text part\n");
+                }
+
+                if (fp) {
+                        while (fgets(buf, sizeof(buf), fp) != NULL) {
+                                strcrchomp(buf);
+                                INSERT(buf);
+                        }
+                        fclose(fp);
+                }
+        }
+        | SHOW_QUOTED_MESSAGE
+        {
+                gchar buf[BUFFSIZE];
+                FILE *fp = NULL;
+
+                if (body)
+                        fp = str_open_as_stream(body);
+                else if (msginfo->size > 0) {
+                        fp = procmime_get_first_text_content(msginfo, NULL);
+                        if (fp == NULL)
+                                g_warning("quote_fmt_parse.y: Can't get text part\n");
+                }
+
+                if (fp) {
+                        while (fgets(buf, sizeof(buf), fp) != NULL) {
+                                strcrchomp(buf);
+                                if (quote_str)
+                                        INSERT(quote_str);
+                                INSERT(buf);
+                        }
+                        fclose(fp);
+                }
+        }
+        | SHOW_MESSAGE_NO_SIGNATURE
+        {
+                gchar buf[BUFFSIZE];
+                FILE *fp = NULL;
+
+                if (body)
+                        fp = str_open_as_stream(body);
+                else if (msginfo->size > 0) {
+                        fp = procmime_get_first_text_content(msginfo, NULL);
+                        if (fp == NULL)
+                                g_warning("quote_fmt_parse.y: Can't get text part\n");
+                }
+
+                if (fp) {
+                        while (fgets(buf, sizeof(buf), fp) != NULL) {
+                                strcrchomp(buf);
+                                if (strncmp(buf, "-- \n", 4) == 0)
+                                        break;
+                                INSERT(buf);
+                        }
+                        fclose(fp);
+                }
+        }
+        | SHOW_QUOTED_MESSAGE_NO_SIGNATURE
+        {
+                gchar buf[BUFFSIZE];
+                FILE *fp = NULL;
+
+                if (body)
+                        fp = str_open_as_stream(body);
+                else if (msginfo->size > 0) {
+                        fp = procmime_get_first_text_content(msginfo, NULL);
+                        if (fp == NULL)
+                                g_warning("Can't get text part\n");
+                }
+
+                if (fp) {
+                        while (fgets(buf, sizeof(buf), fp) != NULL) {
+                                strcrchomp(buf);
+                                if (strncmp(buf, "-- \n", 4) == 0)
+                                        break;
+                                if (quote_str)
+                                        INSERT(quote_str);
+                                INSERT(buf);
+                        }
+                        fclose(fp);
+                }
+        }
+        | SHOW_BACKSLASH
+        {
+                INSERT("\\");
+        }
+        | SHOW_TAB
+        {
+                INSERT("\t");
+        }
+        | SHOW_EOL
+        {
+                INSERT("\n");
+        }
+        | SHOW_QUESTION_MARK
+        {
+                INSERT("?");
+        }
+        | SHOW_OPARENT
+        {
+                INSERT("{");
+        }
+        | SHOW_CPARENT
+        {
+                INSERT("}");
+        };
+
+query:
+        QUERY_DATE
+        {
+                add_visibility(msginfo->date != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_FROM
+        {
+                add_visibility(msginfo->from != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_FULLNAME
+        {
+                add_visibility(msginfo->fromname != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_SUBJECT
+        {
+                add_visibility(msginfo->subject != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_TO
+        {
+                add_visibility(msginfo->to != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_NEWSGROUPS
+        {
+                add_visibility(msginfo->newsgroups != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_MESSAGEID
+        {
+                add_visibility(msginfo->msgid != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_CC
+        {
+                add_visibility(msginfo->cc != NULL);
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        }
+        | QUERY_REFERENCES
+        {
+                /* add_visibility(msginfo->references != NULL); */
+        }
+        OPARENT quote_fmt CPARENT
+        {
+                remove_visibility();
+        };