kmx git

/* 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 "assert.h"
#include "complex.h"
#include "pcomplex.h"

void pcomplex_clean (s_complex **p)
{
  assert(p);
  complex_delete(*p);
}

s_complex ** pcomplex_init (s_complex **p)
{
  s_complex *tmp = NULL;
  assert(p);
  tmp = complex_new();
  if (! tmp)
    return NULL;
  *p = tmp;
  return p;
}

s_complex ** pcomplex_init_cast (s_complex **p,
                                 const s_sym * const *type,
                                 const s_tag *src)
{
  s_complex *tmp = NULL;
  assert(p);
  assert(type);
  assert(src);
  tmp = complex_new_cast(type, src);
  if (! tmp)
    return NULL;
  *p = tmp;
  return p;
}

s_complex ** pcomplex_init_copy (s_complex **p,
				 const s_complex * const *src)
{
  s_complex *tmp = NULL;
  assert(p);
  assert(src);
  tmp = complex_new_copy(*src);
  if (! tmp)
    return NULL;
  *p = tmp;
  return p;
}
kc3-lang/kc3/libkc3/pcomplex.c

Commit

libkc3/pcomplex.c
