OSProcess.st
author Stefan Vogel <sv@exept.de>
Thu, 05 Dec 2019 17:58:42 +0100
changeset 25070 26915eb67235
parent 24822 24ceeb53827e
child 25072 cd9ca7569011
permissions -rw-r--r--
#REFACTORING by stefan class: OSProcess changed: #startProcess
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
24011
c7b1d5bd2166 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23907
diff changeset
     1
"{ Encoding: utf8 }"
c7b1d5bd2166 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23907
diff changeset
     2
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     3
"{ Package: 'stx:libbasic' }"
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     4
19286
9e8eea97fd57 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 13313
diff changeset
     5
"{ NameSpace: Smalltalk }"
9e8eea97fd57 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 13313
diff changeset
     6
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     7
Object subclass:#OSProcess
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
     8
	instanceVariableNames:'pid command environment directory inStream outStream errorStream
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
     9
		auxInStream auxOutStream showWindow lineWise newPgrp exitStatus
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
    10
		finishSema inputShufflerProcesses outputShufflerProcesses
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
    11
		streamsToClose terminateActionBlock'
23793
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
    12
	classVariableNames:'Instances'
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
    13
	poolDictionaries:''
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
    14
	category:'System-Support'
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    15
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    16
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
    17
Object subclass:#ProcessListEntry
23204
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
    18
	instanceVariableNames:'executableName processID sessionName userName'
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
    19
	classVariableNames:''
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
    20
	poolDictionaries:''
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
    21
	privateIn:OSProcess
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
    22
!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
    23
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    24
OSProcess subclass:#RemoteOSProcess
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
    25
	instanceVariableNames:'host'
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
    26
	classVariableNames:'MethodPerHost'
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
    27
	poolDictionaries:''
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
    28
	privateIn:OSProcess
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    29
!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    30
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    31
!OSProcess class methodsFor:'documentation'!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    32
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    33
documentation
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    34
"
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
    35
    Instances of OSProcess represent operating system processes that can be executed.
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    36
    (as opposed to Smalltalk processes).
24290
36a25191f3e8 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 24018
diff changeset
    37
    Both local and remote processes are supported.
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    38
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    39
    commandString:
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    40
     If command is a String, the commandString is passed to a shell for execution
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    41
     - see the description of 'sh -c' in your UNIX manual ('cmd.exe' in your Windows manual).
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    42
     Regular input/output redirection and pipes etc. are supported as supported by
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    43
     the underlying OS's command interpreter (i.e. some limits apply to MSDOS)
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    44
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    45
     With an empty command, the shell will read commands from the passed input stream.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    46
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    47
     If command is an Array, the first element is the command to be executed,
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    48
     and the other elements are the arguments to the command. 
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    49
     No shell is invoked in this case. Any redirection or piping can then be done
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    50
     by Smalltalk code (including piping through smalltalk streams & filters).
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    51
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    52
    [author:]
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    53
        Stefan Vogel (stefan@zwerg)
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    54
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    55
    [instance variables:]
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    56
        pid         SmallInteger    the process id
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
    57
        command     String          the command line of the running command.
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    58
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    59
    [class variables:]
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    60
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    61
    [see also:]
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    62
        Process
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    63
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    64
"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
    65
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
    66
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
    67
examples
21512
a78759923d34 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21332
diff changeset
    68
"
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    69
  send command's output to the Transcript:
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    70
                                                            [exBegin]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    71
    OSProcess new 
22986
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
    72
        terminateActionBlock:[:status | Transcript showCR:status. Transcript showCR:status isError];
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
    73
        command:'lsxxxx -l';
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    74
        outStream:Transcript;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    75
        lineWise:true;
22986
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
    76
        startProcess.
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    77
                                                            [exEnd]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    78
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    79
  send command's output to my stdout (see console):
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    80
                                                            [exBegin]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    81
    OSProcess new 
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    82
        command:'ls -l';
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    83
        outStream:Stdout;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    84
        execute.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    85
                                                            [exEnd]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    86
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    87
  send command's output to a Smalltalk stream:
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
    88
                                                            [exBegin]
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    89
    |outStream|
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
    90
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    91
    outStream := '' writeStream.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
    92
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    93
    OSProcess new 
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    94
        command:'ls -l';
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    95
        outStream:outStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
    96
        execute.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
    97
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
    98
    outStream contents inspect.
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
    99
                                                            [exEnd]
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   100
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   101
  feed it from a smalltalk stream, get command's output into a Smalltalk stream:
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   102
                                                            [exBegin]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   103
    |inStream outStream|
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   104
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   105
    inStream := 'hello world' readStream.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   106
    outStream := '' writeStream.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   107
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   108
    OSProcess new 
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   109
        command:'tr ''a-z'' ''A-Z''';
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   110
        inStream:inStream;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   111
        outStream:outStream;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   112
        execute.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   113
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   114
    outStream contents inspect.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   115
                                                            [exEnd]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   116
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   117
  again, send output to a Smalltalk stream;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   118
  watch the stream getting filled after 10 seconds:
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
   119
                                                            [exBegin]
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   120
    |outStream|
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   121
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   122
    outStream := '' writeStream.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   123
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   124
    OSProcess new 
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   125
        command:'ls -l; sleep 10; echo =================================; echo hallo after 10s; echo >&2 +++++++++++++++++++++; cat >&2';
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   126
        outStream:outStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   127
        errorStream:outStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   128
        startProcess.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   129
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   130
    outStream inspect
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
   131
                                                            [exEnd]
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   132
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   133
  separate stdout and stderr:
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
   134
                                                            [exBegin]
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   135
    |outStream errStream|
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   136
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   137
    outStream := '' writeStream.
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   138
    errStream := '' writeStream.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   139
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   140
    OSProcess new 
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   141
        command:'ls -l && ls >&2';
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   142
        outStream:outStream;
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   143
        errorStream:errStream;
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   144
        startProcess.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   145
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   146
    outStream inspect.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   147
    errStream inspect.
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
   148
                                                            [exEnd]
21512
a78759923d34 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21332
diff changeset
   149
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   150
  Execute commands in shell/cmd.exe and read them from stdin:
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
   151
                                                            [exBegin]
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   152
    |outStream|
21512
a78759923d34 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21332
diff changeset
   153
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   154
    outStream := '' writeStream.
21512
a78759923d34 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21332
diff changeset
   155
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   156
    OSProcess new 
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   157
        command:'';
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   158
        inStream:'ls -l' readStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   159
        outStream:outStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   160
        lineWise:true;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   161
        execute.
21512
a78759923d34 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21332
diff changeset
   162
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   163
    outStream contents inspect
22197
444d71c29720 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22181
diff changeset
   164
                                                            [exEnd]
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   165
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   166
  Execute on a remote host (you must have the appropriate ssh setup):
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   167
                                                            [exBegin]
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   168
    |outStream|
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   169
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   170
    outStream := '' writeStream.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   171
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   172
    (OSProcess onHost:'exeptn') 
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   173
        command:'ls -l';
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   174
        outStream:outStream;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   175
        lineWise:true;
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   176
        execute.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   177
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   178
    outStream contents inspect
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   179
                                                            [exEnd]
21512
a78759923d34 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21332
diff changeset
   180
