kc3-lang/kc3/libkc3/marshall.h

• Show log

  Commit

• Hash : cac787da
  Author : Perle
  Date : 2025-08-22T15:49:40
  

  feat: added headers for pointer.h
  

Download

• libkc3/marshall.h

• /* kc3
   * Copyright from 2022 to 2025 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.
   */
  
  #ifndef LIBKC3_MARSHALL_H
  #define LIBKC3_MARSHALL_H
  
  #include "types.h"
  
  #define MARSHALL_MAGIC ((u64) 0x485352414d33434b)
  
  #define PROTO_MARSHALL(name, type)                                    \
    s_marshall * marshall_ ## name (s_marshall *m, bool heap, type src)
  
  /* Stack-allocation compatible functions, call marshall_clean
     after use. */
  void         marshall_clean (s_marshall *m);
  s_marshall * marshall_init (s_marshall *m);
  
  /* Heap-allocation functions, call marshall_delete after use. */
  void         marshall_delete (s_marshall *m);
  s_marshall * marshall_new (void);
  
  /* Observers. */
  sw marshall_size (const s_marshall *m);
  
  /* Operators. */
  PROTO_MARSHALL(1, const char *);
  PROTO_MARSHALL(array, const s_array *);
  PROTO_MARSHALL(bool, bool);
  PROTO_MARSHALL(call, const s_call *);
  PROTO_MARSHALL(callable, const s_callable *);
  PROTO_MARSHALL(cfn, const s_cfn *);
  PROTO_MARSHALL(character, character);
  PROTO_MARSHALL(cow, const s_cow *);
  PROTO_MARSHALL(complex, const s_complex *);
  s_marshall * marshall_data (s_marshall *m, bool heap, p_sym type,
                              void *data);
  PROTO_MARSHALL(do_block, const s_do_block *);
  PROTO_MARSHALL(env, const s_env *);
  PROTO_MARSHALL(f32, f32);
  PROTO_MARSHALL(f64, f64);
  PROTO_MARSHALL(f128, f128);
  PROTO_MARSHALL(fact, const s_fact *);
  PROTO_MARSHALL(facts, s_facts *);
  PROTO_MARSHALL(fn, const s_fn *);
  s_marshall * marshall_heap_pointer (s_marshall *m, bool heap,
                                      const void *p, bool *present);
  PROTO_MARSHALL(list, const s_list *);
  PROTO_MARSHALL(ident, const s_ident *);
  PROTO_MARSHALL(integer, const s_integer *);
  PROTO_MARSHALL(frame, const s_frame *);
  PROTO_MARSHALL(map, const s_map *);
  s_marshall * marshall_offset (s_marshall *m, bool heap, u64 src);
  PROTO_MARSHALL(op, const s_op *);
  PROTO_MARSHALL(ops, s_ops *);
  PROTO_MARSHALL(pcallable, const p_callable *);
  PROTO_MARSHALL(pcow, const p_cow *);
  PROTO_MARSHALL(pfacts, const p_facts *);
  PROTO_MARSHALL(pframe, const p_frame *);
  PROTO_MARSHALL(plist, const p_list *);
  PROTO_MARSHALL(pointer, const s_pointer *);
  PROTO_MARSHALL(pstruct, const p_struct *);
  PROTO_MARSHALL(pstruct_type, const p_struct_type *);
  PROTO_MARSHALL(ptag, const p_tag *);
  PROTO_MARSHALL(ptr, u_ptr_w);
  PROTO_MARSHALL(ptr_free, u_ptr_w);
  PROTO_MARSHALL(psym, const p_sym *);
  PROTO_MARSHALL(pvar, const p_var *);
  PROTO_MARSHALL(quote, const s_quote *);
  PROTO_MARSHALL(ratio, const s_ratio *);
  PROTO_MARSHALL(s8, s8);
  PROTO_MARSHALL(s16, s16);
  PROTO_MARSHALL(s32, s32);
  PROTO_MARSHALL(s64, s64);
  PROTO_MARSHALL(struct, const s_struct *);
  PROTO_MARSHALL(struct_type, const s_struct_type *);
  PROTO_MARSHALL(sym, const s_sym *);
  PROTO_MARSHALL(str, const s_str *);
  PROTO_MARSHALL(sw, sw);
  PROTO_MARSHALL(tag, const s_tag *);
  PROTO_MARSHALL(tuple, const s_tuple *);
  PROTO_MARSHALL(time, const s_time *);
  PROTO_MARSHALL(u8, u8);
  PROTO_MARSHALL(u16, u16);
  PROTO_MARSHALL(u32, u32);
  PROTO_MARSHALL(u64, u64);
  PROTO_MARSHALL(unquote, const s_unquote *);
  PROTO_MARSHALL(uw, uw);
  PROTO_MARSHALL(var, const s_var *);
  s_marshall * marshall_void (s_marshall *m, bool heap);
  
  /* Export. */
  sw      marshall_env_to_file (const s_env *env, const s_str *path);
  sw      marshall_to_buf (s_marshall *m, s_buf *buf);
  s_str * marshall_to_str (s_marshall *m, s_str *dest);
  sw      marshall_to_file (s_marshall *m, const s_str *path);
  
  #endif /* LIBKC3_MARSHALL_H */
  

Download