+/*
+ * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
+ * Copyright (C) 1999-2002 Hiroyuki Yamamoto and the Sylpheed-Claws Team
+ *
+ * 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
%{
#include "defs.h"
-#include <ctype.h>
-#include <gtk/gtk.h>
#include <glib.h>
+#include <ctype.h>
#include "procmsg.h"
#include "procmime.h"
#include "utils.h"
-#include "intl.h"
+#include "procheader.h"
#include "quote_fmt.h"
#include "quote_fmt_lex.h"
bison -p quote_fmt quote_fmt.y
*/
-static MsgInfo * msginfo = NULL;
-static gboolean * visible = NULL;
+int yylex(void);
+
+static MsgInfo *msginfo = NULL;
+static gboolean *visible = NULL;
static gint maxsize = 0;
static gint stacksize = 0;
-static gchar * buffer = NULL;
+static gchar *buffer = NULL;
static gint bufmax = 0;
static gint bufsize = 0;
-static gchar * quote_str = NULL;
+static const gchar *quote_str = NULL;
+static const gchar *body = NULL;
static gint error = 0;
static void add_visibility(gboolean val)
{
- stacksize ++;
+ stacksize++;
if (maxsize < stacksize) {
maxsize += 128;
visible = g_realloc(visible, maxsize * sizeof(gboolean));
visible[stacksize - 1] = val;
}
-static void remove_visibility()
+static void remove_visibility(void)
{
- stacksize --;
+ stacksize--;
}
-
-static void add_buffer(gchar * s)
+static void add_buffer(const gchar *s)
{
- gint len = strlen(s);
-
+ gint len;
+
+ len = strlen(s);
if (bufsize + len + 1 > bufmax) {
if (bufmax == 0)
bufmax = 128;
bufsize += len;
}
-static void flush_buffer()
-{
- if (buffer != NULL)
- *buffer = 0;
- bufsize = 0;
-}
-
-gchar * quote_fmt_get_buffer()
+gchar *quote_fmt_get_buffer(void)
{
if (error != 0)
return NULL;
add_buffer(tmp); \
}
-void quote_fmt_init(MsgInfo * info, gchar * my_quote_str)
+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);
error = 0;
}
-void quote_fmterror(char * str)
+void quote_fmterror(char *str)
{
- g_warning(_("Error %s\n"), str);
+ g_warning("Error: %s\n", str);
error = 1;
}
%union {
char chr;
+ char str[256];
}
%token SHOW_NEWSGROUPS
-%token SHOW_DATE SHOW_FROM SHOW_FULLNAME SHOW_FIRST_NAME
+%token SHOW_DATE SHOW_FROM SHOW_FULLNAME SHOW_FIRST_NAME SHOW_LAST_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 SHOW_EOL SHOW_QUESTION_MARK SHOW_PIPE 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 INSERT_FILE INSERT_PROGRAMOUTPUT
%token OPARENT CPARENT
%token CHARACTER
+%token SHOW_DATE_EXPR
%start quote_fmt
%token <chr> CHARACTER
%type <chr> character
+%type <str> string
%%
quote_fmt:
- character_or_special_or_query_list;
+ character_or_special_or_insert_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_insert_or_query_list:
+ character_or_special_or_insert_or_query character_or_special_or_insert_or_query_list
+ | character_or_special_or_insert_or_query ;
-character_or_special_or_query:
- special ;
+character_or_special_or_insert_or_query:
+ special
| character
{
INSERT_CHARACTER($1);
}
- | query ;
-
+ | query
+ | insert ;
character:
CHARACTER
;
+string:
+ CHARACTER
+ {
+ $$[0] = $1;
+ $$[1] = '\0';
+ }
+ | string CHARACTER
+ {
+ strcpy($$, $1);
+ $$[strlen($$) + 1] = '\0';
+ $$[strlen($$)] = $2;
+ };
+
special:
SHOW_NEWSGROUPS
{
if (msginfo->newsgroups)
INSERT(msginfo->newsgroups);
}
+ | SHOW_DATE_EXPR OPARENT string CPARENT
+ {
+ /*
+ * ALF - GNU C's strftime() has a nice format specifier
+ * for time zone offset (%z). Non-standard however, so
+ * emulate it.
+ */
+ if (msginfo->date) {
+ char result[100];
+ char *rptr;
+ char zone[6];
+ struct tm lt;
+ const char *fptr;
+ const char *zptr;
+
+#define RLEFT (sizeof result) - (rptr - result)
+#define STR_SIZE(x) (sizeof (x) - 1)
+
+ zone[0] = 0;
+
+ if (procheader_date_parse_to_tm(msginfo->date, <, zone)) {
+ /*
+ * break up format string in tiny bits delimited by valid %z's and
+ * feed it to strftime(). don't forget that '%%z' mean literal '%z'.
+ */
+ for (rptr = result, fptr = $3; fptr && *fptr && rptr < &result[sizeof result - 1];) {
+ int perc;
+ const char *p;
+ char *tmp;
+
+ if (NULL != (zptr = strstr(fptr, "%z"))) {
+ /*
+ * count nr. of prepended percent chars
+ */
+ for (perc = 0, p = zptr; p && p >= $3 && *p == '%'; p--, perc++)
+ ;
+ /*
+ * feed to strftime()
+ */
+ tmp = g_strndup(fptr, zptr - fptr + (perc % 2 ? 0 : STR_SIZE("%z")));
+ if (tmp) {
+ rptr += strftime(rptr, RLEFT, tmp, <);
+ g_free(tmp);
+ }
+ /*
+ * append time zone offset
+ */
+ if (zone[0] && perc % 2)
+ rptr += g_snprintf(rptr, RLEFT, "%s", zone);
+ fptr = zptr + STR_SIZE("%z");
+ } else {
+ rptr += strftime(rptr, RLEFT, fptr, <);
+ fptr = NULL;
+ }
+ }
+
+ INSERT(result);
+ }
+#undef STR_SIZE
+#undef RLEFT
+ }
+ }
| SHOW_DATE
{
if (msginfo->date)
| SHOW_FIRST_NAME
{
if (msginfo->fromname) {
- gchar * p;
- gchar * str;
+ gchar *p;
+ gchar *str;
str = alloca(strlen(msginfo->fromname) + 1);
if (str != NULL) {
}
}
}
+ | SHOW_LAST_NAME
+ {
+ /* This probably won't work together very well with Middle
+ names and the like - thth */
+ if (msginfo->fromname) {
+ gchar *p;
+ gchar *str;
+
+ str = alloca(strlen(msginfo->fromname) + 1);
+ if (str != NULL) {
+ strcpy(str, msginfo->fromname);
+ p = str;
+ while (*p && !isspace(*p)) p++;
+ if (*p) {
+ /* We found a space. Get first none-space char and
+ insert rest of string from there. */
+ while (*p && isspace(*p)) p++;
+ if (*p) {
+ INSERT(p);
+ } else {
+ /* If there is no none-space char, just insert
+ whole fromname. */
+ INSERT(str);
+ }
+ } else {
+ /* If there is no space, just insert whole fromname. */
+ INSERT(str);
+ }
+ }
+ }
+ }
| SHOW_SENDER_INITIAL
{
#define MAX_SENDER_INITIAL 20
if (msginfo->fromname) {
gchar tmp[MAX_SENDER_INITIAL];
- gchar * p;
- gchar * cur;
+ gchar *p;
+ gchar *cur;
gint len = 0;
p = msginfo->fromname;
while (*p) {
if (*p && isalnum(*p)) {
*cur = toupper(*p);
- cur ++;
- len ++;
+ cur++;
+ len++;
if (len >= MAX_SENDER_INITIAL - 1)
break;
- }
- else
+ } else
break;
while (*p && !isseparator(*p)) p++;
while (*p && isseparator(*p)) p++;
}
| SHOW_REFERENCES
{
- if (msginfo->references)
- INSERT(msginfo->references);
+ /* if (msginfo->references)
+ INSERT(msginfo->references); */
}
| SHOW_MESSAGE
{
- gchar buf[BUFFSIZE];
- FILE * fp;
-
- if ((fp = procmime_get_first_text_content(msginfo)) == NULL)
- g_warning(_("Can't get text part\n"));
- while (fgets(buf, sizeof(buf), fp) != NULL) {
- INSERT(buf);
+ if (msginfo->folder || body) {
+ gchar buf[BUFFSIZE];
+ FILE *fp;
+
+ if (body)
+ fp = str_open_as_stream(body);
+ else
+ fp = procmime_get_first_text_content(msginfo);
+
+ if (fp == NULL)
+ g_warning("Can't get text part\n");
+ else {
+ while (fgets(buf, sizeof(buf), fp) != NULL) {
+ strcrchomp(buf);
+ INSERT(buf);
+ }
+ fclose(fp);
+ }
}
- fclose(fp);
}
| SHOW_QUOTED_MESSAGE
{
- gchar buf[BUFFSIZE];
- FILE * fp;
-
- if ((fp = procmime_get_first_text_content(msginfo)) == NULL)
- g_warning(_("Can't get text part\n"));
- while (fgets(buf, sizeof(buf), fp) != NULL) {
- if (quote_str)
- INSERT(quote_str);
- INSERT(buf);
+ if (msginfo->folder || body) {
+ gchar buf[BUFFSIZE];
+ FILE *fp;
+
+ if (body)
+ fp = str_open_as_stream(body);
+ else
+ fp = procmime_get_first_text_content(msginfo);
+
+ if (fp == NULL)
+ g_warning("Can't get text part\n");
+ else {
+ while (fgets(buf, sizeof(buf), fp) != NULL) {
+ strcrchomp(buf);
+ if (quote_str)
+ INSERT(quote_str);
+ INSERT(buf);
+ }
+ fclose(fp);
+ }
}
- fclose(fp);
}
| SHOW_MESSAGE_NO_SIGNATURE
{
- gchar buf[BUFFSIZE];
- FILE * fp;
-
- if ((fp = procmime_get_first_text_content(msginfo)) == NULL)
- g_warning(_("Can't get text part\n"));
- while (fgets(buf, sizeof(buf), fp) != NULL) {
- if (strncmp(buf, "-- ", 3) == 0)
- break;
- INSERT(buf);
+ if (msginfo->folder || body) {
+ gchar buf[BUFFSIZE];
+ FILE *fp;
+
+ if (body)
+ fp = str_open_as_stream(body);
+ else
+ fp = procmime_get_first_text_content(msginfo);
+
+ if (fp == NULL)
+ g_warning("Can't get text part\n");
+ else {
+ while (fgets(buf, sizeof(buf), fp) != NULL) {
+ strcrchomp(buf);
+ if (strncmp(buf, "-- \n", 4) == 0)
+ break;
+ INSERT(buf);
+ }
+ fclose(fp);
+ }
}
- fclose(fp);
}
| SHOW_QUOTED_MESSAGE_NO_SIGNATURE
{
- gchar buf[BUFFSIZE];
- FILE * fp;
-
- if ((fp = procmime_get_first_text_content(msginfo)) == NULL)
- g_warning(_("Can't get text part\n"));
- while (fgets(buf, sizeof(buf), fp) != NULL) {
- if (strncmp(buf, "-- ", 3) == 0)
- break;
- if (quote_str)
- INSERT(quote_str);
- INSERT(buf);
+ if (msginfo->folder || body) {
+ gchar buf[BUFFSIZE];
+ FILE *fp;
+
+ if (body)
+ fp = str_open_as_stream(body);
+ else
+ fp = procmime_get_first_text_content(msginfo);
+
+ if (fp == NULL)
+ g_warning("Can't get text part\n");
+ else {
+ 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);
+ }
}
- fclose(fp);
}
| SHOW_BACKSLASH
{
{
INSERT("?");
}
+ | SHOW_PIPE
+ {
+ INSERT("|");
+ }
| SHOW_OPARENT
{
- INSERT("(");
+ INSERT("{");
}
| SHOW_CPARENT
{
- INSERT(")");
+ INSERT("}");
};
query:
}
| QUERY_REFERENCES
{
- add_visibility(msginfo->references != NULL);
+ /* add_visibility(msginfo->references != NULL); */
}
OPARENT quote_fmt CPARENT
{
remove_visibility();
};
+
+insert:
+ INSERT_FILE OPARENT string CPARENT
+ {
+ {
+ FILE *file;
+ char buffer[256];
+
+ if((file = fopen($3, "rb")) != NULL) {
+ while(fgets(buffer, sizeof(buffer), file)) {
+ INSERT(buffer);
+ }
+ fclose(file);
+ }
+ }
+ }
+ | INSERT_PROGRAMOUTPUT OPARENT string CPARENT
+ {
+ {
+ FILE *file;
+ char buffer[256];
+
+ if((file = popen($3, "r")) != NULL) {
+ while(fgets(buffer, sizeof(buffer), file)) {
+ INSERT(buffer);
+ }
+ fclose(file);
+ }
+ }
+ };