"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   181
! !
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   182
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   183
!OSProcess class methodsFor:'instance creation'!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   184
23793
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   185
allInstancesDo:aBlock
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   186
    "return an initialized instance for a local process.
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   187
     Keep track of the new instance (so we can quickly enumerate all of them)"
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   188
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   189
    Instances notNil ifTrue:[ 
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   190
        Instances do:aBlock
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   191
    ].
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   192
    
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   193
    "
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   194
     super allInstances
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   195
     self allInstances
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   196
    "
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   197
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   198
    "Created: / 02-03-2019 / 19:19:41 / Claus Gittinger"
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   199
!
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   200
22437
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   201
command:aCommandString
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   202
    "return an initialized instance to execute aCommandString
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   203
     in the current directory (for a local process)"
22437
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   204
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   205
    ^ self new command:aCommandString.
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   206
!
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   207
22438
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   208
command:aCommandString directory:aStringOrFilename
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   209
    "return an initialized instance to execute aCommandString 
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   210
     in a given directory (for a local process)"
22437
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   211
22438
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   212
    ^ self new command:aCommandString directory:aStringOrFilename.
22437
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   213
!
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   214
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   215
commandStringForProgramName:executableFile arguments:arrayOfStrings
23184
5527a9f0dfd4 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23183
diff changeset
   216
    "generate a command line string from appending args (possibley quoted) to the exe-name (with spaces)"
5527a9f0dfd4 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23183
diff changeset
   217
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   218
    ^ String streamContents:[:s |
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   219
        s nextPutAll:(self possiblyQuoted:executableFile asFilename pathName).
23182
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   220
        arrayOfStrings notNil ifTrue:[
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   221
            arrayOfStrings do:[:eachArg |
23183
76333ab19e6f #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23182
diff changeset
   222
                s space.
23182
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   223
                s nextPutAll:(self possiblyQuoted:eachArg).
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   224
            ].
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   225
        ]
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   226
    ]
23182
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   227
23184
5527a9f0dfd4 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23183
diff changeset
   228
    "Modified (comment): / 02-07-2018 / 20:50:29 / cg"
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   229
!
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   230
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   231
new
23793
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   232
    "return an initialized instance for a local process.
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   233
     Keep track of the new instance (so we can quickly enumerate all of them)"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   234
23793
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   235
    |newInst|
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   236
    
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   237
    Instances isNil ifTrue:[
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   238
        Instances := WeakIdentitySet new
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   239
    ].    
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   240
    newInst := self basicNew initialize.
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   241
    Instances add:newInst.
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   242
    ^ newInst
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   243
e4692ca78427 #TUNING by cg
Claus Gittinger <cg@exept.de>
parents: 23648
diff changeset
   244
    "Modified (comment): / 02-03-2019 / 19:15:25 / Claus Gittinger"
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   245
!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   246
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   247
onHost:aHost
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   248
    "return an initialized instance for a remote process running on another host"
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   249
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   250
    (SocketAddress hostName:aHost) isLocal ifTrue:[
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   251
        ^ self basicNew initialize.
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   252
    ].
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   253
    ^ RemoteOSProcess basicNew host:aHost; initialize.
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   254
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   255
    "
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   256
     OSProcess onHost:'localhost'
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   257
     OSProcess onHost:'exeptn'
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   258
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   259
     (OSProcess new) command:'ls'
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   260
     (OSProcess onHost:'exeptn') command:'ls'
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   261
    "
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   262
!
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   263
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   264
possiblyQuoted:aString
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   265
    "should we quote or escape?"
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   266
24018
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   267
    "/ better quote - qorks on Windows AND Unix
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   268
    ^ Filename possiblyQuotedPathname:aString.
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   269
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   270
"/    ^ String streamContents:[:s |
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   271
"/        aString do:[:ch |
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   272
"/            (ch isSeparator or:[ch = $\]) ifTrue:[
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   273
"/                s nextPut:$\
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   274
"/            ].
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   275
"/            s nextPut:ch
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   276
"/        ]
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   277
"/    ]
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   278
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   279
    "
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   280
     self possiblyQuoted:'foo bar' 
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   281
     self possiblyQuoted:'foo\bar'
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   282
    "
24018
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   283
8db2b5564d4b #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 24011
diff changeset
   284
    "Modified: / 28-03-2019 / 16:19:41 / Claus Gittinger"
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   285
!
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   286
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   287
programName:executableFile arguments:arrayOfStrings initialEnvironment:stringDictionary
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   288
    "similar to command:, but with separate command and arguments"
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   289
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   290
    ^ self new
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   291
        command:(self commandStringForProgramName:executableFile arguments:arrayOfStrings);
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   292
        environment:stringDictionary;
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   293
        yourself
