kc3-lang/kc3/libc3/module.c

• Show log

  Commit

• Hash : e3002863
  Author : Thomas de Grivel
  Date : 2023-02-02T23:21:47
  

  env

Download

• libc3/module.c

• /* c3
   * Copyright 2022,2023 kmx.io <contact@kmx.io>
   *
   * Permission is hereby granted to use this software excepted
   * on Apple computers 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 <assert.h>
  #include <string.h>
  #include "c3.h"
  
  s_module * module_load (s_module *module, const s_sym *name,
                          s_facts *facts)
  {
    return env_module_load(&g_c3_env, module, name, facts);
  }
  
  s_str * module_name_path (const s_str *prefix, const s_sym *name,
                            s_str *dest)
  {
    character b = -1;
    character c;
    s_buf in;
    s_buf out;
    sw out_size;
    sw r;
    assert(dest);
    assert(name);
    buf_init_str(&in, &name->str);
    out_size = module_name_path_size(prefix, name);
    buf_init_alloc(&out, out_size);
    if ((r = buf_write_str(&out, prefix)) < 0)
      goto error;
    if ((r = buf_write_s8(&out, '/')) < 0)
      goto error;
    while ((r = buf_read_character_utf8(&in, &c)) > 0) {
      if (c == '.')
        c = '/';
      else if (character_is_uppercase(c)) {
        if (character_is_lowercase(b)) {
          if ((r = buf_write_s8(&out, '_')) < 0)
            goto error;
        }
        c = character_to_lower(c);
      }
      if ((r = buf_write_character_utf8(&out, c)) < 0)
        goto error;
      b = c;
    }
    if ((r = buf_write_1(&out, FACTS_EXT)) < 0)
      goto error;
    buf_clean(&in);
    return buf_to_str(&out, dest);
   error:
    buf_clean(&in);
    buf_clean(&out);
    return NULL;
  }
  
  sw module_name_path_size (const s_str *prefix, const s_sym *name)
  {
    character b = 0;
    character c;
    s_buf in;
    sw r;
    sw result = 0;
    assert(prefix);
    assert(name);
    buf_init_str(&in, &name->str);
    result += prefix->size;
    result++;
    while ((r = buf_read_character_utf8(&in, &c)) > 0) {
      if (character_is_uppercase(c))
        if (character_is_lowercase(b))
          result += 1;
      result += character_utf8_size(c);
      b = c;
    }
    result += strlen(FACTS_EXT);
    buf_clean(&in);
    return result;
  }
  

Download