123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110 |
- #ifdef HAVE_CONFIG_H
- # include <config.h>
- #endif
- #include "libguile/_scm.h"
- #include "libguile/validate.h"
- #include "libguile/boolean.h"
- #include "libguile/tags.h"
- #include "verify.h"
- verify (SCM_BITS_DIFFER_IN_EXACTLY_ONE_BIT_POSITION \
- (SCM_BOOL_F_BITS, SCM_BOOL_T_BITS));
- verify (SCM_BITS_DIFFER_IN_EXACTLY_ONE_BIT_POSITION \
- (SCM_ELISP_NIL_BITS, SCM_BOOL_F_BITS));
- verify (SCM_BITS_DIFFER_IN_EXACTLY_ONE_BIT_POSITION \
- (SCM_ELISP_NIL_BITS, SCM_EOL_BITS));
- verify (SCM_BITS_DIFFER_IN_EXACTLY_TWO_BIT_POSITIONS \
- (SCM_ELISP_NIL_BITS, SCM_BOOL_F_BITS, SCM_BOOL_T_BITS, \
- SCM_XXX_ANOTHER_BOOLEAN_DONT_USE_0));
- verify (SCM_BITS_DIFFER_IN_EXACTLY_TWO_BIT_POSITIONS \
- (SCM_ELISP_NIL_BITS, SCM_BOOL_F_BITS, SCM_EOL_BITS, \
- SCM_XXX_ANOTHER_LISP_FALSE_DONT_USE));
- SCM_DEFINE (scm_not, "not", 1, 0, 0,
- (SCM x),
- "Return @code{#t} iff @var{x} is false, else return @code{#f}.")
- #define FUNC_NAME s_scm_not
- {
- return scm_from_bool (scm_is_false (x));
- }
- #undef FUNC_NAME
- SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0,
- (SCM obj),
- "Return @code{#t} iff @var{obj} is @code{#t} or false.")
- #define FUNC_NAME s_scm_boolean_p
- {
- return scm_from_bool (scm_is_bool (obj));
- }
- #undef FUNC_NAME
- int
- scm_to_bool (SCM x)
- {
- if (scm_is_false (x))
- return 0;
- else if (scm_is_eq (x, SCM_BOOL_T))
- return 1;
- else
- scm_wrong_type_arg (NULL, 0, x);
- }
- #undef scm_is_bool
- int
- scm_is_bool (SCM obj)
- {
-
- return scm_is_bool_or_nil (obj);
- }
- void
- scm_init_boolean ()
- {
- #include "libguile/boolean.x"
- }
|