23182
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   294
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   295
    "
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   296
     (self programName:'notepad.exe' arguments:#() initialEnvironment:nil)
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   297
        showWindow:true;
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   298
        startProcess
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   299
    "
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   300
6082d007b7c3 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23126
diff changeset
   301
    "Modified (comment): / 02-07-2018 / 20:33:02 / cg"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   302
! !
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   303
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   304
!OSProcess class methodsFor:'class initialization'!
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   305
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   306
initialize
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   307
    "Backward compatibility: Win32Process is an alias for OSProcess"
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   308
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   309
    Win32Process := self.
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   310
! !
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   311
22568
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   312
!OSProcess class methodsFor:'queries'!
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   313
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   314
defaultShellPath
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   315
    OperatingSystem isUNIXlike ifTrue:[
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   316
        ^ OperatingSystem getEnvironment:'SHELL' 
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   317
    ].
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   318
    ^ 'cmd'
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   319
! !
eb116af8c3a2 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22439
diff changeset
   320
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   321
!OSProcess class methodsFor:'utilities'!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   322
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   323
getTaskList
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   324
    "get a tasklist (Windows OS only)"
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   325
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   326
    |lines sepIdx entries|
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   327
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   328
    OperatingSystem isMSWINDOWSlike ifTrue:[
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   329
        lines := (PipeStream outputFromCommand:'tasklist') asStringCollection.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   330
        sepIdx := lines findFirst:[:line | line startsWith:'=='].
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   331
        sepIdx == 0 ifTrue:[ ^ #() ].
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   332
        entries := (lines from:(sepIdx + 1)) 
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   333
                        collect:[:line |
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   334
                            |s idx executableName processID userName|
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   335
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   336
                            s := line readStream.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   337
                            executableName := (s upToMatching:[:ch | ch isDigit]) withoutSeparators.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   338
                            processID := Integer readFrom:s.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   339
                            s skipSeparators.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   340
                            userName := s nextAlphaNumericWord.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   341
23204
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
   342
                            ProcessListEntry executableName:executableName processID:processID sessionName:userName
23202
d8eaf4da9e34 #REFACTORING by anharman
anharman
parents: 23201
diff changeset
   343
                        ]
d8eaf4da9e34 #REFACTORING by anharman
anharman
parents: 23201
diff changeset
   344
                        as:OrderedCollection.
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   345
    ] ifFalse:[
23213
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   346
        lines := (PipeStream outputFromCommand:'ps') asStringCollection.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   347
        sepIdx := lines findFirst:[:line | line withoutSeparators first isDigit].
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   348
        sepIdx == 0 ifTrue:[ ^ #() ].
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   349
        entries := (lines from:(sepIdx + 1)) 
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   350
                        collect:[:line |
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   351
                            |s idx executableName processID tty time|
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   352
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   353
                            s := line readStream.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   354
                            processID := Integer readFrom:s.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   355
                            s skipSeparators.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   356
                            tty := s upToSeparator.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   357
                            s skipSeparators.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   358
                            time := s upToSeparator.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   359
                            s skipSeparators.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   360
                            executableName := s upToEnd.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   361
                            (executableName startsWith:'-') ifTrue:[
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   362
                                executableName := executableName copyFrom:2.
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   363
                            ].    
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   364
                            ProcessListEntry executableName:executableName processID:processID sessionName:nil
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   365
                        ]
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   366
                        as:OrderedCollection.
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   367
    ].
23213
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   368
    ^ entries
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   369
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   370
    "
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   371
     self getTaskList
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   372
    "
23213
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   373
bd67ea22139d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23204
diff changeset
   374
    "Modified: / 16-07-2018 / 23:11:05 / Claus Gittinger"
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   375
! !
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
   376
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   377
!OSProcess methodsFor:'accessing'!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   378
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   379
auxInStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   380
    ^ auxInStream
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   381
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   382
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   383
auxInStream:aStream
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   384
    "set an auxiliary input stream that will be available to the command as
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   385
     file descriptor 3"
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   386
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   387
    auxInStream := aStream.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   388
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   389
    "Modified (comment): / 23-02-2017 / 10:56:57 / Maren"
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   390
!
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   391
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   392
auxOutStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   393
    ^ auxOutStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   394
!
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   395
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   396
auxOutStream:aStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   397
    "set an auxiliary output stream that will be available to the command as
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   398
     file descriptor 4"
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   399
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   400
    auxOutStream := aStream.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   401
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   402
    "Modified (comment): / 23-02-2017 / 10:56:57 / Maren"
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   403
!
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   404
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   405
auxStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   406
    <resource: #obsolete>
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   407
    ^ self auxInStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   408
!
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   409
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   410
auxStream:aStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   411
    <resource: #obsolete>
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   412
    "set an auxiliary input stream that will be available to the command as
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   413
     file descriptor 3"
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   414
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   415
    self auxInStream:aStream.
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   416
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   417
    "Modified (comment): / 23-02-2017 / 10:56:57 / Maren"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   418
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   419
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   420
command
24682
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   421
    "the OS (shell-) command, as string or string-array"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   422
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   423
    ^ command
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   424
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   425
    "Created: / 10.11.1998 / 21:27:07 / cg"
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   426
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   427
22437
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   428
command:aStringOrArray 
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   429
    "set the command to be executed.
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   430
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   431
     If aStringOrArray is a String, the commandString is passed to a shell for execution
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   432
     - see the description of 'sh -c' in your UNIX manual ('cmd.exe' in your Windows manual).
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   433
     With an empty command, the shell will read commands from the passed input stream.
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   434
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   435
     If aCommandString is an Array, the first element is the command to be executed,
22439
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   436
     and the other elements are the arguments to the command. 
2a098663db2f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22438
diff changeset
   437
     No shell is invoked in this case."
22437
2eab35976e5e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22436
diff changeset
   438
    
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   439
    command := aStringOrArray.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   440
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   441
22436
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   442
command:commandStringArg directory:stringOrFilenameArg
22438
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   443
    "set the command to be executed and directory, where to execute.
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   444
     If aStringOrArray is a String, the commandString is passed to a shell for execution
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   445
     - see the description of 'sh -c' in your UNIX manual ('cmd.exe' in your Windows manual).
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   446
     If aCommandString is an Array, the first element is the command to be executed,
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   447
     and the other elements are the arguments to the command. No shell is invoked in this case."
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   448
22436
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   449
    command := commandStringArg.
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   450
    directory := stringOrFilenameArg.
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   451
!
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   452
24822
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   453
command:commandArg directory:directoryArg outStream:outStreamArg errorStream:errorStreamArg 
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   454
    "set the command to be executed & directory, where to execute.
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   455
     and output/error streams.
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   456
     See comments in individual setters for more info"
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   457
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   458
    command := commandArg.
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   459
    directory := directoryArg.
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   460
    outStream := outStreamArg.
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   461
    errorStream := errorStreamArg.
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   462
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   463
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   464
!
24ceeb53827e #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24821
diff changeset
   465
23505
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   466
command:commandArg environment:environmentArg directory:directoryArg inStream:inStreamArg outStream:outStreamArg errorStream:errorStreamArg 
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   467
    "set the command to be executed & directory, where to execute.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   468
     and input/output streams.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   469
     See comments in individual setters for more info"
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   470
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   471
    command := commandArg.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   472
    environment := environmentArg.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   473
    directory := directoryArg.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   474
    inStream := inStreamArg.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   475
    outStream := outStreamArg.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   476
    errorStream := errorStreamArg.
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   477
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   478
    "Created: / 04-11-2018 / 18:28:24 / Claus Gittinger"
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   479
!
54b7a8af8117 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23501
diff changeset
   480
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   481
command:commandArg environment:environmentArg directory:directoryArg inStream:inStreamArg outStream:outStreamArg errorStream:errorStreamArg auxInStream:auxInStreamArg auxOutStream:auxOutStreamArg showWindow:showWindowArg lineWise:lineWiseArg 
22438
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   482
    "set the command to be executed & directory, where to execute.
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   483
     and input/output streams.
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   484
     See comments in individual setters for more info"
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   485
22181
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   486
    command := commandArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   487
    environment := environmentArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   488
    directory := directoryArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   489
    inStream := inStreamArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   490
    outStream := outStreamArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   491
    errorStream := errorStreamArg.
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   492
    auxInStream := auxInStreamArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   493
    auxOutStream := auxOutStreamArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   494
    showWindow := showWindowArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   495
    lineWise := lineWiseArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   496
!
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   497
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   498
command:commandArg environment:environmentArg directory:directoryArg inStream:inStreamArg outStream:outStreamArg errorStream:errorStreamArg auxStream:auxInStreamArg showWindow:showWindowArg lineWise:lineWiseArg 
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   499
    "set the command to be executed & directory, where to execute.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   500
     and input/output streams.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   501
     See comments in individual setters for more info"
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   502
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   503
    command := commandArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   504
    environment := environmentArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   505
    directory := directoryArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   506
    inStream := inStreamArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   507
    outStream := outStreamArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   508
    errorStream := errorStreamArg.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   509
    auxInStream := auxInStreamArg.
22181
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   510
    showWindow := showWindowArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   511
    lineWise := lineWiseArg.
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   512
!
fa3f71f80d13 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 22148
diff changeset
   513
24820
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   514
command:commandArg outStream:outStreamArg errorStream:errorStreamArg 
24821
a45e3af1bbcb #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24820
diff changeset
   515
    "set the command to be executed and output+error streams.
24820
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   516
     See comments in individual setters for more info"
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   517
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   518
    command := commandArg.
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   519
    outStream := outStreamArg.
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   520
    errorStream := errorStreamArg.
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   521
!
301c642f32e7 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 24724
diff changeset
   522
24682
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   523
commandString
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   524
    "the OS (shell-) command, as string"
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   525
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   526
    command isString ifTrue:[^ command].
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   527
    ^ command asStringWith:' '
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   528
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   529
    "Created: / 10.11.1998 / 21:27:07 / cg"
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   530
!
b56fdbd5003f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24681
diff changeset
   531
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   532
directory
22438
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   533
    "the directory where executed"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   534
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   535
    ^ directory
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   536
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   537
    "Created: / 10.11.1998 / 21:21:52 / cg"
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   538
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   539
22436
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   540
directory:aStringOrFilename
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   541
    "set the directory that will be set as the current directory of the command to be executed"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   542
22436
be3edafe55cc #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22199
diff changeset
   543
    directory := aStringOrFilename.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   544
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   545
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   546
environment
22438
7f0d16f4a407 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22437
diff changeset
   547
    "the shell environment"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   548
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   549
    ^ environment
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   550
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   551
    "Created: / 10.11.1998 / 21:26:34 / cg"
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   552
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   553
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   554
environment:aDictionary
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   555
    "set the environment variables of the command to be executed"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   556
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   557
    environment := aDictionary.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   558
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   559
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   560
errorStream
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   561
    ^ errorStream
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   562
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   563
    "Created: / 10.11.1998 / 21:26:34 / cg"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   564
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   565
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   566
errorStream:aStream
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   567
    "set the stream where the stderr output of the command is directed to"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   568
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   569
    errorStream := aStream.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   570
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   571
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   572
exitStatus
24681
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   573
    "answer the exit status of the command (instance of OSProcessStatus).
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   574
     or nil if the command has not yet been finished."
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   575
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   576
    ^ exitStatus
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   577
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   578
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   579
finishSema
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   580
    "wait on this semaphore if you want to wait until the OS process has finished.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   581
     There may be multiple waiters, so it is a good idea to do a #waitUncounted"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   582
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   583
    ^ finishSema
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   584
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   585
    "Modified (comment): / 23-02-2017 / 10:53:17 / Maren"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   586
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   587
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   588
inStream
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   589
    ^ inStream
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   590
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   591
    "Created: / 10.11.1998 / 21:26:34 / cg"
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   592
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   593
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   594
inStream:aStream
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   595
    "set the stream where the stdin input of the command is read from"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   596
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   597
    inStream := aStream.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   598
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   599
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   600
lineWise
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   601
    ^ lineWise
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   602
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   603
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   604
lineWise:aBoolean
21209
e9395c842124 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21208
diff changeset
   605
    "When setting to true, read linewise from the command's output and error.
e9395c842124 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 21208
diff changeset
   606
     This is a bit slower than lineWise = false.
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   607
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   608
     You may use it also when streaming to e.g. Transcript"
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   609
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   610
    lineWise := aBoolean.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   611
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   612
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   613
newPgrp
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   614
    ^ newPgrp
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   615
!
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   616
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   617
newPgrp:aBoolean
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   618
    "if aBoolean is true, a new process group will be created for the command and its subprocesses"
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   619
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   620
    newPgrp := aBoolean.
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   621
!
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   622
23223
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   623
numericPid
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   624
    "answer the pid of the process the command is running in,
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   625
     or nil if the command has not yet been started.
23537
97943007572e #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 23505
diff changeset
   626
     Always return an integer, even in windows where pid is a handle-"
23223
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   627
23635
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   628
    pid isOsHandle ifTrue:[
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   629
        ^ pid pid.
23223
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   630
    ].
23635
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   631
    ^ pid.  "Integer or nil"
23223
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   632
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   633
    "Created: / 19-07-2018 / 16:21:25 / Stefan Vogel"
23537
97943007572e #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 23505
diff changeset
   634
    "Modified (comment): / 20-11-2018 / 16:50:26 / Stefan Vogel"
23223
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   635
!
ef9068ed4eae #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 23213
diff changeset
   636
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   637
outStream
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   638
    "the stream where the stdout output of the command is directed to"
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   639
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   640
    ^ outStream
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   641
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   642
    "Created: / 10.11.1998 / 21:26:34 / cg"
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   643
!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   644
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   645
outStream:aStream
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   646
    "set the stream where the stdout output of the command is directed to"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   647
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   648
    outStream := aStream.
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   649
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   650
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   651
pid
23204
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
   652
    "answer the pid of the process the command is running in,
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
   653
     or nil if the command has not yet been started.
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
   654
     Notice: on Unix, the pid is an integer;
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
   655
     on Windows, it is a handle."
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   656
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   657
    ^ pid
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   658
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   659
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   660
showWindow
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   661
    ^ showWindow
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   662
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   663
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   664
showWindow:aBooleanOrNil
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   665
    "This parameter is ignored on Unix systems.
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   666
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   667
     You can control (have to - sigh) if a window should be shown for the command or not.
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   668
     This is the OS's H_SHOWWINDOW argument.
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   669
     If you pass nil as showWindow-argument, the OS's default is used for the particular
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   670
     command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   671
     executables will not.
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   672
     However, some command-line executables show a window, even if they should not.
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   673
     (and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   674
     a shell command opens a cmd-window, whereas in windows7 it did not)
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   675
     In this case, pass an explicit false argument to suppress it."
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   676
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   677
    showWindow := aBooleanOrNil.
21206
aad552f2f306 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21205
diff changeset
   678
!
aad552f2f306 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21205
diff changeset
   679
aad552f2f306 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21205
diff changeset
   680
terminateActionBlock
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   681
    "the (user provided) callback block,
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   682
     that will be executed when the command has finished or was terminated.
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   683
     If non-nil, it will be called with optional argument:status and:self, the OSProcess."
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   684
21206
aad552f2f306 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21205
diff changeset
   685
    ^ terminateActionBlock
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   686
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   687
    "Modified (comment): / 22-05-2018 / 12:21:24 / Claus Gittinger"
21206
aad552f2f306 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21205
diff changeset
   688
!
aad552f2f306 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21205
diff changeset
   689
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   690
terminateActionBlock:aBlock
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   691
    "set the callback block,
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   692
     that will be called when the command has finished or was terminated.
22986
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   693
     If non-nil, it will be called with optional argument:status and:self, the OSProcess.
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   694
     WARNING: 
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   695
        if the active-process calling #startProcess is already dead (i.e. terminated),
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   696
        this callback will be called by the scheduler;
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   697
        otherwise, the calling process will be interrupted to perform this callback.
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   698
        Therefore: do not open any GUI or other blocking actions in it."
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   699
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   700
    terminateActionBlock := aBlock.
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
   701
22986
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
   702
    "Modified (comment): / 22-05-2018 / 12:42:21 / Claus Gittinger"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   703
! !
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   704
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   705
!OSProcess methodsFor:'initialization'!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   706
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   707
initialize
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   708
    "Invoked when a new instance is created."
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   709
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   710
    showWindow := false.    "/ for backward compatibility
21183
fdeb19204fb2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21182
diff changeset
   711
    lineWise := false.
fdeb19204fb2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21182
diff changeset
   712
    newPgrp := true.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   713
! !
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   714
23002
191ea99d1a08 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22994
diff changeset
   715
13313
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   716
!OSProcess methodsFor:'printing'!
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   717
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   718
printOn:aStream
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   719
    aStream 
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   720
        nextPutAll:self className;
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   721
        nextPut:$(.
23641
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   722
    exitStatus notNil ifTrue:[
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   723
        exitStatus printOn:aStream.
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   724
    ] ifFalse:[    
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   725
        pid printOn:aStream.
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   726
    ].        
13313
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   727
    aStream space.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   728
    command printOn:aStream.
13313
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   729
    aStream nextPut:$)
23641
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   730
d550133ce5f5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23635
diff changeset
   731
    "Modified: / 23-01-2019 / 13:55:08 / Claus Gittinger"
13313
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   732
! !
e5a29a7594be added: #printOn:
Stefan Vogel <sv@exept.de>
parents: 12890
diff changeset
   733
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   734
!OSProcess methodsFor:'private'!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   735
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   736
closeHelperStreams
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   737
    "close the helper streams that have been opened for shuffler processes
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   738
    (remote side of pipe)"
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   739
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   740
    |streams|
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   741
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   742
    streams := streamsToClose.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   743
    streams notNil ifTrue:[
24496
2b2e06ad2c6e #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 24495
diff changeset
   744
        Logger debug:'OSProcess: closing leftover pipe streams for "%1"' with:self.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   745
        streamsToClose := nil.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   746
        streams do:[:eachStream | eachStream close].
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   747
    ].
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   748
!
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   749
24681
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   750
exitStatus:something
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   751
    "not used and should not be"
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   752
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   753
    exitStatus := something.
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   754
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   755
    "Created: / 10.11.1998 / 21:24:55 / cg"
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   756
!
8c57b9148dc9 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24547
diff changeset
   757
23635
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   758
releasePid
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   759
    "only used in Windows, where pid is a handle that must be released"
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   760
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   761
    |pidHandle|
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   762
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   763
    pidHandle := pid.
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   764
    pidHandle isOsHandle ifFalse:[
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   765
        ^ self.
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   766
    ].
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   767
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   768
    pid := pidHandle pid.   "remember the numeric value"
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   769
    pidHandle close.
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   770
!
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
   771
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   772
setupShufflerForInput:aStream
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   773
    "if aStream is an internal Stream, set up a pipe for the command input.
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   774
     Start a process that shuffles the data from the internal stream into the pipe
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   775
     (and into the command's input).
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   776
     Return the ExternalStream that should be passed to the OS process."
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   777
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   778
    |pipe externalStream shuffledStream shufflerProcess|
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   779
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   780
    (aStream isNil or:[aStream isExternalStream]) ifTrue:[
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   781
        ^ aStream.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   782
    ].
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   783
23486
239a7ae42ee9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23482
diff changeset
   784
    pipe := PipeStream makePipe.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   785
    externalStream := pipe at:1.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   786
    shuffledStream := pipe at:2.
24011
c7b1d5bd2166 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23907
diff changeset
   787
    shuffledStream setCommandString:('Stdin of: ', command printString).
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   788
    lineWise ifFalse:[
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   789
        shuffledStream blocking:false.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   790
    ].
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   791
    aStream isBinary ifTrue:[
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   792
        shuffledStream binary.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   793
    ].
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   794
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   795
    "/ start a reader process, shuffling data from the given
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   796
    "/ inStream to the pipe (which is connected to the commands input)
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   797
    shufflerProcess := 
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   798
        [
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   799
            [
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   800
                lineWise ifTrue:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   801
                    "shuffle until end-of-input"
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   802
                    [aStream atEnd] whileFalse:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   803
                        |data|
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   804
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   805
                        data := aStream nextLine.
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   806
                        data notNil ifTrue:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   807
                            shuffledStream nextPutLine:data.
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   808
                            shuffledStream flush.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   809
                        ].
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   810
                    ].
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   811
                ] ifFalse:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   812
                    aStream copyToEndInto:shuffledStream.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   813
                ].
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   814
            ] on:WriteError do:[:ex|
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   815
                "ignore"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   816
            ] ensure:[
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   817
                shuffledStream close.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   818
            ]
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   819
        ] newProcess
