… | |
… | |
122 | OP_DEF (1, "make-string" , 1, 2 , TST_NATURAL TST_CHAR , OP_MKSTRING) |
122 | OP_DEF (1, "make-string" , 1, 2 , TST_NATURAL TST_CHAR , OP_MKSTRING) |
123 | OP_DEF (1, "string-length" , 1, 1 , TST_STRING , OP_STRLEN) |
123 | OP_DEF (1, "string-length" , 1, 1 , TST_STRING , OP_STRLEN) |
124 | OP_DEF (1, "string-ref" , 2, 2 , TST_STRING TST_NATURAL , OP_STRREF) |
124 | OP_DEF (1, "string-ref" , 2, 2 , TST_STRING TST_NATURAL , OP_STRREF) |
125 | OP_DEF (1, "string-set!" , 3, 3 , TST_STRING TST_NATURAL TST_CHAR, OP_STRSET) |
125 | OP_DEF (1, "string-set!" , 3, 3 , TST_STRING TST_NATURAL TST_CHAR, OP_STRSET) |
126 | OP_DEF (1, "string-append" , 0, INF_ARG, TST_STRING , OP_STRAPPEND) |
126 | OP_DEF (1, "string-append" , 0, INF_ARG, TST_STRING , OP_STRAPPEND) |
127 | OP_DEF (1, "substring" , 2, 3 , TST_STRING TST_NATURAL , OP_SUBSTR) |
127 | OP_DEF (1, "string-copy" , 1, 3 , TST_STRING TST_NATURAL , OP_STRING_COPY) |
128 | OP_DEF (1, "vector" , 0, INF_ARG, TST_NONE , OP_VECTOR) |
128 | OP_DEF (1, "vector" , 0, INF_ARG, TST_NONE , OP_VECTOR) |
129 | OP_DEF (1, "make-vector" , 1, 2 , TST_NATURAL TST_ANY , OP_MKVECTOR) |
129 | OP_DEF (1, "make-vector" , 1, 2 , TST_NATURAL TST_ANY , OP_MKVECTOR) |
130 | OP_DEF (1, "vector-length" , 1, 1 , TST_VECTOR , OP_VECLEN) |
130 | OP_DEF (1, "vector-length" , 1, 1 , TST_VECTOR , OP_VECLEN) |
131 | OP_DEF (1, "vector-resize" , 2, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECRESIZE) |
131 | OP_DEF (1, "vector-resize" , 2, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECRESIZE) |
132 | OP_DEF (1, "vector-ref" , 2, 2 , TST_VECTOR TST_NATURAL , OP_VECREF) |
132 | OP_DEF (1, "vector-ref" , 2, 2 , TST_VECTOR TST_NATURAL , OP_VECREF) |
… | |
… | |
167 | OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ) |
167 | OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ) |
168 | OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV) |
168 | OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV) |
169 | OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE) |
169 | OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE) |
170 | OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED) |
170 | OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED) |
171 | #if USE_PORTS |
171 | #if USE_PORTS |
|
|
172 | OP_DEF (4, "eof-object" , 0, 0 , 0 , OP_EOF_OBJECT) |
172 | OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE) |
173 | OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE) |
173 | OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR) |
174 | OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR) |
174 | OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY) |
175 | OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY) |
175 | OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE) |
176 | OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE) |
176 | #endif |
177 | #endif |