From 16d24a5194a0658c74881da84fd531ee23c1546c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 1 May 2013 18:14:23 -0700
Subject: [PATCH] tools.ps.windows: Add read-peb and my-peb.

---
 basis/tools/ps/windows/windows.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/basis/tools/ps/windows/windows.factor b/basis/tools/ps/windows/windows.factor
index f35eb5a4f4..eff6ce997f 100644
--- a/basis/tools/ps/windows/windows.factor
+++ b/basis/tools/ps/windows/windows.factor
@@ -43,6 +43,16 @@ IN: tools.ps.windows
     ReadProcessMemory win32-error=0/f
     ba ;
 
+: read-peb ( handle address -- peb )
+    0 PEB heap-size read-process-memory PEB memory>struct ;
+
+: my-peb ( -- peb )
+    GetCurrentProcessId [
+        open-process-read
+        [ <win32-handle> &dispose drop ]
+        [ dup query-information-process PebBaseAddress>> read-peb ] bi
+    ] with-destructors ;
+
 :: read-args ( handle -- string/f )
     handle <win32-handle> &dispose drop
     handle query-information-process :> process-basic-information