|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T t
Length: 5134 (0x140e)
Types: TextFile
Names: »types.h«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─⟦this⟧ »EUUGD11/gnu-31mar87/scheme/microcode/types.h«
/* Emacs, -*-C-*-an't you guess? */
/****************************************************************
* *
* Copyright (c) 1986 *
* Massachusetts Institute of Technology *
* *
* This material was developed by the Scheme project at the *
* Massachusetts Institute of Technology, Department of *
* Electrical Engineering and Computer Science. Permission to *
* copy this software, to redistribute it, and to use it for any *
* purpose is granted, subject to the following restrictions and *
* understandings. *
* *
* 1. Any copy made of this software must include this copyright *
* notice in full. *
* *
* 2. Users of this software agree to make their best efforts (a)*
* to return to the MIT Scheme project any improvements or *
* extensions that they make, so that these may be included in *
* future releases; and (b) to inform MIT of noteworthy uses of *
* this software. *
* *
* 3. All materials developed as a consequence of the use of *
* this software shall duly acknowledge such use, in accordance *
* with the usual standards of acknowledging credit in academic *
* research. *
* *
* 4. MIT has made no warrantee or representation that the *
* operation of this software will be error-free, and MIT is *
* under no obligation to provide any services, by way of *
* maintenance, update, or otherwise. *
* *
* 5. In conjunction with products arising from the use of this *
* material, there shall be no use of the name of the *
* Massachusetts Institute of Technology nor of any adaptation *
* thereof in any advertising, promotional, or sales literature *
* without prior written consent from MIT in each case. *
* *
****************************************************************/
/* File: TYPES.H
*
* Type code definitions, numerical order
*
*/
\f
#define TC_NULL 0x00
#define TC_FALSE 0x00
/* Pop_Frame, and other things, assume that TC_MANIFEST_VECTOR IS 0 */
#define TC_MANIFEST_VECTOR 0x00
#define GLOBAL_ENV 0x00
#define TC_COMPILED_FRAME_SIZE 0x00
#define TC_COMPILED_FRAME 0x00
#define TC_LIST 0x01
/* #define TC_CHARACTER 0x02 Was 0x40
-- temporarily same as FIXNUM */
#define TC_SCODE_QUOTE 0x03
#define TC_PCOMB2 0x04 /* Was 0x44 */
#define TC_UNINTERNED_SYMBOL 0x05
#define TC_BIG_FLONUM 0x06
#define TC_COMBINATION_1 0x07
#define TC_TRUE 0x08
#define TC_EXTENDED_PROCEDURE 0x09
#define TC_VECTOR 0x0A /* Was 0x46 */
#define TC_RETURN_CODE 0x0B /* Was 0x48 */
#define TC_COMBINATION_2 0x0C
#define TC_COMPILED_PROCEDURE 0x0D /* Was 0x49 */
#define TC_BIG_FIXNUM 0x0E
#define TC_PROCEDURE 0x0F
#define TC_PRIMITIVE_EXTERNAL 0x10
#define TC_DELAY 0x11
#define TC_ENVIRONMENT 0x12 /* Was 0x4E */
#define TC_DELAYED 0x13
#define TC_EXTENDED_LAMBDA 0x14
#define TC_COMMENT 0x15
#define TC_NON_MARKED_VECTOR 0x16
#define TC_LAMBDA 0x17
#define TC_PRIMITIVE 0x18
#define TC_SEQUENCE_2 0x19
\f
#define TC_FIXNUM 0x1A /* Was 0x50 */
#define TC_ADDRESS 0x1A
#define TC_CHARACTER 0x1A /* Temporary */
/* Notice that TC_FIXNUM and TC_ADDRESS are the same */
#define TC_PCOMB1 0x1B
#define TC_CONTROL_POINT 0x1C /* Was 0x56 */
#define TC_INTERNED_SYMBOL 0x1D
#define TC_CHARACTER_STRING 0x1E
#define TC_VECTOR_8B 0x1E
/* VECTOR_8B and STRING are the same */
#define TC_ACCESS 0x1F
#define TC_EXTENDED_FIXNUM 0x20 /* Not used */
#define TC_DEFINITION 0x21
#define TC_BROKEN_HEART 0x22 /* Was 0x58 */
#define TC_ASSIGNMENT 0x23
#define TC_HUNK3 0x24
#define TC_IN_PACKAGE 0x25
#define TC_COMBINATION 0x26 /* Was 0x5E */
#define TC_MANIFEST_NM_VECTOR 0x27 /* Was 0x60 */
#define TC_COMPILED_EXPRESSION 0x28
#define TC_LEXPR 0x29
#define TC_PCOMB3 0x2A /* Was 0x66 */
#define TC_MANIFEST_SPECIAL_NM_VECTOR 0x2B /* Was 0x68 */
#define TC_VARIABLE 0x2C
#define TC_THE_ENVIRONMENT 0x2D /* Was 0x70 */
#define TC_FUTURE 0x2E
#define TC_VECTOR_1B 0x2F /* Was 0x76 */
#define TC_BIT_STRING 0x2F /* Was 0x76 */
/* Notice TC_VECTOR_1B and TC_BIT_STRING are the same */
#define TC_PCOMB0 0x30 /* Was 0x78 */
#define TC_VECTOR_16B 0x31 /* Was 0x7E */
#define TC_UNASSIGNED 0x32 /* Was 0x38 */
#define TC_SEQUENCE_3 0x33 /* Was 0x3C */
#define TC_CONDITIONAL 0x34
#define TC_DISJUNCTION 0x35
#define TC_CELL 0x36