File content as of revision 14:caab74db0c6d:

/*
Copyright (c) 2010 Peter Barrett

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.
*/


#include <stdio.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include "Utils.h"
#include "hci.h"

#define L2CAP_COMMAND_REJ       0x01
#define L2CAP_CONN_REQ          0x02
#define L2CAP_CONN_RSP          0x03
#define L2CAP_CONF_REQ          0x04
#define L2CAP_CONF_RSP          0x05
#define L2CAP_DISCONN_REQ       0x06
#define L2CAP_DISCONN_RSP       0x07
#define L2CAP_ECHO_REQ          0x08
#define L2CAP_ECHO_RSP          0x09
#define L2CAP_INFO_REQ          0x0a
#define L2CAP_INFO_RSP          0x0b


 /* L2CAP command codes */
 const char* L2CAP_ComandCodeStr(int c)
 {
     switch (c)
     {
        case L2CAP_COMMAND_REJ:    return "L2CAP_COMMAND_REJ";
        case L2CAP_CONN_REQ:    return "L2CAP_CONN_REQ";
        case L2CAP_CONN_RSP:    return "L2CAP_CONN_RSP";
        case L2CAP_CONF_REQ:    return "L2CAP_CONF_REQ";
        case L2CAP_CONF_RSP:    return "L2CAP_CONF_RSP";
        case L2CAP_DISCONN_REQ:    return "L2CAP_DISCONN_REQ";
        case L2CAP_DISCONN_RSP:    return "L2CAP_DISCONN_RSP";
        case L2CAP_ECHO_REQ:    return "L2CAP_ECHO_REQ";
        case L2CAP_ECHO_RSP:    return "L2CAP_ECHO_RSP";
        case L2CAP_INFO_REQ:    return "L2CAP_INFO_REQ";
        case L2CAP_INFO_RSP:    return "L2CAP_INFO_RSP";
     }
     return "unknown";
 }

typedef struct
{
    u16    handle;
    u16    length;            // total
    u16    l2capLength;    // length -4
    u16    cid;            // Signaling packet CID = 1
    u8  data[64];       // Largest thing to send!!! todo
} L2CAPData;

typedef struct
{
    u16    handle;
    u16    length;            // total
    u16    l2capLength;    // length -4
    u16    cid;            // Signaling packet CID = 1

    // Payload
    u8    cmd;            //
    u8    id;
    u16    cmdLength;        // total-8
    u16 params[4];      // Params
} L2CAPCmd;

void printf(const BD_ADDR* addr);

//
void BTDevice::Init()
{
    memset(&_info,0,sizeof(inquiry_info));
    _handle = 0;
    _name[0] = 0;
    _state = 0;
}

// virtual SocketHandler
int BTDevice::Open(SocketInternal* sock, SocketAddrHdr* addr)
{
    printf("Call to BTDevice Open \r\n");
    L2CAPSocket* s = (L2CAPSocket*)sock;
    L2CAPAddr* a = (L2CAPAddr*)addr;
    s->scid = 0x40 + sock->ID-1;   // are these reserved?
    s->dcid = 0;
    Connect(s->scid,a->psm);
    return sock->ID;
}

// virtual SocketHandler
int BTDevice::Create(SocketInternal* sock, SocketAddrHdr* addr)
{
    printf("Call to BTDevice Create \r\n");
    L2CAPSocket* s = (L2CAPSocket*)sock;
    L2CAPAddr* a = (L2CAPAddr*)addr;

    //Connect(s->scid,a->psm);
    return sock->ID;
}

int BTDevice::Accept(SocketInternal* sock, SocketAddrHdr* addr)
{
    printf("Call to BTDevice Accept \r\n");
    L2CAPSocket* s = (L2CAPSocket*)sock;
    L2CAPAddr* a = (L2CAPAddr*)addr;
    
    
    printf("ID = %d scid = %d dcid = %d \r\n",sock->ID, s->scid, s->dcid); 
     
    return sock->ID;
}




