equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1998 by eXept Software AG |
2 COPYRIGHT (c) 1998 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
214 |
212 |
215 env := Dictionary new. |
213 env := Dictionary new. |
216 env at:'TERM' put:'dumb'. |
214 env at:'TERM' put:'dumb'. |
217 env at:'SHELL' put:'/bin/sh'. |
215 env at:'SHELL' put:'/bin/sh'. |
218 |
216 |
219 osProcess := OSProcess new |
217 osProcess := OSProcess new. |
220 command:aCommandString directory:aDirectory; |
218 osProcess command:aCommandString environment:env directory:aDirectory |
221 environment:env; |
219 inStream:remotePipeEnd outStream:remotePipeEnd errorStream:remotePipeEnd. |
222 inStream:remotePipeEnd; |
|
223 outStream:remotePipeEnd; |
|
224 errorStream:remotePipeEnd. |
|
225 |
220 |
226 result := osProcess startProcess. |
221 result := osProcess startProcess. |
227 |
222 |
228 remotePipeEnd notNil ifTrue:[ |
223 remotePipeEnd notNil ifTrue:[ |
229 remotePipeEnd close. |
224 remotePipeEnd close. |