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

Contents of /lbbs/src/lml.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.46 - (show annotations)
Mon Nov 10 11:54:30 2025 UTC (4 months ago) by sysadm
Branch: MAIN
Changes since 1.45: +22 -0 lines
Content type: text/x-csrc
Convert \t to no more than TAB_SIZE spaces based on current line width

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

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