/* kc3
* Copyright 2022,2023,2024 kmx.io <contact@kmx.io>
*
* Permission is hereby granted to use this software granted the above
* copyright notice and this permission paragraph are included in all
* copies and substantial portions of this software.
*
* THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
* PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
* AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
* THIS SOFTWARE.
*/
#include <libkc3/kc3.h>
#include "html.h"
s_str * html_escape (const s_str *str, s_str *dest)
{
s_buf buf;
character c;
const s_list *e;
const s_list *escape;
s_ident escape_ident;
s_tag escape_tag;
s_tag *replace;
s_tag *reserved;
s_str s;
s_tag tag;
assert(str);
assert(dest);
ident_init(&escape_ident, sym_1("EKC3"), sym_1("html_escape"));
if (! ident_get(&escape_ident, &escape_tag)) {
err_puts("html_escape: ident_get");
assert(! "html_escape: ident_get");
return NULL;
}
if (! tag_is_alist(&escape_tag)) {
tag_clean(&escape_tag);
err_puts("html_escape: EKC3.html_escape is not an associative"
" List");
assert(!("html_escape: EKC3.html_escape is not an associative"
" List"));
return NULL;
}
escape = escape_tag.data.list;
if (! buf_init_alloc(&buf, str->size * 8)) {
tag_clean(&escape_tag);
return NULL;
}
tag.type = TAG_STR;
tag.data.str = (s_str) {0};
s = *str;
while (str_read_character_utf8(&s, &c) > 0) {
if (! str_init_character(&tag.data.str, c))
goto ko;
replace = NULL;
e = escape;
while (e) {
reserved = e->tag.data.tuple.tag;
if (reserved->type != TAG_STR) {
err_puts("html_escape: EKC3.html_escape: reserved that is"
" not a Str");
assert(!("html_escape: EKC3.html_escape: reserved that is"
" not a Str"));
str_clean(&tag.data.str);
goto ko;
}
if (! compare_tag(reserved, &tag)) {
replace = e->tag.data.tuple.tag + 1;
if (replace->type != TAG_STR) {
err_puts("html_escape: EKC3.html_escape: replacement that is"
" not a Str");
assert(!("html_escape: EKC3.html_escape: replacement that is"
" not a Str"));
str_clean(&tag.data.str);
goto ko;
}
break;
}
e = list_next(e);
}
str_clean(&tag.data.str);
if (replace) {
if (buf_write_str(&buf, &replace->data.str) <= 0) {
err_puts("html_escape: buf_write_str");
assert(! "html_escape: buf_write_str");
goto ko;
}
}
else {
if (buf_write_character_utf8(&buf, c) <= 0) {
err_puts("html_escape: buf_write_character_utf8");
assert(! "html_escape: buf_write_character_utf8");
goto ko;
}
}
}
tag_clean(&escape_tag);
s = (s_str) {0};
if (! buf_read_to_str(&buf, &s)) {
buf_clean(&buf);
return NULL;
}
buf_clean(&buf);
*dest = s;
return dest;
ko:
tag_clean(&escape_tag);
buf_clean(&buf);
return NULL;
}
