Определение доступности файла при помощи вызова access
Системный вызов access определяет, может ли процесс получить доступ к файлу в соответствии с истинным (real), а не действующим (effective) идентификатором пользователя (и группы) процесса. Такой вызов позволяет процессу, получившему права при помощи бита STAT_ISUID, определить настоящие права пользователя, запустившего это процесс, что облегчает написание безопасных программ.
Определение имени текущего рабочего каталога
Спецификация XSI определяет функцию (а не системный вызов) getcwd, которая возвращает имя текущего рабочего каталога.
Определение структуры termios
Теперь изучим состав структуры termios. Определение структуры termios находится в файле linux и содержит следующие элементы:
termios = record
c_iflag, (* Режимы ввода *)
c_oflag, (* Режимы вывода *)
c_cflag, (* Управляющие режимы *)
c_lflag : Cardinal; (* Режимы дисциплины линии связи *)
c_line : char; (* Дисциплина линии связи *)
c_cc : array [0..NCCS-1] of char; (* Управляющие символы *)
end;
Проще всего рассматривать структуру, начав с ее последнего элемента с_сс.
Основные понятия
Система UNIX автоматически открывает три дескриптора файла для любой выполняющейся программы. Эти дескрипторы называются стандартным вводом (standard input), стандартным выводом (standard output) и стандартным выводом диагностики (standard error). Они всегда имеют значения 0, 1 и 2 соответственно. Недопустимо путать эти дескрипторы с похожими по названию стандартными потоками stdin, stdout и stderr из стандартной библиотеки ввода/ вывода.
По умолчанию вызов fdread для стандартного ввода приведет к чтению данных с клавиатуры. Аналогично запись в стандартный вывод или стандартный вывод диагностики приведет по умолчанию к выводу сообщения на экран терминала. Это первый пример использования примитивов доступа к файлам для ввода/вывода на устройства, отличные от обычных файлов.
Программа, применяющая эти стандартные дескрипторы файлов, тем не менее, не ограничена использованием терминала. Каждый из этих дескрипторов может быть независимо переназначен, если программа вызывается с использованием средств перенаправления, обеспечиваемых стандартным командным интерпретатором UNIX. Например, команда
$ prog_name < infile
приведет к тому, что при чтении из дескриптора со значением 0 программа будет получать данные из файла infile, а не с терминала, обычного источника для стандартного ввода.
Аналогично все данные, записываемые в стандартный вывод, могут быть перенаправлены в выходной файл, например:
$ prog_name > outfile
Возможно, наиболее полезно то, что можно связать стандартный вывод одной программы со стандартным вводом другой при помощи каналов UNIX. Следующая команда оболочки означает, что все данные, записываемые программой prog_1 в ее стандартный вывод, попадут на стандартный ввод программы prog_2 (такие команды называются конвейерами):
$ prog_1 | prog_2
Дескрипторы файлов стандартного ввода и вывода позволяют писать гибкие и совместимые программы. Программа может представлять собой инструмент, способный при необходимости принимать ввод от пользователя, из файла, или даже с выхода другой программы. Программа настроена на чтение из стандартного ввода, использует файловый дескриптор 0, а выбор входного источника данных откладывается до момента запуска программы.
Основные стандарты
В книге упомянуты следующие стандарты:
SVID
Название стандарта SVID является сокращением от AT&T System V Interface Definition (определение интерфейса ОС System V). Первоначально был разработан весной 1985 г. для описания интерфейса версии System V операционной системы UNIX. Стандарт SVID имеет ряд версий, последней из которых является третья редакция, вышедшая в 1989 г. Первое издание этой книги основывалось на стандарте SVID.
ANSI С
Комитет ANSI определяет стандарты различных информационных технологий. Наиболее интересным для системных программистов UNIX является стандарт языка ANSI С.
IEEE/POSIX
Институт электротехники и радиоэлектроники (Institute of Electrical and Electronics Engineers, сокращенно IEEE) разрабатывает в числе прочих стандарт интерфейса переносимой операционной системы (Portable Operating Systems Interface, сокращенно POSIX), который непосредственно базируется на ОС UNIX. Этот стандарт был впервые опубликован в 1988 г. и с тех пор несколько раз обновлялся. С темой данной книги наиболее тесно связаны следующие стандарты:
– стандарт IEEE 1003.1-1990, идентичный стандарту ISO POSIX-1 – ISO/IEC 9945-1, 1990, полное название которого: Information Technology – Portable Operating System Interface (POSIX) – Part 1: System Application Program Interface (API) [C language] (Информационные технологии – стандарт интерфейса переносимой операционной системы – часть 1. Системный интерфейс для прикладных программ [язык С]);
– стандарт IEEE 1003.2-1992, идентичный стандарту ISO POSIX-2 – ISO/IEC 9945-2, 1993, полное название которого: Information Technology – Portable Operating System Interface (POSIX) – Part 2: Shell and Utilities (Информационные технологии – стандарт интерфейса переносимой операционной системы – часть 2. Командный интерпретатор и утилиты).
Позже к стандарту были добавлены расширения и добавления, включая стандарты 1003.1b-1993, 1003.1с-1995, 1003.li-1995, охватывающие такие темы, как потоки управления и расширения реального времени.
Х/Open (в настоящее время Open Group)
Группа X/ Open Group объединила вышеупомянутые стандарты с другими; эти стандарты, вместе взятые, получили название спецификации Common Application Environment (общей среды приложений, сокращенно САЕ). Спецификация САЕ охватывает как системные, так и сетевые интерфейсы.
Текст книги лучше всего соответствует Issue 4 Version 2 X/Open САЕ Specification, System Interface and Headers (четвертому выпуску второй версии спецификации САЕ консорциума X/Open, системные интерфейсы и заголовки), вышедшей в августе 1994 г. Эта спецификация представляет собой базовый документ X/Open. Пятое издание спецификации САЕ, вышедшее в 1997 г., включает некоторые из недавно введенных в стандарт POSIX средств работы с потоками управления в режиме реального времени, а также других наработок из практики промышленного использования. Эти обновления также вошли в Version 2 of the Single UNIX Specification (вторую версию единой спецификации ОС UNIX) консорциума Open Group и в описание продукта UNIX98.
Открытие и закрытие каталогов
Для открытия каталога UNIX спецификация XSI определяет особую функцию opendir.
Ожидание завершения определенного потомка: вызов waitpid
Системный вызов wait позволяет родительскому процессу ожидать завершения любого дочернего процесса. Тем не менее, если нужна большая определенность, то можно использовать системный вызов waitpid для ожидания завершения определенного дочернего процесса.
Параметры MIN и TIME
Параметры MIN и TIME имеют значение только при выключенном флаге ICANON. Они предназначены для тонкой настройки управления вводом данных. Параметр MIN задает минимальное число символов, которое должен получить драйвер терминала для возврата из вызова fdread. Параметр TIME задает значение максимального интервала ожидания; этот параметр обеспечивает еще один уровень управления вводом с терминала. Время ожидания измеряется десятыми долями секунды.
Значения параметров MIN и МАХ находятся в массиве с_сс структуры termios, описывающей состояние терминала. Их индексы в массиве определяются постоянными VMIN и VTIME из файла stdio. Следующий фрагмент программы показывает, как можно задать их значения:
uses stdio, linux;
var
tdes:termios;
ttyfd:longint;
(* Получает текущее состояние *)
tcgetattr(ttyfd, tdes);
tdes.c_lflag := tdes.c_lflag and (not ICANON); (* Отключает канонический режим *)
tdes.c_cc[VMIN] := 64; (* В символах *)
tdes.c_cc[VTIME] := 2; (* В десятых долях секунды *)
tcsetattr(0, TCSAFLUSH, &tdes);
Константы VMIN и VTIME обычно имеют те же самые значения, что и постоянные VEOF и VEOL. Это означает, что параметры MIN и TIME занимают то же положение, что и символы eof и еоl. Следовательно, при переключении из канонического в неканонический режим нужно обязательно задавать значения параметров MIN и TIME, иначе может наблюдаться странное поведение терминала. (В частности, если символу eof
соответствует комбинация клавиш Ctrl+D,
то программа будет читать ввод блоками по четыре символа.) Аналогичная опасность возникает при возврате в канонический режим.
Существуют четыре возможных комбинации параметров MIN и TIME:
– оба параметра MIN и TIME равны нулю. При этом возврат из вызова fdread обычно происходит немедленно. Если в очереди ввода терминала присутствуют символы (напомним, что попытка ввода может быть осуществлена в любой момент времени), то они будут помещены в буфер процесса. Поэтому, если программа переводит свой управляющий терминал в режим прямого доступа при помощи сброса флага ICANON и оба параметра MIN и TIME равны нулю, то вызов
nread := fdread(0, buffer, SOMESZ);
вернет произвольное число символов от нуля до SOMESZ в зависимости от того, сколько символов находится в очереди в момент выполнения вызова;
– параметр MIN больше нуля, а параметр TIME равен нулю. В этом случае таймер не используется. Вызов fdread завершится только после того, как будут считаны MIN символов. Это происходит даже в том случае, если вызов read запрашивал меньше, чем MIN символов.
В самом простом варианте параметр MIN равен единице, а параметр TIME – нулю, что приводит к возврату из вызова fdread после получения каждого символа из линии терминала. Это может быть полезно при чтении с клавиатуры терминала, хотя могут возникнуть проблемы с клавишами, посылающими последовательности из нескольких символов;
– параметр MIN равен нулю, а параметр TIME больше нуля. В этом случае параметр MIN не используется. Таймер запускается сразу же после выполнения вызова fdread. Возврат из вызова read происходит, как только вводится первый символ. Если заданный интервал времени истекает (то есть проход время, заданное в параметре TIME в десятых долях секунды), то вызов read возвращает нулевые символы;
– оба параметра MIN и TIME больше нуля. Это, возможно, наиболее полезный и гибкий вариант. Таймер запускается после получения первого символа, а не при входе в вызов fdread. Если MIN символов будут получены до истечения заданного интервала времени, то происходит возврат из вызова fdread. Если таймер срабатывает раньше, то в программу пользователя возвращаются только символы, находящиеся при этом в очереди ввода. Этот режим работы полезен при поступлении ввода пакетами, которые посылаются в течение коротких интервалов времени. При этом упрощается программирование и уменьшается число необходимых системных вызовов. Такой режим также полезен, например, при работе с функциональными клавишами, которые посылают при нажатии на них сразу несколько символов.
Передача данных
Основной задачей драйвера терминала является передача данных между процессом и его терминальным устройством. На самом деле это достаточно сложное требование, так как пользователь может печатать символы в любое время, даже во время вывода. Чтобы лучше понять эту ситуацию, вернемся к рис. 9.1 и представим, что по путям от (С) к (В) и от (В) к (D) одновременно передаются данные. Напомним, что программа, представленная на схеме узлом (А), может выполнять только последовательные вызовы fdread или fdwrite.
Поскольку в каждый момент времени программа может обрабатывать только один поток данных терминала, то для одновременного управления двумя потоками дисциплина линии связи запоминает входные и выходные данные во внутренних буферах. Входные данные передаются программе пользователя, когда он выполняет вызов fdread. Входные символы могут быть потеряны при переполнении поддерживаемых ядром буферов или если число символов, поступивших на терминал, превысит ограничение MAX_INPUT, определенное в файле stdio. Это предельное значение обычно равно 255, что достаточно велико для того, чтобы потери данных при обычном использовании были достаточно редки. Тем не менее не существует способа определить, что данные были потеряны, так как система просто молча отбрасывает лишние символы.
Ситуация с выводом несколько проще. Каждый вызов fdwrite для терминала помещает символы в очередь вывода. Если очередь переполняется, то следующий вызов fdwrite будет «заблокирован» (то есть процесс будет приостановлен) до тех пор, пока очередь вывода не уменьшится до нужного уровня.
Переменные программного окружения
Программное окружение (environment) процесса – это просто набор строк, заканчивающихся нулевым символом, представленных в программе просто в виде массива указателей на строки. Эти строки называются переменными окружения (environment variables). По принятому соглашению, каждая строка окружения имеет следующую форму:
имя переменной = ее содержание
В модуле dos определены функция envcount, возвращающие количество строк окружения, и функция envstr, возвращаю строку окружения с заданным номером. Можно напрямую использовать программное окружение процесса с помощью массива envp из модуля syslinux.
В качестве простого примера следующая программа просто выводит свое окружение и завершает работу.
а) с использованием модуля dos:
(* Программа showmyenv.pas - вывод окружения *)
uses dos;
var
i:integer;
begin
for i:=1 to envcount do
writeln(envstr(i));
end.
б) с использованием модуля syslinux:
(* Программа showmyenv.pas - вывод окружения *)
uses syslinux;
var
i:integer;
begin
i:=0;
while envp[i]<>nil do
begin
writeln(envp[i]);
inc(i);
end;
end.
При запуске этой программы на одной из машин были получены следующие результаты:
CDPATH=:..:/
HOME=/usr/keith
LOGNAME=keith
MORE=-h -s
PATH=/bin:/etc:/usr/bin:/usr/cbin:/usr/lbin
SHELL=/bin/ksh
TERM=vti00
TZ=GMTOBST
Этот список может быть вам знакомым. Это окружение процесса командного интерпретатора (оболочки), вызвавшего программу showmyenv, и оно включает
такие важные переменные, как HOME и PATH.
Пример показывает, что по умолчанию окружение процесса совпадает с окружением процесса, создавшего его при помощи вызова fork или ехес. Поскольку окружение передается указанным способом, то можно записывать в окружении информацию, которую иначе пришлось бы задавать заново для каждого нового процесса. Переменная окружения TERM, в которой записан тип текущего терминала, является хорошим примером того, насколько полезным может быть использование окружения.
Чтобы задать для процесса новое окружение, необходимо использовать для его запуска один из двух вызовов из семейства exec: execle или execve. Они вызываются следующим образом:
execle(path, envp);
и:
execve(path, argv, envp);
Эти вызовы дублируют соответственно вызовы
execv и execl. Единственное различие заключается в добавлении параметра envp, который является заканчивающимся нулевым символом массивом строк, задающим окружение новой программы. Следующий пример использует вызов
execle для передачи нового программного окружения программе showmyenv:
(* Программа setmyenv.pas - установка окружения программы *)
uses linux,stdio;
const
argv:array [0..1] of pchar=('showmyenv',nil);
envp:array [0..2] of pchar=('foo=bar','bar=foo',nil);
begin
execve ('./showmyen', argv, envp);
perror ('Ошибка вызова execve');
end.
Для поиска в переменной envp имени переменной окружения, заданной в форме name=string, можно использовать стандартную библиотечную функцию getenv.
Пересылка данных
Теперь уже освоена процедура установления соединения между клиентом и сервером. Для сокетов типа SOCK_STREAM и клиент, и сервер получают дескрипторы файлов, которые могут использоваться для чтения или записи. В большинстве случаев для этого годятся обычные вызовы fdread и fdwrite. Если же необходимо задавать дополнительные параметры пересылки данных по сети, то можно использовать два новых системных вызова – send и recv. Эти вызовы имеют схожий интерфейс и ведут себя точно так же, как вызовы fdread и fdwrite, если их четвертый аргумент равен нулю.
Подключение клиента
Для выполнения запроса на подключение к серверному процессу клиент использует системный вызов connect.
Подпрограмма perror
Кроме linuxerror UNIX обеспечивает библиотечную процедуру (не системный вызов) perror. Для большинства традиционных команд UNIX использование perror является стандартным способом вывода сообщений об ошибках. Она имеет единственный аргумент строчного типа и при вызове отправляет на стандартный вывод диагностики сообщение, состоящее из переданного ей строчного аргумента, двоеточия и дополнительного описания ошибки, соответствующей текущему значению переменной linuxerror. Важно, что сообщение об ошибке отправляется на стандартный вывод диагностики, а не в стандартный вывод.
В вышеприведенном примере можно заменить строку, содержащую вызов writeln на:
perror('Ошибка при открытии файла nonesuch');
Если файл nonesuch не существует, то функция perror выведет сообщение:
Ошибка при открытии файла nonesuch: No such file or directory
Упражнение 2.17. Напишите процедуры, выполняющие те же действия, что и примитивы доступа к файлам, описанные в этой главе, но вызывающие функцию perror при возникновении ошибок или исключительных ситуаций.
Подробнее о вызове chmod
Системный вызов fstat расширяет использование вызова chmod, поскольку позволяет предварительно узнать значение кода доступа к файлу, что дает возможность изменять отдельные биты, а не менять весь код доступа целиком.
Следующая программа addx демонстрирует сказанное. Она вначале вызывает fstat для получения режима доступа к файлу из списка аргументов вызова программы. В случае успешного завершения вызова программа изменяет существующие права доступа так, чтобы файл был доступен для выполнения его владельцем. Эта программа может быть полезна для придания командным файлам, составленным пользователем, статуса исполняемых файлов.
(* Программа addx разрешает доступ на выполнение файла *)
uses linux,stdio;
const XPERM=0100; (* Право на выполнение для владельца *)
var
k:integer;
statbuf:tstat;
begin
(* Выполнить для всех файлов в списке аргументов *)
for k := 1 to paramcount do
begin
(* Получить текущий код доступа к файлу *)
if not fstat(paramstr(k), statbuf) then
begin
writeln('addx: ошибка вызова stat для ',paramstr(k));
continue;
end;
(*
Попытаться разрешить доступ на выполнение
при помощи оператора побитового ИЛИ
*)
statbuf.mode := statbuf.mode or octal(XPERM);
if not chmod (paramstr(k), statbuf.mode) then
writeln('addx: ошибка изменения прав доступа для файла ', paramstr(k));
end; (* Конец цикла *)
halt(0);
end.
Наиболее интересный момент заключается здесь в способе изменения кода доступа файла при помощи побитового оператора ИЛИ. Это гарантирует, что устанавливается бит, заданный определением XPERM. Фактически мы могли бы расписать этот оператор в виде:
statbuf.mode := statbuf.mode or octal(XPERM);
Для ясности использована более короткая форма. Можно было бы также использовать вместо XPERM предусмотренную в системе постоянную STAT_IXUSR.
Упражнение 3.11. Приведенную задачу можно решить проще. Если вы знаете, как это сделать, напишите эквивалент этой программы при помощи командного интерпретатора.
Упражнение 3.12. Напишите свою версию команды chmod, используя ее описание в справочном руководстве вашей системы UNIX.
Поле c_cflag
Поле c_cflag содержит параметры, управляющие состоянием порта терминала. Обычно процессу не нужно изменять значения поля c_cflag своего управляющего терминала. Изменения этого поля могут понадобиться специальным коммуникационным приложениям, или программам, открывающим коммуникационные линии для дополнительного оборудования, например, для принтера. Значения поля c_cflag образуются объединением при помощи операции ИЛИ битовых констант, определенных в файле stdio. В общем случае каждая константа представляет бит поля c_cflag, который может быть установлен или сброшен. Не будем объяснять назначение всех битов этого поля (за полным описанием обратитесь к справочному руководству системы). Тем не менее есть четыре функции, которые позволяют опрашивать и устанавливать скорость ввода и вывода, закодированную в этом поле, не беспокоясь о правилах манипулирования битами.
Поле c_iflag
Поле c_iflag в структуре termios служит для общего управления вводом с терминала. Не будем рассматривать все возможные установки, а выберем из них только наиболее общие.
Три из связанных с этим полем флага связаны с обработкой символа возврата каретки. Они могут быть полезны в терминалах, которые посылают для обозначения конца строки последовательность, включающую символ возврата каретки CR. ОС UNIX, конечно же, ожидает в качестве символа конца строки символ LF (line feed) или символ перевода строки ASCII, символ NL (new line). Следующие флаги могут исправить ситуацию:
INLCR Преобразовывать символ новой строки в возврат каретки
IGNCR Игнорировать возврат каретки
ICRNL Преобразовывать возврат каретки в символ новой строки
Три других поля c_iflag связаны с управлением потоком данных:
IXON Разрешить старт/стопное управление выводом
IXANY Продолжать вывод при нажатии любого символа
IXOFF Разрешить старт/стопное управление вводом
Флаг IXON дает пользователю возможность управления выводом. Если этот флаг установлен, то пользователь может прервать вывод, нажав комбинацию клавиш Ctrl+S. Вывод продолжится после нажатия комбинации Ctrl+Q. Если также установлен параметр IXANY, то для возобновления приостановленного вывода достаточно нажатия любой клавиши, хотя для остановки вывода должна быть нажата именно комбинация клавиш Ctrl+S. Если установлен флаг IXOFF, то система сама пошлет терминалу символ остановки (как обычно, Ctrl+S), когда буфер ввода будет почти заполнен. После того как система будет снова готова к приему данных, для продолжения ввода будет послана комбинация символов Ctrl+Q.
Поле c_oflag
Поле с_оflag позволяет управлять режимом вывода. Наиболее важным флатом в этом поле является флаг OPOST. Если он не установлен, то выводимые символы передаются без изменений. В противном случае символы подвергаются обработке, заданной остальными флагами, устанавливаемыми в поле
c_oflag. Некоторые из них вызывают подстановку символа возврата каретки (CR) при выводе на терминал:
| ONLCR | Преобразовать символ возврата каретки (CR) в символ возврата каретки (CR) и символ перевода строки (NL) | ||
| OCRNL | Преобразовать символ возврата каретки (CR) в символ перевода строки (NL) | ||
| ONOCR | Не выводить символ возврата каретки (CR) в нулевом столбце | ||
| ONLRET | Символ перевода строки (NL) выполняет функцию символа возврата каретки (CR) |
Если установлен флаг ONLCR, то символы перевода строки NL
преобразуются в последовательность CR+NL (символ возврата каретки и символ перевода строки). Это гарантирует, что каждая строка будет начинаться с левого края экрана. И наоборот, если установлен флаг OCRNL, то символ возврат каретки будет преобразовываться в символ перевода строки. Установка флага
ONLRET сообщает драйверу терминала, что для используемого терминала символы перевода строки будут автоматически выполнять и возврат каретки. Если установлен флаг ONOCR, то символ возврата каретки не будет посылаться при выводе строки нулевой длины.
Большинство остальных флагов поля c_oflag относятся к задержкам в передаче, связанным с интерпретацией специальных символов, таких как перевод строки, табуляция, перевод страницы и др. Эти задержки учитывают время позиционирования указателя знакоместа, где должен быть выведен следующий символ на экране или принтере. Подробное описание этих флагов должно содержать справочное руководство системы.
Поле с_lflag
Возможно, наиболее интересным элементом структуры termios для программиста является поле c_lflag. Оно используется текущей дисциплиной линии связи для управления функциями терминала. Это поле содержит следующие флаги:
| ICANON | Канонический построчный ввод | ||
| ISIG | Разрешить обработку прерываний | ||
| IEXTEN | Разрешить дополнительную (зависящую от реализации) обработку вводимых символов | ||
| ECHO | Разрешить отображение вводимых символов на экране | ||
| ЕСНОЕ | Отображать символ удаления как возврат-пробел-возврат | ||
| ЕСНОК | Отображать новую строку после удаления строки | ||
| ECHONL | Отображать перевод строки | ||
| NOFLSH | Отменить очистку буфера ввода после прерывания | ||
| TOSTOP | Посылать сигнал SIGTTOU при попытке вывода фонового процесса |
Если установлен флаг ICANON, то включается канонический режим работы терминала. Как уже было видно выше, это позволяет использовать символы редактирования строки в процессе построчного ввода. Если флаг ICANON не установлен, то терминал находится в режиме прямого доступа (raw mode), который чаще всего используется полноэкранными программами и коммуникационными пакетами. Вызовы read будут при этом получать данные непосредственно из очереди ввода. Другими словами, основной единицей ввода будет одиночный символ, а не логическая строка. Программа при этом может считывать данные по одному символу (что обязательно для экранных редакторов) или большими блоками фиксированного размера (что удобно для коммуникационных программ). Но для того чтобы полностью управлять поведением вызова fdread, программист должен задать еще два дополнительных параметра. Это параметр VMIN, наименьшее число символов, которые должны быть приняты до возврата из вызова read, и параметр VTIME, максимальное время ожидания для вызова fdread. Оба параметра записываются в массиве с_сс. Это важная тема, которая будет подробно изучена в следующем разделе. А пока просто обратим внимание на то, как в следующем примере сбрасывается флаг ICANON.
uses stdio, linux;
var
tdes:termios;
.
.
.
tcgetattr(0, tdes);
tdes.c_lflag := tdes.c_lflag and (not ICANON);
tcsetattr(0, TCSAFLUSH, tdes);
Если установлен флаг ISIG, то разрешается обработка клавиш прерывания (intr) и аварийного завершения (quit).
Обычно это позволяет пользователю завершить выполнение программы. Если флаг ISIG не установлен, то проверка не выполняется, и символы intr и quit передаются программе без изменений.
Если установлен флаг ECHO, то символы будут отображаться на экране по мере их набора. Сброс этого флага полезен для процедур проверки паролей и программ, которые используют клавиатуру для особых функций, например, для перемещения курсора или команд экранного редактора.
Если одновременно установлены флаги ЕСНОЕ и ECHO, то символ удаления будет отображаться как последовательность символов backspace-space-backspace (возврат–пробел–возврат). При этом последний символ на терминале немедленно стирается с экрана, и пользователь видит, что символ действительно был удален. Если флаг ЕСНОЕ установлен, а флаг ECHO нет, то символ удаления будет отображаться как space-backspace, тогда при его вводе будет удаляться символ в позиции курсора алфавитно-цифрового терминала.
Если установлен флаг ECHONL, то перевод строки будет всегда отображать на экране, даже если отображение символов отключено, что может быть полезным при выполнении самим терминалом локального отображения вводима символов. Такой режим часто называется полудуплексным режимом (half-duplex mode).
Последним флагом, заслуживающим внимания в этой группе флагов, является флаг NOFLSH, который подавляет обычную очистку очередей ввода и вывод при нажатии клавиш intr и quit
и очистку очереди ввода при нажатии клавиши susp.
Альтернативой TCGetAttr может быть вызов IOCtl:
uses Linux;
var
tios : Termios;
begin
IOCtl(1,TCGETS,@tios);
WriteLn('Input Flags : $',hexstr(tios.c_iflag,8));
WriteLn('Output Flags : $',hexstr(tios.c_oflag,8));
WriteLn('Line Flags : $',hexstr(tios.c_lflag,8));
WriteLn('Control Flags: $',hexstr(tios.c_cflag,8));
end.
Для удобства изменения параметров терминала в файле linux определена функция CFMakeRaw:
Получение информации о файле: вызов fstat
До сих пор были лишь рассмотрены вопросы, как можно установить или изменить основные связанные с файлами свойства. Системный вызов fstat позволяет процессу определить значения этих свойств в существующем файле.
Получение параметров локальной системы
В книге были рассмотрены некоторые процедуры, сообщающие системные ограничения (например, pathconf). Есть также и другие процедуры, служащие для той же цели:
| sysconf | Обеспечивает доступ к конфигурационным параметрам, находящимся в файлах <limits.h> и <unistd.h> | ||
| SysInfo | Возвращает информацию о системе | ||
| GetHostName | Возвращает имя локального компьютера | ||
| uname | Возвращает указатель на структуру utsname, содержащую название операционной системы, имя узла, которое может использоваться системой в сети для установления связи, а также номер версии системы
UNIX | ||
| getpwent | Это семейство процедур обеспечивает доступ к данным из файла паролей /etc/passwd. Все следующие вызовы возвращают указатель на структуру passwd, определенную в файле <pwd.h>:
getpwnam(const char *username); getpwuid(uid_t uid); getpwent(void); | ||
| getgrent | Это семейство процедур связано с доступом к файлу описания групп /etc/group | ||
| getrlimit | Обеспечивает доступ к предельным значениям системных ресурсов, таких как память или доступное дисковое пространство | ||
| getlogin
cuserid | Получает имя пользователя для текущего процесса |
Пример использования SysInfo:
Uses Linux;
Function Mb(L : Longint) : longint;
begin
Mb:=L div (1024*1024);
end;
Var Info : TSysInfo;
D,M,Secs,H : longint;
begin
If Not SysInfo(Info) then
Halt(1);
With Info do
begin
D:=Uptime div (3600*24);
UpTime:=UpTime mod (3600*24);
h:=uptime div 3600;
uptime:=uptime mod 3600;
m:=uptime div 60;
secs:=uptime mod 60;
Writeln('Uptime : ',d,'days, ',h,' hours, ',m,' min, ',secs,' s.');
Writeln('Loads : ',Loads[1],'/',Loads[2],'/',Loads[3]);
Writeln('Total Ram : ',Mb(totalram),'Mb.');
Writeln('Free Ram : ',Mb(freeram),'Mb.');
Writeln('Shared Ram : ',Mb(sharedram),'Mb.');
Writeln('Buffer Ram : ',Mb(bufferram),'Mb.');
Writeln('Total Swap : ',Mb(totalswap),'Mb.');
Writeln('Free Swap : ',Mb(freeswap),'Mb.');
end;
end.
Пример использования uname:
Uses linux;
Var UN : utsname;
begin
if Uname (UN) then
With UN do
begin
Writeln ('Name : ',pchar(@sysname[0]));
Writeln ('Nodename : ',pchar(@Nodename[0]));
Writeln ('release : ',pchar(@Release[0]));
Writeln ('Version : ',pchar(@Version[0]));
Writeln ('Machine : ',pchar(@Machine[0]));
Writeln ('Domainname : ',pchar(@domainname[0]));
end;
end.
Пользователи и права доступа
Для каждого файла в системе UNIX задан его владелец
(owner – один из пользователей системы; обычно пользователь, создавший файл). Истинный идентификатор пользователя представлен неотрицательным числом user-id, сокращенно uid, которое связывается с файлом при его создании.
В типичной системе UNIX связанный с определенным именем пользователя идентификатор uid находится в третьем поле записи о пользователе в файле паролей, то есть в строке файла /etc/passwd/, которая идентифицирует пользователя в системе. Типичная запись
keith:x:35:10::/usr/keith:/bin/ksh
указывает, что пользователь keith имеет uid 35.
Поля в записи о пользователе в файле паролей разделяются двоеточием. Первое поле задает имя пользователя. Второе, в данном случае х, – это маркер пароля пользователя. В отличие от ранних версий UNIX сам зашифрованный пароль обычно находится в другом файле, отличающемся для разных систем. Как уже было показано, третье поле содержит идентификатор пользователя uid. В четвертом поле находится идентификатор группы пользователя по умолчанию – group-id, сокращенно gid; подробнее он будет рассмотрен ниже. Пятое поле – это необязательное поле комментария. Шестое задает домашний каталог пользователя. Последнее поле – полное имя программы, которая запускается после входа пользователя в систему. Например, /bin/ksh – одна из стандартных оболочек UNIX.
Фактически для идентификации пользователя в системе UNIX нужен только идентификатор user-id. Каждый процесс UNIX обычно связывается с идентификатором пользователя, который запустил его на выполнение. При этом процесс является просто экземпляром выполняемой программы. При создании файла система устанавливает его владельца на основе идентификатора uid, создающего файл процесса.
Владелец файла позже может быть изменен, но только суперпользователем или владельцем файла. Следует отметить, что суперпользователь имеет имя root и его идентификатор uid всегда равен 0.
Помимо владельца файлы могут быть связаны с группами пользователей
(groups) которые представляют произвольный набор пользователей, благодаря чему становится возможным простой способ управления проектами, включающими несколько человек. Каждый пользователь принадлежит как минимум к одной группе.
Группы пользователей определяются в файле /etc/group. Каждая из них определена своим идентификатором gid, который, как и uid, является неотрицательным числом. Группа пользователя по умолчанию задается четвертым полем записи о нем в файле паролей.
Так же, как идентификатор пользователя uid, идентификатор группы gid пользователя наследуется процессом, который запускает пользователь. Поэтому при создании файла связанный с создающим его процессом идентификатор группы gid записывается наряду с идентификатором пользователя uid.
Понятие процесса
Как было уже рассмотрено в главе 1, процессом в терминологии UNIX является просто экземпляр выполняемой программы, соответствующий определению задачи в других средах. Каждый процесс объединяет код программы, значения данных в переменных программы и более экзотические элементы, такие как значения регистров процессора, стек программы и т.д.[4]
Командный интерпретатор для выполнения команд обычно запускает один или несколько процессов. Например, командная строка
$ cat file1 file2
приведет к созданию процесса для выполнения команды cat. Немного более сложная команда
$ ls | wc -l
приведет к созданию двух процессов для одновременного выполнения команд ls и wc. (Кроме этого, результат программы ls, вывод списка файлов в каталоге, перенаправляется
с помощью программного канала (pipe) на вход программы подсчета числа слов wc.)
Так как процессы соответствуют выполняемым программам, не следует путать их с программами, которые они выполняют. Несколько процессов могут выполнять одну и ту же программу. Например, если несколько пользователей выполняют одну и ту же программу редактора, то каждый из экземпляров программы будет отдельным процессом.
Любой процесс UNIX может, в свою очередь, запускать другие процессы. Это придает среде процессов UNIX иерархическую структуру, подобную дереву каталогов файловой системы. На вершине дерева процессов находится единственный управляющий процесс, экземпляр очень важной программы init, которая является предком всех системных и пользовательских процессов.
Система UNIX предоставляет программисту набор системных вызовов для создания процессов и управления ими. Если исключить различные средства для межпроцессного взаимодействия, то наиболее важными из оставшихся будут:
| fork | Используется для создания нового процесса, дублирующего вызывающий. Вызов fork является основным примитивом создания процессов | ||
| ехес | Семейство библиотечных процедур и один системный вызов, выполняющих одну и ту же функцию – смену задачи процесса за счет перезаписи его пространства памяти новой программой. Различие между вызовами ехес в основном лежит в способе задания списка их аргументов | ||
| wait | Этот вызов обеспечивает элементарную синхронизацию процессов. Он позволяет процессу ожидать завершения другого процесса, обычно логически связанного с ним | ||
| halt | Используется для завершения процесса |
Далее рассмотрим, что представляют собой процессы UNIX в целом и вышеприведенные четыре важных системных вызова в частности.
Порты
Кроме адреса компьютера, клиентская программа должна иметь возможность подключения к нужному серверному процессу. Серверный процесс ждет подключения к заданному номеру порта (port number). Поэтому клиентский процесс должен выполнить запрос на подключение к определенному порту на заданном компьютере. Если продолжить аналогию с пересылкой писем по почте, то это равносильно дополнению адреса номером комнаты или квартиры.
Некоторые номера портов по соглашению считаются отведенными для стандартных сервисов, таких как ftp или rlogin. Эти номера портов записаны в файле /etc/services. В общем случае порты с номерами, меньшими 1024, считаются зарезервированными для системных процессов UNIX. Все остальные порты доступны для пользовательских процессов.
Построчный ввод и вывод
Существует также набор простых процедур для ввода и вывода строк (под которыми понимается последовательность символов, завершаемая символом перевода строки). Эти процедуры удобно использовать в интерактивных программах, которые выполняют чтение с клавиатуры и вывод на экран терминала. Основные процедуры для ввода строк называются gets и fgets.
Посылка сигналов другим процессам: вызов kill
Процесс вызывает процедуру sigaction для установки реакции на поступление сигнала. Обратную операцию, посылку сигнала, выполняет системный вызов kill, описанный следующим образом:
Посылка сигналов самому процессу: вызовы sigraise и alarm
Функция sigraise просто посылает сигнал выполняющемуся процессу:
Потоки управления
Потоки управления, или нити (threads) являются облегченной версией процессов – поддерживающие их системы позволяют выполнять одновременно несколько таких потоков в рамках одного процесса, при этом все потоки могут работать с данными процесса. Их применение может быть очень ценным для повышения производительности и интерактивности определенных классов задач, но техника программирования многопотоковых программ является довольно сложной. Многие версии
UNIX поддерживали различные подходы к организации потоков выполнения, но теперь выработана стандартная модель (POSIX threads), включенная в стандарт POSIX и пятую версию спецификации XSI. Интерфейс функций работы с потоками управления может быть описан в справочном руководстве системы под заголовком pthread_.
Для создания потока может использоваться вызов Clone:
Права доступа и режимы файлов
Владелец обладает исключительными правами обращения с файлами. В частности, владелец может изменять связанные с файлом права доступа
(permissions). Права доступа определяют возможности доступа к файлу других пользователей. Они затрагивают три группы пользователей:
1)
владелец файла;
2) все пользователи, кроме владельца файла, принадлежащие к связанной с файлом группе;
3) все пользователи, не входящие в категории 1 или 2.
Для каждой категории пользователей существуют три основных типа прав доступа к файлам. Они определяют, может ли пользователь определенной категории выполнять:
– чтение из файла;
– запись в файл;
– запуск файла на выполнение. В этом случае файл обычно является программой или последовательностью команд оболочки.
Как обычно, суперпользователь выделен в отдельную категорию и может оперировать любыми файлами, независимо от связанных с ними прав чтения, записи или выполнения.
Система хранит связанные с файлом права доступа в битовой маске, называемой кодом доступа к файлу (file mode). Хотя модуль linux и определяет символьные имена для битов прав доступа, большинство программистов все еще предпочитает использовать восьмеричные постоянные, приведенные в табл. 3.1 – при этом символьные имена являются относительно недавним и весьма неудобным нововведением. Следует обратить внимание, что в языке С восьмеричные постоянные всегда начинаются с нуля, иначе компилятор будет расценивать их как десятичные. В Паскале же для записи восьмеричных чисел удобно использовать функцию octal, параметром которой является восьмеричное число, записанное десятичными числами, а результатом – значение в десятеричной системе:
Права доступа к каталогам
Так же как и с обычными файлами, с каталогами связаны права доступа, определяющие возможность доступа к ним различных пользователей.
Права доступа к каталогам организованы точно так же, как и права доступа к обычным файлам, разбиты на три группы битов rwx, определяющих права владельца файла, пользователей из его группы и всех остальных пользователей системы.
Тем не менее, хотя эти права доступа представлены так же, как и у обычных файлов, интерпретируются они по-другому:
– право доступа к каталогу на чтение показывает, что соответствующий класс пользователей может выводить список содержащихся в каталоге файлов и подкаталогов. Однако это не означает, что пользователи могут читать содержащуюся в файлах информацию – это определяется правами доступа к отдельным файлам;
– право доступа к каталогу на запись позволяет пользователю создавать в каталоге новые файлы и удалять существующие. И снова это не дает пользователю права изменять содержимое существующих файлов, если это не разрешено правами доступа к отдельным файлам. Вместе с тем при этом можно удалить существующий файл и создать новый с тем же самым именем, и это, по сути, означает то же самое, что и изменение содержимого исходного файла;
– право доступа к каталогу на выполнение, называемое также правом выполнения, или правом прохождения, поиска
(search permission), позволяет пользователю перейти в каталог при помощи команды cd или системного вызова chdir в программе (который будет рассмотрен позже). Кроме этого, чтобы иметь возможность открыть файл или выполнить программу, пользователь должен иметь право доступа на выполнение для всех ведущих к файлу каталогов, входящих в абсолютный путь файла;
– бит фиксации, STAT_ISVTX, позволяет установить дополнительную защиту файлов, находящихся в каталоге. Из такого каталога пользователь может удалить только те файлы, которыми он владеет или на которые он имеет явное право доступа на запись, даже при наличии права на запись в каталог. Примером является каталог /tmp.
Каталог ben |
||||||
123 |
. |
\0 |
||||
247 |
. |
. |
\0 |
|||
260 |
b |
o |
o |
k |
\0 |
|
401 |
m |
e |
m |
o |
s |
\0 |
Каталог book |
||||||
260 |
. |
\0 |
||||
123 |
. |
. |
\0 |
|||
566 |
c |
h |
a |
p |
1 |
\0 |
567 |
c |
h |
a |
p |
2 |
\0 |
590 |
c |
h |
a |
p |
3 |
\0 |
Каталог memos |
||||||
401 |
. |
\0 |
||||
123 |
. |
. |
\0 |
|||
800 |
k |
h |
\0 |
|||
810 |
k |
d |
\0 |
|||
077 |
m |
w |
\0 |
На уровне командного интерпретатора связанные с каталогами права доступа можно вывести при помощи команды ls с параметром -l. Подкаталоги будут обозначаться буквой d
в первой позиции, например:
$ ls -l
total 168
-rw-r----- 1 ben other 39846 Oct 12 21:21 dir_t
drwxr-x--- 2 ben other 32 Oct 12 22:02 expenses
-rw-r----- 1 ben other 46245 Oct 13 10:34 new
-rw-r----- 1 ben other 3789 Sep 2 18:40 pwd_text
-rw-r----- 1 ben other 1310 Sep 13 10:38 test.с
Здесь строка, описывающая подкаталог expenses, помечена буквой d
в начале строки. Видно, что владелец этого каталога (пользователь ben) имеет права на чтение, запись и выполнение (поиск), пользователи группы файла (называющейся other) имеют права на чтение и выполнение (переход в каталог), а для всех остальных пользователей доступ полностью запрещен.
Если требуется получить информацию о текущем каталоге, можно задать в команде ls
кроме параметра -l еще и параметр -d, например:
$ ls -ld
drwxr-x--- 3 ben other 128 Oct 12 22:02 .
Помните, что имя .
(точка) в конце листинга обозначает текущий каталог.
Предостережение
Здесь необходимо сделать несколько предостережений. Во-первых, существует предельное число файлов, которые могут быть одновременно открыты программой, – в стандарте POSIX (а следовательно, и в спецификации XSI) не менее двадцати[1]. Чтобы обойти эту проблему, требуется использовать системный вызов fdclose, тем самым сообщая системе, что работа с файлом закончена. Вызов fdclose будет рассмотрен в разделе 2.1.5. Может также существовать предел суммарного числа файлов, открытых всеми процессами, определяемый размером таблицы в ядре. Во-вторых, в ранних версиях UNIX и в параметре flags непосредственно задавались численные значения. Это все еще достаточно распространенный, хотя и не совсем удовлетворительный прием – задание численных значений вместо имен постоянных, определенных в модуле linux. Поэтому может встретиться оператор типа
filedes := fdopen(filename, 0);
который в обычных условиях открывает файл только для чтения и эквивалентен следующему оператору:
filedes := fdopen (filename, Open_RDONLY);
Упражнение 2.1. Создайте небольшую программу, описанную выше. Проверьте ее работу при условии, что файл junk не существует. Затем создайте файл junk с помощью текстового редактора и снова запустите программу. Содержимое файла junk не имеет значения.
Преобразование строк в числовые значения
Стандарт ANSI С определяет два набора функций для преобразования строк в числовые величины:
Прием и передача UDP-сообщений
Для сокетов UDP есть два новых системных вызова –
sendto и recvfrom. Параметр sockfd в обоих вызовах задает связанный с локальным адресом сокет, через который принимаются и передаются пакеты.
Прием запроса на установку TCP-соединения
Когда сервер получает от клиента запрос на соединение, он должен создать новый сокет для работы с новым соединением. Первый же сокет используется только для установки соединения. Дополнительный сокет создается при помощи вызова accept, принимающего очередное соединение.
История UNIX
ОС UNIX начала свою историю с того момента, как в 1969 г. Кен Томсон (Ken Thomson) и Деннис Ричи (Dennis Ritchie) с коллегами начали работу над ней на «стоящем в углу свободном компьютере PDP-7». С тех пор ОС UNIX нашла применение в сфере бизнеса и образования, а также стала основой ряда международных стандартов.
Кратко перечислим некоторые вехи истории UNIX:
–
шестая редакция системы, 1975 (Sixth Edition, или Version 6). Первый широко известный в техническом сообществе коммерческий вариант и основа первой версии Berkeley UNIX;
– Xenix (1980). Версия от Microsoft – один из коммерческих вариантов UNIX с измененным названием, возникших в начале восьмидесятых годов;
– System V (1983-92). Одна из наиболее важных версий от создателя UNIX – корпорации AT&T. Наследница Version 7 и последовавшей за ней System III;
– Berkeley UNIX (версия 4.2 в 1984 г., 4.4 в 1993 г.). Разработанная в университете Berkeley, эта версия также была одной из наиболее важных версий UNIX и ввела в семейство UNIX много новых средств;
– POSIX (с 1988 г. и далее). Ключевой набор стандартов комитета IEEE (см. ниже), сыгравший важную роль в развитии UNIX;
– Open Portability Guides (XPG3 в 1990 г., XPG4.2 в 1994 г.). Практическая спецификация, объединившая целый ряд основных стандартов и рецептов использования UNIX систем. Консорциум Х/Open в конце концов приобрел торговую марку UNIX.
Кроме того, существовало множество коммерческих взаимодействий, таких как передача торговой марки UNIX от компании AT&T к компании Novell, а затем консорциуму Х/Open, а также слияние организаций Х/Open и Open Software Foundation. Однако это достаточно упрощенный взгляд на историю UNIX. На самом деле дерево семейства UNIX является очень сложным.
Приложение Модуль stdio
Назначение модуля – восполнить недостаток средств прикладного и системного программирования на языке Паскаль аналогичными средствами библиотек языка Си.
unit stdio;
{$mode objfpc}
interface
(* A streammarker remembers a position in a buffer. *)
uses linux,sockets;
const
EOF=-1; (* признак конца файла для stdio *)
WCOREFLAG=$80; (* флаг сброса дампа памяти *)
(* Размер буфера для чтения и записи *)
BUFSIZ=8192;
NULL=nil;
_IOFBF=0; (* setvbuf should set fully buffered *)
_IOLBF=1; (* setvbuf should set line buffered *)
_IONBF=2; (* setvbuf should set unbuffered *)
MAX_INPUT=255; (* size of the type-ahead buffer *)
_SIGSET_NWORDS=1024 div (8 * sizeof (longint)); (* sizeof(sigset_t) *)
(* флаги для pathconf/fpathconf *)
(* returns the maximum number of links to the file. If filedes or
* path refer to a directory, then the value applies to the whole
* directory.
*)
_PC_LINK_MAX=0;
(* returns the maximum length of a formatted input line, where
* filedes or path must refer to a terminal.
*)
_PC_MAX_CANON=1;
(* returns the maximum length of an input line, where filedes or
* path must refer to a terminal.
*)
_PC_MAX_INPUT=2;
(* returns the maximum length of a filename in the directory path
* or filedes. the process is allowed to create.
*)
_PC_NAME_MAX=3;
(* returns the maximum length of a relative pathname when path or
* filedes is the current working directory.
*)
_PC_PATH_MAX=4;
(* returns the size of the pipe buffer, where filedes must refer to
* a pipe or FIFO and path must refer to a FIFO.
*)
_PC_PIPE_BUF=5;
(* returns nonzero if the chown(2) call may not be used on this
* file. If filedes or path refer to a directory, then this
* applies to all files in that directory.
*)
_PC_CHOWN_RESTRICTED=6;
(* returns nonzero if accessing filenames longer than
аа * _POSIX_NAME_MAXа generates an error.
аа *)
а _PC_NO_TRUNC=7;
а (* returns nonzero if special character processing can be disabled,
аа * where filedes or path must refer to a terminal.
аа *)
а _PC_VDISABLE=8;
а _PC_SYNC_IO=9;
а _PC_ASYNC_IO=10;
а _PC_PRIO_IO=11;
а _PC_SOCK_MAXBUF=12;
а _PC_FILESIZEBITS=13;
а _PC_REC_INCR_XFER_SIZE=14;
а _PC_REC_MAX_XFER_SIZE=15;
а _PC_REC_MIN_XFER_SIZE=16;
а _PC_REC_XFER_ALIGN=17;
а _PC_ALLOC_SIZE_MIN=18;
а _PC_SYMLINK_MAX=19;
а (* For posix fcntl() and `l_type' field of a `struct flock' for lockf().а *)
а F_RDLCK=0;аааааа (* Read lock.а *)
а F_WRLCK=1;ааа ааа(* Write lock.а *)
а F_UNLCK=2;аааааа (* Remove lock.а *)
а F_DUPFD=0;аааааа (* Duplicate fildes *)
а (* Constants for ulimit *)
а UL_GETFSIZE=1;ааааа (* тючтЁр•рхЄ єёЄрэютыхээюх юуЁрэшўхэшх эр ЁрчьхЁ
аааааааааааааааааааааааа Їрщыр (т сыюърї яю 512 срщЄ) *)
а UL_SETFSIZE=2;ааааа (* єёЄрэртыштрхЄ яЁхфхы№эvщ ЁрчьхЁ Їрщыр *)
а __UL_GETMAXBRK=3;аа (* тючтЁр•рхЄ ьръёшьры№эю тючьюцэvщ рфЁхё ёхуьхэЄр фрээvї *)
а __UL_GETOPENMAX=4;а (* тючтЁр•рхЄ ьръёшьры№эюх ъюышўхёЄтю Їрщыют, ъюЄюЁюх
аааааааааааааааааааааааа яЁюЎхёё ьюцхЄ юЄъЁvЄ№ *)
а FD_SETSIZE=64;
а
а (* Macros used as `request' argument to `ioctl'.а *)
а __SID=byte('S') shl 8;
а I_NREADаааа =__SID or 1;а (* Counts the number of data bytes in the data
аааааааааааааааааааааааааааааа block in the first message.а *)
а I_PUSHааааа =__SID or 2;а (* Push STREAMS module onto top of the current
аааааааааааааааааааааааааааааа STREAM, just below the STREAM head.а *)
а I_POPаааааа =__SID or 3;а (* Remove STREAMS module from just below the
аааааааааааааааааааааааааааааа STREAM head.а *)
а I_LOOKааааа =__SID or 4;а (* Retrieve the name of the module just below
аааааааааааааааааааааааааааааа the STREAM head and place it in a character
аааааааааааааааааааааааааааааа string.а *)
а I_FLUSHаааа =__SID or 5;а (* Flush all input and/or output.а *)
а I_SRDOPTааа =__SID or 6;а (* Sets the read mode.а *)
а I_GRDOPTааа =__SID or 7;а (* Returns the current read mode setting.а *)
а I_STRаааааа =__SID or 8;а (* Construct an internal STREAMS `ioctl'
аааааааааааааааааааааааааааааа message and send that message downstream. *)
а I_SETSIGааа =__SID or 9;а (* Inform the STREAM head that the process
ааааааааааааааааааа аааааааааааwants the SIGPOLL signal issued.а *)
а I_GETSIGааа =__SID or 10; (* Return the events for which the calling
аааааааааааааааааааааааааааааа process is currently registered to be sent
аааааааааааааааааааааааааааааа a SIGPOLL signal.а *)
а I_FINDа аааа=__SID or 11; (* Compares the names of all modules currently
аааааааааааааааааааааааааааааа present in the STREAM to the name pointed to
аааааааааааааааааааааааааааааа by `arg'.а *)
а I_LINKааааа =__SID or 12; (* Connect two STREAMs.а *)
а I_UNLINKааа =__SID or 13; (* Disconnects the two STREAMs.а *)
а I_PEEKааааа =__SID or 15; (* Allows a process to retrieve the information
аааааааааааааааааааааааааааааа in the first message on the STREAM head read
аааааааааааааааааааааааааааааа queue without taking the message off the
аааааааааааааааааааааааааааааа queue.а *)
а I_FDINSERTа =__SID or 16; (* Create a message from the specifiedааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
аааааааааааааааааааааааааааааа buffer(s), adds information about anotherаааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
аааааааааааааааааааааааааааааа STREAM, and send the message downstream.а *)
а I_SENDFDааа =__SID or 17; (* Requests the STREAM associated with `fildes'
аааааааааааааааааааааааааааааа to send a message, containing a file
аааааааааааааааааааааааааааааа pointer, to the STREAM head at the other end
аааааааааааааааа ааааааааааааааof a STREAMS pipe.а *)
а I_RECVFDааа =__SID or 14; (* Non-EFT definition.а *)
а I_SWROPTааа =__SID or 19; (* Set the write mode.а *)
а I_GWROPTааа =__SID or 20; (* Return the current write mode setting.а *)
а I_LISTааааа =__SID or 21; (* List all the module names on the STREAM, up
аааааааааааааааааааааааааааааа to and including the topmost driver name. *)
а I_PLINKаааа =__SID or 22; (* Connect two STREAMs with a persistent
ааааааааааааааааааааааааааааааа link.а *)
а I_PUNLINKаа =__SID or 23; (* Disconnect the two STREAMs that were
аааааааааааааааааааааааааааааа connected with a persistent link.а *)
а I_FLUSHBAND =__SID or 28; (* Flush only band specified.а *)
а I_CKBANDааа =__SID or 29; (* Check if the message of a given priority
ааааааааааааа аааааааааааааааааband exists on the STREAM head read
аааааааааааааааааааааааааааааа queue.а *)
а I_GETBANDаа =__SID or 30; (* Return the priority band of the first
аааааааааааааааааааааааааааааа message on the STREAM head read queue.а *)
а I_ATMARKааа =__SID or 31; (* See if the current message on the STREAM
аааааааааааааааааааааааааааааа head read queue is "marked" by some module
аааааааааааааааааааааааааааааа downstream.а *)
а I_SETCLTIME =__SID or 32; (* Set the time the STREAM head will delay when
аааа ааааааааааааааааааааааааааa STREAM is closing and there is data on
аааааааааааааааааааааааааааааа the write queues.а *)
а I_GETCLTIME =__SID or 33; (* Get current value for closing timeout.а *)
а I_CANPUTааа =__SID or 34; (* Check if a certain band is writable.а *)
а (* фы шэЄхЁЇхщёр ёюъхЄют *)а
а INADDR_ANY=0;
а { Maximum queue length specificable by listen.аа }
а SOMAXCONN = 5;
а { Flags we can use with send/ and recv.а }
а { process out-of-band dataа }
а MSG_OOB = $1;
а { peek at incoming messageа }
ааMSG_PEEK = $2;
а { send without using routing tablesа }
а MSG_DONTROUTE = $4;
а { Setsockoptions(2) level. Thanks to BSD these must match IPPROTO_xxxа }
а SOL_IP = 0;
а SOL_IPX = 256;
а SOL_AX25 = 257;
а SOL_ATALK = 258;
а SOL_NETROM = 259;
а SOL_TCP = 6;
а SOL_UDP = 17;
а { IP optionsа }
а IPTOS_LOWDELAY = $10;
а IPTOS_THROUGHPUT = $08;
а IPTOS_RELIABILITY = $04;
а { These need to appear somewhere around hereа }
а IP_DEFAULT_MULTICAST_TTL = 1;
а IP_DEFAULT_MULTICAST_LOOP = 1;
а IP_MAX_MEMBERSHIPS = 20;
а { IP options for use with WinSockа }
а IP_OPTIONS = 1;
а IP_MULTICAST_IF = 2;
а IP_MULTICAST_TTL = 3;
а IP_MULTICAST_LOOP = 4;
а IP_ADD_MEMBERSHIP = 5;
а IP_DROP_MEMBERSHIP = 6;
а IP_TTL = 7;
а IP_TOS = 8;
а IP_DONTFRAGMENT = 9;
а { IPX optionsа }
а IPX_TYPE = 1;
а { TCP options }
а TCP_NODELAY = $0001;
а TCP_MAXSEG = 2;
а { The various priorities.а }
а SOPRI_INTERACTIVE = 0;
а SOPRI_NORMAL = 1;
а SOPRI_BACKGROUND = 2;
а (* єяЁртыхэшх ЄхЁьшэрыюь *)
а TCOOFF = 0;
а TCOON = 1;
а TCIOFF = 2;
а TCION = 3;
а TCGETA = 5;
а TCSETA = 6;
а TCSETAW = 7;
а TCSETAF = 8;
а TCIFLUSH = 0;
а TCOFLUSH = 1;
а TCIOFLUSH = 2;
а TCFLSH = 3;
а TCSAFLUSH = 1;
а TCSANOW = 2;
а TCSADRAIN = 3;
а TCSADFLUSH = 4;
а TIOCPKT = 6;
а TIOCPKT_DATA = 0;
а TIOCPKT_FLUSHREAD = 1;
а TIOCPKT_FLUSHWRITE = 2;
а TIOCPKT_STOP = 4;
а TIOCPKT_START = 8;
а TIOCPKT_NOSTOP = 16;
а TIOCPKT_DOSTOP = 32;
а { To be compatible with socket versionа }
а FIONBIO = $8004667e;
а { iflag bitsа }
а IGNBRK = $00001;
а BRKINT = $00002;
а IGNPAR = $00004;
а IMAXBEL = $00008;
а INPCK = $00010;
а ISTRIP = $00020;
а INLCR = $00040;
а IGNCR = $00080;
а ICRNL = $00100;
а IXON = $00400;
а IXOFF = $01000;
а IUCLC = $04000;
а IXANY = $08000;
а PARMRK = $10000;
а { oflag bitsа }
а OPOST = $00001;
а OLCUC = $00002;
а OCRNL = $00004;
а ONLCR = $00008;
а ONOCR = $00010;
а ONLRET = $00020;
а OFILL = $00040;
а CRDLY = $00180;
а CR0 = $00000;
а CR1 = $00080;
а CR2 = $00100;
а CR3 = $00180;
а NLDLY = $00200;
а NL0 = $00000;
а NL1 = $00200;
а BSDLY = $00400;
а BS0 = $00000;
а BS1 = $00400;
а TABDLY = $01800;
а TAB0 = $00000;
а TAB1 = $00800;
а TAB2 = $01000;
а TAB3 = $01800;
а XTABS = $01800;
а VTDLY = $02000;
а VT0 = $00000;
а VT1 = $02000;
а FFDLY = $04000;
а FF0 = $00000;
а FF1 = $04000;
а OFDEL = $08000;
а { cflag bitsа }
а { Baud rate values.а These must fit in speed_t, which is unsigned
а char.а See also the extended baud rates below.а These baud rates
а set an additional bit.а }
а CBAUD = $0100f;
а B0 = $00000;
а B50 = $00001;
а B75 = $00002;
а B110 = $00003;
а B134 = $00004;
а B150 = $00005;
а B200 = $00006;
а B300 = $00007;
а B600 = $00008;
а B1200 = $00009;
а B1800 = $0000a;
а B2400 = $0000b;
а B4800 = $0000c;
а B9600 = $0000d;
а B19200 = $0000e;
а B38400 = $0000f;
а CSIZE = $00030;
а CS5 = $00000;
а CS6 = $00010;
а CS7 = $00020;
а CS8 = $00030;
а CSTOPB = $00040;
а CREAD = $00080;
а PARENB = $00100;
а PARODD = $00200;
а HUPCL = $00400;
а CLOCAL = $00800;
а CBAUDEX = $0100f;
а B57600 = $01001;
ааB115200 = $01002;
а B128000 = $01003;
а B256000 = $01003;
а CRTSXOFF = $04000;
а CRTSCTS = $08000;
а { lflag bitsа }
а ISIG = $0001;
а ICANON = $0002;
а ECHO = $0004;
а ECHOE = $0008;
а ECHOK = $0010;
а ECHONL = $0020;
а NOFLSH = $0040;
а TOSTOP = $0080;
а IEXTEN = $0100;
а FLUSHO = $0200;
а ECHOKE = $0400;
а ECHOCTL = $0800;
а VDISCARD = 1;
а VEOL = 2;
а VEOL2 = 3;
а VEOF = 4;
а VERASE = 5;
а VINTR = 6;
а VKILL = 7;
а VLNEXT = 8;
а VMIN = 9;
а VQUIT = 10;
а VREPRINT = 11;
а VSTART = 12;
а VSTOP = 13;
а VSUSP = 14;
а VSWTC = 15;
а VTIME = 16;
а VWERASE = 17;
а CNUL = 0;
а CDEL = $0007f;
а CESC = byte('\');
а CINTR = byte('C') and $1f;
а CQUIT = $0001c;
а CERASE = byte('H') and $1f;
а CKILL = byte('U') and $1f;
а CEOT = byte('D') and $1f;
а CEOL = 0;
а CEOL2 = 0;
а CEOF = byte('D') and $1f;
а CSTART = byte('Q') and $1f;
а CSTOP = byte('S') and $1f;
а CSWTCH = $0001a;
а NSWTCH = 0;
а CSUSP = byte('Z') and $1f;
а CDSUSP = byte('Y') and $1f;
а CRPRNT = byte('R') and $1f;
а CFLUSH = byte('O') and $1f;
а CWERASE = byte('W') and $1f;
а CLNEXT = byte('V') and $1f;
ааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа ааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
а
type PFILE=^TFILE;
_IO_marker=record
а next:^_IO_marker;
а sbuf:PFILE;
а _pos:integer;
end;
P_IO_marker=^_IO_marker;
ppchar=^pchar;
pinteger=^integer;
plongint=^longint;
sigset_t=record
а __val:array [0.._SIGSET_NWORDS-1] of longint;
end;
psigset_t=^sigset_t;
__jmp_buf=array [0..5] of longint;
__jmp_buf_tag=record
а __jmpbuf:__jmp_buf;аааааааааааааа (* Calling environment.а *)
а __mask_was_saved:longint;аааааааа (* Saved the signal mask?а *)
а __saved_mask:sigset_t;ааааааааааааа (* Saved signal mask.а *)
end;
jmp_buf=array [0..0] of __jmp_buf_tag;
sigjmp_buf=jmp_buf;
flockrec=record
а l_type:word;аааа (* Type of lock: F_RDLCK, F_WRLCK, or F_UNLCK.а *)
а l_whence:word;аа (* Where `l_start' is relative to (like `lseek').а *)
а l_start:longint;ааа (* Offset where the lock begins.а *)
а l_len:longint;ааааа (* Size of the locked area; zero means until EOF.а *)
а l_pid:longint;ааааа (* Process holding the lock.а *)
end;
(* фы шэЄхЁЇхщёр ёюъхЄют *)
in_addr=record
а s_addr:cardinal;
end;
pin_addr=^in_addr;
in_addr_t=cardinal;
(* фы ЁрсюЄv ёю тЁхьхэхь *)
tm=record
а tm_sec:longint;аааааааа (* seconds *)
а tm_min:longint;аааааааа (* minutes *)
а tm_hour:longint;ааааааа (* hours *)
а tm_mday:longint;ааааааа (* day of the month *)
а tm_mon:longint;аааааааа (* month *)
а tm_year:longint;ааааааа (* year *)
а tm_wday:longint;ааааааа (* day of the week *)
а tm_yday:longint;ааааааа (* day in the year *)
а tm_isdst:longint;аааааа (* daylight saving time *)
end;
ptm=^tm;
TFILE=record
а _flags:integer;ааааа (* High-order word is _IO_MAGIC; rest is flags. *)
а (* The following pointers correspond to the C++ streambuf protocol. *)
а (* Note:а Tk uses the _IO_read_ptr and _IO_read_end fields directly. *)
а _IO_read_ptr:pchar;аа (* Current read pointer *)
а _IO_read_end:pchar;аа (* End of get area. *)
а _IO_read_base:pchar;а (* Start of putback+get area. *)
а _IO_write_base:pchar; (* Start of put area. *)
а _IO_write_ptr:pchar;а (* Current put pointer. *)
а _IO_write_end:pchar;а (* End of put area. *)
а _IO_buf_base:pchar;аа (* Start of reserve area. *)
а _IO_buf_end:pchar;ааа (* End of reserve area. *)
а (* The following fields are used to support backing up and undo. *)
а _IO_save_base:pchar; (* Pointer to start of non-current get area. *)
а _IO_backup_base:pchar;а (* Pointer to first valid character of backup area *)
а _IO_save_end:pchar; (* Pointer to end of non-current get area. *)
а _markers:P_IO_marker;
а _chain:^TFILE;
а _fileno:integer;
а _blksize:integer;
а _old_offset:longint; (* This used to be _offset but it's too small.а *)
а _cur_column:word;
а _vtable_offset:byte;
а _shortbuf:array[1..1]of char;
а _lock:pointer;
end;
var
а stdin,stdout:pfile;
function tmpfile:pfile;cdecl;external 'c';
(* Generate a temporary filename.а *)
function tmpnam(__s:pchar):pchar;cdecl;external 'c';
(* Close STREAM.а *)
function fclose(__stream:pfile):integer;cdecl;external 'c';
(* Flush STREAM, or all streams if STREAM is NULL.а *)
function fflush (__stream:pfile):integer;cdecl;external 'c';
(* Close all streams.а *)
function fcloseall:integer;cdecl;external 'c';
(* Open a file and create a new stream for it.а *)
function fopen(fname:pchar;mode:pchar):pfile;cdecl;external 'c';
(* Open a file by fd and create a new stream for it.а *)
function fdopen(fildes:longint;mode:pchar):pfile;cdecl;external 'c';
а
(* Open a file, replacing an existing stream with it. *)
function freopen (_filename:pchar;__modes:pchar;__stream:pfile):pfile;cdecl;external 'c';
(* Create a new stream that refers to a memory buffer.а *)
function fmemopen(__s:pointer;__len:longint;__modes:pchar):pfile;cdecl;external 'c';
(* Open a stream that writes into a malloc'd buffer that is expanded as
аа necessary.а *BUFLOC and *SIZELOC are updated with the buffer's location
аа and the number of characters written on fflush or fclose.а *)
function open_memstream(__bufloc:ppchar;__sizeloc:plongint):pfile;cdecl;external 'c';
(* If BUF is NULL, make STREAM unbuffered.
аа Else make it use buffer BUF, of size BUFSIZ.а *)
procedure setbuf(__stream:pfile;__buf:pchar);cdecl;external 'c';
(* Make STREAM use buffering mode MODE.
аа If BUF is not NULL, use N bytes of it for buffering;
аа else allocate an internal buffer N bytes long.а *)
function setvbuf(__stream:pfile;__buf:pchar;
аааааааааааааааа __modes:longint;__n:longint):integer;cdecl;external 'c';
(* If BUF is NULL, make STREAM unbuffered.
аа Else make it use SIZE bytes of BUF for buffering.а *)
procedure setbuffer(__stream:pfile;__buf:pchar;
аааааааааа ааа __size:longint);cdecl;external 'c';
(* Make STREAM line-buffered.а *)
procedure setlinebuf(__stream:pfile);cdecl;external 'c';
(* Write formatted output to STREAM.а *)
function fprintf(__stream:pfile;fm:pchar;args:array of const):integer;cdecl;external 'c';
(* Write formatted output to stdout.а *)
function printf(fm:pchar;args:array of const):integer;cdecl;external 'c';
(* Write formatted output to S.а *)
function sprintf(__s:pchar;fm:pchar;args:array of const):integer;cdecl;external 'c';
(* Read formatted input from STREAM.а *)
function fscanf(__stream:pfile;fm:pchar;args:array of const):integer;cdecl;external 'c';
(* Read formatted input from stdin.а *)
function scanf(fm:pchar;args:array of const):integer;cdecl;external 'c';
(* Read formatted input from S.а *)
function sscanf(s:pchar;fm:pchar;args:array of const):integer;cdecl;external 'c';
(* Read a character from STREAM.а *)
function fgetc(__stream:pfile):integer;cdecl;external 'c';
function getc(__stream:pfile):integer;cdecl;external 'c';
(* Read a character from stdin.а *)
function getchar:integer;cdecl;external 'c';
(* These are defined in POSIX.1:1996.а *)
function getc_unlocked(__stream:pfile):integer;cdecl;external 'c';
function getchar_unlocked:integer;cdecl;external 'c';
(* Faster version when locking is not necessary.а *)
function fgetc_unlocked(__stream:pfile):integer;cdecl;external 'c';
(* Write a character to STREAM.а *)
function fputc(__c:integer;__stream:pfile):integer;cdecl;external 'c';
function putc(__c:integer;__stream:pfile):integer;cdecl;external 'c';
(* Write a character to stdout.а *)
function putchar(__c:integer):integer;cdecl;external 'c';
(* Faster version when locking is not necessary.а *)
function fputc_unlocked(__c:integer;__stream:pfile):integer;cdecl;external 'c';
(* These are defined in POSIX.1:1996.а *)
function putc_unlocked(__c:integer;__stream:pfile):integer;cdecl;external 'c';
function putchar_unlocked(__c:integer):integer;cdecl;external 'c';
(* Get a word (int) from STREAM.а *)
function getw(__stream:pfile):integer;cdecl;external 'c';
(* Write a word (int) to STREAM.а *)
function putw(__w:integer;__stream:pfile):integer;cdecl;external 'c';
(* Get a newline-terminated string of finite length from STREAM.а *)
function fgets(__s:pchar;__n:integer;__stream:pfile):pchar;cdecl;external 'c';
(* This function does the same as `fgets' but does not lock the stream.а *)
function fgets_unlocked(__s:pchar;__n:integer;__stream:pfile):pchar;cdecl;external 'c';
(* Get a newline-terminated string from stdin, removing the newline.
аа DO NOT USE THIS FUNCTION!!а There is no limit on how much it will read.а *)
function gets(__s:pchar):pchar;cdecl;external 'c';
(* Read up to (and including) a DELIMITER from STREAM into *LINEPTR
аа (and null-terminate it). *LINEPTR is a pointer returned from malloc (or
аа NULL), pointing to *N characters of space.а It is realloc'd as
аа necessary.а Returns the number of characters read (not including the
аа null terminator), or -1 on error or EOF.а *)
function __getdelim(__lineptr:ppchar;__n:plongint;__delimiter:integer;
ааааааааааааааа аааааа __stream:pfile):integer;cdecl;external 'c';
function getdelim(__lineptr:ppchar;__n:plongint;__delimiter:integer;
ааааааааааааааа аааааа __stream:pfile):integer;cdecl;external 'c';
(* Like `getdelim', but reads up to a newline.а *)
function getline(__lineptr:ppchar;__n:plongint;
аааааааааа аааа аааааа __stream:pfile):integer;cdecl;external 'c';
(* Write a string to STREAM.а *)
function fputs(__s:pchar;__stream:pfile):integer;cdecl;external 'c';
(* This function does the same as `fputs' but does not lock the stream.а *)
function fputs_unlocked(__s:pchar;__stream:pfile):integer;cdecl;external 'c';
(* Write a string, followed by a newline, to stdout.а *)
function puts(__s:pchar):integer;cdecl;external 'c';
(* Push a character back onto the input buffer of STREAM.а *)
function ungetc(__c:integer;__stream:pfile):integer;cdecl;external 'c';
(* Read chunks of generic data from STREAM.а *)
function fread(__ptr:pointer;__size, n:longint;
аааааааааа аааа __stream:pfile):longint;cdecl;external 'c';
аааааааааа аааа
(* Write chunks of generic data to STREAM.а *)
function fwrite(__ptr:pointer;__size, n:longint;
аааааааааа аааа __stream:pfile):longint;cdecl;external 'c';
(* Faster versions when locking is not necessary.а *)
function fread_unlocked(__ptr:pointer;__size, n:longint;
аааааааааа аааа __stream:pfile):longint;cdecl;external 'c';
function fwrite_unlocked(__ptr:pointer;__size, n:longint;
аааааааааа аааа __stream:pfile):longint;cdecl;external 'c';
(* Seek to a certain position on STREAM.а *)
function fseek(__stream:pfile;__off:longint;__whence:integer):longint;cdecl;external 'c';
(* Return the current position of STREAM.а *)
function ftell(__stream:pfile):longint;cdecl;external 'c';
(* Rewind to the beginning of STREAM.а *)
procedure rewind(__stream:pfile);cdecl;external 'c';
(* Clear the error and EOF indicators for STREAM.а *)
procedure clearerr(__stream:pfile);cdecl;external 'c';
(* Return the EOF indicator for STREAM.а *)
function feof(__stream:pfile):integer;cdecl;external 'c';
(* Return the error indicator for STREAM.а *)
function ferror(__stream:pfile):integer;cdecl;external 'c';
(* Faster versions when locking is not required.а *)
procedure clearerr_unlocked(__stream:pfile);cdecl;external 'c';
function feof_unlocked(__stream:pfile):integer;cdecl;external 'c';
function ferror_unlocked(__stream:pfile):integer;cdecl;external 'c';
(* Print a message describing the meaning of the value of errno.а *)
procedure perror(__s:pchar);cdecl;external 'c';
(* Return the system file descriptor for STREAM.а *)
function fileno(__stream:pfile):longint;cdecl;external 'c';
(* Faster version when locking is not required.а *)
function fileno_unlocked(__stream:pfile):integer;cdecl;external 'c';
(* Create a new stream connected to a pipe running the given command.а *)
function pipeopen(__command, __modes:pchar):pfile;cdecl;external 'c' name 'popen';
(* Close a stream opened by popen and return the status of its child.а *)
function pipeclose (__stream:pfile):integer;cdecl;external 'c' name 'pclose';
(* Return the name of the controlling terminal.а *)
function ctermid(__s:pchar):pchar;cdecl;external 'c';
(* Return the name of the current user.а *)
function cuserid(__s:pchar):pchar;cdecl;external 'c';
(* Acquire ownership of STREAM.а *)
procedure flockfile(__stream:pfile);cdecl;external 'c';
(* Try to acquire ownership of STREAM but do not block if it is not
аа possible.а *)
function ftrylockfile(__stream:pfile):integer;cdecl;external 'c';
(* Relinquish the ownership granted for STREAM.а *)
procedure funlockfile(__stream:pfile);cdecl;external 'c';
(* ёючфрэшх Їрщыр *)
function fdCreat(PathName:Pchar;mode:longint):longint;cdecl;external 'c' name 'creat';
(* "яхЁхьюЄър" єърчрЄхы эр яхЁтvщ ¤ыхьхэЄ ърЄрыюур *)
procedure rewinddir(dp:pdir);cdecl;external 'c';
(* юцшфрэшх чртхЁ°хэш яЁюЎхёёр *)
function wait(__stat_loc:pinteger):longint;cdecl;external 'c';
(* ЇєэъЎшш фы ёючфрэш эютюую яЁюЎхёёр ё яхЁхьхээvь ўшёыюь ярЁрьхЄЁют *)
function linuxexecl(path:pchar;arg0:pchar;args:array of const):integer;cdecl;external 'c' name 'execl';
function linuxexeclp(filename:pchar;arg0:pchar;args:array of const):integer;cdecl;external 'c' name 'execlp';
(* ЇєэъЎшш фы юяЁхфхыхэш ёюёЄю эш чртхЁ°хэш яЁюЎхёёр *)
function WEXITSTATUS(status:integer):integer;
function WSTOPSIG(status:integer):integer;
function WTERMSIG(status:integer):integer;
function WCOREDUMP(status:integer):boolean;
function WIFEXITED(status:integer):boolean;
function WIFSIGNALED(status:integer):boolean;
function WIFSTOPPED(status:integer):boolean;
(* яЁшюёЄрэртыштрхЄ Єхъє•шщ яЁюЎхёё эр чрфрээюх ъюышўхёЄтю ёхъєэф *)
function sleep(seconds:word):word;cdecl;external 'c';
(* єфры хЄ тёх ёшуэрыv шч эрсюЁр ёшуэрыюта *)
function sigemptyset(__set:psigset_t):integer;cdecl;external 'c';
(* єёЄрэртыштрхЄ тёх ёшуэрыv т эрсюЁх ёшуэрыюта *)
function sigfillset(__set:psigset_t):integer;cdecl;external 'c';
(* фюсрты хЄ ёшуэры SIGNO т эрсюЁ ёшуэрыют *)
function sigaddset(__set:psigset_t;__signo:integer):integer;cdecl;external 'c';
(* єфры хЄ ёшуэры SIGNO шч эрсюЁр ёшуэрыют *)
function sigdelset(__set:psigset_t;__signo:integer):integer;cdecl;external 'c';
(* тючтЁр•рхЄ шёЄшэє, хёыш SIGNO т эрсюЁх, ш ыюц№ т яЁюЄштэюь ёыєўрх *)
function sigismember(__set:psigset_t;__signo:integer):boolean;cdecl;external 'c';
(* тючтЁр•рхЄ шёЄшээюх чэрўхэшх, хёыш эрсюЁ ёшуэрыют эх яєёЄ *)
function sigisemptyset(__set:psigset_t):boolean;cdecl;external 'c';
(* ёючфрхЄ эютvщ эрсюЁ ёшуэрыют шч фтєї тїюфэvї ё яюью•№¦ ыюушўхёъюую "L" *)
function sigandset(__set, __left, __right:psigset_t):integer;cdecl;external 'c';
(* ёючфрхЄ эютvщ эрсюЁ ёшуэрыют шч фтєї тїюфэvї ё яюью•№¦ ыюушўхёъюую "LTL" *)
function sigorset(__set, __left, __right:psigset_t):integer;cdecl;external 'c';
(* эрсюЁ ЇєэъЎшщ фы эхыюъры№эvї яхЁхїюфют *)
(* Store the calling environment in ENV, also saving the signal mask.
аа Return 0.а *)
function setjmp(var __env:jmp_buf):integer;cdecl;external 'c';
(* Store the calling environment in ENV, not saving the signal mask.
аа Return 0.а *)
function _setjmp(var __env:jmp_buf):integer;cdecl;external 'c';
(* Store the calling environment in ENV, also saving the
аа signal mask if SAVEMASK is nonzero.а Return 0.а *)
function sigsetjmp(var __env:jmp_buf;__savemask:longint):integer;cdecl;external 'c' name '__sigsetjmp';
(* Jump to the environment saved in ENV, making the
аа `setjmp' call there return VAL, or 1 if VAL is 0.а *)
procedure longjmp(var __env:jmp_buf;__val:integer);cdecl;external 'c';
(* Jump to the environment saved in ENV, making the
аа sigsetjmp call there return VAL, or 1 if VAL is 0.
аа Restore the signal mask if that sigsetjmp call saved it.
аа This is just an alias `longjmp'.а *)
procedure siglongjmp(var __env:jmp_buf;__val:integer);cdecl;external 'c';
(* fpathconf, pathconf - get configuration values for files *)
function fpathconf(filedes,name:longint):longint;cdecl;external 'c';
function pathconf(path:pchar;name:longint):longint;cdecl;external 'c';
function sysconf(name:integer):longint;cdecl;external 'c';
(* setpgid, getpgid, setpgrp, getpgrp - set/get process group *)
function setpgid(pid, pgid:longint):longint;cdecl;external 'c';
function getpgid(pid:longint):longint;cdecl;external 'c';
function setpgrp:longint;cdecl;external 'c';
function getpgrp:longint;cdecl;external 'c';
function getsid(pid:longint):longint;cdecl;external 'c';
function setsid:longint;cdecl;external 'c';
(* grantpt - grant access to the slave pseudotty*)
function grantpt(fd:longint):longint;cdecl;external 'c';
(* unlockpt - unlock a pseudotty master/slave pair*)
function unlockpt(fd:longint):longint;cdecl;external 'c';
(* ptsname - get the name of the slave pseudotty*)
function ptsname(fd:longint):pchar;cdecl;external 'c';
(* inet_aton() converts the Internet host addressа cpа fromа theа standardааааааааааааааааааааааааааа
аа numbers-and-dotsа notation into binary data and stores it in the structure
аа that inp points to. inet_aton returns nonzero ifа theа addressа isааааааааааааааааааааааааааааааааааааааааа
аа valid, zero if not.*)
function inet_aton(cp:pchar; inp:pin_addr):longint;cdecl;external 'c';
(* Theа inet_addr()а functionа convertsа the Internet host address cp fromааааааа
аа numbers-and-dots notation into binary data in network byteа order.аа Ifаааааааааааааа
аа the input is invalid, INADDR_NONE (usually -1) is returned.а This is anааааааааааааааааааааа
аа obsolete interface to inet_aton, describedа immediatelyа above;а itа isаааааааааааааааааааааааааааа
аа obsolete because -1 is a valid address (255.255.255.255), and inet_atonааааааааааааааааааааааааааааааааааа
аа provides a cleaner way to indicate error return. *)
function inet_addr(cp:pchar):in_addr_t;cdecl;external 'c';
(* The inet_network() function extracts the network numberа inа hostа byte
аа orderа fromа the address cp in numbers-and-dots notation.а If the input
аа is invalid, -1 is returned. *)
function inet_network(cp:pchar):in_addr_t;cdecl;external 'c';
(* The inet_ntoa() function converts the Internet host address in given in
аа networkа byteа order to a string in standard numbers-and-dots notation.
аа The string is returned in a statically allocated buffer,а whichа subse-
аа quent calls will overwrite. *)
function inet_ntoa(n:in_addr):pchar;cdecl;external 'c';
(* Theа inet_makeaddr() function makes an Internet host address in network
аа byte order by combining the network number net with theа localа address
аа host in network net, both in local host byte order. *)
function inet_makeaddr(net, host:longint):in_addr;cdecl;external 'c';
(* Theа inet_lnaof()а functionа returns the local host address part of the
аа Internet address in.а The local host address is returned in localа host
аа byte order. *)
function inet_lnaof(n:in_addr):in_addr_t;cdecl;external 'c';
аааааа
(* The inet_netof() function returns the network number part of the Inter-
аа net Address in.а The network number isа returnedа inа localа hostа byte
аа order. *)
function inet_netof(n:in_addr):in_addr_t;cdecl;external 'c';
ааааааааааа
(* sendto - юЄяЁртшЄ№ ёююс•хэшх т ёюъхЄ.
аа send, sendto, ш sendmsg шёяюы№чє¦Єё фы яхЁхёvыъш ёююс•хэшщ эра фЁєующ
аа ёюъхЄ.ааа sendа ьюцэюа шёяюы№чютрЄ№,а Єюы№ъюа хёыша ёюъхЄа эрїюфшЄё а т
аа ёюхфшэхээюь ёюёЄю эшш, Єюуфр ъръ sendto ш sendmsg ьюцэю шёяюы№чютрЄ№а т
аа ы¦сюх тЁхь . *)
function sendto(sock:longint;var addr;addrlen,flags:longint;
ааааааааааааааа var sato:tsockaddr;tolen:longint):longint;cdecl;external 'c';
ааааааааааааааа
(* recvfrom шёяюы№чєхЄё фы яюыєўхэш ёююс•хэшщ шч ёюъхЄр, ш ьюцхЄ
аа шёяюы№чютрЄ№ё фы яюыєўхэш фрээvї, эхчртшёшью юЄ Єюую, ты хЄё ыш
аа ёюъхЄ юЁшхэЄшЁютрээvь эр ёюхфшэхэш шыш эхЄ. *)
function recvfrom(sock:longint;var addr;addrlen,flags:longint;
ааааааааааааааааа var from:tsockaddr;var fromlen:longint):longint;cdecl;external 'c';
(* character classification routines *)
function isalnum(c:integer):boolean;cdecl;external 'c';
function isalpha(c:integer):boolean;cdecl;external 'c';
function isascii(c:integer):boolean;cdecl;external 'c';
function isblank(c:integer):boolean;cdecl;external 'c';
function iscntrl(c:integer):boolean;cdecl;external 'c';
function isdigit(c:integer):boolean;cdecl;external 'c';
function isgraph(c:integer):boolean;cdecl;external 'c';
function islower(c:integer):boolean;cdecl;external 'c';
function isprint(c:integer):boolean;cdecl;external 'c';
function ispunct(c:integer):boolean;cdecl;external 'c';
function isupper(c:integer):boolean;cdecl;external 'c';
function isxdigit(c:integer):boolean;cdecl;external 'c';
function isspace(c:integer):boolean;
function tolower(c:integer):integer;cdecl;external 'c';
function _tolower(c:integer):integer;cdecl;external 'c';
function toupper(c:integer):integer;cdecl;external 'c';
function _toupper(c:integer):integer;cdecl;external 'c';
function toascii(c:integer):integer;cdecl;external 'c';
(* transform date and time to broken-down time or ASCII *)
(* The ctime(), gmtime() and localtime() functions all take an argument of
аа dataа typeа time_t which represents calendar time.а When interpreted as
аа an absolute time value, it represents theа numberа ofа secondsа elapsed
аа since 00:00:00 on January 1, 1970, Coordinated Universal Time (UTC). *)
function ctime(var t:longint):pchar;cdecl;external 'c';
function ctime_r(var timep:longint;buf:pchar):pchar;cdecl;external 'c';
function gmtime(var timep:longint):ptm;cdecl;external 'c';
function gmtime_r(var timep:longint; result:ptm):ptm;cdecl;external 'c';
function localtime(var timep:longint):ptm;cdecl;external 'c';
function localtime_r(var timep:longint; result:ptm):ptm;cdecl;external 'c';
(* The asctime() and mktime() functions both take an argument representing
аа broken-down time which is a representation separated into year,а month,
аа day, etc. *)
function asctime(const t:ptm):pchar;cdecl;external 'c';
function asctime_r(const t:ptm;buf:pchar):pchar;cdecl;external 'c';
function mktime(t:ptm):longint;cdecl;external 'c';
function difftime(time1, time2:longint):double;cdecl;external 'c';
(* ЇєэъЎшш фы ЁрсюЄv ё ярь Є№¦ *)
function calloc(nmemb, size:longint):pointer;cdecl;external 'c';
function malloc(size:longint):pointer;cdecl;external 'c';
procedure free(ptr:pointer);cdecl;external 'c';
function realloc(ptr:pointer; size:longint):pointer;cdecl;external 'c';
а
(* ЇєэъЎшш фы ЁрсюЄv ё ърЄрыюурьш *)
function mkdir(pathname:pchar;mode:integer):integer;cdecl;external 'c';
function rmdir(pathname:pchar):integer;cdecl;external 'c';
function chdir(path:pchar):integer;cdecl;external 'c';
function getcwd(name:pchar; size:longint):pchar;cdecl;external 'c';
(* ЁрсюЄр ё сєЇхЁрьш *)
procedure sync;cdecl;external 'c';
function fsync(filedes:integer):integer;cdecl;external 'c';
(* тvяюыэхэшх ъюьрэфv shell'р *)
function runshell(__commandline:pchar):longint;cdecl;external 'c' name 'system';
(* єэшўЄюцхэшх тvчтрт°хую яЁюЎхёёр *)
procedure _exit(status:longint);cdecl;external 'c';
(* шчьхэхэшх шыш Ёрё°шЁхэшх юъЁєцхэш *)
function putenv(str:pchar):longint;cdecl;external 'c';
(* ёьхэр ъюЁэхтюую ърЄрыюур *)
function chroot(path:pchar):longint;cdecl;external 'c';
(* єёЄрэютър Ёхры№эvї ш фхщёЄтє¦•шї шфхэЄшЇшърЄюЁют яюы№чютрЄхы ш уЁєяяv *)
function setuid(uid:longint):longint;cdecl;external 'c';
function setgid(gid:longint):longint;cdecl;external 'c';
(* єчэрЄ№ шыш шчьхэшЄ№ юуЁрэшўхэш яЁюЎхёёр *)
function ulimit(cmd:longint;args:array of const):longint;cdecl;external 'c';
(* ртрЁшщэюх чртхЁ°хэшх яЁюЎхёёр *)
function abort:longint;cdecl;external 'c';
(* ¦юыєўшЄ№ ёъюЁюёЄ№ ттюфр *)
function cfgetispeed(var tdes:TermIOS):longint;cdecl;external 'c';
(* ¦юыєўшЄ№ ёъюЁюёЄ№ тvтюфр *)
function cfgetospeed(var tdes:TermIOS):longint;cdecl;external 'c';
(* шёяюы№чєхЄё фы яюёvыъш ёшуэрыр яЁхЁvтрэш ёхрэёр ёт чш *)
Function tcsendbrk(ttyfd, duration:longint):longint;cdecl;external 'c';
(* ЇєэъЎшш фы ЁрсюЄv ё ярь Є№¦ *)
function memset(buf:pointer; character:longint; size:longint):pointer;cdecl;external 'c';
function memcpy(buf1:pointer; const buf2:pointer; size:longint):pointer;cdecl;external 'c';
function memmove(buf1:pointer; const buf2:pointer; size:longint):pointer;cdecl;external 'c';
function memcmp(const buf1, buf2:pointer; size:longint):longint;cdecl;external 'c';
function memchr(const buf:pointer; character:longint; size:longint):pointer;cdecl;external 'c';
(* ЇєэъЎшш фы ЁрсюЄv ёю ёЄЁюърьш *)
function strpbrk(const s1, s2:pchar):pchar;cdecl;external 'c';
function strspn(const s1, s2:pchar):longint;cdecl;external 'c';
function strcspn(const s1, s2:pchar):longint;cdecl;external 'c';
function strtok(s1:pchar; const s2:pchar):pchar;cdecl;external 'c';
function strtol(const str:pchar; endptr:ppchar; base:longint):longint;cdecl;external 'c';
function atoi(const str:pchar):longint;cdecl;external 'c';
function atol(const str:pchar):longint;cdecl;external 'c';
function strtod(const str:pchar; endptr:ppchar):double;cdecl;external 'c';
function atof(const str:pchar):double;cdecl;external 'c';
ааааааааааааааааааааааааааааааааааа
implementation
(* If WIFEXITED(STATUS), the low-order 8 bits of the status.а *)
function WEXITSTATUS(status:integer):integer;
begin
а WEXITSTATUS:=(status and $ff00) shr 8;
end;
(* If WIFSTOPPED(STATUS), the signal that stopped the child.а *)
function WSTOPSIG(status:integer):integer;
begin
а WSTOPSIG:=WEXITSTATUS(status);
end;
(* If WIFSIGNALED(STATUS), the terminating signal.а *)
function WTERMSIG(status:integer):integer;
begin
а WTERMSIG:=status and $7f;
end;
(* Nonzero if STATUS indicates the child dumped core.а *)
function WCOREDUMP(status:integer):boolean;
begin
а WCOREDUMP:=(status and WCOREFLAG) = 0;
end;
(* Nonzero if STATUS indicates normal termination.а *)
function WIFEXITED(status:integer):boolean;
begin
а WIFEXITED:=(status and $7f) = 0;
end;
(* If WIFSIGNALED(STATUS), the terminating signal.а *)
function WIFSIGNALED(status:integer):boolean;
begin
а WIFSIGNALED:=(not WIFSTOPPED(status)) and (not WIFEXITED(status));
end;
(* Nonzero if STATUS indicates the child is stopped.а *)
function WIFSTOPPED(status:integer):boolean;
begin
а WIFSTOPPED:=(status and $ff) = $7f;
end;
(* test on space character: space, CR, LF, Tab, VTab, FF *)
function isspace(c:integer):boolean;
begin
а isspace:=c in [$9,$20,$a,$b,$c,$d];
end;
begin
а stdin:=fdopen(0,'r');
а stdout:=fdopen(1,'w');
end.
Когда работа над книгой подходила
Когда работа над книгой подходила к концу, была выпущена новая версия компилятора Free Pascal, в котором де-юре зафиксирована возможность использования интерфейса системных вызовов не только в ОС семейства Linux/BSD, но и других клонов UNIX. Для того, чтобы скомпилировать компилятором версии 2.0 программы, представленные в книге, следует заменить в них подключаемый модуль linux на oldlinux. Платформенно-независимая функциональность модуля linux разделена между unix, unixtype, baseunix и unixutil. В модуль X86 вынесены части, специфичные для X86-архитектуры.
Для удобства перехода на новую версию компилятора приводим таблицу соответствия модулей в разных версиях компилятора.
а) константы:
Название (1.x) |
Описание |
Название (2.x) |
Модуль |
Maximum number of arguments to a program. |
ARG_MAX |
unix, baseunix, unixtype |
|
Number of bits in a word. |
BITSINWORD |
baseunix |
|
CLONE_FILES |
Clone option: open files shared between processes |
CLONE_FILES |
linux |
CLONE_FS |
Clone option: fs info shared between processes |
CLONE_FS |
linux |
CLONE_PID |
Clone option: PID shared between processes |
CLONE_PID |
linux |
CLONE_SIGHAND |
Clone option: signal handlers shared between processes |
CLONE_SIGHAND |
linux |
CLONE_VM |
Clone option: VM shared between processes |
CLONE_VM |
linux |
CSIGNAL |
Clone option: Signal mask to be sent at exit |
CSIGNAL |
linux |
System error: Argument list too long |
ESysE2BIG |
baseunix |
|
System error: Permission denied |
ESysEACCES |
baseunix |
|
System error: Address already in use |
ESysEADDRINUSE |
baseunix |
|
System error: Cannot assign requested address |
ESysEADDRNOTAVAIL |
baseunix |
|
System error: Advertise error |
ESysEADV |
baseunix |
|
System error: Address family not supported by protocol |
ESysEAFNOSUPPORT |
baseunix |
|
System error: Try again |
ESysEAGAIN |
baseunix |
|
System error: Operation already in progress |
ESysEALREADY |
baseunix |
|
System error: Invalid exchange |
ESysEBADE |
baseunix |
|
System error: Bad file number |
ESysEBADF |
baseunix |
|
System error: File descriptor in bad state |
ESysEBADFD |
baseunix |
|
System error: Not a data message |
ESysEBADMSG |
baseunix |
|
System error: Invalid request descriptor |
ESysEBADR |
baseunix |
|
System error: Invalid request code |
ESysEBADRQC |
baseunix |
|
System error: Invalid slot |
ESysEBADSLT |
baseunix |
|
System error: Bad font file format |
ESysEBFONT |
baseunix |
|
System error: Device or resource busy |
ESysEBUSY |
baseunix |
|
System error: No child processes |
ESysECHILD |
baseunix |
|
System error: Channel number out of range |
ESysECHRNG |
baseunix |
|
System error: Communication error on send |
ESysECOMM |
baseunix |
|
System error: Software caused connection abort |
ESysECONNABORTED |
baseunix |
|
System error: Connection refused |
ESysECONNREFUSED |
baseunix |
|
System error: Connection reset by peer |
ESysECONNRESET |
baseunix |
|
System error: Resource deadlock would occur |
ESysEDEADLK |
baseunix |
|
System error: File locking deadlock error |
ESysEDEADLOCK |
baseunix |
|
System error: Destination address required |
ESysEDESTADDRREQ |
baseunix |
|
System error: Math argument out of domain of func |
ESysEDOM |
baseunix |
|
System error: RFS specific error |
ESysEDOTDOT |
baseunix |
|
System error: Quota exceeded |
ESysEDQUOT |
baseunix |
|
System error: File exists |
ESysEEXIST |
baseunix |
|
System error: Bad address |
ESysEFAULT |
baseunix |
|
System error: File too large |
ESysEFBIG |
baseunix |
|
System error: Host is down |
ESysEHOSTDOWN |
baseunix |
|
System error: No route to host |
ESysEHOSTUNREACH |
baseunix |
|
System error: Identifier removed |
ESysEIDRM |
baseunix |
|
System error: Illegal byte sequence |
ESysEILSEQ |
baseunix |
|
System error: Operation now in progress |
ESysEINPROGRESS |
baseunix |
|
System error: Interrupted system call |
ESysEINTR |
baseunix |
|
System error: Invalid argument |
ESysEINVAL |
baseunix |
|
System error: I/O error |
ESysEIO |
baseunix |
|
System error: Transport endpoint is already connected |
ESysEISCONN |
baseunix |
|
System error: Is a directory |
ESysEISDIR |
baseunix |
|
System error: Is a named type file |
ESysEISNAM |
baseunix |
|
System error: Level 2 halted |
ESysEL2HLT |
baseunix |
|
System error: Level 2 not synchronized |
ESysEL2NSYNC |
baseunix |
|
System error: Level 3 halted |
ESysEL3HLT |
baseunix |
|
System error: Level 3 reset |
ESysEL3RST |
baseunix |
|
System error: Can not access a needed shared library |
ESysELIBACC |
baseunix |
|
System error: Accessing a corrupted shared library |
ESysELIBBAD |
baseunix |
|
System error: Cannot exec a shared library directly |
ESysELIBEXEC |
baseunix |
|
System error: Attempting to link in too many shared libraries |
ESysELIBMAX |
baseunix |
|
System error: .lib section in a.out corrupted |
ESysELIBSCN |
baseunix |
|
System error: Link number out of range |
ESysELNRNG |
baseunix |
|
System error: Too many symbolic links encountered |
ESysELOOP |
baseunix |
|
System error: Too many open files |
ESysEMFILE |
baseunix |
|
System error: Too many links |
ESysEMLINK |
baseunix |
|
System error: Message too long |
ESysEMSGSIZE |
baseunix |
|
System error: Multihop attempted |
ESysEMULTIHOP |
baseunix |
|
System error: File name too long |
ESysENAMETOOLONG |
baseunix |
|
System error: No XENIX semaphores available |
ESysENAVAIL |
baseunix |
|
System error: Network is down |
ESysENETDOWN |
baseunix |
|
System error: Network dropped connection because of reset |
ESysENETRESET |
baseunix |
|
System error: Network is unreachable |
ESysENETUNREACH |
baseunix |
|
System error: File table overflow |
ESysENFILE |
baseunix |
|
System error: No anode |
ESysENOANO |
baseunix |
|
System error: No buffer space available |
ESysENOBUFS |
baseunix |
|
System error: No CSI structure available |
ESysENOCSI |
baseunix |
|
System error: No data available |
ESysENODATA |
baseunix |
|
System error: No such device |
ESysENODEV |
baseunix |
|
System error: No such file or directory |
ESysENOENT |
baseunix |
|
System error: Exec format error |
ESysENOEXEC |
baseunix |
|
System error: No record locks available |
ESysENOLCK |
baseunix |
|
System error: Link has been severed |
ESysENOLINK |
baseunix |
|
System error: Out of memory |
ESysENOMEM |
baseunix |
|
System error: No message of desired type |
ESysENOMSG |
baseunix |
|
System error: Machine is not on the network |
ESysENONET |
baseunix |
|
System error: Package not installed |
ESysENOPKG |
baseunix |
|
System error: Protocol not available |
ESysENOPROTOOPT |
baseunix |
|
System error: No space left on device |
ESysENOSPC |
baseunix |
|
System error: Out of streams resources |
ESysENOSR |
baseunix |
|
System error: Device not a stream |
ESysENOSTR |
baseunix |
|
System error: Function not implemented |
ESysENOSYS |
baseunix |
|
System error: Block device required |
ESysENOTBLK |
baseunix |
|
System error: Transport endpoint is not connected |
ESysENOTCONN |
baseunix |
|
System error: Not a directory |
ESysENOTDIR |
baseunix |
|
System error: Directory not empty |
ESysENOTEMPTY |
baseunix |
|
System error: Not a XENIX named type file |
ESysENOTNAM |
||
System error: Socket operation on non-socket |
ESysENOTSOCK |
baseunix |
|
System error: Not a typewriter |
ESysENOTTY |
baseunix |
|
System error: Name not unique on network |
ESysENOTUNIQ |
baseunix |
|
System error: No such device or address |
ESysENXIO |
baseunix |
|
System error: Operation not supported on transport endpoint |
ESysEOPNOTSUPP |
||
System error: Value too large for defined data type |
ESysEOVERFLOW |
baseunix |
|
System error: Operation not permitted. |
ESysEPERM |
baseunix |
|
System error: Protocol family not supported |
ESysEPFNOSUPPORT |
baseunix |
|
System error: Broken pipe |
ESysEPIPE |
baseunix |
|
System error: Protocol error |
ESysEPROTO |
baseunix |
|
System error: Protocol not supported |
ESysEPROTONOSUPPORT |
baseunix |
|
System error: Protocol wrong type for socket |
ESysEPROTOTYPE |
baseunix |
|
System error: Math result not representable |
ESysERANGE |
baseunix |
|
System error: Remote address changed |
ESysEREMCHG |
baseunix |
|
System error: Object is remote |
ESysEREMOTE |
baseunix |
|
System error: Remote I/O error |
ESysEREMOTEIO |
baseunix |
|
System error: Interrupted system call should be restarted |
ESysERESTART |
baseunix |
|
System error: Read-only file system |
ESysEROFS |
baseunix |
|
System error: Cannot send after transport endpoint shutdown |
ESysESHUTDOWN |
baseunix |
|
System error: Socket type not supported |
ESysESOCKTNOSUPPORT |
baseunix |
|
System error: Illegal seek |
ESysESPIPE |
baseunix |
|
System error: No such process |
ESysESRCH |
baseunix |
|
System error: Srmount error |
ESysESRMNT |
baseunix |
|
System error: Stale NFS file handle |
ESysESTALE |
baseunix |
|
System error: Streams pipe error |
ESysESTRPIPE |
baseunix |
|
System error: Timer expired |
ESysETIME |
baseunix |
|
System error: Connection timed out |
ESysETIMEDOUT |
baseunix |
|
System error: Too many references: cannot splice |
ESysETOOMANYREFS |
baseunix |
|
System error: Text (code segment) file busy |
ESysETXTBSY |
baseunix |
|
System error: Structure needs cleaning |
ESysEUCLEAN |
baseunix |
|
System error: Protocol driver not attached |
ESysEUNATCH |
baseunix |
|
System error: Too many users |
ESysEUSERS |
baseunix |
|
System error: Operation would block |
ESysEWOULDBLOCK |
baseunix |
|
System error: Cross-device link |
ESysEXDEV |
baseunix |
|
System error: Exchange full |
ESysEXFULL |
baseunix |
|
Maximum elements in a TFDSet array. |
FD_MAXFDSET |
baseunix |
|
fs_ext |
File system type (FSStat): (ext) Extended |
fs_ext |
unix |
fs_ext2 |
File system type (FSStat): (ext2) Second extended |
fs_ext2 |
unix |
fs_iso |
File system type (FSStat): ISO 9660 |
fs_iso |
unix |
fs_minix |
File system type (FSStat): Minix |
fs_minix |
unix |
fs_minix_30 |
File system type (FSStat): Minix 3.0 |
fs_minix_30 |
unix |
fs_minux_V2 |
File system type (FSStat): Minix V2 |
fs_minux_V2 |
unix |
fs_msdos |
File system type (FSStat): MSDOS (FAT) |
fs_msdos |
unix |
fs_nfs |
File system type (FSStat): NFS |
fs_nfs |
unix |
fs_old_ext2 |
File system type (FSStat): (ext2) Old second extended |
fs_old_ext2 |
unix |
fs_proc |
File system type (FSStat): PROC fs |
fs_proc |
unix |
fs_xia |
File system type (FSStat): XIA |
fs_xia |
unix |
F_GetFd |
fpFCntl command: Get close-on-exec flag |
F_GetFd |
baseunix |
F_GetFl |
fpFCntl command: Get filedescriptor flags |
F_GetFl |
baseunix |
F_GetLk |
fpFCntl command: Get lock |
F_GetLk |
baseunix |
F_GetOwn |
fpFCntl command: get owner of filedescriptor events |
F_GetOwn |
baseunix |
F_OK |
fpAccess call test: file exists. |
F_OK |
baseunix |
F_SetFd |
fpFCntl command: Set close-on-exec flag |
F_SetFd |
baseunix |
F_SetFl |
fpFCntl command: Set filedescriptor flags |
F_SetFl |
baseunix |
F_SetLk |
fpFCntl command: Set lock |
F_SetLk |
baseunix |
F_SetLkW |
fpFCntl command: Test lock |
F_SetLkW |
baseunix |
F_SetOwn |
FCntl command: Set owner of filedescriptor events F_SetOwn |
baseunix |
|
IOCtl_TCGETS |
IOCTL call number: get Terminal Control settings |
IOCtl_TCGETS |
unix |
Last bit in word. |
ln2bitmask |
baseunix |
|
Power of 2 number of bits in word. |
ln2bitsinword |
baseunix |
|
LOCK_EX |
FLock Exclusive lock |
LOCK_EX |
unix |
LOCK_NB |
FLock Non-blocking operation |
LOCK_NB |
unix |
LOCK_SH |
FLock Shared lock |
LOCK_SH |
unix |
LOCK_UN |
FLock unlock |
LOCK_UN |
unix |
MAP_ANONYMOUS |
fpMMap map type: Don't use a file |
MAP_ANONYMOUS |
baseunix |
MAP_DENYWRITE |
MMap option: Ignored. |
MAP_DENYWRITE |
unix |
MAP_EXECUTABLE |
MMap option: Ignored. |
MAP_EXECUTABLE |
unix |
MAP_FIXED |
MMap map type: Interpret addr exactly |
MAP_FIXED |
unix |
MAP_GROWSDOWN |
MMap option: Memory grows downward (like a stack) |
MAP_GROWSDOWN |
unix |
MAP_LOCKED |
MMap option: lock the pages in memory. |
MAP_LOCKED |
unix |
MAP_NORESERVE |
MMap option: Do not reserve swap pages for this memory. |
MAP_NORESERVE |
unix |
MAP_PRIVATE |
MMap map type: Changes are private |
MAP_PRIVATE |
unix, baseunix |
MAP_SHARED |
MMap map type: Share changes |
MAP_SHARED |
unix |
MAP_TYPE |
MMap map type: Bitmask for type of mapping |
MAP_TYPE |
unix |
MINSIGSTKSZ |
NCC: Number of control characters in termio record. |
||
Maximum filename length. |
NAME_MAX |
unix, unixtype, baseunix |
|
NCCS |
Number of control characters in termios record. |
||
fpOpen file open mode: Append to file |
O_APPEND |
baseunix |
|
fpOpen file open mode: Create if file does not yet exist. |
O_CREAT |
baseunix |
|
fpOpen file open mode: Minimize caching effects |
O_DIRECT |
baseunix |
|
fpOpen file open mode: File must be directory. |
O_DIRECTORY |
baseunix |
|
fpOpen file open mode: Open exclusively |
O_EXCL |
baseunix |
|
fpOpen file open mode: Open for 64-bit I/O |
O_LARGEFILE |
baseunix |
|
fpOpen file open mode: Alias for O_NonBlock |
O_NDELAY |
baseunix |
|
fpOpen file open mode: No TTY control. |
O_NOCTTY |
baseunix |
|
fpOpen file open mode: Fail if file is symbolic link. |
O_NOFOLLOW |
baseunix |
|
fpOpen file open mode: Open in non-blocking mode |
O_NONBLOCK |
baseunix |
|
fpOpen file open mode: Read only |
O_RDONLY |
baseunix |
|
fpOpen file open mode: Read/Write |
O_RDWR |
baseunix |
|
fpOpen file open mode: Write to disc at once |
O_SYNC |
baseunix |
|
fpOpen file open mode: Truncate file to length 0 |
O_TRUNC |
baseunix |
|
fpOpen file open mode: Write only |
O_WRONLY |
baseunix |
|
Open_Accmode |
Bitmask to determine access mode in open flags. |
Open_Accmode |
unix |
Open_Append |
File open mode: Append to file |
Open_Append |
unix |
Open_Creat |
File open mode: Create if file does not yet exist. |
Open_Creat |
unix |
Open_Direct |
File open mode: Minimize caching effects |
Open_Direct |
unix |
Open_Directory |
File open mode: File must be directory. |
Open_Directory |
unix |
Open_Excl |
File open mode: Open exclusively |
Open_Excl |
unix |
Open_LargeFile |
File open mode: Open for 64-bit I/O |
Open_LargeFile |
unix |
Open_NDelay |
File open mode: Alias for Open_NonBlock |
Open_NDelay |
unix |
Open_NoCtty |
File open mode: No TTY control. |
Open_NoCtty |
unix |
Open_NoFollow |
File open mode: Fail if file is symbolic link. |
Open_NoFollow |
unix |
Open_NonBlock |
File open mode: Open in non-blocking mode |
Open_NonBlock |
unix |
Open_RdOnly |
File open mode: Read only |
Open_RdOnly |
unix |
Open_RdWr |
File open mode: Read/Write |
Open_RdWr |
unix |
Open_Sync |
File open mode: Write to disc at once |
Open_Sync |
unix |
Open_Trunc |
File open mode: Truncate file to length 0 |
Open_Trunc |
unix |
Open_WrOnly |
File open mode: Write only |
Open_WrOnly |
unix |
Maximum pathname length. |
PATH_MAX |
unix, unixtype, baseunix |
|
Prio_PGrp |
Get/set process group priority |
Prio_PGrp |
unixtype |
Prio_Process |
Get/Set process priority |
Prio_Process |
unixtype |
Prio_User |
Get/set user priority |
Prio_User |
unixtype |
PROT_EXEC |
FpMMap memory access: page can be executed |
PROT_EXEC |
unix |
PROT_NONE |
FpMMap memory access: page can not be accessed |
PROT_NONE |
unix |
PROT_READ |
FpMMap memory access: page can be read |
PROT_READ |
unix |
PROT_WRITE |
FpMMap memory access: page can be written |
PROT_WRITE |
unix |
P_IN |
Input file descriptor of pipe pair. |
P_IN |
unix |
P_OUT |
Output file descriptor of pipe pair. |
P_OUT |
unix |
R_OK |
fpAccess call test: read allowed |
R_OK |
baseunix |
SA_INTERRUPT |
Sigaction options: ? |
SA_INTERRUPT |
baseunix |
SA_NOCLDSTOP |
Sigaction options: Do not receive notification when child processes stop |
SA_NOCLDSTOP |
baseunix |
Sigaction options: ? |
SA_NOCLDWAIT |
baseunix |
|
SA_NOMASK |
Sigaction options: Do not prevent the signal from being received when it is handled. |
SA_NOMASK |
baseunix |
SA_ONESHOT |
Sigaction options: Restore the signal action to the default state. |
SA_ONESHOT |
baseunix |
SA_ONSTACK |
Socket option |
||
SA_RESTART |
Sigaction options: Provide behaviour compatible with BSD signal semantics |
SA_RESTART |
baseunix |
SA_SHIRQ |
Sigaction options: ? |
SA_SHIRQ |
baseunix |
Sigaction options: The signal handler takes 3 arguments, not one. |
SA_SIGINFO |
baseunix |
|
SA_STACK |
Sigaction options: Call the signal handler on an alternate signal stack. |
SA_STACK |
baseunix |
Seek_Cur |
fpLSeek option: Set position relative to current position. |
Seek_Cur |
baseunix |
Seek_End |
fpLSeek option: Set position relative to end of file. |
Seek_End |
baseunix |
Seek_Set |
fpLSeek option: Set absolute position. |
Seek_Set |
baseunix |
SIGABRT |
Signal: ABRT (Abort) |
SIGABRT |
baseunix |
SIGALRM |
Signal: ALRM (Alarm clock) |
SIGALRM |
baseunix |
SIGBUS |
Signal: BUS (bus error) |
SIGBUS |
baseunix |
SIGCHLD |
Signal: CHLD (child status changed) |
SIGCHLD |
baseunix |
SIGCONT |
Signal: CONT (Continue) |
SIGCONT |
baseunix |
SIGFPE |
Signal: FPE (Floating point error) |
SIGFPE |
baseunix |
SIGHUP |
Signal: HUP (Hangup) |
SIGHUP |
baseunix |
SIGILL |
Signal: ILL (Illegal instruction) |
SIGILL |
baseunix |
SIGINT |
Signal: INT (Interrupt) |
SIGINT |
baseunix |
SIGIO |
Signal: IO (I/O operation possible) |
SIGIO |
baseunix |
SIGIOT |
Signal: IOT (IOT trap) |
SIGIOT |
baseunix |
SIGKILL |
Signal: KILL (unblockable) |
SIGKILL |
baseunix |
SIGPIPE |
Signal: PIPE (Broken pipe |
SIGPIPE |
baseunix |
SIGPOLL |
Signal: POLL (Pollable event) |
SIGPOLL |
baseunix |
SIGPROF |
Signal: PROF (Profiling alarm) |
SIGPROF |
baseunix |
SIGPWR |
Signal: PWR (power failure restart) |
SIGPWR |
baseunix |
SIGQUIT |
Signal: QUIT |
SIGQUIT |
baseunix |
SIGSEGV |
Signal: SEGV (Segmentation violation) |
SIGSEGV |
baseunix |
SIGSTKFLT |
Signal: STKFLT (Stack Fault) |
SIGSTKFLT |
baseunix |
SIGSTKSZ |
Signal Stack size error |
SIGSTKSZ |
baseunix |
SIGSTOP |
Signal: STOP (Stop, unblockable) |
SIGSTOP |
baseunix |
SIGTerm |
Signal: TERM (Terminate) |
SIGTerm |
baseunix |
SIGTRAP |
Signal: TRAP (Trace trap) |
SIGTRAP |
baseunix |
SIGTSTP |
Signal: TSTP (keyboard stop) |
SIGTSTP |
baseunix |
SIGTTIN |
Signal: TTIN (Terminal input, background) |
SIGTTIN |
baseunix |
SIGTTOU |
Signal: TTOU (Terminal output, background) |
SIGTTOU |
baseunix |
SIGUNUSED |
Signal: Unused |
SIGUNUSED |
baseunix |
SIGURG |
Signal: URG (Socket urgent condition) |
SIGURG |
baseunix |
SIGUSR1 |
Signal: USR1 (User-defined signal 1) |
SIGUSR1 |
baseunix |
SIGUSR2 |
Signal: USR2 (User-defined signal 2) |
SIGUSR2 |
baseunix |
SIGVTALRM |
Signal: VTALRM (Virtual alarm clock) |
SIGVTALRM |
baseunix |
SIGWINCH |
Signal: WINCH (Window/Terminal size change) |
SIGWINCH |
baseunix |
SIGXCPU |
Signal: XCPU (CPU limit exceeded) |
SIGXCPU |
baseunix |
SIGXFSZ |
Signal: XFSZ (File size limit exceeded) |
SIGXFSZ |
baseunix |
SIG_BLOCK |
Sigprocmask flags: Add signals to the set of blocked signals. |
SIG_BLOCK |
baseunix |
SIG_DFL |
Signal handler: Default signal handler |
SIG_DFL |
baseunix |
SIG_ERR |
Signal handler: error |
SIG_ERR |
baseunix |
SIG_IGN |
Signal handler: Ignore signal |
SIG_IGN |
baseunix |
Maximum system signal number. |
SIG_MAXSIG |
unix, unixtype, baseunix |
|
SIG_SETMASK |
Sigprocmask flags: Set of blocked signals is given. |
SIG_SETMASK |
baseunix |
SIG_UNBLOCK |
Sigprocmask flags: Remove signals from the set set of blocked signals. |
SIG_UNBLOCK |
baseunix |
SI_PAD_SIZE |
Signal information record pad bytes size. Do not use. |
SI_PAD_SIZE |
baseunix |
SS_DISABLE |
Socket options |
||
SS_ONSTACK |
Socket options |
||
STAT_IFBLK |
File (stat record) mode: Block device |
STAT_IFBLK |
unix |
STAT_IFCHR |
File (stat record) mode: Character device |
STAT_IFCHR |
unix |
STAT_IFDIR |
File (stat record) mode: Directory |
STAT_IFDIR |
unix |
STAT_IFIFO |
File (stat record) mode: FIFO |
STAT_IFIFO |
unix |
STAT_IFLNK |
File (stat record) mode: Link |
STAT_IFLNK |
unix |
STAT_IFMT |
File (stat record) mode: File type bit mask |
STAT_IFMT |
unix |
STAT_IFREG |
File (stat record) mode: Regular file |
STAT_IFREG |
unix |
STAT_IFSOCK |
File (stat record) mode: Socket |
STAT_IFSOCK |
unix |
STAT_IRGRP |
File (stat record) mode: Group read permission |
STAT_IRGRP |
unix |
STAT_IROTH |
File (stat record) mode: Other read permission |
STAT_IROTH |
unix |
STAT_IRUSR |
File (stat record) mode: Owner read permission |
STAT_IRUSR |
unix |
STAT_IRWXG |
File (stat record) mode: Group permission bits mask |
STAT_IRWXG |
unix |
STAT_IRWXO |
File (stat record) mode: Other permission bits mask |
STAT_IRWXO |
unix |
STAT_IRWXU |
File (stat record) mode: Owner permission bits mask |
STAT_IRWXU |
unix |
STAT_ISGID |
File (stat record) mode: GID bit set |
STAT_ISGID |
unix |
STAT_ISUID |
File (stat record) mode: UID bit set |
STAT_ISUID |
unix |
STAT_ISVTX |
File (stat record) mode: Sticky bit set |
STAT_ISVTX |
unix |
STAT_IWGRP |
File (stat record) mode: Group write permission |
STAT_IWGRP |
unix |
STAT_IWOTH |
File (stat record) mode: Other write permission |
STAT_IWOTH |
unix |
STAT_IWUSR |
File (stat record) mode: Owner write permission |
STAT_IWUSR |
unix |
STAT_IXGRP |
File (stat record) mode: Others execute permission |
STAT_IXGRP |
unix |
STAT_IXOTH |
File (stat record) mode: Others execute permission |
STAT_IXOTH |
unix |
STAT_IXUSR |
File (stat record) mode: Others execute permission |
STAT_IXUSR |
unix |
Max system name length. |
SYS_NMLN |
unix, unixtype, baseunix |
|
File mode: Block device |
S_IFBLK |
baseunix |
|
File mode: Character device |
S_IFCHR |
baseunix |
|
File mode: Directory |
S_IFDIR |
baseunix |
|
File mode: FIFO |
S_IFIFO |
baseunix |
|
File mode: Link |
S_IFLNK |
baseunix |
|
File mode: File type bit mask |
S_IFMT |
baseunix |
|
File mode: Regular file |
S_IFREG |
baseunix |
|
File mode: Socket |
S_IFSOCK |
baseunix |
|
Mode flag: Read by group. |
S_IRGRP |
baseunix |
|
Mode flag: Read by others. |
S_IROTH |
baseunix |
|
Mode flag: Read by owner. |
S_IRUSR |
baseunix |
|
Mode flag: Write by group. |
S_IWGRP |
baseunix |
|
Mode flag: Write by others. |
S_IWOTH |
baseunix |
|
Mode flag: Write by owner. |
S_IWUSR |
baseunix |
|
Mode flag: Execute by group. |
S_IXGRP |
baseunix |
|
Mode flag: Execute by others. |
S_IXOTH |
baseunix |
|
Mode flag: Execute by owner. |
S_IXUSR |
baseunix |
|
Max length of utsname domain name. |
UTSNAME_DOMAIN_LENGTH |
baseunix |
|
Max length of utsname system name, release, version, machine. |
UTSNAME_LENGTH |
baseunix |
|
Max length of utsname node name. |
UTSNAME_NODENAME_LENGTH |
baseunix |
|
Wait_Any |
WaitPID: Wait on any process |
Wait_Any |
unix |
Wait_Clone |
WaitPID: Wait on clone processes only. |
Wait_MyPGRP |
unix |
Wait_MyPGRP |
WaitPID: Wait processes from current process group |
Wait_MyPGRP |
unix |
Wait_NoHang |
WaitPID: Do not wait |
Wait_NoHang |
unix |
Wait_UnTraced |
WaitPID: Also report stopped but untraced processes |
Wait_UnTraced |
unix |
WNOHANG |
Waitpid option: Do not wait for processes to terminate. |
WNOHANG |
baseunix |
Number of words in a TFDSet array |
wordsinfdset |
baseunix |
|
Number of words in a signal set. |
wordsinsigset |
baseunix |
|
WUNTRACED |
Waitpid option: Also report children wich were stopped but not yet reported |
WUNTRACED |
baseunix |
W_OK |
fpAccess call test: write allowed |
W_OK |
baseunix |
X_OK |
fpAccess call test: execute allowed |
X_OK |
baseunix |
Mutex options: |
_PTHREAD_MUTEX_ADAPTIVE_NP |
unixtype |
|
Mutex options: |
_PTHREAD_MUTEX_DEFAULT |
unixtype |
|
Mutex options: |
_PTHREAD_MUTEX_ERRORCHECK |
unixtype |
|
Mutex options: double lock returns an error code. |
_PTHREAD_MUTEX_ERRORCHECK_NP |
unixtype |
|
Mutex options: Fast mutex |
_PTHREAD_MUTEX_FAST_NP |
unixtype |
|
Mutex options: |
_PTHREAD_MUTEX_NORMAL |
unixtype |
|
Mutex options: |
_PTHREAD_MUTEX_RECURSIVE |
unixtype |
|
Mutex options: recursive mutex |
_PTHREAD_MUTEX_RECURSIVE_NP |
unixtype |
|
Mutex options: ? |
_PTHREAD_MUTEX_TIMED_NP |
unixtype |
|
__WCLONE |
Waitpid option: Wait for clone children only |
б) типы данных:
Название (1.x) |
Описание |
Название (2.x) |
Модуль |
Block count type. |
Blkcnt_t |
baseunix |
|
Block size type. |
Blksize_t |
baseunix |
|
C type: 8-bit signed integer |
cchar |
unix, baseunix, unixtype |
|
Double precision real format. |
cDouble |
unix, baseunix, unixtype |
|
Floating-point real format |
cFloat |
unix, baseunix, unixtype |
|
C type: integer (natural size) |
cInt |
unix, baseunix, unixtype |
|
C type: 16 bits sized, signed integer. |
cInt16 |
unix, baseunix, unixtype |
|
C type: 32 bits sized, signed integer. |
cInt32 |
unix, baseunix, unixtype |
|
C type: 64 bits sized, signed integer. |
cInt64 |
unix, baseunix, unixtype |
|
C type: 8 bits sized, signed integer. |
cInt8 |
unix, baseunix, unixtype |
|
Long double precision real format (Extended) |
clDouble |
unix, baseunix, unixtype |
|
Clock ticks type |
clock_t |
unix, baseunix, unixtype |
|
C type: long signed integer (double sized) |
cLong |
unix, baseunix, unixtype |
|
C type: 64-bit (double long) signed integer. |
clonglong |
unix, baseunix, unixtype |
|
C type: short signed integer (half sized) |
cshort |
unix, baseunix, unixtype |
|
C type: 8-bit unsigned integer |
cuchar |
unix, baseunix, unixtype |
|
C type: unsigned integer (natural size) |
cUInt |
unix, baseunix, unixtype |
|
C type: 16 bits sized, unsigned integer. |
cUInt16 |
unix, baseunix, unixtype |
|
C type: 32 bits sized, unsigned integer. |
cUInt32 |
unix, baseunix, unixtype |
|
C type: 64 bits sized, unsigned integer. |
cUInt64 |
unix, baseunix, unixtype |
|
C type: 8 bits sized, unsigned integer. |
cUInt8 |
unix, baseunix, unixtype |
|
C type: long unsigned integer (double sized) |
cuLong |
unix, baseunix, unixtype |
|
C type: 64-bit (double long) unsigned integer. |
culonglong |
unix, baseunix, unixtype |
|
Alias for cuint |
cunsigned |
unix, baseunix, unixtype |
|
C type: short unsigned integer (half sized) |
cushort |
unix, baseunix, unixtype |
|
ComStr |
Command-line string type. |
ComStr |
unixutil |
dev_t |
Device descriptor type |
dev_t |
unix, baseunix, unixtype |
Record used in fpOpenDir and fpReadDir calls |
Dir |
baseunix |
|
dirent |
Record used in the fpReadDir function to return files in a directory. |
dirent |
baseunix |
DirStr |
Filename directory part string type. |
DirStr |
unixutil |
ExtStr |
Filename extension part string type. |
ExtStr |
unixutil |
fdSet |
Array containing file descriptor bitmask for the Select call. |
||
Lock description type for fpFCntl lock call. |
FLock |
baseunix |
|
Group ID type. |
gid_t |
unix, baseunix, unixtype |
|
64-bit inode type. |
ino64_t |
baseunix |
|
Inode type. |
ino_t |
unix, baseunix, unixtype |
|
Kernel device type |
kDev_t |
unixtype |
|
Inode mode type. |
mode_t |
unix, baseunix, unixtype |
|
NameStr |
Filename name part string type. |
NameStr |
unixutil |
Number of links type. |
nlink_t |
unix, baseunix, unixtype |
|
64-bit offset type. |
off64_t |
baseunix |
|
Offset type. |
off_t |
unix, baseunix |
|
PathStr |
Filename path part string type. |
PathStr |
unixutil |
pointer to TBlkCnt type. |
PBlkCnt |
baseunix |
|
Pointer to TBlkSize type. |
PBlkSize |
baseunix |
|
Alias for cchar |
pcchar |
unix, baseunix, unixtype |
|
Pointer to cdouble type. |
pcDouble |
unix, baseunix, unixtype |
|
Pointer to cfloat type. |
pcFloat |
unix, baseunix, unixtype |
|
Pointer to cInt type. |
pcInt |
unix, baseunix, unixtype |
|
Pointer to cldouble type. |
pclDouble |
unix, baseunix, unixtype |
|
Pointer to TClock type. |
pClock |
unix, baseunix, unixtype, unixtype |
|
Pointer to cLong type. |
pcLong |
unix, baseunix, unixtype |
|
Pointer to cShort type. |
pcshort |
unix, baseunix, unixtype |
|
Alias for cuchar |
pcuchar |
unix, baseunix, unixtype |
|
Pointer to cUInt type. |
pcUInt |
unix, baseunix, unixtype |
|
Pointer to cuLong type. |
pculong |
unix, baseunix, unixtype |
|
Alias for cunsigned |
pcunsigned |
unix, baseunix, unixtype |
|
Pointer to cuShort type. |
pcushort |
unix, baseunix, unixtype |
|
Pointer to TDev type. |
pDev |
unix, baseunix, unixtype |
|
PDir |
Pointer to TDir record |
PDir |
baseunix |
pdirent |
Pointer to Dirent record. |
pdirent |
baseunix |
pfdset |
Pointer to FDSet array. |
pfdset |
baseunix |
Pointer to TFilDes type. |
pFilDes |
baseunix |
|
pfpstate |
Pointer to tfpstate record. |
pfpstate |
baseunix |
Pointer to TGid type. |
pGid |
unix, baseunix, unixtype |
|
pglob |
Pointer to TGlob record. |
||
Pointer to TGrpArr array. |
pGrpArr |
baseunix |
|
Process ID type. |
pid_t |
unix, baseunix, unixtype |
|
Pointer to TIno type. |
pIno |
unix, baseunix, unixtype |
|
Pointer to TIno64 type. |
pIno64 |
baseunix |
|
Pointer to TkDev type. |
pkDev |
unixtype |
|
Pointer to TMode type. |
pMode |
unix, baseunix, unixtype |
|
Pointer to TnLink type. |
pnLink |
unix, baseunix, unixtype |
|
Pointer to TOff type. |
pOff |
unix, baseunix, unixtype |
|
Pointer to TOff64 type. |
pOff64 |
baseunix |
|
Pointer to TPid type. |
pPid |
unix, baseunix, unixtype |
|
PSigActionRec |
Pointer to SigActionRec record. |
PSigActionRec |
baseunix |
PSigAltStack |
Pointer to SigAltStack record |
||
Pointer to TSigContext record |
PSigContext |
baseunix |
|
PSigContextRec |
Pointer to SigContextRec record |
||
Pointer to TSigInfo record type. |
psiginfo |
baseunix |
|
PSignalHandler |
Pointer to SignalHandler type. |
PSignalHandler |
baseunix |
PSignalRestorer |
Pointer to SignalRestorer type |
PSignalRestorer |
baseunix |
PSigSet |
Pointer to signal set. |
PSigSet |
baseunix |
Pointer to sigset_t type. |
psigset_t |
baseunix |
|
Pointer to TSize type. |
pSize |
unix, baseunix, unixtype |
|
Pointer to size_t type. |
psize_t |
unixtype |
|
Pointer to TSockLen type. |
pSocklen |
unix, baseunix, unixtype |
|
Pointer to TsSize type |
psSize |
unix, baseunix, unixtype |
|
pstack_t |
Pointer to stack_t record |
||
PStat |
Pointer to Stat record. |
PStat |
baseunix |
PStatFS |
Pointer to StatFS record. |
PStatFS |
unixtype |
PSysCallRegs |
Pointer to SysCallRegs record. |
||
PSysInfo |
Pointer to TSysInfo record. |
PSysInfo |
linux |
Thread attributes record. Opaque. |
pthread_attr_t |
unixtype |
|
Conditional variable attributes type (opaque). |
pthread_condattr_t |
unixtype |
|
Thread conditional variable type. |
pthread_cond_t |
unix, baseunix, unixtype |
|
Thread local storage key (opaque) |
pthread_key_t |
unixtype |
|
Mutex attributes type (opaque). |
pthread_mutexattr_t |
unixtype |
|
Thread mutex type. |
pthread_mutex_t |
unix, baseunix, unixtype |
|
Thread mutex type (opaque). |
pthread_mutex_t |
unixtype |
|
R/W lock attributes (opaque). |
pthread_rwlockattr_t |
unixtype |
|
Read/Write lock type (opaque) |
pthread_rwlock_t |
unixtype |
|
Posix thread type. |
pthread_t |
unix, baseunix, unixtype |
|
Pointer to TTime type. |
pTime |
unix, baseunix, unixtype |
|
Pointer to timespec type. |
ptimespec |
unix, baseunix, unixtype |
|
ptimeval |
Pointer to TTimeVal record |
ptimeval |
unix, baseunix, unixtype |
ptimezone |
Pointer to TimeZone record. |
ptimezone |
baseunix |
Pointer to time_t type. |
ptime_t |
unix, baseunix, unixtype |
|
Pointer to TTms type. |
PTms |
baseunix |
|
Pointer to TUid type. |
pUid |
unix, baseunix, unixtype |
|
PUTimeBuf |
Pointer to TUTimeBuf record |
PUTimeBuf |
baseunix |
PUTSName |
Pointer to TUTSName record. |
PUTSName |
baseunix |
Pointer to wchar_t type. |
pwchar_t |
unixtype |
|
Scheduling parameter description record. |
sched_param |
unixtype |
|
Semaphore type. (opaque) |
sem_t |
unixtype |
|
Callback prototype for a SigActionRec record. |
SigActionHandler |
baseunix |
|
SigActionRec |
Record used in fpSigAction call. |
SigActionRec |
baseunix |
SigAltStack |
Alternate stack registers record |
||
SigContextRec |
Record describing the context of the program when it receives a signal |
||
SignalHandler |
Function prototype for the Signal call. |
SignalHandler |
baseunix |
SignalRestorer |
Signal restorer function prototype |
SignalRestorer |
baseunix |
SigSet |
Signal set type |
SigSet |
baseunix |
Signal set type |
sigset_t |
baseunix |
|
Size_T |
Size type |
Size_T |
unix, baseunix, unixtype |
Socket address length type. |
socklen_t |
unix, baseunix, unixtype |
|
Small size type. |
ssize_t |
unix, baseunix, unixtype |
|
stack_t |
Alias for SigAltStack type |
||
Stat |
Record describing an inode (file) in the pffstat call. |
Stat |
baseunix |
Statfs |
Record describing a file system in the fsstat call. |
||
SysCallRegs |
Register describing system calls. |
||
Alias for Blkcnt_t type. |
TBlkCnt |
baseunix |
|
Alias for blksize_t type. |
TBlkSize |
baseunix |
|
Alias for clock_t type. |
TClock |
unix, baseunix, unixtype |
|
TCloneFunc |
Clone function prototype. |
TCloneFunc |
linux |
Alias for dev_t type. |
TDev |
unix, baseunix, unixtype |
|
TDir |
Record used in OpenDir and ReadDir calls |
TDir |
baseunix |
TDirEnt |
Alias for DirEnt record |
TDirEnt |
baseunix |
Termio |
Terminal I/O description record (small) |
||
Termios |
Terminal I/O description record |
||
TFDSet |
Alias for FDSet type. |
TFDSet |
baseunix |
Array of file descriptors as used in fpPipe call. |
TFilDes |
baseunix |
|
tfpreg |
Record describing floating point register in signal handler. |
tfpreg |
baseunix |
tfpstate |
Record describing floating point unit in signal handler. |
tfpstate |
baseunix |
Describes the search strategy used by FSearch |
TFSearchOption |
unix |
|
Alias for gid_t type. |
TGid |
unix, baseunix, unixtype |
|
Array of gid_t IDs |
TGrpArr |
baseunix |
|
tglob |
Record containing one entry in the result of Glob |
||
timespec |
Time interval for the NanoSleep function. |
timespec |
unix, baseunix, unixtype |
timeval |
Record specifying a time inteval. |
timeval |
unix, baseunix, unixtype |
timezone |
Record describing a timezone |
timezone |
baseunix |
Time span type |
time_t |
unix, baseunix, unixtype |
|
tmmapargs |
Record containing mmap args. |
||
Alias for ino_t type. |
TIno |
unix, baseunix, unixtype |
|
Alias for ino64_t type. |
TIno64 |
baseunix |
|
Alias for kDev_t type. |
TkDev |
unixtype |
|
Alias for mode_t type. |
TMode |
unix, baseunix, unixtype |
|
Record containing timings for fpTimes call. |
tms |
baseunix |
|
Alias for nlink_t type. |
TnLink |
unix, baseunix, unixtype |
|
Alias for off_t type. |
TOff |
unix, baseunix, unixtype |
|
Alias for off64_t type. |
TOff64 |
baseunix |
|
Alias for pid_t type. |
TPid |
unix, baseunix, unixtype |
|
Tpipe |
Array describing a pipe pair of filedescriptors. |
Tpipe |
unix |
TSigAction |
Function prototype for SigAction call. |
||
Alias for SigActionRec record type. |
TSigActionRec |
baseunix |
|
Record describing the CPU context when a signal occurs. |
TSigContext |
baseunix |
|
Record describing the signal when a signal occurs. |
tsiginfo |
baseunix |
|
Alias for SigSet type. |
TSigSet |
baseunix |
|
Alias for size_t type |
TSize |
unix, baseunix, unixtype |
|
Alias for socklen_t type. |
TSocklen |
unix, baseunix, unixtype |
|
Alias for ssize_t type |
TsSize |
unix, baseunix, unixtype |
|
TStat |
Alias for Stat record. |
TStat |
baseunix |
TStatFS |
Alias for StatFS type. |
TStatFS |
unix, baseunix, unixtype |
TSysCallRegs |
Alias for SysCallRegs record |
||
TSysinfo |
Record with system information, used by the SysInfo call. |
TSysinfo |
linux |
TTermio |
Alias for TermIO record |
||
TTermios |
Alias for Termios record. |
||
Alias for TTime type. |
TTime |
unix, baseunix, unixtype |
|
Alias for TimeSpec type. |
Ttimespec |
unix, baseunix, unixtype |
|
TTimeVal |
Alias for TimeVal record. |
TTimeVal |
unix, baseunix, unixtype |
TTimeZone |
Alias for TimeZone record. |
TTimeZone |
baseunix |
Alias for Tms record type. |
TTms |
baseunix |
|
Alias for uid_t type. |
TUid |
unix, baseunix, unixtype |
|
TUTimeBuf |
Alias for UTimBuf record. |
TUTimeBuf |
baseunix |
TUTSName |
Alias for UTSName record. |
TUTSName |
baseunix |
TWinSize |
Alias for WinSize record. |
||
User ID type |
uid_t |
unix, baseunix, unixtype |
|
UTimBuf |
Record used in Utime to set file access and modificaton times. |
UTimBuf |
baseunix |
UTimeBuf |
Alias for UTimBuf record. |
||
utsname |
Record used to return kernel information in UName function. |
utsname |
baseunix |
Wide character type. |
wchar_t |
unixtype |
|
Wide character size type. |
wint_t |
unixtype |
|
winsize |
Record describing terminal window size. |
||
Fast lock (mutex) type (opaque). |
_pthread_fastlock |
unixtype |
в) процедуры и функции:
Название (1.x) |
Описание |
Название (2.x) |
Модуль |
Access |
Check file access |
fpAccess |
baseunix |
Alarm |
Schedule an alarm signal to be delivered |
fpAlarm |
baseunix |
Concert an array of string to an array of null-terminated strings |
ArrayStringToPPchar |
unixutil |
|
AssignPipe |
Create a set of pipe file handlers |
AssignPipe |
unix |
AssignStream |
Assign stream for in and output to a program |
AssignStream |
unix |
Basename |
Return basename of a file |
Basename |
unixutil |
CFMakeRaw |
Sets flags in Termios record. |
||
CFSetISpeed |
Set input baud rate in Termios record |
||
CFSetOSpeed |
Set output baud rate in Termios record |
||
Chmod |
Change file permission bits |
fpChmod |
baseunix |
Chown |
Change owner of file |
fpChown |
baseunix |
Clone |
Clone current process (create new thread) |
Clone |
linux |
CloseDir |
Close directory file descriptor |
fpCloseDir |
baseunix |
CreateShellArgV |
Create an array of null-terminated strings |
||
Dirname |
Extract directory part from filename |
Dirname |
unixutil |
Dup |
Duplicate a file handle |
fpDup |
baseunix |
Dup2 |
Duplicate one filehandle to another |
fpDup2 |
baseunix |
EpochToLocal |
Convert epoch time to local time |
EpochToLocal |
unixutil |
Execl |
Execute process (using argument list) |
FpExecL |
unix |
Execle |
Execute process (using argument list, environment) |
FpExecLE |
unix |
Execlp |
Execute process (using argument list, environment; search path) |
FpExecLP |
unix |
Execv |
Execute process |
FpExecV |
unix, baseunix |
Execve |
Execute process using environment |
fpExecve |
baseunix |
Execvp |
Execute process, search path |
FpExecVP |
unix |
Execute process, search path using environment |
FpExecVPE |
unix |
|
ExitProcess |
Exit the current process |
fpExit |
baseunix |
Fcntl |
File control operations. |
fpFcntl |
baseunix |
fdClose |
Close file descriptor |
fpClose |
baseunix |
fdFlush |
Flush kernel file buffer |
||
fdOpen |
Open file and return file descriptor |
fpOpen |
baseunix |
fdRead |
Read data from file descriptor |
fpRead |
baseunix |
fdSeek |
Set file pointer position. |
FpLseek |
baseunix |
fdTruncate |
Truncate file on certain size. |
FpFtruncate |
baseunix |
fdWrite |
Write data to file descriptor |
fpWrite |
baseunix |
FD_Clr |
Clears a filedescriptor in a set |
fpFD_Clr |
baseunix |
FD_IsSet |
Check whether a filedescriptor is set |
fpFD_IsSet |
baseunix |
FD_Set |
Set a filedescriptor in a set |
fpFD_Set |
baseunix |
FD_Zero |
Clear all file descriptors in set |
fpFD_Zero |
baseunix |
FExpand |
Expand filename to fully qualified path |
||
Flock |
Lock a file (advisory lock) |
fpFlock |
unix |
FNMatch |
Check whether filename matches wildcard specification |
FNMatch |
unixutil |
Fork |
Create child process |
fpFork |
baseunix |
Change current working directory. |
FpChdir |
baseunix |
|
Set all filedescriptors in the set. |
fpfdfillset |
baseunix |
|
Retrieve the current working directory. |
FpGetcwd |
baseunix |
|
Retrieve extended error information. |
fpgeterrno |
baseunix |
|
Get the list of supplementary groups. |
FpGetgroups |
baseunix |
|
Get process group ID |
FpGetpgrp |
baseunix |
|
Create a new directory |
FpMkdir |
baseunix |
|
Create a set of pipe file handlers |
FpPipe |
baseunix |
|
Rename file |
FpRename |
baseunix |
|
Remove a directory. |
FpRmdir |
baseunix |
|
Set extended error information. |
fpseterrno |
baseunix |
|
Set the current group ID |
FpSetgid |
baseunix |
|
Create a new session |
FpSetsid |
baseunix |
|
Set kernel time |
fpsettimeofday |
baseunix |
|
Set the current user ID |
FpSetuid |
baseunix |
|
Set a signal in a signal set. |
FpSigAddSet |
baseunix |
|
Remove a signal from a signal set. |
FpSigDelSet |
baseunix |
|
Clear all signals from signal set. |
FpsigEmptySet |
baseunix |
|
Set all signals in signal set. |
FpSigFillSet |
baseunix |
|
Check whether a signal appears in a signal set. |
FpSigIsMember |
baseunix |
|
Suspend process for several seconds |
FpSleep |
baseunix |
|
Retrieve file information about a file descriptor. |
FpStat |
baseunix |
|
Return execution times for the current process |
FpTimes |
baseunix |
|
Wait for a child to exit. |
FpWait |
baseunix |
|
FReName |
Rename file |
||
FSearch |
Search for file in search path. |
FSearch |
unix |
FSplit |
Split filename into path, name and extension |
FSplit |
unixutil |
FSStat |
Retrieve filesystem information. |
||
FStat |
Retrieve information about a file |
fpFStat |
baseunix |
Retrieve filesystem information from a file descriptor. |
fStatFS |
unix |
|
Synchronize file's kernel data with disk. |
fsync |
unix |
|
GetDate |
Return the system date |
||
GetDateTime |
Return system date and time |
||
GetDomainName |
Return current domain name |
GetDomainName |
unix |
GetEGid |
Return effective group ID |
fpGetEGid |
baseunix |
GetEnv |
Return value of environment variable. |
fpGetEnv |
baseunix |
GetEpochTime |
Return the current unix time |
fptime |
baseunix |
GetEUid |
Return effective user ID |
fpGetEUid |
baseunix |
GetFS |
Return file selector |
GetFS |
unixutil |
GetGid |
Return real group ID |
fpGetGid |
baseunix |
GetHostName |
Return host name |
GetHostName |
unix |
GetLocalTimezone |
Return local timzeone information |
GetLocalTimezone |
unix |
GetPid |
Return current process ID |
fpGetPid |
baseunix |
GetPPid |
Return parent process ID |
fpGetPPid |
baseunix |
GetPriority |
Return process priority |
fpGetPriority |
baseunix |
GetTime |
Return current system time |
||
GetTimeOfDay |
Return kernel time of day in GMT |
fpGetTimeOfDay |
unix |
GetTimezoneFile |
Return name of timezone information file |
GetTimezoneFile |
unix |
GetUid |
Return current user ID |
fpGetUid |
baseunix |
Glob |
Find filenames matching a wildcard pattern |
||
Globfree |
Free result of Glob call |
||
Converts a gregorian date to a julian date |
GregorianToJulian |
unixutil |
|
Converts a julian date to a gregorian date |
JulianToGregorian |
unixutil |
|
IOCtl |
General kernel IOCTL call. |
fpIOCtl |
baseunix |
IOperm |
Set permission on IO ports |
fpIOperm |
x86 |
IoPL |
Set I/O privilege level |
fpIoPL |
x86 |
IsATTY |
Check if filehandle is a TTY (terminal) |
||
Kill |
Send a signal to a process |
fpKill |
baseunix |
Link |
Create a hard link to a file |
fpLink |
baseunix |
LocalToEpoch |
Convert local time to epoch (unix) time |
LocalToEpoch |
unixutil |
Lstat |
Return information about symbolic link. Do not follow the link |
fpLstat |
baseunix |
mkFifo |
Create FIFO (named pipe) in file system |
fpmkFifo |
baseunix |
MMap |
Create memory map of a file |
fpMMap |
baseunix |
MUnMap |
Unmap previously mapped memory block |
fpMUnMap |
baseunix |
NanoSleep |
Suspend process for a short time |
fpNanoSleep |
baseunix |
Nice |
Set process priority |
fpNice |
baseunix |
Octal |
Convert octal to decimal value |
||
OpenDir |
Open directory for reading |
fpOpenDir |
baseunix |
Pause |
Wait for a signal |
fpPause |
baseunix |
PClose |
Close file opened with POpen |
PClose |
unix |
POpen |
Pipe file to standard input/output of program |
POpen |
unix |
ReadDir |
Read entry from directory |
fpReadDir |
baseunix |
ReadLink |
Read destination of symbolic link |
ReadLink |
baseunix |
Read data from a PC port |
ReadPort |
x86 |
|
Read bytes from a PC port |
ReadPortB |
x86 |
|
Read longints from a PC port |
ReadPortL |
x86 |
|
Read Words from a PC port |
ReadPortW |
x86 |
|
ReadTimezoneFile |
Read the timezone file and initialize time routines |
ReadTimezoneFile |
unix |
SeekDir |
Seek to position in directory |
SeekDir |
unix |
Select |
Wait for events on file descriptors |
fpSelect |
baseunix |
SelectText |
Wait for event on typed ontyped file. |
SelectText |
unix |
SetDate |
Set the current system date. |
||
SetDateTime |
Set the current system date and time |
||
SetPriority |
Set process priority |
fpSetPriority |
baseunix |
SetTime |
Set the current system time. |
||
Shell |
Execute and feed command to system shell |
Shell |
unix |
SigAction |
Install signal handler |
fpSigAction |
baseunix |
Signal |
Install signal handler (deprecated) |
fpSignal |
baseunix |
SigPending |
Return set of currently pending signals |
fpSigPending |
baseunix |
SigProcMask |
Set list of blocked signals |
fpSigProcMask |
baseunix |
SigRaise |
Raise a signal (send to current process) |
SigRaise |
unix |
SigSuspend |
Set signal mask and suspend process till signal is received |
fpSigSuspend |
baseunix |
Retrieve filesystem information from a path. |
StatFS |
unix |
|
StringToPPChar |
Split string in list of null-terminated strings |
StringToPPChar |
unixutil |
SymLink |
Create a symbolic link |
fpSymLink |
baseunix |
SysCall |
Execute system call. |
||
Sysinfo |
Return kernel system information |
Sysinfo |
linux |
Execute and feed command to system shell |
fpSystem |
unix |
|
S_ISBLK |
Is file a block device |
fpS_ISBLK |
baseunix |
S_ISCHR |
Is file a character device |
fpS_ISCHR |
baseunix |
S_ISDIR |
Is file a directory |
fpS_ISDIR |
baseunix |
S_ISFIFO |
Is file a FIFO |
fpS_ISFIFO |
baseunix |
S_ISLNK |
Is file a symbolic link |
fpS_ISLNK |
baseunix |
S_ISREG |
Is file a regular file |
fpS_ISREG |
baseunix |
S_ISSOCK |
Is file a unix socket |
fpS_ISSOCK |
baseunix |
TCDrain |
Terminal control: Wait till all data was transmitted |
||
TCFlow |
Terminal control: Suspend transmission of data |
||
TCFlush |
Terminal control: Discard data buffer |
||
TCGetAttr |
Terminal Control: Get terminal attributes |
||
TCGetPGrp |
Terminal control: Get process group |
||
TCSendBreak |
Terminal control: Send break |
||
TCSetAttr |
Terminal control: Set attributes |
||
TCSetPGrp |
Terminal control: Set process group |
||
TellDir |
Return current location in a directory |
TellDir |
unix |
TTYname |
Terminal control: Get terminal name |
||
Umask |
Set file creation mask. |
fpUmask |
baseunix |
Uname |
Return system name. |
fpUname |
baseunix |
UnLink |
Unlink (i.e. remove) a file. |
fpUnLink |
baseunix |
Utime |
Set access and modification times of a file (touch). |
Utime |
baseunix |
WaitPid |
Wait for a process to terminate |
fpWaitPid |
baseunix |
WaitProcess |
Wait for process to terminate. |
WaitProcess |
unix |
WEXITSTATUS |
Extract the exit status from the WaitPID result. |
WEXITSTATUS |
baseunix |
WIFEXITED |
Check whether the process exited normally |
WIFEXITED |
baseunix |
WIFSIGNALED |
Check whether the process was exited by a signal. |
WIFSIGNALED |
baseunix |
WIFSTOPPED |
Check whether the process is currently stopped. |
WIFSTOPPED |
unix |
Write data to PC port |
WritePort |
x86 |
|
Write byte to PC port |
WritePortB |
x86 |
|
Write longint to PC port. |
WritePortl |
x86 |
|
Write Word to PC port |
WritePortW |
x86 |
|
WSTOPSIG |
Return the exit code from the process. |
WSTOPSIG |
baseunix |
WTERMSIG |
Return the signal that caused a process to exit. |
WTERMSIG |
baseunix |
W_EXITCODE |
Construct an exit status based on an return code and signal. |
W_EXITCODE |
unix |
W_STOPCODE |
Construct an exit status based on a signal. |
W_STOPCODE |
unix |
г) переменные:
Название (1.x) |
Описание |
Название (2.x) |
Модуль |
ErrNo |
Error number of last operation. |
||
LinuxError |
Last operating system error |
||
tzdaylight |
Indicates whether daylight savings time is active. |
tzdaylight |
unix |
tzname |
Timezone name. |
tzname |
unix |
tzseconds |
Seconds west of GMT |
tzseconds |
unixutil, unix |
Пример аккуратный выход
Предположим, что программа использует временный рабочий файл. Следующая простая процедура удаляет файл:
(* Аккуратный выход из программы *)
uses linux;
procedure g_exit(s:integer);cdecl;
begin
unlink ('tempfile');
writeln (stderr, 'Прерывание - выход из программы');
halt(1);
end;
Можно связать эту процедуру с определенным сигналом:
var
act:sigactionrec;
.
.
act.handler.sh := @g_exit;
sigaction (SIGINT, @act, nil);
Если после этого вызова пользователь нажмет клавишу прерывания, то управление будет автоматически передано процедуре g_exit. Можно дополнить процедуру g_exit другими необходимыми для завершения операциями.
Пример copyfile
Теперь можем закрепить материал на практике. Задача состоит в написании функции copyfile, которая будет копировать содержимое одного файла в другой. Возвращаемое значение должно быть равно нулю в случае успеха или отрицательному числу – в случае ошибки.
Основная логика действий понятна: открыть первый файл, затем создать второй и выполнять чтение из первого файла и запись во второй до тех пор, пока не будет достигнут конец первого файла. И, наконец, закрыть оба файла.
Окончательное решение может выглядеть таким образом:
(* Программа copyfile: скопировать файл name1 в файл name2 *)
uses linux;
const
BUFSIZE=512; (* Размер считываемого блока *)
PERM=0644; (* Права доступа для нового файла в форме,
похожей на восьмеричную *)
(* Скопировать файл name1 в файл name2 *)
function copyfile(name1, name2: string):integer;
var
infile, outfile: integer; (*дескрипторы файлов*)
nread: longint;
buffer: array [0..BUFSIZE-1] of byte; (*буфер для чтения/записи*)
begin
infile := fdopen (name1, Open_RDONLY);
if infile=-1 then
begin
copyfile:=-1; (*ошибка открытия первого файла*)
exit;
end;
outfile := fdopen (name2, Open_WRONLY or Open_CREAT or Open_TRUNC, octal(PERM));
if outfile=-1 then
begin
fdclose(infile);
copyfile:=-2; (*ошибка открытия второго файла*)
exit;
end;
(* Чтение из файла name1 по BUFSIZE символов *)
nread := fdread (infile, buffer, BUFSIZE);
while nread > 0 do
begin
(* Записать buffer в выходной файл. *)
if fdwrite (outfile, buffer, nread) < nread then
begin
fdclose (infile);
fdclose (outfile);
copyfile:=-3; (* ошибка записи *)
exit;
end;
nread := fdread (infile, buffer, BUFSIZE);
end;
(*закрываем прочитанные файлы*)
fdclose (infile);
fdclose (outfile);
if (nread = -1) then
copyfile := -4 (* ошибка при последнем чтении *)
else
copyfile := 0; (* все порядке *)
end;
(* Программа для тестирования функции copyfile *)
var
retcode:integer;
begin
if paramcount<2 then
begin
writeln('Используйте: ',paramstr(0),' файл-источник файл-приемник');
exit;
end;
retcode := copyfile(paramstr(1), paramstr(2));
case retcode of
0: writeln('Файл ',paramstr(1),' успешно скопирован в файл ',paramstr(2));
-1: writeln('Ошибка открытия файла ',paramstr(1),' для чтения');
-2: writeln('Ошибка открытия файла ',paramstr(2),' для записи');
-3: writeln('Ошибка записи в файл ',paramstr(2));
-4: writeln('Ошибка чтения из файла ',paramstr(1));
end;
end.
Теперь функцию copyfile можно вызывать так:
retcode := copyfile('squarepeg', 'roundhole');
Упражнение 2.6. Измените функцию copyfile так, чтобы в качестве ее параметров могли выступать дескрипторы, а не имена файлов. Проверьте работу новой версии программы.
Упражнение 2.7. Если вы умеете работать с аргументами командной строки, используйте одну из процедур copyfile для создания программы mycp, копирующей первый заданный в командной строке файл во второй.
Пример docommand
Модуль stdio предоставляет библиотечную процедуру runshell, которая позволяет выполнить в программе команду оболочки. Для примера создадим упрощенную версию этой процедуры docommand, используя вызовы fork и ехес. В качестве посредника вызовем стандартную оболочку (заданную именем /bin/sh), а не будем пытаться выполнять программу напрямую. Это позволит программе docommand воспользоваться преимуществами, предоставляемыми оболочкой, например, раскрытием шаблонов имен файлов. Задание параметра -с
вызова оболочки определяет, что команды передаются не со стандартного ввода, а берутся из следующего строчного аргумента.
(* Программа docommand -- запуск команды оболочки, первая версия *)
uses linux,stdio;
function docommand(command:pchar):integer;
var
pid:longint;
begin
pid := fork;
if pid < 0 then
begin
docommand:=-1;
exit;
end;
if pid = 0 then (* дочерний процесс *)
begin
linuxexecl('/bin/sh', 'sh', ['-c', command, nil]);
perror ('execl');
halt(1);
end;
(* Код родительского процесса *)
(* Ожидание возврата из дочернего процесса *)
wait(nil);
docommand:=0;
end;
begin
docommand('ls -l | wc -l');
end.
Следует сказать, что это только первое приближение к настоящей библиотечной процедуре runshell. Например, если конечный пользователь программы нажмет клавишу прерывания во время выполнения команды оболочки, то и вызывающая программа, и команда остановятся. Существуют способы обойти это ограничение, которые будут рассмотрены в следующей главе.
Пример: гостиница
В качестве несколько надуманного, но возможно наглядного примера, предположим, что имеется файл residents, в котором записаны фамилии постояльцев гостиницы. Первая строка содержит фамилию жильца комнаты 1, вторая – жильца комнаты 2 и т.д. (очевидно, это гостиница с прекрасно организованной системой нумерации комнат). Длина каждой строки составляет ровно 41 символ, в первые 40 из которых записана фамилия жильца, а 41-й символ является символом перевода строки для того, чтобы файл можно было вывести на дисплей при помощи команды UNIX cat.
Следующая функция getoccupier вычисляет по заданному целому номеру комнаты положение первого байта фамилии жильца, затем перемещается в эту позицию и считывает данные. Она возвращает либо указатель на строку с фамилией жильца, либо нулевой указатель в случае ошибки (мы будем использовать для этого значение nil). Обратите внимание, что мы присвоили переменной дескриптора файла infile исходное значение –1. Благодаря этому мы можем гарантировать, что файл будет открыт всего один раз.
(* Функция getoccupier - получить фамилию из файла residents *)
uses linux;
const
NAMELENGTH=41;
var
namebuf:array [0..NAMELENGTH-1] of char; (* Буфер для фамилии *)
const
infile:integer=-1; (* Для хранения дескриптора файла *)
function getoccupier(roomno:integer):pchar;
var
offset, nread:longint;
begin
(* Убедиться, что файл открывается впервые *)
if infile = -1 then
begin
infile := fdopen ('residents', Open_RDWR);
if infile = -1 then
begin
getoccupier := nil; (* Невозможно открыть файл *)
exit;
end;
end;
offset := (roomno - 1) * NAMELENGTH;
(* Найти поле комнаты и считать фамилию жильца *)
if fdseek (infile, offset, SEEK_SET) = -1 then
begin
getoccupier := nil;
exit;
end;
nread := fdread (infile, namebuf, NAMELENGTH);
if nread <= 0 then
begin
getoccupier := nil;
exit;
end;
(* Создать строку, заменив символ перевода строки на '\0' *)
namebuf[nread - 1] := #0;
getoccupier := namebuf;
end;
Если предположить, что в гостинице 10 комнат, то следующая программа будет последовательно вызывать функцию getoccupier для просмотра файла и выводить каждую найденную фамилию при помощи процедуры writeln из стандартного модуля system:
(* Программа listoc выводит все фамилии жильцов *)
const
NROOMS=10;
var
j:integer;
p:pchar;
begin
for j := 1 to NROOMS do
begin
p := getoccupier (j);
if p<>nil then
writeln('Комната ', j:2, ', ', p)
else
writeln('Ошибка для комнаты ', j);
end;
end.
Упражнение 2.9. Придумайте алгоритм для определения пустых комнат. Измените функцию getoccupier и файл данных, если это необходимо, так, чтобы он отражал эти изменения. Затем напишите процедуру с названием findfree для поиска свободной комнаты с наименьшим номером.
Упражнение 2.10. Напишите процедуру freeroom для удаления записи о жильце. Затем напишите процедуру addguest для внесения новой записи о жильце, с предварительной проверкой того, что выделяемая комната свободна.
Упражнение 2.11. Объедините процедуры getoccupier, freeroom, addguest и findfree в простой программе с названием frontdesk, которая управляет файлом данных. Используйте аргументы командной строки или напишите интерактивную программу, которая вызывает функции writeln и readln. В обоих случаях для вычисления номера комнаты вам потребуется преобразовывать строки в целые числа. Вы можете использовать для этого библиотечную процедуру StrToInt:
i := StrToInt(str);
где string – указатель на строку символов, а i
– целое число.
Упражнение 2.12. В качестве обобщенного примера напишите программу на основе системного вызова fdseek, которая копирует в обратном порядке байты из одного файла в другой. Насколько эффективным получилось ваше решение?
Упражнение 2.13. Используя вызов fdseek, напишите процедуры для копирования последних 10 символов, последних 10 слов и последних 10 строк из одного файла в другой.
Пример игнорирование сигнала SIGINT
Для того чтобы процесс игнорировал сигнал прерывания SIGINT, все, что нужно для этого сделать – это заменить следующую строку в программе:
act.handler.sh := @catchint;
на
act.handler.sh := SIG_IGN;
После выполнения этого оператора нажатие клавиши прерывания будет безрезультатным. Снова разрешить прерывание можно так:
act.handler.sh := SIG_DFL;
sigaction (SIGINT, @act, nil);
Можно игнорировать сразу несколько сигналов, например:
act.handler.sh := SIG_IGN;
sigaction(SIGINT, @act, nil);
При этом игнорируются оба сигнала SIGINT и SIGQUIT. Это может быть полезно в программах, которые не должны прерываться с клавиатуры.
Некоторые командные интерпретаторы используют этот подход, чтобы гарантировать, что фоновые процессы не останавливаются при нажатии пользователем клавиши прерывания. Это возможно вследствие того, что игнорируемые процессом сигналы будут игнорироваться и после вызова ехес. Поэтому командный интерпретатор может вызвать sigaction для игнорирования сигналов SIGQUIT и SIGINT, а затем запустить новую программу при помощи вызова ехес.
Пример использования функции malloc: связные списки
В информатике существует множество типов динамических структур данных. Одним из классических примеров таких структур является связный список, в котором группа одинаковых объектов связывается в единый логический объект. В этом разделе составляется простой пример, использующий односвязный список для демонстрации применения функций семейства malloc.
(* list.inc - заголовочный файл для примера. *)
uses strings,stdio;
(* Определение основной структуры *)
type
pMEMBER=^MEMBER;
MEMBER=record
m_data:pchar;
m_next:pMEMBER;
end;
ppMEMBER=^pMEMBER;
(* Определение функций *)
function new_member(data:pchar):pMEMBER;forward;
procedure add_member(head:ppMEMBER; newmem:pMEMBER);forward;
procedure free_list (head:ppMEMBER);forward;
procedure printlist (listhead:pMEMBER);forward;
Оператор type вводит тип MEMBER, имеющий два поля. Первое поле, m_data, в экземпляре типа MEMBER будет указывать на произвольную строку. Второе поле, m_next, указывает на другой объект типа MEMBER.
Каждый элемент в связном списке структур типа MEMBER будет указывать на следующий в списке объект MEMBER, то есть если известен один элемент списка, то следующий можно найти при помощи указателя m_next. Поскольку на каждый объект MEMBER в списке ссылается только один указатель, список можно обходить только в одном направлении. Такие списки называются односвязными (singly linked). Если бы был определен еще один указатель m_prev, то список можно было бы обходить и в обратном направлении, и в этом случае он был бы двусвязным (doubly linked).
Адрес начала, или головы, списка обычно записывается в отдельном указателе, определенным следующим образом:
const
head:pmember = nil;
Конец списка обозначается нулевым значением поля
m_next последнего элемента списка.
На рис. 12.1 показан простой список из трех элементов. Его начало обозначено указателем head.
Теперь представим небольшой набор процедур для работы с этими структурами. Первая функция называется new_member. Она отводит память под структуру MEMBER с помощью вызова malloc. Обратите внимание, что указателю m_next присвоено нулевое значение, в данном случае обозначенное как nil. Это связано с тем, что функция malloc не обнуляет выделяемую память. Поэтому при создании структуры
MEMBER поле m_text может содержать ложный, но правдоподобный адрес.
Рис. 12.1. Связный список объектов MEMBER
{$i list.inc}
(* Функция new_member - выделить память для нового элемента *)
function new_member (data:pchar):pMEMBER;
var
newmem:pMEMBER;
begin
newmem := malloc (sizeof (MEMBER));
if newmem = nil then
writeln (stderr, 'new_member: недостаточно памяти')
else
begin
(* Выделить память для копирования данных *)
newmem^.m_data := malloc (strlen (data) + 1);
(* Скопировать данные в структуру *)
strcopy (newmem^.m_data, data);
(* Обнулить указатель в структуре *)
newmem^.m_next := nil;
end;
new_member:=newmem;
end;
Следующая процедура add_member добавляет в список, на который указывает head, новый элемент
MEMBER. Как видно из текста процедуры, элемент MEMBER добавляется всегда в начало списка.
{$i list.inc}
(* Процедура add_member - добавить новый элемент MEMBER *)
procedure add_member (head:ppMEMBER; newmem:pMEMBER);
begin
(* Эта простая процедура вставляет новый
* элемент в начало списка
*)
newmem^.m_next := head^;
head^ := newmem;
end;
Последняя процедура – free_list. Она принимает указатель на начало списка head^ и освобождает память, занятую всеми структурами MEMBER, образующими список. Она также обнуляет указатель head^, гарантируя, что в указателе head^ не содержится прежнее значение (иначе при случайном использовании head^ могла бы возникать трудноуловимая ошибка).
{$i list.inc}
(* Процедура free_list - освободить занятую списком память *)
procedure free_list (head:ppMEMBER);
var
curr, next:pMEMBER;
begin
curr := head^;
while curr <> nil do
begin
next := curr^.m_next;
(* Освободить память, занятую данными *)
free (curr^.m_data);
(* Освободить память, отведенную под структуру списка *)
free (curr);
curr := next;
end;
(* Обнулить указатель на начало списка *)
head^ := nil;
end;
Следующая простая программа использует описанные процедуры. Она создает односвязный список, изображенный на рис. 12.1, а затем удаляет его. Обратите внимание на способ обхода списка процедурой
printlist. Используемый в ней цикл while типичен для программ, в которых применяются связные списки.
{$i list.inc}
(* Обход и вывод списка *)
procedure printlist (listhead:pMEMBER);
var
m:pMEMBER;
begin
writeln (#$a'Содержимое списка:');
if listhead = nil then
writeln (#9'(пусто)')
else
begin
m := listhead;
while m <> nil do
begin
writeln (#9, m^.m_data);
m := m^.m_next;
end;
end;
end;
const
strs:array [0..2] of pchar=('again', 'world', 'Hello');
(* Программа для проверки процедур работы со списком *)
var
head, newm:pMEMBER;
j:integer;
begin
(* Инициализация списка *)
head := nil;
(* Добавление элементов к списку *)
for j:=0 to 2 do
begin
newm := new_member (strs[j]);
add_member (@head, newm);
end;
(* Вывести элементы списка *)
printlist (head);
(* Удалить список *)
free_list (@head);
(* Вывести элементы списка *)
printlist (head);
end.
Следует обратить внимание и на то, как в начале программы был инициализирован список присвоением указателю head значения nil. Это важно, так как иначе список мог оказаться заполненным «мусором», что неизбежно привело бы к ошибочной работе или к аварийному завершению программы.
Рассматриваемая программа должна выдать такой результат:
Содержимое списка:
Hello world again
Содержимое списка:
(пусто)
Пример передачи сообщений: очередь с приоритетами
В этом разделе разработаем простое приложение для передачи сообщений. Его целью является реализация очереди, в которой для каждого элемента может быть задан приоритет. Серверный процесс будет выбирать элементы из очереди и обрабатывать их каким-либо образом. Например, элементы очереди могут быть именами файлов, а серверный процесс может копировать их на принтер. Этот пример аналогичен примеру использования FIFO из раздела 7.2.1.
Отправной точкой будет следующий заголовочный файл q.inc:
(* q.h - заголовок для примера очереди сообщений *)
const
QKEY:tkey=(1 shl 6) + 5{0105}; (* ключ очереди *)
QPERM=(6 shl 6) + (6 shl 3){0660}; (* права доступа *)
MAXOBN=50; (* макс. длина имени объекта *)
MAXPRIOR=10; (* максимальный приоритет *)
type
q_entry=record
mtype:longint;
mtext:array [0..MAXOBN] of char;
end;
pq_entry=^q_entry;
Определение QKEY задает значение ключа, которое будет обозначать очередь сообщений в системе. Определение QPERM устанавливает связанные с очередью права доступа. Так как код доступа равен octal(0660), то владелец очереди и члены его группы смогут выполнять чтение и запись. Как увидим позже, определения MAXOBN и MAXPRIOR будут налагать ограничения на сообщения, помещаемые в очередь. Последняя часть этого включаемого файла содержит определение структуры q_entry. Структуры этого типа будут использоваться в качестве сообщений, передаваемых и принимаемых следующими процедурами.
Первая рассматриваемая процедура называется enter, она помещает в очередь имя объекта, заканчивающееся нулевым символом, и имеет следующую форму:
{$i q.inc}
(* Процедура enter - поместить объект в очередь *)
function enter (objname:string;priority:longint):boolean;
var
len, s_qid:longint;
s_entry:q_entry; (* структура для хранения сообщений *)
begin
(* Проверка длины имени и уровня приоритета *)
len := length (objname);
if len > MAXOBN then
begin
warn ('слишком длинное имя');
enter:=false;
exit;
end;
if (priority > MAXPRIOR) or (priority < 0) then
begin
warn ('недопустимый уровень приоритета');
enter:=false;
exit;
end;
(* Инициализация очереди сообщений, если это необходимо *)
s_qid := init_queue;
if s_qid = -1 then
begin
enter:=false;
exit;
end;
(* Инициализация структуры переменной s_entry *)
s_entry.mtype := priority;
strlcopy (s_entry.mtext, @objname[1], MAXOBN);
(* Посылаем сообщение, выполнив ожидание, если это необходимо *)
if not msgsnd (s_qid, @s_entry, len, 0) then
begin
perror ('Ошибка вызова msgsnd');
enter:=false;
exit;
end
else
enter:=true;
end;
Первое действие, выполняемое процедурой
enter, заключается в проверке длины имени объекта и уровня приоритета. Обратите внимание на то, что минимальное значение переменной приоритета priority равно 1, так как нулевое значение приведет к неудачному завершению вызова msgsnd. Затем процедура enter «открывает» очередь, вызывая процедуру init_queue, реализацию которой приведем позже.
После завершения этих действий процедура формирует сообщение и пытается послать его при помощи вызова msgsnd. Здесь для хранения сообщения использована структура s_entry типа q_entry, и последний параметр вызова msgsnd равен нулю. Это означает, что система приостановит выполнение текущего процесса, если очередь заполнена (так как не задан флаг IPC_NOWAIT).
Процедура enter сообщает о возникших проблемах при помощи функции warn или библиотечной функции perror. Для простоты функция warn реализована следующим образом:
procedure warn (s:pchar);
begin
writeln(stderr, 'Предупреждение: ', s);
end;
В реальных системах функция warn должна записывать сообщения в специальный файл протокола.
Назначение функции init_queue очевидно. Она инициализирует идентификатор очереди сообщений или возвращает идентификатор очереди сообщений, который с ней уже связан.
{$i q.inc}
(* Инициализация очереди - получить идентификатор очереди *)
function init_queue:longint;
var
queue_id:longint;
begin
(* Попытка создания или открытия очереди сообщений *)
queue_id := msgget (QKEY, IPC_CREAT or QPERM);
if queue_id = -1 then
perror ('Ошибка вызова msgget');
init_queue:=queue_id;
end;
Следующая процедура, serve, используется серверным процессом для получения сообщений из очереди и противоположна процедуре
enter.
{$i q.inc}
(* Процедура serve - принимает и обрабатывает сообщение обслуживает
* объект очереди с наивысшим приоритетом
*)
function serve:integer;
var
r_qid:longint;
r_entry:q_entry;
begin
(* Инициализация очереди сообщений, если это необходимо *)
r_qid := init_queue;
if r_qid = -1 then
begin
serve:=-1;
exit;
end;
(* Получить и обработать следующее сообщение *)
while true do
begin
if not msgrcv(r_qid, @r_entry, MAXOBN, -1*MAXPRIOR, MSG_NOERROR) then
begin
perror ('Ошибка вызова msgrcv');
serve:=-1;
exit;
end
else
begin
(* Обработать имя объекта *)
proc_obj (@r_entry);
end;
end;
end;
Обратите внимание на вызов msgrcv. Так как в качестве параметра типа задано отрицательное значение (-1 * MAXPRIOR), то система вначале проверяет очередь на наличие сообщений со значением
mtype равным 1, затем равным 2 и так далее, до значения MAXPRIOR включительно. Другими словами, сообщения с наименьшим номером будут иметь наивысший приоритет. Процедура proc_obj работает с объектом. Для системы печати она может просто копировать файл на принтер.
Две следующих простых программы демонстрируют взаимодействие этих процедур: программа etest помещает элемент в очередь, а программа stest обрабатывает его (в действительности она всего лишь выводит содержимое и тип сообщения).
Пример перехват сигнала SIGINT
Этот пример демонстрирует, как можно перехватить сигнал, а также проясняет лежащий в его основе механизм сигналов. Программа sigex просто связывает с сигналом SIGINT функцию catchint, а затем выполняет набор операторов sleep и writeln. В данном примере определена структура act типа sigactionrec как глобальная, поэтому при инициализации структуры все поля, и в частности поле sa_flags обнуляются.
(* Программа sigex - демонстрирует работу sigaction *)
uses linux,stdio;
(* Простая функция для обработки сигнала SIGINT *)
procedure catchint (signo:integer);cdecl;
begin
writeln (#$a'сигнал CATCHINT: signo=', signo);
writeln ('сигнал CATCHINT: возврат'#$a);
end;
var
act,oact:sigactionrec;
mask:sigset_t;
begin
(* Определение процедуры обработчика сигнала catchint *)
(* Задание действия при получении сигнала SIGINT *)
act.handler.sh := @catchint;
(* Создать маску, включающую все сигналы *)
sigfillset (@mask);
act.sa_mask:=mask.__val[0];
(* До вызова процедуры sigaction сигнал SIGINT
* приводил к завершению процесса (действие по умолчанию)
*)
sigaction (SIGINT, @act, @oact);
(* При получении сигнала SIGINT управление
* будет передаваться процедуре catchint
*)
writeln ('вызов sleep номер 1');
sleep (1);
writeln ('вызов sleep номер 2');
sleep (1);
writeln ('вызов sleep номер 3');
sleep (1);
writeln ('вызов sleep номер 4');
sleep (1);
writeln ('Выход');
halt(0);
end.
Сеанс обычного запуска sigex будет выглядеть так:
$ sigex
Вызов sleep номер 1
Вызов sleep номер 2
Вызов sleep номер 3
Вызов sleep номер 4
Выход
Пользователь может прервать выполнение программы sigex, нажав клавишу прерывания задания. Если она была нажата до того, как в программе sigex была выполнена процедура sigaction, то процесс просто завершит работу. Если же нажать да клавишу прерывания после вызова sigaction, то управление будет передано функции catchint:
$ sigex
Вызов sleep номер 1
<прерывание> (пользователь нажимает на клавишу прерывания)
Сигнал CATCHINT: signo = 2
Сигнал CATCHINT: возврат
Вызов sleep номер 2
Вызов sleep номер 3
Вызов sleep номер 4
Выход
Обратите внимание на то, как передается управление из тела программы процедуре catchint. После завершения процедуры catchint, управление продолжится с точки, в которой программа была прервана. Можно попробовать прервать программу sigex и в другом месте:
$ sigex
Вызов sleep номер 1
Вызов sleep номер 2
<прерывание> (пользователь нажимает на клавишу прерывания)
Сигнал CATCHINT: signo = 2
Сигнал GATCHINT: возврат
Вызов sleep номер 3
Вызов sleep номер 4
Выход
Пример работы с разделяемой памятью: программа shmcopy
В этом разделе создадим простую программу shmcopy для демонстрации практического использования разделяемой памяти. Программа shmcopy просто копирует данные со своего стандартного ввода на стандартный вывод, но позволяет избежать лишних простоев в вызовах fdread и fdwrite. При запуске программы shmcopy создаются два процесса, один из которых выполняет чтение, а другой – запись, и которые совместно используют два буфера, реализованных в виде сегментов разделяемой памяти. Когда первый процесс считывает данные в первый буфер, второй записывает содержимое второго буфера, и наоборот. Так как чтение и запись выполняются одновременно, пропускная способность возрастает. Этот подход используется, например, в программах, которые выводят информацию на ленточный накопитель.
Для согласования двух процессов (чтобы записывающий процесс не писал в буфер до тех пор, пока считывающий процесс его не заполнит) будем использовать два семафора. Почти во всех программах, использующих разделяемую память, требуется дополнительная синхронизация, так как механизм разделяемой памяти не содержит собственных средств синхронизации.
Программа shmcopy использует следующий заголовочный файл share_ex.inc:
(* Заголовочный файл для примера работы с разделяемой памятью *)
const
SHMKEY1:tkey=$10; (* ключ разделяемой памяти *)
SHMKEY2:tkey=$15; (* ключ разделяемой памяти *)
SEMKEY :tkey=$20; (* ключ семафора *)
(* Размер буфера для чтения и записи *)
BUFSIZ=8192;
SIZ=5*BUFSIZ;
(* В этой структуре будут находиться данные и счетчик чтения *)
type
databuf=record
d_nread:integer;
d_buf:array [0..SIZ-1] of char;
end;
pdatabuf=^databuf;
Напомним, что постоянная BUFSIZ определена в файле stdio и задает оптимальный размер порций данных при работе с файловой системой. Шаблон databuf показывает структуру, которая связывается с каждым сегментом разделяемой памяти. В частности, элемент d_nread позволит процессу, выполняющему чтение, передавать другому, осуществляющему запись, через участок разделяемой памяти число считанных символов.
Следующий файл содержит процедуры для инициализации двух участков разделяемой памяти и набора семафоров. Он также содержит процедуру remobj, которая удаляет различные объекты межпроцессного взаимодействия в конце работы программы. Обратите внимание на способ вызова shmat для подключения участков разделяемой памяти к адресному пространству процесса.
(* Процедуры инициализации *)
{$i share_ex.inc}
const
IFLAGS=IPC_CREAT or IPC_EXCL;
ERR:pdatabuf=pdatabuf(-1);
var
shmid1, shmid2, semid : longint;
procedure getseg (var p1,p2:pdatabuf);
begin
(* Создать участок разделяемой памяти *)
shmid1 := shmget (SHMKEY1, sizeof (databuf), octal(0600) or IFLAGS);
if shmid1 = -1 then
fatal ('shmget');
shmid2 := shmget (SHMKEY2, sizeof (databuf), octal(0600) or IFLAGS);
if shmid2 = -1 then
fatal ('shmget');
(* Подключить участки разделяемой памяти. *)
p1 := pdatabuf( shmat (shmid1, 0, 0));
if p1 = ERR then
fatal ('shmat');
p2 := pdatabuf( shmat (shmid2, 0, 0));
if p2 = ERR then
fatal ('shmat');
end;
function getsem:longint; (* Получить набор семафоров *)
var
x:tsemun;
begin
x.val := 0;
(* Создать два набора семафоров *)
semid := semget (SEMKEY, 2, octal(0600) or IFLAGS);
if semid = -1 then
fatal ('semget');
(* Задать начальные значения *)
if semctl (semid, 0, SETVAL, x) = -1 then
fatal ('semctl');
if semctl (semid, 1, SETVAL, x) = -1 then
fatal ('semctl');
getsem:=semid;
end;
(* Удаляет идентификаторы разделяемой памяти
* и идентификатор набора семафоров
*)
procedure remobj;
var
x:tsemun;
begin
if not shmctl (shmid1, IPC_RMID, nil) then
fatal ('shmctl');
if not shmctl (shmid2, IPC_RMID, nil) then
fatal ('shmctl');
if semctl (semid, 0, IPC_RMID, x) = -1 then
fatal ('semctl');
end;
Ошибки в этих процедурах обрабатываются при помощи процедуры fatal, которая использовалась в предыдущих примерах. Она просто вызывает perror, а затем halt.
Ниже следует главная функция для программы shmcopy. Она вызывает процедуры инициализации, а затем создает процесс для чтения (родительский) и для записи (дочерний). Обратите внимание на то, что именно выполняющий запись процесс вызывает процедуру remobj при завершении программы.
(* Программа shmcopy - главная функция *)
uses ipc,stdio,linux;
{$i share_ex.inc}
var
pid : longint;
buf1, buf2 : pdatabuf;
begin
(* Инициализация набора семафоров. *)
semid := getsem;
(* Создать и подключить участки разделяемой памяти. *)
getseg (buf1, buf2);
pid := fork;
case pid of
-1:
fatal ('fork');
0: (* дочерний процесс *)
begin
writer (semid, buf1, buf2);
remobj;
end;
else (* родительский процесс *)
reader (semid, buf1, buf2);
end;
halt (0);
end.
Программа создает объекты межпроцессного взаимодействия до вызова fork. Обратите внимание на то, что адреса, определяющие сегменты разделяемой памяти (которые находятся в переменных buf1 и buf2), будут заданы в обоих процессах.
Процедура reader принимает данные со стандартного ввода, то есть из дескриптора файла 0, и является первой функцией, представляющей интерес. Ей передается идентификатор набора семафоров в параметре semid и адреса двух участков разделяемой памяти в переменных buf1 и buf2.
{$i share_ex.inc}
(* Определения процедур p() и v() для двух семафоров *)
const
p1:tsembuf=(sem_num:0;sem_op:-1;sem_flg:0);
p2:tsembuf=(sem_num:1;sem_op:-1;sem_flg:0);
v1:tsembuf=(sem_num:0;sem_op:1;sem_flg:0);
v2:tsembuf=(sem_num:1;sem_op:1;sem_flg:0);
(* Процедура reader - выполняет чтение из файла *)
procedure reader(semid:longint;buf1,buf2:pdatabuf);
begin
while true do
begin
(* Считать в буфер buf1 *)
buf1^.d_nread := fdread (0, buf1^.d_buf, SIZ);
(* Точка синхронизации *)
semop (semid, @v1, 1);
semop (semid, @p2, 1);
(* Чтобы процедура writer не была приостановлена. *)
if buf1^.d_nread <= 0 then
exit;
buf2^.d_nread := fdread (0, buf2^.d_buf, SIZ);
semop (semid, @v2, 1);
semop (semid, @p1, 1);
if buf2^.d_nread <= 0 then
exit;
end;
end;
Структуры sembuf просто определяют операции р() и v() для набора из
двух семафоров. Но на этот раз они используются не для блокировки критических участков кода, а для синхронизации процедур, выполняющих чтение и запись. Процедура reader использует операцию v2 для сообщения о том, что она завершила чтение и ожидает, вызвав semop с параметром р1, пока процедура writer сообщит о завершении записи. Это станет более очевидным при описании процедуры writer. Возможны другие подходы, включающие или четыре бинарных семафора, или семафоры, имеющие более двух значений.
Последней процедурой, вызываемой программой
shmcopy, является процедура writer:
{$i share_ex.inc}
(* Процедура writer - выполняет запись *)
procedure writer(semid:longint;buf1,buf2:pdatabuf);
begin
while true do
begin
semop (semid, @p1, 1);
semop (semid, @v2, 1);
if buf1^.d_nread <= 0 then
exit;
fdwrite (1, buf1^.d_buf, buf1^.d_nread);
semop (semid, @p2, 1);
semop (semid, @v1, 1);
if buf2^.d_nread <= 0 then
exit;
fdwrite (1, buf2^.d_buf, buf2^.d_nread);
end;
end;
И снова следует обратить внимание на использование набора семафоров для согласования работы процедур reader и writer. На этот раз процедура writer использует операцию v2
для сигнализации и ждет р1. Важно также отметить, что значения buf1^.d_nread и buf2^.d_nread устанавливаются процессом, выполняющим чтение.
После компиляции можно использовать программу
shmcopy при помощи подобной команды:
$ shmcopy < big > /tmp/big
Упражнение 8.6. Усовершенствуйте обработку ошибок и вывод сообщений в программе shmcopy (в особенности для вызовов fdread и fdwrite). Сделайте так, чтобы программа shmcopy принимала в качестве аргументов имена файлов в форме команды cat. Какие последствия возникнут при прерывании программы shmcopy? Можете ли вы улучшить поведение программы?
Упражнение 8.7. Придумайте систему передачи сообщений, использующую разделяемую память. Измерьте ее производительность и сравните с производительностью стандартных процедур передачи сообщений.
Пример работы с семафорами
Теперь продолжим пример, который начали с процедуры initsem. Он содержит две процедуры р() и v(), реализующие традиционные операции над семафорами. Сначала рассмотрим р():
{$i pv.inc}
(* Процедура p.pas - операция p для семафора *)
function p (semid:longint):longint;
var
p_buf:tsembuf;
begin
p_buf.sem_num := 0;
p_buf.sem_op := -1;
p_buf.sem_flg := SEM_UNDO;
if not semop (semid, @p_buf, 1) then
begin
perror ('ошибка операции p(semid)');
halt (1);
end;
p:=0;
end;
Обратите внимание на то, что здесь использован флаг SEM_UNDO. Теперь рассмотрим текст процедуры v().
{$i pv.inc}
(* Процедура v.pas - операция v для семафора *)
function v (semid:longint):longint;
var
v_buf:tsembuf;
begin
v_buf.sem_num := 0;
v_buf.sem_op := 1;
v_buf.sem_flg := SEM_UNDO;
if not semop (semid, @v_buf, 1) then
begin
perror ('Ошибка операции v(semid)');
halt (1);
end;
v:=0;
end;
Можно продемонстрировать использование этих довольно простых процедур для реализации взаимного исключения. Рассмотрим следующую программу:
(* Программа testsem - проверка процедур работы с семафорами *)
uses ipc,stdio,linux;
{$i pv.inc}
procedure handlesem (skey:tkey);
var
semid, pid:longint;
begin
pid := getpid;
semid := initsem (skey);
if semid < 0 then
halt (1);
writeln (#$a'Процесс ',pid,' перед критическим участком');
p (semid);
writeln ('Процесс ',pid,' выполняет критический участок');
(* В реальной программе здесь выполняется нечто осмысленное *)
sleep (10);
writeln ('Процесс ',pid,' покинул критический участок');
v (semid);
writeln ('Процесс ',pid,' завершает работу');
halt (0);
end;
const
semkey:tkey = $200;
var
i:integer;
begin
for i := 1 to 3 do
if fork = 0 then
handlesem (semkey);
end.
Программа testsem порождает три дочерних процесса, которые используют вызовы р() и v() для того, чтобы в каждый момент времени только один из них выполнял критический участок. Запуск программы testsem может дать следующий результат:
Процесс 799 перед критическим участком
Процесс 799 выполняет критический участок
Процесс 800 перед критическим участком
Процесс 801 перед критическим участком
Процесс 799 покинул критический участок
Процесс 801 выполняет критический участок
Процесс 799 завершает работу
Процесс 801 покинул критический участок
Процесс 801 завершает работу
Процесс 800 выполняет критический участок
Процесс 800 покинул критический участок
Процесс 800 завершает работу
Пример управления терминалом: программа tscript
Программа tscript устроена следующим образом: при старте она выполняет вызовы fork и ехес для запуска пользовательской оболочки. Далее все данные, записываемые на терминал оболочкой, сохраняются в файле, при этом оболочка ничего об этом не знает и продолжает вести себя так, как будто она полностью управляет дисциплиной линии связи и, следовательно, терминалом. Логическая структура программы tscript показана на рис. 9.6.
Рис. 9.6. Использование псевдотерминала в программе tscript
Основные элементы схемы:
| tscript | Первый запускаемый процесс. После инициализации псевдотерминала и дисциплины линии связи этот процесс использует вызовы fork и ехес для создания оболочки shell. Теперь программа tscript играет две роли. Первая состоит в чтении из настоящего терминала и записи всех данных в порт ведущего устройства псевдотерминала. (Все данные, записываемые в ведущее устройство псевдотерминала, непосредственно передаются на ведомое устройство псевдотерминала.) Вторая роль состоит в чтении вывода программы оболочки shell при помощи псевдотерминала и копировании этих данных на настоящий терминал и в выходной файл | ||
| shell | Пользовательская оболочка. Перед запуском процесса shell модули дисциплины линии связи STREAM вставляются в ведомое устройство. Стандартный ввод, стандартный вывод и стандартный вывод диагностики оболочки перенаправляются в ведомое устройство псевдотерминала |
Первая задача программы tscript состоит в установке обработчика сигнала SIGCHLD и в открытии псевдотерминала. Затем программа создает процесс shell. И, наконец, вызывается процедура script. Эта процедура отслеживает два потока данных: ввод с клавиатуры (стандартный ввод), который она передает ведущему устройству псевдотерминала, и ввод с ведущего устройства псевдотерминала, передаваемый на стандартный вывод и записываемый в выходной файл.
(* Программа tscript управление терминалом *)
(* Хотя в Linux этот пример и не работает... *)
uses linux,stdio;
var
dattr:termios;
var
act:sigactionrec;
mfd, sfd:longint;
err:integer;
buf:array [0..511] of char;
mask:sigset_t;
begin
(* Сохранить текущие установки терминала *)
tcgetattr (0, dattr);
(* Открыть псевдотерминал *)
err := pttyopen (mfd, sfd);
if err <> 1 then
begin
writeln (stderr, 'pttyopen: ', err);
perror ('Ошибка при открытии псевдотерминала');
halt (1);
end;
(* Установить обработчик сигнала SIGCHLD *)
act.handler.sh := @catch_child;
sigfillset (@mask);
act.sa_mask:=mask.__val[0];
sigaction (SIGCHLD, @act, nil);
(* Создать процесс оболочки *)
case fork of
-1: (* ошибка *)
begin
perror ('Ошибка вызова оболочки');
halt (2);
end;
0: (* дочерний процесс *)
begin
fdclose (mfd);
runshell (sfd);
end;
else (* родительский процесс *)
begin
fdclose (sfd);
script (mfd);
end;
end;
end.
Основная программа использует четыре процедуры. Первая из них называется catch_child. Это обработчик сигнала SIGCHLD. При получении сигнала SIGCHLD процедура catch_child восстанавливает атрибуты терминала и завершает работу.
procedure catch_child (signo:integer);cdecl;
begin
tcsetattr (0, TCSAFLUSH, dattr);
halt (0);
end;
Вторая процедура, pttyopen, открывает псевдотерминал.
function pttyopen (var masterfd, slavefd:longint):integer;
var
slavenm:pchar;
begin
(* Открыть псевдотерминал -
* получить дескриптор файла главного устройства *)
masterfd := fdopen ('/dev/ptmx', Open_RDWR);
if masterfd = -1 then
begin
pttyopen:=-1;
exit;
end;
(* Изменить права доступа для ведомого устройства *)
if grantpt (masterfd) = -1 then
begin
fdclose (masterfd);
pttyopen:=-2;
exit;
end;
(* Разблокировать ведомое устройство, связанное с mfd *)
if unlockpt (masterfd) = -1 then
begin
fdclose (masterfd);
pttyopen:=-3;
exit;
end;
(* Получить имя ведомого устройства и затем открыть его *)
slavenm := ptsname (masterfd);
if slavenm = nil then
begin
fdclose (masterfd);
pttyopen:=-4;
exit;
end;
slavefd := fdopen (slavenm, Open_RDWR);
if slavefd = -1 then
begin
fdclose (masterfd);
pttyopen:=-5;
exit;
end;
(* Создать дисциплину линии связи *)
ioctl (slavefd, I_PUSH, pchar('ptem'));
if linuxerror>0 then
begin
fdclose (masterfd);
fdclose (slavefd);
pttyopen:=-6;
exit;
end;
ioctl (slavefd, I_PUSH, pchar('ldterm'));
if linuxerror>0 then
begin
fdclose (masterfd);
fdclose (slavefd);
pttyopen:=-7;
exit;
end;
pttyopen:=1;
end;
Третья процедура – процедура runshell. Она выполняет следующие задачи:
– вызывает setpgrp, чтобы оболочка выполнялась в своей группе процессов. Это позволяет оболочке полностью управлять обработкой сигналов, в особенности в отношении управления заданиями;
– вызывает системный вызов dup2 для перенаправления дескрипторов stdin, stdout и stderr на дескриптор файла ведомого устройства. Это особенно важный шаг;
– запускает оболочку при помощи вызова ехес, которая выполняется до тех пор, пока не будет прервана пользователем.
procedure runshell (sfd:longint);
begin
setpgrp;
dup2 (sfd, 0);
dup2 (sfd, 1);
dup2 (sfd, 2);
execl ('/bin/sh -i');
end;
Теперь рассмотрим саму процедуру script. Первым действием процедуры script является изменение дисциплины линии связи так, чтобы она работала в режиме прямого доступа. Это достигается получением текущих атрибутов терминала и изменением их при помощи вызова tcsetattr. Затем процедура script открывает файл output и использует системный вызов select (обсуждавшийся в главе 7) для обеспечения одновременного ввода со своего стандартного ввода и ведущего устройства псевдотерминала. Если данные поступают со стандартного ввода, то процедура script передает их без изменений ведущему устройству псевдотерминала. При поступлении же данных с ведущего устройства псевдотерминала процедура script записывает эти данные в терминал пользователя и в файл
output.
procedure script(mfd:longint);
var
nread, ofile:longint;
_set, master:fdset;
attr:termios;
buf:array [0..511] of char;
begin
(* Перевести дисциплину линии связи в режим прямого доступа *)
tcgetattr (0, attr);
attr.c_cc[VMIN] := 1;
attr.c_cc[VTIME] := 0;
attr.c_lflag := attr.c_lflag and not (ISIG or ECHO or ICANON);
tcsetattr (0, TCSAFLUSH, attr);
(* Открыть выходной файл *)
ofile := fdopen ('output', Open_CREAT or Open_WRONLY or Open_TRUNC, octal(0666));
(* Задать битовые маски для системного вызова select *)
FD_ZERO (master);
FD_SET (0, master);
FD_SET (mfd, master);
(* Вызов select осуществляется без таймаута,
* и будет заблокирован до наступления события. *)
_set := master;
while select (mfd + 1, @_set, nil, nil, nil) > 0 do
begin
(* Проверить стандартный ввод *)
if FD_ISSET (0, _set) then
begin
nread := fdread (0, buf, 512);
fdwrite (mfd, buf, nread);
end;
(* Проверить главное устройство *)
if FD_ISSET (mfd, _set) then
begin
nread := fdread (mfd, buf, 512);
write (ofile, buf, nread);
write (1, buf, nread);
end;
_set := master;
end;
end;
Следующий сеанс демонстрирует работу программы tscript. Комментарии, обозначенные символом #, показывают, какая из оболочек выполняется в данный момент.
$ ./tscript
$ ls -l tscript # работает новая оболочка
-rwxr-xr-x 1 spate fcf 6984 Jan 22 21:57 tscript
$ head -2 /etc/passwd # выполняется в новой оболочке
root:х:0:1:0000-Admin(0000):/:/bin/ksh
daemon:x:1:1:0000-Admin(0000):/:
$ exit # выход из новой оболочки
$ cat output # работает исходная оболочка
-rwxr-xr-x 1 spate fcf 6984 Jan 22 21:57 tscript
root:х:0:1:0000-Admin(0000):/:/bin/ksh
daemon:x:1:1:0000-Admin(0000):/:
Упражнение 9.5. Добавьте к программе обработку ошибок и возможность задания в качестве параметра имени выходного файла. Если имя не задано, используйте по умолчанию имя output.
Упражнение 9.6. Эквивалентная стандартная программа UNIX script позволяет задать параметр -а, который указывает на необходимость дополнения файла output (содержимое файла не уничтожается). Реализуйте аналогичную возможность в программе tscript.
Пример восстановление прежнего действия
Как упоминалось выше, в структуре sigaction может быть заполнен третий параметр oact. Это позволяет сохранять и восстанавливать прежнее состояние обработчика сигнала, как показано в следующем примере:
uses linux;
var
act, oact: sigactionrec;
(* Сохранить старый обработчик сигнала SIGTERM *)
sigaction(SIGTERM, nil, @oact);
(* Определить новый обработчик сигнала SIGTERM *)
act.handler.sh := SIG_IGN;
sigaction(SIGTERM, @act, nil);
(* Выполнить какие-либо действия *)
(* Восстановить старый обработчик *)
sigaction(SIGTERM, @oact, nil);
. Приоритеты процессов
Система приближенно вычисляет долю процессорного времени, отводимую для работы процесса, руководствуясь значением
nice (буквально «дружелюбный»). Значения nice находятся в диапазоне от нуля до максимального значения, зависящего от конкретной системы. Чем больше это число, тем ниже приоритет процесса. Процессы, «дружелюбно настроенные», могут понижать свой приоритет, используя системный вызов nice. Этот вызов имеет один аргумент, положительное число, на которое увеличивается текущее значение nice, например:
nice(5);
Процессы суперпользователя (и только суперпользователя) могут увеличивав свой приоритет, используя отрицательное значение параметра вызова nice. Вызов nice может пригодиться, если есть необходимость, например, вычислить число ? с точностью до ста миллионов знаков, не изменяя существенно время реакции системы для остальных пользователей. Вызов nice был введен давно. Современные факультативные расширения реального времени стандарта POSIX
определяют гораздо более точное управление планированием параллельной работы процессов.
Процедура sprintf
Прежде всего нужно отметить еще один момент, касающийся процедуры sprintf. Дело в том, что не следует думать о процедуре sprintf как о процедуре вывода. На самом деле она представляет собой наиболее гибкую из библиотечных процедур, работающих со строками и преобразующих форматы данных. Следующий текст показывает использование этой функции:
(* Процедура genkey - генерация ключа базы данных *)
uses stdio;
(* Длина ключа всегда будет равна 20 символам *)
function genkey (buf:pchar; const suppcode:pchar; orderno:longint):pchar;
begin
(* Проверка размера ключа *)
if strlen (suppcode) <> 10 then
begin
genkey:=nil;
exit;
end;
sprintf (buf, '%s_%.9d', [suppcode, orderno]);
genkey:=buf;
end;
var
buf:array [0..99] of char;
begin
if genkey (buf, 'supplement', 12)<>nil then
printf ('Key: %s'#$a, [pchar(buf)]);
end.
Тогда вызов процедуры genkey
printf('%s'#$a, [genkey(buf, 'abcdefghij', 12)]);
выведет такую строку ключа:
abcdefghij_000000012
Процедуры sigsetjmp и siglongjmp
Иногда при получении сигнала необходимо вернуться на предыдущую позицию в программе. Например, может потребоваться, чтобы пользователь мог вернуться в основное меню программы при нажатии клавиши прерывания. Это можно выполнить, используя две специальные функции sigsetjmp и siglongjmp. (Существуют альтернативные функции setjmp и longjmp, но их нельзя использовать совместно с обработкой сигналов.) Процедура sigsetjmp «сохраняет» текущие значения счетчика команд, позиции стека, регистров процессора и маски сигналов, а процедура siglongjmp передает управление назад в сохраненное таким образом положение. В этом смысле процедура siglongjmp аналогична оператору goto. Важно понимать, что возврат из процедуры siglongjmp не происходит, так как стек возвращается в сохраненное состояние. Как будет показано ниже, при этом происходит выход из соответствующего вызова sigsetjmp.
Процесс
В терминологии UNIX термин процесс (process) обычно обозначает экземпляр выполняющейся программы. Простейший способ создания процесса - передать команду для исполнения оболочке
(shell), которая также называется командным интерпретатором (command processor). Например, если пользователь напечатает:
$ ls
то процесс оболочки создаст другой процесс, в котором будет выполняться программа ls, выводящая список файлов в каталоге. UNIX – многозадачная система, поэтому несколько процессов могут выполняться одновременно. Фактически для каждого пользователя, работающего в данный момент с системой UNIX, выполняется хотя бы один процесс.
Программа etest
(* Программа etest - ввод имен объектов в очередь. *)
{$mode objfpc}
uses ipc,linux,stdio,sysutils;
{$i q.inc}
var
priority:longint;
begin
if paramcount <> 2 then
begin
writeln(stderr, 'Применение: ',paramstr(0),' имя приоритет');
halt (1);
end;
try
priority:=strtoint(paramstr(2));
except
on e:econverterror do
begin
warn ('Нечисловой приоритет');
halt (2);
end;
end;
if (priority <= 0) or (priority > MAXPRIOR) then
begin
warn ('Недопустимый приоритет');
halt (2);
end;
if not enter (paramstr(1), priority) then
begin
warn ('Ошибка в процедуре enter');
halt (3);
end;
halt (0);
end.
Программа io
В качестве очень простого примера использования стандартных дескрипторов файлов приведем программу io, применяющую системные вызовы fdread и fdwrite и дескрипторы файлов со значениями 0 и 1 для копирования стандартного ввода в стандартный вывод. В сущности, это усеченная версия программы UNIX cat. Обратите внимание на отсутствие вызовов fdopen и fdcreat.
(* Программа io копирует стандартный ввод *)
(* в стандартный вывод *)
uses linux;
const
SIZE=512;
var
nread:longint;
buf:array [0..SIZE-1] of byte;
begin
nread := fdread (0, buf, SIZE);
while nread > 0 do
begin
fdwrite (1, buf, nread);
nread := fdread (0, buf, SIZE);
end;
halt(0);
end.
Предположим, что исходный код этой программы находится в файле iо.pas, который компилируется для получения исполняемого файла io:
$ fpc io.pas
Если теперь запустить программу io на выполнение, просто набрав имя файла программы, то она будет ожидать ввода с терминала. Если пользователь напечатает строку и затем нажмет клавишу Return
или Enter на клавиатуре, то программа iо просто выведет на дисплей напечатанную строку, то есть запишет строку в стандартный вывод. При этом диалог с системой в действительности будет выглядеть примерно так:
$ io Пользователь печатает io и нажимает Return
Это строка 1 Пользователь печатает строку и нажимает Return
Это строка 1 Программа io
выводит строку на дисплей
.
.
.
После вывода строки на экран программа io будет ожидать дальнейшего ввода. Пользователь может продолжать печатать, и программа io
будет послушно выводить каждую строку на экран при нажатии на клавишу Return или Enter.
Для завершения программы пользователь может напечатать строку из единственного символа конца файла. Обычно это символ ^D, то есть Ctrl+D, который набирается одновременным нажатием клавиш Ctrl и D. При этом вызов fdread вернет 0, указывая на то, что достигнут конец файла. Весь диалог с системой мог бы выглядеть примерно так:
$ io
Это строка 1
Это строка 1
Это строка 2
Это строка 2
<Ctrl-D> Пользователь печатает Ctrl+D
$
Обратите внимание, что программа io ведет себя не совсем так, как можно было бы ожидать. Вместо того чтобы считать все 512 символов до начала вывода на экран, как, казалось бы, следует делать, она выводит строку на экран при каждом нажатии клавиши Return. Это происходит из-за того, что вызов fdread, который использовался для ввода данных с терминала, обычно возвращает значение после каждого символа перевода строки для облегчения взаимодействия с пользователем. Если быть еще более точным, это будет иметь место только для обычных настроек терминала. Терминалы могут быть настроены в другом режиме, позволяя осуществлять, например, посимвольный ввод. Дополнительные соображения по этому поводу изложены в главе 9.
Поскольку программа io
использует стандартные дескрипторы файлов, к ней можно применить стандартные средства оболочки для перенаправления и организации конвейеров. Например, выполнение команды
$ io < /etc/motd > message
приведет к копированию при помощи программы io сообщения с цитатой дня команды /etc/motd в файл message, а выполнение команды
$ io < /etc/motd | wc
направит стандартный вывод программы io в утилиту UNIX для подсчета числа слов wc. Так как стандартный вывод программы io
будет фактически идентичен содержимому /etc/motd, это просто еще один (более громоздкий) способ подсчета слов, строк и символов в файле.
Упражнение 2.15. Напишите версию программы io, которая проверяет наличие аргументов командной строки. Если существует хотя бы один из них, то программа должна рассматривать каждый из аргументов как имя файла и копировать содержимое каждого файла в стандартный вывод. Если аргументы командной строки отсутствуют, то ввод должен осуществляться из стандартного ввода. Как должна действовать программа io, если она не может открыть файл?
Упражнение 2.16. Иногда данные в файле могут медленно накапливаться в течение продолжительного промежутка времени. Напишите версию программы io с именем watch, которая будет выполнять чтение из стандартного ввода до тех пор, пока не встретится символ конца файла, выводя данные на стандартный вывод. После достижения конца файла программа watch должна сделать паузу на пять секунд, а затем снова начать чтение стандартного ввода, чтобы проверить, не поступили ли новые данные, не открывая при этом файл заново и не изменяя положение указателя чтения-записи. Для прекращения работы процесса на заданное время вымажете использовать стандартную библиотечную процедуру delay, которая имеет единственный аргумент – целое число, задающее продолжительность ожидания в миллисекундах. Например, вызов
sleep(5000);
заставляет процесс прекратить работу на 5 секунд. Программа watch аналогична программе readslow, существующей в некоторых версиях UNIX. Посмотрите также в руководстве системы описание ключа -f команды tail.
Программа stest
(* Программа stest - простой сервер для очереди *)
uses ipc,linux,stdio,sysutils;
{$i q.inc}
function proc_obj (msg:pq_entry):integer;
begin
writeln(#$a'Приоритет: ',msg^.mtype,' имя: ',msg^.mtext);
end;
var
pid:longint;
begin
pid := fork;
case pid of
0: (* дочерний процесс *)
serve;
-1: (* сервер не существует *)
warn ('Не удалось запустить сервер');
else
writeln('Серверный процесс с идентификатором ', pid);
end;
if pid <> -1 then
halt (0)
else
halt (1);
end.
Ниже следует пример использования этих двух простых программ. Перед запуском программы stest в очередь вводятся четыре простых сообщения при помощи программы etest. Обратите внимание на порядок, в котором выводятся сообщения:
$ etest objname1 3
$ etest objname2 4
$ etest objname3 1
$ etest objname4 9
$ stest
Серверный процесс с идентификатором 2545
$
Приоритет 1 имя objname3
Приоритет 3 имя objname1
Приоритет 4 имя objname2
Приоритет 9 имя objname4
Упражнение 8.3. Измените процедуры enter и serve так, чтобы можно было посылать серверу управляющие сообщения. Зарезервируйте для таких сообщений единичный тип сообщения (как это повлияет на расстановку приоритетов?). Реализуйте следующие возможности:
1. Остановка сервера.
2. Стирание всех сообщений из очереди.
3. Стирание сообщений с заданным уровнем приоритета.
