From 9070fc75f9cfe2ee57ceed02adfcc289ecfe0b58 Mon Sep 17 00:00:00 2001
From: Cat Stevens <catb0t@protonmail.ch>
Date: Sat, 19 May 2018 16:57:15 -0400
Subject: [PATCH] flesh out windows implementation

---
 basis/elevate/windows/windows.factor | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/basis/elevate/windows/windows.factor b/basis/elevate/windows/windows.factor
index 6d2934ab53..404f1644c4 100644
--- a/basis/elevate/windows/windows.factor
+++ b/basis/elevate/windows/windows.factor
@@ -4,9 +4,20 @@ IN: elevate.windows
 
 <PRIVATE
 ! TODO
-M: windows elevated
-    3drop run-process ;
+M:: windows elevated ( command replace? win-console? posix-graphical? -- process )
+    already-root? [
+        <process> command >>command
+    ] [
+        ! hwnd lpOperation
+        f "runas"
+        command dup string? [ " " split ] when
+        ! lpFile lpParameters lpDirectory nShowCmd
+        [ first ] [ rest ] bi f win-console? 1 0 ?
+        ! call shell function
+        ShellExecuteW :> retval retval n>win32-error-check
+        retval replace? [ exit ] [ ] if
+    ] if ;
 
 ! no-op (not possible to lower)
-M: windows lowered ;
+M: windows lowered
 PRIVATE>
\ No newline at end of file
-- 
2.34.1