#!/bin/sh
#
-# $Id: Clean.sh,v 1.6 2003/02/14 18:28:00 cph Exp $
+# $Id: Clean.sh,v 1.7 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for cleaning up MIT Scheme build directories.
+# Utility for cleaning up MIT/GNU Scheme build directories.
# The working directory must be the top-level source directory.
if [ $# -le 1 ]; then
-Structure and construction of the MIT Scheme source tree
+Structure and construction of the MIT/GNU Scheme source tree
-$Id: README.txt,v 1.2 2001/02/23 16:16:38 cph Exp $
+$Id: README.txt,v 1.3 2003/02/14 18:48:11 cph Exp $
Directories
===========
-MIT Scheme is a large program consisting of many subdirectories.
+MIT/GNU Scheme is a large program consisting of many subdirectories.
These subdirectories can be further grouped together into rough
functional subsystems.
* "sf" contains a program that translates Scheme source code to an
internal binary format called SCode. SCode is the internal
- representation used by the MIT Scheme interpreter. The "sf" program
- also performs a handful of optimizations, such as user-directed beta
- substitution and early binding of known variables such as CAR.
+ representation used by the MIT/GNU Scheme interpreter. The "sf"
+ program also performs a handful of optimizations, such as
+ user-directed beta substitution and early binding of known variables
+ such as CAR.
* "compiler" contains the native-code compiler. This program
translates SCode to machine-language instructions.
* "pcsample" contains a profiling extension.
-* "swat" contains an extension that interfaces MIT Scheme to the Tk
- graphical toolkit.
+* "swat" contains an extension that interfaces MIT/GNU Scheme to the
+ Tk graphical toolkit.
* "wabbit" contains program for finding all of the objects that
contain pointers to a given object.
Building from source on unix systems
====================================
-Building MIT Scheme from the CVS sources is a multi-stage process.
+Building MIT/GNU Scheme from the CVS sources is a multi-stage process.
The system has been designed around a number of "build states" and
specific commands that move the system from one build state to
another. These are the build states, ordered from least to most
#!/bin/sh
#
-# $Id: Setup.sh,v 1.9 2003/02/14 18:28:00 cph Exp $
+# $Id: Setup.sh,v 1.10 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to set up the MIT Scheme build directories.
+# Utility to set up the MIT/GNU Scheme build directories.
# The working directory must be the top-level source directory.
if [ ! -x configure ]; then
#!/bin/sh
#
-# $Id: Tags.sh,v 1.3 2003/02/14 18:28:00 cph Exp $
+# $Id: Tags.sh,v 1.4 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to make TAGS files for MIT Scheme build directories.
+# Utility to make TAGS files for MIT/GNU Scheme build directories.
# The working directory must be the top-level source directory.
for SUBDIR; do
#!/bin/sh
#
-# $Id: Clean.sh,v 1.7 2003/02/14 18:28:00 cph Exp $
+# $Id: Clean.sh,v 1.8 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000, 2001 Massachusetts Institute of Technology
+# Copyright 2000,2001,2003 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for cleaning up the MIT Scheme runtime-check directory.
-# The working directory must be the runtime-check directory.
+# Utility for cleaning up the MIT/GNU Scheme compiler directory.
+# The working directory must be the compiler directory.
if [ $# -ne 1 ]; then
echo "usage: $0 <command>"
-This directory contains LIAR, the MIT Scheme compiler.
+This directory contains LIAR, the MIT/GNU Scheme compiler.
Here is a brief summary of the subdirectory contents:
#!/bin/sh
#
-# $Id: Setup.sh,v 1.5 2003/02/14 18:28:00 cph Exp $
+# $Id: Setup.sh,v 1.6 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to set up the MIT Scheme compiler directory.
+# Utility to set up the MIT/GNU Scheme compiler directory.
# The working directory must be the compiler directory.
if [ $# -ne 0 ]; then
#!/bin/sh
#
-# $Id: Stage.sh,v 1.4 2003/02/14 18:28:00 cph Exp $
+# $Id: Stage.sh,v 1.5 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000, 2001 Massachusetts Institute of Technology
+# Copyright 2000,2001 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for MIT Scheme compiler staging.
+# Utility for MIT/GNU Scheme compiler staging.
if [ $# -ne 2 ]; then
echo "usage: $0 <command> <tag>"
#!/bin/sh
#
-# $Id: Tags.sh,v 1.3 2003/02/14 18:28:00 cph Exp $
+# $Id: Tags.sh,v 1.4 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to make TAGS file for the MIT Scheme compiler directory.
+# Utility to make TAGS file for the MIT/GNU Scheme compiler directory.
# The working directory must be the compiler directory.
etags back/*.scm base/*.scm fggen/*.scm fgopt/*.scm machine/*.scm \
#!/bin/sh
#
-# $Id: Clean.sh,v 1.8 2003/02/14 18:28:10 cph Exp $
+# $Id: Clean.sh,v 1.9 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000, 2001, 2002 Massachusetts Institute of Technology
+# Copyright 2000,2001,2002 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for cleaning up the MIT Scheme edwin directory.
+# Utility for cleaning up the MIT/GNU Scheme edwin directory.
# The working directory must be the edwin directory.
if [ $# -ne 1 ]; then
#| -*-Scheme-*-
-$Id: schmod.scm,v 1.63 2003/02/14 18:28:13 cph Exp $
+$Id: schmod.scm,v 1.64 2003/02/14 18:48:11 cph Exp $
Copyright 1986,1989,1990,1991,1992,1998 Massachusetts Institute of Technology
Copyright 2000,2001,2002,2003 Massachusetts Institute of Technology
(2 RECEIVE)
(3 DEFINE-RECORD-TYPE)
- ;; MIT Scheme keywords:
+ ;; MIT/GNU Scheme keywords:
(1 DEFINE-STRUCTURE FLUID-LET LET*-SYNTAX LOCAL-DECLARE
NAMED-LAMBDA)
- ;; MIT Scheme procedures:
+ ;; MIT/GNU Scheme procedures:
(0 CALL-WITH-OUTPUT-STRING WITH-OUTPUT-TO-STRING)
(1 CALL-WITH-APPEND-FILE CALL-WITH-BINARY-APPEND-FILE
CALL-WITH-BINARY-INPUT-FILE CALL-WITH-BINARY-OUTPUT-FILE
#!/bin/sh
#
-# $Id: Clean.sh,v 1.11 2003/02/14 18:28:14 cph Exp $
+# $Id: Clean.sh,v 1.12 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000, 2001, 2002 Massachusetts Institute of Technology
+# Copyright 2000,2001,2002 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for cleaning up an MIT Scheme build directory.
+# Utility for cleaning up an MIT/GNU Scheme build directory.
# The working directory must be the build directory.
if [ $# -eq 1 ]; then
#!/bin/sh
#
-# $Id: Setup.sh,v 1.8 2003/02/14 18:28:14 cph Exp $
+# $Id: Setup.sh,v 1.9 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to set up an MIT Scheme build directory.
+# Utility to set up an MIT/GNU Scheme build directory.
# The working directory must be the build directory.
if [ $# -ne 0 ]; then
#!/bin/sh
#
-# $Id: Stage.sh,v 1.5 2003/02/14 18:28:14 cph Exp $
+# $Id: Stage.sh,v 1.6 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000, 2001 Massachusetts Institute of Technology
+# Copyright 2000,2001 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for MIT Scheme compiler staging.
+# Utility for MIT/GNU Scheme compiler staging.
if [ $# -ne 2 ]; then
echo "usage: $0 <command> <tag>"
#!/bin/sh
#
-# $Id: Tags.sh,v 1.3 2003/02/14 18:28:14 cph Exp $
+# $Id: Tags.sh,v 1.4 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to make TAGS file for an MIT Scheme build directory.
+# Utility to make TAGS file for an MIT/GNU Scheme build directory.
# The working directory must be the build directory.
etags *.scm
#| -*-Scheme-*-
-$Id: compile.scm,v 1.6 2003/02/14 18:28:14 cph Exp $
+$Id: compile.scm,v 1.7 2003/02/14 18:48:11 cph Exp $
-Copyright (c) 2000-2002 Massachusetts Institute of Technology
+Copyright 2000,2001,2002 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
|#
-;;;; Program to compile MIT Scheme.
+;;;; Program to compile MIT/GNU Scheme.
;;; This compiles the part of the system written in Scheme.
;;; The part written in C is compiled using "make".
#!/bin/sh
#
-# $Id: Clean.sh,v 1.3 2003/02/14 18:28:14 cph Exp $
+# $Id: Clean.sh,v 1.4 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for cleaning up the MIT Scheme microcode directory.
+# Utility for cleaning up the MIT/GNU Scheme microcode directory.
# The working directory must be the microcode directory.
if [ $# -ne 1 ]; then
#!/bin/sh
-# $Id: Setup.sh,v 1.7 2003/02/14 18:28:14 cph Exp $
+# $Id: Setup.sh,v 1.8 2003/02/14 18:48:11 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Program to set up MIT Scheme microcode from CVS for distribution.
+# Program to set up MIT/GNU Scheme microcode from CVS for distribution.
# Requires `gcc' and `scheme'.
if [ ! -f config.h.in ]; then
/* -*-C-*-
-$Id: avltree.c,v 1.7 2003/02/14 18:28:14 cph Exp $
+$Id: avltree.c,v 1.8 2003/02/14 18:48:11 cph Exp $
-Copyright (c) 1993-2001 Massachusetts Institute of Technology
+Copyright 1993-2001 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
*/
/* This file contains the code for a simple AVL tree library.
- It is used by the MIT Scheme microcode to quickly map
+ It is used by the MIT/GNU Scheme microcode to quickly map
names to indices into various tables.
*/
/* -*-C-*-
-$Id: avltree.h,v 1.6 2003/02/14 18:28:14 cph Exp $
+$Id: avltree.h,v 1.7 2003/02/14 18:48:11 cph Exp $
-Copyright (c) 1993, 1999-2001 Massachusetts Institute of Technology
+Copyright 1993, 1999-2001 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
/* This file contains external declarations for a simple
AVL tree library.
- It is used by the MIT Scheme microcode to quickly map
+ It is used by the MIT/GNU Scheme microcode to quickly map
names to indices into various tables. */
#include "config.h"
/* -*-C-*-
-$Id: bchmmg.c,v 9.103 2003/02/14 18:28:15 cph Exp $
+$Id: bchmmg.c,v 9.104 2003/02/14 18:48:11 cph Exp $
-Copyright (c) 1987-2000, 2002 Massachusetts Institute of Technology
+Copyright 1987-2000, 2002 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
operation_name, (GetLastError ()), noise);
switch (MessageBox (master_tty_window,
&buf[0],
- "MIT Scheme garbage-collection problem description",
+ "MIT/GNU Scheme garbage-collection problem description",
(MB_ICONSTOP | MB_ABORTRETRYIGNORE | MB_APPLMODAL)))
{
case IDABORT:
"%s: GC file error (code = %d) when manipulating %s.\n"
"Choose an option (Cancel = Exit Scheme)",
operation_name, errno, noise);
- switch (WinMessageBox (HWND_DESKTOP,
- NULLHANDLE,
- (&buf[0]),
- "MIT Scheme garbage-collection problem description",
- 0,
- (MB_ICONHAND | MB_ABORTRETRYIGNORE | MB_APPLMODAL)))
+ switch
+ (WinMessageBox (HWND_DESKTOP,
+ NULLHANDLE,
+ (&buf[0]),
+ "MIT/GNU Scheme garbage-collection problem description",
+ 0,
+ (MB_ICONHAND | MB_ABORTRETRYIGNORE | MB_APPLMODAL)))
{
case MBID_ABORT: return (1);
case MBID_RETRY: return (0);
/* -*-C-*-
-$Id: boot.c,v 9.112 2003/02/14 18:28:18 cph Exp $
+$Id: boot.c,v 9.113 2003/02/14 18:48:11 cph Exp $
-Copyright (c) 1988-2002 Massachusetts Institute of Technology
+Copyright 1988-2002 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
OS_initialize ();
if (I_Am_Master)
{
- outf_console ("MIT Scheme running under %s\n", OS_Variant);
+ outf_console ("MIT/GNU Scheme running under %s\n", OS_Variant);
OS_announcement ();
outf_console ("\n");
outf_flush_console ();
-# $Id: makefile,v 1.9 2003/02/14 18:28:25 cph Exp $
+# $Id: makefile,v 1.10 2003/02/14 18:48:12 cph Exp $
#
-# Copyright (c) 2000 Massachusetts Institute of Technology
+# Copyright 2000 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Makefile for MIT Scheme's i386 compiled-code interface files.
+# Makefile for MIT/GNU Scheme's i386 compiled-code interface files.
EXPANSIONS = i386-nt.asm i386-ntw.asm
/* -*-C-*-
-$Id: ntgui.c,v 1.30 2003/02/14 18:28:20 cph Exp $
+$Id: ntgui.c,v 1.31 2003/02/14 18:48:11 cph Exp $
-Copyright (c) 1993-2000 Massachusetts Institute of Technology
+Copyright 1993-2000 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
mes_result = (MessageBox (master_tty_window,
"Scheme appears to have become catatonic.\n"
"OK to kill it?",
- "MIT Scheme",
+ "MIT/GNU Scheme",
(MB_ICONSTOP | MB_OKCANCEL)));
win32_catatonia_block[CATATONIA_BLOCK_COUNTER] = 0;
va_end (arg_ptr);
return (MessageBox (master_tty_window,
((LPCSTR) &buffer[0]),
- ((LPCSTR) "MIT Scheme Win32 Notification"),
+ ((LPCSTR) "MIT/GNU Scheme Win32 Notification"),
(MB_TASKMODAL | MB_ICONINFORMATION
| MB_SETFOREGROUND | MB_OK)));
}
va_end (arg_ptr);
return (MessageBox (master_tty_window,
((LPCSTR) &buffer[0]),
- ((LPCSTR) "MIT Scheme Win32 Notification"),
+ ((LPCSTR) "MIT/GNU Scheme Win32 Notification"),
(MB_TASKMODAL | MB_ICONINFORMATION
| MB_SETFOREGROUND | flags)));
}
/* -*-C-*-
-$Id: ntio.c,v 1.26 2003/02/14 18:28:20 cph Exp $
+$Id: ntio.c,v 1.27 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1992-2001 Massachusetts Institute of Technology
+Copyright 1992-2001 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
void
NT_initialize_channels (void)
{
- master_tty_window = (Screen_Create (NULL, "MIT Scheme", SW_SHOWNORMAL));
+ master_tty_window = (Screen_Create (NULL, "MIT/GNU Scheme", SW_SHOWNORMAL));
if (win32_under_win32s_p ())
OS_have_select_p = 0;
else
/* -*-C-*-
-$Id: ntscmlib.h,v 1.11 2003/02/14 18:28:20 cph Exp $
+$Id: ntscmlib.h,v 1.12 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1993-1999 Massachusetts Institute of Technology
+Copyright 1993-1999 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
*/
-/* MIT Scheme under Windows system-dependent utilities. */
+/* MIT/GNU Scheme under Windows system-dependent utilities. */
#ifndef SCM_NTLIB_H
/* -*-C-*-
-$Id: ntscreen.c,v 1.49 2003/02/14 18:28:21 cph Exp $
+$Id: ntscreen.c,v 1.50 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1993-2002 Massachusetts Institute of Technology
+Copyright 1993-2002 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
"\n"
"Really Exit Scheme?")
: "OK to close this window?",
- "MIT Scheme",
+ "MIT/GNU Scheme",
(MB_ICONQUESTION | MB_OKCANCEL)))
break;
}
screen->mode_flags |= SCREEN_MODE_NEWLINE_CRS;
screen->scroll_lines
= (COMPUTE_SCROLL_LINES (screen->height));
- SetWindowText (screen->hWnd, "MIT Scheme");
+ SetWindowText (screen->hWnd, "MIT/GNU Scheme");
}
i = j; /* 1 added in for loop */
continue;
/* -*-C-*-
-$Id: nttop.c,v 1.32 2003/02/14 18:28:21 cph Exp $
+$Id: nttop.c,v 1.33 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1993-2000 Massachusetts Institute of Technology
+Copyright 1993-2000 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
win32_system_utilities_dll = LoadLibrary (dll_name);
if (win32_system_utilities_dll == NULL) {
- outf_fatal ("MIT Scheme is unable to find or load %s\n"
- "This essential MIT Scheme file should be in the\n"
+ outf_fatal ("MIT/GNU Scheme is unable to find or load %s\n"
+ "This essential MIT/GNU Scheme file should be in the\n"
"same directory as SCHEME.EXE",
dll_name);
outf_flush_fatal();
/* -*-C-*-
-$Id: nttrap.c,v 1.25 2003/02/14 18:28:21 cph Exp $
+$Id: nttrap.c,v 1.26 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1992-2002 Massachusetts Institute of Technology
+Copyright 1992-2002 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
value = (MessageBox (NULL,
trap_output,
- "MIT Scheme Exception Information",
+ "MIT/GNU Scheme Exception Information",
style));
free (trap_output);
trap_output = ((char *) NULL);
#endif /* W32_TRAP_DEBUG */
value = (MessageBox (NULL, &msgbuf[0],
- "MIT Scheme Exception Info",
+ "MIT/GNU Scheme Exception Info",
(flags | MB_ICONSTOP)));
return (value);
}
unsigned long * addr;
char responsebuf[256], * response;
- if ((MessageBox (NULL, "Debug?", "MIT Scheme Exception Debugger", MB_YESNO))
+ if ((MessageBox
+ (NULL, "Debug?", "MIT/GNU Scheme Exception Debugger", MB_YESNO))
!= IDYES)
return;
@echo off
-rem MIT Scheme microcode configuration script for Windows NT
+rem MIT/GNU Scheme microcode configuration script for Windows NT
rem
-rem Copyright (c) 1993 Massachusetts Institute of Technology
+rem Copyright 1993 Massachusetts Institute of Technology
rem
-rem $Id: config.bat,v 1.6 1993/09/20 17:07:36 gjr Exp $
+rem $Id: config.bat,v 1.7 2003/02/14 18:48:12 cph Exp $
rem
copy cmpintmd\i386.h cmpintmd.h
copy cmpauxmd\i386-nt.asm cmpauxmd.asm
BLOCK "040904E4"
BEGIN
VALUE "CompanyName", "Artifical Intelligence Lab, MIT"
- VALUE "FileDescription", "MIT Scheme Microcode"
+ VALUE "FileDescription", "MIT/GNU Scheme Microcode"
VALUE "FileVersion", MAKEFILEVERSIONSTRING(SCHEME_VERSION,SCHEME_SUBVERSION)
VALUE "InternalName", "SCHEME"
VALUE "LegalCopyright", "Copyright Massachusetts Institute of Technology 1993-2000"
VALUE "OriginalFilename", "SCHEME.EXE"
- VALUE "ProductName", "MIT Scheme"
+ VALUE "ProductName", "MIT/GNU Scheme"
VALUE "ProductVersion", SCHEME_RELEASE
END
END
/* -*-C-*-
-$Id: scheme16.c,v 1.13 2003/02/14 18:28:31 cph Exp $
+$Id: scheme16.c,v 1.14 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1993-1999 Massachusetts Institute of Technology
+Copyright 1993-1999 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
*/
-/* MIT Scheme under Windows system utiltities DLL source.
+/* MIT/GNU Scheme under Windows system utiltities DLL source.
Win16 side of the Win32s version.
*/
va_end (arg_ptr);
return (MessageBox (NULL,
((LPCSTR) &buffer[0]),
- ((LPCSTR) "MIT Scheme Win16 Notification"),
+ ((LPCSTR) "MIT/GNU Scheme Win16 Notification"),
(MB_TASKMODAL | MB_ICONINFORMATION | MB_OK)));
}
LIBRARY scheme16
-DESCRIPTION "MIT Scheme Win16 Server for Win32S DLL"
+DESCRIPTION "MIT/GNU Scheme Win16 Server for Win32S DLL"
EXETYPE WINDOWS
-### -*- Fundamental -*-
-###
-### $Id: scheme16.mak,v 1.4 1996/03/23 19:24:14 adams Exp $
-###
-### Copyright (c) 1996 Massachusetts Institute of Technology
-###
-### This material as 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.
-###
+# -*- Fundamental -*-
+#
+# $Id: scheme16.mak,v 1.5 2003/02/14 18:48:12 cph Exp $
+#
+# Copyright 1996 Massachusetts Institute of Technology
+#
+# This file is part of MIT/GNU Scheme.
+#
+# MIT/GNU Scheme is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# MIT/GNU Scheme is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with MIT/GNU Scheme; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
-#### Makefile for the 16-bit component of the MIT Scheme Win32 support
+# Makefile for the 16-bit component of the MIT/GNU Scheme Win32 support
all: scheme16.dll
/* -*-C-*-
-$Id: scheme31.c,v 1.12 2003/02/14 18:28:31 cph Exp $
+$Id: scheme31.c,v 1.13 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1993-1999 Massachusetts Institute of Technology
+Copyright 1993-1999 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
*/
-/* MIT Scheme under Windows system utiltities DLL source.
+/* MIT/GNU Scheme under Windows system utiltities DLL source.
Win32s (vs. true NT) version.
*/
LIBRARY scheme31
-DESCRIPTION "MIT Scheme Win32S DLL"
+DESCRIPTION "MIT/GNU Scheme Win32S DLL"
VERSION 0.5
/* -*-C-*-
-$Id: scheme32.c,v 1.19 2003/02/14 18:28:31 cph Exp $
+$Id: scheme32.c,v 1.20 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1993-1999 Massachusetts Institute of Technology
+Copyright 1993-1999 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
*/
-/* MIT Scheme under Windows system utiltities DLL source.
- True NT (vs. Win32s) version
+/* MIT/GNU Scheme under Windows system utiltities DLL source.
+ True Win32 (vs. Win32s) version
*/
#include "ntscmlib.h"
LIBRARY scheme32
-DESCRIPTION "MIT Scheme Win32 DLL"
+DESCRIPTION "MIT/GNU Scheme Win32 DLL"
VERSION 0.5
@echo off
-rem MIT Scheme microcode configuration script for Windows NT
+rem MIT/GNU Scheme microcode configuration script for Windows NT
rem
-rem Copyright (c) 1993 Massachusetts Institute of Technology
+rem Copyright 1993 Massachusetts Institute of Technology
rem
-rem $Id: setenv.bat,v 1.1 1993/07/18 20:31:17 gjr Exp $
+rem $Id: setenv.bat,v 1.2 2003/02/14 18:48:12 cph Exp $
rem
set path=%path%;c:\usr\lib\masm\bin
set include=%lib%;c:\usr\lib\masm\include
@echo off
-rem MIT Scheme microcode configuration script for Win32 / Watcom C
+rem MIT/GNU Scheme microcode configuration script for Win32 / Watcom C
rem
-rem Copyright (c) 1995-96 Massachusetts Institute of Technology
+rem Copyright 1995-96 Massachusetts Institute of Technology
rem
-rem $Id: wconfig.bat,v 1.3 1996/10/08 01:32:34 cph Exp $
+rem $Id: wconfig.bat,v 1.4 2003/02/14 18:48:12 cph Exp $
rem
copy cmpintmd\i386.h cmpintmd.h
copy cmpauxmd\i386-ntw.asm cmpauxmd.asm
#| -*-Scheme-*-
-$Id: os2pm.scm,v 1.14 2003/02/14 18:28:22 cph Exp $
+$Id: os2pm.scm,v 1.15 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1995-1999, 2001, 2002 Massachusetts Institute of Technology
+Copyright 1995-1999, 2001, 2002 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
Copyright (c) ~A Massachusetts Institute of Technology
-This file is part of MIT Scheme.
+This file is part of MIT/GNU Scheme.
-MIT Scheme is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2 of the License, or (at your
-option) any later version.
+MIT/GNU Scheme is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or (at
+your option) any later version.
-MIT Scheme is distributed in the hope that it will be useful, but
+MIT/GNU Scheme is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
-along with MIT Scheme; if not, write to the Free Software Foundation,
-Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+along with MIT/GNU Scheme; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
+USA.
*/
")
/* -*-C-*-
-$Id: os2pmcon.c,v 1.28 2003/02/14 18:28:22 cph Exp $
+$Id: os2pmcon.c,v 1.29 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1994-2000 Massachusetts Institute of Technology
+Copyright 1994-2000 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
case IDM_ABOUT:
(void) WinMessageBox
(HWND_DESKTOP, NULLHANDLE,
- "This is MIT Scheme Release "
+ "This is MIT/GNU Scheme Release "
SCHEME_RELEASE
- ", brought to you by the MIT Scheme Team.\n",
- "The Uncommon Lisp", 0, MB_OK);
+ ", the Uncommon Lisp", 0, MB_OK);
break;
}
}
@echo off
-rem MIT Scheme microcode configuration script for OS/2
+rem MIT/GNU Scheme microcode configuration script for OS/2
rem
-rem Copyright (c) 1994, 1995, 2000 Massachusetts Institute of Technology
+rem Copyright 1994,1995,2000 Massachusetts Institute of Technology
rem
-rem $Id: config.cmd,v 1.4 2000/12/05 21:23:51 cph Exp $
+rem $Id: config.cmd,v 1.5 2003/02/14 18:48:12 cph Exp $
rem
copy cmpintmd\i386.h cmpintmd.h
copy cmpauxmd\i386.m4 cmpauxmd.m4
#!/bin/sh
#
-# $Id: Clean.sh,v 1.5 2003/02/14 18:28:34 cph Exp $
+# $Id: Clean.sh,v 1.6 2003/02/14 18:48:13 cph Exp $
#
-# Copyright (c) 2000, 2001 Massachusetts Institute of Technology
+# Copyright 2000,2001 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility for cleaning up the MIT Scheme runtime-check directory.
+# Utility for cleaning up the MIT/GNU Scheme runtime-check directory.
# The working directory must be the runtime-check directory.
if [ $# -ne 1 ]; then
#!/bin/sh
#
-# $Id: Setup.sh,v 1.7 2003/02/14 18:28:34 cph Exp $
+# $Id: Setup.sh,v 1.8 2003/02/14 18:48:13 cph Exp $
#
-# Copyright (c) 2000, 2001 Massachusetts Institute of Technology
+# Copyright 2000,2001 Massachusetts Institute of Technology
#
# This file is part of MIT/GNU Scheme.
#
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
-# Utility to set up an MIT Scheme build directory.
+# Utility to set up an MIT/GNU Scheme build directory.
# The working directory must be the build directory.
if [ $# -ne 0 ]; then
#| -*-Scheme-*-
-$Id: dragon4.scm,v 1.17 2003/02/14 18:28:32 cph Exp $
+$Id: dragon4.scm,v 1.18 2003/02/14 18:48:12 cph Exp $
-Copyright (c) 1989-1999 Massachusetts Institute of Technology
+Copyright 1989-1999 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
(define failures 0)
(define successes 0)
- ;; From the MIT Scheme Reference Manual:
+ ;; From the MIT/GNU Scheme Reference Manual:
(try (* 4 (atan 1 1)) '(relative 5) "3.1416")
(try (* 4000 (atan 1 1)) '(relative 5) "3141.6")
(try (* 4000 (atan 1 1)) '(relative 5 scientific) "3.1416e3")
#| -*-Scheme-*-
-$Id: mit-syntax.scm,v 14.14 2003/02/14 18:28:33 cph Exp $
+$Id: mit-syntax.scm,v 14.15 2003/02/14 18:48:13 cph Exp $
Copyright 1989,1990,1991,2001,2002,2003 Massachusetts Institute of Technology
|#
-;;;; MIT Scheme Syntax
+;;;; MIT/GNU Scheme Syntax
(declare (usual-integrations))
\f
#| -*-Scheme-*-
-$Id: syntax-transforms.scm,v 14.4 2003/02/14 18:28:34 cph Exp $
+$Id: syntax-transforms.scm,v 14.5 2003/02/14 18:48:13 cph Exp $
Copyright 1989-1991, 2001, 2002 Massachusetts Institute of Technology
|#
-;;;; MIT Scheme syntax
+;;;; MIT/GNU Scheme syntax
;;; Procedures to convert transformers to internal form. Required
;;; during cold load, so must be loaded very early in the sequence.
-/* Cover routines to make MIT Scheme primitives out of the procedures */
+/* Cover routines to make MIT/GNU Scheme primitives out of the procedures */
/* in button-c.c. */
#include "scheme.h"
;;;;; -*- Scheme -*-
;;;;; Basic objects for the Scheme User Interface Tool Kit
-;;;; MIT Scheme Version derived from Scheme-To-C version 1.2
+;;;; MIT/GNU Scheme Version derived from Scheme-To-C version 1.2
-;;;; $Id: baseobj.scm,v 1.1 1995/08/02 21:26:49 adams Exp $
+;;;; $Id: baseobj.scm,v 1.2 2003/02/14 18:48:13 cph Exp $
;;;; Application objects
(weak-set-cdr! (weak-cdr weak) result)
result))
(lambda (display child-work-code child-idle-code)
- child-idle-code ; Not used by MIT Scheme
+ child-idle-code ; Not used by MIT/GNU Scheme
(let ((file (XConnectionNumber display))
(weak (weak-cons child-work-code (weak-cons display #F))))
(without-interrupts
BEGIN
BLOCK "040904E4"
BEGIN
- VALUE "CompanyName", "Artifical Intelligence Lab, MIT"
+ VALUE "CompanyName", "GNU Project"
VALUE "FileDescription", "DIB utilities for Scheme Graphics"
VALUE "FileVersion", "1.0"
VALUE "InternalName", "dibutils"
VALUE "LegalCopyright", "Copyright Massachusetts Institute of Technology 1993"
VALUE "OriginalFilename", "DIBUTILS.DLL"
- VALUE "ProductName", "MIT Scheme"
- VALUE "ProductVersion", "7.2.0 (alpha)"
+ VALUE "ProductName", "MIT/GNU Scheme"
+ VALUE "ProductVersion", "7.7.1"
END
END
projects / mit-scheme.git / commitdiff