// virtual SocketHandler
int BTDevice::Send(SocketInternal* sock, const u8* data, int len)
{
    printf("Call to BTDevice Send \r\n");
    L2CAPData d;
    L2CAPSocket* s = (L2CAPSocket*)sock;

    d.handle = _handle | 0x2000;
    d.length = 4 + len;
    d.l2capLength = len;
    d.cid = s->dcid;

    if (len > 64)
        return -1;
    memcpy(d.data,data,len);
    return Send((u8*)&d,len+8);
}

// virtual SocketHandler
int BTDevice::Close(SocketInternal* sock)
{
    printf("L2CAP close %d\r\n",sock->ID);
    L2CAPSocket* s = (L2CAPSocket*)sock;
    return Disconnect(s->scid,s->dcid);
}

L2CAPSocket* BTDevice::SCIDToSocket(int scid)
{
    return (L2CAPSocket*)GetSocketInternal(scid-0x40+1);
}

int BTDevice::Send(const u8* data, int len)
{
     printfBytes("L2CP send: ",data,len);
     _transport->ACLSend(data,len);
     return 0;
}

int BTDevice::Send(u8 c, u8 id, u16* params, int count)
{
    L2CAPCmd cmd;
    cmd.handle = _handle | 0x2000;
    cmd.length = 8 + count*2;

    cmd.l2capLength = cmd.length-4;
    cmd.cid = 1;    // Signaling packet

    cmd.cmd = c;
    cmd.id = id;
    cmd.cmdLength = count*2;
    for (int i = 0; i < count; i++)
        cmd.params[i] = params[i];
    return Send((u8*)&cmd,cmd.length+4);
}

int BTDevice::Connect(int scid, int psm)
{
    u16 p[2];
    p[0] = psm;
    p[1] = scid;
    return Send(L2CAP_CONN_REQ,_txid++,p,2);
}

int BTDevice::Disconnect(int scid, int dcid)
{
    u16 p[2];
    p[0] = dcid;
    p[1] = scid;
    return Send(L2CAP_DISCONN_REQ,_txid++,p,2);
}

int BTDevice::ConfigureRequest(int dcid)
{
    u16 p[4];
    p[0] = dcid;
    p[1] = 0;
    p[2] = 0x0201;  // Options
    p[3] = 0x02A0;  // 672
    return Send(L2CAP_CONF_REQ,_txid++,p,4);
}

int BTDevice::ConfigureResponse(u8 rxid, int dcid)
{
    u16 p[3];
    p[0] = dcid;
    p[1] = 0;
    p[2] = 0;
    return Send(L2CAP_CONF_RSP,rxid,p,3);
}

int BTDevice::DisconnectResponse(u8 rxid, int scid, int dcid)
{
    u16 p[2];
    p[0] = dcid;
    p[1] = scid;
    return Send(L2CAP_DISCONN_RSP,rxid,p,2);
}

int BTDevice::AcceptResponse(u8 rxid, int scid, int dcid)
{
    printf("Connection accepted \r\n");
    u16 p[4];
    p[0] = scid;
    p[1] = dcid;
    p[2] = L2CAP_CONN_SUCCESS;
    p[3] = 0;

    return Send(L2CAP_CONN_RSP,rxid,p,4);

}

int BTDevice::RefuseResponse(u8 rxid)
{
    printf("Connection refused \r\n");
    u16 p[2];
    p[0] = L2CAP_CONN_REF_PSM;
    p[1] = 0;
    
    return Send(L2CAP_CONN_RSP,rxid,p,2);
}


//int BTDevice::InUse(int psm)
//{
//    for (int i = 0; i < MAX_PORTS; i++){
//                 printf("Listen Q %d = %d \r\n",i, _listen[i]);
//                 if ( _listen[i] == psm ) {
//                        printf("We are listening on port %d \r\n",psm); //in use
//                        return 0;     
//                 }
//    }
//    printf("We are not listening on port %d \r\n",psm);
//    return 1;
//}




