libguile/gh_predicates.c

   1 /*      Copyright (C) 1995,1996,1997, 2000, 2001 Free Software Foundation, Inc.
   2
   3  * This library is free software; you can redistribute it and/or
   4  * modify it under the terms of the GNU Lesser General Public
   5  * License as published by the Free Software Foundation; either
   6  * version 2.1 of the License, or (at your option) any later version.
   7  *
   8  * This library is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11  * Lesser General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU Lesser General Public
  14  * License along with this library; if not, write to the Free Software
  15  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  16  */
  17 \f
  18
  19 /* type predicates and equality predicates */
  20
  21 #include "libguile/gh.h"
  22
  23 /* type predicates: tell you if an SCM object has a given type */
  24 int
  25 gh_boolean_p (SCM val)
  26 {
  27   return (SCM_NFALSEP (scm_boolean_p (val)));
  28 }
  29 int
  30 gh_symbol_p (SCM val)
  31 {
  32   return (SCM_NFALSEP (scm_symbol_p (val)));
  33 }
  34 int
  35 gh_char_p (SCM val)
  36 {
  37   return (SCM_NFALSEP (scm_char_p (val)));
  38 }
  39 int
  40 gh_vector_p (SCM val)
  41 {
  42   return (SCM_NFALSEP (scm_vector_p (val)));
  43 }
  44 int
  45 gh_pair_p (SCM val)
  46 {
  47   return (SCM_NFALSEP (scm_pair_p (val)));
  48 }
  49 int
  50 gh_number_p (SCM val)
  51 {
  52   return (SCM_NFALSEP (scm_number_p (val)));
  53 }
  54 int
  55 gh_string_p (SCM val)
  56 {
  57   return (SCM_NFALSEP (scm_string_p (val)));
  58 }
  59 int
  60 gh_procedure_p (SCM val)
  61 {
  62   return (SCM_NFALSEP (scm_procedure_p (val)));
  63 }
  64 int
  65 gh_list_p (SCM val)
  66 {
  67   return (SCM_NFALSEP (scm_list_p (val)));
  68 }
  69 int
  70 gh_inexact_p (SCM val)
  71 {
  72   return (SCM_NFALSEP (scm_inexact_p (val)));
  73 }
  74 int
  75 gh_exact_p (SCM val)
  76 {
  77   return (SCM_NFALSEP (scm_exact_p (val)));
  78 }
  79
  80 /* the three types of equality */
  81 int
  82 gh_eq_p (SCM x, SCM y)
  83 {
  84   return (SCM_NFALSEP (scm_eq_p (x, y)));
  85 }
  86 int
  87 gh_eqv_p (SCM x, SCM y)
  88 {
  89   return (SCM_NFALSEP (scm_eqv_p (x, y)));
  90 }
  91 int
  92 gh_equal_p (SCM x, SCM y)
  93 {
  94   return (SCM_NFALSEP (scm_equal_p (x, y)));
  95 }
  96
  97 /* equivalent to (string=? ...), but returns 0 or 1 rather than Scheme
  98    booleans */
  99 int
 100 gh_string_equal_p(SCM s1, SCM s2)
 101 {
 102   return (SCM_NFALSEP (scm_string_equal_p(s1, s2)));
 103 }
 104
 105 /* equivalent to (null? ...), but returns 0 or 1 rather than Scheme
 106    booleans */
 107 int
 108 gh_null_p(SCM l)
 109 {
 110   return (SCM_NFALSEP(scm_null_p(l)));
 111 }
 112
 113 /*
 114   Local Variables:
 115   c-file-style: "gnu"
 116   End:
 117 */