00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023 #ifndef SEXP_MANIP_R_H
00024 #define SEXP_MANIP_R_H
00025
00026 #include <stdarg.h>
00027 #include <stddef.h>
00028 #include <stdint.h>
00029 #include <stdbool.h>
00030 #include "sexp-types.h"
00031
00032 #ifdef __cplusplus
00033 extern "C" {
00034 #endif
00035
00036 SEXP_t *SEXP_init(SEXP_t *sexp_mem);
00037
00038 SEXP_t *SEXP_number_newb_r(SEXP_t *sexp_mem, bool n);
00039 #define SEXP_number_newi_r SEXP_number_newi_32_r
00040 SEXP_t *SEXP_number_newi_32_r(SEXP_t *sexp_mem, int32_t n);
00041 SEXP_t *SEXP_number_newu_32_r(SEXP_t *sexp_mem, uint32_t n);
00042 SEXP_t *SEXP_number_newu_64_r(SEXP_t *sexp_mem, uint64_t n);
00043 SEXP_t *SEXP_number_newf_r(SEXP_t *sexp_mem, double n);
00044
00045 SEXP_t *SEXP_string_new_r(SEXP_t *sexp_mem, const void *string, size_t length);
00046 SEXP_t *SEXP_string_newf_r(SEXP_t *sexp_mem, const char *format, ...);
00047 SEXP_t *SEXP_string_newf_rv(SEXP_t *sexp_mem, const char *format, va_list ap);
00048
00049 SEXP_t *SEXP_list_new_rv(SEXP_t *sexp_mem, SEXP_t *memb, va_list alist);
00050 SEXP_t *SEXP_list_new_r(SEXP_t *sexp_mem, SEXP_t *memb, ...);
00051
00052 int SEXP_unref_r(SEXP_t *s_exp);
00053
00054 #if defined(NDEBUG)
00055 void SEXP_free_r (SEXP_t *s_exp);
00056 #else
00057 #include <stdint.h>
00058 void __SEXP_free_r(SEXP_t *s_exp, const char *file, uint32_t line, const char *func);
00059
00060 __attribute__ ((unused)) static void SEXP_free_r(SEXP_t *sexp)
00061 {
00062 __SEXP_free_r(sexp, __FILE__, __LINE__, __PRETTY_FUNCTION__);
00063 }
00064
00065 #define SEXP_free_r(ptr) __SEXP_free_r(ptr, __FILE__, __LINE__, __PRETTY_FUNCTION__)
00066
00067 #endif
00068
00069 #ifdef __cplusplus
00070 }
00071 #endif
00072
00073 #endif