Subversion Repositories HelenOS

Rev

Rev 4603 | Rev 4701 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4499 mejdrech 1
/*
2
 * Copyright (c) 2008 Lukas Mejdrech
3
 * All rights reserved.
4
 *
5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions
7
 * are met:
8
 *
9
 * - Redistributions of source code must retain the above copyright
10
 *   notice, this list of conditions and the following disclaimer.
11
 * - Redistributions in binary form must reproduce the above copyright
12
 *   notice, this list of conditions and the following disclaimer in the
13
 *   documentation and/or other materials provided with the distribution.
14
 * - The name of the author may not be used to endorse or promote products
15
 *   derived from this software without specific prior written permission.
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 */
28
 
29
/** @addtogroup udp
30
 *  @{
31
 */
32
 
33
/** @file
34
 */
35
 
36
#include <async.h>
4700 mejdrech 37
#include <fibril_sync.h>
4579 mejdrech 38
#include <malloc.h>
4499 mejdrech 39
#include <stdio.h>
40
 
41
#include <ipc/ipc.h>
42
#include <ipc/services.h>
43
 
44
#include "../../err.h"
45
#include "../../messages.h"
46
#include "../../modules.h"
4589 mejdrech 47
 
48
#include "../../structures/dynamic_fifo.h"
4499 mejdrech 49
#include "../../structures/packet/packet_client.h"
50
 
4579 mejdrech 51
#include "../../include/in.h"
52
#include "../../include/inet.h"
4499 mejdrech 53
#include "../../include/ip_client.h"
54
#include "../../include/ip_interface.h"
55
#include "../../include/ip_protocols.h"
4579 mejdrech 56
#include "../../include/socket.h"
57
#include "../../include/socket_errno.h"
4499 mejdrech 58
 
4579 mejdrech 59
#include "../../socket/socket_core.h"
60
#include "../../socket/socket_messages.h"
61
 
4499 mejdrech 62
#include "../tl_messages.h"
63
 
64
#include "udp.h"
4579 mejdrech 65
#include "udp_header.h"
4499 mejdrech 66
#include "udp_module.h"
67
 
4589 mejdrech 68
#define MAX_UDP_FRAGMENT_SIZE   65535
69
 
4700 mejdrech 70
#define UDP_FREE_PORTS_START    1025
71
#define UDP_FREE_PORTS_END      65535
72
 
4499 mejdrech 73
int udp_received_msg( device_id_t device_id, packet_t packet, services_t receiver );
4589 mejdrech 74
int udp_process_packet( packet_t packet );
4579 mejdrech 75
int process_client_messages( ipc_callid_t callid, ipc_call_t * call, ipc_call_t * answer, int * answer_count );
4589 mejdrech 76
int udp_sendto_message( socket_cores_ref local_sockets, int socket_id, void * addr, size_t addrlen, int fragments, int flags );
77
int udp_recvfrom_message( socket_cores_ref local_sockets, int socket_id, int flags );
78
int socket_read_data( void ** data, size_t * length );
79
int socket_read_packet_data( packet_ref packet, size_t prefix, struct sockaddr_in * address_in );
80
int socket_write_data( void * data, size_t data_length );
4499 mejdrech 81
 
82
udp_globals_t   udp_globals;
83
 
84
/** Initializes the module.
85
 */
86
int udp_initialize( async_client_conn_t client_connection ){
4579 mejdrech 87
    ERROR_DECLARE;
4499 mejdrech 88
 
4700 mejdrech 89
    fibril_rwlock_initialize( & udp_globals.lock );
90
    fibril_rwlock_write_lock( & udp_globals.lock );
4499 mejdrech 91
    udp_globals.ip_phone = ip_bind_service( SERVICE_IP, IPPROTO_UDP, SERVICE_UDP, client_connection, udp_received_msg );
4579 mejdrech 92
    if( udp_globals.ip_phone < 0 ){
93
        return udp_globals.ip_phone;
94
    }
95
    ERROR_PROPAGATE( ip_packet_size_req( udp_globals.ip_phone, -1, & udp_globals.addr_len, & udp_globals.prefix, & udp_globals.content, & udp_globals.suffix ));
96
    ERROR_PROPAGATE( socket_ports_initialize( & udp_globals.sockets ));
97
    udp_globals.prefix += sizeof( udp_header_t );
98
    udp_globals.content -= sizeof( udp_header_t );
4700 mejdrech 99
    udp_globals.last_used_port = UDP_FREE_PORTS_START - 1;
100
    fibril_rwlock_write_unlock( & udp_globals.lock );
4579 mejdrech 101
    return EOK;
4499 mejdrech 102
}
103
 
