From: Jan Wielemaker <J.Wielemaker@vu.nl>
Date: Thu, 3 Nov 2022 19:28:43 +0000 (+0100)
Subject: FIXED: write_sweep_module_location/0 for Windows.
X-Git-Tag: V8.5.20-sweep-0.8.2~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d4bdc86004b76413074e915d92380891a6e2587;p=sweep.git

FIXED: write_sweep_module_location/0 for Windows.
---

diff --git a/sweep_link.pl b/sweep_link.pl
index 3c3d679..3166324 100644
--- a/sweep_link.pl
+++ b/sweep_link.pl
@@ -31,8 +31,8 @@
 */
 
 :- module(sweep_link,
-          [ write_sweep_module_location/0
-          ]).
+	  [ write_sweep_module_location/0
+	  ]).
 
 /** <module> Information for dynamically linking to GNU Emacs
 */
@@ -40,14 +40,25 @@
 sweep_link_version(1).
 
 write_sweep_module_location :-
+    sweep_module(Path),
     sweep_link_version(V),
     format('V ~w~n', [V]),
-    absolute_file_name(foreign('sweep-module'),
-                       Path,
-                       [file_type(executable), access(read)]),
     (   current_prolog_flag(executable_format, elf)
     ->  current_prolog_flag(libswipl, Libpath),
-        format('L ~w~n', [Libpath])
+	format('L ~w~n', [Libpath])
     ;   true
     ),
     format('M ~w~n', [Path]).
+
+sweep_module(Path) :-
+    current_prolog_flag(windows, true),
+    current_prolog_flag(executable, Exe),
+    prolog_to_os_filename(PlExe, Exe),
+    file_directory_name(PlExe, BinDir),
+    atomic_concat(BinDir, '/sweep-module.dll', Path),
+    exists_file(Path),
+    !.
+sweep_module(Path) :-
+    absolute_file_name(foreign('sweep-module'),
+		       Path,
+		       [file_type(executable), access(read)]).