1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
/*-----------------------------------------------------------------*-C-*---
* File: handc/runtime/chektype.h
*
* Copyright (C)1997 Donovan Kolbly <d.kolbly@rscheme.org>
* as part of the RScheme project, licensed for free use.
* See <http://www.rscheme.org/> for the latest information.
*
* File version: 1.4
* File mod date: 1997.11.29 23:10:50
* System build: v0.7.2, 97.12.21
*
*------------------------------------------------------------------------*/
CIH_DECL obj check_ptr( obj thing, int fplace_code );
CIH_DECL obj check_immob( obj thing, int fplace_code );
CIH_DECL obj check_fixnum( obj thing, int fplace_code );
CIH_DECL obj check_gvec( obj thing, int fplace_code );
CIH_DECL obj check_bvec( obj thing, int fplace_code );
CIH_DECL obj check_pair( obj thing, int fplace_code );
CIH_DECL obj check_symbol( obj thing, int fplace_code );
CIH_DECL obj check_vector( obj thing, int fplace_code );
CIH_DECL obj check_function( obj thing, int fplace_code );
CIH_DECL obj check_class( obj thing, int fplace_code );
CIH_DECL obj check_string( obj thing, int fplace_code );
CIH_DECL obj check_double_float( obj thing, int fplace_code );
CIH_DECL obj check_long_int( obj thing, int fplace_code );
CIH_DECL obj check_ascii_char( obj thing, int fplace_code );
CIH_DECL obj check_unicode_char( obj thing, int fplace_code );
CIH_DECL obj check_boolean( obj thing, int fplace_code );
CIH_DECL obj check_instance( obj thing, obj req_class, int fplace_code );
#define CHECK_PTR(x) check_ptr(x,FPLACE_CODE)
#define CHECK_IMMOB(x) check_immob(x,FPLACE_CODE)
#define CHECK_FIXNUM(x) check_fixnum(x,FPLACE_CODE)
#define CHECK_GVEC(x) check_gvec(x,FPLACE_CODE)
#define CHECK_BVEC(x) check_bvec(x,FPLACE_CODE)
#define CHECK_PAIR(x) check_pair(x,FPLACE_CODE)
#define CHECK_SYMBOL(x) check_symbol(x,FPLACE_CODE)
#define CHECK_VECTOR(x) check_vector(x,FPLACE_CODE)
#define CHECK_FUNCTION(x) check_function(x,FPLACE_CODE)
#define CHECK_CLASS(x) check_class(x,FPLACE_CODE)
#define CHECK_STRING(x) check_string(x,FPLACE_CODE)
#define CHECK_DOUBLE_FLOAT(x) check_double_float(x,FPLACE_CODE)
#define CHECK_LONG_INT(x) check_long_int(x,FPLACE_CODE)
#define CHECK_ASCII_CHAR(x) check_ascii_char(x,FPLACE_CODE)
#define CHECK_UNICODE_CHAR(x) check_unicode_char(x,FPLACE_CODE)
#define CHECK_BOOLEAN(x) check_boolean(x,FPLACE_CODE)
#define CHECK_INSTANCE(x,c) check_instance(x,c,FPLACE_CODE)
#define checked_car(x) pair_car(CHECK_PAIR(x))
#define checked_cdr(x) pair_cdr(CHECK_PAIR(x))
|
