Bitmap/Read an image through a pipe: Difference between revisions
→{{header|Phix}}
(Use "jpegtopnm" rather than "/usr/bin/jpegtopnm".) |
|||
Line 338:
(img)
;;</lang>
=={{header|Phix}}==
Uses the demo\rosetta\viewppm.exw utility to accomplish this task.<br>
The returned data is raw binary, so you can either write it direct or chuck it through read_ppm/write_ppm.
<lang Phix>-- demo\rosetta\Bitmap_Read_an_image_through_a_pipe.exw
requires("0.8.4")
include builtins\pipeio.e
include ppm.e -- read_ppm(), write_ppm()
sequence pipes = repeat(0,3)
pipes[PIPOUT] = create_pipe(INHERIT_READ)
-- Create the child process, with replacement stdin.
string cmd = sprintf("%s viewppm -load test.jpg",{get_interpreter(true)})
atom hProc = system_exec(cmd, 12, pipes),
hPipe = pipes[PIPOUT][READ_PIPE]
string ppm = read_from_pipe(hPipe, hProc)
while true do
object chunk = read_from_pipe(hPipe, hProc)
if chunk=-1 then exit end if
ppm &= chunk
end while
pipes = close_handles(pipes)
if 0 then
sequence img = read_ppm(ppm,bText:=true)
write_ppm("Lenapipe.ppm", img)
else -- or
integer fn = open("Lenapipe.ppm","wb")
puts(fn,ppm)
close(fn)
end if</lang>
=={{header|PicoLisp}}==
| |||