+/*
+ * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
+ * Copyright (C) 1999-2006 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
%{
#include "defs.h"
#include "procmsg.h"
#include "procmime.h"
#include "utils.h"
-#include "intl.h"
+#include "codeconv.h"
#include "procheader.h"
#include "quote_fmt.h"
static MsgInfo *msginfo = NULL;
static gboolean *visible = NULL;
+static gboolean dry_run = FALSE;
static gint maxsize = 0;
static gint stacksize = 0;
static const gchar *body = NULL;
static gint error = 0;
+static gint cursor_pos = -1;
+
+extern int quote_fmt_firsttime;
+
static void add_visibility(gboolean val)
{
stacksize++;
return buffer;
}
+gint quote_fmt_get_cursor_pos(void)
+{
+ return cursor_pos;
+}
+
#define INSERT(buf) \
if (stacksize != 0 && visible[stacksize - 1]) \
add_buffer(buf)
}
void quote_fmt_init(MsgInfo *info, const gchar *my_quote_str,
- const gchar *my_body)
+ const gchar *my_body, gboolean my_dry_run)
{
quote_str = my_quote_str;
body = my_body;
msginfo = info;
+ dry_run = my_dry_run;
stacksize = 0;
add_visibility(TRUE);
if (buffer != NULL)
*buffer = 0;
bufsize = 0;
error = 0;
+ /*
+ * force LEX initialization
+ */
+ quote_fmt_firsttime = 1;
+ cursor_pos = -1;
}
void quote_fmterror(char *str)
{
- g_warning(_("Error: %s\n"), str);
+ g_warning("Error: %s\n", str);
error = 1;
}
return 1;
}
-static int isseparator(char ch)
+static int isseparator(int ch)
+{
+ return g_ascii_isspace(ch) || ch == '.' || ch == '-';
+}
+
+static void quote_fmt_show_date(const MsgInfo *msginfo, const gchar *format)
+{
+ char result[100];
+ char *rptr;
+ char zone[6];
+ struct tm lt;
+ const char *fptr;
+ const char *zptr;
+
+ if (!msginfo->date)
+ return;
+
+ /*
+ * ALF - GNU C's strftime() has a nice format specifier
+ * for time zone offset (%z). Non-standard however, so
+ * emulate it.
+ */
+
+#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 = format; 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 >= format && *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;
+ }
+ }
+
+ if (g_utf8_validate(result, -1, NULL)) {
+ INSERT(result);
+ } else {
+ gchar *utf = conv_codeset_strdup(result,
+ conv_get_locale_charset_str_no_utf8(),
+ CS_INTERNAL);
+ if (utf == NULL ||
+ !g_utf8_validate(utf, -1, NULL)) {
+ g_free(utf);
+ utf = g_malloc(strlen(result)*2+1);
+ conv_localetodisp(utf,
+ strlen(result)*2+1, result);
+ }
+ if (g_utf8_validate(utf, -1, NULL)) {
+ INSERT(utf);
+ }
+ g_free(utf);
+ }
+ }
+#undef STR_SIZE
+#undef RLEFT
+}
+
+static void quote_fmt_show_first_name(const MsgInfo *msginfo)
+{
+ guchar *p;
+ gchar *str;
+
+ if (!msginfo->fromname)
+ return;
+
+ p = strchr(msginfo->fromname, ',');
+ if (p != NULL) {
+ /* fromname is like "Duck, Donald" */
+ p++;
+ while (*p && isspace(*p)) p++;
+ str = alloca(strlen(p) + 1);
+ if (str != NULL) {
+ strcpy(str, p);
+ INSERT(str);
+ }
+ } else {
+ /* fromname is like "Donald Duck" */
+ str = alloca(strlen(msginfo->fromname) + 1);
+ if (str != NULL) {
+ strcpy(str, msginfo->fromname);
+ p = str;
+ while (*p && !isspace(*p)) p++;
+ *p = '\0';
+ INSERT(str);
+ }
+ }
+}
+
+static void quote_fmt_show_last_name(const MsgInfo *msginfo)
+{
+ gchar *p;
+ gchar *str;
+
+ /* This probably won't work together very well with Middle
+ names and the like - thth */
+ if (!msginfo->fromname)
+ return;
+
+ str = alloca(strlen(msginfo->fromname) + 1);
+ if (str != NULL) {
+ strcpy(str, msginfo->fromname);
+ p = strchr(str, ',');
+ if (p != NULL) {
+ /* fromname is like "Duck, Donald" */
+ *p = '\0';
+ INSERT(str);
+ } else {
+ /* fromname is like "Donald Duck" */
+ 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);
+ }
+ }
+ }
+}
+
+static void quote_fmt_show_sender_initial(const MsgInfo *msginfo)
+{
+#define MAX_SENDER_INITIAL 20
+ gchar tmp[MAX_SENDER_INITIAL];
+ guchar *p;
+ gchar *cur;
+ gint len = 0;
+
+ if (!msginfo->fromname)
+ return;
+
+ p = msginfo->fromname;
+ cur = tmp;
+ while (*p) {
+ if (*p && g_utf8_validate(p, 1, NULL)) {
+ *cur = 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);
+}
+
+static void quote_fmt_show_msg(MsgInfo *msginfo, const gchar *body,
+ gboolean quoted, gboolean signature,
+ const gchar *quote_str)
+{
+ gchar buf[BUFFSIZE];
+ FILE *fp;
+
+ if (!(msginfo->folder || body))
+ return;
+
+ if (body)
+ fp = str_open_as_stream(body);
+ else {
+ if (procmime_msginfo_is_encrypted(msginfo))
+ fp = procmime_get_first_encrypted_text_content(msginfo);
+ 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 (!signature && strncmp(buf, "-- \n", 4) == 0)
+ break;
+
+ if (quoted && quote_str)
+ INSERT(quote_str);
+
+ INSERT(buf);
+ }
+ fclose(fp);
+ }
+}
+
+static void quote_fmt_insert_file(const gchar *filename)
+{
+ FILE *file;
+ char buffer[256];
+
+ if ((file = g_fopen(filename, "rb")) != NULL) {
+ while (fgets(buffer, sizeof(buffer), file)) {
+ INSERT(buffer);
+ }
+ fclose(file);
+ }
+
+}
+
+static void quote_fmt_insert_program_output(const gchar *progname)
{
- return isspace(ch) || ch == '.' || ch == '-';
+ FILE *file;
+ char buffer[256];
+
+ if ((file = popen(progname, "r")) != NULL) {
+ while (fgets(buffer, sizeof(buffer), file)) {
+ INSERT(buffer);
+ }
+ pclose(file);
+ }
}
+
%}
%union {
%token OPARENT CPARENT
%token CHARACTER
%token SHOW_DATE_EXPR
+%token SET_CURSOR_POS
%start quote_fmt
{
INSERT_CHARACTER($1);
}
- | query ;
+ | query
| insert ;
character:
}
| string CHARACTER
{
- strcpy($$, $1);
- $$[strlen($$) + 1] = '\0';
- $$[strlen($$)] = $2;
+ int len;
+
+ strncpy($$, $1, sizeof($$));
+ $$[sizeof($$) - 1] = '\0';
+ len = strlen($$);
+ if (len + 1 < sizeof($$)) {
+ $$[len + 1] = '\0';
+ $$[len] = $2;
+ }
};
special:
}
| 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
- }
+ quote_fmt_show_date(msginfo, $3);
}
| SHOW_DATE
{
}
| 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 && !isspace(*p)) p++;
- *p = '\0';
- INSERT(str);
- }
- }
+ quote_fmt_show_first_name(msginfo);
}
| 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);
- }
- }
- }
+ quote_fmt_show_last_name(msginfo);
}
| 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 && isalnum(*p)) {
- *cur = 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);
- }
+ quote_fmt_show_sender_initial(msginfo);
}
| SHOW_SUBJECT
{
}
| SHOW_REFERENCES
{
+ /* CLAWS: use in reply to header */
/* if (msginfo->references)
INSERT(msginfo->references); */
}
| SHOW_MESSAGE
{
- 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);
- }
- }
+ quote_fmt_show_msg(msginfo, body, FALSE, TRUE, quote_str);
}
| SHOW_QUOTED_MESSAGE
{
- 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);
- }
- }
+ quote_fmt_show_msg(msginfo, body, TRUE, TRUE, quote_str);
}
| SHOW_MESSAGE_NO_SIGNATURE
{
- 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, "-- ", 3) == 0)
- break;
- INSERT(buf);
- }
- fclose(fp);
- }
- }
+ quote_fmt_show_msg(msginfo, body, FALSE, FALSE, quote_str);
}
| SHOW_QUOTED_MESSAGE_NO_SIGNATURE
{
- 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, "-- ", 3) == 0)
- break;
- if (quote_str)
- INSERT(quote_str);
- INSERT(buf);
- }
- fclose(fp);
- }
- }
+ quote_fmt_show_msg(msginfo, body, TRUE, FALSE, quote_str);
}
| SHOW_BACKSLASH
{
| SHOW_CPARENT
{
INSERT("}");
+ }
+ | SET_CURSOR_POS
+ {
+ cursor_pos = bufsize;
};
query:
}
| QUERY_REFERENCES
{
+ /* CLAWS: use in-reply-to header */
/* add_visibility(msginfo->references != NULL); */
}
OPARENT quote_fmt CPARENT
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);
- }
+ if (!dry_run) {
+ quote_fmt_insert_file($3);
}
}
| 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);
- }
+ if (!dry_run) {
+ quote_fmt_insert_program_output($3);
}
};