From 42eed7c0f54afd5c8c688f418a482bc30ec0de89 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 4 Apr 2022 07:18:22 -0700 Subject: New accessors stringp and symbolp. --- cppawk-include/cons-priv.h | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'cppawk-include/cons-priv.h') diff --git a/cppawk-include/cons-priv.h b/cppawk-include/cons-priv.h index d9a8e28..0dd794d 100644 --- a/cppawk-include/cons-priv.h +++ b/cppawk-include/cons-priv.h @@ -159,6 +159,18 @@ function __numberp(__obj) } #define __numberp(obj) (obj != "" && ((obj) == 0 || (obj) + 0 != 0)) +function __stringp(__obj) +{ + return __typecode(obj) == "T" +} +#define __stringp(obj) (substr(obj, 1, 1) == "T") + +function __symbolp(__obj) +{ + return __typecode(obj) ~ /^S?$/ +} +#define __symbolp(obj) (substr(obj, 1, 1) ~ /^S?$/) + function __box(__raw, __case_temps) { -- cgit v1.2.3