aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/Get-system-command-output/Rebol/get-system-command-output.rebol Normal file
View file

@ -0,0 +1,29 @@
Rebol [
title: "Rosetta code: Get system command output"
file: %Get_system_command_output.r3
url: https://rosettacode.org/wiki/Bitmap/Get_system_command_output
]
system-command: function[
"Execute a system command and get its output"
command [string!] "The shell command string to execute"
][
out: copy "" ;; Buffer to capture stdout
err: copy "" ;; Buffer to capture stderr
;; Run the command in a shell, routing stdout -> out, stderr -> err
;; Returns an integer exit code (0 = success)
res: call/shell/output/error :command :out :err
;; Return all three results as a block for multi-value destructuring
reduce [res out err]
]
;; Pick the correct directory-listing command for the current OS
command: either system/platform = 'Windows ["dir"]["ls -la"]
;; Execute the command and unpack the returned [exit-code stdout stderr] block
set [res out err] system-command :command
;; Print stdout on success (exit code 0), otherwise print stderr
print either res == 0 [out][err]