/[LeafOK_CVS]/lbbs/src/lml.c
ViewVC logotype

Contents of /lbbs/src/lml.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.42 - (show annotations)
Tue Nov 4 13:49:51 2025 UTC (4 months, 1 week ago) by sysadm
Branch: MAIN
Changes since 1.41: +7 -15 lines
Content type: text/x-csrc
Update file header information comments

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

webmaster@leafok.com
ViewVC Help
Powered by ViewVC 1.3.0-beta1