whitespace.c File Reference

S-expression analyser and delimiter for whitespace tokens. More...

#include "x-token/sexp/whitespace.h"
#include "x-eval.h"
#include "x-token.h"
#include "x-type/buffer.h"
#include "x-type/char.h"

Functions
x_obj_t *	x_sexp_whitespace_analyse1 (x_obj_t *p_base, x_obj_t *p_args)
x_obj_t *	x_sexp_whitespace_analyse2 (x_obj_t *p_base, x_obj_t *p_args)
x_obj_t *	x_sexp_whitespace_delimit (x_obj_t *p_base, x_obj_t *p_args)

Variables
x_satom_t	x_sexp_whitespace_analyse1_prim = x_obj_set(x_type_atom_obj, X_OBJ_FLAG_NONE, { .fn = x_sexp_whitespace_analyse1 })
x_satom_t	x_sexp_whitespace_analyse2_prim = x_obj_set(x_type_atom_obj, X_OBJ_FLAG_NONE, { .fn = x_sexp_whitespace_analyse2 })
x_satom_t	x_sexp_whitespace_delimit_prim = x_obj_set(x_type_atom_obj, X_OBJ_FLAG_NONE, { .fn = x_sexp_whitespace_delimit })

Detailed Description

S-expression analyser and delimiter for whitespace tokens.

Author

Jon Ruttan (jonru.nosp@m.ttan.nosp@m.@gmai.nosp@m.l.co.nosp@m.m)

Copyright

2023 Jon Ruttan @license MIT No Attribution (MIT-0)

Function Documentation

x_sexp_whitespace_analyse1()

x_obj_t * x_sexp_whitespace_analyse1	(	x_obj_t *	p_base,
		x_obj_t *	p_args
	)

Analyse state 1: detect a whitespace character.

Checks the last character in the buffer against X_SEXP_WHITESPACE_CHARS_STR.

Parameters

p_base	Base (execution context).
p_args	Read-args containing the token buffer.

Returns

The analyse2 primitive on match, or NULL.

x_sexp_whitespace_analyse2()

x_obj_t * x_sexp_whitespace_analyse2	(	x_obj_t *	p_base,
		x_obj_t *	p_args
	)

Analyse state 2: consume additional whitespace and score.

Re-invokes analyse1 to check for more whitespace. When a non-whitespace character is found, scores bufferlen-1 (the -1 accounts for the extra non-whitespace character that was read to terminate the run).

Parameters

p_base	Base (execution context).
p_args	Read-args containing the token buffer and score.

Returns

Self to keep reading, or score on non-whitespace.

x_sexp_whitespace_delimit()

x_obj_t * x_sexp_whitespace_delimit	(	x_obj_t *	p_base,
		x_obj_t *	p_args
	)

Delimiter callback for whitespace characters.

If the current character is whitespace, backs up the read pointer so the whitespace is not consumed by the current token.

Parameters

p_base	Base (execution context).
p_args	Read-args containing the token buffer.

Returns

The buffer on whitespace match, or NULL.

Variable Documentation

x_sexp_whitespace_analyse1_prim

x_satom_t x_sexp_whitespace_analyse1_prim = x_obj_set(x_type_atom_obj, X_OBJ_FLAG_NONE, { .fn = x_sexp_whitespace_analyse1 })

x_sexp_whitespace_analyse2_prim

x_satom_t x_sexp_whitespace_analyse2_prim = x_obj_set(x_type_atom_obj, X_OBJ_FLAG_NONE, { .fn = x_sexp_whitespace_analyse2 })

x_sexp_whitespace_delimit_prim

x_satom_t x_sexp_whitespace_delimit_prim = x_obj_set(x_type_atom_obj, X_OBJ_FLAG_NONE, { .fn = x_sexp_whitespace_delimit })