Операционная система UNIX

 #include <netdb.h>

 #define PORTNUM 1500

 main(argc, argv)
 char *argv[];
 int argc;

{

  int tn;
  int flags;
  struct sockaddr_in serv_addr;
  struct hostent *hp;
  char buf[80]="Здравствуй, мир!";
  struct t_call* call;
  /* В качестве аргумента клиенту передается доменное имя хоста,
на котором запущен сервер. Произведем трансляцию доменного
  имени в адрес */
  if ((hp = gethostbyname(argv[1])) == 0) {
  perror("Ошибка вызова gethostbyname");
  exit(1);
  }
  /* Создадим транспортный узел. В качестве поставщика
  транспортных услуг выберем модуль TCP */
  printf("Сервер готов\n");
  if ((tn = t_open("/dev/tcp", O_RDWR, NULL)) == -1) {
  t_error("Ошибка вызова t_open");
  exit(1);
  }
  /* Предоставим системе самостоятельно связать узел с
  подходящим адресом */
  if (t_bind(tn, (struct t_bind*)0,
  (struct t_bind *)0) < 0} {
  t_error("Ошибка вызова t_bind");
  exit(1);
  }
  fprintf(stderr, "Адрес клиента: %s\n",
  inet_ntoa(serv_addr.sin_addr));
  /* Укажем адрес сервера, с которым мы будем работать */
  bzero(&serv_addr, sizeof(serv_addr));
  bcopy(hp->h_addr, &serv_addr.sin_addr, hp->h_length);
  serv_addr.sin_family = hp->h_addrtype;
  /* Приведем в соответствие порядок следования байтов
  для хоста и сети */
  serv_addr.sin_port = htons(PORTNUM);
  /* Поскольку в структуре t_call нам понадобится только буфер
  для хранения адреса сервера, разместим ее динамически */
  if ((call =
  (struct t_call*)t_alloc(tn, T_CALL, T_ADDR)) == NULL) {
  t_error("Ошибка вызова t_alloc");
  exit(2);
  }
  call->addr.maxlen = sizeof(serv_addr);
  call->addr.len = sizeof(serv_addr);
  call->addr.buf = (char*)&serv_addr;
  call->opt.len = 0;
  call->udata.len = 0;
  /* Установи соединение с сервером */
  if (t_connect(tn, call, (struct t_call*)0) == -1) {
  t_error("Ошибка вызова t_rcv");
  exit(1);
  }
  /* Передадим сообщение и получим ответ */
  t_snd(tn, buf, sizeof(buf), 0);
  if (t_rcv(tn, buf, sizeof(buf), &flags) < 0) {
  t_error("Ошибка вызова t_rcv");
  exit(1);
  }
  /* Выведем полученное сообщение на экран */
  printf("Получено от сервера: %s\n", buf);
  printf("Клиент завершил работу!\n\n");
 }

В рассмотренном примере большая часть исходного текста посвящена созданию транспортных узлов и установлению соединения, в то время как завершение сеанса связи представлено скупыми вызовами t_close(3N). На самом деле, вызов t_close(3N) приводит к немедленному разрыву соединения, запрещая дальнейшую передачу или прием данных. Однако виртуальный канал, обслуживаемый протоколом TCP, является полнодуплексным и, как было показано, TCP предусматривает односторонний разрыв связи, позволяя другой стороне продолжать передачу данных. Действиям, предписываемым TCP, больше соответствуют две функции t_sndrel(3N) и t_rcvrel(3N), которые обеспечивают "корректное "прекращение связи (orderly release). Разумеется, эти рассуждения справедливы лишь для транспортного протокола, обеспечивающего передачу данных с предварительным установлением связи, каковым, в частности, является протокол TCP.

Функции t_sndrel(3N) и t_rcvrel(3N) имеют вид:

 #include <tiuser.h>

 int t_sndrel(int fd);
 int t_rcvrel(int fd);

Вызывая функцию t_sndrel(3N), процесс отправляет другой стороне уведомление об одностороннем прекращении связи, это означает, что процесс не намерен больше передавать данные. В то же время процесс может принимать данные — файловый дескриптор fd доступен для чтения.

Другая сторона подтверждает получение уведомления вызовом функции t_rcvrel(3N). Однако поскольку получение такого уведомления носит асинхронный характер, процесс должен каким-то образом узнать, что запрос поступил. Такой индикацией является завершение с ошибкой попытки получения данных от удаленного узла, например, с помощью функции t_rcv(3N). В этом случае вызов функции t_rcv(3N) завершится с ошибкой TLOOK.

Эта ошибка свидетельствует, что произошло событие, связанное с коммуникационным узлом, анализ которого позволяет получить дополнительную информацию о причине неудачи. Текущее событие может быть получено с помощью функции t_look(3N):

 #include <tiuser.h>

 int t_look(int fildes);

Функция возвращает идентификатор, соответствующий одному из событий, перечисленных в табл. 6.6.

Таблица 6.6. События, связанные с коммуникационным узлом

Событие	Значение
T_CONNECT	Узлом получено подтверждение создания соединения
T_DISCONNECT	Узлом получен запрос на разрыв соединения
T_DATA	Узлом получены данные
T_EXDATA	Узлом получены экстренные данные
T_LISTEN	Узлом получен запрос на установление соединения
T_ORDREL	Узлом получен запрос на корректное прекращение связи
T_ERROR	Свидетельствует о фатальной ошибке
T_UDERR	Свидетельствует об ошибке датаграммы