104
int udp_received_msg( device_id_t device_id, packet_t packet, services_t receiver ){
4589 mejdrech 105
    ERROR_DECLARE;
106
 
107
    if( ERROR_OCCURRED( udp_process_packet( packet ))){
108
        pq_release( udp_globals.net_phone, packet_get_id( packet ));
109
        return ERROR_CODE;
110
    }
111
 
112
    return EOK;
113
}
114
 
115
int udp_process_packet( packet_t packet ){
116
    ERROR_DECLARE;
117
 
118
    uint8_t *       src;
119
    uint8_t *       dest;
120
    int             length;
121
    void *          data;
122
    udp_header_ref  header;
123
    socket_core_ref *   socket;
124
    packet_t        next_packet;
125
    int             total_length;
126
//  uint16_t        checksum;
127
    int             fragments;
128
    packet_t        tmp_packet;
129
 
130
    // get packet data
131
    length = packet_get_addr( packet, & src, & dest );
132
    if( length < 0 ) return length;
133
    if( length != sizeof( in_addr_t )) return EINVAL;
134
    // TODO received ipopts?
135
    ERROR_PROPAGATE( ip_client_process_packet( packet, NULL, NULL, NULL, NULL, NULL ));
136
 
4499 mejdrech 137
    //  TODO remove debug dump:
4589 mejdrech 138
/*  uint8_t *   rdata;
139
    rdata = packet_get_data( packet );
140
    printf( "Receiving udp packet:\n\tid\t= %d\n\tlength\t= %d\n\tdata\t= %.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX\n\t\t%.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX:%.2hhX %.2hhX %.2hhX %.2hhX\n", packet_get_id( packet ), packet_get_data_length( packet ), rdata[ 0 ], rdata[ 1 ], rdata[ 2 ], rdata[ 3 ], rdata[ 4 ], rdata[ 5 ], rdata[ 6 ], rdata[ 7 ], rdata[ 8 ], rdata[ 9 ], rdata[ 10 ], rdata[ 11 ], rdata[ 12 ], rdata[ 13 ], rdata[ 14 ], rdata[ 15 ], rdata[ 16 ], rdata[ 17 ], rdata[ 18 ], rdata[ 19 ], rdata[ 20 ], rdata[ 21 ], rdata[ 22 ], rdata[ 23 ], rdata[ 24 ], rdata[ 25 ], rdata[ 26 ], rdata[ 27 ], rdata[ 28 ], rdata[ 29 ], rdata[ 30 ], rdata[ 31 ], rdata[ 32 ], rdata[ 33 ], rdata[ 34 ], rdata[ 35 ], rdata[ 36 ], rdata[ 37 ], rdata[ 38 ], rdata[ 39 ], rdata[ 40 ], rdata[ 41 ], rdata[ 42 ], rdata[ 43 ], rdata[ 44 ], rdata[ 45 ], rdata[ 46 ], rdata[ 47 ], rdata[ 48 ], rdata[ 49 ], rdata[ 50 ], rdata[ 51 ], rdata[ 52 ], rdata[ 53 ], rdata[ 54 ], rdata[ 55 ], rdata[ 56 ], rdata[ 57 ], rdata[ 58 ], rdata[ 59 ] );
141
*/
142
    length = packet_get_data_length( packet );
143
    if( length < 0 ) return length;
144
    if( length < sizeof( udp_header_t )) return NO_DATA;
4499 mejdrech 145
    data = packet_get_data( packet );
4589 mejdrech 146
    if( ! data ) return NO_DATA;
147
    // get udp header
148
    header = ( udp_header_ref ) data;
149
    // find the destination socket
150
    socket = socket_ports_find( & udp_globals.sockets, ntohs( header->dest ));
151
    if( ! socket ) return EADDRNOTAVAIL;
152
    // count the received packet fragments
153
    next_packet = packet;
154
    fragments = 0;
155
    total_length = ntohs( header->len );
156
    do{
157
        ++ fragments;
158
        length = packet_get_data_length( packet );
159
        if( length < 0 ) return length;
160
        if( ! length ) return NO_DATA;
161
        if( total_length < length ){
162
            // cut of the suffix if too long
163
            ERROR_PROPAGATE( packet_trim( next_packet, 0, length - total_length ));
164
            // relese the rest of the packet fragments
165
            tmp_packet = pq_next( next_packet );
166
            while( tmp_packet ){
167
                next_packet = pq_detach( tmp_packet );
168
                pq_release( udp_globals.net_phone, packet_get_id( tmp_packet ));
169
                tmp_packet = next_packet;
170
            }
171
            break;
172
        }
173
        total_length -= length;
174
    /*  if( header->header_checksum ){
175
        }
176
    */
177
    }while(( next_packet = pq_next( next_packet )) && ( total_length > 0 ));
178
    // queue the received packet
179
    ERROR_PROPAGATE( dyn_fifo_push( &( ** socket ).received, packet_get_id( packet ), SOCKET_MAX_RECEIVED_SIZE ));
4499 mejdrech 180
 
4589 mejdrech 181
    // notify the destination socket
182
    async_msg_2(( ** socket ).phone, NET_SOCKET_RECEIVED, ( ** socket ).socket_id, fragments );
4499 mejdrech 183
    return EOK;
184
}
185
 
