DataMuseum.dk

top - download

    Length: 3501 (0xdad)
    Types: TextFile
    Names: »gprims.scm.5«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/scheme/scm/gprims.scm.5« 

TextFile

;;; -*-Scheme-*-
;;;
;;;	Copyright (c) 1984 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.
;;;

;;;; Global Primitives List

(declare (usual-integrations))
\f


;;; This is the list of all primitives that are defined in the global
;;; environment, for use by the compiler.

(define global-primitive-operators
  '(APPLY SCODE-EVAL FORCE WITH-THREADED-CONTINUATION
	  SET-INTERRUPT-ENABLES! WITH-INTERRUPT-MASK
	  GET-FIXED-OBJECTS-VECTOR WITH-HISTORY-DISABLED
	  PRIMITIVE-PROCEDURE-ARITY NOT FALSE?

	  ;; Environment
	  LEXICAL-REFERENCE LEXICAL-ASSIGNMENT LOCAL-ASSIGNMENT
	  LEXICAL-UNASSIGNED? LEXICAL-UNBOUND? LEXICAL-UNREFERENCEABLE?

	  ;; Pointers
	  EQ?
	  PRIMITIVE-SET-TYPE MAKE-NON-POINTER-OBJECT
	  PRIMITIVE-TYPE? PRIMITIVE-TYPE PRIMITIVE-DATUM
	  OBJECT-DANGEROUS? MAKE-OBJECT-SAFE MAKE-OBJECT-DANGEROUS
	  OBJECT-HASH OBJECT-UNHASH

	  ;; Numbers
	  ZERO? POSITIVE? NEGATIVE? 1+ -1+
	  INTEGER-DIVIDE INTEGER-DIVIDE-QUOTIENT INTEGER-DIVIDE-REMAINDER
	  TRUNCATE ROUND FLOOR CEILING
	  SQRT EXP LOG SIN COS 

	  ;; Basic Compound Datatypes
	  CONS PAIR? CAR CDR SET-CAR! SET-CDR! GENERAL-CAR-CDR
	  NULL? LENGTH MEMQ ASSQ FIRST

	  VECTOR-CONS VECTOR-SIZE VECTOR-REF VECTOR-SET!
	  LIST->VECTOR SUBVECTOR->LIST

	  ;; Strings
	  MAKE-EMPTY-STRING MAKE-FILLED-STRING
	  STRING-SIZE STRING-REF STRING-SET!
	  STRING-EQUAL? STRING-LESS?
	  STRING-POSITION SUBSTRING-SEARCH
	  SUBSTRING INSERT-STRING
	  INSERT-STRING! TRUNCATE-STRING!
	  STRING-UPCASE LIST->STRING
	  CHARACTER-UPCASE CHARACTER-EQUAL?

	  ;; Bit Vectors
	  VECTOR-1B-CONS VECTOR-1B? VECTOR-1B-SIZE VECTOR-1B-REF
	  VECTOR-1B-SET! VECTOR-1B-SET-FALSE! VECTOR-1B-SET-TRUE!

	  ;; System Compound Datatypes
	  SYSTEM-PAIR-CONS SYSTEM-PAIR?
	  SYSTEM-PAIR-CAR SYSTEM-PAIR-SET-CAR!
	  SYSTEM-PAIR-CDR SYSTEM-PAIR-SET-CDR!

	  SYSTEM-HUNK3-CXR0 SYSTEM-HUNK3-SET-CXR0!
	  SYSTEM-HUNK3-CXR1 SYSTEM-HUNK3-SET-CXR1!
	  SYSTEM-HUNK3-CXR2 SYSTEM-HUNK3-SET-CXR2!

	  SYSTEM-LIST-TO-VECTOR SYSTEM-SUBVECTOR-TO-LIST SYSTEM-VECTOR?
	  SYSTEM-VECTOR-SIZE SYSTEM-VECTOR-REF SYSTEM-VECTOR-SET!
	  ))