23280
404e5d384583 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23223
diff changeset
   820
            name:'OSProcess: input shuffler';
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   821
"/                beSystemProcess;
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   822
            resume.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   823
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   824
    inputShufflerProcesses isNil ifTrue:[
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   825
        inputShufflerProcesses := OrderedCollection new:2.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   826
    ].
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   827
    inputShufflerProcesses add:shufflerProcess.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   828
    streamsToClose isNil ifTrue:[
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   829
        streamsToClose := OrderedCollection new:4.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   830
    ].
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   831
    streamsToClose add:externalStream.
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   832
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   833
    ^ externalStream
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   834
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   835
    "Modified: / 31-01-2017 / 16:50:39 / stefan"
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   836
    "Modified (comment): / 23-02-2017 / 10:51:34 / Maren"
23486
239a7ae42ee9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23482
diff changeset
   837
    "Modified: / 29-10-2018 / 15:35:01 / Claus Gittinger"
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   838
    "Modified: / 01-11-2018 / 14:40:12 / Stefan Vogel"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   839
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   840
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   841
setupShufflerForOutput:aStream
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   842
    "if aStream is an internal Stream, set up a pipe for the command output.
23486
239a7ae42ee9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23482
diff changeset
   843
     Start a process that shuffles the data from the pipe's output
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   844
     into the internal stream.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   845
     Return the ExternalStream that should be passed to the OS process."
