kc3-lang/kc3/libkc3/fn_clause.c

• Show log

  Commit

• Hash : 96b055e1
  Author : Thomas de Grivel
  Date : 2024-11-14T16:27:55
  

  wip const and s_callable

Download

• libkc3/fn_clause.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 "alloc.h"
  #include "assert.h"
  #include "arg.h"
  #include "binding.h"
  #include "block.h"
  #include "fn_clause.h"
  #include "list.h"
  
  void fn_clause_clean (s_fn_clause *fn_clause)
  {
    assert(fn_clause);
    list_delete_all(fn_clause->pattern);
    block_clean(&fn_clause->algo);
  }
  
  s_fn_clause * fn_clause_delete (s_fn_clause *fn_clause)
  {
    s_fn_clause *next_clause;
    assert(fn_clause);
    next_clause = fn_clause->next_clause;
    fn_clause_clean(fn_clause);
    free(fn_clause);
    return next_clause;
  }
  
  void fn_clause_delete_all (s_fn_clause *fn_clause)
  {
    while (fn_clause)
      fn_clause = fn_clause_delete(fn_clause);
  }
  
  s_fn_clause * fn_clause_init (s_fn_clause *fn_clause, s_fn_clause *next_clause)
  {
    s_fn_clause tmp = {0};
    assert(fn_clause);
    tmp.next_clause = next_clause;
    *fn_clause = tmp;
    return fn_clause;
  }
  
  s_fn_clause * fn_clause_new (s_fn_clause *next_clause)
  {
    s_fn_clause *fn_clause;
    fn_clause = alloc(sizeof(s_fn_clause));
    if (! fn_clause)
      return NULL;
    return fn_clause_init(fn_clause, next_clause);
  }
  
  s_fn_clause * fn_clause_new_copy (s_fn_clause *src)
  {
    s_fn_clause *tmp = NULL;
    s_fn_clause **tail = NULL;
    tail = &tmp;
    while (src) {
      *tail = fn_clause_new(NULL);
      (*tail)->arity = src->arity;
      (*tail)->pattern = list_new_copy(src->pattern);
      block_init_copy(&(*tail)->algo, &src->algo);
      tail = &(*tail)->next_clause;
      src = src->next_clause;
    }
    return tmp;
  }
  

Download