From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Oct 1998 05:13:58 +0000 (+0000)
Subject: Implement GET-MODULE-FILE-NAME.
X-Git-Tag: 20090517-FFI~4730
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12c268e8ce66f427c892b747cf3d7acb6e78014b;p=mit-scheme.git

Implement GET-MODULE-FILE-NAME.
---

diff --git a/v7/src/win32/wf_user.scm b/v7/src/win32/wf_user.scm
index 264d21cf2..32026a6cc 100644
--- a/v7/src/win32/wf_user.scm
+++ b/v7/src/win32/wf_user.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: wf_user.scm,v 1.8 1998/07/09 04:29:36 cph Exp $
+$Id: wf_user.scm,v 1.9 1998/10/23 05:13:58 cph Exp $
 
 Copyright (c) 1993-98 Massachusetts Institute of Technology
 
@@ -77,6 +77,7 @@ MIT in each case. |#
 (define  get-menu-item-id)
 (define  get-menu-state)
 (define  get-menu-string)
+(define  get-module-file-name)
 (define  get-nearest-color)
 (define  get-nearest-palette-index)
 (define  get-rop2)
@@ -538,5 +539,11 @@ MIT in each case. |#
     (windows-procedure (get-last-error)
       dword kernel32.dll "GetLastError"))
 
+  (set! get-module-file-name
+    (windows-procedure (get-module-file-name (module handle)
+					     (name string)
+					     (strlen int))
+      int kernel32.dll "GetModuleFileNameA"))
+
 
   unspecific)