Сервер на контроллере ICP DAS i-8831-80

/* Встроенные C библиотеки */
 
#include <BIOS.H>
#include <CONIO.H>
#include <FCNTL.H>
#include <FLOAT.H>
#include <ERRNO.H>
#include <MATH.H>
#include <STDARG.H>
#include <STDIO.H>
#include <STDLIB.H>
#include <STRING.H>
#include <TIME.H>
#include <SYS/TIMEB.H>
#include <SYS/TYPES.H>
 
/* API Библиотеки контроллера */
 
#include <8000e.h>
#include <8017h.h>
#include <8024.h>
#include <tcpip32.h>
#include <vxcomm.h>
 
#define BUFSIZE         1024            //размер буфера в байтах
#define SERVER_PORT     15989   //порт сервера
#define ERR_NINIT           0       //далее идут коды ошибок
#define ERR_PORTINIT        1
#define ERR_SOCKET          2
#define ERR_BIND            3
#define ERR_LISTEN          4
#define ERR_ACCEPT          5
#define ERR_RECV            6
#define ERR_SEND            7
#define ERR_PTON            8
#define time_ms         1000            //время для отображения на индикаторах
 
/* Глобальные переменные */
 
unsigned char recv_buf[BUFSIZE], send_buf[BUFSIZE];     //буфер для обмена по TCP
struct sockaddr_in server_addr, client_addr;                //структуры для хранения адреса сервера и клиента
int s, sock;                                        //sockets
int server_len, client_len;
 
/* Главная программа */
 
void main(void)
{
    int i, rc;
    InitLib();                                                   //инициируем библиотеки
    Init5DigitLed();                                         //инициируем индикацию 7-сегментной панели
    
    rc = Ninit();                       //инициализация сети
    if (rc < 0)
    {
        errorLED(ERR_NINIT);
        Nterm();                        //закрываем сеть в случае неудачи
        exit(1);
    }
    
    rc = Portinit("*");                 //инициализация всех портов
    if (rc < 0)
    {
        errorLED(ERR_PORTINIT);
        Portterm("*");                  //закрываем все порты в случае неудачи
        exit(1);
    }
    
    s = socket(PF_INET, 1, 0);              //получаем сокет потокового типа
    if (s < 0)
    {
        errorLED(ERR_SOCKET);
        closesocket(s);                 //закрываем сокет в случае неудачи
        exit(1);
    }
    
    memset(&server_addr, 0, sizeof(server_addr));           //обнуляем структуру адреса сервера
    server_addr.sin_family = AF_INET;                   //заполняем структуру адреса сервера
    server_addr.sin_port = htons(SERVER_PORT);
    //server_addr.sin_addr.s_addr = inet_addr("0.0.0.0");          //принятие по всем адресам (INADDR_ANY)
    
    rc = bind(s, (struct sockaddr *)&server_addr, sizeof(server_addr));     //связываем сокет с локальным адресом сервера
    if (rc < 0)
    {
        errorLED(ERR_BIND);
        exit(1);
    }
    
    rc = listen(s, 5);
    if (rc < 0)
    {
        errorLED(ERR_LISTEN);
        exit(1);
    }
    
    ready_LED();                                //отображаем, что сервер готов к сеансу связи
 
    client_len = sizeof(client_addr);
    memset(&client_addr, 0, sizeof(client_addr));       //обнуляем структуру адреса клиента
    client_addr.sin_family = AF_INET;
    sock = accept(s, (struct sockaddr *)&client_addr, &client_len);
    if (sock < 0)
    {
        errorLED(ERR_ACCEPT);
        exit(1);
    }
    
    do
    {
        rc = recv(sock, recv_buf, BUFSIZE, 0);
        if (rc < 0)
        {
            errorLED(ERR_RECV); 
            exit(1);
        }
        
        if (rc > 0)
        {
            rc = send(sock, send_buf, BUFSIZE, 0);
            if (rc < 0)
            {
                errorLED(ERR_SEND);
                exit(1);
            }               
        }
    } while (rc > 0);
    
    closesocket(sock);
    Portterm("*");
    Nterm();
}
 
void errorLED(int err1)                            //эта процедура показывает код ошибки в случае её возникновения
{
    int i;
    
    for (i = 0; i < 4; i++)
    {
        Disable5DigitLed();
        DelayMs(time_ms);
        
        Show5DigitLedSeg(1, 0x4F);  /*E*/
        Show5DigitLedSeg(2, 0x05);  /*R*/
        Show5DigitLedSeg(3, 0x05);  /*R*/
        Show5DigitLedSeg(4, 0x01);  /*-*/
        Show5DigitLed(5, err1);     /*ERR CODE*/
        
        Enable5DigitLed();
        DelayMs(time_ms);
    }
}
 
void ready_LED(void)                               //процедура сообщает, что сервер готов к подключению
{
    int i;
 
    for (i = 0; i < 4; i++)
    {
        Disable5DigitLed();
        DelayMs(time_ms);
        
        Show5DigitLedSeg(1, 0x05);  /*r*/
        Show5DigitLedSeg(2, 0x4F);  /*E*/
        Show5DigitLedSeg(3, 0x77);  /*A*/
        Show5DigitLedSeg(4, 0x3D);  /*d*/
        Show5DigitLedSeg(5, 0x3B);  /*y*/
        
        Enable5DigitLed();
        DelayMs(time_ms);
    }
}