186
int udp_message( ipc_callid_t callid, ipc_call_t * call, ipc_call_t * answer, int * answer_count ){
4505 mejdrech 187
    ERROR_DECLARE;
188
 
189
    packet_t    packet;
190
 
4499 mejdrech 191
    * answer_count = 0;
192
    switch( IPC_GET_METHOD( * call )){
193
        case NET_TL_RECEIVED:
4700 mejdrech 194
            fibril_rwlock_read_lock( & udp_globals.lock );
195
            if( ! ERROR_OCCURRED( packet_translate( udp_globals.net_phone, & packet, IPC_GET_PACKET( call )))){
196
                ERROR_CODE = udp_received_msg( IPC_GET_DEVICE( call ), packet, 0 );
197
            }
198
            fibril_rwlock_read_unlock( & udp_globals.lock );
199
            return ERROR_CODE;
4579 mejdrech 200
        case IPC_M_CONNECT_TO_ME:
201
            return process_client_messages( callid, call, answer, answer_count );
4499 mejdrech 202
    }
203
    return ENOTSUP;
204
}
205
 
4579 mejdrech 206
int process_client_messages( ipc_callid_t callid, ipc_call_t * call, ipc_call_t * answer, int * answer_count ){
207
    ERROR_DECLARE;
208
 
209
    int                     res;
210
    bool                    keep_on_going = true;
211
    socket_cores_t          local_sockets;
212
    int                     app_phone = IPC_GET_PHONE( call );
213
    void *                  addr;
214
    size_t                  addrlen;
4700 mejdrech 215
    fibril_rwlock_t         lock;
4579 mejdrech 216
 
217
    /*
218
     * Accept the connection
219
     *  - Answer the first IPC_M_CONNECT_ME_TO call.
220
     */
221
    ipc_answer_0( callid, EOK );
222
 
223
    socket_cores_initialize( & local_sockets );
4700 mejdrech 224
    fibril_rwlock_initialize( & lock );
4579 mejdrech 225
 
226
    while( keep_on_going ){
227
        // refresh data
228
        * answer_count = 0;
229
        IPC_SET_RETVAL( * answer, 0 );
230
        // just to be precize
231
        IPC_SET_METHOD( * answer, 0 );
232
        IPC_SET_ARG1( * answer, 0 );
233
        IPC_SET_ARG2( * answer, 0 );
234
        IPC_SET_ARG3( * answer, 0 );
235
        IPC_SET_ARG4( * answer, 0 );
236
        IPC_SET_ARG5( * answer, 0 );
237
 
238
        callid = async_get_call( call );
4589 mejdrech 239
//      printf( "message %d\n", IPC_GET_METHOD( * call ));
4579 mejdrech 240
 
241
        switch( IPC_GET_METHOD( * call )){
242
            case IPC_M_PHONE_HUNGUP:
243
                keep_on_going = false;
244
                res = EOK;
245
                break;
246
            case NET_SOCKET:
4700 mejdrech 247
                fibril_rwlock_write_lock( & lock );
4589 mejdrech 248
                res = socket_create( & local_sockets, app_phone, SOCKET_SET_SOCKET_ID( answer ));
4700 mejdrech 249
                fibril_rwlock_write_unlock( & lock );
4589 mejdrech 250
                * SOCKET_SET_HEADER_SIZE( answer ) = sizeof( udp_header_t );
251
                * SOCKET_SET_DATA_FRAGMENT_SIZE( answer ) = MAX_UDP_FRAGMENT_SIZE;
252
                * answer_count = 3;
4579 mejdrech 253
                break;
254
            case NET_SOCKET_BIND:
4589 mejdrech 255
                if( ERROR_OCCURRED( socket_read_data( & addr, & addrlen ))){
4579 mejdrech 256
                    res = ERROR_CODE;
257
                    break;
258
                }
4700 mejdrech 259
                fibril_rwlock_write_lock( & lock );
260
                fibril_rwlock_write_lock( & udp_globals.lock );
261
                res = socket_bind( & local_sockets, & udp_globals.sockets, SOCKET_GET_SOCKET_ID( call ), addr, addrlen, UDP_FREE_PORTS_START, UDP_FREE_PORTS_END, udp_globals.last_used_port );
262
                fibril_rwlock_write_unlock( & udp_globals.lock );
263
                fibril_rwlock_write_unlock( & lock );
4579 mejdrech 264
                free( addr );
265
                break;
266
            case NET_SOCKET_SENDTO:
4589 mejdrech 267
                if( ERROR_OCCURRED( socket_read_data( & addr, & addrlen ))){
4579 mejdrech 268
                    res = ERROR_CODE;
269
                    break;
270
                }
4700 mejdrech 271
                fibril_rwlock_read_lock( & lock );
272
                fibril_rwlock_read_lock( & udp_globals.lock );
4589 mejdrech 273
                res = udp_sendto_message( & local_sockets, SOCKET_GET_SOCKET_ID( call ), addr, addrlen, SOCKET_GET_DATA_FRAGMENTS( call ), SOCKET_GET_FLAGS( call ));
4700 mejdrech 274
                fibril_rwlock_read_unlock( & udp_globals.lock );
275
                fibril_rwlock_read_unlock( & lock );
4579 mejdrech 276
                free( addr );
277
                break;
278
            case NET_SOCKET_RECVFROM:
4700 mejdrech 279
                fibril_rwlock_read_lock( & lock );
280
                fibril_rwlock_read_lock( & udp_globals.lock );
4589 mejdrech 281
                res = udp_recvfrom_message( & local_sockets, SOCKET_GET_SOCKET_ID( call ), SOCKET_GET_FLAGS( call ));
4700 mejdrech 282
                fibril_rwlock_read_unlock( & udp_globals.lock );
283
                fibril_rwlock_read_unlock( & lock );
4589 mejdrech 284
                if( res > 0 ){
285
                    * SOCKET_SET_READ_DATA_LENGTH( answer ) = res;
4603 mejdrech 286
                    * SOCKET_SET_ADDRESS_LENGTH( answer ) = sizeof( struct sockaddr_in );
287
                    * answer_count = 2;
4589 mejdrech 288
                    res = EOK;
289
                }
4579 mejdrech 290
                break;
291
            case NET_SOCKET_CLOSE:
4700 mejdrech 292
                fibril_rwlock_write_lock( & lock );
293
                fibril_rwlock_write_lock( & udp_globals.lock );
4579 mejdrech 294
                res = socket_destroy( udp_globals.net_phone, SOCKET_GET_SOCKET_ID( call ), & local_sockets, & udp_globals.sockets );
4700 mejdrech 295
                fibril_rwlock_write_unlock( & udp_globals.lock );
296
                fibril_rwlock_write_unlock( & lock );
4579 mejdrech 297
                break;
298
            case NET_SOCKET_GETSOCKOPT:
299
            case NET_SOCKET_SETSOCKOPT:
300
            default:
301
                res = ENOTSUP;
302
                break;
303
        }
304
 
4589 mejdrech 305
//      printf( "res = %d\n", res );
4579 mejdrech 306
 
307
        switch( * answer_count ){
308
            case 0:     ipc_answer_0( callid, res );
309
                    continue;
310
            case 1:     ipc_answer_1( callid, res, IPC_GET_ARG1( * answer ));
311
                    continue;
312
            case 2:     ipc_answer_2( callid, res, IPC_GET_ARG1( * answer ), IPC_GET_ARG2( * answer ));
313
                    continue;
314
            case 3:     ipc_answer_3( callid, res, IPC_GET_ARG1( * answer ), IPC_GET_ARG2( * answer ), IPC_GET_ARG3( * answer ));
315
                    continue;
316
            case 4:     ipc_answer_4( callid, res, IPC_GET_ARG1( * answer ), IPC_GET_ARG2( * answer ), IPC_GET_ARG3( * answer ), IPC_GET_ARG4( * answer ));
317
                    continue;
318
            default:    ipc_answer_5( callid, res, IPC_GET_ARG1( * answer ), IPC_GET_ARG2( * answer ), IPC_GET_ARG3( * answer ), IPC_GET_ARG4( * answer ), IPC_GET_ARG5( * answer ));
319
                    continue;
320
        }
321
    }
322
 
323
    socket_cores_destroy( & local_sockets );
324
 
325
    return EOK;
326
}
327
 
