blob: de2c479d07f584406842b9242fe3ef9bae869e0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Program Example36;
{ Program to demonstrate the AssignPipe function. }
Uses oldlinux;
Var pipi,pipo : Text;
s : String;
begin
Writeln ('Assigning Pipes.');
If Not assignpipe(pipi,pipo) then
Writeln('Error assigning pipes !',LinuxError);
Writeln ('Writing to pipe, and flushing.');
Writeln (pipo,'This is a textstring');close(pipo);
Writeln ('Reading from pipe.');
While not eof(pipi) do
begin
Readln (pipi,s);
Writeln ('Read from pipe : ',s);
end;
close (pipi);
writeln ('Closed pipes.');
writeln
end.
|