21182
001704ae8bbf #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21181
diff changeset
   846
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   847
    |pipe externalStream shuffledStream shufflerProcess|
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   848
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   849
    (aStream isNil or:[aStream isExternalStream]) ifTrue:[
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   850
        ^ aStream.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   851
    ].
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   852
23486
239a7ae42ee9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23482
diff changeset
   853
    pipe := PipeStream makePipe.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   854
    externalStream := pipe at:2.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   855
    shuffledStream := pipe at:1.
24011
c7b1d5bd2166 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23907
diff changeset
   856
    shuffledStream setCommandString:('Stdout/err of: ', command printString).
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   857
    aStream isBinary ifTrue:[
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   858
        shuffledStream binary.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   859
    ].
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   860
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   861
    shufflerProcess := 
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   862
        [
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   863
            [
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   864
                "shuffle until the pipe closes"
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   865
                lineWise ifTrue:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   866
                    [shuffledStream atEnd] whileFalse:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   867
                        |data|
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   868
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   869
                        data := shuffledStream nextLine.
24429
d9f5afe53e2b #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 24290
diff changeset
   870
                        "/ Transcript showCR:'got: ',data printString.
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   871
                        data notNil ifTrue:[
24429
d9f5afe53e2b #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 24290
diff changeset
   872
                            "/ Transcript showCR:'for: ',aStream printString.
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   873
                            aStream nextPutLine:data
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   874
                        ].
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   875
                    ].
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   876
                ] ifFalse:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   877
                    shuffledStream copyToEndInto:aStream.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   878
                ].
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   879
            ] on:WriteError do:[:ex |
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   880
                "ignore" 
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   881
            ] ensure:[
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   882
                shuffledStream close.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   883
            ].
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   884
        ] newProcess
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   885
            priority:(Processor userSchedulingPriority "+ 1");
23280
404e5d384583 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23223
diff changeset
   886
            name:'OSProcess: output shuffler';
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   887
"/                beSystemProcess;
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   888
            resume.
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   889
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   890
    outputShufflerProcesses isNil ifTrue:[
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   891
        outputShufflerProcesses := OrderedCollection new:2.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   892
    ].
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   893
    outputShufflerProcesses add:shufflerProcess.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   894
    streamsToClose isNil ifTrue:[
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   895
        streamsToClose := OrderedCollection new:4.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   896
    ].
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   897
    streamsToClose add:externalStream.
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   898
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   899
    ^ externalStream
