obj.h File Reference

Commotion object model. More...

#include <stdlib.h>
#include <stddef.h>
#include <stdint.h>
#include <stdbool.h>
#include "debug.h"
#include "extern/halloc.h"

Go to the source code of this file.

Classes
struct	co_obj_t
struct	co_nil_t
struct	co_bool_t
struct	co_fixint_t
struct	co_float32_t
struct	co_float64_t

Macros
#define	CO_OBJ_INTERNAL
#define	_nil   0xc0
#define	_false   0xc2
#define	_true   0xc3
#define	_bin8   0xc4
#define	_bin16   0xc5
#define	_bin32   0xc6
#define	_ext8   0xc7
#define	_ext16   0xc8
#define	_ext32   0xc9
#define	_fixext1   0xd4
#define	_fixext2   0xd5
#define	_fixext4   0xd6
#define	_fixext8   0xd7
#define	_fixext16   0xd8
#define	_float32   0xca
#define	_float64   0xcb
#define	_uint8   0xcc
#define	_uint16   0xcd
#define	_uint32   0xce
#define	_uint64   0xcf
#define	_int8   0xd0
#define	_int16   0xd1
#define	_int32   0xd2
#define	_int64   0xd3
#define	_str8   0xd9
#define	_str16   0xda
#define	_str32   0xdb
#define	_list16   0xdc
#define	_list32   0xdd
#define	_tree16   0xde
#define	_tree32   0xdf
#define	_ptr   1
#define	_cmd   2
#define	_plug   3
#define	_profile   4
#define	_cbptr   4
#define	_fd   5
#define	_sock   6
#define	_co_timer   7
#define	_process   8
#define	_iface   9
#define	CO_TYPE(J)   (((co_obj_t *)J)->_type)
#define	_LIST_ELEMENT(J, I)   co_obj_data_ptr(co_list_element(J,I))
#define	IS_NIL(J)   (CO_TYPE(J) == _nil)
#define	IS_FIXINT(J)   (CO_TYPE(J) < 128)
#define	IS_BOOL(J)   (IS_FALSE(J) || IS_TRUE(J))
#define	IS_TRUE(J)   (CO_TYPE(J) == _true)
#define	IS_FALSE(J)   (CO_TYPE(J) == _false)
#define	IS_BIN(J)   ((CO_TYPE(J) == _bin8) || (CO_TYPE(J) == _bin16) || (CO_TYPE(J) == _bin32))
#define	IS_EXT(J)   ((CO_TYPE(J) == _ext8) || (CO_TYPE(J) == _ext16) || (CO_TYPE(J) == _ext32))
#define	IS_FIXEXT(J)   ((CO_TYPE(J) == _fixext1) || (CO_TYPE(J) == _fixext2) || (CO_TYPE(J) == _fixext4) || (CO_TYPE(J) == _fixext8) || (CO_TYPE(J) == _fixext16))
#define	IS_FLOAT(J)   ((CO_TYPE(J) == _float32) || (CO_TYPE(J) == _float64))
#define	IS_UINT(J)   ((CO_TYPE(J) == _uint8) || (CO_TYPE(J) == _uint16) || (CO_TYPE(J) == _uint32) || (CO_TYPE(J) == _uint64))
#define	IS_INT(J)   ((CO_TYPE(J) == _int8) || (CO_TYPE(J) == _int16) || (CO_TYPE(J) == _int32) || (CO_TYPE(J) == _int64))
#define	IS_STR(J)   ((CO_TYPE(J) == _str8) || (CO_TYPE(J) == _str16) || (CO_TYPE(J) == _str32))
#define	IS_LIST(J)   ((CO_TYPE(J) == _list16) || (CO_TYPE(J) == _list32))
#define	IS_TREE(J)   ((CO_TYPE(J) == _tree16) || (CO_TYPE(J) == _tree32))
#define	IS_CHAR(J)   (IS_BIN(J) || IS_STR(J))
#define	IS_EXTENSION(J)   (IS_EXT(J) || IS_FIXEXT(J))
#define	IS_INTEGER(J)   (IS_INT(J) || IS_UINT(J) || IS_FIXINT(J))
#define	IS_COMPLEX(J)   (IS_LIST(J) || IS_TREE(J))
#define	IS_CMD(J)   (IS_EXT(J) && ((co_cmd_t *)J)->_exttype == _cmd)
#define	IS_PLUG(J)   (IS_EXT(J) && ((co_plugin_t *)J)->_exttype == _plug)
#define	IS_PROFILE(J)   (IS_EXT(J) && ((co_profile_t *)J)->_exttype == _profile)
#define	IS_CBPTR(J)   (IS_EXT(J) && ((co_cbptr_t *)J)->_exttype == _cbptr)
#define	IS_FD(J)   (IS_EXT(J) && ((co_fd_t *)J)->_exttype == _fd)
#define	IS_SOCK(J)   (IS_EXT(J) && ((co_socket_t *)J)->_exttype == _sock)
#define	IS_TIMER(J)   (IS_EXT(J) && ((co_timer_t *)J)->_exttype == _co_timer)
#define	IS_PROCESS(J)   (IS_EXT(J) && ((co_process_t *)J)->_exttype == _process)
#define	IS_IFACE(J)   (IS_EXT(J) && ((co_iface_t *)J)->_exttype == _iface)
#define	_DECLARE_CHAR(T, L)
#define	_DECLARE_INTEGER(T, L)
#define	co_obj_data_ptr(J)   ({ char *d = NULL; co_obj_data(&d,J); d; })
#define	co_str_cmp_str(J, S)
#define	co_str_len(J)   ({ char *v = NULL; co_obj_data(&v,J); })

