mirror of
https://github.com/janet-lang/janet
synced 2024-06-25 22:53:16 +00:00
81f35f5dd1
Make more use of the built in GC code for abstracts to be sure things are more correct. Issue before was streams could be freed before IOCP events arrived.
210 lines
6.4 KiB
C
210 lines
6.4 KiB
C
/*
|
|
* Copyright (c) 2023 Calvin Rose
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
* of this software and associated documentation files (the "Software"), to
|
|
* deal in the Software without restriction, including without limitation the
|
|
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
|
|
* sell copies of the Software, and to permit persons to whom the Software is
|
|
* furnished to do so, subject to the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included in
|
|
* all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
|
|
* IN THE SOFTWARE.
|
|
*/
|
|
|
|
#ifndef JANET_UTIL_H_defined
|
|
#define JANET_UTIL_H_defined
|
|
|
|
#ifndef JANET_AMALG
|
|
#include "features.h"
|
|
#include <janet.h>
|
|
#include "state.h"
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
#include <stddef.h>
|
|
#include <stdbool.h>
|
|
|
|
#ifdef JANET_EV
|
|
#ifndef JANET_WINDOWS
|
|
#include <pthread.h>
|
|
#endif
|
|
#endif
|
|
|
|
#if !defined(JANET_REDUCED_OS) || !defined(JANET_SINGLE_THREADED)
|
|
#include <time.h>
|
|
#define JANET_GETTIME
|
|
#endif
|
|
|
|
/* Handle runtime errors */
|
|
#ifndef JANET_EXIT
|
|
#include <stdio.h>
|
|
#define JANET_EXIT(m) do { \
|
|
fprintf(stderr, "janet interpreter runtime error at line %d in file %s: %s\n",\
|
|
__LINE__,\
|
|
__FILE__,\
|
|
(m));\
|
|
exit(1);\
|
|
} while (0)
|
|
#endif
|
|
|
|
#define JANET_MARSHAL_DECREF 0x40000
|
|
|
|
#define janet_assert(c, m) do { \
|
|
if (!(c)) JANET_EXIT((m)); \
|
|
} while (0)
|
|
|
|
/* Utils */
|
|
uint32_t janet_hash_mix(uint32_t input, uint32_t more);
|
|
#define janet_maphash(cap, hash) ((uint32_t)(hash) & (cap - 1))
|
|
int janet_valid_utf8(const uint8_t *str, int32_t len);
|
|
int janet_is_symbol_char(uint8_t c);
|
|
extern const char janet_base64[65];
|
|
int32_t janet_array_calchash(const Janet *array, int32_t len);
|
|
int32_t janet_kv_calchash(const JanetKV *kvs, int32_t len);
|
|
int32_t janet_string_calchash(const uint8_t *str, int32_t len);
|
|
int32_t janet_tablen(int32_t n);
|
|
void safe_memcpy(void *dest, const void *src, size_t len);
|
|
void janet_buffer_push_types(JanetBuffer *buffer, int types);
|
|
const JanetKV *janet_dict_find(const JanetKV *buckets, int32_t cap, Janet key);
|
|
void janet_memempty(JanetKV *mem, int32_t count);
|
|
void *janet_memalloc_empty(int32_t count);
|
|
JanetTable *janet_get_core_table(const char *name);
|
|
void janet_def_addflags(JanetFuncDef *def);
|
|
const void *janet_strbinsearch(
|
|
const void *tab,
|
|
size_t tabcount,
|
|
size_t itemsize,
|
|
const uint8_t *key);
|
|
void janet_buffer_format(
|
|
JanetBuffer *b,
|
|
const char *strfrmt,
|
|
int32_t argstart,
|
|
int32_t argc,
|
|
Janet *argv);
|
|
Janet janet_next_impl(Janet ds, Janet key, int is_interpreter);
|
|
JanetBinding janet_binding_from_entry(Janet entry);
|
|
JanetByteView janet_text_substitution(
|
|
Janet *subst,
|
|
const uint8_t *bytes,
|
|
uint32_t len,
|
|
JanetArray *extra_args);
|
|
|
|
/* Registry functions */
|
|
void janet_registry_put(
|
|
JanetCFunction key,
|
|
const char *name,
|
|
const char *name_prefix,
|
|
const char *source_file,
|
|
int32_t source_line);
|
|
JanetCFunRegistry *janet_registry_get(JanetCFunction key);
|
|
|
|
/* Inside the janet core, defining globals is different
|
|
* at bootstrap time and normal runtime */
|
|
#ifdef JANET_BOOTSTRAP
|
|
#define JANET_CORE_REG JANET_REG
|
|
#define JANET_CORE_FN JANET_FN
|
|
#define JANET_CORE_DEF JANET_DEF
|
|
#define janet_core_def_sm janet_def_sm
|
|
#define janet_core_cfuns_ext janet_cfuns_ext
|
|
#else
|
|
#define JANET_CORE_REG JANET_REG_S
|
|
#define JANET_CORE_FN JANET_FN_S
|
|
#define JANET_CORE_DEF(ENV, NAME, X, DOC) janet_core_def_sm(ENV, NAME, X, DOC, NULL, 0)
|
|
void janet_core_def_sm(JanetTable *env, const char *name, Janet x, const void *p, const void *sf, int32_t sl);
|
|
void janet_core_cfuns_ext(JanetTable *env, const char *regprefix, const JanetRegExt *cfuns);
|
|
#endif
|
|
|
|
/* Clock gettime */
|
|
#ifdef JANET_GETTIME
|
|
enum JanetTimeSource {
|
|
JANET_TIME_REALTIME,
|
|
JANET_TIME_MONOTONIC,
|
|
JANET_TIME_CPUTIME
|
|
};
|
|
int janet_gettime(struct timespec *spec, enum JanetTimeSource source);
|
|
#endif
|
|
|
|
/* strdup */
|
|
#ifdef JANET_WINDOWS
|
|
#define strdup(x) _strdup(x)
|
|
#endif
|
|
|
|
/* Use LoadLibrary on windows or dlopen on posix to load dynamic libaries
|
|
* with native code. */
|
|
#if defined(JANET_NO_DYNAMIC_MODULES)
|
|
typedef int Clib;
|
|
#define load_clib(name) ((void) name, 0)
|
|
#define symbol_clib(lib, sym) ((void) lib, (void) sym, NULL)
|
|
const char *error_clib(void);
|
|
#define free_clib(c) ((void) (c), 0)
|
|
#elif defined(JANET_WINDOWS)
|
|
#include <windows.h>
|
|
typedef HINSTANCE Clib;
|
|
void *symbol_clib(Clib clib, const char *sym);
|
|
void free_clib(Clib clib);
|
|
Clib load_clib(const char *name);
|
|
char *error_clib(void);
|
|
#else
|
|
#include <dlfcn.h>
|
|
typedef void *Clib;
|
|
#define load_clib(name) dlopen((name), RTLD_NOW)
|
|
#define free_clib(lib) dlclose((lib))
|
|
#define symbol_clib(lib, sym) dlsym((lib), (sym))
|
|
#define error_clib dlerror
|
|
#endif
|
|
char *get_processed_name(const char *name);
|
|
|
|
#define RETRY_EINTR(RC, CALL) do { (RC) = CALL; } while((RC) < 0 && errno == EINTR)
|
|
|
|
/* Initialize builtin libraries */
|
|
void janet_lib_io(JanetTable *env);
|
|
void janet_lib_math(JanetTable *env);
|
|
void janet_lib_array(JanetTable *env);
|
|
void janet_lib_tuple(JanetTable *env);
|
|
void janet_lib_buffer(JanetTable *env);
|
|
void janet_lib_table(JanetTable *env);
|
|
void janet_lib_struct(JanetTable *env);
|
|
void janet_lib_fiber(JanetTable *env);
|
|
void janet_lib_os(JanetTable *env);
|
|
void janet_lib_string(JanetTable *env);
|
|
void janet_lib_marsh(JanetTable *env);
|
|
void janet_lib_parse(JanetTable *env);
|
|
#ifdef JANET_ASSEMBLER
|
|
void janet_lib_asm(JanetTable *env);
|
|
#endif
|
|
void janet_lib_compile(JanetTable *env);
|
|
void janet_lib_debug(JanetTable *env);
|
|
#ifdef JANET_PEG
|
|
void janet_lib_peg(JanetTable *env);
|
|
#endif
|
|
#ifdef JANET_TYPED_ARRAY
|
|
void janet_lib_typed_array(JanetTable *env);
|
|
#endif
|
|
#ifdef JANET_INT_TYPES
|
|
void janet_lib_inttypes(JanetTable *env);
|
|
#endif
|
|
#ifdef JANET_NET
|
|
void janet_lib_net(JanetTable *env);
|
|
extern const JanetAbstractType janet_address_type;
|
|
#endif
|
|
#ifdef JANET_EV
|
|
void janet_lib_ev(JanetTable *env);
|
|
void janet_ev_mark(void);
|
|
int janet_make_pipe(JanetHandle handles[2], int mode);
|
|
#endif
|
|
#ifdef JANET_FFI
|
|
void janet_lib_ffi(JanetTable *env);
|
|
#endif
|
|
|
|
#endif
|