21332
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   900
18ca24f32565 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21226
diff changeset
   901
    "Modified: / 31-01-2017 / 16:57:25 / stefan"
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   902
    "Modified: / 01-11-2018 / 14:40:24 / Stefan Vogel"
24429
d9f5afe53e2b #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 24290
diff changeset
   903
    "Modified: / 17-07-2019 / 19:53:26 / Claus Gittinger"
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   904
!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   905
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   906
startCommand
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   907
    "the 'real' command to be executed.
22987
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
   908
     Redefined for remote processes (eg. to construct a remote command string).
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
   909
     Command may be both an Array or a String"
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   910
    
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
   911
    ^ command
22987
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
   912
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
   913
    "Modified (comment): / 22-05-2018 / 12:37:38 / Stefan Vogel"
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   914
!
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   915
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   916
terminateShufflerProcesses
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   917
    "terminate all the running shuffler processes"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   918
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   919
    self 
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   920
        terminateShufflerProcesses:inputShufflerProcesses;
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   921
        terminateShufflerProcesses:outputShufflerProcesses.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   922
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   923
    inputShufflerProcesses := outputShufflerProcesses := nil.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   924
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   925
    "Created: / 01-11-2018 / 14:16:51 / Stefan Vogel"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   926
    "Modified: / 01-11-2018 / 15:37:16 / Stefan Vogel"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   927
!
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   928
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   929
terminateShufflerProcesses:aProcessCollection
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   930
    "terminate the running shuffler processes contained in aProcessCollection"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   931
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   932
    |procs|
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   933
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   934
    procs := aProcessCollection.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   935
    procs notNil ifTrue:[
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
   936
        procs copy do:[:eachProc | eachProc terminate].
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   937
        procs removeAll.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   938
    ].
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   939
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   940
    "Created: / 01-11-2018 / 14:35:51 / Stefan Vogel"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   941
    "Modified: / 01-11-2018 / 15:36:12 / Stefan Vogel"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   942
! !
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   943
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   944
!OSProcess methodsFor:'queries'!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   945
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   946
finishedWithSuccess
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   947
    ^ exitStatus notNil and:[exitStatus success].
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   948
!
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
   949
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   950
isAlive
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   951
    "answer true if the process is still alive"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   952
21205
580c1baf6e3f #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21200
diff changeset
   953
    ^ pid notNil and:[exitStatus isNil]
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   954
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   955
    "Modified (comment): / 23-02-2017 / 10:52:37 / Maren"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   956
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   957
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   958
isDead
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   959
    "answer true if the process is no longer alive"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   960
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   961
    ^ self isAlive not
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   962
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   963
    "Modified (comment): / 23-02-2017 / 10:52:31 / Maren"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   964
! !
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
   965
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   966
!OSProcess methodsFor:'starting'!
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
   967
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   968
execute
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   969
    "execute the command. 
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
   970
     Wait until it is finished.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   971
     Abort the execution if I am interrupted.
24547
3806eac205ea #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24496
diff changeset
   972
     Answer true if it successfully terminated, 
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
   973
     false if it could not be started or terminated with error."
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   974
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   975
    ^ [
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   976
        self startProcess
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   977
        and:[
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   978
            self waitUntilFinished.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   979
            self finishedWithSuccess.
21185
b2ecc061106c #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21184
diff changeset
   980
        ].
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   981
        "if we come here, all streamsToClose have been closed 
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   982
         and all shuffler processses are terminated"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   983
    ] ifCurtailed:[
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   984
        "we have been interrupted -
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   985
         terminate the os-command (and all of its forked commands), and clean up"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   986
        pid notNil ifTrue:[
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   987
            self terminateGroup.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   988
        ].
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   989
        self 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   990
            closeHelperStreams; 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   991
            terminateShufflerProcesses.
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
   992
    ].
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
   993
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   994
    "Modified: / 29-10-2018 / 15:59:33 / Claus Gittinger"
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   995
    "Modified: / 31-10-2018 / 12:31:42 / Maren"
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   996
    "Modified (format): / 01-11-2018 / 15:00:01 / Stefan Vogel"
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   997
!
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   998
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
   999
executeKeepingProcess
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1000
    "execute the command. 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1001
     If I am interrupted keep the process as background process. 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1002
     Wait until it is finished.
24547
3806eac205ea #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 24496
diff changeset
  1003
     Answer true if it successfully terminated, 
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1004
     false if it could not be started or terminated with error."
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1005
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1006
    ^ [
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1007
        self startProcess
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1008
        and:[
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1009
            self waitUntilFinished.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1010
            self finishedWithSuccess.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1011
        ].
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1012
        "if we come here, all streamsToClose have been closed 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1013
         and all shuffler processses are terminated"
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1014
    ] ifCurtailed:[
24495
57144657996c #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 24471
diff changeset
  1015
        "we have been interrupted - clean up.
57144657996c #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 24471
diff changeset
  1016
         Different from #execute - here we do NOT terminate the OS-command"
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1017
        self 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1018
            closeHelperStreams; 
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1019
            terminateShufflerProcesses;
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1020
            releasePid.
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1021
    ].
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
  1022
23486
239a7ae42ee9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23482
diff changeset
  1023
    "Modified: / 29-10-2018 / 15:59:33 / Claus Gittinger"
23493
1a37df0ecc81 #BUGFIX by Maren
matilk
parents: 23490
diff changeset
  1024
    "Modified: / 31-10-2018 / 12:31:42 / Maren"
24495
57144657996c #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 24471
diff changeset
  1025
    "Modified (format): / 30-07-2019 / 12:00:12 / Stefan Vogel"
21181
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
  1026
!
a8a9220ed86f #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 21172
diff changeset
  1027
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1028
startProcess
22987
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1029
    "Start the command asynchronously (i.e. don't wait until is has finished).
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1030
     If there are non-external streams, setup transfer (shuffler) processes
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1031
     to transfer data from a pipe to the internal stream.
22987
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1032
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1033
     Answer true if the command could started succesfully, false if not.
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1034
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1035
     NOTE: under normal circumstances, even if the command cannot be found,
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1036
           the exit fom the command interpreter/shell is done some time later
3ee91cc9e2d0 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 22986
diff changeset
  1037
           So you have to check later or set #terminateActionBlock: and check there."
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1038
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1039
    |externalInStream externalAuxInStream externalErrorStream externalOutStream 
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1040
     externalAuxOutStream callingProcess|
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1041
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1042
    externalInStream := self setupShufflerForInput:inStream.
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1043
    auxInStream notNil ifTrue:[
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1044
        externalAuxInStream := self setupShufflerForInput:auxInStream.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1045
    ].
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1046
    auxOutStream notNil ifTrue:[
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1047
        externalAuxOutStream := self setupShufflerForOutput:auxOutStream.
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1048
    ].
21226
568b192939c7 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21223
diff changeset
  1049
    externalOutStream := self setupShufflerForOutput:outStream.
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1050
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1051
    errorStream == outStream ifTrue:[
21226
568b192939c7 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21223
diff changeset
  1052
        externalErrorStream := externalOutStream.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1053
    ] ifFalse:[
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1054
        externalErrorStream := self setupShufflerForOutput:errorStream.
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1055
    ].
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1056
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1057
    "start the command"
21200
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1058
    finishSema := EventSemaphore new.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1059
