Hash :
3d8d7728
Author :
Thomas de Grivel
Date :
2023-03-23T17:19:58
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
/* c3
* Copyright 2022,2023 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 <string.h>
#include "buf.h"
#include "buf_inspect.h"
#include "buf_parse.h"
#include "call.h"
#include "ident.h"
#include "list.h"
void call_clean (s_call *call)
{
assert(call);
list_delete_all(call->arguments);
}
s_call * call_copy (const s_call *src, s_call *dest)
{
assert(src);
assert(dest);
ident_copy(&src->ident, &dest->ident);
list_copy(src->arguments, &dest->arguments);
dest->cfn = src->cfn;
dest->fn = src->fn;
return dest;
}
s_call * call_init (s_call *call)
{
assert(call);
bzero(call, sizeof(s_call));
return call;
}
s_call * call_init_1 (s_call *call, const s8 *p)
{
s_buf buf;
buf_init_1(&buf, p);
if (buf_parse_call(&buf, call) != (sw) strlen(p))
errx(1, "invalid call: %s", p);
buf_clean(&buf);
return call;
}
s_call * call_init_op (s_call *call)
{
assert(call);
bzero(call, sizeof(s_call));
call->arguments = list_new(list_new(NULL));
return call;
}
s_str * call_inspect (const s_call *call, s_str *dest)
{
sw size;
s_buf tmp;
size = buf_inspect_call_size(call);
if (size < 0) {
assert(! "error");
return NULL;
}
buf_init_alloc(&tmp, size);
buf_inspect_call(&tmp, call);
assert(tmp.wpos == tmp.size);
return buf_to_str(&tmp, dest);
}