/////////////////////////////////////////////////////////////////////////////////////////
//
// Calligraff TTL protocol class
// Calligraff.Ru
//
/////////////////////////////////
 
#include <stdio.h>
#include <fcntl.h>
#include <errno.h>
#include <string.h>
#include <termios.h>
#include <unistd.h>
#include <stdlib.h>
using namespace std;
 
class CCTTLProt
{
    private:
 
        int TTLHND;
        bool isHDR;
 
        void ReadCycleDo()
        {
            int RcvdDataLen;
            ReadingProcess = True;
            isHDR = false;
            do {
 
                RcvdDataLen = <КАК ЗДЕСЬ ПОЛУЧИТЬ КОЛИЧЕСТВО БАЙТ В ПОРТУ???>;
                if ( isHDR == true )
                {
                    if ( RcvdDataLen >= 8 )
                    {
                        // читаем только первые 8 байт
                    } else {
                        // Какие-то левые
                    }
                } else {
                    // читаем оставшиеся данные
                }
 
            } while( ReadingProcess != false );
        }
 
    public:
 
        bool ReadingProcess = false;
 
        bool Init(string Device)
        {
            TTLHND = open(Device.c_str(), O_RDWR | O_NOCTTY );
            if(! TTLHND ){
                fprintf( stderr, "ERROR: (open) %s\n", strerror( errno ) );
                return false;
            }
            struct termios options;
            tcgetattr(TTLHND, &options);            // Get options
            cfsetispeed(&options, B115200);         // Set input speed
            cfsetospeed(&options, B115200);         // Set output speed
            options.c_cflag &= ~PARENB;             // Do not use the parity bit
            options.c_cflag &= ~CSTOPB;             // Use one stop bit
            options.c_cflag &= ~CSIZE;              // 
            options.c_cflag |= CS8;                 // The number of bits at 1 byte
            options.c_cc[VMIN] = 1;                 // Minimum bytes
            options.c_cc[VTIME] = 10;               // Interval in 1/10 sec
            options.c_lflag = ICANON;               // Enable canonical input
            options.c_oflag = 0;                    // RAW output
            tcflush(TTLHND, TCIOFLUSH);
            tcsetattr(TTLHND, TCSANOW, &options);
 
            return true;
        };
 
        bool ReadCycle()
        {
            // ЗАПУСТИТЬ В ОТДЕЛЬНОМ ПОТОКЕ ПРОЦЕДУРУ
            ReadCycleDo();
            return true;
        }
 
        bool Close()
        {
            close(TTLHND);
            return true;
        };
};

            options.c_cc[VMIN] = 1;                 // Minimum bytes
            options.c_cc[VTIME] = 10;               // Interval in 1/10 sec
            options.c_lflag = ICANON;               // Enable canonical input

var
   buf : array[0..128] of byte;
   GetDataLen, Bytes, fact : Integer;
   FLAP_Item : TFLAP_Item;
begin
 GetDataLen := Socket.ReceiveLength;
 if LUSRCFG.isHDR then begin  // is it a flap header ?
    if GetDataLen >= 6 then begin
       Socket.ReceiveBuf(LUSRCFG.FLAP,SizeOf(LUSRCFG.FLAP));
       LUSRCFG.NeedBytes := swap(LUSRCFG.FLAP.Len);
       LUSRCFG.Index := 0;   // FLAP_DATA[0]
       LUSRCFG.isHDR := false; // goto FLAP_DATA
    end else begin
       Socket.ReceiveBuf(buf,GetDataLen);
       formMain.M(formDEBUG.Memo1,Dim2Hex(@(buf),GetDataLen));
    end;
 end else begin  // DATA-BLOCK
    Bytes := LUSRCFG.NeedBytes;
    fact := Socket.ReceiveBuf(LUSRCFG.FLAP_DATA[LUSRCFG.Index],Bytes);
    inc(LUSRCFG.Index,fact);
    dec(LUSRCFG.NeedBytes,fact);
    if LUSRCFG.NeedBytes = 0 then begin
       FLAP_Item := TFLAP_Item.Create;
       FLAP_Item.FLAP := LUSRCFG.FLAP;
       FLAP_Item.DATA := LUSRCFG.FLAP_DATA;
       FLAP_Item_List.Add(FLAP_Item);
       LUSRCFG.isHDR := true; // goto FLAP_HDR
    end;
 end;
end;