From 9d488261dfafd90870f46e5b361dc55df301ff16 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Sat, 7 Jan 2017 02:38:26 +0100
Subject: added system.gorgeEx that includes the exitCode; refs #4874; fixes
 #1994

---
 compiler/vmops.nim | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'compiler/vmops.nim')

diff --git a/compiler/vmops.nim b/compiler/vmops.nim
index 1c2725a98..b0911579e 100644
--- a/compiler/vmops.nim
+++ b/compiler/vmops.nim
@@ -59,6 +59,11 @@ proc staticWalkDirImpl(path: string, relative: bool): PNode =
     result.add newTree(nkPar, newIntNode(nkIntLit, k.ord),
                               newStrNode(nkStrLit, f))
 
+proc gorgeExWrapper(a: VmArgs) {.nimcall.} =
+  let (s, e) = opGorge(getString(a, 0), getString(a, 1), getString(a, 2),
+                       a.currentLineInfo)
+  setResult a, newTree(nkPar, newStrNode(nkStrLit, s), newIntNode(nkIntLit, e))
+
 proc registerAdditionalOps*(c: PCtx) =
   wrap1f_math(sqrt)
   wrap1f_math(ln)
@@ -92,3 +97,4 @@ proc registerAdditionalOps*(c: PCtx) =
   systemop getCurrentExceptionMsg
   registerCallback c, "stdlib.*.staticWalkDir", proc (a: VmArgs) {.nimcall.} =
     setResult(a, staticWalkDirImpl(getString(a, 0), getBool(a, 1)))
+  systemop gorgeEx
-- 
cgit 1.4.1-2-gfad0