kc3-lang/kc3/libkc3/arg.c

• Show log

  Commit

• Hash : 1ae6ad0e
  Author : Thomas de Grivel
  Date : 2024-07-15T19:59:52
  

  rename c3 to kc3, fix update_source, configure, build

Download

• libkc3/arg.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"
  
  s_arg * arg_delete (s_arg *arg)
  {
    s_arg *next = NULL;
    if (arg) {
      next = arg->next;
      free(arg);
    }
    return next;
  }
  
  void arg_delete_all (s_arg *arg)
  {
    while (arg)
      arg = arg_delete(arg);
  }
  
  s_arg * arg_init (s_arg *arg)
  {
    assert(arg);
    *arg = (s_arg) {0};
    return arg;
  }
  
  uw arg_length (s_arg *arg)
  {
    uw length = 0;
    while (arg) {
      length++;
      arg = arg->next;
    }
    return length;
  }
  
  s_arg * arg_new (void)
  {
    s_arg *arg;
    arg = alloc(sizeof(s_arg));
    if (! arg)
      return NULL;
    if (! arg_init(arg)) {
      free(arg);
      return NULL;
    }
    return arg;
  }
  

Download