DataMuseum.dk

top - download

    Length: 3988 (0xf94)
    Types: TextFile
    Names: »namelist.scm.2«

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

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.
;;;

;;;; Machine Names for 6.001 Lab

(declare (usual-integrations))
\f


(make-package reset-machine-name
   ()

  (define *machine-names*
    #("File-Server"         ; 0
      "Undefined"           ; 1
      "Undefined"           ; 2
      "Undefined"           ; 3
      "Undefined"           ; 4
      "Undefined"           ; 5
      "Undefined"           ; 6
      "Undefined"           ; 7
      "Undefined"           ; 8
      "Undefined"           ; 9
      "Cancer"              ; 10
      "Libra"               ; 11
      "Scorpio"             ; 12
      "Capricorn"           ; 13
      "Partridge"           ; 14
      "Dove"                ; 15
      "Hen"                 ; 16
      "Bird"                ; 17
      "Ring"                ; 18
      "Goose"               ; 19
      "Swan"                ; 20
      "Maid"                ; 21
      "AAB"                 ; 22
      "AC"                  ; 23
      "Cycle"               ; 24
      "Todd"                ; 25
      "Piper"               ; 26
      "Lady"                ; 27
      "Lord"                ; 28
      "Drummer"             ; 29
      "Sagittarius"         ; 30
      "Taurus"              ; 31
      "Pisces"              ; 32
      "Aquarius"            ; 33
      "Leo"                 ; 34
      "Gemini"              ; 35
      "Aries"               ; 36
      "Virgo"               ; 37
      "Manasseh"            ; 38
      "Naphtali"            ; 39
      "Dan"                 ; 40
      "Asher"               ; 41
      "Zebulon"             ; 42
      "Issachar"            ; 43
      "Gad"                 ; 44
      "Ephraim"             ; 45
      "Reuben"              ; 46
      "Judah"               ; 47
      "Simian"              ; 48
      "Benjamin"            ; 49
      "MHWU"                ; 50
      "Jinx"                ; 51
      "JMiller"             ; 52
      "HAL"                 ; 53
      "GJS"                 ; 54
      "Hanson"              ; 55
      "Gwyn"                ; 56
      "KHS"                 ; 57
      ))
  
  (define (node-number)
    (define (parse-node-number s)
      (+ (* 10 (- (string-ref s 6) 48))
	 (- (string-ref s 7) 48)))
    (define volume-name (make-primitive-procedure 'volume-name))
    (let ((s (make-empty-string 80)))
      (volume-name 45 s)
      (parse-node-number s)))

  (local-assignment system-global-environment '*machine-name*
		    (vector-ref *machine-names* (node-number)))
)