kmx.io/kmxgit/c_src/enif.c

• Show log

  Commit

• Hash : 4d8f6ed5
  Author : Thomas de Grivel
  Date : 2022-11-02T18:24:08
  

  licence

Download

• c_src/enif.c

• /* kmxgit
   * Copyright 2022 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 <stdlib.h>
  #include <string.h>
  #include "enif.h"
  
  ERL_NIF_TERM enif_string_to_term (ErlNifEnv *env,
                                    const char *str)
  {
    size_t len = strlen(str);
    return enif_string_to_term_len(env, str, len);
  }
  
  ERL_NIF_TERM enif_string_to_term_len (ErlNifEnv *env,
                                        const char *str, size_t len)
  {
    ErlNifBinary bin;
    enif_alloc_binary(len, &bin);
    memcpy(bin.data, str, len);
    return enif_make_binary(env, &bin);
  }
  
  char * enif_term_to_string (ErlNifEnv *env,
                              const ERL_NIF_TERM term)
  {
    ErlNifBinary bin;
    unsigned len;
    char *str;
    switch (enif_term_type(env, term)) {
    case ERL_NIF_TERM_TYPE_BITSTRING:
      enif_inspect_binary(env, term, &bin);
      len = bin.size;
      str = malloc(len + 1);
      memcpy(str, bin.data, len);
      str[len] = 0;
      return str;
    case ERL_NIF_TERM_TYPE_LIST:
      enif_get_list_length(env, term, &len);
      str = malloc(len + 1);
      enif_get_string(env, term, str, len + 1, ERL_NIF_LATIN1);
      return str;
    default:
      return NULL;
    }
  }
  

Download