22983
954925788d5d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22568
diff changeset
  1060
    "/ UserPreferences current logExecutedOSCommands:true
954925788d5d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22568
diff changeset
  1061
    UserPreferences current logExecutedOSCommands ifTrue:[
23002
191ea99d1a08 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22994
diff changeset
  1062
        Transcript showCR:(('OS command: ', self startCommand printString) withColor:Color brown).  
22983
954925788d5d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22568
diff changeset
  1063
    ].
22986
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1064
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1065
    callingProcess := Processor activeProcess.
22983
954925788d5d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22568
diff changeset
  1066
    
25070
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1067
    pid := Processor 
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1068
        monitor:[
25070
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1069
            OperatingSystem
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1070
                        startProcess:(self startCommand)
21200
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1071
                        inputFrom:externalInStream
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1072
                        outputTo:externalOutStream
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1073
                        errorTo:externalErrorStream
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1074
                        auxFrom:externalAuxInStream
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1075
                        aux2To:externalAuxOutStream
21200
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1076
                        environment:environment
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1077
                        inDirectory:directory
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1078
                        newPgrp:newPgrp
6de129aead00 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21185
diff changeset
  1079
                        showWindow:showWindow.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1080
        ] 
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1081
        action:[:status |
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1082
            status stillAlive ifFalse:[
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1083
                exitStatus := status.
24429
d9f5afe53e2b #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 24290
diff changeset
  1084
                "/ cg: why this? Isn't the process already dead?
23006
0427d51adb60 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23002
diff changeset
  1085
                self terminate.
0427d51adb60 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23002
diff changeset
  1086
21223
bebca95ca864 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 21209
diff changeset
  1087
                finishSema signal.
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
  1088
                terminateActionBlock notNil ifTrue:[
23391
739e979f034d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23280
diff changeset
  1089
                    callingProcess isDead ifTrue:[
739e979f034d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23280
diff changeset
  1090
                        Error catch:[
739e979f034d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23280
diff changeset
  1091
                            "don't bother ProcessorScheduler with errors from terminateActionBlock!!"
739e979f034d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23280
diff changeset
  1092
                            terminateActionBlock valueWithOptionalArgument:status and:self.
739e979f034d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23280
diff changeset
  1093
                        ].
22986
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1094
                    ] ifFalse:[
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1095
                        callingProcess 
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1096
                            interruptWith:[
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1097
                                terminateActionBlock valueWithOptionalArgument:status and:self.
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1098
                            ]        
6574facad5bf #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22985
diff changeset
  1099
                    ].    
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
  1100
                ].
23635
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
  1101
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
  1102
                self releasePid.
b01b7b318310 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23537
diff changeset
  1103
23126
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1104
                UserPreferences current logExecutedOSCommands ifTrue:[
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1105
                    Transcript 
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1106
                        showCR:(('OS command finished: %1 status: %2'
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1107
                                    bindWith: self startCommand
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1108
                                    with:status code)     
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1109
                                    withColor:(
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1110
                                        status success 
23907
f0b35054f5d0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 23793
diff changeset
  1111
                                            ifTrue:[Color darkGreen]
23126
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1112
                                            ifFalse:[Color red])).  
afbeb2bb7afc #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 23035
diff changeset
  1113
                ].
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1114
            ].
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1115
        ].
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1116
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1117
    "we can close the remote side of the pipes after the os process has been started (after the fork)"
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1118
    self closeHelperStreams.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1119
23488
d7b7d8f25368 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23486
diff changeset
  1120
    "/ nil those references here, because there is still a home-context reference from the
d7b7d8f25368 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23486
diff changeset
  1121
    "/ monitor-pid action block. Otheriwse, the garbage collector might not collect them.
24724
b1afe939b13f #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 24687
diff changeset
  1122
    externalInStream := externalAuxInStream := externalAuxOutStream := externalOutStream := externalErrorStream := nil.
23488
d7b7d8f25368 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 23486
diff changeset
  1123
    
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1124
    pid isNil ifTrue:[
25070
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1125
        "process could not be started!!"
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1126
        self terminateShufflerProcesses.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1127
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1128
        exitStatus := OperatingSystem osProcessStatusClass processCreationFailure.
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1129
        finishSema signal.
23006
0427d51adb60 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23002
diff changeset
  1130
        terminateActionBlock notNil ifTrue:[
0427d51adb60 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23002
diff changeset
  1131
            terminateActionBlock valueWithOptionalArgument:exitStatus and:self.
0427d51adb60 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 23002
diff changeset
  1132
        ].
25070
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1133
        UserPreferences current logExecutedOSCommands ifTrue:[
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1134
            Transcript 
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1135
                showCR:(('OS command failed: %1'bindWith: self startCommand) allRed).  
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1136
        ].
26915eb67235 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 24822
diff changeset
  1137
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1138
        ^ false.
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1139
    ].
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1140
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1141
    ^ true.
22985
da550df21477 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22984
diff changeset
  1142
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1143
    "Modified: / 01-11-2018 / 14:41:12 / Stefan Vogel"
23907
f0b35054f5d0 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 23793
diff changeset
  1144
    "Modified: / 13-03-2019 / 21:13:05 / Claus Gittinger"
24429
d9f5afe53e2b #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 24290
diff changeset
  1145
    "Modified (comment): / 17-07-2019 / 19:33:43 / Claus Gittinger"
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1146
! !
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1147
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1148
!OSProcess methodsFor:'terminating'!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1149
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1150
kill
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1151
    "kill the process - the process does not get the chance to clean up"
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1152
    
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1153
    pid notNil ifTrue:[
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1154
        OperatingSystem killProcess:pid.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1155
        self releasePid.    
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1156
    ].
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1157
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1158
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1159
killGroup
20379
135c4fc19014 #OTHER by mawalch
mawalch
parents: 19298
diff changeset
  1160
    "kill the processGroup - the processes do not get the chance to clean up"
135c4fc19014 #OTHER by mawalch
mawalch
parents: 19298
diff changeset
  1161
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1162
    pid notNil ifTrue:[
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1163
        OperatingSystem 
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1164
            killProcessGroup:pid;
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1165
            killProcess:pid.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1166
        self releasePid.    
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1167
    ].
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1168
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1169
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1170
terminate
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1171
    "terminate the process gracefully"
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1172
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1173
    pid notNil ifTrue:[
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1174
        OperatingSystem terminateProcess:pid.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1175
        self releasePid.    
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1176
    ].
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1177
!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1178
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1179
terminateGroup
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1180
    "terminate the process group.
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
  1181
     Under Windows, this is the same as terminateWithAllChildren,
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1182
     under unix, this terminates a subset of all children"
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1183
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1184
    pid notNil ifTrue:[
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1185
        OperatingSystem 
21632
747d14b5ff37 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21552
diff changeset
  1186
            terminateProcess:pid;
747d14b5ff37 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21552
diff changeset
  1187
            terminateProcessGroup:pid.
24471
289363dea03a #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 24429
diff changeset
  1188
        self releasePid.    
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1189
    ].
21551
a00b3ea45664 #DOCUMENTATION by Maren
matilk
parents: 21512
diff changeset
  1190
21552
7732a5719d14 #DOCUMENTATION by Maren
matilk
parents: 21551
diff changeset
  1191
    "Modified (comment): / 23-02-2017 / 10:50:13 / Maren"
