io.launcher: use process-lines

diff --git a/basis/alien/libraries/finder/freebsd/freebsd.factor b/basis/alien/libraries/finder/freebsd/freebsd.factor
index b7c7bd19e259ce3e540fd87e4b9503aeeb51a3ec..1154a599137e5affe16a00fdc1c707ea3107cefc 100644 (file)
--- a/basis/alien/libraries/finder/freebsd/freebsd.factor
+++ b/basis/alien/libraries/finder/freebsd/freebsd.factor
@@ -13,7 +13,7 @@ IN: alien.libraries.finder.freebsd
     ] map ;
 
 : load-ldconfig-cache ( -- seq )
-    "/sbin/ldconfig -r" utf8 [ read-lines ] with-process-reader
+    "/sbin/ldconfig -r" process-lines
     rest parse-ldconfig-lines ;
 
 : name-matches? ( lib double -- ? )

diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor
index 2250a39dd88ff33a929ac67cc741d547878e43c9..b1bf486af1c8e57f683a3b6795a9a091679b9e9f 100644 (file)
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@@ -247,6 +247,9 @@ PRIVATE>
 : process-lines ( desc -- lines )
     utf8 <process-reader> stream-lines ;
 
+: process-contents ( desc -- contents )
+    utf8 <process-reader> stream-contents ;
+
 <PRIVATE
 
 : (process-writer) ( desc encoding -- stream process )

diff --git a/basis/io/launcher/windows/windows-tests.factor b/basis/io/launcher/windows/windows-tests.factor
index 2292edbaeb87f3afd27399ebd4c296cf314a52a0..45dd468e5f148d8e751725f7e2050b0912a4bbf4 100644 (file)
--- a/basis/io/launcher/windows/windows-tests.factor
+++ b/basis/io/launcher/windows/windows-tests.factor
@@ -158,7 +158,7 @@ SYMBOLS: out-path err-path ;
             console-vm-path "-script" "stderr.factor" 3array >>command
             [ "err2" ".txt" unique-file ] with-temp-directory
             [ err-path set-global ] keep >>stderr
-        process-lines first
+        process-contents
     ] with-directory
 ] unit-test
 

diff --git a/extra/contributors/contributors.factor b/extra/contributors/contributors.factor
index ddb074cc044c42ada14eeaf739b938896dcf5e50..79cacec49c5f5e765f217edf33f86109980b8930 100644 (file)
--- a/extra/contributors/contributors.factor
+++ b/extra/contributors/contributors.factor
@@ -22,8 +22,7 @@ CONSTANT: aliases {
 
 : changelog ( -- authors )
     image-path parent-directory [
-        "git log --no-merges --pretty=format:%an"
-        utf8 [ read-lines ] with-process-reader
+        "git log --no-merges --pretty=format:%an" process-lines
     ] with-directory ;
 
 : merge-aliases ( authors -- authors' )

diff --git a/extra/irc/gitbot/gitbot.factor b/extra/irc/gitbot/gitbot.factor
index 8d71d8978ea09bdcaba9f4968d96eaf322276357..a92d05c5c64775ae648f1558c11f4d857e8023c0 100644 (file)
--- a/extra/irc/gitbot/gitbot.factor
+++ b/extra/irc/gitbot/gitbot.factor
@@ -39,7 +39,7 @@ M: object handle-message drop ;
         "--pretty=format:%h %an: %s" ,
         ".." glue ,
     ] { } make
-    utf8 [ read-lines ] with-process-reader ;
+    process-lines ;
 
 : updates ( from to -- lines )
     git-log reverse

diff --git a/extra/mason/git/git.factor b/extra/mason/git/git.factor
index 970082e3168a4c8f641d1277f7b5dd884f36a330..362bc8dba7c06aa4a10cbd2d8828c767fa93f190 100644 (file)
--- a/extra/mason/git/git.factor
+++ b/extra/mason/git/git.factor
@@ -7,7 +7,7 @@ splitting ;
 IN: mason.git
 
 : git-id ( -- id )
-    { "git" "show" } utf8 [ read-lines ] with-process-reader
+    { "git" "show" } process-lines
     first split-words second ;
 
 <PRIVATE
@@ -57,7 +57,7 @@ IN: mason.git
     { "git" "status" "--porcelain" } ;
 
 : git-status ( -- seq )
-    git-status-cmd utf8 [ read-lines ] with-process-reader ;
+    git-status-cmd process-lines ;
 
 : check-repository ( -- seq )
     "factor" [ git-status ] with-directory ;

diff --git a/extra/spotlight/spotlight.factor b/extra/spotlight/spotlight.factor
index c1a6dea0164253d2722d308d67cafb6da6a3e3a7..fe86c12e1abcde1f80c1faa0b71a67dae44058a7 100644 (file)
--- a/extra/spotlight/spotlight.factor
+++ b/extra/spotlight/spotlight.factor
@@ -42,35 +42,28 @@ IN: spotlight
 : attr|| ( attr1 attr2 -- string )
     " || " glue ;
 
-<PRIVATE
-
-: run-process-output ( command -- seq )
-    utf8 [ read-lines ] with-process-reader ;
-
-PRIVATE>
-
 : mdfind ( query -- results )
-    "mdfind -onlyin . %s" sprintf run-process-output ;
+    "mdfind -onlyin . %s" sprintf process-lines ;
 
 : mdfind. ( query -- )
     mdfind [ dup <pathname> write-object nl ] each ;
 
 : mdls ( path -- )
-    absolute-path "mdls" swap 2array run-process-output
+    absolute-path "mdls" swap 2array process-lines
     [ print ] each ;
 
 : mdutil ( flags on|off volume -- seq )
     [ "mdfind" swap "-" prepend "-i" ] 2dip 5 narray
-    run-process-output ;
+    process-lines ;
 
 : mdimport ( path -- seq )
-    absolute-path "mdimport " prepend run-process-output ;
+    absolute-path "mdimport " prepend process-lines ;
 
 : mdimport-with ( path options -- seq )
-    swap absolute-path "mdimport %s %s" sprintf run-process-output ;
+    swap absolute-path "mdimport %s %s" sprintf process-lines ;
 
 MEMO: kMDItems ( -- seq )
-    "mdimport -A" run-process-output
+    "mdimport -A" process-lines
     [ "'kMDItem" head? ] filter
     [ "\t" split harvest [ but-last rest ] map ] map ;