lbbs/src/lml.c

/* SPDX-License-Identifier: GPL-3.0-or-later */
/*
 * lml
 *   - LML render
 *
 * Copyright (C) 2004-2025  Leaflet <leaflet@leafok.com>
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

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

enum _lml_constant_t
{
        LML_TAG_PARAM_BUF_LEN = 256,
        LML_TAG_OUTPUT_BUF_LEN = 1024,
        LML_TAG_QUOTE_MAX_LEVEL = 10,
};

clock_t lml_total_exec_duration = 0;

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;
}

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},
};

static const int lml_tag_count = sizeof(lml_tag_def) / sizeof(LML_TAG_DEF);
static int lml_tag_name_len[sizeof(lml_tag_def) / sizeof(LML_TAG_DEF)];
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;
        }
}

#define CHECK_AND_APPEND_OUTPUT(out_buf, out_buf_len, out_buf_offset, tag_out, tag_out_len, line_width)                             \
        if ((tag_out_len) > 0)                                                                                                          \
        {                                                                                                                               \
                if ((out_buf_offset) + (tag_out_len) >= (out_buf_len))                                                                      \
                {                                                                                                                           \
                        log_error("Buffer is not longer enough for output string %d >= %d", (out_buf_offset) + (tag_out_len), (out_buf_len)); \
                        out_buf[out_buf_offset] = '\0';                                                                                         \
                        return (out_buf_offset);                                                                                                \
                }                                                                                                                           \
                memcpy((out_buf) + (out_buf_offset), (tag_out), (size_t)(tag_out_len));                                                     \
                *((out_buf) + (out_buf_offset) + (size_t)(tag_out_len)) = '\0';                                                             \
                (line_width) += str_length((out_buf) + (out_buf_offset), 1);                                                                \
                (out_buf_offset) += (tag_out_len);                                                                                          \
        }

int lml_render(const char *str_in, char *str_out, int buf_len, int width, int quote_mode)
{
        clock_t clock_begin;
        clock_t clock_end;

        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;
        int line_width = 0;
        char tab_spaces[TAB_SIZE + 1];
        int tab_width = 0;

        clock_begin = clock();

#ifdef _DEBUG
        size_t str_in_len = strlen(str_in);
#endif

        lml_init();

        lml_tag_disabled = 0;
        lml_tag_quote_level = 0;

        if (width <= 0)
        {
                width = INT_MAX;
        }

        for (i = 0; str_in[i] != '\0'; i++)
        {
#ifdef _DEBUG
                if (i >= str_in_len)
                {
                        log_error("Bug: i(%d) >= str_in_len(%d)", i, str_in_len);
                        break;
                }
#endif

                if (!lml_tag_disabled && new_line)
                {
                        while (str_in[i] == ':' && str_in[i + 1] == ' ') // FB2000 quote leading str
                        {
                                fb_quote_level++;
                                lml_tag_quote_level++;
                                i += 2;
                        }

                        if (!quote_mode && lml_tag_quote_level > 0)
                        {
                                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]);
                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
                        }

                        for (k = 0; k < fb_quote_level; k++)
                        {
                                tag_output_buf[k * 2] = ':';
                                tag_output_buf[k * 2 + 1] = ' ';
                        }
                        tag_output_buf[fb_quote_level * 2] = '\0';
                        tag_output_len = fb_quote_level * 2;
                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);

                        new_line = 0;
                        i--; // redo at current i
                        continue;
                }

                if (lml_tag_disabled && new_line)
                {
                        new_line = 0;
                }

                if (!quote_mode && !lml_tag_disabled && str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence
                {
                        for (k = i + 2; isdigit((int)str_in[k]) || str_in[k] == ';' || str_in[k] == '?'; k++)
                                ;

                        if (str_in[k] == 'm') // valid -- copy directly
                        {
                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, k - i + 1, line_width);
                        }
                        else if (isalpha((int)str_in[k]))
                        {
                                // unsupported ANSI CSI command
                        }
                        else
                        {
                                k--;
                        }

                        i = k;
                        continue;
                }

                if (str_in[i] == '\n') // jump out of tag at end of line
                {
                        if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
                        {
                                if (line_width + 1 > width)
                                {
                                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
                                        new_line = 1;
                                        line_width = 0;
                                        i--; // redo at current i
                                        continue;
                                }

                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
                                i = tag_start_pos; // restart from tag_start_pos + 1
                                tag_start_pos = -1;
                                tag_name_pos = -1;
                                continue;
                        }

                        if (!lml_tag_disabled && fb_quote_level > 0)
                        {
                                lml_tag_quote_level -= fb_quote_level;

                                tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, (quote_mode ? "" : "\033[m"));
                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);

                                fb_quote_level = 0;
                        }

                        if (new_line)
                        {
                                continue;
                        }

                        tag_start_pos = -1;
                        tag_name_pos = -1;
                        new_line = 1;
                        line_width = -1;
                }
                else if (str_in[i] == '\r' || str_in[i] == '\7')
                {
                        continue; // Skip special characters
                }
                else if (str_in[i] == '\t')
                {
                        tab_width = TAB_SIZE - (line_width % TAB_SIZE);
                        if (line_width + tab_width > width)
                        {
                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
                                new_line = 1;
                                line_width = 0;
                                // skip current Tab
                                continue;
                        }

                        for (k = 0; k < tab_width; k++)
                        {
                                tab_spaces[k] = ' ';
                        }
                        tab_spaces[tab_width] = '\0';
                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tab_spaces, tab_width, line_width);
                        continue;
                }

                if (!lml_tag_disabled && str_in[i] == '[')
                {
                        if (tag_start_pos != -1) // tag is not closed
                        {
                                if (line_width + 1 > width)
                                {
                                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
                                        new_line = 1;
                                        line_width = 0;
                                        i--; // redo at current i
                                        continue;
                                }

                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
                                i = tag_start_pos; // restart from tag_start_pos + 1
                                tag_start_pos = -1;
                                tag_name_pos = -1;
                                continue;
                        }

                        tag_start_pos = i;
                        tag_name_pos = i + 1;
                }
                else if (!lml_tag_disabled && str_in[i] == ']' && 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';
                                                }
                                                tag_output_len = 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 // 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);
                                                        }
                                                }

                                                if (line_width + tag_output_len > width)
                                                {
                                                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
                                                        new_line = 1;
                                                        line_width = 0;
                                                        i--; // redo at current i
                                                        continue;
                                                }

                                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
                                                break;
                                        default: // tag_name not match
                                                continue;
                                        }
                                        break;
                                }
                        }

                        if (!tag_name_found)
                        {
                                if (line_width + 1 > width)
                                {
                                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
                                        new_line = 1;
                                        line_width = 0;
                                        i--; // redo at current i
                                        continue;
                                }

                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
                                i = tag_start_pos; // restart from tag_start_pos + 1
                                tag_start_pos = -1;
                                tag_name_pos = -1;
                                continue;
                        }

                        tag_start_pos = -1;
                        tag_name_pos = -1;
                }
                else if (lml_tag_disabled || tag_name_pos == -1) // not in LML tag
                {
                        if (line_width + (str_in[i] & 0x80 ? 2 : 1) > width)
                        {
                                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
                                new_line = 1;
                                line_width = 0;
                                i--; // redo at current i
                                continue;
                        }

                        tag_output_len = 1;
                        if (str_in[i] & 0x80) // head of multi-byte character
                        {
                                c = (str_in[i] & 0x70) << 1;
                                while (c & 0x80)
                                {
                                        if (str_in[i + tag_output_len] == '\0')
                                        {
                                                break;
                                        }
                                        tag_output_len++;
                                        c = (c & 0x7f) << 1;
                                }
                        }

                        CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, tag_output_len, line_width);
                        i += (tag_output_len - 1);
                }
                else // in LML tag
                {
                        // Do nothing
                }
        }

        if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
        {
                tag_end_pos = i - 1;
                tag_output_len = tag_end_pos - tag_start_pos + 1;
                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
        }

        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");
                CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
        }

        str_out[j] = '\0';

        clock_end = clock();
        lml_total_exec_duration += (clock_end - clock_begin);

        return j;
}
1	sysadm	1.42	/* SPDX-License-Identifier: GPL-3.0-or-later */
2			/*
3			* lml
4			* - LML render
5			*
6	sysadm	1.43	* Copyright (C) 2004-2025 Leaflet <leaflet@leafok.com>
7	sysadm	1.42	*/
8	sysadm	1.1
9	sysadm	1.47	#ifdef HAVE_CONFIG_H
10			#include "config.h"
11			#endif
12
13	sysadm	1.12	#include "common.h"
14	sysadm	1.1	#include "lml.h"
15			#include "log.h"
16	sysadm	1.36	#include "str_process.h"
17	sysadm	1.37	#include <ctype.h>
18	sysadm	1.1	#include <stdio.h>
19			#include <string.h>
20			#include <sys/param.h>
21
22	sysadm	1.44	enum _lml_constant_t
23			{
24			LML_TAG_PARAM_BUF_LEN = 256,
25			LML_TAG_OUTPUT_BUF_LEN = 1024,
26			LML_TAG_QUOTE_MAX_LEVEL = 10,
27			};
28	sysadm	1.1
29	sysadm	1.41	clock_t lml_total_exec_duration = 0;
30
31	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);
32	sysadm	1.3
33	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)
34	sysadm	1.3	{
35			if (strcasecmp(tag_name, "color") == 0)
36			{
37			if (strcasecmp(tag_param_buf, "red") == 0)
38			{
39			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;31m");
40			}
41			else if (strcasecmp(tag_param_buf, "green") == 0)
42			{
43			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;32m");
44			}
45			else if (strcasecmp(tag_param_buf, "yellow") == 0)
46			{
47			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;33m");
48			}
49			else if (strcasecmp(tag_param_buf, "blue") == 0)
50			{
51			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;34m");
52			}
53			else if (strcasecmp(tag_param_buf, "magenta") == 0)
54			{
55			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;35m");
56			}
57			else if (strcasecmp(tag_param_buf, "cyan") == 0)
58			{
59			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;36m");
60			}
61			else if (strcasecmp(tag_param_buf, "black") == 0)
62			{
63			return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;30;47m");
64			}
65			}
66			return 0;
67			}
68	sysadm	1.1
69	sysadm	1.4	static const char *lml_tag_quote_color[] = {
70	sysadm	1.5	"\033[33m", // yellow
71			"\033[32m", // green
72			"\033[35m", // magenta
73	sysadm	1.4	};
74
75	sysadm	1.30	static const int LML_TAG_QUOTE_LEVEL_LOOP = (int)(sizeof(lml_tag_quote_color) / sizeof(const char *));
76
77	sysadm	1.4	static int lml_tag_quote_level = 0;
78
79	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)
80	sysadm	1.4	{
81			if (strcasecmp(tag_name, "quote") == 0)
82			{
83			if (lml_tag_quote_level <= LML_TAG_QUOTE_MAX_LEVEL)
84			{
85			lml_tag_quote_level++;
86			}
87	sysadm	1.14	return snprintf(tag_output_buf, tag_output_buf_len, "%s",
88			lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
89	sysadm	1.4	}
90			else if (strcasecmp(tag_name, "/quote") == 0)
91			{
92			if (lml_tag_quote_level > 0)
93			{
94			lml_tag_quote_level--;
95			}
96	sysadm	1.14	return snprintf(tag_output_buf, tag_output_buf_len, "%s",
97	sysadm	1.5	(lml_tag_quote_level > 0 ? lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP] : "\033[m"));
98	sysadm	1.4	}
99
100			return 0;
101			}
102
103	sysadm	1.20	static int lml_tag_disabled = 0;
104
105			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)
106			{
107			lml_tag_disabled = 1;
108
109	sysadm	1.23	return snprintf(tag_output_buf, tag_output_buf_len, "%s", (quote_mode ? "[plain]" : ""));
110	sysadm	1.20	}
111
112	sysadm	1.22	typedef struct lml_tag_def_t
113			{
114	sysadm	1.26	const char *tag_name; // tag name
115			const char *tag_output; // output string
116			const char *default_param; // default param string
117			const char *quote_mode_output; // output string in quote mode
118	sysadm	1.22	lml_tag_filter_cb tag_filter_cb; // tag filter callback
119			} LML_TAG_DEF;
120
121			const LML_TAG_DEF lml_tag_def[] = {
122			// Definition of tuple: {lml_tag, lml_output, default_param, quote_mode_output, lml_filter_cb}
123			{"plain", NULL, NULL, NULL, lml_tag_disable_filter},
124	sysadm	1.29	{"nolml", "", NULL, "", NULL}, // deprecated
125	sysadm	1.30	{"lml", "", NULL, "", NULL}, // deprecated
126			{"align", "", "", "", NULL}, // N/A
127			{"/align", "", "", "", NULL}, // N/A
128			{"size", "", "", "", NULL}, // N/A
129			{"/size", "", "", "", NULL}, // N/A
130	sysadm	1.22	{"left", "[", "", "[left]", NULL},
131			{"right", "]", "", "[right]", NULL},
132			{"bold", "\033[1m", "", "", NULL}, // does not work in Fterm
133			{"/bold", "\033[22m", NULL, "", NULL},
134			{"b", "\033[1m", "", "", NULL},
135			{"/b", "\033[22m", NULL, "", NULL},
136	sysadm	1.26	{"italic", "\033[5m", "", "", NULL}, // use blink instead
137	sysadm	1.22	{"/italic", "\033[m", NULL, "", NULL}, // \033[25m does not work in Fterm
138			{"i", "\033[5m", "", "", NULL},
139			{"/i", "\033[m", NULL, "", NULL},
140			{"underline", "\033[4m", "", "", NULL},
141			{"/underline", "\033[m", NULL, "", NULL}, // \033[24m does not work in Fterm
142			{"u", "\033[4m", "", "", NULL},
143			{"/u", "\033[m", NULL, "", NULL},
144			{"color", NULL, NULL, "", lml_tag_color_filter},
145			{"/color", "\033[m", NULL, "", NULL},
146			{"quote", NULL, NULL, "", lml_tag_quote_filter},
147			{"/quote", NULL, NULL, "", lml_tag_quote_filter},
148			{"url", "", "", "", NULL},
149			{"/url", "（链接: %s）", NULL, "", NULL},
150			{"link", "", "", "", NULL},
151			{"/link", "（链接: %s）", NULL, "", NULL},
152			{"email", "", "", "", NULL},
153			{"/email", "（Email: %s）", NULL, "", NULL},
154			{"user", "", "", "", NULL},
155			{"/user", "（用户: %s）", NULL, "", NULL},
156			{"article", "", "", "", NULL},
157			{"/article", "（文章: %s）", NULL, "", NULL},
158			{"image", "（图片: %s）", "", "%s", NULL},
159			{"flash", "（Flash: %s）", "", "", NULL},
160			{"bwf", "\033[1;31m**\033[m", "", "**", NULL},
161	sysadm	1.1	};
162
163	sysadm	1.44	static const int lml_tag_count = sizeof(lml_tag_def) / sizeof(LML_TAG_DEF);
164			static int lml_tag_name_len[sizeof(lml_tag_def) / sizeof(LML_TAG_DEF)];
165	sysadm	1.19	static int lml_ready = 0;
166	sysadm	1.1
167			inline static void lml_init(void)
168			{
169			int i;
170
171	sysadm	1.19	if (!lml_ready)
172	sysadm	1.1	{
173	sysadm	1.44	for (i = 0; i < lml_tag_count; i++)
174	sysadm	1.1	{
175	sysadm	1.22	lml_tag_name_len[i] = (int)strlen(lml_tag_def[i].tag_name);
176	sysadm	1.1	}
177
178	sysadm	1.19	lml_ready = 1;
179	sysadm	1.1	}
180			}
181
182	sysadm	1.36	#define CHECK_AND_APPEND_OUTPUT(out_buf, out_buf_len, out_buf_offset, tag_out, tag_out_len, line_width) \
183	sysadm	1.49	if ((tag_out_len) > 0) \
184	sysadm	1.35	{ \
185			if ((out_buf_offset) + (tag_out_len) >= (out_buf_len)) \
186			{ \
187	sysadm	1.52	log_error("Buffer is not longer enough for output string %d >= %d", (out_buf_offset) + (tag_out_len), (out_buf_len)); \
188	sysadm	1.35	out_buf[out_buf_offset] = '\0'; \
189			return (out_buf_offset); \
190			} \
191			memcpy((out_buf) + (out_buf_offset), (tag_out), (size_t)(tag_out_len)); \
192	sysadm	1.36	*((out_buf) + (out_buf_offset) + (size_t)(tag_out_len)) = '\0'; \
193			(line_width) += str_length((out_buf) + (out_buf_offset), 1); \
194	sysadm	1.35	(out_buf_offset) += (tag_out_len); \
195			}
196	sysadm	1.34
197	sysadm	1.36	int lml_render(const char str_in, char str_out, int buf_len, int width, int quote_mode)
198	sysadm	1.1	{
199	sysadm	1.41	clock_t clock_begin;
200			clock_t clock_end;
201
202	sysadm	1.13	char c;
203	sysadm	1.2	char tag_param_buf[LML_TAG_PARAM_BUF_LEN];
204	sysadm	1.1	char tag_output_buf[LML_TAG_OUTPUT_BUF_LEN];
205			int i;
206			int j = 0;
207			int k;
208			int tag_start_pos = -1;
209	sysadm	1.26	int tag_name_pos = -1;
210	sysadm	1.1	int tag_end_pos = -1;
211	sysadm	1.2	int tag_param_pos = -1;
212	sysadm	1.1	int tag_output_len;
213	sysadm	1.5	int new_line = 1;
214			int fb_quote_level = 0;
215	sysadm	1.26	int tag_name_found;
216	sysadm	1.36	int line_width = 0;
217	sysadm	1.46	char tab_spaces[TAB_SIZE + 1];
218			int tab_width = 0;
219	sysadm	1.1
220	sysadm	1.51	clock_begin = clock();
221
222	sysadm	1.49	#ifdef _DEBUG
223			size_t str_in_len = strlen(str_in);
224			#endif
225
226	sysadm	1.1	lml_init();
227
228	sysadm	1.20	lml_tag_disabled = 0;
229	sysadm	1.4	lml_tag_quote_level = 0;
230
231	sysadm	1.36	if (width <= 0)
232			{
233			width = INT_MAX;
234			}
235
236	sysadm	1.1	for (i = 0; str_in[i] != '\0'; i++)
237			{
238	sysadm	1.49	#ifdef _DEBUG
239			if (i >= str_in_len)
240			{
241	sysadm	1.52	log_error("Bug: i(%d) >= str_in_len(%d)", i, str_in_len);
242	sysadm	1.49	break;
243			}
244			#endif
245
246	sysadm	1.36	if (!lml_tag_disabled && new_line)
247	sysadm	1.5	{
248	sysadm	1.36	while (str_in[i] == ':' && str_in[i + 1] == ' ') // FB2000 quote leading str
249	sysadm	1.5	{
250			fb_quote_level++;
251	sysadm	1.36	lml_tag_quote_level++;
252			i += 2;
253	sysadm	1.5	}
254
255	sysadm	1.36	if (!quote_mode && lml_tag_quote_level > 0)
256	sysadm	1.5	{
257	sysadm	1.14	tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
258	sysadm	1.31	lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
259	sysadm	1.36	CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
260	sysadm	1.5	}
261
262	sysadm	1.36	for (k = 0; k < fb_quote_level; k++)
263			{
264			tag_output_buf[k * 2] = ':';
265			tag_output_buf[k * 2 + 1] = ' ';
266			}
267			tag_output_buf[fb_quote_level * 2] = '\0';
268			tag_output_len = fb_quote_level * 2;
269			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
270
271	sysadm	1.5	new_line = 0;
272	sysadm	1.50	i--; // redo at current i
273			continue;
274	sysadm	1.5	}
275
276	sysadm	1.39	if (lml_tag_disabled && new_line)
277			{
278			new_line = 0;
279			}
280
281	sysadm	1.41	if (!quote_mode && !lml_tag_disabled && str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence
282	sysadm	1.8	{
283	sysadm	1.48	for (k = i + 2; isdigit((int)str_in[k]) \|\| str_in[k] == ';' \|\| str_in[k] == '?'; k++)
284	sysadm	1.8	;
285
286	sysadm	1.37	if (str_in[k] == 'm') // valid -- copy directly
287			{
288			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, k - i + 1, line_width);
289			}
290	sysadm	1.48	else if (isalpha((int)str_in[k]))
291	sysadm	1.37	{
292			// unsupported ANSI CSI command
293			}
294			else
295	sysadm	1.8	{
296	sysadm	1.35	k--;
297	sysadm	1.8	}
298	sysadm	1.35
299			i = k;
300			continue;
301	sysadm	1.8	}
302
303	sysadm	1.28	if (str_in[i] == '\n') // jump out of tag at end of line
304	sysadm	1.5	{
305	sysadm	1.41	if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
306	sysadm	1.28	{
307	sysadm	1.45	if (line_width + 1 > width)
308	sysadm	1.38	{
309			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
310			new_line = 1;
311			line_width = 0;
312	sysadm	1.40	i--; // redo at current i
313	sysadm	1.45	continue;
314	sysadm	1.38	}
315	sysadm	1.45
316			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
317			i = tag_start_pos; // restart from tag_start_pos + 1
318			tag_start_pos = -1;
319			tag_name_pos = -1;
320			continue;
321	sysadm	1.28	}
322
323	sysadm	1.41	if (!lml_tag_disabled && fb_quote_level > 0)
324	sysadm	1.33	{
325			lml_tag_quote_level -= fb_quote_level;
326
327	sysadm	1.36	tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, (quote_mode ? "" : "\033[m"));
328			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
329
330			fb_quote_level = 0;
331	sysadm	1.33	}
332
333	sysadm	1.38	if (new_line)
334			{
335			continue;
336			}
337
338	sysadm	1.28	tag_start_pos = -1;
339			tag_name_pos = -1;
340	sysadm	1.5	new_line = 1;
341	sysadm	1.38	line_width = -1;
342	sysadm	1.5	}
343	sysadm	1.36	else if (str_in[i] == '\r' \|\| str_in[i] == '\7')
344	sysadm	1.5	{
345	sysadm	1.36	continue; // Skip special characters
346	sysadm	1.5	}
347	sysadm	1.46	else if (str_in[i] == '\t')
348			{
349			tab_width = TAB_SIZE - (line_width % TAB_SIZE);
350			if (line_width + tab_width > width)
351			{
352			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
353			new_line = 1;
354			line_width = 0;
355			// skip current Tab
356			continue;
357			}
358
359			for (k = 0; k < tab_width; k++)
360			{
361			tab_spaces[k] = ' ';
362			}
363			tab_spaces[tab_width] = '\0';
364			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tab_spaces, tab_width, line_width);
365			continue;
366			}
367	sysadm	1.5
368	sysadm	1.20	if (!lml_tag_disabled && str_in[i] == '[')
369	sysadm	1.1	{
370	sysadm	1.33	if (tag_start_pos != -1) // tag is not closed
371			{
372	sysadm	1.45	if (line_width + 1 > width)
373			{
374			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
375			new_line = 1;
376			line_width = 0;
377			i--; // redo at current i
378			continue;
379			}
380
381			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
382			i = tag_start_pos; // restart from tag_start_pos + 1
383			tag_start_pos = -1;
384			tag_name_pos = -1;
385			continue;
386	sysadm	1.33	}
387
388	sysadm	1.26	tag_start_pos = i;
389			tag_name_pos = i + 1;
390	sysadm	1.1	}
391	sysadm	1.32	else if (!lml_tag_disabled && str_in[i] == ']' && tag_name_pos >= 0)
392	sysadm	1.1	{
393	sysadm	1.32	tag_end_pos = i;
394
395			// Skip space characters
396			while (str_in[tag_name_pos] == ' ')
397	sysadm	1.1	{
398	sysadm	1.32	tag_name_pos++;
399			}
400	sysadm	1.1
401	sysadm	1.44	for (tag_name_found = 0, k = 0; k < lml_tag_count; k++)
402	sysadm	1.32	{
403			if (strncasecmp(lml_tag_def[k].tag_name, str_in + tag_name_pos, (size_t)lml_tag_name_len[k]) == 0)
404	sysadm	1.1	{
405	sysadm	1.32	tag_param_pos = -1;
406			switch (str_in[tag_name_pos + lml_tag_name_len[k]])
407	sysadm	1.1	{
408	sysadm	1.32	case ' ':
409			tag_name_found = 1;
410			tag_param_pos = tag_name_pos + lml_tag_name_len[k] + 1;
411			while (str_in[tag_param_pos] == ' ')
412			{
413			tag_param_pos++;
414			}
415			strncpy(tag_param_buf, str_in + tag_param_pos, (size_t)MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN));
416			tag_param_buf[MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN)] = '\0';
417			case ']':
418			tag_name_found = 1;
419			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
420			{
421			strncpy(tag_param_buf, lml_tag_def[k].default_param, LML_TAG_PARAM_BUF_LEN - 1);
422			tag_param_buf[LML_TAG_PARAM_BUF_LEN - 1] = '\0';
423			}
424	sysadm	1.34	tag_output_len = 0;
425	sysadm	1.32	if (!quote_mode)
426			{
427			if (lml_tag_def[k].tag_output != NULL)
428			{
429			tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].tag_output, tag_param_buf);
430			}
431			else if (lml_tag_def[k].tag_filter_cb != NULL)
432			{
433			tag_output_len = lml_tag_def[k].tag_filter_cb(
434			lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 0);
435			}
436			}
437			else // if (quote_mode)
438	sysadm	1.1	{
439	sysadm	1.32	if (lml_tag_def[k].quote_mode_output != NULL)
440			{
441			tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].quote_mode_output, tag_param_buf);
442			}
443			else if (lml_tag_def[k].tag_filter_cb != NULL)
444			{
445			tag_output_len = lml_tag_def[k].tag_filter_cb(
446			lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 1);
447			}
448	sysadm	1.1	}
449	sysadm	1.50
450			if (line_width + tag_output_len > width)
451			{
452			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
453			new_line = 1;
454			line_width = 0;
455			i--; // redo at current i
456			continue;
457			}
458
459	sysadm	1.36	CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
460	sysadm	1.1	break;
461	sysadm	1.32	default: // tag_name not match
462			continue;
463	sysadm	1.1	}
464	sysadm	1.32	break;
465	sysadm	1.1	}
466	sysadm	1.32	}
467	sysadm	1.1
468	sysadm	1.32	if (!tag_name_found)
469			{
470	sysadm	1.40	if (line_width + 1 > width)
471	sysadm	1.38	{
472			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
473			new_line = 1;
474			line_width = 0;
475	sysadm	1.40	i--; // redo at current i
476	sysadm	1.38	continue;
477			}
478
479	sysadm	1.40	CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
480			i = tag_start_pos; // restart from tag_start_pos + 1
481			tag_start_pos = -1;
482			tag_name_pos = -1;
483			continue;
484	sysadm	1.1	}
485	sysadm	1.32
486			tag_start_pos = -1;
487			tag_name_pos = -1;
488	sysadm	1.1	}
489	sysadm	1.26	else if (lml_tag_disabled \|\| tag_name_pos == -1) // not in LML tag
490	sysadm	1.1	{
491	sysadm	1.36	if (line_width + (str_in[i] & 0x80 ? 2 : 1) > width)
492			{
493			CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
494			new_line = 1;
495			line_width = 0;
496	sysadm	1.40	i--; // redo at current i
497	sysadm	1.36	continue;
498			}
499
500			tag_output_len = 1;
501	sysadm	1.22	if (str_in[i] & 0x80) // head of multi-byte character
502	sysadm	1.1	{
503	sysadm	1.22	c = (str_in[i] & 0x70) << 1;
504			while (c & 0x80)
505	sysadm	1.1	{
506	sysadm	1.36	if (str_in[i + tag_output_len] == '\0')
507	sysadm	1.13	{
508	sysadm	1.36	break;
509	sysadm	1.13	}
510	sysadm	1.36	tag_output_len++;
511	sysadm	1.22	c = (c & 0x7f) << 1;
512	sysadm	1.1	}
513			}
514
515	sysadm	1.36	CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, tag_output_len, line_width);
516			i += (tag_output_len - 1);
517	sysadm	1.1	}
518			else // in LML tag
519			{
520			// Do nothing
521			}
522			}
523
524	sysadm	1.41	if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
525	sysadm	1.26	{
526			tag_end_pos = i - 1;
527			tag_output_len = tag_end_pos - tag_start_pos + 1;
528	sysadm	1.36	CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
529	sysadm	1.26	}
530
531	sysadm	1.23	if (!quote_mode && !lml_tag_disabled && lml_tag_quote_level > 0)
532	sysadm	1.5	{
533			tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "\033[m");
534	sysadm	1.36	CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
535	sysadm	1.5	}
536
537	sysadm	1.1	str_out[j] = '\0';
538
539	sysadm	1.41	clock_end = clock();
540			lml_total_exec_duration += (clock_end - clock_begin);
541
542	sysadm	1.1	return j;
543	sysadm	1.5	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1