shithub: sl

ref: 29b1d01e4c8bd99be867ce986408362f8ae8d023
dir: /src/read.h/

View raw version
#pragma once

value_t sl_read_sexpr(value_t f);
bool sl_read_numtok(const char *tok, value_t *pval, int base);

// defines which characters are ordinary symbol characters.
// exceptions are '.', which is an ordinary symbol character
// unless it's the only character in the symbol, and '#', which is
// an ordinary symbol character unless it's the first character.
#define symchar(c) (!strchr("()[]{}'\";`,\\| \a\b\f\n\r\t\v", (c)))