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

Contents of /lbbs/src/lml.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.41 - (show annotations)
Sat Nov 1 07:00:27 2025 UTC (4 months, 2 weeks ago) by sysadm
Branch: MAIN
Changes since 1.40: +14 -4 lines
Content type: text/x-csrc
Fix inconsistent behavior between web / telnet version of LML()
Add time cost benchmark in test_lml

1 /***************************************************************************
2 lml.h - description
3 -------------------
4 Copyright : (C) 2004-2025 by Leaflet
5 Email : leaflet@leafok.com
6 ***************************************************************************/
7
8 /***************************************************************************
9 * *
10 * This program is free software; you can redistribute it and/or modify *
11 * it under the terms of the GNU General Public License as published by *
12 * the Free Software Foundation; either version 3 of the License, or *
13 * (at your option) any later version. *
14 * *
15 ***************************************************************************/
16
17 #include "common.h"
18 #include "lml.h"
19 #include "log.h"
20 #include "str_process.h"
21 #include <ctype.h>
22 #include <stdio.h>
23 #include <string.h>
24 #include <sys/param.h>
25
26 #define LML_TAG_PARAM_BUF_LEN 256
27 #define LML_TAG_OUTPUT_BUF_LEN 1024
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 #define LML_TAG_QUOTE_MAX_LEVEL 10
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 #define LML_TAG_COUNT (sizeof(lml_tag_def) / sizeof(LML_TAG_DEF))
166
167 static int lml_tag_name_len[LML_TAG_COUNT];
168 static int lml_ready = 0;
169
170 inline static void lml_init(void)
171 {
172 int i;
173
174 if (!lml_ready)
175 {
176 for (i = 0; i < LML_TAG_COUNT; i++)
177 {
178 lml_tag_name_len[i] = (int)strlen(lml_tag_def[i].tag_name);
179 }
180
181 lml_ready = 1;
182 }
183 }
184
185 #define CHECK_AND_APPEND_OUTPUT(out_buf, out_buf_len, out_buf_offset, tag_out, tag_out_len, line_width) \
186 { \
187 if ((out_buf_offset) + (tag_out_len) >= (out_buf_len)) \
188 { \
189 log_error("Buffer is not longer enough for output string %d >= %d\n", (out_buf_offset) + (tag_out_len), (out_buf_len)); \
190 out_buf[out_buf_offset] = '\0'; \
191 return (out_buf_offset); \
192 } \
193 memcpy((out_buf) + (out_buf_offset), (tag_out), (size_t)(tag_out_len)); \
194 *((out_buf) + (out_buf_offset) + (size_t)(tag_out_len)) = '\0'; \
195 (line_width) += str_length((out_buf) + (out_buf_offset), 1); \
196 (out_buf_offset) += (tag_out_len); \
197 }
198
199 int lml_render(const char *str_in, char *str_out, int buf_len, int width, int quote_mode)
200 {
201 clock_t clock_begin;
202 clock_t clock_end;
203
204 char c;
205 char tag_param_buf[LML_TAG_PARAM_BUF_LEN];
206 char tag_output_buf[LML_TAG_OUTPUT_BUF_LEN];
207 int i;
208 int j = 0;
209 int k;
210 int tag_start_pos = -1;
211 int tag_name_pos = -1;
212 int tag_end_pos = -1;
213 int tag_param_pos = -1;
214 int tag_output_len;
215 int new_line = 1;
216 int fb_quote_level = 0;
217 int tag_name_found;
218 int line_width = 0;
219
220 clock_begin = clock();
221
222 lml_init();
223
224 lml_tag_disabled = 0;
225 lml_tag_quote_level = 0;
226
227 if (width <= 0)
228 {
229 width = INT_MAX;
230 }
231
232 for (i = 0; str_in[i] != '\0'; i++)
233 {
234 if (!lml_tag_disabled && new_line)
235 {
236 while (str_in[i] == ':' && str_in[i + 1] == ' ') // FB2000 quote leading str
237 {
238 fb_quote_level++;
239 lml_tag_quote_level++;
240 i += 2;
241 }
242
243 if (!quote_mode && lml_tag_quote_level > 0)
244 {
245 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
246 lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
247 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
248 }
249
250 for (k = 0; k < fb_quote_level; k++)
251 {
252 tag_output_buf[k * 2] = ':';
253 tag_output_buf[k * 2 + 1] = ' ';
254 }
255 tag_output_buf[fb_quote_level * 2] = '\0';
256 tag_output_len = fb_quote_level * 2;
257 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
258
259 new_line = 0;
260 }
261
262 if (lml_tag_disabled && new_line)
263 {
264 new_line = 0;
265 }
266
267 if (!quote_mode && !lml_tag_disabled && str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence
268 {
269 for (k = i + 2; isdigit(str_in[k]) || str_in[k] == ';' || str_in[k] == '?'; k++)
270 ;
271
272 if (str_in[k] == 'm') // valid -- copy directly
273 {
274 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, k - i + 1, line_width);
275 }
276 else if (isalpha(str_in[k]))
277 {
278 // unsupported ANSI CSI command
279 }
280 else
281 {
282 k--;
283 }
284
285 i = k;
286 continue;
287 }
288
289 if (str_in[i] == '\n') // jump out of tag at end of line
290 {
291 if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
292 {
293 tag_end_pos = i - 1;
294 tag_output_len = tag_end_pos - tag_start_pos + 1;
295
296 if (line_width + tag_output_len > width)
297 {
298 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
299 new_line = 1;
300 line_width = 0;
301 i--; // redo at current i
302 }
303 else
304 {
305 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
306 }
307 }
308
309 if (!lml_tag_disabled && fb_quote_level > 0)
310 {
311 lml_tag_quote_level -= fb_quote_level;
312
313 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, (quote_mode ? "" : "\033[m"));
314 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
315
316 fb_quote_level = 0;
317 }
318
319 if (new_line)
320 {
321 continue;
322 }
323
324 tag_start_pos = -1;
325 tag_name_pos = -1;
326 new_line = 1;
327 line_width = -1;
328 }
329 else if (str_in[i] == '\r' || str_in[i] == '\7')
330 {
331 continue; // Skip special characters
332 }
333
334 if (!lml_tag_disabled && str_in[i] == '[')
335 {
336 if (tag_start_pos != -1) // tag is not closed
337 {
338 tag_end_pos = i - 1;
339 tag_output_len = tag_end_pos - tag_start_pos + 1;
340 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
341 }
342
343 tag_start_pos = i;
344 tag_name_pos = i + 1;
345 }
346 else if (!lml_tag_disabled && str_in[i] == ']' && tag_name_pos >= 0)
347 {
348 tag_end_pos = i;
349
350 // Skip space characters
351 while (str_in[tag_name_pos] == ' ')
352 {
353 tag_name_pos++;
354 }
355
356 for (tag_name_found = 0, k = 0; k < LML_TAG_COUNT; k++)
357 {
358 if (strncasecmp(lml_tag_def[k].tag_name, str_in + tag_name_pos, (size_t)lml_tag_name_len[k]) == 0)
359 {
360 tag_param_pos = -1;
361 switch (str_in[tag_name_pos + lml_tag_name_len[k]])
362 {
363 case ' ':
364 tag_name_found = 1;
365 tag_param_pos = tag_name_pos + lml_tag_name_len[k] + 1;
366 while (str_in[tag_param_pos] == ' ')
367 {
368 tag_param_pos++;
369 }
370 strncpy(tag_param_buf, str_in + tag_param_pos, (size_t)MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN));
371 tag_param_buf[MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN)] = '\0';
372 case ']':
373 tag_name_found = 1;
374 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
375 {
376 strncpy(tag_param_buf, lml_tag_def[k].default_param, LML_TAG_PARAM_BUF_LEN - 1);
377 tag_param_buf[LML_TAG_PARAM_BUF_LEN - 1] = '\0';
378 }
379 tag_output_len = 0;
380 if (!quote_mode)
381 {
382 if (lml_tag_def[k].tag_output != NULL)
383 {
384 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].tag_output, tag_param_buf);
385 }
386 else if (lml_tag_def[k].tag_filter_cb != NULL)
387 {
388 tag_output_len = lml_tag_def[k].tag_filter_cb(
389 lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 0);
390 }
391 }
392 else // if (quote_mode)
393 {
394 if (lml_tag_def[k].quote_mode_output != NULL)
395 {
396 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].quote_mode_output, tag_param_buf);
397 }
398 else if (lml_tag_def[k].tag_filter_cb != NULL)
399 {
400 tag_output_len = lml_tag_def[k].tag_filter_cb(
401 lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 1);
402 }
403 }
404 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
405 break;
406 default: // tag_name not match
407 continue;
408 }
409 break;
410 }
411 }
412
413 if (!tag_name_found)
414 {
415 if (line_width + 1 > width)
416 {
417 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
418 new_line = 1;
419 line_width = 0;
420 i--; // redo at current i
421 continue;
422 }
423
424 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "[", 1, line_width);
425 i = tag_start_pos; // restart from tag_start_pos + 1
426 tag_start_pos = -1;
427 tag_name_pos = -1;
428 continue;
429 }
430
431 tag_start_pos = -1;
432 tag_name_pos = -1;
433 }
434 else if (lml_tag_disabled || tag_name_pos == -1) // not in LML tag
435 {
436 if (line_width + (str_in[i] & 0x80 ? 2 : 1) > width)
437 {
438 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
439 new_line = 1;
440 line_width = 0;
441 i--; // redo at current i
442 continue;
443 }
444
445 tag_output_len = 1;
446 if (str_in[i] & 0x80) // head of multi-byte character
447 {
448 c = (str_in[i] & 0x70) << 1;
449 while (c & 0x80)
450 {
451 if (str_in[i + tag_output_len] == '\0')
452 {
453 break;
454 }
455 tag_output_len++;
456 c = (c & 0x7f) << 1;
457 }
458 }
459
460 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, tag_output_len, line_width);
461 i += (tag_output_len - 1);
462 }
463 else // in LML tag
464 {
465 // Do nothing
466 }
467 }
468
469 if (!lml_tag_disabled && tag_start_pos != -1) // tag is not closed
470 {
471 tag_end_pos = i - 1;
472 tag_output_len = tag_end_pos - tag_start_pos + 1;
473 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
474 }
475
476 if (!quote_mode && !lml_tag_disabled && lml_tag_quote_level > 0)
477 {
478 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "\033[m");
479 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
480 }
481
482 str_out[j] = '\0';
483
484 clock_end = clock();
485 lml_total_exec_duration += (clock_end - clock_begin);
486
487 return j;
488 }

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