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

Contents of /lbbs/src/lml.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.56 - (show annotations)
Wed Jan 21 07:54:50 2026 UTC (7 weeks, 6 days ago) by sysadm
Branch: MAIN
CVS Tags: HEAD
Changes since 1.55: +4 -0 lines
Content type: text/x-csrc
Skip unrecognized control sequence while not in quote mode

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

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