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

Contents of /lbbs/src/lml.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.50 - (show annotations)
Sat Nov 22 14:20:20 2025 UTC (3 months, 3 weeks ago) by sysadm
Branch: MAIN
Changes since 1.49: +12 -5 lines
Content type: text/x-csrc
Refine handling of over-length tag output in lml_render, to keep consistent with web version.

1 /* SPDX-License-Identifier: GPL-3.0-or-later */
2 /*
3 * lml
4 * - LML render
5 *
6 * Copyright (C) 2004-2025 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 <ctype.h>
18 #include <stdio.h>
19 #include <string.h>
20 #include <sys/param.h>
21
22 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
29 clock_t lml_total_exec_duration = 0;
30
31 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
33 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 {
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
69 static const char *lml_tag_quote_color[] = {
70 "\033[33m", // yellow
71 "\033[32m", // green
72 "\033[35m", // magenta
73 };
74
75 static const int LML_TAG_QUOTE_LEVEL_LOOP = (int)(sizeof(lml_tag_quote_color) / sizeof(const char *));
76
77 static int lml_tag_quote_level = 0;
78
79 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 {
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 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 }
90 else if (strcasecmp(tag_name, "/quote") == 0)
91 {
92 if (lml_tag_quote_level > 0)
93 {
94 lml_tag_quote_level--;
95 }
96 return snprintf(tag_output_buf, tag_output_buf_len, "%s",
97 (lml_tag_quote_level > 0 ? lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP] : "\033[m"));
98 }
99
100 return 0;
101 }
102
103 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 return snprintf(tag_output_buf, tag_output_buf_len, "%s", (quote_mode ? "[plain]" : ""));
110 }
111
112 typedef struct lml_tag_def_t
113 {
114 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 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 {"nolml", "", NULL, "", NULL}, // deprecated
125 {"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 {"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 {"italic", "\033[5m", "", "", NULL}, // use blink instead
137 {"/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 };
162
163 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 static int lml_ready = 0;
166
167 inline static void lml_init(void)
168 {
169 int i;
170
171 if (!lml_ready)
172 {
173 for (i = 0; i < lml_tag_count; i++)
174 {
175 lml_tag_name_len[i] = (int)strlen(lml_tag_def[i].tag_name);
176 }
177
178 lml_ready = 1;
179 }
180 }
181
182 #define CHECK_AND_APPEND_OUTPUT(out_buf, out_buf_len, out_buf_offset, tag_out, tag_out_len, line_width) \
183 if ((tag_out_len) > 0) \
184 { \
185 if ((out_buf_offset) + (tag_out_len) >= (out_buf_len)) \
186 { \
187 log_error("Buffer is not longer enough for output string %d >= %d\n", (out_buf_offset) + (tag_out_len), (out_buf_len)); \
188 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 *((out_buf) + (out_buf_offset) + (size_t)(tag_out_len)) = '\0'; \
193 (line_width) += str_length((out_buf) + (out_buf_offset), 1); \
194 (out_buf_offset) += (tag_out_len); \
195 }
196
197 int lml_render(const char *str_in, char *str_out, int buf_len, int width, int quote_mode)
198 {
199 clock_t clock_begin;
200 clock_t clock_end;
201
202 char c;
203 char tag_param_buf[LML_TAG_PARAM_BUF_LEN];
204 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 int tag_name_pos = -1;
210 int tag_end_pos = -1;
211 int tag_param_pos = -1;
212 int tag_output_len;
213 int new_line = 1;
214 int fb_quote_level = 0;
215 int tag_name_found;
216 int line_width = 0;
217 char tab_spaces[TAB_SIZE + 1];
218 int tab_width = 0;
219
220 #ifdef _DEBUG
221 size_t str_in_len = strlen(str_in);
222 #endif
223
224 clock_begin = clock();
225
226 lml_init();
227
228 lml_tag_disabled = 0;
229 lml_tag_quote_level = 0;
230
231 if (width <= 0)
232 {
233 width = INT_MAX;
234 }
235
236 for (i = 0; str_in[i] != '\0'; i++)
237 {
238 #ifdef _DEBUG
239 if (i >= str_in_len)
240 {
241 log_error("Bug: i(%d) >= str_in_len(%d)\n", i, str_in_len);
242 break;
243 }
244 #endif
245
246 if (!lml_tag_disabled && new_line)
247 {
248 while (str_in[i] == ':' && str_in[i + 1] == ' ') // FB2000 quote leading str
249 {
250 fb_quote_level++;
251 lml_tag_quote_level++;
252 i += 2;
253 }
254
255 if (!quote_mode && lml_tag_quote_level > 0)
256 {
257 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
258 lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
259 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
260 }
261
262 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 new_line = 0;
272 i--; // redo at current i
273 continue;
274 }
275
276 if (lml_tag_disabled && new_line)
277 {
278 new_line = 0;
279 }
280
281 if (!quote_mode && !lml_tag_disabled && str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence
282 {
283 for (k = i + 2; isdigit((int)str_in[k]) || str_in[k] == ';' || str_in[k] == '?'; k++)
284 ;
285
286 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 else if (isalpha((int)str_in[k]))
291 {
292 // unsupported ANSI CSI command
293 }
294 else
295 {
296 k--;
297 }
298
299 i = k;
300 continue;
301 }
302
303 if (str_in[i] == '\n') // jump out of tag at end of line
304 {
305 if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
306 {
307 if (line_width + 1 > width)
308 {
309 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
310 new_line = 1;
311 line_width = 0;
312 i--; // redo at current i
313 continue;
314 }
315
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 }
322
323 if (!lml_tag_disabled && fb_quote_level > 0)
324 {
325 lml_tag_quote_level -= fb_quote_level;
326
327 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 }
332
333 if (new_line)
334 {
335 continue;
336 }
337
338 tag_start_pos = -1;
339 tag_name_pos = -1;
340 new_line = 1;
341 line_width = -1;
342 }
343 else if (str_in[i] == '\r' || str_in[i] == '\7')
344 {
345 continue; // Skip special characters
346 }
347 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
368 if (!lml_tag_disabled && str_in[i] == '[')
369 {
370 if (tag_start_pos != -1) // tag is not closed
371 {
372 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 }
387
388 tag_start_pos = i;
389 tag_name_pos = i + 1;
390 }
391 else if (!lml_tag_disabled && str_in[i] == ']' && tag_name_pos >= 0)
392 {
393 tag_end_pos = i;
394
395 // Skip space characters
396 while (str_in[tag_name_pos] == ' ')
397 {
398 tag_name_pos++;
399 }
400
401 for (tag_name_found = 0, k = 0; k < lml_tag_count; k++)
402 {
403 if (strncasecmp(lml_tag_def[k].tag_name, str_in + tag_name_pos, (size_t)lml_tag_name_len[k]) == 0)
404 {
405 tag_param_pos = -1;
406 switch (str_in[tag_name_pos + lml_tag_name_len[k]])
407 {
408 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 tag_output_len = 0;
425 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 {
439 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 }
449
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 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
460 break;
461 default: // tag_name not match
462 continue;
463 }
464 break;
465 }
466 }
467
468 if (!tag_name_found)
469 {
470 if (line_width + 1 > width)
471 {
472 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
473 new_line = 1;
474 line_width = 0;
475 i--; // redo at current i
476 continue;
477 }
478
479 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 }
485
486 tag_start_pos = -1;
487 tag_name_pos = -1;
488 }
489 else if (lml_tag_disabled || tag_name_pos == -1) // not in LML tag
490 {
491 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 i--; // redo at current i
497 continue;
498 }
499
500 tag_output_len = 1;
501 if (str_in[i] & 0x80) // head of multi-byte character
502 {
503 c = (str_in[i] & 0x70) << 1;
504 while (c & 0x80)
505 {
506 if (str_in[i + tag_output_len] == '\0')
507 {
508 break;
509 }
510 tag_output_len++;
511 c = (c & 0x7f) << 1;
512 }
513 }
514
515 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, tag_output_len, line_width);
516 i += (tag_output_len - 1);
517 }
518 else // in LML tag
519 {
520 // Do nothing
521 }
522 }
523
524 if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
525 {
526 tag_end_pos = i - 1;
527 tag_output_len = tag_end_pos - tag_start_pos + 1;
528 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
529 }
530
531 if (!quote_mode && !lml_tag_disabled && lml_tag_quote_level > 0)
532 {
533 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "\033[m");
534 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
535 }
536
537 str_out[j] = '\0';
538
539 clock_end = clock();
540 lml_total_exec_duration += (clock_end - clock_begin);
541
542 return j;
543 }

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