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

Contents of /lbbs/src/lml.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.38 - (show annotations)
Fri Oct 31 04:35:58 2025 UTC (4 months, 2 weeks ago) by sysadm
Branch: MAIN
Changes since 1.37: +28 -2 lines
Content type: text/x-csrc
Fix bug in auto-warp of over-width lines

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 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);
30
31 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)
32 {
33 if (strcasecmp(tag_name, "color") == 0)
34 {
35 if (strcasecmp(tag_param_buf, "red") == 0)
36 {
37 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;31m");
38 }
39 else if (strcasecmp(tag_param_buf, "green") == 0)
40 {
41 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;32m");
42 }
43 else if (strcasecmp(tag_param_buf, "yellow") == 0)
44 {
45 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;33m");
46 }
47 else if (strcasecmp(tag_param_buf, "blue") == 0)
48 {
49 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;34m");
50 }
51 else if (strcasecmp(tag_param_buf, "magenta") == 0)
52 {
53 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;35m");
54 }
55 else if (strcasecmp(tag_param_buf, "cyan") == 0)
56 {
57 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;36m");
58 }
59 else if (strcasecmp(tag_param_buf, "black") == 0)
60 {
61 return snprintf(tag_output_buf, tag_output_buf_len, "\033[1;30;47m");
62 }
63 }
64 return 0;
65 }
66
67 #define LML_TAG_QUOTE_MAX_LEVEL 10
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 #define LML_TAG_COUNT (sizeof(lml_tag_def) / sizeof(LML_TAG_DEF))
164
165 static int lml_tag_name_len[LML_TAG_COUNT];
166 static int lml_ready = 0;
167
168 inline static void lml_init(void)
169 {
170 int i;
171
172 if (!lml_ready)
173 {
174 for (i = 0; i < LML_TAG_COUNT; i++)
175 {
176 lml_tag_name_len[i] = (int)strlen(lml_tag_def[i].tag_name);
177 }
178
179 lml_ready = 1;
180 }
181 }
182
183 #define CHECK_AND_APPEND_OUTPUT(out_buf, out_buf_len, out_buf_offset, tag_out, tag_out_len, line_width) \
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 char c;
200 char tag_param_buf[LML_TAG_PARAM_BUF_LEN];
201 char tag_output_buf[LML_TAG_OUTPUT_BUF_LEN];
202 int i;
203 int j = 0;
204 int k;
205 int tag_start_pos = -1;
206 int tag_name_pos = -1;
207 int tag_end_pos = -1;
208 int tag_param_pos = -1;
209 int tag_output_len;
210 int new_line = 1;
211 int fb_quote_level = 0;
212 int tag_name_found;
213 int line_width = 0;
214
215 lml_init();
216
217 lml_tag_disabled = 0;
218 lml_tag_quote_level = 0;
219
220 if (width <= 0)
221 {
222 width = INT_MAX;
223 }
224
225 for (i = 0; str_in[i] != '\0'; i++)
226 {
227 if (!lml_tag_disabled && new_line)
228 {
229 while (str_in[i] == ':' && str_in[i + 1] == ' ') // FB2000 quote leading str
230 {
231 fb_quote_level++;
232 lml_tag_quote_level++;
233 i += 2;
234 }
235
236 if (!quote_mode && lml_tag_quote_level > 0)
237 {
238 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "%s",
239 lml_tag_quote_color[lml_tag_quote_level % LML_TAG_QUOTE_LEVEL_LOOP]);
240 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
241 }
242
243 for (k = 0; k < fb_quote_level; k++)
244 {
245 tag_output_buf[k * 2] = ':';
246 tag_output_buf[k * 2 + 1] = ' ';
247 }
248 tag_output_buf[fb_quote_level * 2] = '\0';
249 tag_output_len = fb_quote_level * 2;
250 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
251
252 new_line = 0;
253 }
254
255 if (str_in[i] == '\033' && str_in[i + 1] == '[') // Escape sequence
256 {
257 for (k = i + 2; isdigit(str_in[k]) || str_in[k] == ';' || str_in[k] == '?'; k++)
258 ;
259
260 if (str_in[k] == 'm') // valid -- copy directly
261 {
262 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, k - i + 1, line_width);
263 }
264 else if (isalpha(str_in[k]))
265 {
266 // unsupported ANSI CSI command
267 }
268 else
269 {
270 k--;
271 }
272
273 i = k;
274 continue;
275 }
276
277 if (str_in[i] == '\n') // jump out of tag at end of line
278 {
279 if (tag_start_pos != -1) // tag is not closed
280 {
281 tag_end_pos = i - 1;
282 tag_output_len = tag_end_pos - tag_start_pos + 1;
283
284 if (line_width + tag_output_len > width)
285 {
286 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
287 new_line = 1;
288 line_width = 0;
289 i--; // redo at current $i
290 }
291 else
292 {
293 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
294 }
295 }
296
297 if (fb_quote_level > 0)
298 {
299 lml_tag_quote_level -= fb_quote_level;
300
301 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, (quote_mode ? "" : "\033[m"));
302 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
303
304 fb_quote_level = 0;
305 }
306
307 if (new_line)
308 {
309 continue;
310 }
311
312 tag_start_pos = -1;
313 tag_name_pos = -1;
314 new_line = 1;
315 line_width = -1;
316 }
317 else if (str_in[i] == '\r' || str_in[i] == '\7')
318 {
319 continue; // Skip special characters
320 }
321
322 if (!lml_tag_disabled && str_in[i] == '[')
323 {
324 if (tag_start_pos != -1) // tag is not closed
325 {
326 tag_end_pos = i - 1;
327 tag_output_len = tag_end_pos - tag_start_pos + 1;
328 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
329 }
330
331 tag_start_pos = i;
332 tag_name_pos = i + 1;
333 }
334 else if (!lml_tag_disabled && str_in[i] == ']' && tag_name_pos >= 0)
335 {
336 tag_end_pos = i;
337
338 // Skip space characters
339 while (str_in[tag_name_pos] == ' ')
340 {
341 tag_name_pos++;
342 }
343
344 for (tag_name_found = 0, k = 0; k < LML_TAG_COUNT; k++)
345 {
346 if (strncasecmp(lml_tag_def[k].tag_name, str_in + tag_name_pos, (size_t)lml_tag_name_len[k]) == 0)
347 {
348 tag_param_pos = -1;
349 switch (str_in[tag_name_pos + lml_tag_name_len[k]])
350 {
351 case ' ':
352 tag_name_found = 1;
353 tag_param_pos = tag_name_pos + lml_tag_name_len[k] + 1;
354 while (str_in[tag_param_pos] == ' ')
355 {
356 tag_param_pos++;
357 }
358 strncpy(tag_param_buf, str_in + tag_param_pos, (size_t)MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN));
359 tag_param_buf[MIN(tag_end_pos - tag_param_pos, LML_TAG_PARAM_BUF_LEN)] = '\0';
360 case ']':
361 tag_name_found = 1;
362 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
363 {
364 strncpy(tag_param_buf, lml_tag_def[k].default_param, LML_TAG_PARAM_BUF_LEN - 1);
365 tag_param_buf[LML_TAG_PARAM_BUF_LEN - 1] = '\0';
366 }
367 tag_output_len = 0;
368 if (!quote_mode)
369 {
370 if (lml_tag_def[k].tag_output != NULL)
371 {
372 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].tag_output, tag_param_buf);
373 }
374 else if (lml_tag_def[k].tag_filter_cb != NULL)
375 {
376 tag_output_len = lml_tag_def[k].tag_filter_cb(
377 lml_tag_def[k].tag_name, tag_param_buf, tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, 0);
378 }
379 }
380 else // if (quote_mode)
381 {
382 if (lml_tag_def[k].quote_mode_output != NULL)
383 {
384 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, lml_tag_def[k].quote_mode_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, 1);
390 }
391 }
392 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
393 break;
394 default: // tag_name not match
395 continue;
396 }
397 break;
398 }
399 }
400
401 if (!tag_name_found)
402 {
403 tag_output_len = tag_end_pos - tag_start_pos + 1;
404
405 if (line_width + tag_output_len > width)
406 {
407 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
408 new_line = 1;
409 line_width = 0;
410 i--; // redo at current $i
411 continue;
412 }
413
414 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
415 }
416
417 tag_start_pos = -1;
418 tag_name_pos = -1;
419 }
420 else if (lml_tag_disabled || tag_name_pos == -1) // not in LML tag
421 {
422 if (line_width + (str_in[i] & 0x80 ? 2 : 1) > width)
423 {
424 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, "\n", 1, line_width);
425 new_line = 1;
426 line_width = 0;
427 i--; // redo at current $i
428 continue;
429 }
430
431 tag_output_len = 1;
432 if (str_in[i] & 0x80) // head of multi-byte character
433 {
434 c = (str_in[i] & 0x70) << 1;
435 while (c & 0x80)
436 {
437 if (str_in[i + tag_output_len] == '\0')
438 {
439 break;
440 }
441 tag_output_len++;
442 c = (c & 0x7f) << 1;
443 }
444 }
445
446 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + i, tag_output_len, line_width);
447 i += (tag_output_len - 1);
448 }
449 else // in LML tag
450 {
451 // Do nothing
452 }
453 }
454
455 if (tag_start_pos != -1) // tag is not closed
456 {
457 tag_end_pos = i - 1;
458 tag_output_len = tag_end_pos - tag_start_pos + 1;
459 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, str_in + tag_start_pos, tag_output_len, line_width);
460 }
461
462 if (!quote_mode && !lml_tag_disabled && lml_tag_quote_level > 0)
463 {
464 tag_output_len = snprintf(tag_output_buf, LML_TAG_OUTPUT_BUF_LEN, "\033[m");
465 CHECK_AND_APPEND_OUTPUT(str_out, buf_len, j, tag_output_buf, tag_output_len, line_width);
466 }
467
468 str_out[j] = '\0';
469
470 return j;
471 }

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