4589 mejdrech 328
int udp_sendto_message( socket_cores_ref local_sockets, int socket_id, void * addr, size_t addrlen, int fragments, int flags ){
4579 mejdrech 329
    ERROR_DECLARE;
330
 
331
    socket_core_ref         socket;
332
    struct sockaddr *       address;
333
    struct sockaddr_in *    address_in;
334
    packet_t                packet;
4589 mejdrech 335
    packet_t                next_packet;
4579 mejdrech 336
    udp_header_ref          header;
4589 mejdrech 337
    int                     index;
338
    int                     total_length;
339
    int                     length;
4579 mejdrech 340
 
341
    if( addrlen < sizeof( struct sockaddr )) return EINVAL;
342
    address = ( struct sockaddr * ) addr;
343
    switch( address->sa_family ){
344
        case AF_INET:
345
            if( addrlen != sizeof( struct sockaddr_in )) return EINVAL;
346
            address_in = ( struct sockaddr_in * ) addr;
347
            socket = socket_cores_find( local_sockets, socket_id );
348
            if( ! socket ) return ENOTSOCK;
4589 mejdrech 349
 
4700 mejdrech 350
            // bind the socket to a random free port if not bound
351
            if( socket->port <= 0 ){
352
                // try to find a free port
353
                fibril_rwlock_read_unlock( & udp_globals.lock );
354
                fibril_rwlock_write_lock( & udp_globals.lock );
355
                ERROR_PROPAGATE( socket_bind_free_port( & udp_globals.sockets, socket, UDP_FREE_PORTS_START, UDP_FREE_PORTS_END, udp_globals.last_used_port ));
356
                fibril_rwlock_write_unlock( & udp_globals.lock );
357
                fibril_rwlock_read_lock( & udp_globals.lock );
358
                // set the next port as the search starting port number
359
                udp_globals.last_used_port = socket->port;
360
            }
4579 mejdrech 361
            // TODO do not ask all the time
362
            ERROR_PROPAGATE( ip_packet_size_req( udp_globals.ip_phone, -1, & udp_globals.addr_len, & udp_globals.prefix, & udp_globals.content, & udp_globals.suffix ));
4589 mejdrech 363
 
364
            // read the first packet fragment
365
            total_length = socket_read_packet_data( & packet, sizeof( udp_header_t ), address_in );
366
            if( total_length < 0 ) return total_length;
367
            // prefix the udp header
4579 mejdrech 368
            header = PACKET_PREFIX( packet, udp_header_t );
369
            if( ! header ){
370
                pq_release( udp_globals.net_phone, packet_get_id( packet ));
371
                return ENOMEM;
372
            }
4589 mejdrech 373
            // read the rest of the packet fragments
374
            for( index = 1; index < fragments; ++ index ){
375
                length = socket_read_packet_data( & next_packet, 0, address_in );
376
                if( length < 0 ){
377
                    pq_release( udp_globals.net_phone, packet_get_id( packet ));
378
                    return length;
379
                }
380
                packet = pq_add( packet, next_packet, index, 0 );
381
                total_length += length;
382
            }
383
            // set the udp header
4579 mejdrech 384
            header->source = ( socket->port < 0 ) ? 0 : htons( socket->port );
385
            header->dest = htons( address_in->sin_port );
4589 mejdrech 386
            header->len = htons( total_length + sizeof( udp_header_t ));
4579 mejdrech 387
            // TODO my ip address for the pseudo header checksum
388
            header->check = 0;
4589 mejdrech 389
            // prepare the first packet fragment
4579 mejdrech 390
            if( ERROR_OCCURRED( ip_client_prepare_packet( packet, IPPROTO_UDP, 0, 0, 0, 0 ))){
391
                pq_release( udp_globals.net_phone, packet_get_id( packet ));
392
                return ERROR_CODE;
393
            }
4589 mejdrech 394
            // send the packet
4579 mejdrech 395
            return ip_send_msg( udp_globals.ip_phone, socket->device_id, packet, SERVICE_UDP );
396
        // TODO IPv6
397
        default:
398
            return EAFNOSUPPORT;
399
    }
400
    return EOK;
401
}
402
 
