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

uses linux,stdio;

function specialcreat(pathname:string;mode:longint):integer;
var
oldu,filedes:integer;
begin
(* хУФБОПЧЙФШ НБУЛХ УПЪДБОЙС ЖБКМБ ТБЧОПК ОХМА *)
oldu:=umask(0);
if oldu = -1 then
begin
perror('пЫЙВЛБ УПИТБОЕОЙС УФБТПК НБУЛЙ');
specialcreat:=-1;
exit;
end;
(* уПЪДБФШ ЖБКМ *)
filedes:=fdopen(pathname, Open_WRONLY or Open_CREAT or Open_EXCL, mode);
if (filedes = -1) then
perror ('пЫЙВЛБ ПФЛТЩФЙС ЖБКМБ');
(* чПУУФБОПЧЙФШ РТЕЦОЙК ТЕЦЙН ДПУФХРБ Л ЖБКМХ *)
if (umask (oldu) = -1) then
perror ('пЫЙВЛБ ЧПУУФБОПЧМЕОЙС УФБТПК НБУЛЙ');
(* чЕТОХФШ ДЕУЛТЙРФПТ ЖБКМБ *)
specialcreat:=filedes;
end;

begin
specialcreat('sc_file', 0);
end.