void BTDevice::Control(const BD_ADDR* addr, const u8* data, int len)
{

    SocketInternal* sock;
    L2CAPSocket* s;
    int psm,scid,dcid,flags;
    
    printf("From address ");
    printf(addr);
    printf(" : ");

    int cc = data[8];
    printf(L2CAP_ComandCodeStr(cc));
    int result = LE16(data+16);
    printf(" Result %d\r\n",result);
    
    
    switch (cc)
    {
        case L2CAP_COMMAND_REJ:
           break;
        case L2CAP_CONN_REQ:
            {
            psm = LE16(data+12);
            scid =  LE16(data+14);
            printf("Connection request scid = %d psm = %d \r\n",scid,psm);   
           
            // check if we listen on the port  
            //if ( InUse(psm) ) {
            if ( Socket_InUse(SOCKET_L2CAP,psm) ) {
                RefuseResponse(data[9]);
                
                    
            } else {
                L2CAPAddr sockAddr;
                sockAddr.bdaddr = *addr;
                sock = Socket_Create(SOCKET_L2CAP, &sockAddr.hdr, psm);
                s = (L2CAPSocket*)sock; 
                s->scid = 0x40 + sock->ID-1;   // are these reserved?
                s->dcid = scid;
                AcceptResponse(data[9],s->scid,s->dcid);

                ConfigureRequest(s->dcid); // handshake
                
                sock->SetState(SocketState_Accept);
            }
           
            /**
            for (int i = 0; i < MAX_PORTS; i++){
                 if ( _listen[i] == psm ) {
                        printf("We are listening on port %d \r\n",psm); //in use
                        RefuseResponse(data[9]);
                        break;
                 }
            } 
            **/
            
            //L2CAPAddr sockAddr;
            //sockAddr.bdaddr = addr;
            //sockAddr.psm = psm;

            }
            break;
                        
        // Response to our initial connect from Remote
        case L2CAP_CONN_RSP:
            {
                if (result == 0)
                {
                    printf("Connect succeeded\r\n");
                    dcid = LE16(data+12);
                    scid = LE16(data+14);
                    L2CAPSocket* s = SCIDToSocket(scid);
                    if (s)
                    {
                        s->dcid = dcid;
                        ConfigureRequest(dcid);
                    }
                } else
                    printf("Connect failed?\r\n");
            }
            break;

        case L2CAP_CONF_RSP:
            {
                scid = LE16(data+12);
                SocketInternal* s = (SocketInternal*)SCIDToSocket(scid);
                if (s)
                    s->SetState(SocketState_Open);
            }
            break;

        case L2CAP_CONF_REQ:
            {
                u16 dcid = LE16(data+12);
                u16 flags = LE16(data+14);            
                printf("Config request dcid = %02X flags = %02X\r\n", dcid, flags);           
                scid = LE16(data+12);
                L2CAPSocket* s = SCIDToSocket(scid);
                if (s)
                    ConfigureResponse(data[9],s->dcid);
            }
            break;
        case L2CAP_DISCONN_REQ:  {
              int dcid = LE16(data+12);
              int scid = LE16(data+14);
              L2CAPSocket* s = SCIDToSocket(scid);
              //s->si.SetState(SocketState_Closed);
              DisconnectResponse(data[9], scid, dcid);
          }
          break;

    }
}

void BTDevice::ACLRecv(const BD_ADDR* addr, const u8* data, int len)
{
    //printfBytes("L2CP recv: ",data,16);
    int handle = LE16(data);
    if (handle != (0x2000 | _handle))
        return;

    int cid = LE16(data+6);
    if (cid == 1)
    {
        Control(addr,data,len);
        return;
    }

    SocketInternal* s = (SocketInternal*)SCIDToSocket(cid);
    if (s)
        s->Recv(data+8,LE16(data+2)-4);
    else
        printf("Bad event cid %d\r\n",cid);
}