Use 'OpenPipe' for backwards compatibility. (#86)

Author: floitsch

src/pipe.toit

@@ -38,7 +38,7 @@ get-standard-pipe_ fd/int -> Stream:
     if file.is-open-file_ fd:
       standard-pipes_[fd] = file.OpenFile_.internal_ fd
     else:
-      standard-pipes_[fd] = OpenPipe_.from-std_ (fd-to-pipe_ pipe-resource-group_ fd)
+      standard-pipes_[fd] = OpenPipe.from-std_ (fd-to-pipe_ pipe-resource-group_ fd)
   return standard-pipes_[fd]
 
 /**
@@ -54,7 +54,7 @@ get-numbered-pipe fd/int -> Stream:
   if file.is-open-file_ fd:
     return file.OpenFile_.internal_ fd
   else:
-    return OpenPipe_.from-std_ (fd-to-pipe_ pipe-resource-group_ fd)
+    return OpenPipe.from-std_ (fd-to-pipe_ pipe-resource-group_ fd)
 
 class OpenPipeReader_ extends io.CloseableReader:
   pipe_/OpenPipe_
@@ -93,6 +93,9 @@ class OpenPipe extends OpenPipe_:
   constructor input/bool --child-process-name="child process":
     super input --child-process-name=child-process-name
 
+  constructor.from-std_ resource:
+    super.from-std_ resource
+
 class OpenPipe_ implements Stream:
   resource_ := ?
   state_ := ?
@@ -375,15 +378,15 @@ fork_ use-path stdin stdout stderr command arguments -> List
     flat-environment[index++] = (value == null) ? null : value.stringify
   exception := catch:
     if stdin == PIPE-CREATED:
-      pipe := OpenPipe_ true
+      pipe := OpenPipe true
       result[0] = pipe
       stdin = pipe.fd_
     if stdout == PIPE-CREATED:
-      pipe := OpenPipe_ false
+      pipe := OpenPipe false
       result[1] = pipe
       stdout = pipe.fd_
     if stderr == PIPE-CREATED:
-      pipe := OpenPipe_ false
+      pipe := OpenPipe false
       result[2] = pipe
       stderr = pipe.fd_
     fd-3 := file-descriptor-3 ? file-descriptor-3.fd_ : -1
@@ -474,7 +477,7 @@ The $environment argument is used as in $fork.
 to --environment/Map?=null arguments -> Stream:
   if arguments is string:
     arguments = [arguments]
-  pipe-ends := OpenPipe_ true --child-process-name=arguments[0]
+  pipe-ends := OpenPipe true --child-process-name=arguments[0]
   stdin := pipe-ends.fd_
   pipes := fork_ --environment=environment true stdin PIPE-INHERITED PIPE-INHERITED arguments[0] arguments
   pipe-ends.pid = pipes[3]
@@ -512,7 +515,7 @@ The $environment argument is used as in $fork.
 from --environment/Map?=null arguments -> Stream:
   if arguments is string:
     arguments = [arguments]
-  pipe-ends := OpenPipe_ false --child-process-name=arguments[0]
+  pipe-ends := OpenPipe false --child-process-name=arguments[0]
   stdout := pipe-ends.fd_
   pipes := fork_ --environment=environment true PIPE-INHERITED stdout PIPE-INHERITED arguments[0] arguments
   pipe-ends.pid = pipes[3]
@@ -546,7 +549,7 @@ The $environment argument is used as in $fork.
 backticks --environment/Map?=null arguments -> string:
   if arguments is string:
     arguments = [arguments]
-  pipe-ends := OpenPipe_ false
+  pipe-ends := OpenPipe false
   stdout := pipe-ends.fd_
   pipes := fork_ --environment=environment true PIPE-INHERITED stdout PIPE-INHERITED arguments[0] arguments
   child-process := pipes[3]

src/stream.toit

@@ -7,7 +7,7 @@ import reader as old-reader
 
 import .file as file-lib
 import .file show RDONLY WRONLY RDWR APPEND CREAT TRUNC
-import .pipe show OpenPipe_
+import .pipe show OpenPipe
 
 interface Stream implements old-reader.Reader:
   in -> io.CloseableReader
@@ -78,10 +78,10 @@ interface Stream implements old-reader.Reader:
   Constructs a pipe to send data to a child process.
   */
   constructor --parent-to-child/True --child-process-name="child process":
-    return OpenPipe_ true --child-process-name=child-process-name
+    return OpenPipe true --child-process-name=child-process-name
 
   /**
   Constructs a pipe to receive data from a child process.
   */
   constructor --child-to-parent/True --child-process-name="child process":
-    return OpenPipe_ false --child-process-name=child-process-name
+    return OpenPipe false --child-process-name=child-process-name