extensions.h

Go to the documentation of this file.

 
/*
    Copyright 2019, 2022, 2024 Joel Svensson        svenssonjoel@yahoo.se
                    2022 Benjamin Vedder
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/
 
#ifndef EXTENSIONS_H_
#define EXTENSIONS_H_
 
#include "heap.h"
#include "lbm_types.h"
#include "lbm_constants.h"
 
#ifdef __cplusplus
extern "C" {
#endif
 
typedef lbm_value (*extension_fptr)(lbm_value*,lbm_uint);
 
typedef struct {
  extension_fptr fptr;
  char *name;
} lbm_extension_t;
 
 
extern lbm_extension_t *extension_table;
 
#define LBM_EXTENSION(name, argv, argn)                                 \
  __attribute__((aligned(LBM_STORABLE_ADDRESS_ALIGNMENT))) lbm_value name(lbm_value *(argv), lbm_uint (argn))
 
int lbm_extensions_init(lbm_extension_t *extension_storage, lbm_uint extension_storage_size);
void lbm_extensions_set_next(lbm_uint i);
lbm_uint lbm_get_max_extensions(void);
lbm_uint lbm_get_num_extensions(void);
bool lbm_lookup_extension_id(char *sym_str, lbm_uint *ix);
extension_fptr lbm_get_extension(lbm_uint sym);
bool lbm_clr_extension(lbm_uint sym_id);
bool lbm_add_extension(char *sym_str, extension_fptr ext);
 
static inline bool lbm_is_extension(lbm_value exp) {
  return ((lbm_type_of(exp) == LBM_TYPE_SYMBOL) &&
          (lbm_get_extension(lbm_dec_sym(exp)) != NULL));
}
 
 
bool lbm_check_true_false(lbm_value v);
bool lbm_check_number_all(lbm_value *args, lbm_uint argn);
bool lbm_check_argn(lbm_uint argn, lbm_uint n);
bool lbm_check_argn_number(lbm_value *args, lbm_uint argn, lbm_uint n);
 
#define LBM_CHECK_NUMBER_ALL() if (!lbm_check_number_all(args, argn)) {return ENC_SYM_EERROR;}
#define LBM_CHECK_ARGN(n) if (!lbm_check_argn(argn, n)) {return ENC_SYM_EERROR;}
#define LBM_CHECK_ARGN_NUMBER(n) if (!lbm_check_argn_number(args, argn, n)) {return ENC_SYM_EERROR;}
 
lbm_value lbm_extensions_default(lbm_value *args, lbm_uint argn);
 
// Extension writing helpers
 
extern lbm_value make_list(int num, ...);
extern bool strmatch(const char *str1, const char *str2);
  
static inline lbm_value mk_lam(lbm_value args, lbm_value body) {
  return make_list(3, ENC_SYM_LAMBDA, args, body);
}
 
static inline lbm_value mk_call_cc(lbm_value body) {
  return make_list(2, ENC_SYM_CALL_CC_UNSAFE, body);
}
 
static inline lbm_value mk_let(lbm_value bindings, lbm_value body) {
  return make_list(3, ENC_SYM_LET, bindings, body);
}
 
static inline lbm_value mk_if(lbm_value cond, lbm_value tb, lbm_value fb) {
  return make_list(4, ENC_SYM_IF, cond, tb, fb);
}
 
static inline lbm_value mk_inc(lbm_value v) {
  return make_list(3, ENC_SYM_ADD, v, lbm_enc_i(1));
}
 
static inline lbm_value mk_lt(lbm_value a, lbm_value b) {
  return make_list(3, ENC_SYM_LT, a, b);
}
 
static inline lbm_value mk_eq(lbm_value a, lbm_value b) {
  return make_list(3, ENC_SYM_EQ, a, b);
}
 
static inline lbm_value mk_car(lbm_value a) {
  return make_list(2, ENC_SYM_CAR, a);
}
 
static inline lbm_value mk_cdr(lbm_value a) {
  return make_list(2, ENC_SYM_CDR, a);
}
  
#ifdef __cplusplus
}
#endif
#endif