kc3-lang/kc3/markdown/markdown.c

Branch - branch -callablemasterconfigurefnfractionsfractions-rebaselinuxratio-rebasev0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.13v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : 30693e1d
  Author : Thomas de Grivel
  Date : 2024-09-09T15:04:00
  

  fix memleak in markdown titles

Download

• markdown/markdown.c

• /* 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 "md4c.h"
  #include "md4c-html.h"
  #include <libkc3/kc3.h>
  #include "markdown.h"
  
  s32 markdown_titles_enter_block (MD_BLOCKTYPE type, void *detail,
                                   void *data);
  s32 markdown_titles_leave_block (MD_BLOCKTYPE type, void *detail,
                                   void *data);
  s32 markdown_titles_enter_span (MD_SPANTYPE type, void *detail,
                                  void *data);
  s32 markdown_titles_leave_span (MD_SPANTYPE type, void *detail,
                                  void *data);
  s32 markdown_titles_text (MD_TEXTTYPE type, const MD_CHAR *text,
                            MD_SIZE size, void *data);
  void markdown_to_html_str_callback (const MD_CHAR *, MD_SIZE, void *);
  
  s_str * markdown_to_html_str (const s_str *markdown, s_str *dest)
  {
    s_list *list;
    s_list **l;
    s_str tmp;
    assert(markdown);
    assert(dest);
    list = NULL;
    l = &list;
    md_html(markdown->ptr.pchar, markdown->size,
            markdown_to_html_str_callback,
            &l, 0, 0);
    if (! str_init_concatenate_list(&tmp,
                                    (const s_list * const *) &list)) {
      list_delete_all(list);
      return NULL;
    }
    list_delete_all(list);
    *dest = tmp;
    return dest;
  }
  
  void markdown_to_html_str_callback (const MD_CHAR *p, MD_SIZE size,
                                      void *data)
  {
    s_list **l;
    l = *(s_list ***) data;
    if (! (*l = list_new_str_alloc_copy(size, p, NULL))) {
      err_puts("markdown_to_html_str_callback: list_new_str_cpy");
      assert(! "markdown_to_html_str_callback: list_new_str_cpy");
      return;
    }
    l = &(*l)->next.data.list;
    *(s_list ***) data = l;
  }
  
  s_list ** markdown_titles (const s_str *markdown, s_list **dest)
  {
    MD_PARSER parser = {0};
    s_tuple tuple;
    s_tag  *tuple_count;
    s_tag  *tuple_last;
    s_tag  *tuple_list;
    s_tag  *tuple_str;
    assert(markdown);
    assert(dest);
    tuple_init(&tuple, 9);
    tuple_last = tuple.tag;
    tuple_list = tuple.tag + 1;
    tuple_str = tuple.tag + 2;
    tuple_count = tuple.tag + 3;
    tag_init_u8(tuple_last, 0);
    tag_init_list(tuple_list, NULL);
    tag_init_str_empty(tuple_str);
    tag_init_u8(tuple_count, 0);
    tag_init_u8(tuple_count + 1, 0);
    tag_init_u8(tuple_count + 2, 0);
    tag_init_u8(tuple_count + 3, 0);
    tag_init_u8(tuple_count + 4, 0);
    tag_init_u8(tuple_count + 5, 0);
    parser.enter_block = markdown_titles_enter_block;
    parser.leave_block = markdown_titles_leave_block;
    parser.enter_span = markdown_titles_enter_span;
    parser.leave_span = markdown_titles_leave_span;
    parser.text = markdown_titles_text;
    md_parse(markdown->ptr.pchar, markdown->size,
             &parser, &tuple);
    *dest = tuple_list->data.list;
    tuple_list->data.list = NULL;
    tuple_clean(&tuple);
    return dest;
  }
  
  s32 markdown_titles_enter_block (MD_BLOCKTYPE type, void *detail,
                                   void *data)
  {
    s_tuple *tuple;
    s_tag   *tuple_str;
    (void) detail;
    assert(data);
    tuple = data;
    if (tuple->count != 9) {
      err_puts("markdown_titles_enter_block: invalid tuple");
      assert(! "markdown_titles_enter_block: invalid tuple");
      return -1;
    }
    tuple_str = tuple->tag + 2;
    if (type == MD_BLOCK_H)
      tag_void(tuple_str);
    return 0;
  }
  
  s32 markdown_titles_leave_block (MD_BLOCKTYPE type, void *detail,
                                   void *data)
  {
    MD_BLOCK_H_DETAIL *detail_h;
    u8 i;
    u8 level;
    s_list  *str_list;
    s_list **str_list_tail;
    const s_sym *sym_Str;
    s_tuple *tuple;
    s_tag   *tuple_count;
    s_tag   *tuple_count_level;
    s_tag   *tuple_last;
    s_tag   *tuple_list;
    s_list **tuple_list_tail;
    s_tag   *tuple_str;
    assert(data);
    sym_Str = &g_sym_Str;
    tuple = data;
    if (tuple->count != 9) {
      err_puts("markdown_titles_leave_block: invalid tuple");
      assert(! "markdown_titles_leave_block: invalid tuple");
      return -1;
    }
    tuple_last = tuple->tag;
    tuple_list = tuple->tag + 1;
    tuple_str = tuple->tag + 2;
    tuple_count = tuple->tag + 3;
    if (type == MD_BLOCK_H) {
      assert(detail);
      detail_h = detail;
      if (detail_h->level < 1 || detail_h->level > 6) {
        err_puts("markdown_titles_leave_block: invalid level");
        assert(! "markdown_titles_leave_block: invalid level");
        return -1;
      }
      level = detail_h->level - 1;
      tuple_count_level = tuple_count + level;
      if (tuple_count_level->type != TAG_U8) {
        err_puts("markdown_titles_leave_block: tuple_count_level"
                 " is not a U8");
        assert(!("markdown_titles_leave_block: tuple_count_level"
                 " is not a U8"));
        return -1;
      }
      tuple_count_level->data.u8++;
      if (tuple_last->type != TAG_U8) {
        err_puts("markdown_titles_leave_block: tuple_last is not a U8");
        assert(! "markdown_titles_leave_block: tuple_last is not a U8");
        return -1;
      }
      tuple_last->data.u8 = level;
      str_list = NULL;
      str_list_tail = &str_list;
      i = 0;
      while (i <= level) {
        *str_list_tail = list_new_str_cast(&sym_Str, tuple_count + i,
                                           NULL);
        str_list_tail = &(*str_list_tail)->next.data.list;
        *str_list_tail = list_new_str_1(NULL, ".", NULL);
        str_list_tail = &(*str_list_tail)->next.data.list;
        i++;
      }
      while (i < 6) {
        tag_init_u8(tuple_count + i, 0);
        i++;
      }
      *str_list_tail = list_new_str_1(NULL, " ", NULL);
      str_list_tail = &(*str_list_tail)->next.data.list;
      if (tuple_str->type != TAG_STR) {
        err_puts("markdown_titles_leave_block: tuple_str is not a Str");
        assert(! "markdown_titles_leave_block: tuple_str is not a Str");
        return -1;
      }
      *str_list_tail = list_new_str_copy(&tuple_str->data.str, NULL);
      str_list_tail = &(*str_list_tail)->next.data.list;
      tuple_list_tail = list_tail(&tuple_list->data.list);
      *tuple_list_tail = list_new(NULL);
      if (! tag_init_str_concatenate_list(&(*tuple_list_tail)->tag,
                                          (const s_list * const *)
                                          &str_list))
        return -1;
      list_delete_all(str_list);
      if (tuple_list->type != TAG_LIST) {
        err_puts("markdown_titles_leave_block: tuple_list is not a List");
        assert(! "markdown_titles_leave_block: tuple_list is not a List");
        return -1;
      }
      tag_void(tuple_str);
    }
    return 0;
  }
  
  s32 markdown_titles_enter_span (MD_SPANTYPE type, void *detail,
                                  void *data)
  {
    (void) type;
    (void) detail;
    (void) data;
    return 0;
  }
  
  s32 markdown_titles_leave_span (MD_SPANTYPE type, void *detail,
                                  void *data)
  {
    (void) type;
    (void) detail;
    (void) data;
    return 0;
  }
  
  s32 markdown_titles_text (MD_TEXTTYPE type, const MD_CHAR *text,
                            MD_SIZE size, void *data)
  {
    s_tuple *tuple;
    s_tag   *tuple_str;
    (void) type;
    tuple = data;
    if (tuple->count != 9) {
      err_puts("markdown_titles_text: invalid tuple");
      assert(! "markdown_titles_text: invalid tuple");
      return -1;
    }
    tuple_str = tuple->tag + 2;
    if (tuple_str->type == TAG_VOID)
      if (! tag_init_str_alloc_copy(tuple_str, size, text))
        return -1;
    return 0;
  }
  

Download