extensions.c File Reference

#include <lbm_memory.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <string.h>
#include <eval_cps.h>
#include "extensions.h"
#include "lbm_utils.h"

Include dependency graph for extensions.c:

Functions
lbm_value	lbm_extensions_default (lbm_value *args, lbm_uint argn)
int	lbm_extensions_init (lbm_extension_t *extension_storage, lbm_uint extension_storage_size)
lbm_uint	lbm_get_max_extensions (void)
lbm_uint	lbm_get_num_extensions (void)
extension_fptr	lbm_get_extension (lbm_uint sym)
bool	lbm_clr_extension (lbm_uint sym_id)
bool	lbm_lookup_extension_id (char *sym_str, lbm_uint *ix)
bool	lbm_add_extension (char *sym_str, extension_fptr ext)
static bool	lbm_is_number_all (lbm_value *args, lbm_uint argn)
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)
lbm_value	make_list (int num,...)
bool	strmatch (const char *str1, const char *str2)

Variables
static lbm_uint	ext_max = 0
static lbm_uint	ext_num = 0
static lbm_uint	next_extension_ix = 0
lbm_extension_t *	extension_table = NULL

Function Documentation

lbm_add_extension()

bool lbm_add_extension	(	char *	sym_str,
		extension_fptr	ext
	)

Adds a symbol-extension mapping.

Parameters

sym_str	String representation of symbol to use as key.
ext	The extension function pointer.

Returns

true on success and false on failure.

lbm_check_argn()

bool lbm_check_argn	(	lbm_uint	argn,
		lbm_uint	n
	)

Check if the number of arguments is n. Sets error-reason if result is false.

Parameters

argn	number of arguments.
n	number of expected arguments.

Returns

true if the number of arguments is correct. false otherwise

lbm_check_argn_number()

bool lbm_check_argn_number	(	lbm_value *	args,
		lbm_uint	argn,
		lbm_uint	n
	)

Check if all arguments are numbers and that there is n of them. Sets error-reason if result is false.

Parameters

args	The argument array.
argn	The number of arguments.
n	The expected number of arguments.

Returns

true or false.

lbm_check_number_all()

bool lbm_check_number_all	(	lbm_value *	args,
		lbm_uint	argn
	)

Check if all arguments are numbers. Sets error-reason if result is false.

Parameters

args	The argument array.
argn	The number of arguments.

Returns

true if all arguments are numbers, false otherwise.

lbm_check_true_false()

bool lbm_check_true_false

(

lbm_value

v

)

Check if a value is the symbol t or the symbol nil

Parameters

v	The value.

Returns

true if the value is t or nil otherwise false.

lbm_clr_extension()

bool lbm_clr_extension

(

lbm_uint

sym_id

)

Reset an extension back to the default value. Trying to apply the extension after clearing it will result in an eval error.

Parameters

sym_id

Symbol id of the extension to clear.

Returns

true if successfully cleared an extension otherwise false.

lbm_extensions_default()

lbm_value lbm_extensions_default	(	lbm_value *	args,
		lbm_uint	argn
	)

lbm_extensions_init()

int lbm_extensions_init	(	lbm_extension_t *	extension_storage,
		lbm_uint	extension_storage_size
	)

Initialize the extensions subsystem. Extension storage is allocated on lbm_memory.

Parameters

extension_storage_size

Size of function pointer array.

Returns

1 on success and 0 for failure

lbm_get_extension()

extension_fptr lbm_get_extension

(

lbm_uint

sym

)

Look up an extension associated with a key symbol.

Parameters

sym	Symbol bound to the extension to look for.

Returns

extension_fptr on success or NULL on failure.

lbm_get_max_extensions()

lbm_uint lbm_get_max_extensions

(

void

)

The number of extensions that can be allocated.

Returns

The maximum number of extensions that can be added.

lbm_get_num_extensions()

lbm_uint lbm_get_num_extensions

(

void

)

Get the number of allocated extensions

Returns

The number of extensions that have been added.

lbm_is_number_all()

static bool lbm_is_number_all ( lbm_value *  args, lbm_uint  argn  )

static

lbm_lookup_extension_id()

bool lbm_lookup_extension_id	(	char *	sym_str,
		lbm_uint *	ix
	)

Lookup an extensions index.

Parameters

sym_str	Extension name to look up.
ix	Pointer used to store result.

Returns

true on success, false otherwise.

make_list()

lbm_value make_list	(	int	num,
			...
	)

strmatch()

bool strmatch	(	const char *	str1,
		const char *	str2
	)

Variable Documentation

ext_max

lbm_uint ext_max = 0

static

ext_num

lbm_uint ext_num = 0

static

extension_table

lbm_extension_t* extension_table = NULL

next_extension_ix

lbm_uint next_extension_ix = 0

static