1 /* Copyright (C) 2001 Free Software Foundation, Inc.
3 * This program is free software; you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation; either version 2, or (at your option)
8 * This program 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
11 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this software; see the file COPYING. If not, write to
15 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
16 * Boston, MA 02111-1307 USA
18 * As a special exception, the Free Software Foundation gives permission
19 * for additional uses of the text contained in its release of GUILE.
21 * The exception is that, if you link the GUILE library with other files
22 * to produce an executable, this does not by itself cause the
23 * resulting executable to be covered by the GNU General Public License.
24 * Your use of that executable is in no way restricted on account of
25 * linking the GUILE library code into it.
27 * This exception does not however invalidate any other reasons why
28 * the executable file might be covered by the GNU General Public License.
30 * This exception applies only to the code released by the
31 * Free Software Foundation under the name GUILE. If you copy
32 * code from other Free Software Foundation releases into a copy of
33 * GUILE, as the General Public License permits, the exception does
34 * not apply to the code that you add in this way. To avoid misleading
35 * anyone as to the status of such modified files, you must delete
36 * this exception notice from them.
38 * If you write modifications of your own for GUILE, it is your choice
39 * whether to permit this exception to apply to your modifications.
40 * If you do not wish that, delete this exception notice. */
42 /* This file is included in vm_engine.c */
49 VM_DEFINE_FUNCTION (not, "not", 1)
52 RETURN (SCM_BOOL (SCM_FALSEP (x
)));
55 VM_DEFINE_FUNCTION (not_not
, "not-not", 1)
58 RETURN (SCM_BOOL (!SCM_FALSEP (x
)));
61 VM_DEFINE_FUNCTION (eq
, "eq?", 2)
64 RETURN (SCM_BOOL (SCM_EQ_P (x
, y
)));
67 VM_DEFINE_FUNCTION (not_eq, "not-eq?", 2)
70 RETURN (SCM_BOOL (!SCM_EQ_P (x
, y
)));
73 VM_DEFINE_FUNCTION (nullp
, "null?", 1)
76 RETURN (SCM_BOOL (SCM_NULLP (x
)));
79 VM_DEFINE_FUNCTION (not_nullp
, "not-null?", 1)
82 RETURN (SCM_BOOL (!SCM_NULLP (x
)));
85 VM_DEFINE_FUNCTION (eqv
, "eqv?", 2)
90 if (SCM_IMP (x
) || SCM_IMP (y
))
93 RETURN (scm_eqv_p (x
, y
));
96 VM_DEFINE_FUNCTION (equal
, "equal?", 2)
101 if (SCM_IMP (x
) || SCM_IMP (y
))
104 RETURN (scm_equal_p (x
, y
));
107 VM_DEFINE_FUNCTION (pairp
, "pair?", 1)
110 RETURN (SCM_BOOL (SCM_CONSP (x
)));
113 VM_DEFINE_FUNCTION (listp
, "list?", 1)
116 RETURN (SCM_BOOL (scm_ilength (x
) >= 0));
124 VM_DEFINE_FUNCTION (cons
, "cons", 2)
131 VM_DEFINE_FUNCTION (car
, "car", 1)
134 SCM_VALIDATE_CONS (1, x
);
135 RETURN (SCM_CAR (x
));
138 VM_DEFINE_FUNCTION (cdr
, "cdr", 1)
141 SCM_VALIDATE_CONS (1, x
);
142 RETURN (SCM_CDR (x
));
145 VM_DEFINE_FUNCTION (set_car
, "set-car!", 2)
148 SCM_VALIDATE_CONS (1, x
);
150 RETURN (SCM_UNSPECIFIED
);
153 VM_DEFINE_FUNCTION (set_cdr
, "set-cdr!", 2)
156 SCM_VALIDATE_CONS (1, x
);
158 RETURN (SCM_UNSPECIFIED
);
163 * Numeric relational tests
167 #define REL(crel,srel) \
170 if (scm_is_integer (x) && scm_is_integer (y)) \
171 RETURN (SCM_BOOL (scm_to_int (x) crel scm_to_int (y))); \
172 RETURN (srel (x, y)); \
175 VM_DEFINE_FUNCTION (ee
, "ee?", 2)
177 REL (==, scm_num_eq_p
);
180 VM_DEFINE_FUNCTION (lt
, "lt?", 2)
185 VM_DEFINE_FUNCTION (le
, "le?", 2)
190 VM_DEFINE_FUNCTION (gt
, "gt?", 2)
195 VM_DEFINE_FUNCTION (ge
, "ge?", 2)
206 #define FUNC1(CEXP,SEXP) \
209 if (scm_is_integer (x)) \
212 if (SCM_FIXABLE (n)) \
213 RETURN (scm_from_int (n)); \
219 #define FUNC2(CFUNC,SFUNC) \
222 if (scm_is_integer (x) && scm_is_integer (y)) \
224 int n = scm_to_int (x) CFUNC scm_to_int (y); \
225 if (SCM_FIXABLE (n)) \
226 RETURN (scm_from_int (n)); \
228 RETURN (SFUNC (x, y)); \
231 VM_DEFINE_FUNCTION (add
, "add", 2)
236 VM_DEFINE_FUNCTION (sub
, "sub", 2)
238 FUNC2 (-, scm_difference
);
241 VM_DEFINE_FUNCTION (mul
, "mul", 2)
244 RETURN (scm_product (x
, y
));
247 VM_DEFINE_FUNCTION (div
, "div", 2)
250 RETURN (scm_divide (x
, y
));
253 VM_DEFINE_FUNCTION (quo
, "quo", 2)
256 RETURN (scm_quotient (x
, y
));
259 VM_DEFINE_FUNCTION (rem
, "rem", 2)
262 RETURN (scm_remainder (x
, y
));
265 VM_DEFINE_FUNCTION (mod
, "mod", 2)
268 RETURN (scm_modulo (x
, y
));