added SystemCall runAndReturnOutput method

addons/Oauth/io/OauthRequest.io

@@ -55,10 +55,12 @@ OauthRequest := Object clone do(
 
 		debugWriteln("curl ", args join(" "))
         sc setArguments(args)
-        sc run
+        //System exit
+        output := sc runAndReturnOutput
+        //output := sc stdout readLines join("\n")
 		debugWriteln("curl exited")
 
-		OauthResponse clone setData(sc stdout readLines join("\n")) parseData
+		OauthResponse clone setData(output) parseData
 	)
 
 	setupOauthParams := method(

addons/SystemCall/io/SystemCall.io

@@ -48,6 +48,32 @@ SystemCall do(
 		setReturnCode(s)
 		self
 	)
+
+	runAndReturnOutput := method(aBlock,
+	    buffer := Sequence clone
+		err := self asyncRun(command, arguments, environment)
+		if(err == -1, Exception raise("unable to run command"))
+
+		// replace this with something to watch the file streams?
+		isRunning := true
+		//writeln("self status = ", self status)
+		wait(.00001)
+		s := self status
+		while(isRunning == true and s > 255 and s != -1,
+			//writeln("self status = ", s)
+			if(aBlock, if(aBlock call == false, return false))
+			wait(.02)
+			s := self status
+			//buffer appendSeq(stdout readToEnd)
+			buffer appendSeq(stdout readLines join("\n"))
+		)
+		//writeln("self status = ", s)
+		if(aBlock, aBlock call)
+
+		isRunning := false
+		setReturnCode(s)
+		self
+	)
 
 	runWith := method(
 		run(Block clone setMessage(call argAt(0)) setScope(self))