21632
747d14b5ff37 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21552
diff changeset
  1192
    "Modified: / 09-03-2017 / 15:00:58 / stefan"
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1193
! !
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1194
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1195
!OSProcess methodsFor:'waiting'!
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1196
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1197
waitUntilFinished
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
  1198
    <resource: #skipInDebuggersWalkBack>
22148
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1199
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1200
    "wait with a veryy long timeout, 
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1201
     in order that ProcessorScheduler>>#checkForEndOfDispatch recognizes
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1202
     this waiting process as an user process which is still alive.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1203
     The timeout is meant to never occur!!"
22148
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1204
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1205
    ^ self waitUntilFinishedWithTimeout:60*60*24000
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1206
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1207
    "Modified: / 01-08-2017 / 14:41:10 / stefan"
9f3d3f09551d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21632
diff changeset
  1208
    "Modified (comment): / 01-08-2017 / 17:15:55 / stefan"
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
  1209
    "Modified: / 30-05-2018 / 13:57:42 / Claus Gittinger"
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1210
    "Modified (comment): / 01-11-2018 / 14:43:46 / Stefan Vogel"
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1211
!
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1212
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1213
waitUntilFinishedWithTimeout:timeout
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
  1214
    <resource: #skipInDebuggersWalkBack>
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
  1215
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1216
    |processList|
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1217
21208
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1218
    (finishSema waitWithTimeout:timeout) isNil ifTrue:[
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1219
        "timed out"
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1220
        ^ nil.
9fbb51649256 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21206
diff changeset
  1221
    ].
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1222
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1223
    "have to wait until the output shufflers shuffling command's outputs have finished their work"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1224
    processList := outputShufflerProcesses.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1225
    processList notNil ifTrue:[
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1226
        processList do:[:eachProcess | 
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1227
            eachProcess waitUntilTerminated.
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1228
        ].
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1229
        outputShufflerProcesses := nil.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1230
    ].
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1231
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1232
    "command has finished and is no longer reading from its inputs"
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1233
    inputShufflerProcesses notNil ifTrue:[
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1234
        self terminateShufflerProcesses:inputShufflerProcesses.
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1235
        inputShufflerProcesses := nil.
21184
190ae0ab71c2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 21183
diff changeset
  1236
    ].
23035
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
  1237
98ae4fba66a8 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 23006
diff changeset
  1238
    "Modified: / 30-05-2018 / 13:57:39 / Claus Gittinger"
23501
d362810d013c #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 23493
diff changeset
  1239
    "Modified: / 01-11-2018 / 15:53:09 / Stefan Vogel"
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1240
! !
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1241
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1242
!OSProcess::ProcessListEntry class methodsFor:'documentation'!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1243
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1244
documentation
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1245
"
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1246
    documentation to be added.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1247
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1248
    [author:]
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1249
        anharman
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1250
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1251
    [instance variables:]
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1252
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1253
    [class variables:]
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1254
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1255
    [see also:]
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1256
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1257
"
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1258
! !
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1259
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1260
!OSProcess::ProcessListEntry class methodsFor:'instance creation'!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1261
23204
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1262
executableName:executableNameArg processID:processIDArg sessionName:sessionNameArg 
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1263
    ^ self new executableName:executableNameArg processID:processIDArg sessionName:sessionNameArg 
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1264
!
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1265
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1266
executableName:executableNameArg processID:processIDArg userName:userNameArg 
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1267
    ^ self new executableName:executableNameArg processID:processIDArg userName:userNameArg 
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1268
! !
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1269
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1270
!OSProcess::ProcessListEntry methodsFor:'accessing'!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1271
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1272
executableName
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1273
    ^ executableName
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1274
!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1275
23204
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1276
executableName:executableNameArg processID:processIDArg sessionName:sessionNameArg 
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1277
    executableName := executableNameArg.
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1278
    processID := processIDArg.
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1279
    sessionName := sessionNameArg.
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1280
!
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1281
23201
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1282
executableName:executableNameArg processID:processIDArg userName:userNameArg 
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1283
    executableName := executableNameArg.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1284
    processID := processIDArg.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1285
    userName := userNameArg.
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1286
!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1287
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1288
processID
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1289
    ^ processID
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1290
!
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1291
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1292
userName
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1293
    ^ userName
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1294
! !
70c0a58e1ab5 #FEATURE by anharman
anharman
parents: 23184
diff changeset
  1295
23204
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1296
!OSProcess::ProcessListEntry methodsFor:'printing & storing'!
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1297
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1298
printOn:aStream
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1299
    aStream nextPutAll:('(process: %1 pid: %2)' bindWith:executableName with:processID)
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1300
! !
1e76e9ae7986 #DOCUMENTATION by anharman
anharman
parents: 23202
diff changeset
  1301
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1302
!OSProcess::RemoteOSProcess class methodsFor:'documentation'!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1303
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1304
documentation
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1305
"
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1306
    Instances of OSProcess represent operating system processes that can be executed.
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1307
    (as opposed to Smalltalk processes).
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1308
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1309
    [author:]
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1310
        cg
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1311
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1312
    [instance variables:]
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1313
        host        String          the host on which to execute the command
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1314
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1315
    [class variables:]
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1316
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1317
    [see also:]
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1318
        Process
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1319
"
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1320
!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1321
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1322
examples
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1323
"
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1324
                                                            [exBegin]
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1325
    |outStream|
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1326
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1327
    outStream := '' writeStream.
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1328
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1329
    (OSProcess onHost:'exeptn') 
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1330
        command:'ls -l';
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1331
        inStream:'abc' readStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1332
        outStream:outStream;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1333
        lineWise:true;
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1334
        execute.
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1335
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1336
    outStream contents
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1337
                                                            [exEnd]
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1338
"
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1339
! !
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1340
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1341
!OSProcess::RemoteOSProcess methodsFor:'accessing'!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1342
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1343
host
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1344
    ^ host
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1345
!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1346
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1347
host:aHostName
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1348
    host := aHostName.
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1349
! !
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1350
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1351
!OSProcess::RemoteOSProcess methodsFor:'private'!
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1352
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1353
startCommand
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1354
    "the 'real' command"
22199
4638d345471d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22198
diff changeset
  1355
4638d345471d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22198
diff changeset
  1356
    "for now, always use ssh; 
4638d345471d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22198
diff changeset
  1357
     later, this should be configurable, 
4638d345471d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22198
diff changeset
  1358
     which remote mechanism is to be used per host"
4638d345471d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22198
diff changeset
  1359
     
22198
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1360
    ^ 'ssh %1 "%2"' bindWith:host with:command
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1361
! !
c81fce52627d #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 22197
diff changeset
  1362
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1363
!OSProcess class methodsFor:'documentation'!
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1364
19298
cfacc6b159c5 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19286
diff changeset
  1365
version
cfacc6b159c5 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19286
diff changeset
  1366
    ^ '$Header$'
cfacc6b159c5 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19286
diff changeset
  1367
!
cfacc6b159c5 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19286
diff changeset
  1368
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1369
version_CVS
19286
9e8eea97fd57 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 13313
diff changeset
  1370
    ^ '$Header$'
12890
2488b1f65af2 initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
  1371
! !
19286
9e8eea97fd57 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 13313
diff changeset
  1372
21172
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1373
36a0e5430705 #FEATURE by stefan
Stefan Vogel <sv@exept.de>
parents: 20379
diff changeset
  1374
OSProcess initialize!