diff --git a/Pond.package/CarpException.class/README.md b/Pond.package/CarpException.class/README.md new file mode 100644 index 0000000..d4cd574 --- /dev/null +++ b/Pond.package/CarpException.class/README.md @@ -0,0 +1 @@ +I’m an exception that gets thrown when Carp does something funky. \ No newline at end of file diff --git a/Pond.package/CarpException.class/instance/defaultAction.st b/Pond.package/CarpException.class/instance/defaultAction.st new file mode 100644 index 0000000..db48aec --- /dev/null +++ b/Pond.package/CarpException.class/instance/defaultAction.st @@ -0,0 +1,3 @@ +accessing +defaultAction + UnhandledError signalForException: self \ No newline at end of file diff --git a/Pond.package/CarpException.class/instance/from..st b/Pond.package/CarpException.class/instance/from..st new file mode 100644 index 0000000..14998c5 --- /dev/null +++ b/Pond.package/CarpException.class/instance/from..st @@ -0,0 +1,3 @@ +instance creation +from: anError + error := anError \ No newline at end of file diff --git a/Pond.package/CarpException.class/properties.json b/Pond.package/CarpException.class/properties.json new file mode 100644 index 0000000..2f27757 --- /dev/null +++ b/Pond.package/CarpException.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "VeitHeller 12/14/2019 17:49", + "super" : "Exception", + "category" : "Pond", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "parent", + "error" + ], + "name" : "CarpException", + "type" : "normal" +} \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/died.st b/Pond.package/CarpProcess.class/instance/died.st new file mode 100644 index 0000000..c0fd3ae --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/died.st @@ -0,0 +1,3 @@ +accessing +died + ^ excepted isNotNil \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/initialize.st b/Pond.package/CarpProcess.class/instance/initialize.st index f2090ce..72ac513 100644 --- a/Pond.package/CarpProcess.class/instance/initialize.st +++ b/Pond.package/CarpProcess.class/instance/initialize.st @@ -1,3 +1,7 @@ initialization initialize - proc := OSProcess command: 'carp' \ No newline at end of file + proc := OSSUnixSubprocess new command: 'carp'; + redirectStdin; + redirectStdout; + redirectStderr; + addAllEnvVariablesFromParentWithoutOverride \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/isRunning.st b/Pond.package/CarpProcess.class/instance/isRunning.st new file mode 100644 index 0000000..4776e37 --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/isRunning.st @@ -0,0 +1,3 @@ +accessing +isRunning + ^ self died not and: proc pid; and: proc exitStatus isNil \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/receiveErrorString.st b/Pond.package/CarpProcess.class/instance/receiveErrorString.st new file mode 100644 index 0000000..cc4e52b --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/receiveErrorString.st @@ -0,0 +1,3 @@ +accessing +receiveErrorString + ^ proc stderrStream upToEnd \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/receiveString.st b/Pond.package/CarpProcess.class/instance/receiveString.st new file mode 100644 index 0000000..486f24c --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/receiveString.st @@ -0,0 +1,3 @@ +accessing +receiveString + ^ proc stdoutStream upToEnd \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/run.st b/Pond.package/CarpProcess.class/instance/run.st new file mode 100644 index 0000000..9c04c9f --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/run.st @@ -0,0 +1,3 @@ +accessing +run + [ [ proc run ] on: Error do: [ :err | excepted := err ] ] fork \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/sendString..st b/Pond.package/CarpProcess.class/instance/sendString..st new file mode 100644 index 0000000..42c7c1a --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/sendString..st @@ -0,0 +1,5 @@ +accessing +sendString: aString + proc stdinStream nextPutAll: aString. + proc stdinStream close. + proc redirectStdin \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/setCarp..st b/Pond.package/CarpProcess.class/instance/setCarp..st index 05952ed..55bd1a5 100644 --- a/Pond.package/CarpProcess.class/instance/setCarp..st +++ b/Pond.package/CarpProcess.class/instance/setCarp..st @@ -1,3 +1,3 @@ accessing setCarp: aString - proc := OSProcess command: aString \ No newline at end of file + proc command: aString \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/instance/setDir..st b/Pond.package/CarpProcess.class/instance/setDir..st new file mode 100644 index 0000000..26b9428 --- /dev/null +++ b/Pond.package/CarpProcess.class/instance/setDir..st @@ -0,0 +1,3 @@ +accessing +setDir: aString + proc environmentAt: 'CARP_DIR' put: aString \ No newline at end of file diff --git a/Pond.package/CarpProcess.class/properties.json b/Pond.package/CarpProcess.class/properties.json index 4dfc1d4..a66f5f7 100644 --- a/Pond.package/CarpProcess.class/properties.json +++ b/Pond.package/CarpProcess.class/properties.json @@ -6,7 +6,10 @@ "pools" : [ ], "classvars" : [ ], "instvars" : [ - "proc" + "proc", + "out", + "in", + "excepted" ], "name" : "CarpProcess", "type" : "normal"