mirror of
https://github.com/janet-lang/janet
synced 2025-01-19 20:02:50 +00:00
f8a9efa8e4
Mimic the posix RTLD_NOW setting for dlopen by iterating opened DLLs to look for symbols.
200 lines
6.1 KiB
C
200 lines
6.1 KiB
C
/*
|
|
* Copyright (c) 2022 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, "C 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);
|
|
|
|
/* 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
|
|
int janet_gettime(struct timespec *spec);
|
|
#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)
|
|
#define error_clib() "dynamic libraries not supported"
|
|
#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
|