Add copyright.

diff --git a/v7/src/microcode/ntgui.c b/v7/src/microcode/ntgui.c
index 448069b174cf1aa448b8a80281c5e160e600cee0..8fc0414195540a4e66ea24ec13cdb2320c0896e8 100644 (file)
--- a/v7/src/microcode/ntgui.c
+++ b/v7/src/microcode/ntgui.c
@@ -1,3 +1,37 @@
+/* -*-C-*-
+
+$Id: ntgui.c,v 1.2 1993/06/24 02:02:05 gjr Exp $
+
+Copyright (c) 1993 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. */
+
 #include "scheme.h"
 #include "prims.h"
 #include "nt.h"
@@ -5,11 +39,9 @@
 #include "ntgui.h"
 #include "ntscreen.h"
 #include <string.h>
-
-
+\f
 extern /*static*/ HANDLE  ghInstance = 0;
 
-
 BOOL InitApplication(HANDLE);
 BOOL InitInstance(HANDLE, int);
 
@@ -183,8 +215,6 @@ DEFUN_VOID (NT_gui_init)
        outf_console ("InitInstance failed\n");
    }
 }
-
-
 \f
 static long  
 scheme_object_to_windows_object (SCHEME_OBJECT thing)
@@ -206,7 +236,6 @@ scheme_object_to_windows_object (SCHEME_OBJECT thing)
 
     return  (long)thing;
 }
-
 \f
 /****************************************************************************/
 /* first scheme window procedure requires every procedure to be purified    */
@@ -452,8 +481,6 @@ DEFINE_PRIMITIVE ("APPLY_1", Prim_apply_1_xyz, 2, 2, "")
     
     PRIMITIVE_RETURN (result);
 }
-
-
 \f
 /************************************************************************/
 /* Primitive versions of library stuff                                 */
@@ -505,9 +532,6 @@ DEFINE_PRIMITIVE ("NT:GET-PROC-ADDRESS", Prim_nt_get_proc_address, 2, 2,
 
     PRIMITIVE_RETURN (it==NULL ? SHARP_F : long_to_integer (it));
 }
-
-
-
 \f
 DEFINE_PRIMITIVE ("NT:SEND-MESSAGE", Prim_send_message, 4, 4,
 "(SEND-MESSAGE  handle  message  wparam  lparam)")
@@ -531,10 +555,7 @@ DEFINE_PRIMITIVE ("NT:SEND-MESSAGE", Prim_send_message, 4, 4,
     PRIMITIVE_RETURN (
       long_to_integer (SendMessage (hwnd, message, wParam, lParam)));
 }
-
 \f
-
-
 // Indirect calls to a __stdcall procedure are compiled as if to a _cdecl
 // procedure.  The result is disaster.  The fudge_calls give us some
 // protection because the procedure entry code pushes registers.  These
@@ -664,8 +685,6 @@ DEFINE_PRIMITIVE ("CALL-FF", Prim_call_ff, 0, LEXPR, 0)
     PRIMITIVE_HEADER (LEXPR);
     PRIMITIVE_RETURN (call_ff_really());
 }
-
-
 \f
 static void *
 xmalloc (int size)

diff --git a/v7/src/microcode/ntgui.h b/v7/src/microcode/ntgui.h
index 5db06d9bfccbad6e6f97c423fc53bcb96795ad3b..c514e7f3edba72d237f7de4acecf6131e557c98b 100644 (file)
--- a/v7/src/microcode/ntgui.h
+++ b/v7/src/microcode/ntgui.h
@@ -1,4 +1,40 @@
+/* -*-C-*-
 
+$Id: ntgui.h,v 1.2 1993/06/24 02:02:42 gjr Exp $
+
+Copyright (c) 1993 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. */
+
+#ifndef NTGUI_H
+#define NTGUI_H
+\f
 void EXFUN (NT_gui_init, (void));
 
 #define IDM_NEW            100
@@ -19,3 +55,5 @@ void EXFUN (NT_gui_init, (void));
 #define IDM_HELPHELP       302
 #define IDM_ABOUT          303
 #define IDM_EMERGENCYKILL  400
+
+#endif /* NTGUI_H */