Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 7 / smessage

(* рТПЗТБННБ sendmessage - РЕТЕУЩМЛБ УППВЭЕОЙК ЮЕТЕЪ FIFO *)
uses linux,stdio,strings;

const
MSGSIZ=63;
fifo = 'fifo';


function fatal (s:pchar):integer;
begin
perror (s);
halt (1);
end;


var
fd,j:integer;
nwrite:longint;
msgbuf:array [0..MSGSIZ] of char;
begin
if paramcount=0 then
begin
writeln (stderr, 'рТЙНЕОЕОЙЕ: sendmessage УППВЭЕОЙЕ');
halt (1);
end;
(* пФЛТЩФШ ЛБОБМ fifo, ХУФБОПЧЙЧ ЖМБЗ Open_NONBLOCK *)
fd := fdopen (fifo, Open_WRONLY or Open_NONBLOCK);
if fd < 0 then
fatal ('пЫЙВЛБ ЧЩЪПЧБ open ДМС fifo');
(* рПУЩМЛБ УППВЭЕОЙК *)
for j := 1 to paramcount do
begin
if length(paramstr(j)) > MSGSIZ then
begin
writeln('уМЙЫЛПН ДМЙООПЕ УППВЭЕОЙЕ ', paramstr(j));
continue;
end;
strpcopy(msgbuf, paramstr(j));
nwrite := fdwrite (fd, msgbuf, MSGSIZ + 1);
if nwrite = -1 then
fatal ('пЫЙВЛБ ЪБРЙУЙ УППВЭЕОЙС');
end;
halt(0);
end.