File: chektype.h

package info (click to toggle)
rscheme 0.7.2-1.1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 10,672 kB
  • ctags: 12,430
  • sloc: lisp: 37,104; ansic: 29,763; cpp: 2,630; sh: 1,677; makefile: 568; yacc: 202; lex: 175; perl: 33
file content (52 lines) | stat: -rw-r--r-- 2,561 bytes parent folder | download | duplicates (4)
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))