4 Copyright (C) 1999-2000 Timo Sirainen
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "module-formats.h"
24 #include "special-vars.h"
30 #include "fe-windows.h"
31 #include "window-items.h"
34 #include "translation.h"
36 static const char *format_backs = "04261537";
37 static const char *format_fores = "kbgcrmyw";
38 static const char *format_boldfores = "KBGCRMYW";
40 static int signal_gui_print_text;
41 static int hide_text_style, hide_server_tags, hide_mirc_colors;
43 static int timestamp_level;
44 static int timestamp_timeout;
46 int format_find_tag(const char *module, const char *tag)
51 formats = g_hash_table_lookup(default_formats, module);
55 for (n = 0; formats[n].def != NULL; n++) {
56 if (formats[n].tag != NULL &&
57 g_strcasecmp(formats[n].tag, tag) == 0)
64 static void format_expand_code(const char **format, GString *out, int *flags)
69 /* flags are being ignored - skip the code */
70 while (**format != ']')
77 while (**format != ']' && **format != '\0') {
80 else if (**format == '-')
82 else switch (**format) {
89 g_string_append_c(out, 4);
90 g_string_append_c(out, FORMAT_STYLE_INDENT_FUNC);
91 while (**format != ']' && **format != '\0' &&
93 g_string_append_c(out, **format);
96 g_string_append_c(out, ',');
101 *flags |= !set ? PRINT_FLAG_UNSET_LINE_START :
102 **format == 's' ? PRINT_FLAG_SET_LINE_START :
103 PRINT_FLAG_SET_LINE_START_IRSSI;
106 *flags |= set ? PRINT_FLAG_SET_TIMESTAMP :
107 PRINT_FLAG_UNSET_TIMESTAMP;
110 *flags |= set ? PRINT_FLAG_SET_SERVERTAG :
111 PRINT_FLAG_UNSET_SERVERTAG;
119 int format_expand_styles(GString *out, const char **format, int *flags)
129 g_string_append_c(out, fmt);
132 /* Underline on/off */
133 g_string_append_c(out, 4);
134 g_string_append_c(out, FORMAT_STYLE_UNDERLINE);
139 g_string_append_c(out, 4);
140 g_string_append_c(out, FORMAT_STYLE_BOLD);
144 g_string_append_c(out, 4);
145 g_string_append_c(out, FORMAT_STYLE_REVERSE);
149 g_string_append_c(out, '\n');
153 g_string_append_c(out, 4);
154 g_string_append_c(out, FORMAT_STYLE_INDENT);
158 g_string_append_c(out, 4);
159 g_string_append_c(out, FORMAT_STYLE_BLINK);
164 g_string_append_c(out, 4);
165 g_string_append_c(out, FORMAT_STYLE_DEFAULTS);
168 /* clear to end of line */
169 g_string_append_c(out, 4);
170 g_string_append_c(out, FORMAT_STYLE_CLRTOEOL);
174 format_expand_code(format, out, flags);
177 /* check if it's a background color */
178 p = strchr(format_backs, fmt);
180 g_string_append_c(out, 4);
181 g_string_append_c(out, FORMAT_COLOR_NOCHANGE);
182 g_string_append_c(out, (char) ((int) (p-format_backs)+'0'));
186 /* check if it's a foreground color */
187 if (fmt == 'p') fmt = 'm';
188 p = strchr(format_fores, fmt);
190 g_string_append_c(out, 4);
191 g_string_append_c(out, (char) ((int) (p-format_fores)+'0'));
192 g_string_append_c(out, FORMAT_COLOR_NOCHANGE);
196 /* check if it's a bold foreground color */
197 if (fmt == 'P') fmt = 'M';
198 p = strchr(format_boldfores, fmt);
200 g_string_append_c(out, 4);
201 g_string_append_c(out, (char) (8+(int) (p-format_boldfores)+'0'));
202 g_string_append_c(out, FORMAT_COLOR_NOCHANGE);
212 void format_read_arglist(va_list va, FORMAT_REC *format,
213 char **arglist, int arglist_size,
214 char *buffer, int buffer_size)
216 int num, len, bufpos;
218 g_return_if_fail(format->params < arglist_size);
221 arglist[format->params] = NULL;
222 for (num = 0; num < format->params; num++) {
223 switch (format->paramtypes[num]) {
225 arglist[num] = (char *) va_arg(va, char *);
226 if (arglist[num] == NULL) {
227 g_warning("format_read_arglist() : parameter %d is NULL", num);
232 int d = (int) va_arg(va, int);
234 if (bufpos >= buffer_size) {
239 arglist[num] = buffer+bufpos;
240 len = g_snprintf(buffer+bufpos, buffer_size-bufpos,
246 long l = (long) va_arg(va, long);
248 if (bufpos >= buffer_size) {
253 arglist[num] = buffer+bufpos;
254 len = g_snprintf(buffer+bufpos, buffer_size-bufpos,
260 double f = (double) va_arg(va, double);
262 if (bufpos >= buffer_size) {
267 arglist[num] = buffer+bufpos;
268 len = g_snprintf(buffer+bufpos, buffer_size-bufpos,
277 void format_create_dest(TEXT_DEST_REC *dest,
278 void *server, const char *target,
279 int level, WINDOW_REC *window)
281 format_create_dest_tag(dest, server, NULL, target, level, window);
284 void format_create_dest_tag(TEXT_DEST_REC *dest, void *server,
285 const char *server_tag, const char *target,
286 int level, WINDOW_REC *window)
288 memset(dest, 0, sizeof(TEXT_DEST_REC));
290 dest->server = server;
291 dest->server_tag = server != NULL ? SERVER(server)->tag : server_tag;
292 dest->target = target;
294 dest->window = window != NULL ? window :
295 window_find_closest(server, target, level);
298 /* Return length of text part in string (ie. without % codes) */
299 int format_get_length(const char *str)
304 g_return_val_if_fail(str != NULL, 0);
306 tmp = g_string_new(NULL);
308 while (*str != '\0') {
309 if (*str == '%' && str[1] != '\0') {
312 format_expand_styles(tmp, &str, NULL)) {
317 /* %% or unknown %code, written as-is */
326 g_string_free(tmp, TRUE);
330 /* Return how many characters in `str' must be skipped before `len'
331 characters of text is skipped. Like strip_real_length(), except this
333 int format_real_length(const char *str, int len)
338 g_return_val_if_fail(str != NULL, 0);
339 g_return_val_if_fail(len >= 0, 0);
342 tmp = g_string_new(NULL);
343 while (*str != '\0' && len > 0) {
344 if (*str == '%' && str[1] != '\0') {
347 format_expand_styles(tmp, &str, NULL)) {
352 /* %% or unknown %code, written as-is */
363 g_string_free(tmp, TRUE);
364 return (int) (str-start);
367 char *format_string_expand(const char *text, int *flags)
372 g_return_val_if_fail(text != NULL, NULL);
374 out = g_string_new(NULL);
376 if (flags != NULL) *flags = 0;
378 while (*text != '\0') {
381 if (!format_expand_styles(out, &text, flags)) {
382 g_string_append_c(out, '%');
383 g_string_append_c(out, '%');
384 g_string_append_c(out, *text);
391 g_string_append_c(out, *text);
398 g_string_free(out, FALSE);
402 static char *format_get_text_args(TEXT_DEST_REC *dest,
403 const char *text, char **arglist)
409 out = g_string_new(NULL);
412 while (*text != '\0') {
415 if (!format_expand_styles(out, &text, &dest->flags)) {
416 g_string_append_c(out, '%');
417 g_string_append_c(out, '%');
418 g_string_append_c(out, *text);
421 } else if (code == '$') {
425 ret = parse_special((char **) &text, dest->server,
426 dest->target == NULL ? NULL :
427 window_item_find(dest->server, dest->target),
428 arglist, &need_free, NULL, 0);
431 /* string shouldn't end with \003 or it could
432 mess up the next one or two characters */
434 int len = strlen(ret);
435 while (len > 0 && ret[len-1] == 3) len--;
436 diff = strlen(ret)-len;
438 g_string_append(out, ret);
440 g_string_truncate(out, out->len-diff);
441 if (need_free) g_free(ret);
445 if (*text == '%' || *text == '$')
448 g_string_append_c(out, *text);
455 g_string_free(out, FALSE);
459 char *format_get_text_theme(THEME_REC *theme, const char *module,
460 TEXT_DEST_REC *dest, int formatnum, ...)
466 theme = window_get_theme(dest->window);
468 va_start(va, formatnum);
469 str = format_get_text_theme_args(theme, module, dest, formatnum, va);
475 char *format_get_text_theme_args(THEME_REC *theme, const char *module,
476 TEXT_DEST_REC *dest, int formatnum,
479 char *arglist[MAX_FORMAT_PARAMS];
480 char buffer[DEFAULT_FORMAT_ARGLIST_SIZE];
483 formats = g_hash_table_lookup(default_formats, module);
484 format_read_arglist(va, &formats[formatnum],
485 arglist, sizeof(arglist)/sizeof(char *),
486 buffer, sizeof(buffer));
488 return format_get_text_theme_charargs(theme, module, dest,
492 char *format_get_text_theme_charargs(THEME_REC *theme, const char *module,
493 TEXT_DEST_REC *dest, int formatnum,
496 MODULE_THEME_REC *module_theme;
499 module_theme = g_hash_table_lookup(theme->modules, module);
500 if (module_theme == NULL)
503 text = module_theme->expanded_formats[formatnum];
504 return format_get_text_args(dest, text, args);
507 char *format_get_text(const char *module, WINDOW_REC *window,
508 void *server, const char *target,
516 format_create_dest(&dest, server, target, 0, window);
517 theme = window_get_theme(dest.window);
519 va_start(va, formatnum);
520 str = format_get_text_theme_args(theme, module, &dest, formatnum, va);
526 /* add `linestart' to start of each line in `text'. `text' may contain
527 multiple lines separated with \n. */
528 char *format_add_linestart(const char *text, const char *linestart)
533 if (linestart == NULL)
534 return g_strdup(text);
536 if (strchr(text, '\n') == NULL)
537 return g_strconcat(linestart, text, NULL);
539 str = g_string_new(linestart);
540 while (*text != '\0') {
541 g_string_append_c(str, *text);
543 g_string_append(str, linestart);
548 g_string_free(str, FALSE);
552 #define LINE_START_IRSSI_LEVEL \
553 (MSGLEVEL_CLIENTERROR | MSGLEVEL_CLIENTNOTICE)
555 #define NOT_LINE_START_LEVEL \
556 (MSGLEVEL_NEVER | MSGLEVEL_LASTLOG | MSGLEVEL_CLIENTCRAP | \
557 MSGLEVEL_MSGS | MSGLEVEL_PUBLIC | MSGLEVEL_DCC | MSGLEVEL_DCCMSGS | \
558 MSGLEVEL_ACTIONS | MSGLEVEL_NOTICES | MSGLEVEL_SNOTES | MSGLEVEL_CTCPS)
560 /* return the "-!- " text at the start of the line */
561 char *format_get_level_tag(THEME_REC *theme, TEXT_DEST_REC *dest)
565 /* check for flags if we want to override defaults */
566 if (dest->flags & PRINT_FLAG_UNSET_LINE_START)
569 if (dest->flags & PRINT_FLAG_SET_LINE_START)
570 format = TXT_LINE_START;
571 else if (dest->flags & PRINT_FLAG_SET_LINE_START_IRSSI)
572 format = TXT_LINE_START_IRSSI;
575 if (dest->level & LINE_START_IRSSI_LEVEL)
576 format = TXT_LINE_START_IRSSI;
577 else if ((dest->level & NOT_LINE_START_LEVEL) == 0)
578 format = TXT_LINE_START;
583 return format_get_text_theme(theme, MODULE_NAME, dest, format);
586 static char *get_timestamp(THEME_REC *theme, TEXT_DEST_REC *dest, time_t t)
588 char *format, str[256];
592 if ((timestamp_level & dest->level) == 0)
595 /* check for flags if we want to override defaults */
596 if (dest->flags & PRINT_FLAG_UNSET_TIMESTAMP)
599 if ((dest->flags & PRINT_FLAG_SET_TIMESTAMP) == 0 &&
600 (dest->level & (MSGLEVEL_NEVER|MSGLEVEL_LASTLOG)) != 0)
604 if (timestamp_timeout > 0) {
605 diff = t - dest->window->last_timestamp;
606 dest->window->last_timestamp = t;
607 if (diff < timestamp_timeout)
612 format = format_get_text_theme(theme, MODULE_NAME, dest,
614 if (strftime(str, sizeof(str), format, tm) <= 0)
617 return g_strdup(str);
620 static char *get_server_tag(THEME_REC *theme, TEXT_DEST_REC *dest)
624 if (dest->server_tag == NULL || hide_server_tags)
627 /* check for flags if we want to override defaults */
628 if (dest->flags & PRINT_FLAG_UNSET_SERVERTAG)
631 if ((dest->flags & PRINT_FLAG_SET_SERVERTAG) == 0) {
632 if (dest->window->active != NULL &&
633 dest->window->active->server == dest->server)
636 if (servers != NULL) {
638 if (servers->next != NULL)
641 if (count < 2 && lookup_servers != NULL) {
643 if (lookup_servers->next != NULL)
651 return format_get_text_theme(theme, MODULE_NAME, dest,
652 TXT_SERVERTAG, dest->server_tag);
655 char *format_get_line_start(THEME_REC *theme, TEXT_DEST_REC *dest, time_t t)
657 char *timestamp, *servertag;
660 timestamp = get_timestamp(theme, dest, t);
661 servertag = get_server_tag(theme, dest);
663 if (timestamp == NULL && servertag == NULL)
666 linestart = g_strconcat(timestamp != NULL ? timestamp : "",
669 g_free_not_null(timestamp);
670 g_free_not_null(servertag);
674 void format_newline(WINDOW_REC *window)
676 g_return_if_fail(window != NULL);
678 signal_emit_id(signal_gui_print_text, 6, window,
679 GINT_TO_POINTER(-1), GINT_TO_POINTER(-1),
680 GINT_TO_POINTER(GUI_PRINT_FLAG_NEWLINE),
681 "", GINT_TO_POINTER(-1));
684 /* parse ANSI color string */
685 static const char *get_ansi_color(THEME_REC *theme, const char *str,
686 int *fg_ret, int *bg_ret, int *flags_ret)
688 static char ansitab[8] = { 0, 4, 2, 6, 1, 5, 3, 7 };
690 int fg, bg, flags, num;
696 fg = fg_ret == NULL || *fg_ret < 0 ? theme->default_color : *fg_ret;
697 bg = bg_ret == NULL || *bg_ret < 0 ? -1 : *bg_ret;
698 flags = flags_ret == NULL ? 0 : *flags_ret;
702 if (*str == '\0') return start;
704 if (i_isdigit(*str)) {
705 num = num*10 + (*str-'0');
709 if (*str != ';' && *str != 'm')
714 /* reset colors back to default */
715 fg = theme->default_color;
717 flags &= ~GUI_PRINT_FLAG_INDENT;
721 flags |= GUI_PRINT_FLAG_BOLD;
725 flags |= GUI_PRINT_FLAG_BLINK;
729 flags |= GUI_PRINT_FLAG_REVERSE;
732 if (num >= 30 && num <= 37)
733 fg = (fg & 0xf8) | ansitab[num-30];
734 if (num >= 40 && num <= 47) {
735 if (bg == -1) bg = 0;
736 bg = (bg & 0xf8) | ansitab[num-40];
743 if (fg_ret != NULL) *fg_ret = fg;
744 if (bg_ret != NULL) *bg_ret = bg;
745 if (flags_ret != NULL) *flags_ret = flags;
755 /* parse MIRC color string */
756 static void get_mirc_color(const char **str, int *fg_ret, int *bg_ret)
760 fg = fg_ret == NULL ? -1 : *fg_ret;
761 bg = bg_ret == NULL ? -1 : *bg_ret;
763 if (!i_isdigit(**str) && **str != ',') {
767 /* foreground color */
771 if (i_isdigit(**str)) {
772 fg = fg*10 + (**str-'0');
777 /* background color */
779 if (!i_isdigit(**str))
784 if (i_isdigit(**str)) {
785 bg = bg*10 + (**str-'0');
792 if (fg_ret) *fg_ret = fg;
793 if (bg_ret) *bg_ret = bg;
796 #define IS_COLOR_CODE(c) \
797 ((c) == 2 || (c) == 3 || (c) == 4 || (c) == 6 || (c) == 7 || \
798 (c) == 15 || (c) == 22 || (c) == 27 || (c) == 31)
800 /* Return how many characters in `str' must be skipped before `len'
801 characters of text is skipped. */
802 int strip_real_length(const char *str, int len,
803 int *last_color_pos, int *last_color_len)
805 const char *start = str;
807 if (last_color_pos != NULL)
808 *last_color_pos = -1;
809 if (last_color_len != NULL)
810 *last_color_len = -1;
812 while (*str != '\0') {
814 const char *mircstart = str;
816 if (last_color_pos != NULL)
817 *last_color_pos = (int) (str-start);
819 get_mirc_color(&str, NULL, NULL);
820 if (last_color_len != NULL)
821 *last_color_len = (int) (str-mircstart);
823 } else if (*str == 4 && str[1] != '\0') {
824 if (str[1] < FORMAT_STYLE_SPECIAL && str[2] != '\0') {
825 if (last_color_pos != NULL)
826 *last_color_pos = (int) (str-start);
827 if (last_color_len != NULL)
830 } else if (str[1] == FORMAT_STYLE_DEFAULTS) {
831 if (last_color_pos != NULL)
832 *last_color_pos = (int) (str-start);
833 if (last_color_len != NULL)
838 if (!IS_COLOR_CODE(*str)) {
846 return (int) (str-start);
849 char *strip_codes(const char *input)
854 out = str = g_strdup(input);
855 for (p = input; *p != '\0'; p++) {
860 get_mirc_color(&p, NULL, NULL);
865 if (*p == 4 && p[1] != '\0') {
866 if (p[1] >= FORMAT_STYLE_SPECIAL) {
878 if (*p == 27 && p[1] != '\0')
879 p = get_ansi_color(current_theme, p, NULL, NULL, NULL);
881 if (!IS_COLOR_CODE(*p))
889 /* send a fully parsed text string for GUI to print */
890 void format_send_to_gui(TEXT_DEST_REC *dest, const char *text)
892 char *dup, *str, *ptr, type;
893 int fgcolor, bgcolor;
896 dup = str = g_strdup(text);
898 flags = 0; fgcolor = -1; bgcolor = -1;
899 while (*str != '\0') {
901 for (ptr = str; *ptr != '\0'; ptr++) {
902 if (IS_COLOR_CODE(*ptr) || *ptr == '\n') {
908 *ptr = (char) translation_in[(int) (unsigned char) *ptr];
913 if (settings_get_bool("bell_beeps"))
914 signal_emit("beep", 0);
915 } else if (type == 4 && *ptr == FORMAT_STYLE_CLRTOEOL) {
916 /* clear to end of line */
917 flags |= GUI_PRINT_FLAG_CLRTOEOL;
920 if (*str != '\0' || (flags & GUI_PRINT_FLAG_CLRTOEOL)) {
921 /* send the text to gui handler */
922 signal_emit_id(signal_gui_print_text, 6, dest->window,
923 GINT_TO_POINTER(fgcolor),
924 GINT_TO_POINTER(bgcolor),
925 GINT_TO_POINTER(flags), str,
927 flags &= ~(GUI_PRINT_FLAG_INDENT|GUI_PRINT_FLAG_CLRTOEOL);
931 format_newline(dest->window);
940 if (!hide_text_style)
941 flags ^= GUI_PRINT_FLAG_BOLD;
945 get_mirc_color((const char **) &ptr,
946 hide_mirc_colors || hide_text_style ? NULL : &fgcolor,
947 hide_mirc_colors || hide_text_style ? NULL : &bgcolor);
948 if (!hide_mirc_colors && !hide_text_style)
949 flags |= GUI_PRINT_FLAG_MIRC_COLOR;
952 /* user specific colors */
953 flags &= ~GUI_PRINT_FLAG_MIRC_COLOR;
955 case FORMAT_STYLE_BLINK:
956 flags ^= GUI_PRINT_FLAG_BLINK;
958 case FORMAT_STYLE_UNDERLINE:
959 flags ^= GUI_PRINT_FLAG_UNDERLINE;
961 case FORMAT_STYLE_BOLD:
962 flags ^= GUI_PRINT_FLAG_BOLD;
964 case FORMAT_STYLE_REVERSE:
965 flags ^= GUI_PRINT_FLAG_REVERSE;
967 case FORMAT_STYLE_INDENT:
968 flags |= GUI_PRINT_FLAG_INDENT;
970 case FORMAT_STYLE_INDENT_FUNC: {
971 const char *start = ptr;
972 while (*ptr != ',' && *ptr != '\0')
974 if (*ptr != '\0') *ptr++ = '\0';
975 signal_emit_id(signal_gui_print_text, 6,
976 dest->window, NULL, NULL,
977 GINT_TO_POINTER(GUI_PRINT_FLAG_INDENT_FUNC),
978 str, start, dest->level);
981 case FORMAT_STYLE_DEFAULTS:
982 fgcolor = bgcolor = -1;
983 flags &= GUI_PRINT_FLAG_INDENT;
985 case FORMAT_STYLE_CLRTOEOL:
988 if (*ptr != FORMAT_COLOR_NOCHANGE) {
989 fgcolor = (unsigned char) *ptr-'0';
991 flags &= ~GUI_PRINT_FLAG_BOLD;
994 if (fgcolor != 8) fgcolor -= 8;
995 flags |= GUI_PRINT_FLAG_BOLD;
999 if (*ptr != FORMAT_COLOR_NOCHANGE) {
1002 flags &= ~GUI_PRINT_FLAG_BLINK;
1006 flags |= GUI_PRINT_FLAG_BLINK;
1014 if (!hide_text_style)
1015 flags ^= GUI_PRINT_FLAG_BLINK;
1018 /* remove all styling */
1019 fgcolor = bgcolor = -1;
1020 flags &= GUI_PRINT_FLAG_INDENT;
1024 if (!hide_text_style)
1025 flags ^= GUI_PRINT_FLAG_REVERSE;
1029 if (!hide_text_style)
1030 flags ^= GUI_PRINT_FLAG_UNDERLINE;
1033 /* ansi color code */
1035 get_ansi_color(dest->window == NULL || dest->window->theme == NULL ?
1036 current_theme : dest->window->theme,
1038 hide_text_style ? NULL : &fgcolor,
1039 hide_text_style ? NULL : &bgcolor,
1040 hide_text_style ? NULL : &flags);
1050 static void read_settings(void)
1052 timestamp_level = settings_get_bool("timestamps") ? MSGLEVEL_ALL : 0;
1053 if (timestamp_level > 0) {
1055 level2bits(settings_get_str("timestamp_level"));
1057 timestamp_timeout = settings_get_int("timestamp_timeout");
1059 hide_server_tags = settings_get_bool("hide_server_tags");
1060 hide_text_style = settings_get_bool("hide_text_style");
1061 hide_mirc_colors = settings_get_bool("hide_mirc_colors");
1064 void formats_init(void)
1066 signal_gui_print_text = signal_get_uniq_id("gui print text");
1069 signal_add("setup changed", (SIGNAL_FUNC) read_settings);
1072 void formats_deinit(void)
1074 signal_remove("setup changed", (SIGNAL_FUNC) read_settings);