4589 mejdrech 403
int udp_recvfrom_message( socket_cores_ref local_sockets, int socket_id, int flags ){
4579 mejdrech 404
    ERROR_DECLARE;
405
 
4589 mejdrech 406
    socket_core_ref socket;
407
    int             packet_id;
408
    packet_t        packet;
409
    udp_header_ref  header;
410
    struct sockaddr_in      address;
411
    int             length;
412
    packet_t        next_packet;
413
    void *          data;
414
    int             fragments;
415
    int *           lengths;
416
    int             index;
417
    uint8_t *       addr;
418
 
419
    // find the socket
420
    socket = socket_cores_find( local_sockets, socket_id );
421
    if( ! socket ) return ENOTSOCK;
422
    // get the next received packet
423
    packet_id = dyn_fifo_value( & socket->received );
424
    if( packet_id < 0 ) return packet_id;
425
    ERROR_PROPAGATE( packet_translate( udp_globals.net_phone, & packet, packet_id ));
426
    // get udp header
427
    data = packet_get_data( packet );
428
    if( ! data ){
429
        pq_release( udp_globals.net_phone, packet_id );
430
        return NO_DATA;
431
    }
432
    header = ( udp_header_ref ) data;
433
    // set the source address
434
    address.sin_family = PF_INET;
4603 mejdrech 435
    address.sin_port = ntohs( header->source );
4589 mejdrech 436
    length = packet_get_addr( packet, & addr, NULL );
437
    if( length != sizeof( address.sin_addr.s_addr )){
438
        pq_release( udp_globals.net_phone, packet_id );
439
        return EINVAL;
440
    }
441
    address.sin_addr.s_addr = *(( uint32_t * ) addr );
442
    bzero( & address.sin_zero, sizeof( address.sin_zero ));
443
    // send the source address
444
    ERROR_PROPAGATE( socket_write_data( & address, sizeof( address )));
445
    next_packet = pq_next( packet );
446
    if( ! next_packet ){
447
        // write all if only one fragment
448
        ERROR_PROPAGATE( socket_write_data( data + sizeof( udp_header_t ), packet_get_data_length( packet ) - sizeof( udp_header_t )));
449
        // store the total length
450
        length = packet_get_data_length( packet ) - sizeof( udp_header_t );
451
    }else{
452
        // count the packet fragments
453
        fragments = 1;
454
        next_packet = pq_next( packet );
455
        while(( next_packet = pq_next( next_packet ))){
456
            ++ fragments;
457
        }
458
        // compute and store the fragment lengths
459
        lengths = ( int * ) malloc( sizeof( int ) * ( fragments + 1 ));
460
        if( ! lengths ) return ENOMEM;
461
        lengths[ 0 ] = packet_get_data_length( packet ) - sizeof( udp_header_t );
462
        lengths[ fragments ] = lengths[ 0 ];
463
        next_packet = pq_next( packet );
464
        for( index = 1; index < fragments; ++ index ){
465
            lengths[ index ] = packet_get_data_length( next_packet );
466
            lengths[ fragments ] += lengths[ index ];
467
            next_packet = pq_next( packet );
468
        }while( next_packet );
469
        // write the fragment lengths
470
        ERROR_PROPAGATE( socket_write_data( lengths, sizeof( int ) * ( fragments + 1 )));
471
        // write the first fragment
472
        ERROR_PROPAGATE( socket_write_data( data + sizeof( udp_header_t ), lengths[ 0 ] ));
473
        next_packet = pq_next( packet );
474
        // write the rest of the fragments
475
        for( index = 1; index < fragments; ++ index ){
476
            ERROR_PROPAGATE( socket_write_data( packet_get_data( next_packet ), lengths[ index ] ));
477
            next_packet = pq_next( packet );
478
        }while( next_packet );
479
        // store the total length
480
        length = lengths[ fragments ];
481
        free( lengths );
482
    }
483
    // release the packet
484
    dyn_fifo_pop( & socket->received );
485
    pq_release( udp_globals.net_phone, packet_get_id( packet ));
486
    // return the total length
487
    return length;
488
}
489
 