Typedefs
typedef uint8_t	_type_t
typedef struct co_obj_t	co_obj_t
typedef co_obj_t *(*	co_iter_t )(co_obj_t *data, co_obj_t *current, void *context)
typedef int(*	co_cb_t )(co_obj_t *self, co_obj_t **output, co_obj_t *params)

Functions
struct co_obj_t	__attribute__ ((packed))
	_DECLARE_CHAR (bin, 8)
	_DECLARE_CHAR (bin, 16)
	_DECLARE_CHAR (bin, 32)
	_DECLARE_CHAR (str, 8)
	_DECLARE_CHAR (str, 16)
	_DECLARE_CHAR (str, 32)
	_DECLARE_INTEGER (int, 8)
	_DECLARE_INTEGER (int, 16)
	_DECLARE_INTEGER (int, 32)
	_DECLARE_INTEGER (int, 64)
	_DECLARE_INTEGER (uint, 8)
	_DECLARE_INTEGER (uint, 16)
	_DECLARE_INTEGER (uint, 32)
	_DECLARE_INTEGER (uint, 64)
int	co_nil_alloc (co_obj_t *output, const uint8_t flags)
co_obj_t *	co_nil_create (const uint8_t flags)
int	co_bool_alloc (co_obj_t *output, const bool input, const uint8_t flags)
co_obj_t *	co_bool_create (const bool input, const uint8_t flags)
int	co_fixint_alloc (co_obj_t *output, const int input, const uint8_t flags)
co_obj_t *	co_fixint_create (const int input, const uint8_t flags)
int	co_float32_alloc (co_obj_t *output, const float input, const uint8_t flags)
co_obj_t *	co_float32_create (const double input, const uint8_t flags)
int	co_float64_alloc (co_obj_t *output, const double input, const uint8_t flags)
co_obj_t *	co_float64_create (const double input, const uint8_t flags)
void	co_obj_free (co_obj_t *object)
size_t	co_obj_raw (char **data, const co_obj_t *object)
size_t	co_obj_data (char **data, const co_obj_t *object)
size_t	co_obj_import (co_obj_t **output, const char *input, const size_t in_size, const uint8_t flags)
int	co_obj_getflags (const co_obj_t *object)
void	co_obj_setflags (co_obj_t *object, const int flags)
int	co_str_copy (co_obj_t *dst, const co_obj_t *src, const size_t size)
int	co_str_cat (co_obj_t *dst, const co_obj_t *src, const size_t size)
int	co_str_cmp (const co_obj_t *a, const co_obj_t *b)

Variables
typedef	__attribute__
uint8_t	_flags
co_obj_t *	_prev
co_obj_t *	_next
uint16_t	_ref
_type_t	_type

Detailed Description

Commotion object model.

Author

Josh King (jheretic), jking.nosp@m.@cha.nosp@m.mbana.nosp@m..net

Macro Definition Documentation

#define _DECLARE_CHAR	(		T,
			L
	)

Value:

typedef struct __attribute__((packed)) { co_obj_t _header; uint##L##_t _len; \
  char data[1]; } co_##T##L##_t; int co_##T##L##_alloc(co_obj_t *output, \
  const size_t out_size, const char *input, const size_t in_size, \
  const uint8_t flags ); co_obj_t *co_##T##L##_create(const char *input, \
  const size_t input_size, const uint8_t flags);

#define _DECLARE_INTEGER	(		T,
			L
	)

Value:

typedef struct __attribute__((packed)) { co_obj_t _header; T##L##_t data; }\
  co_##T##L##_t; int co_##T##L##_alloc(co_obj_t *output, \
  const T##L##_t input, const uint8_t flags); co_obj_t *co_##T##L##_create(\
  const T##L##_t input, const uint8_t flags);

#define co_str_cmp_str	(		J,
			S
	)

Value:

({ co_obj_t *s = co_str8_create(S,sizeof(S),0); \
  int i = co_str_cmp(J,s); co_obj_free(s); i; })