6 /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 #include "libguile/__scm.h"
32 #define SCM_FALSEP(x) (SCM_EQ_P ((x), SCM_BOOL_F))
33 #define SCM_NFALSEP(x) (!SCM_FALSEP (x))
35 #define SCM_BOOLP(x) (SCM_EQ_P ((x), SCM_BOOL_F) || SCM_EQ_P ((x), SCM_BOOL_T))
37 /* Convert from a C boolean to a SCM boolean value */
38 #define SCM_BOOL(f) ((f) ? SCM_BOOL_T : SCM_BOOL_F)
40 /* Convert from a C boolean to a SCM boolean value and negate it */
41 #define SCM_NEGATE_BOOL(f) ((f) ? SCM_BOOL_F : SCM_BOOL_T)
43 /* SCM_BOOL_NOT returns the other boolean.
44 * The order of ^s here is important for Borland C++ (!?!?!)
46 #define SCM_BOOL_NOT(x) (SCM_PACK (SCM_UNPACK (x) \
47 ^ (SCM_UNPACK (SCM_BOOL_T) \
48 ^ SCM_UNPACK (SCM_BOOL_F))))
50 #define scm_is_false(x) scm_is_eq ((x), SCM_BOOL_F)
51 #define scm_is_true(x) !scm_is_false (x)
53 SCM_API
int scm_is_bool(x
);
54 #define scm_from_bool(x) ((f) ? SCM_BOOL_T : SCM_BOOL_F)
55 SCM_API
int scm_to_bool (SCM x
);
59 SCM_API SCM
scm_not (SCM x
);
60 SCM_API SCM
scm_boolean_p (SCM obj
);
62 SCM_API
void scm_init_boolean (void);
64 #endif /* SCM_BOOLEAN_H */