From 89860a7bb3c907bd2bb63291dc8fd51bae248526 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 24 Jun 1993 02:02:42 +0000 Subject: [PATCH] Add copyright. --- v7/src/microcode/ntgui.c | 51 +++++++++++++++++++++++++++------------- v7/src/microcode/ntgui.h | 38 ++++++++++++++++++++++++++++++ 2 files changed, 73 insertions(+), 16 deletions(-) diff --git a/v7/src/microcode/ntgui.c b/v7/src/microcode/ntgui.c index 448069b17..8fc041419 100644 --- 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 - - + 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"); } } - - 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; } - /****************************************************************************/ /* 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); } - - /************************************************************************/ /* 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)); } - - - 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))); } - - - // 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()); } - - static void * xmalloc (int size) diff --git a/v7/src/microcode/ntgui.h b/v7/src/microcode/ntgui.h index 5db06d9bf..c514e7f3e 100644 --- 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 + 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 */ -- 2.25.1