490
int socket_write_data( void * data, size_t data_length ){
491
    size_t          length;
4579 mejdrech 492
    ipc_callid_t    callid;
493
 
4589 mejdrech 494
    if(( ! ipc_data_read_receive( & callid, & length ))
495
    || ( length < data_length )){
496
        return EINVAL;
497
    }
498
    return ipc_data_read_finalize( callid, data, data_length );
499
}
500
 
501
int socket_read_data( void ** data, size_t * length ){
502
    ERROR_DECLARE;
503
 
504
    ipc_callid_t    callid;
505
 
4579 mejdrech 506
    if( !( data && length )) return EBADMEM;
507
    if( ! ipc_data_write_receive( & callid, length )) return EINVAL;
508
    * data = malloc( * length );
509
    if( ! data ) return ENOMEM;
510
    if( ERROR_OCCURRED( ipc_data_write_finalize( callid, * data, * length ))){
511
        free( data );
512
        return ERROR_CODE;
513
    }
514
    return EOK;
515
}
516
 
4589 mejdrech 517
int socket_read_packet_data( packet_ref packet, size_t prefix, struct sockaddr_in * address_in ){
518
    ERROR_DECLARE;
519
 
520
    ipc_callid_t    callid;
521
    size_t          length;
522
    void *          data;
523
 
524
    // get the data length
525
    if( ! ipc_data_write_receive( & callid, & length )) return EINVAL;
526
    // get a new packet
527
    * packet = packet_get_4( udp_globals.net_phone, length, udp_globals.addr_len, prefix + udp_globals.prefix, udp_globals.suffix );
528
    if( ! packet ) return ENOMEM;
529
    // allocate space in the packet
530
    data = packet_suffix( * packet, length );
531
    if( ! data ){
532
        pq_release( udp_globals.net_phone, packet_get_id( * packet ));
533
        return ENOMEM;
534
    }
535
    // read the data into the packet
536
    if( ERROR_OCCURRED( ipc_data_write_finalize( callid, data, length ))
537
    // set the packet destination address
538
    || ERROR_OCCURRED( packet_set_addr( * packet, NULL, ( uint8_t * ) & address_in->sin_addr.s_addr, sizeof( address_in->sin_addr.s_addr )))){
539
        pq_release( udp_globals.net_phone, packet_get_id( * packet ));
540
        return ERROR_CODE;
541
    }
542
    return length;
543
}
544
 
4499 mejdrech 545
/** @}
546
 */