lbbs/src/lml.c

/***************************************************************************
                                                        lml.h  -  description
                                                         -------------------
        Copyright            : (C) 2004-2025 by Leaflet
        Email                : leaflet@leafok.com
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   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 3 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/

#include "common.h"
#include "lml.h"
#include "log.h"
#include <stdio.h>
#include <string.h>
#include <sys/param.h>

#define LML_TAG_PARAM_BUF_LEN 256
#define LML_TAG_OUTPUT_BUF_LEN 1024

typedef int (*lml_tag_filter_cb)(const char *tag_name, const char *tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode);

static int lml_tag_color_filter(const char *tag_name, const char *tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode)
{
        if (strcasecmp(tag_name, "color") == 0)
        {
                if (strcasecmp(tag_param_buf, "red") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;31m");
                }
                else if (strcasecmp(tag_param_buf, "green") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;32m");
                }
                else if (strcasecmp(tag_param_buf, "yellow") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;33m");
                }
                else if (strcasecmp(tag_param_buf, "blue") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;34m");
                }
                else if (strcasecmp(tag_param_buf, "magenta") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;35m");
                }
                else if (strcasecmp(tag_param_buf, "cyan") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;36m");
                }
                else if (strcasecmp(tag_param_buf, "black") == 0)
                {
                        return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;30;47m");
                }
        }
        return 0;
}

#define LML_TAG_QUOTE_MAX_LEVEL 10

static const char *lml_tag_quote_color[] = {
        "\033[33m", // yellow
        "\033[32m", // green
        "\033[35m", // magenta
};

static const int LML_TAG_QUOTE_LEVEL_LOOP = (int)(sizeof(lml_tag_quote_color) / sizeof(const char *));

static int lml_tag_quote_level = 0;

static int lml_tag_quote_filter(const char *tag_name, const char *tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode)
{
        if (strcasecmp(tag_name, "quote") == 0)
        {
                if (lml_tag_quote_level <= LML_TAG_QUOTE_MAX_LEVEL)
                {
                        lml_tag_quote_level++;
                }
                return snprintf(tag_output_buf, tag_output_buf_len, "%s",
                                                lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
        }
        else if (strcasecmp(tag_name, "/quote") == 0)
        {
                if (lml_tag_quote_level > 0)
                {
                        lml_tag_quote_level--;
                }
                return snprintf(tag_output_buf, tag_output_buf_len, "%s",
                                                (lml_tag_quote_level > 0 ? lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP] : "\033[m"));
        }

        return 0;
}

static int lml_tag_disabled = 0;

static int lml_tag_disable_filter(const char *tag_name, const char *tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode)
{
        lml_tag_disabled = 1;

        return snprintf(tag_output_buf, tag_output_buf_len, "%s", (quote_mode ? "[plain]" : ""));
}

typedef struct lml_tag_def_t
{
        const char *tag_name;                    // tag name
        const char *tag_output;                  // output string
        const char *default_param;               // default param string
        const char *quote_mode_output;   // output string in quote mode
        lml_tag_filter_cb tag_filter_cb; // tag filter callback
} LML_TAG_DEF;

const LML_TAG_DEF lml_tag_def[] = {
        // Definition of tuple: {lml_tag, lml_output, default_param, quote_mode_output, lml_filter_cb}
        {"plain", NULL, NULL, NULL, lml_tag_disable_filter},
        {"nolml", "", NULL, "", NULL}, // deprecated
        {"lml", "", NULL, "", NULL},   // deprecated
        {"align", "", "", "", NULL},   // N/A
        {"/align", "", "", "", NULL},  // N/A
        {"size", "", "", "", NULL},        // N/A
        {"/size", "", "", "", NULL},   // N/A
        {"left", "[", "", "[left]", NULL},
        {"right", "]", "", "[right]", NULL},
        {"bold", "\033[1m", "", "", NULL}, // does not work in Fterm
        {"/bold", "\033[22m", NULL, "", NULL},
        {"b", "\033[1m", "", "", NULL},
        {"/b", "\033[22m", NULL, "", NULL},
        {"italic", "\033[5m", "", "", NULL},   // use blink instead
        {"/italic", "\033[m", NULL, "", NULL}, // \033[25m does not work in Fterm
        {"i", "\033[5m", "", "", NULL},
        {"/i", "\033[m", NULL, "", NULL},
        {"underline", "\033[4m", "", "", NULL},
        {"/underline", "\033[m", NULL, "", NULL}, // \033[24m does not work in Fterm
        {"u", "\033[4m", "", "", NULL},
        {"/u", "\033[m", NULL, "", NULL},
        {"color", NULL, NULL, "", lml_tag_color_filter},
        {"/color", "\033[m", NULL, "", NULL},
        {"quote", NULL, NULL, "", lml_tag_quote_filter},
        {"/quote", NULL, NULL, "", lml_tag_quote_filter},
        {"url", "", "", "", NULL},
        {"/url", "（链接: %s）", NULL, "", NULL},
        {"link", "", "", "", NULL},
        {"/link", "（链接: %s）", NULL, "", NULL},
        {"email", "", "", "", NULL},
        {"/email", "（Email: %s）", NULL, "", NULL},
        {"user", "", "", "", NULL},
        {"/user", "（用户: %s）", NULL, "", NULL},
        {"article", "", "", "", NULL},
        {"/article", "（文章: %s）", NULL, "", NULL},
        {"image", "（图片: %s）", "", "%s", NULL},
        {"flash", "（Flash: %s）", "", "", NULL},
        {"bwf", "\033[1;31m****\033[m", "", "****", NULL},
};

#define LML_TAG_COUNT (sizeof(lml_tag_def) / sizeof(LML_TAG_DEF))

static int lml_tag_name_len[LML_TAG_COUNT];
static int lml_ready = 0;

inline static void lml_init(void)
{
        int i;

        if (!lml_ready)
        {
                for (i = 0; i < LML_TAG_COUNT; i++)
                {
                        lml_tag_name_len[i] = (int)strlen(lml_tag_def[i].tag_name);
                }

                lml_ready = 1;
        }
}

int lml_render(const char *str_in, char *str_out, int buf_len, int quote_mode)
{
        char c;
        char tag_param_buf[LML_TAG_PARAM_BUF_LEN];
        char tag_output_buf[LML_TAG_OUTPUT_BUF_LEN];
        int i;
        int j = 0;
        int k;
        int tag_start_pos = -1;
        int tag_name_pos = -1;
        int tag_end_pos = -1;
        int tag_param_pos = -1;
        int tag_output_len;
        int new_line = 1;
        int fb_quote_level = 0;
        int tag_name_found;

        lml_init();

        lml_tag_disabled = 0;
        lml_tag_quote_level = 0;

        for (i = 0; str_in[i] != '\0'; i++)
        {
                if (!quote_mode && !lml_tag_disabled && new_line)
                {
                        if (fb_quote_level > 0)
                        {
                                lml_tag_quote_level -= fb_quote_level;

                                tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
                                                                                  (lml_tag_quote_level > 0 ? lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP] : "\033[m"));
                                if (j + tag_output_len >= buf_len)
                                {
                                        log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
                                        str_out[j] = '\0';
                                        return j;
                                }
                                memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
                                j += tag_output_len;

                                fb_quote_level = 0;
                        }

                        while (str_in[i + fb_quote_level * 2] == ':' && str_in[i + fb_quote_level * 2 + 1] == ' ') // FB2000 quote leading str
                        {
                                fb_quote_level++;
                        }

                        if (fb_quote_level > 0)
                        {
                                lml_tag_quote_level += fb_quote_level;

                                tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
                                                                                  lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
                                if (j + tag_output_len >= buf_len)
                                {
                                        log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
                                        str_out[j] = '\0';
                                        return j;
                                }
                                memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
                                j += tag_output_len;
                        }

                        new_line = 0;
                }

                if (str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence -- copy directly
                {
                        for (k = i + 2; str_in[k] != '\0' && str_in[k] != 'm'; k++)
                                ;

                        if (str_in[k] == 'm') // Valid
                        {
                                if (j + (k - i + 1) >= buf_len)
                                {
                                        log_error("Buffer is not longer enough for output string %d >= %d\n", j + (k - i + 1), buf_len);
                                        str_out[j] = '\0';
                                        return j;
                                }
                                memcpy(str_out + j, str_in + i, (size_t)(k - i + 1));
                                j += (k - i + 1);
                                i = k;
                                continue;
                        }
                        else // reach end of string
                        {
                                break;
                        }
                }

                if (str_in[i] == '\n') // jump out of tag at end of line
                {
                        if (tag_start_pos != -1) // tag is not closed
                        {
                                tag_end_pos = i - 1;
                                tag_output_len = tag_end_pos - tag_start_pos + 1;
                                if (j + tag_output_len >= buf_len)
                                {
                                        log_error("Buffer is not longer enough for output string %ld >= %d\n", j + tag_output_len, buf_len);
                                        str_out[j] = '\0';
                                        return j;
                                }

                                memcpy(str_out + j, str_in + tag_start_pos, (size_t)tag_output_len);
                                j += tag_output_len;
                        }

                        tag_start_pos = -1;
                        tag_name_pos = -1;
                        new_line = 1;
                }
                else if (str_in[i] == '\r')
                {
                        continue; // ignore '\r'
                }

                if (!lml_tag_disabled && str_in[i] == '[')
                {
                        tag_start_pos = i;
                        tag_name_pos = i + 1;
                }
                else if (!lml_tag_disabled && str_in[i] == ']')
                {
                        if (tag_name_pos >= 0)
                        {
                                tag_end_pos = i;

                                // Skip space characters
                                while (str_in[tag_name_pos] == ' ')
                                {
                                        tag_name_pos++;
                                }

                                for (tag_name_found = 0, k = 0; k < LML_TAG_COUNT; k++)
                                {
                                        if (strncasecmp(lml_tag_def[k].tag_name, str_in + tag_name_pos, (size_t)lml_tag_name_len[k]) == 0)
                                        {
                                                tag_param_pos = -1;
                                                switch (str_in[tag_name_pos + lml_tag_name_len[k]])
                                                {
                                                case ' ':
                                                        tag_name_found = 1;
                                                        tag_param_pos = tag_name_pos + lml_tag_name_len[k] + 1;
                                                        while (str_in[tag_param_pos] == ' ')
                                                        {
                                                                tag_param_pos++;
                                                        }
                                                        strncpy(tag_param_buf, str_in + tag_param_pos, (size_t)MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN));
                                                        tag_param_buf[MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN)] = '\0';
                                                case ']':
                                                        tag_name_found = 1;
                                                        if (tag_param_pos == -1 && lml_tag_def[k].tag_output != NULL && lml_tag_def[k].default_param != NULL) // Apply default param if not defined
                                                        {
                                                                strncpy(tag_param_buf, lml_tag_def[k].default_param, LML_TAG_PARAM_BUF_LEN - 1);
                                                                tag_param_buf[LML_TAG_PARAM_BUF_LEN - 1] = '\0';
                                                        }
                                                        if (!quote_mode)
                                                        {
                                                                if (lml_tag_def[k].tag_output != NULL)
                                                                {
                                                                        tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].tag_output, tag_param_buf);
                                                                }
                                                                else if (lml_tag_def[k].tag_filter_cb != NULL)
                                                                {
                                                                        tag_output_len = lml_tag_def[k].tag_filter_cb(
                                                                                lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 0);
                                                                }
                                                                else
                                                                {
                                                                        tag_output_len = 0;
                                                                }
                                                        }
                                                        else // if (quote_mode)
                                                        {
                                                                if (lml_tag_def[k].quote_mode_output != NULL)
                                                                {
                                                                        tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].quote_mode_output, tag_param_buf);
                                                                }
                                                                else if (lml_tag_def[k].tag_filter_cb != NULL)
                                                                {
                                                                        tag_output_len = lml_tag_def[k].tag_filter_cb(
                                                                                lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 1);
                                                                }
                                                                else
                                                                {
                                                                        tag_output_len = 0;
                                                                }
                                                        }
                                                        if (j + tag_output_len >= buf_len)
                                                        {
                                                                log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
                                                                str_out[j] = '\0';
                                                                return j;
                                                        }
                                                        memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
                                                        j += tag_output_len;
                                                        break;
                                                default: // tag_name not match
                                                        continue;
                                                }
                                                break;
                                        }
                                }

                                if (!tag_name_found)
                                {
                                        tag_output_len = tag_end_pos - tag_start_pos + 1;
                                        if (j + tag_output_len >= buf_len)
                                        {
                                                log_error("Buffer is not longer enough for output string %ld >= %d\n", j + tag_output_len, buf_len);
                                                str_out[j] = '\0';
                                                return j;
                                        }

                                        memcpy(str_out + j, str_in + tag_start_pos, (size_t)tag_output_len);
                                        j += tag_output_len;
                                }

                                tag_start_pos = -1;
                                tag_name_pos = -1;
                        }
                }
                else if (lml_tag_disabled || tag_name_pos == -1) // not in LML tag
                {
                        if (str_in[i] & 0x80) // head of multi-byte character
                        {
                                if (j + 4 >= buf_len) // Assuming UTF-8 CJK characters use 4 bytes, though most of them actually use 3 bytes
                                {
                                        log_error("Buffer is not longer enough for output string %ld >= %d\n", j + 4, buf_len);
                                        str_out[j] = '\0';
                                        return j;
                                }

                                c = (str_in[i] & 0x70) << 1;
                                while (c & 0x80)
                                {
                                        str_out[j++] = str_in[i++];
                                        if (str_in[i] == '\0')
                                        {
                                                str_out[j] = '\0';
                                                return j;
                                        }
                                        c = (c & 0x7f) << 1;
                                }
                        }

                        if (j + 1 >= buf_len)
                        {
                                log_error("Buffer is not longer enough for output string %ld >= %d\n", j + 1, buf_len);
                                str_out[j] = '\0';
                                return j;
                        }
                        str_out[j++] = str_in[i];
                }
                else // in LML tag
                {
                        // Do nothing
                }
        }

        if (tag_start_pos != -1) // tag is not closed
        {
                tag_end_pos = i - 1;
                tag_output_len = tag_end_pos - tag_start_pos + 1;
                if (j + tag_output_len >= buf_len)
                {
                        log_error("Buffer is not longer enough for output string %ld >= %d\n", j + tag_output_len, buf_len);
                        str_out[j] = '\0';
                        return j;
                }

                memcpy(str_out + j, str_in + tag_start_pos, (size_t)tag_output_len);
                j += tag_output_len;
        }

        if (!quote_mode && !lml_tag_disabled && lml_tag_quote_level > 0)
        {
                tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "\033[m");
                if (j + tag_output_len >= buf_len)
                {
                        log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
                        str_out[j] = '\0';
                        return j;
                }
                memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
                j += tag_output_len;
        }

        str_out[j] = '\0';

        return j;
}
1	sysadm	1.1	/***************************************************************************
2			lml.h - description
3			-------------------
4			Copyright : (C) 2004-2025 by Leaflet
5			Email : leaflet@leafok.com
6			***************************************************************************/
7
8			/***************************************************************************
9			* *
10			* This program is free software; you can redistribute it and/or modify *
11			* it under the terms of the GNU General Public License as published by *
12			* the Free Software Foundation; either version 3 of the License, or *
13			* (at your option) any later version. *
14			* *
15			***************************************************************************/
16
17	sysadm	1.12	#include "common.h"
18	sysadm	1.1	#include "lml.h"
19			#include "log.h"
20			#include <stdio.h>
21			#include <string.h>
22			#include <sys/param.h>
23
24	sysadm	1.2	#define LML_TAG_PARAM_BUF_LEN 256
25			#define LML_TAG_OUTPUT_BUF_LEN 1024
26	sysadm	1.1
27	sysadm	1.20	typedef int (lml_tag_filter_cb)(const char tag_name, const char tag_param_buf, char tag_output_buf, size_t tag_output_buf_len, int quote_mode);
28	sysadm	1.3
29	sysadm	1.22	static int lml_tag_color_filter(const char tag_name, const char tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode)
30	sysadm	1.3	{
31			if (strcasecmp(tag_name, "color") == 0)
32			{
33			if (strcasecmp(tag_param_buf, "red") == 0)
34			{
35			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;31m");
36			}
37			else if (strcasecmp(tag_param_buf, "green") == 0)
38			{
39			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;32m");
40			}
41			else if (strcasecmp(tag_param_buf, "yellow") == 0)
42			{
43			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;33m");
44			}
45			else if (strcasecmp(tag_param_buf, "blue") == 0)
46			{
47			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;34m");
48			}
49			else if (strcasecmp(tag_param_buf, "magenta") == 0)
50			{
51			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;35m");
52			}
53			else if (strcasecmp(tag_param_buf, "cyan") == 0)
54			{
55			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;36m");
56			}
57			else if (strcasecmp(tag_param_buf, "black") == 0)
58			{
59			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;30;47m");
60			}
61			}
62			return 0;
63			}
64	sysadm	1.1
65	sysadm	1.4	#define LML_TAG_QUOTE_MAX_LEVEL 10
66
67			static const char *lml_tag_quote_color[] = {
68	sysadm	1.5	"\033[33m", // yellow
69			"\033[32m", // green
70			"\033[35m", // magenta
71	sysadm	1.4	};
72
73	sysadm	1.30	static const int LML_TAG_QUOTE_LEVEL_LOOP = (int)(sizeof(lml_tag_quote_color) / sizeof(const char *));
74
75	sysadm	1.4	static int lml_tag_quote_level = 0;
76
77	sysadm	1.20	static int lml_tag_quote_filter(const char tag_name, const char tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode)
78	sysadm	1.4	{
79			if (strcasecmp(tag_name, "quote") == 0)
80			{
81			if (lml_tag_quote_level <= LML_TAG_QUOTE_MAX_LEVEL)
82			{
83			lml_tag_quote_level++;
84			}
85	sysadm	1.14	return snprintf(tag_output_buf, tag_output_buf_len, "%s",
86			lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
87	sysadm	1.4	}
88			else if (strcasecmp(tag_name, "/quote") == 0)
89			{
90			if (lml_tag_quote_level > 0)
91			{
92			lml_tag_quote_level--;
93			}
94	sysadm	1.14	return snprintf(tag_output_buf, tag_output_buf_len, "%s",
95	sysadm	1.5	(lml_tag_quote_level > 0 ? lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP] : "\033[m"));
96	sysadm	1.4	}
97
98			return 0;
99			}
100
101	sysadm	1.20	static int lml_tag_disabled = 0;
102
103			static int lml_tag_disable_filter(const char tag_name, const char tag_param_buf, char *tag_output_buf, size_t tag_output_buf_len, int quote_mode)
104			{
105			lml_tag_disabled = 1;
106
107	sysadm	1.23	return snprintf(tag_output_buf, tag_output_buf_len, "%s", (quote_mode ? "[plain]" : ""));
108	sysadm	1.20	}
109
110	sysadm	1.22	typedef struct lml_tag_def_t
111			{
112	sysadm	1.26	const char *tag_name; // tag name
113			const char *tag_output; // output string
114			const char *default_param; // default param string
115			const char *quote_mode_output; // output string in quote mode
116	sysadm	1.22	lml_tag_filter_cb tag_filter_cb; // tag filter callback
117			} LML_TAG_DEF;
118
119			const LML_TAG_DEF lml_tag_def[] = {
120			// Definition of tuple: {lml_tag, lml_output, default_param, quote_mode_output, lml_filter_cb}
121			{"plain", NULL, NULL, NULL, lml_tag_disable_filter},
122	sysadm	1.29	{"nolml", "", NULL, "", NULL}, // deprecated
123	sysadm	1.30	{"lml", "", NULL, "", NULL}, // deprecated
124			{"align", "", "", "", NULL}, // N/A
125			{"/align", "", "", "", NULL}, // N/A
126			{"size", "", "", "", NULL}, // N/A
127			{"/size", "", "", "", NULL}, // N/A
128	sysadm	1.22	{"left", "[", "", "[left]", NULL},
129			{"right", "]", "", "[right]", NULL},
130			{"bold", "\033[1m", "", "", NULL}, // does not work in Fterm
131			{"/bold", "\033[22m", NULL, "", NULL},
132			{"b", "\033[1m", "", "", NULL},
133			{"/b", "\033[22m", NULL, "", NULL},
134	sysadm	1.26	{"italic", "\033[5m", "", "", NULL}, // use blink instead
135	sysadm	1.22	{"/italic", "\033[m", NULL, "", NULL}, // \033[25m does not work in Fterm
136			{"i", "\033[5m", "", "", NULL},
137			{"/i", "\033[m", NULL, "", NULL},
138			{"underline", "\033[4m", "", "", NULL},
139			{"/underline", "\033[m", NULL, "", NULL}, // \033[24m does not work in Fterm
140			{"u", "\033[4m", "", "", NULL},
141			{"/u", "\033[m", NULL, "", NULL},
142			{"color", NULL, NULL, "", lml_tag_color_filter},
143			{"/color", "\033[m", NULL, "", NULL},
144			{"quote", NULL, NULL, "", lml_tag_quote_filter},
145			{"/quote", NULL, NULL, "", lml_tag_quote_filter},
146			{"url", "", "", "", NULL},
147			{"/url", "（链接: %s）", NULL, "", NULL},
148			{"link", "", "", "", NULL},
149			{"/link", "（链接: %s）", NULL, "", NULL},
150			{"email", "", "", "", NULL},
151			{"/email", "（Email: %s）", NULL, "", NULL},
152			{"user", "", "", "", NULL},
153			{"/user", "（用户: %s）", NULL, "", NULL},
154			{"article", "", "", "", NULL},
155			{"/article", "（文章: %s）", NULL, "", NULL},
156			{"image", "（图片: %s）", "", "%s", NULL},
157			{"flash", "（Flash: %s）", "", "", NULL},
158			{"bwf", "\033[1;31m**\033[m", "", "**", NULL},
159	sysadm	1.1	};
160
161	sysadm	1.24	#define LML_TAG_COUNT (sizeof(lml_tag_def) / sizeof(LML_TAG_DEF))
162	sysadm	1.3
163	sysadm	1.19	static int lml_tag_name_len[LML_TAG_COUNT];
164			static int lml_ready = 0;
165	sysadm	1.1
166			inline static void lml_init(void)
167			{
168			int i;
169
170	sysadm	1.19	if (!lml_ready)
171	sysadm	1.1	{
172			for (i = 0; i < LML_TAG_COUNT; i++)
173			{
174	sysadm	1.22	lml_tag_name_len[i] = (int)strlen(lml_tag_def[i].tag_name);
175	sysadm	1.1	}
176
177	sysadm	1.19	lml_ready = 1;
178	sysadm	1.1	}
179			}
180
181	sysadm	1.20	int lml_render(const char str_in, char str_out, int buf_len, int quote_mode)
182	sysadm	1.1	{
183	sysadm	1.13	char c;
184	sysadm	1.2	char tag_param_buf[LML_TAG_PARAM_BUF_LEN];
185	sysadm	1.1	char tag_output_buf[LML_TAG_OUTPUT_BUF_LEN];
186			int i;
187			int j = 0;
188			int k;
189			int tag_start_pos = -1;
190	sysadm	1.26	int tag_name_pos = -1;
191	sysadm	1.1	int tag_end_pos = -1;
192	sysadm	1.2	int tag_param_pos = -1;
193	sysadm	1.1	int tag_output_len;
194	sysadm	1.5	int new_line = 1;
195			int fb_quote_level = 0;
196	sysadm	1.26	int tag_name_found;
197	sysadm	1.1
198			lml_init();
199
200	sysadm	1.20	lml_tag_disabled = 0;
201	sysadm	1.4	lml_tag_quote_level = 0;
202
203	sysadm	1.1	for (i = 0; str_in[i] != '\0'; i++)
204			{
205	sysadm	1.23	if (!quote_mode && !lml_tag_disabled && new_line)
206	sysadm	1.5	{
207			if (fb_quote_level > 0)
208			{
209			lml_tag_quote_level -= fb_quote_level;
210
211	sysadm	1.14	tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
212	sysadm	1.5	(lml_tag_quote_level > 0 ? lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP] : "\033[m"));
213	sysadm	1.8	if (j + tag_output_len >= buf_len)
214	sysadm	1.5	{
215	sysadm	1.8	log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
216	sysadm	1.5	str_out[j] = '\0';
217			return j;
218			}
219			memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
220			j += tag_output_len;
221
222			fb_quote_level = 0;
223			}
224
225			while (str_in[i + fb_quote_level * 2] == ':' && str_in[i + fb_quote_level * 2 + 1] == ' ') // FB2000 quote leading str
226			{
227			fb_quote_level++;
228			}
229
230			if (fb_quote_level > 0)
231			{
232			lml_tag_quote_level += fb_quote_level;
233
234	sysadm	1.14	tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
235	sysadm	1.31	lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
236	sysadm	1.8	if (j + tag_output_len >= buf_len)
237	sysadm	1.5	{
238	sysadm	1.8	log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
239	sysadm	1.5	str_out[j] = '\0';
240			return j;
241			}
242			memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
243			j += tag_output_len;
244			}
245
246			new_line = 0;
247			}
248
249	sysadm	1.8	if (str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence -- copy directly
250			{
251			for (k = i + 2; str_in[k] != '\0' && str_in[k] != 'm'; k++)
252			;
253
254			if (str_in[k] == 'm') // Valid
255			{
256			if (j + (k - i + 1) >= buf_len)
257			{
258			log_error("Buffer is not longer enough for output string %d >= %d\n", j + (k - i + 1), buf_len);
259			str_out[j] = '\0';
260			return j;
261			}
262			memcpy(str_out + j, str_in + i, (size_t)(k - i + 1));
263	sysadm	1.9	j += (k - i + 1);
264	sysadm	1.8	i = k;
265			continue;
266			}
267			else // reach end of string
268			{
269			break;
270			}
271			}
272
273	sysadm	1.28	if (str_in[i] == '\n') // jump out of tag at end of line
274	sysadm	1.5	{
275	sysadm	1.28	if (tag_start_pos != -1) // tag is not closed
276			{
277			tag_end_pos = i - 1;
278			tag_output_len = tag_end_pos - tag_start_pos + 1;
279			if (j + tag_output_len >= buf_len)
280			{
281			log_error("Buffer is not longer enough for output string %ld >= %d\n", j + tag_output_len, buf_len);
282			str_out[j] = '\0';
283			return j;
284			}
285
286			memcpy(str_out + j, str_in + tag_start_pos, (size_t)tag_output_len);
287			j += tag_output_len;
288			}
289
290			tag_start_pos = -1;
291			tag_name_pos = -1;
292	sysadm	1.5	new_line = 1;
293			}
294			else if (str_in[i] == '\r')
295			{
296			continue; // ignore '\r'
297			}
298
299	sysadm	1.20	if (!lml_tag_disabled && str_in[i] == '[')
300	sysadm	1.1	{
301	sysadm	1.26	tag_start_pos = i;
302			tag_name_pos = i + 1;
303	sysadm	1.1	}
304	sysadm	1.20	else if (!lml_tag_disabled && str_in[i] == ']')
305	sysadm	1.1	{
306	sysadm	1.26	if (tag_name_pos >= 0)
307	sysadm	1.1	{
308			tag_end_pos = i;
309
310			// Skip space characters
311	sysadm	1.26	while (str_in[tag_name_pos] == ' ')
312	sysadm	1.1	{
313	sysadm	1.26	tag_name_pos++;
314	sysadm	1.1	}
315
316	sysadm	1.26	for (tag_name_found = 0, k = 0; k < LML_TAG_COUNT; k++)
317	sysadm	1.1	{
318	sysadm	1.26	if (strncasecmp(lml_tag_def[k].tag_name, str_in + tag_name_pos, (size_t)lml_tag_name_len[k]) == 0)
319	sysadm	1.1	{
320	sysadm	1.2	tag_param_pos = -1;
321	sysadm	1.26	switch (str_in[tag_name_pos + lml_tag_name_len[k]])
322	sysadm	1.1	{
323			case ' ':
324	sysadm	1.26	tag_name_found = 1;
325			tag_param_pos = tag_name_pos + lml_tag_name_len[k] + 1;
326	sysadm	1.1	while (str_in[tag_param_pos] == ' ')
327			{
328			tag_param_pos++;
329			}
330	sysadm	1.2	strncpy(tag_param_buf, str_in + tag_param_pos, (size_t)MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN));
331			tag_param_buf[MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN)] = '\0';
332			case ']':
333	sysadm	1.26	tag_name_found = 1;
334	sysadm	1.22	if (tag_param_pos == -1 && lml_tag_def[k].tag_output != NULL && lml_tag_def[k].default_param != NULL) // Apply default param if not defined
335	sysadm	1.1	{
336	sysadm	1.22	strncpy(tag_param_buf, lml_tag_def[k].default_param, LML_TAG_PARAM_BUF_LEN - 1);
337	sysadm	1.2	tag_param_buf[LML_TAG_PARAM_BUF_LEN - 1] = '\0';
338	sysadm	1.1	}
339	sysadm	1.26	if (!quote_mode)
340	sysadm	1.3	{
341	sysadm	1.22	if (lml_tag_def[k].tag_output != NULL)
342	sysadm	1.15	{
343	sysadm	1.22	tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].tag_output, tag_param_buf);
344	sysadm	1.15	}
345	sysadm	1.23	else if (lml_tag_def[k].tag_filter_cb != NULL)
346			{
347			tag_output_len = lml_tag_def[k].tag_filter_cb(
348			lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 0);
349			}
350	sysadm	1.15	else
351			{
352	sysadm	1.23	tag_output_len = 0;
353	sysadm	1.15	}
354	sysadm	1.3	}
355	sysadm	1.26	else // if (quote_mode)
356	sysadm	1.3	{
357	sysadm	1.22	if (lml_tag_def[k].quote_mode_output != NULL)
358	sysadm	1.15	{
359	sysadm	1.22	tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].quote_mode_output, tag_param_buf);
360	sysadm	1.15	}
361	sysadm	1.23	else if (lml_tag_def[k].tag_filter_cb != NULL)
362			{
363			tag_output_len = lml_tag_def[k].tag_filter_cb(
364			lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 1);
365			}
366	sysadm	1.15	else
367			{
368	sysadm	1.23	tag_output_len = 0;
369	sysadm	1.15	}
370	sysadm	1.3	}
371	sysadm	1.8	if (j + tag_output_len >= buf_len)
372	sysadm	1.1	{
373	sysadm	1.8	log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
374	sysadm	1.1	str_out[j] = '\0';
375			return j;
376			}
377			memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
378			j += tag_output_len;
379			break;
380			default: // tag_name not match
381			continue;
382			}
383			break;
384			}
385			}
386
387	sysadm	1.26	if (!tag_name_found)
388			{
389			tag_output_len = tag_end_pos - tag_start_pos + 1;
390			if (j + tag_output_len >= buf_len)
391			{
392			log_error("Buffer is not longer enough for output string %ld >= %d\n", j + tag_output_len, buf_len);
393			str_out[j] = '\0';
394			return j;
395			}
396
397			memcpy(str_out + j, str_in + tag_start_pos, (size_t)tag_output_len);
398			j += tag_output_len;
399			}
400
401	sysadm	1.27	tag_start_pos = -1;
402	sysadm	1.26	tag_name_pos = -1;
403	sysadm	1.1	}
404			}
405	sysadm	1.26	else if (lml_tag_disabled \|\| tag_name_pos == -1) // not in LML tag
406	sysadm	1.1	{
407	sysadm	1.22	if (str_in[i] & 0x80) // head of multi-byte character
408	sysadm	1.1	{
409	sysadm	1.13	if (j + 4 >= buf_len) // Assuming UTF-8 CJK characters use 4 bytes, though most of them actually use 3 bytes
410	sysadm	1.1	{
411	sysadm	1.13	log_error("Buffer is not longer enough for output string %ld >= %d\n", j + 4, buf_len);
412	sysadm	1.1	str_out[j] = '\0';
413			return j;
414			}
415	sysadm	1.13
416	sysadm	1.22	c = (str_in[i] & 0x70) << 1;
417			while (c & 0x80)
418	sysadm	1.1	{
419	sysadm	1.13	str_out[j++] = str_in[i++];
420			if (str_in[i] == '\0')
421			{
422			str_out[j] = '\0';
423			return j;
424			}
425	sysadm	1.22	c = (c & 0x7f) << 1;
426	sysadm	1.1	}
427			}
428
429	sysadm	1.8	if (j + 1 >= buf_len)
430	sysadm	1.1	{
431	sysadm	1.8	log_error("Buffer is not longer enough for output string %ld >= %d\n", j + 1, buf_len);
432	sysadm	1.1	str_out[j] = '\0';
433			return j;
434			}
435			str_out[j++] = str_in[i];
436			}
437			else // in LML tag
438			{
439			// Do nothing
440			}
441			}
442
443	sysadm	1.26	if (tag_start_pos != -1) // tag is not closed
444			{
445			tag_end_pos = i - 1;
446			tag_output_len = tag_end_pos - tag_start_pos + 1;
447			if (j + tag_output_len >= buf_len)
448			{
449			log_error("Buffer is not longer enough for output string %ld >= %d\n", j + tag_output_len, buf_len);
450			str_out[j] = '\0';
451			return j;
452			}
453
454			memcpy(str_out + j, str_in + tag_start_pos, (size_t)tag_output_len);
455			j += tag_output_len;
456			}
457
458	sysadm	1.23	if (!quote_mode && !lml_tag_disabled && lml_tag_quote_level > 0)
459	sysadm	1.5	{
460			tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "\033[m");
461	sysadm	1.8	if (j + tag_output_len >= buf_len)
462	sysadm	1.5	{
463	sysadm	1.8	log_error("Buffer is not longer enough for output string %d >= %d\n", j + tag_output_len, buf_len);
464	sysadm	1.5	str_out[j] = '\0';
465			return j;
466			}
467			memcpy(str_out + j, tag_output_buf, (size_t)tag_output_len);
468			j += tag_output_len;
469			}
470
471	sysadm	1.1	str_out[j] = '\0';
472
473			return j;
474	sysadm	1.5	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1