ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/microscheme/opdefines.h
(Generate patch)

Comparing cvsroot/microscheme/opdefines.h (file contents):
Revision 1.4 by root, Thu Nov 26 21:32:16 2015 UTC vs.
Revision 1.12 by root, Mon Nov 30 09:22:42 2015 UTC

1OP_DEF (0, "load", 1, 1, TST_STRING, OP_LOAD) 1OP_DEF (0, "load" , 1, 1 , TST_STRING , OP_LOAD)
2OP_DEF (0, 0, 0, 0, 0, OP_T0LVL) 2OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_T0LVL)
3OP_DEF (0, 0, 0, 0, 0, OP_T1LVL) 3OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_T1LVL)
4OP_DEF (0, 0, 0, 0, 0, OP_READ_INTERNAL) 4OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_READ_INTERNAL)
5OP_DEF (0, "gensym", 0, 0, 0, OP_GENSYM) 5OP_DEF (0, "gensym" , 0, 0 , 0 , OP_GENSYM)
6OP_DEF (0, 0, 0, 0, 0, OP_VALUEPRINT) 6OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_VALUEPRINT)
7OP_DEF (0, 0, 0, 0, 0, OP_EVAL) 7OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_EVAL)
8#if USE_TRACING 8#if USE_TRACING
9OP_DEF (0, 0, 0, 0, 0, OP_REAL_EVAL) 9OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_REAL_EVAL)
10#endif 10#endif
11OP_DEF (0, 0, 0, 0, 0, OP_E0ARGS) 11OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_E0ARGS)
12OP_DEF (0, 0, 0, 0, 0, OP_E1ARGS) 12OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_E1ARGS)
13OP_DEF (0, 0, 0, 0, 0, OP_APPLY) 13OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_APPLY)
14#if USE_TRACING 14#if USE_TRACING
15OP_DEF (0, 0, 0, 0, 0, OP_REAL_APPLY) 15OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_REAL_APPLY)
16OP_DEF (0, "tracing", 1, 1, TST_NATURAL, OP_TRACING) 16OP_DEF (0, "tracing" , 1, 1 , TST_NATURAL , OP_TRACING)
17#endif 17#endif
18OP_DEF (0, 0, 0, 0, 0, OP_DOMACRO) 18OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DOMACRO)
19OP_DEF (0, 0, 0, 0, 0, OP_LAMBDA) 19OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LAMBDA)
20OP_DEF (0, 0, 0, 0, 0, OP_LAMBDA1) 20OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LAMBDA1)
21OP_DEF (0, "make-closure", 1, 2, TST_PAIR TST_ENVIRONMENT, OP_MKCLOSURE) 21OP_DEF (0, "make-closure" , 1, 2 , TST_PAIR TST_ENVIRONMENT , OP_MKCLOSURE)
22OP_DEF (0, 0, 0, 0, 0, OP_QUOTE) 22OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_QUOTE)
23OP_DEF (0, 0, 0, 0, 0, OP_DEF0) 23OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DEF0)
24OP_DEF (0, 0, 0, 0, 0, OP_DEF1) 24OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DEF1)
25OP_DEF (0, "defined?", 1, 2, TST_SYMBOL TST_ENVIRONMENT, OP_DEFP) 25OP_DEF (0, "defined?" , 1, 2 , TST_SYMBOL TST_ENVIRONMENT , OP_DEFP)
26OP_DEF (0, 0, 0, 0, 0, OP_BEGIN) 26OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_BEGIN)
27OP_DEF (0, 0, 0, 0, 0, OP_IF0) 27OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_IF0)
28OP_DEF (0, 0, 0, 0, 0, OP_IF1) 28OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_IF1)
29OP_DEF (0, 0, 0, 0, 0, OP_SET0) 29OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_SET0)
30OP_DEF (0, 0, 0, 0, 0, OP_SET1) 30OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_SET1)
31OP_DEF (0, 0, 0, 0, 0, OP_LET0) 31OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET0)
32OP_DEF (0, 0, 0, 0, 0, OP_LET1) 32OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET1)
33OP_DEF (0, 0, 0, 0, 0, OP_LET2) 33OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET2)
34OP_DEF (0, 0, 0, 0, 0, OP_LET0AST) 34OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET0AST)
35OP_DEF (0, 0, 0, 0, 0, OP_LET1AST) 35OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET1AST)
36OP_DEF (0, 0, 0, 0, 0, OP_LET2AST) 36OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET2AST)
37OP_DEF (0, 0, 0, 0, 0, OP_LET0REC) 37OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET0REC)
38OP_DEF (0, 0, 0, 0, 0, OP_LET1REC) 38OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET1REC)
39OP_DEF (0, 0, 0, 0, 0, OP_LET2REC) 39OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_LET2REC)
40OP_DEF (0, 0, 0, 0, 0, OP_COND0) 40OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_COND0)
41OP_DEF (0, 0, 0, 0, 0, OP_COND1) 41OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_COND1)
42OP_DEF (0, 0, 0, 0, 0, OP_DELAY) 42OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_DELAY)
43OP_DEF (0, 0, 0, 0, 0, OP_AND0) 43OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_AND0)
44OP_DEF (0, 0, 0, 0, 0, OP_AND1) 44OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_AND1)
45OP_DEF (0, 0, 0, 0, 0, OP_OR0) 45OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_OR0)
46OP_DEF (0, 0, 0, 0, 0, OP_OR1) 46OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_OR1)
47OP_DEF (0, 0, 0, 0, 0, OP_C0STREAM) 47OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_C0STREAM)
48OP_DEF (0, 0, 0, 0, 0, OP_C1STREAM) 48OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_C1STREAM)
49OP_DEF (0, 0, 0, 0, 0, OP_MACRO0) 49OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_MACRO0)
50OP_DEF (0, 0, 0, 0, 0, OP_MACRO1) 50OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_MACRO1)
51OP_DEF (0, 0, 0, 0, 0, OP_CASE0) 51OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_CASE0)
52OP_DEF (0, 0, 0, 0, 0, OP_CASE1) 52OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_CASE1)
53OP_DEF (0, 0, 0, 0, 0, OP_CASE2) 53OP_DEF (0, UNNAMED_OP , 0, 0 , 0 , OP_CASE2)
54OP_DEF (0, "eval", 1, 2, TST_ANY TST_ENVIRONMENT, OP_PEVAL) 54OP_DEF (0, "eval" , 1, 2 , TST_ANY TST_ENVIRONMENT , OP_PEVAL)
55OP_DEF (0, "apply", 1, INF_ARG, TST_NONE, OP_PAPPLY) 55OP_DEF (0, "apply" , 1, INF_ARG, TST_NONE , OP_PAPPLY)
56OP_DEF (0, "call-with-current-continuation", 1, 1, TST_NONE, OP_CONTINUATION) 56OP_DEF (0, "call-with-current-continuation", 1, 1 , TST_NONE , OP_CONTINUATION)
57#if USE_MATH 57#if USE_MATH
58OP_DEF (2, "inexact->exact", 1, 1, TST_NUMBER, OP_INEX2EX) 58OP_DEF (1, "inexact->exact" , 1, 1 , TST_NUMBER , OP_INEX2EX)
59OP_DEF (2, "exp", 1, 1, TST_NUMBER, OP_EXP) 59OP_DEF (7, "exp" , 1, 1 , TST_NUMBER , OP_EXP)
60OP_DEF (2, "log", 1, 1, TST_NUMBER, OP_LOG) 60OP_DEF (7, "log" , 1, 1 , TST_NUMBER , OP_LOG)
61OP_DEF (2, "sin", 1, 1, TST_NUMBER, OP_SIN) 61OP_DEF (7, "sin" , 1, 1 , TST_NUMBER , OP_SIN)
62OP_DEF (2, "cos", 1, 1, TST_NUMBER, OP_COS) 62OP_DEF (7, "cos" , 1, 1 , TST_NUMBER , OP_COS)
63OP_DEF (2, "tan", 1, 1, TST_NUMBER, OP_TAN) 63OP_DEF (7, "tan" , 1, 1 , TST_NUMBER , OP_TAN)
64OP_DEF (2, "asin", 1, 1, TST_NUMBER, OP_ASIN) 64OP_DEF (7, "asin" , 1, 1 , TST_NUMBER , OP_ASIN)
65OP_DEF (2, "acos", 1, 1, TST_NUMBER, OP_ACOS) 65OP_DEF (7, "acos" , 1, 1 , TST_NUMBER , OP_ACOS)
66OP_DEF (2, "atan", 1, 2, TST_NUMBER, OP_ATAN) 66OP_DEF (1, "atan" , 1, 2 , TST_NUMBER , OP_ATAN)
67OP_DEF (2, "sqrt", 1, 1, TST_NUMBER, OP_SQRT) 67OP_DEF (1, "sqrt" , 1, 1 , TST_NUMBER , OP_SQRT)
68OP_DEF (2, "expt", 2, 2, TST_NUMBER, OP_EXPT) 68OP_DEF (1, "expt" , 2, 2 , TST_NUMBER , OP_EXPT)
69OP_DEF (2, "floor", 1, 1, TST_NUMBER, OP_FLOOR) 69OP_DEF (1, "floor" , 1, 1 , TST_NUMBER , OP_FLOOR)
70OP_DEF (2, "ceiling", 1, 1, TST_NUMBER, OP_CEILING) 70OP_DEF (1, "ceiling" , 1, 1 , TST_NUMBER , OP_CEILING)
71OP_DEF (2, "truncate", 1, 1, TST_NUMBER, OP_TRUNCATE) 71OP_DEF (1, "truncate" , 1, 1 , TST_NUMBER , OP_TRUNCATE)
72OP_DEF (2, "round", 1, 1, TST_NUMBER, OP_ROUND) 72OP_DEF (1, "round" , 1, 1 , TST_NUMBER , OP_ROUND)
73#endif 73#endif
74OP_DEF (2, "+", 0, INF_ARG, TST_NUMBER, OP_ADD) 74OP_DEF (1, "+" , 0, INF_ARG, TST_NUMBER , OP_ADD)
75OP_DEF (2, "-", 1, INF_ARG, TST_NUMBER, OP_SUB) 75OP_DEF (1, "-" , 1, INF_ARG, TST_NUMBER , OP_SUB)
76OP_DEF (2, "*", 0, INF_ARG, TST_NUMBER, OP_MUL) 76OP_DEF (1, "*" , 0, INF_ARG, TST_NUMBER , OP_MUL)
77OP_DEF (2, "/", 1, INF_ARG, TST_NUMBER, OP_DIV) 77OP_DEF (1, "/" , 1, INF_ARG, TST_NUMBER , OP_DIV)
78OP_DEF (2, "quotient", 1, INF_ARG, TST_INTEGER, OP_INTDIV) 78OP_DEF (1, "quotient" , 1, INF_ARG, TST_INTEGER , OP_INTDIV)
79OP_DEF (2, "remainder", 2, 2, TST_INTEGER, OP_REM) 79OP_DEF (1, "remainder" , 2, 2 , TST_INTEGER , OP_REM)
80OP_DEF (2, "modulo", 2, 2, TST_INTEGER, OP_MOD) 80OP_DEF (1, "modulo" , 2, 2 , TST_INTEGER , OP_MOD)
81OP_DEF (2, "car", 1, 1, TST_PAIR, OP_CAR) 81OP_DEF (1, "car" , 1, 1 , TST_PAIR , OP_CAR)
82OP_DEF (2, "cdr", 1, 1, TST_PAIR, OP_CDR) 82OP_DEF (1, "cdr" , 1, 1 , TST_PAIR , OP_CDR)
83OP_DEF (2, "cons", 2, 2, TST_NONE, OP_CONS) 83OP_DEF (1, "caar" , 1, 1 , TST_PAIR , OP_CAAR)
84OP_DEF (1, "cadr" , 1, 1 , TST_PAIR , OP_CADR)
85OP_DEF (1, "cdar" , 1, 1 , TST_PAIR , OP_CDAR)
86OP_DEF (1, "cddr" , 1, 1 , TST_PAIR , OP_CDDR)
87OP_DEF (1, "caaar" , 1, 1 , TST_PAIR , OP_CAAAR)
88OP_DEF (1, "caadr" , 1, 1 , TST_PAIR , OP_CAADR)
89OP_DEF (1, "cadar" , 1, 1 , TST_PAIR , OP_CADAR)
90OP_DEF (1, "caddr" , 1, 1 , TST_PAIR , OP_CADDR)
91OP_DEF (1, "cdaar" , 1, 1 , TST_PAIR , OP_CDAAR)
92OP_DEF (1, "cdadr" , 1, 1 , TST_PAIR , OP_CDADR)
93OP_DEF (1, "cddar" , 1, 1 , TST_PAIR , OP_CDDAR)
94OP_DEF (1, "cdddr" , 1, 1 , TST_PAIR , OP_CDDDR)
95OP_DEF (1, "caaaar" , 1, 1 , TST_PAIR , OP_CAAAAR)
96OP_DEF (1, "caaadr" , 1, 1 , TST_PAIR , OP_CAAADR)
97OP_DEF (1, "caadar" , 1, 1 , TST_PAIR , OP_CAADAR)
98OP_DEF (1, "caaddr" , 1, 1 , TST_PAIR , OP_CAADDR)
99OP_DEF (1, "cadaar" , 1, 1 , TST_PAIR , OP_CADAAR)
100OP_DEF (1, "cadadr" , 1, 1 , TST_PAIR , OP_CADADR)
101OP_DEF (1, "caddar" , 1, 1 , TST_PAIR , OP_CADDAR)
102OP_DEF (1, "cadddr" , 1, 1 , TST_PAIR , OP_CADDDR)
103OP_DEF (1, "cdaaar" , 1, 1 , TST_PAIR , OP_CDAAAR)
104OP_DEF (1, "cdaadr" , 1, 1 , TST_PAIR , OP_CDAADR)
105OP_DEF (1, "cdadar" , 1, 1 , TST_PAIR , OP_CDADAR)
106OP_DEF (1, "cdaddr" , 1, 1 , TST_PAIR , OP_CDADDR)
107OP_DEF (1, "cddaar" , 1, 1 , TST_PAIR , OP_CDDAAR)
108OP_DEF (1, "cddadr" , 1, 1 , TST_PAIR , OP_CDDADR)
109OP_DEF (1, "cdddar" , 1, 1 , TST_PAIR , OP_CDDDAR)
110OP_DEF (1, "cddddr" , 1, 1 , TST_PAIR , OP_CDDDDR)
111OP_DEF (1, "cons" , 2, 2 , TST_NONE , OP_CONS)
84OP_DEF (2, "set-car!", 2, 2, TST_PAIR TST_ANY, OP_SETCAR) 112OP_DEF (1, "set-car!" , 2, 2 , TST_PAIR TST_ANY , OP_SETCAR)
85OP_DEF (2, "set-cdr!", 2, 2, TST_PAIR TST_ANY, OP_SETCDR) 113OP_DEF (1, "set-cdr!" , 2, 2 , TST_PAIR TST_ANY , OP_SETCDR)
86OP_DEF (2, "char->integer", 1, 1, TST_CHAR, OP_CHAR2INT) 114OP_DEF (1, "char->integer" , 1, 1 , TST_CHAR , OP_CHAR2INT)
87OP_DEF (2, "integer->char", 1, 1, TST_NATURAL, OP_INT2CHAR) 115OP_DEF (1, "integer->char" , 1, 1 , TST_NATURAL , OP_INT2CHAR)
88OP_DEF (2, "char-upcase", 1, 1, TST_CHAR, OP_CHARUPCASE) 116OP_DEF (1, "char-upcase" , 1, 1 , TST_CHAR , OP_CHARUPCASE)
89OP_DEF (2, "char-downcase", 1, 1, TST_CHAR, OP_CHARDNCASE) 117OP_DEF (1, "char-downcase" , 1, 1 , TST_CHAR , OP_CHARDNCASE)
90OP_DEF (2, "symbol->string", 1, 1, TST_SYMBOL, OP_SYM2STR) 118OP_DEF (1, "symbol->string" , 1, 1 , TST_SYMBOL , OP_SYM2STR)
91OP_DEF (2, "atom->string", 1, 2, TST_ANY TST_NATURAL, OP_ATOM2STR) 119OP_DEF (1, "atom->string" , 1, 2 , TST_ANY TST_NATURAL , OP_ATOM2STR)
92OP_DEF (2, "string->symbol", 1, 1, TST_STRING, OP_STR2SYM) 120OP_DEF (1, "string->symbol" , 1, 1 , TST_STRING , OP_STR2SYM)
93OP_DEF (2, "string->atom", 1, 2, TST_STRING TST_NATURAL, OP_STR2ATOM) 121OP_DEF (1, "string->atom" , 1, 2 , TST_STRING TST_NATURAL , OP_STR2ATOM)
94OP_DEF (2, "make-string", 1, 2, TST_NATURAL TST_CHAR, OP_MKSTRING) 122OP_DEF (1, "make-string" , 1, 2 , TST_NATURAL TST_CHAR , OP_MKSTRING)
95OP_DEF (2, "string-length", 1, 1, TST_STRING, OP_STRLEN) 123OP_DEF (1, "string-length" , 1, 1 , TST_STRING , OP_STRLEN)
96OP_DEF (2, "string-ref", 2, 2, TST_STRING TST_NATURAL, OP_STRREF) 124OP_DEF (1, "string-ref" , 2, 2 , TST_STRING TST_NATURAL , OP_STRREF)
97OP_DEF (2, "string-set!", 3, 3, TST_STRING TST_NATURAL TST_CHAR, OP_STRSET) 125OP_DEF (1, "string-set!" , 3, 3 , TST_STRING TST_NATURAL TST_CHAR, OP_STRSET)
98OP_DEF (2, "string-append", 0, INF_ARG, TST_STRING, OP_STRAPPEND) 126OP_DEF (1, "string-append" , 0, INF_ARG, TST_STRING , OP_STRAPPEND)
99OP_DEF (2, "substring", 2, 3, TST_STRING TST_NATURAL, OP_SUBSTR) 127OP_DEF (1, "substring" , 2, 3 , TST_STRING TST_NATURAL , OP_SUBSTR)
100OP_DEF (2, "vector", 0, INF_ARG, TST_NONE, OP_VECTOR) 128OP_DEF (1, "vector" , 0, INF_ARG, TST_NONE , OP_VECTOR)
101OP_DEF (2, "make-vector", 1, 2, TST_NATURAL TST_ANY, OP_MKVECTOR) 129OP_DEF (1, "make-vector" , 1, 2 , TST_NATURAL TST_ANY , OP_MKVECTOR)
102OP_DEF (2, "vector-length", 1, 1, TST_VECTOR, OP_VECLEN) 130OP_DEF (1, "vector-length" , 1, 1 , TST_VECTOR , OP_VECLEN)
131OP_DEF (1, "vector-resize" , 2, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECRESIZE)
103OP_DEF (2, "vector-ref", 2, 2, TST_VECTOR TST_NATURAL, OP_VECREF) 132OP_DEF (1, "vector-ref" , 2, 2 , TST_VECTOR TST_NATURAL , OP_VECREF)
104OP_DEF (2, "vector-set!", 3, 3, TST_VECTOR TST_NATURAL TST_ANY, OP_VECSET) 133OP_DEF (1, "vector-set!" , 3, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECSET)
105OP_DEF (r, "=", 2, INF_ARG, TST_NUMBER, OP_NUMEQ) 134OP_DEF (2, "=" , 2, INF_ARG, TST_NUMBER , OP_NUMEQ)
106OP_DEF (r, "<", 2, INF_ARG, TST_NUMBER, OP_LESS) 135OP_DEF (2, "<" , 2, INF_ARG, TST_NUMBER , OP_LESS)
107OP_DEF (r, ">", 2, INF_ARG, TST_NUMBER, OP_GRE) 136OP_DEF (2, ">" , 2, INF_ARG, TST_NUMBER , OP_GRE)
108OP_DEF (r, "<=", 2, INF_ARG, TST_NUMBER, OP_LEQ) 137OP_DEF (2, "<=" , 2, INF_ARG, TST_NUMBER , OP_LEQ)
109OP_DEF (r, ">=", 2, INF_ARG, TST_NUMBER, OP_GEQ) 138OP_DEF (2, ">=" , 2, INF_ARG, TST_NUMBER , OP_GEQ)
110OP_DEF (3, "not", 1, 1, TST_NONE, OP_NOT) 139OP_DEF (3, "not" , 1, 1 , TST_NONE , OP_NOT)
111OP_DEF (3, "boolean?", 1, 1, TST_NONE, OP_BOOLP) 140OP_DEF (3, "boolean?" , 1, 1 , TST_NONE , OP_BOOLP)
112OP_DEF (3, "eof-object?", 1, 1, TST_NONE, OP_EOFOBJP) 141OP_DEF (3, "eof-object?" , 1, 1 , TST_NONE , OP_EOFOBJP)
113OP_DEF (3, "null?", 1, 1, TST_NONE, OP_NULLP) 142OP_DEF (3, "null?" , 1, 1 , TST_NONE , OP_NULLP)
114OP_DEF (3, "symbol?", 1, 1, TST_ANY, OP_SYMBOLP) 143OP_DEF (3, "gensym?" , 1, 1 , TST_ANY , OP_GENSYMP)
115OP_DEF (3, "number?", 1, 1, TST_ANY, OP_NUMBERP) 144OP_DEF (3, "symbol?" , 1, 1 , TST_ANY , OP_SYMBOLP)
116OP_DEF (3, "string?", 1, 1, TST_ANY, OP_STRINGP) 145OP_DEF (3, "number?" , 1, 1 , TST_ANY , OP_NUMBERP)
117OP_DEF (3, "integer?", 1, 1, TST_ANY, OP_INTEGERP) 146OP_DEF (3, "string?" , 1, 1 , TST_ANY , OP_STRINGP)
118OP_DEF (3, "real?", 1, 1, TST_ANY, OP_REALP) 147OP_DEF (3, "integer?" , 1, 1 , TST_ANY , OP_INTEGERP)
119OP_DEF (3, "char?", 1, 1, TST_ANY, OP_CHARP) 148OP_DEF (3, "real?" , 1, 1 , TST_ANY , OP_REALP)
149OP_DEF (3, "char?" , 1, 1 , TST_ANY , OP_CHARP)
120#if USE_CHAR_CLASSIFIERS 150#if USE_CHAR_CLASSIFIERS
121OP_DEF (3, "char-alphabetic?", 1, 1, TST_CHAR, OP_CHARAP) 151OP_DEF (3, "char-alphabetic?" , 1, 1 , TST_CHAR , OP_CHARAP)
122OP_DEF (3, "char-numeric?", 1, 1, TST_CHAR, OP_CHARNP) 152OP_DEF (3, "char-numeric?" , 1, 1 , TST_CHAR , OP_CHARNP)
123OP_DEF (3, "char-whitespace?", 1, 1, TST_CHAR, OP_CHARWP) 153OP_DEF (3, "char-whitespace?" , 1, 1 , TST_CHAR , OP_CHARWP)
124OP_DEF (3, "char-upper-case?", 1, 1, TST_CHAR, OP_CHARUP) 154OP_DEF (3, "char-upper-case?" , 1, 1 , TST_CHAR , OP_CHARUP)
125OP_DEF (3, "char-lower-case?", 1, 1, TST_CHAR, OP_CHARLP) 155OP_DEF (3, "char-lower-case?" , 1, 1 , TST_CHAR , OP_CHARLP)
126#endif 156#endif
127#if USE_PORTS 157#if USE_PORTS
128OP_DEF (3, "port?", 1, 1, TST_ANY, OP_PORTP) 158OP_DEF (3, "port?" , 1, 1 , TST_ANY , OP_PORTP)
129OP_DEF (3, "input-port?", 1, 1, TST_ANY, OP_INPORTP) 159OP_DEF (3, "input-port?" , 1, 1 , TST_ANY , OP_INPORTP)
130OP_DEF (3, "output-port?", 1, 1, TST_ANY, OP_OUTPORTP) 160OP_DEF (3, "output-port?" , 1, 1 , TST_ANY , OP_OUTPORTP)
131#endif 161#endif
132OP_DEF (3, "procedure?", 1, 1, TST_ANY, OP_PROCP) 162OP_DEF (3, "procedure?" , 1, 1 , TST_ANY , OP_PROCP)
133OP_DEF (3, "pair?", 1, 1, TST_ANY, OP_PAIRP) 163OP_DEF (3, "pair?" , 1, 1 , TST_ANY , OP_PAIRP)
134OP_DEF (3, "list?", 1, 1, TST_ANY, OP_LISTP) 164OP_DEF (3, "list?" , 1, 1 , TST_ANY , OP_LISTP)
135OP_DEF (3, "environment?", 1, 1, TST_ANY, OP_ENVP) 165OP_DEF (3, "environment?" , 1, 1 , TST_ANY , OP_ENVP)
136OP_DEF (3, "vector?", 1, 1, TST_ANY, OP_VECTORP) 166OP_DEF (3, "vector?" , 1, 1 , TST_ANY , OP_VECTORP)
137OP_DEF (3, "eq?", 2, 2, TST_ANY, OP_EQ) 167OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ)
138OP_DEF (3, "eqv?", 2, 2, TST_ANY, OP_EQV) 168OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV)
139OP_DEF (4, "force", 1, 1, TST_ANY, OP_FORCE) 169OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE)
140OP_DEF (4, 0, 0, 0, 0, OP_SAVE_FORCED) 170OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED)
141#if USE_PORTS 171#if USE_PORTS
142OP_DEF (4, "write", 1, 2, TST_ANY TST_OUTPORT, OP_WRITE) 172OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE)
143OP_DEF (4, "write-char", 1, 2, TST_CHAR TST_OUTPORT, OP_WRITE_CHAR) 173OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR)
144OP_DEF (4, "display", 1, 2, TST_ANY TST_OUTPORT, OP_DISPLAY) 174OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY)
145OP_DEF (4, "newline", 0, 1, TST_OUTPORT, OP_NEWLINE) 175OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE)
146#endif 176#endif
147OP_DEF (4, "error", 1, INF_ARG, TST_NONE, OP_ERR0) 177OP_DEF (4, "error" , 1, INF_ARG, TST_NONE , OP_ERR0)
148OP_DEF (4, 0, 0, 0, 0, OP_ERR1) 178OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_ERR1)
149OP_DEF (4, "reverse", 1, 1, TST_LIST, OP_REVERSE) 179OP_DEF (4, "reverse" , 1, 1 , TST_LIST , OP_REVERSE)
150OP_DEF (4, "list*", 1, INF_ARG, TST_NONE, OP_LIST_STAR) 180OP_DEF (4, "list*" , 1, INF_ARG, TST_NONE , OP_LIST_STAR)
151OP_DEF (4, "append", 0, INF_ARG, TST_NONE, OP_APPEND) 181OP_DEF (4, "append" , 0, INF_ARG, TST_NONE , OP_APPEND)
152#if USE_PLIST 182#if USE_PLIST
153OP_DEF (4, "put", 3, 3, TST_NONE, OP_PUT) 183OP_DEF (4, "put" , 3, 3 , TST_NONE , OP_PUT)
154OP_DEF (4, "get", 2, 2, TST_NONE, OP_GET) 184OP_DEF (4, "get" , 2, 2 , TST_NONE , OP_GET)
155#endif 185#endif
156OP_DEF (4, "quit", 0, 1, TST_NUMBER, OP_QUIT) 186OP_DEF (4, "quit" , 0, 1 , TST_NUMBER , OP_QUIT)
157OP_DEF (4, "gc", 0, 0, 0, OP_GC) 187OP_DEF (4, "gc" , 0, 0 , 0 , OP_GC)
158OP_DEF (4, "gc-verbose", 0, 1, TST_NONE, OP_GCVERB) 188OP_DEF (4, "gc-verbose" , 0, 1 , TST_NONE , OP_GCVERB)
159OP_DEF (4, "new-segment", 0, 1, TST_NUMBER, OP_NEWSEGMENT) 189OP_DEF (4, "new-segment" , 0, 1 , TST_NUMBER , OP_NEWSEGMENT)
160OP_DEF (4, "oblist", 0, 0, 0, OP_OBLIST) 190OP_DEF (4, "oblist" , 0, 0 , 0 , OP_OBLIST)
161#if USE_PORTS 191#if USE_PORTS
162OP_DEF (4, "current-input-port", 0, 0, 0, OP_CURR_INPORT) 192OP_DEF (4, "current-input-port" , 0, 0 , 0 , OP_CURR_INPORT)
163OP_DEF (4, "current-output-port", 0, 0, 0, OP_CURR_OUTPORT) 193OP_DEF (4, "current-output-port" , 0, 0 , 0 , OP_CURR_OUTPORT)
164OP_DEF (4, "open-input-file", 1, 1, TST_STRING, OP_OPEN_INFILE) 194OP_DEF (4, "open-input-file" , 1, 1 , TST_STRING , OP_OPEN_INFILE)
165OP_DEF (4, "open-output-file", 1, 1, TST_STRING, OP_OPEN_OUTFILE) 195OP_DEF (4, "open-output-file" , 1, 1 , TST_STRING , OP_OPEN_OUTFILE)
166OP_DEF (4, "open-input-output-file", 1, 1, TST_STRING, OP_OPEN_INOUTFILE) 196OP_DEF (4, "open-input-output-file", 1, 1 , TST_STRING , OP_OPEN_INOUTFILE)
167# if USE_STRING_PORTS 197# if USE_STRING_PORTS
168OP_DEF (4, "open-input-string", 1, 1, TST_STRING, OP_OPEN_INSTRING) 198OP_DEF (4, "open-input-string" , 1, 1 , TST_STRING , OP_OPEN_INSTRING)
169OP_DEF (4, "open-input-output-string", 1, 1, TST_STRING, OP_OPEN_INOUTSTRING) 199OP_DEF (4, "open-input-output-string",1,1 , TST_STRING , OP_OPEN_INOUTSTRING)
170OP_DEF (4, "open-output-string", 0, 1, TST_STRING, OP_OPEN_OUTSTRING) 200OP_DEF (4, "open-output-string" , 0, 1 , TST_STRING , OP_OPEN_OUTSTRING)
171OP_DEF (4, "get-output-string", 1, 1, TST_OUTPORT, OP_GET_OUTSTRING) 201OP_DEF (4, "get-output-string" , 1, 1 , TST_OUTPORT , OP_GET_OUTSTRING)
172# endif 202# endif
173OP_DEF (4, "close-input-port", 1, 1, TST_INPORT, OP_CLOSE_INPORT) 203OP_DEF (4, "close-input-port" , 1, 1 , TST_INPORT , OP_CLOSE_INPORT)
174OP_DEF (4, "close-output-port", 1, 1, TST_OUTPORT, OP_CLOSE_OUTPORT) 204OP_DEF (4, "close-output-port" , 1, 1 , TST_OUTPORT , OP_CLOSE_OUTPORT)
175#endif 205#endif
176OP_DEF (4, "interaction-environment", 0, 0, 0, OP_INT_ENV) 206OP_DEF (4, "interaction-environment",0, 0 , 0 , OP_INT_ENV)
177OP_DEF (4, "current-environment", 0, 0, 0, OP_CURR_ENV) 207OP_DEF (4, "current-environment" , 0, 0 , 0 , OP_CURR_ENV)
178#if USE_PORTS 208#if USE_PORTS
179OP_DEF (5, "read", 0, 1, TST_INPORT, OP_READ) 209OP_DEF (5, "read" , 0, 1 , TST_INPORT , OP_READ)
180OP_DEF (5, "read-char", 0, 1, TST_INPORT, OP_READ_CHAR) 210OP_DEF (5, "read-char" , 0, 1 , TST_INPORT , OP_READ_CHAR)
181OP_DEF (5, "peek-char", 0, 1, TST_INPORT, OP_PEEK_CHAR) 211OP_DEF (5, "peek-char" , 0, 1 , TST_INPORT , OP_PEEK_CHAR)
182OP_DEF (5, "char-ready?", 0, 1, TST_INPORT, OP_CHAR_READY) 212OP_DEF (5, "char-ready?" , 0, 1 , TST_INPORT , OP_CHAR_READY)
183OP_DEF (5, "set-input-port", 1, 1, TST_INPORT, OP_SET_INPORT) 213OP_DEF (5, "set-input-port" , 1, 1 , TST_INPORT , OP_SET_INPORT)
184OP_DEF (5, "set-output-port", 1, 1, TST_OUTPORT, OP_SET_OUTPORT) 214OP_DEF (5, "set-output-port" , 1, 1 , TST_OUTPORT , OP_SET_OUTPORT)
185#endif 215#endif
186OP_DEF (5, 0, 0, 0, 0, OP_RDSEXPR) 216OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDSEXPR)
187OP_DEF (5, 0, 0, 0, 0, OP_RDLIST) 217OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDLIST)
188OP_DEF (5, 0, 0, 0, 0, OP_RDDOT) 218OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDDOT)
189OP_DEF (5, 0, 0, 0, 0, OP_RDQUOTE) 219OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDQUOTE)
190OP_DEF (5, 0, 0, 0, 0, OP_RDQQUOTE) 220OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDQQUOTE)
191OP_DEF (5, 0, 0, 0, 0, OP_RDQQUOTEVEC) 221OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDQQUOTEVEC)
192OP_DEF (5, 0, 0, 0, 0, OP_RDUNQUOTE) 222OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDUNQUOTE)
193OP_DEF (5, 0, 0, 0, 0, OP_RDUQTSP) 223OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDUQTSP)
194OP_DEF (5, 0, 0, 0, 0, OP_RDVEC) 224OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_RDVEC)
195OP_DEF (5, 0, 0, 0, 0, OP_P0LIST) 225OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_P0LIST)
196OP_DEF (5, 0, 0, 0, 0, OP_P1LIST) 226OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_P1LIST)
197OP_DEF (5, 0, 0, 0, 0, OP_PVECFROM) 227OP_DEF (5, UNNAMED_OP , 0, 0 , 0 , OP_PVECFROM)
198OP_DEF (6, "length", 1, 1, TST_LIST, OP_LIST_LENGTH) 228OP_DEF (6, "length" , 1, 1 , TST_LIST , OP_LIST_LENGTH)
199OP_DEF (6, "assq", 2, 2, TST_NONE, OP_ASSQ) 229OP_DEF (6, "assq" , 2, 2 , TST_NONE , OP_ASSQ)
200OP_DEF (6, "get-closure-code", 1, 1, TST_NONE, OP_GET_CLOSURE) 230OP_DEF (6, "get-closure-code" , 1, 1 , TST_NONE , OP_GET_CLOSURE)
201OP_DEF (6, "closure?", 1, 1, TST_NONE, OP_CLOSUREP) 231OP_DEF (6, "closure?" , 1, 1 , TST_NONE , OP_CLOSUREP)
202OP_DEF (6, "macro?", 1, 1, TST_NONE, OP_MACROP) 232OP_DEF (6, "macro?" , 1, 1 , TST_NONE , OP_MACROP)
233
234OP_DEF (0, "debug" , 1, 1 , TST_NONE , OP_DEBUG)//D
235

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines