fc-magnetite: src/g23m-fad/app/app

author	Mychaela Falconia <falcon@freecalypso.org>
date	Wed, 12 Oct 2016 05:40:46 +0000
parents
children

rev	line source
174 90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /-- c-basic-offset: 2 -*-
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +------------------------------------------------------------------------------
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| File: app_core.c
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 +------------------------------------------------------------------------------
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 \| Copyright 2003 Texas Instruments Berlin, AG
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| All rights reserved.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \|
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \| This file is confidential and a trade secret of Texas
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| Instruments Berlin, AG
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| The receipt of or possession of this file does not convey
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| any rights to reproduce or disclose its contents or to
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| manufacture, use, or sell anything it may describe, in
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| whole, or in part, without the specific written consent of
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| Texas Instruments Berlin, AG.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 +-----------------------------------------------------------------------------
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 \| Purpose : Example application for TCP/IP and Socket API -- core functions.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 +-----------------------------------------------------------------------------
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 /* This should only be compiled into the entity if TCP/IP is enabled */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #ifdef FF_GPF_TCPIP
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #define APP_CORE_C
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #define ENTITY_APP
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 /==== INCLUDES =============================================================/
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include <string.h> /* String functions, e. g. strncpy(). */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include <ctype.h>
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include <stdio.h>
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include <stdlib.h>
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #ifndef _SIMULATION_
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "typedefs.h" /* Condat data types. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #endif /* _SIMULATION_ */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "vsi.h" /* A lot of macros. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #ifndef _SIMULATION_
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include "custom.h"
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include "gsm.h" /* A lot of macros. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "prim.h" /* Definitions of used SAP and directions. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "pei.h" /* PEI interface. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "tools.h" /* Common tools. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #endif /* _SIMULATION_ */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "socket_api.h" /* Socket API. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #include "app.h" /* Global entity definitions. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 /==== Local data ============================================================/
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #define NPROCS 1 /* Maximum number of application processes. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #define PORT_CHARGEN 19 /* Chargen service for download. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #define PORT_ECHO 7 /* Echo port for tcpecho and udpecho. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #define PORT_DISCARD 9 /* Discard port for upload. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #define FQDN_LENGTH 255 /* Maximum length of a fully-qualified domain
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 * name. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 #undef HTONS
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #define HTONS(a) ((((a) & 0xff) << 8) \| (((a) & 0xff00) >> 8))
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 #undef NTOHS
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #define NTOHS(a) HTONS(a)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 #define MIN(a, b) ((a) < (b) ? (a) : (b))
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 /* We can run different types of application processes, according to the
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 * commend sent by the user. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 typedef enum {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 AP_NONE, /* For uninitialized process types. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 AP_TCPDL, /* Download some data over TCP. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 AP_TCPUL, /* Upload some data over TCP. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 AP_UDPDL, /* Download some data over UDP. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 AP_UDPUL, /* Upload some data over UDP. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 AP_TCPECHO, /* Send/receive data to/from TCP echo port. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 AP_UDPECHO, /* Send/receive data to/from UDP echo port. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 AP_TCPSRV, /* TCP server application. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 AP_DNSQRY, /* Issue DNS queries and collect result. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 AP_TCPFORK, /* Forked TCP server process. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 AP_INVALID
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 } APP_PROCTYPE_T ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 /* Strings for process types; used for debugging and MUST correspond strictly
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 * to the process type enum labels defined above. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 static char *proc_type_name[] = {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 "AP_NONE", /* 00 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 "AP_TCPDL", /* dl */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 "AP_TCPUL", /* ul */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 "AP_UDPDL",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 "AP_UDPUL",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 "AP_TCPECHO", /* te */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 "AP_UDPECHO", /* ue */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 "AP_TCPSRV",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 "AP_DNSQRY", /* dq */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 "AP_TCPFORK",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 "AP_INVALID"
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 } ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 /* Process states; the state transitions are mostly linear in this order. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 typedef enum {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 PS_IDLE, /* Initial state, process not running. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 PS_W_DCM_OPEN, /* Waiting for DCM to open connection. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 PS_W_DCM_OPEN_ONLY, /* Waiting for DCM to open connection - no further action. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 PS_W_CREAT, /* Waiting for socket create confirmation. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 PS_W_SCONN, /* Waiting for socket connect confirmation. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 PS_W_BIND, /* Waiting for socket bind confirmation. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 PS_W_LISTN, /* Waiting for confirmation of listen call. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 PS_LISTENS, /* Listens for client connections. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 PS_W_DNS, /* Waiting for a DNS query. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 PS_COMM, /* Happily exchanging data. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 PS_W_SCLOS, /* Waiting for socket close confirmation. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 PS_W_DCLOS, /* Waiting for DCM to close connection. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 PS_W_CONN_INFO, /* Waiting for connection information */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 PS_DCM_OPEN, /* DCM (bearer) connecion opened*/
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 PS_SOCK_OPEN, /* Socket and bearer open */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 PS_INVALID
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 } PROC_STAT_T ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 /* Strings for the process states; used for debugging and MUST correspond
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 * strictly to the process state enum labels defined above, as the array is
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 * indexed by those. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 static char *proc_state_name[] = {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 "PS_IDLE",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 "PS_W_DCM_OPEN",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 "PS_W_DCM_OPEN_ONLY",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 "PS_W_CREAT",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 "PS_W_SCONN",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 "PS_W_BIND",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 "PS_W_LISTN",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 "PS_W_LISTENS",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 "PS_W_DNS",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 "PS_COMM",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 "PS_W_SCLOS",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 "PS_W_DCLOS",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 "PS_W_CONN_INFO",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 "PS_DCM_OPEN",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 "PS_SOCK_OPEN",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 "PS_INVALID"
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 } ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 /* The data a process holds. May be dynamically allocated in the future. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 typedef struct PROCESS_CONTEXT_S {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 APP_PROCTYPE_T ptype ; /* Type of application process */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 PROC_STAT_T pstate ; /* Process status as defined above. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 int in_shutdown ; /* Non-zero iff process is being shut down. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 T_SOCK_EVENTSTRUCT last_evt; / Last event passed from the Socket API. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 T_SOCK_IPPROTO ipproto ; /* IP protocol number for this process (TCP or
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 * UDP); unused with dq. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 char server_name ; / May be a domain name or an IP address in
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 * dotted decimal notation. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 T_SOCK_IPADDR server_ipaddr ; /* Server IP address. (Will be IPADDR_ANY in
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 * case of AP_TCPSRV.) */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 T_SOCK_PORT server_port ; /* Server port number. (Also in case of
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 * AP_TCPSRV.) */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 /* The following variables are in use only where appropriate, of course --
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 * as indicated in the comment. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 int f_id ; /* Identity of TCP server fork. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 int spec_items ; /* Specified number of items to transfer. (The
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 * items are single bytes for dl and ul.) */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 int spec_reps ; /* Specified number of repetitions. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 int data_sent ; /* Total amount of data sent (ul, te, ue). */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 int data_rcvd ; /* Total amount of data recvd (dl, te, ue). */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 int items_sent ; /* Number of blocks/packets/queries sent (ul,
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 * te, ue, dq). */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 int items_rcvd ; /* Number of blocks/packets/responses received
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 * (dl, te, ue, dq). */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 int n_reps ; /* Number of repetitions done. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 int errors ; /* Number of errors at all. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 T_SOCK_SOCKET psocket ; /* The socket in use by the process. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 int network_is_open ; /* Non-zero iff we have an open network
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 * connection. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 int psocket_is_open ; /* Non-zero iff we have an open psocket. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 BOOL bearer_only; /* if set, only a Bearer will be opened */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 } PROC_CONTEXT_T ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 static PROC_CONTEXT_T proc_context ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 static PROC_CONTEXT_T cl_context[APP_N_CLIENTS] ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 static char server_name[FQDN_LENGTH+1] = APP_DEF_SERVER ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 /* Global server name. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 static char query_name[FQDN_LENGTH+1] = APP_DEF_DNSQUERY_ADDR ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 static int buffer_size = APP_DEF_BUFFER_SIZE ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 static U16 port_number = 0 ; /* Port number override if non-zero. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 static int udp_interval = APP_DEF_UDP_INTERVAL ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 static T_SOCK_BEARER_TYPE bearer_select = SOCK_BEARER_AS_SPECIFIED;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 static T_SOCK_BEARER_TYPE sock_bearer_type = SOCK_BEARER_GPRS;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 EXTERN BOOL custom_apn_valid;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 /* The cache for DNS queries is RNET_RT_RESOLV_CACHE_MAX queries big, i. e. 8
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 * in the current configuration. We need to overflow this cache in order to
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 * test lookup robustness. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 static char *domain_name[] = {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 #ifdef _SIMULATION_ /* Not in the simulation, though. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 "chuck.berlin.tide.ti.com",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 #else /* _SIMULATION_ */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 "gsmtest.com",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 "w21.org",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 "gw.w21.org",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 "troll.cs.tu-berlin.de",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 "gatekeeper.dec.com",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 "www.mcvax.org",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 "www.mcvaymedia.com",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 "www.vodafone.de",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 "www.ti.com",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 "mailbox.tu-berlin.de",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 "ge-2-3-0.r02.asbnva01.us.bb.verio.net",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 "www.condat.de",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 "www.tellique.de",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 "prz.tu-berlin.de",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 #endif /* _SIMULATION_ */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 0
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 } ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 /==== Local functions =======================================================/
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 /*
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 * Utility functions.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 static char *sock_bearer_type_string(T_SOCK_BEARER_TYPE btype)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 switch (btype)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 case SOCK_BEARER_ANY: return "SOCK_BEARER_ANY" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 case SOCK_BEARER_GPRS: return "SOCK_BEARER_GPRS" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 case SOCK_BEARER_GSM: return "SOCK_BEARER_GSM" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 case SOCK_BEARER_USE_PROFILE: return "SOCK_BEARER_USE_PROFILE" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 case SOCK_BEARER_AS_SPECIFIED: return "SOCK_BEARER_AS_SPECIFIED" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 default: return "<unknown bearer type>" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 /** Give a print representation for the specified character. This is the
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 * character itself for printable characters and a substitution character for
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 * others.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 * @param c the character
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 * @return the print representation
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 static char p_char(char c)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 return isprint(c) ? c : '~' ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 #define DUMP_LLENGTH 16 /* Data dump line length. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 #define DBUF_LENGTH (4 * DUMP_LLENGTH + 10) /* See example below. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 #define XDIGIT(n) ("0123456789abcdef"[n])
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 /** Dump the specified portion of the data as event traces like this:
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 * 0000: 27 28 29 2a 2b 2c 2d 2e-2f 30 31 32 33 34 35 36 ['()*+,-./0123456]
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 * @param data Pointer to data area
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 * @param size Size of data to dump
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 void trace_dump_data(U8 *data, int size)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 char dump_buf[DBUF_LENGTH] ; /* Buffer to dump a line into. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 int lcount = 0 ; /* Line count. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 int i ; /* Index into data. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 char cp ; / Pointer to current char in dump_buf[]. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 while (size > 0)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 cp = dump_buf ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 /* Hex values. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 for (i = 0; i < DUMP_LLENGTH && i < size; i++)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 *cp++ = XDIGIT(data[i] >> 4) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 *cp++ = XDIGIT(data[i] & 0xf) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 *cp++ = (i == DUMP_LLENGTH/2 - 1) ? '-' : ' ' ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 /* Fill up with blanks. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 for ( ; i < DUMP_LLENGTH; i++)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 cp++ = ' ' ; cp++ = ' ' ; *cp++ = ' ' ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 /* Literal characters with some decoration. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 *cp++ = '[' ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 for (i = 0; i < DUMP_LLENGTH && i < size; i++, cp++)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 *cp = p_char(data[i]) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 *cp++ = ']' ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 *cp++ = 0 ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 TRACE_EVENT_P2("%04x: %s", DUMP_LLENGTH * lcount++, dump_buf) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 size -= DUMP_LLENGTH ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 data += DUMP_LLENGTH ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 /** Build a string, characterizing a process, suitable for tracing. The string
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 * is statically allocated and will be overwritten with the next call.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 * @param pcont Pointer to process context.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 * @return The string.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 char proc_string(PROC_CONTEXT_T pcont)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 /* This string must fit the longest possible process string. */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 static char procstring[sizeof("AP_TCPFORK99(PS_W_DCM_OPEN_ONLY)")] ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 /lint -e685 (Warning -- Relational operator always evaluates to true) /
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 sprintf(procstring, "%s%d(%s)",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 pcont->ptype <= AP_INVALID ? proc_type_name[pcont->ptype] : "AP_UNKNOWN",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 pcont->ptype == AP_TCPFORK ? pcont->f_id : 0,
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 pcont->pstate <= PS_INVALID ? proc_state_name[pcont->pstate] : "PS_UNKNOWN") ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 /lint +e685 (Warning -- Relational operator always evaluates to true) /
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 return procstring ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 /** Converts a numeric IP address in network order into an IP address in
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 * dotted decimal string notation. The string returned is statically allocated
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 * and will be overwritten on the next call.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 * @param ipaddr The IP address in network order
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 * @return String with the IP address in dotted decimal..
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 static char *inet_ntoa(T_SOCK_IPADDR ipaddr)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 U8 *addrbyte ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 static char addr_string[sizeof("000.000.000.000")] ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 addrbyte = (U8 *) &ipaddr ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 sprintf(addr_string, "%u.%u.%u.%u",
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 addrbyte[0], addrbyte[1], addrbyte[2], addrbyte[3]) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 return addr_string ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 /** Converts an IP address in dotted decimal string notation into a numeric IP
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 * address in network order.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 * @param addr_string String with the IP address in dotted decimal.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 * @return The IP address in network order, or SOCK_IPADDR_ANY if the address
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 * string cannot be parsed.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 static T_SOCK_IPADDR inet_aton(char *addr_string)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 T_SOCK_IPADDR ipaddr ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 U8 *addrbyte ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 int o1, o2, o3, o4 ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 if (sscanf(addr_string, "%d.%d.%d.%d", &o1, &o2, &o3, &o4) != 4)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 TRACE_EVENT_P1("cannot parse '%s' as an IP address", addr_string) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 return SOCK_IPADDR_ANY ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 addrbyte = (U8 *) &ipaddr ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 addrbyte[0] = (U8) o1 ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 addrbyte[1] = (U8) o2 ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 addrbyte[2] = (U8) o3 ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 addrbyte[3] = (U8) o4 ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 return ipaddr ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 LOCAL char *sock_result_string(T_SOCK_RESULT result)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 switch(result)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 case SOCK_RESULT_OK : return "SOCK_RESULT_OK";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 case SOCK_RESULT_INVALID_PARAMETER : return "SOCK_RESULT_INVALID_PARAMETER";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 case SOCK_RESULT_INTERNAL_ERROR : return "SOCK_RESULT_INTERNAL_ERROR";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 case SOCK_RESULT_ADDR_IN_USE : return "SOCK_RESULT_ADDR_IN_USE";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 case SOCK_RESULT_OUT_OF_MEMORY : return "SOCK_RESULT_OUT_OF_MEMORY";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 case SOCK_RESULT_NOT_SUPPORTED : return "SOCK_RESULT_NOT_SUPPORTED";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 case SOCK_RESULT_UNREACHABLE : return "SOCK_RESULT_UNREACHABLE";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 case SOCK_RESULT_CONN_REFUSED : return "SOCK_RESULT_CONN_REFUSED";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 case SOCK_RESULT_TIMEOUT : return "SOCK_RESULT_TIMEOUT";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 case SOCK_RESULT_IS_CONNECTED : return "SOCK_RESULT_IS_CONNECTED";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 case SOCK_RESULT_HOST_NOT_FOUND : return "SOCK_RESULT_HOST_NOT_FOUND";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 case SOCK_RESULT_DNS_TEMP_ERROR : return "SOCK_RESULT_DNS_TEMP_ERROR";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 case SOCK_RESULT_DNS_PERM_ERROR : return "SOCK_RESULT_DNS_PERM_ERROR";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 case SOCK_RESULT_NO_IPADDR : return "SOCK_RESULT_NO_IPADDR";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 case SOCK_RESULT_NOT_CONNECTED : return "SOCK_RESULT_NOT_CONNECTED";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 case SOCK_RESULT_MSG_TOO_BIG : return "SOCK_RESULT_MSG_TOO_BIG";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 case SOCK_RESULT_CONN_RESET : return "SOCK_RESULT_CONN_RESET";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 case SOCK_RESULT_CONN_ABORTED : return "SOCK_RESULT_CONN_ABORTED";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 case SOCK_RESULT_NO_BUFSPACE : return "SOCK_RESULT_NO_BUFSPACE";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 case SOCK_RESULT_NETWORK_LOST : return "SOCK_RESULT_NETWORK_LOST";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 case SOCK_RESULT_NOT_READY : return "SOCK_RESULT_NOT_READY";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 case SOCK_RESULT_BEARER_NOT_READY : return "SOCK_RESULT_BEARER_NOT_READY";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 case SOCK_RESULT_IN_PROGRESS : return "SOCK_RESULT_IN_PROGRESS";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 case SOCK_RESULT_BEARER_ACTIVE : return "SOCK_RESULT_BEARER_ACTIVE";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 default : return "<INVALID SOCKET RESULT!>";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 /** Trace a specific socket API result code with some context.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 * @param pcont Pointer to process context.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 * @param function The function or event that reported the error.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 * @param result Socket API result code.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 * @return
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 static void sock_trace_result(PROC_CONTEXT_T pcont, char function,
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 T_SOCK_RESULT result)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 if(result NEQ SOCK_RESULT_OK)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 TRACE_ERROR("Sock Result Error");
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 TRACE_EVENT_P3("%s: %s for %s", function,
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 sock_result_string(result), proc_string(pcont));
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 /** Return the string for a Socket API event type. We don't have the values
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 * under our (i. e. APP's) own control, so we rather do a switch than indexing
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 * an array.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 * @param event_type Type of the event.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 * @return String for the event type.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 char *sock_event_string(T_SOCK_EVENTTYPE event_type)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 switch (event_type)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 case SOCK_CREATE_CNF: return "SOCK_CREATE_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 case SOCK_CLOSE_CNF: return "SOCK_CLOSE_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 case SOCK_BIND_CNF: return "SOCK_BIND_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 case SOCK_LISTEN_CNF: return "SOCK_LISTEN_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 case SOCK_CONNECT_CNF: return "SOCK_CONNECT_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 case SOCK_SOCKNAME_CNF: return "SOCK_SOCKNAME_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 case SOCK_PEERNAME_CNF: return "SOCK_PEERNAME_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 case SOCK_HOSTINFO_CNF: return "SOCK_HOSTINFO_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 case SOCK_MTU_SIZE_CNF: return "SOCK_MTU_SIZE_CNF" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 case SOCK_RECV_IND: return "SOCK_RECV_IND" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 case SOCK_CONNECT_IND: return "SOCK_CONNECT_IND" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 case SOCK_CONN_CLOSED_IND: return "SOCK_CONN_CLOSED_IND" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 case SOCK_ERROR_IND: return "SOCK_ERROR_IND" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 case SOCK_FLOW_READY_IND: return "SOCK_FLOW_READY_IND" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 case SOCK_OPEN_BEARER_CNF: return "SOCK_OPEN_BEARER_CNF";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 case SOCK_CLOSE_BEARER_CNF: return "SOCK_CLOSE_BEARER_CNF";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 case SOCK_BEARER_INFO_CNF: return "SOCK_BEARER_INFO_CNF";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 case SOCK_BAERER_CLOSED_IND: return "SOCK_BAERER_CLOSED_IND";
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 default: return "<INVALID EVENT>" ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 /*
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 * Process functions.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 static void proc_shutdown(PROC_CONTEXT_T *pcont) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 static void proc_close_socket(PROC_CONTEXT_T *pcont) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 static void proc_begin_comm(PROC_CONTEXT_T *pcont) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 static void proc_close_conn(PROC_CONTEXT_T *pcont) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 /** Switch process to a new state. Done mostly to have a single place to trace
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 * process state transitions.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 * @param pcont Pointer to process context.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 * @param newstate New state of process.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 static void proc_new_state(PROC_CONTEXT_T *pcont, PROC_STAT_T newstate)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 if (newstate < PS_INVALID)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 TRACE_EVENT_P2("%s -> %s", proc_string(pcont), proc_state_name[newstate]) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 pcont->pstate = newstate ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 else
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 TRACE_EVENT_P2("%s invalid new state %d", proc_string(pcont), newstate) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 proc_shutdown(pcont) ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 }
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 /** Fork a new TCP server process context to handle a TCP client. Return a
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 * pointer to the process context or NULL, if no process context is free any
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 * more.
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 *
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 */
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 static PROC_CONTEXT_T proc_new_tcpfork(PROC_CONTEXT_T oldp)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 int i ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 PROC_CONTEXT_T *pcont ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 TRACE_FUNCTION("proc_new_tcpfork()") ;
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 for (i = 0; i < APP_N_CLIENTS; i++)
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 {
90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 if (cl_context[i].ptype EQ AP_NONE)

174

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1 /*-*- c-basic-offset: 2 -*-

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

2 +------------------------------------------------------------------------------

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

3 | File: app_core.c

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

4 +------------------------------------------------------------------------------

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

7 |

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

8 | This file is confidential and a trade secret of Texas

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

9 | Instruments Berlin, AG

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

10 | The receipt of or possession of this file does not convey

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

11 | any rights to reproduce or disclose its contents or to

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

12 | manufacture, use, or sell anything it may describe, in

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

13 | whole, or in part, without the specific written consent of

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

14 | Texas Instruments Berlin, AG.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

15 +-----------------------------------------------------------------------------

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

16 | Purpose : Example application for TCP/IP and Socket API -- core functions.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

17 +-----------------------------------------------------------------------------

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

18 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

19

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

20

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

21 /* This should only be compiled into the entity if TCP/IP is enabled */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

22 #ifdef FF_GPF_TCPIP

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

23

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

24 #define APP_CORE_C

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

25

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

26 #define ENTITY_APP

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

27

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

28 /*==== INCLUDES =============================================================*/

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

29

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

30 #include <string.h> /* String functions, e. g. strncpy(). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

31 #include <ctype.h>

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

32 #include <stdio.h>

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

33 #include <stdlib.h>

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

34 #ifndef _SIMULATION_

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

35 #include "typedefs.h" /* Condat data types. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

36 #endif /* _SIMULATION_ */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

37 #include "vsi.h" /* A lot of macros. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

38 #ifndef _SIMULATION_

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

39 #include "custom.h"

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

40 #include "gsm.h" /* A lot of macros. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

41 #include "prim.h" /* Definitions of used SAP and directions. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

42 #include "pei.h" /* PEI interface. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

43 #include "tools.h" /* Common tools. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

44 #endif /* _SIMULATION_ */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

45 #include "socket_api.h" /* Socket API. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

46 #include "app.h" /* Global entity definitions. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

47

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

48

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

49 /*==== Local data ============================================================*/

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

50

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

51 #define NPROCS 1 /* Maximum number of application processes. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

52

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53 #define PORT_CHARGEN 19 /* Chargen service for download. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

54 #define PORT_ECHO 7 /* Echo port for tcpecho and udpecho. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

55 #define PORT_DISCARD 9 /* Discard port for upload. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

56

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

57 #define FQDN_LENGTH 255 /* Maximum length of a fully-qualified domain

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

58 * name. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

59

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

60 #undef HTONS

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

61 #define HTONS(a) ((((a) & 0xff) << 8) | (((a) & 0xff00) >> 8))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

62 #undef NTOHS

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

63 #define NTOHS(a) HTONS(a)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

64 #define MIN(a, b) ((a) < (b) ? (a) : (b))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

65

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

66 /* We can run different types of application processes, according to the

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

67 * commend sent by the user. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

68 typedef enum {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

69 AP_NONE, /* For uninitialized process types. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

70 AP_TCPDL, /* Download some data over TCP. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

71 AP_TCPUL, /* Upload some data over TCP. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

72 AP_UDPDL, /* Download some data over UDP. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

73 AP_UDPUL, /* Upload some data over UDP. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

74 AP_TCPECHO, /* Send/receive data to/from TCP echo port. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75 AP_UDPECHO, /* Send/receive data to/from UDP echo port. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

76 AP_TCPSRV, /* TCP server application. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

77 AP_DNSQRY, /* Issue DNS queries and collect result. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

78 AP_TCPFORK, /* Forked TCP server process. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

79 AP_INVALID

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

80 } APP_PROCTYPE_T ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

81

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

82 /* Strings for process types; used for debugging and MUST correspond strictly

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

83 * to the process type enum labels defined above. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

84 static char *proc_type_name[] = {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

85 "AP_NONE", /* 00 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

86 "AP_TCPDL", /* dl */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

87 "AP_TCPUL", /* ul */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

88 "AP_UDPDL",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

89 "AP_UDPUL",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90 "AP_TCPECHO", /* te */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

91 "AP_UDPECHO", /* ue */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

92 "AP_TCPSRV",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

93 "AP_DNSQRY", /* dq */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

94 "AP_TCPFORK",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

95 "AP_INVALID"

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

96 } ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

97

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

98 /* Process states; the state transitions are mostly linear in this order. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

99 typedef enum {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

100 PS_IDLE, /* Initial state, process not running. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

101 PS_W_DCM_OPEN, /* Waiting for DCM to open connection. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

102 PS_W_DCM_OPEN_ONLY, /* Waiting for DCM to open connection - no further action. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

103 PS_W_CREAT, /* Waiting for socket create confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

104 PS_W_SCONN, /* Waiting for socket connect confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

105 PS_W_BIND, /* Waiting for socket bind confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

106 PS_W_LISTN, /* Waiting for confirmation of listen call. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

107 PS_LISTENS, /* Listens for client connections. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

108 PS_W_DNS, /* Waiting for a DNS query. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

109 PS_COMM, /* Happily exchanging data. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

110 PS_W_SCLOS, /* Waiting for socket close confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

111 PS_W_DCLOS, /* Waiting for DCM to close connection. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

112 PS_W_CONN_INFO, /* Waiting for connection information */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

113 PS_DCM_OPEN, /* DCM (bearer) connecion opened*/

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

114 PS_SOCK_OPEN, /* Socket and bearer open */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

115 PS_INVALID

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

116 } PROC_STAT_T ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

117

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

118 /* Strings for the process states; used for debugging and MUST correspond

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

119 * strictly to the process state enum labels defined above, as the array is

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

120 * indexed by those. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

121 static char *proc_state_name[] = {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

122 "PS_IDLE",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

123 "PS_W_DCM_OPEN",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

124 "PS_W_DCM_OPEN_ONLY",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

125 "PS_W_CREAT",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

126 "PS_W_SCONN",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

127 "PS_W_BIND",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

128 "PS_W_LISTN",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

129 "PS_W_LISTENS",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

130 "PS_W_DNS",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

131 "PS_COMM",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

132 "PS_W_SCLOS",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

133 "PS_W_DCLOS",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

134 "PS_W_CONN_INFO",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

135 "PS_DCM_OPEN",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

136 "PS_SOCK_OPEN",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

137 "PS_INVALID"

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

138 } ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

139

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

140 /* The data a process holds. May be dynamically allocated in the future. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

141 typedef struct PROCESS_CONTEXT_S {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

142 APP_PROCTYPE_T ptype ; /* Type of application process */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

143 PROC_STAT_T pstate ; /* Process status as defined above. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

144 int in_shutdown ; /* Non-zero iff process is being shut down. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

145 T_SOCK_EVENTSTRUCT *last_evt; /* Last event passed from the Socket API. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

146 T_SOCK_IPPROTO ipproto ; /* IP protocol number for this process (TCP or

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

147 * UDP); unused with dq. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

148 char *server_name ; /* May be a domain name or an IP address in

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

149 * dotted decimal notation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

150 T_SOCK_IPADDR server_ipaddr ; /* Server IP address. (Will be IPADDR_ANY in

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

151 * case of AP_TCPSRV.) */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

152 T_SOCK_PORT server_port ; /* Server port number. (Also in case of

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

153 * AP_TCPSRV.) */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

154

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

155 /* The following variables are in use only where appropriate, of course --

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

156 * as indicated in the comment. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

157

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

158 int f_id ; /* Identity of TCP server fork. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

159 int spec_items ; /* Specified number of items to transfer. (The

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

160 * items are single bytes for dl and ul.) */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

161 int spec_reps ; /* Specified number of repetitions. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

162

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

163 int data_sent ; /* Total amount of data sent (ul, te, ue). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

164 int data_rcvd ; /* Total amount of data recvd (dl, te, ue). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

165 int items_sent ; /* Number of blocks/packets/queries sent (ul,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

166 * te, ue, dq). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

167 int items_rcvd ; /* Number of blocks/packets/responses received

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

168 * (dl, te, ue, dq). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

169 int n_reps ; /* Number of repetitions done. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

170 int errors ; /* Number of errors at all. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

171 T_SOCK_SOCKET psocket ; /* The socket in use by the process. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

172 int network_is_open ; /* Non-zero iff we have an open network

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

173 * connection. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

174 int psocket_is_open ; /* Non-zero iff we have an open psocket. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

175 BOOL bearer_only; /* if set, only a Bearer will be opened */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

176 } PROC_CONTEXT_T ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

177

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

178 static PROC_CONTEXT_T proc_context ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

179 static PROC_CONTEXT_T cl_context[APP_N_CLIENTS] ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

180 static char server_name[FQDN_LENGTH+1] = APP_DEF_SERVER ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

181 /* Global server name. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

182 static char query_name[FQDN_LENGTH+1] = APP_DEF_DNSQUERY_ADDR ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

183 static int buffer_size = APP_DEF_BUFFER_SIZE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

184 static U16 port_number = 0 ; /* Port number override if non-zero. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

185 static int udp_interval = APP_DEF_UDP_INTERVAL ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

186 static T_SOCK_BEARER_TYPE bearer_select = SOCK_BEARER_AS_SPECIFIED;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

187 static T_SOCK_BEARER_TYPE sock_bearer_type = SOCK_BEARER_GPRS;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

188 EXTERN BOOL custom_apn_valid;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

189

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

190

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

191 /* The cache for DNS queries is RNET_RT_RESOLV_CACHE_MAX queries big, i. e. 8

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

192 * in the current configuration. We need to overflow this cache in order to

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

193 * test lookup robustness. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

194 static char *domain_name[] = {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

195 #ifdef _SIMULATION_ /* Not in the simulation, though. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

196 "chuck.berlin.tide.ti.com",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

197 #else /* _SIMULATION_ */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

198 "gsmtest.com",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

199 "w21.org",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

200 "gw.w21.org",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

201 "troll.cs.tu-berlin.de",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

202 "gatekeeper.dec.com",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

203 "www.mcvax.org",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

204 "www.mcvaymedia.com",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

205 "www.vodafone.de",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

206 "www.ti.com",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

207 "mailbox.tu-berlin.de",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

208 "ge-2-3-0.r02.asbnva01.us.bb.verio.net",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

209 "www.condat.de",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

210 "www.tellique.de",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

211 "prz.tu-berlin.de",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

212 #endif /* _SIMULATION_ */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

213 0

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

214 } ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

215

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

216

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

217

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

218 /*==== Local functions =======================================================*/

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

219

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

220 /*

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

221 * Utility functions.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

222 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

223

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

224

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

225 static char *sock_bearer_type_string(T_SOCK_BEARER_TYPE btype)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

226 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

227 switch (btype)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

228 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

229 case SOCK_BEARER_ANY: return "SOCK_BEARER_ANY" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

230 case SOCK_BEARER_GPRS: return "SOCK_BEARER_GPRS" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

231 case SOCK_BEARER_GSM: return "SOCK_BEARER_GSM" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

232 case SOCK_BEARER_USE_PROFILE: return "SOCK_BEARER_USE_PROFILE" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

233 case SOCK_BEARER_AS_SPECIFIED: return "SOCK_BEARER_AS_SPECIFIED" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

234 default: return "<unknown bearer type>" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

235 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

236 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

237

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

238 /** Give a print representation for the specified character. This is the

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

239 * character itself for printable characters and a substitution character for

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

240 * others.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

241 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

242 * @param c the character

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

243 * @return the print representation

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

244 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

245 static char p_char(char c)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

246 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

247 return isprint(c) ? c : '~' ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

248 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

249

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

250

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

251 #define DUMP_LLENGTH 16 /* Data dump line length. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

252 #define DBUF_LENGTH (4 * DUMP_LLENGTH + 10) /* See example below. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

253 #define XDIGIT(n) ("0123456789abcdef"[n])

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

254

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

255 /** Dump the specified portion of the data as event traces like this:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

256 * 0000: 27 28 29 2a 2b 2c 2d 2e-2f 30 31 32 33 34 35 36 ['()*+,-./0123456]

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

257 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

258 * @param data Pointer to data area

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

259 * @param size Size of data to dump

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

260 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

261 void trace_dump_data(U8 *data, int size)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

262 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

263 char dump_buf[DBUF_LENGTH] ; /* Buffer to dump a line into. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

264 int lcount = 0 ; /* Line count. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

265 int i ; /* Index into data. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

266 char *cp ; /* Pointer to current char in dump_buf[]. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

267

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

268 while (size > 0)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

269 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

270 cp = dump_buf ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

271 /* Hex values. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

272 for (i = 0; i < DUMP_LLENGTH && i < size; i++)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

273 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

274 *cp++ = XDIGIT(data[i] >> 4) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

275 *cp++ = XDIGIT(data[i] & 0xf) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

276 *cp++ = (i == DUMP_LLENGTH/2 - 1) ? '-' : ' ' ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

277 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

278

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

279 /* Fill up with blanks. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

280 for ( ; i < DUMP_LLENGTH; i++)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

281 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

282 *cp++ = ' ' ; *cp++ = ' ' ; *cp++ = ' ' ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

283 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

284

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

285 /* Literal characters with some decoration. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

286 *cp++ = '[' ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

287 for (i = 0; i < DUMP_LLENGTH && i < size; i++, cp++)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

288 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

289 *cp = p_char(data[i]) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

290 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

291 *cp++ = ']' ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

292 *cp++ = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

293 TRACE_EVENT_P2("%04x: %s", DUMP_LLENGTH * lcount++, dump_buf) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

294 size -= DUMP_LLENGTH ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

295 data += DUMP_LLENGTH ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

296 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

297 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

298

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

299

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

300 /** Build a string, characterizing a process, suitable for tracing. The string

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

301 * is statically allocated and will be overwritten with the next call.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

302 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

303 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

304 * @return The string.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

305 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

306 char *proc_string(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

307 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

308 /* This string must fit the longest possible process string. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

309 static char procstring[sizeof("AP_TCPFORK99(PS_W_DCM_OPEN_ONLY)")] ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

310

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

311 /*lint -e685 (Warning -- Relational operator always evaluates to true) */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

312 sprintf(procstring, "%s%d(%s)",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

313 pcont->ptype <= AP_INVALID ? proc_type_name[pcont->ptype] : "AP_UNKNOWN",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

314 pcont->ptype == AP_TCPFORK ? pcont->f_id : 0,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

315 pcont->pstate <= PS_INVALID ? proc_state_name[pcont->pstate] : "PS_UNKNOWN") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

316 /*lint +e685 (Warning -- Relational operator always evaluates to true) */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

317 return procstring ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

318 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

319

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

320

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

321 /** Converts a numeric IP address in network order into an IP address in

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

322 * dotted decimal string notation. The string returned is statically allocated

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

323 * and will be overwritten on the next call.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

324 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

325 * @param ipaddr The IP address in network order

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

326 * @return String with the IP address in dotted decimal..

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

327 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

328 static char *inet_ntoa(T_SOCK_IPADDR ipaddr)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

329 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

330 U8 *addrbyte ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

331 static char addr_string[sizeof("000.000.000.000")] ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

332

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

333 addrbyte = (U8 *) &ipaddr ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

334 sprintf(addr_string, "%u.%u.%u.%u",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

335 addrbyte[0], addrbyte[1], addrbyte[2], addrbyte[3]) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

336 return addr_string ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

337 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

338

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

339

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

340 /** Converts an IP address in dotted decimal string notation into a numeric IP

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

341 * address in network order.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

342 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

343 * @param addr_string String with the IP address in dotted decimal.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

344 * @return The IP address in network order, or SOCK_IPADDR_ANY if the address

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

345 * string cannot be parsed.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

346 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

347 static T_SOCK_IPADDR inet_aton(char *addr_string)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

348 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

349 T_SOCK_IPADDR ipaddr ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

350 U8 *addrbyte ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

351 int o1, o2, o3, o4 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

352

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

353 if (sscanf(addr_string, "%d.%d.%d.%d", &o1, &o2, &o3, &o4) != 4)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

354 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

355 TRACE_EVENT_P1("cannot parse '%s' as an IP address", addr_string) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

356 return SOCK_IPADDR_ANY ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

357 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

358 addrbyte = (U8 *) &ipaddr ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

359 addrbyte[0] = (U8) o1 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

360 addrbyte[1] = (U8) o2 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

361 addrbyte[2] = (U8) o3 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

362 addrbyte[3] = (U8) o4 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

363

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

364 return ipaddr ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

365 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

366

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

367

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

368 LOCAL char *sock_result_string(T_SOCK_RESULT result)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

369 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

370 switch(result)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

371 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

372 case SOCK_RESULT_OK : return "SOCK_RESULT_OK";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

373 case SOCK_RESULT_INVALID_PARAMETER : return "SOCK_RESULT_INVALID_PARAMETER";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

374 case SOCK_RESULT_INTERNAL_ERROR : return "SOCK_RESULT_INTERNAL_ERROR";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

375 case SOCK_RESULT_ADDR_IN_USE : return "SOCK_RESULT_ADDR_IN_USE";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

376 case SOCK_RESULT_OUT_OF_MEMORY : return "SOCK_RESULT_OUT_OF_MEMORY";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

377 case SOCK_RESULT_NOT_SUPPORTED : return "SOCK_RESULT_NOT_SUPPORTED";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

378 case SOCK_RESULT_UNREACHABLE : return "SOCK_RESULT_UNREACHABLE";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

379 case SOCK_RESULT_CONN_REFUSED : return "SOCK_RESULT_CONN_REFUSED";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

380 case SOCK_RESULT_TIMEOUT : return "SOCK_RESULT_TIMEOUT";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

381 case SOCK_RESULT_IS_CONNECTED : return "SOCK_RESULT_IS_CONNECTED";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

382 case SOCK_RESULT_HOST_NOT_FOUND : return "SOCK_RESULT_HOST_NOT_FOUND";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

383 case SOCK_RESULT_DNS_TEMP_ERROR : return "SOCK_RESULT_DNS_TEMP_ERROR";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

384 case SOCK_RESULT_DNS_PERM_ERROR : return "SOCK_RESULT_DNS_PERM_ERROR";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

385 case SOCK_RESULT_NO_IPADDR : return "SOCK_RESULT_NO_IPADDR";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

386 case SOCK_RESULT_NOT_CONNECTED : return "SOCK_RESULT_NOT_CONNECTED";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

387 case SOCK_RESULT_MSG_TOO_BIG : return "SOCK_RESULT_MSG_TOO_BIG";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

388 case SOCK_RESULT_CONN_RESET : return "SOCK_RESULT_CONN_RESET";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

389 case SOCK_RESULT_CONN_ABORTED : return "SOCK_RESULT_CONN_ABORTED";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

390 case SOCK_RESULT_NO_BUFSPACE : return "SOCK_RESULT_NO_BUFSPACE";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

391 case SOCK_RESULT_NETWORK_LOST : return "SOCK_RESULT_NETWORK_LOST";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

392 case SOCK_RESULT_NOT_READY : return "SOCK_RESULT_NOT_READY";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

393 case SOCK_RESULT_BEARER_NOT_READY : return "SOCK_RESULT_BEARER_NOT_READY";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

394 case SOCK_RESULT_IN_PROGRESS : return "SOCK_RESULT_IN_PROGRESS";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

395 case SOCK_RESULT_BEARER_ACTIVE : return "SOCK_RESULT_BEARER_ACTIVE";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

396 default : return "<INVALID SOCKET RESULT!>";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

397 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

398 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

399

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

400

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

401

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

402 /** Trace a specific socket API result code with some context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

403 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

404 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

405 * @param function The function or event that reported the error.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

406 * @param result Socket API result code.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

407 * @return

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

408 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

409 static void sock_trace_result(PROC_CONTEXT_T *pcont, char *function,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

410 T_SOCK_RESULT result)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

411 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

412 if(result NEQ SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

413 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

414 TRACE_ERROR("Sock Result Error");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

415 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

416 TRACE_EVENT_P3("%s: %s for %s", function,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

417 sock_result_string(result), proc_string(pcont));

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

418 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

419

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

420

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

421 /** Return the string for a Socket API event type. We don't have the values

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

422 * under our (i. e. APP's) own control, so we rather do a switch than indexing

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

423 * an array.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

424 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

425 * @param event_type Type of the event.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

426 * @return String for the event type.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

427 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

428 char *sock_event_string(T_SOCK_EVENTTYPE event_type)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

429 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

430 switch (event_type)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

431 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

432 case SOCK_CREATE_CNF: return "SOCK_CREATE_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

433 case SOCK_CLOSE_CNF: return "SOCK_CLOSE_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

434 case SOCK_BIND_CNF: return "SOCK_BIND_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

435 case SOCK_LISTEN_CNF: return "SOCK_LISTEN_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

436 case SOCK_CONNECT_CNF: return "SOCK_CONNECT_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

437 case SOCK_SOCKNAME_CNF: return "SOCK_SOCKNAME_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

438 case SOCK_PEERNAME_CNF: return "SOCK_PEERNAME_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

439 case SOCK_HOSTINFO_CNF: return "SOCK_HOSTINFO_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

440 case SOCK_MTU_SIZE_CNF: return "SOCK_MTU_SIZE_CNF" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

441 case SOCK_RECV_IND: return "SOCK_RECV_IND" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

442 case SOCK_CONNECT_IND: return "SOCK_CONNECT_IND" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

443 case SOCK_CONN_CLOSED_IND: return "SOCK_CONN_CLOSED_IND" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

444 case SOCK_ERROR_IND: return "SOCK_ERROR_IND" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

445 case SOCK_FLOW_READY_IND: return "SOCK_FLOW_READY_IND" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

446 case SOCK_OPEN_BEARER_CNF: return "SOCK_OPEN_BEARER_CNF";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

447 case SOCK_CLOSE_BEARER_CNF: return "SOCK_CLOSE_BEARER_CNF";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

448 case SOCK_BEARER_INFO_CNF: return "SOCK_BEARER_INFO_CNF";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

449 case SOCK_BAERER_CLOSED_IND: return "SOCK_BAERER_CLOSED_IND";

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

450 default: return "<INVALID EVENT>" ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

451 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

452 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

453

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

454

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

455

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

456 /*

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

457 * Process functions.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

458 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

459

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

460 static void proc_shutdown(PROC_CONTEXT_T *pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

461 static void proc_close_socket(PROC_CONTEXT_T *pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

462 static void proc_begin_comm(PROC_CONTEXT_T *pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

463 static void proc_close_conn(PROC_CONTEXT_T *pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

464

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

465

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

466 /** Switch process to a new state. Done mostly to have a single place to trace

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

467 * process state transitions.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

468 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

469 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

470 * @param newstate New state of process.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

471 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

472 static void proc_new_state(PROC_CONTEXT_T *pcont, PROC_STAT_T newstate)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

473 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

474 if (newstate < PS_INVALID)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

475 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

476 TRACE_EVENT_P2("%s -> %s", proc_string(pcont), proc_state_name[newstate]) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

477 pcont->pstate = newstate ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

478 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

479 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

480 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

481 TRACE_EVENT_P2("%s invalid new state %d", proc_string(pcont), newstate) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

482 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

483 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

484 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

485

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

486

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

487 /** Fork a new TCP server process context to handle a TCP client. Return a

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

488 * pointer to the process context or NULL, if no process context is free any

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

489 * more.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

490 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

491 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

492 static PROC_CONTEXT_T *proc_new_tcpfork(PROC_CONTEXT_T *oldp)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

493 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

494 int i ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

495 PROC_CONTEXT_T *pcont ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

496

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

497 TRACE_FUNCTION("proc_new_tcpfork()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

498 for (i = 0; i < APP_N_CLIENTS; i++)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

499 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

500 if (cl_context[i].ptype EQ AP_NONE)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

501 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

502 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

503 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

504 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

505 if (i == APP_N_CLIENTS)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

506 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

507 return NULL ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

508 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

509

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

510 pcont = &cl_context[i] ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

511 memset(pcont, 0, sizeof(*pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

512 pcont->f_id = i ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

513 pcont->ptype = AP_TCPFORK ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

514 pcont->pstate = PS_IDLE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

515 pcont->ipproto = oldp->ipproto ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

516 pcont->server_name = oldp->server_name ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

517 pcont->server_ipaddr = oldp->server_ipaddr ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

518 pcont->server_port = oldp->server_port ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

519 pcont->network_is_open = TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

520 pcont->psocket_is_open = TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

521

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

522 return pcont ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

523 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

524

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

525 /** Free a TCP server process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

526 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

527 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

528 static void proc_free_tcpfork(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

529 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

530 TRACE_FUNCTION("proc_free_tcpfork()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

531 proc_new_state(pcont, PS_IDLE) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

532 memset(pcont, 0, sizeof(*pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

533 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

534

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

535

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

536 static void proc_init(int prov, int size, int reps, APP_PROCTYPE_T ptype,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

537 T_SOCK_IPPROTO ipproto, U16 port)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

538 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

539 T_SOCK_BEARER_INFO bearer_info;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

540 PROC_CONTEXT_T *pcont ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

541 BOOL bear_only = proc_context.bearer_only;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

542

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

543 TRACE_FUNCTION("proc_init()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

544

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

545 pcont = &proc_context ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

546 if (pcont->pstate != PS_IDLE)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

547 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

548 TRACE_ERROR("proc_init: process still active") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

549 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

550 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

551 memset(pcont, 0, sizeof(*pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

552 pcont->bearer_only = bear_only;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

553 pcont->ptype = ptype ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

554 pcont->ipproto = ipproto ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

555 pcont->server_name = (ptype EQ AP_TCPSRV) ? "<myself>" : server_name ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

556 pcont->server_ipaddr = (ptype EQ AP_TCPSRV) ?

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

557 SOCK_IPADDR_ANY : inet_aton(pcont->server_name) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

558 pcont->server_port = HTONS(port) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

559 pcont->spec_items = size ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

560 pcont->spec_reps = reps ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

561 pcont->in_shutdown = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

562

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

563 pcont->psocket = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

564 pcont->network_is_open = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

565 pcont->psocket_is_open = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

566

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

567 TRACE_EVENT_P7("%s for %d bytes %d reps, server %s:%d/%s on %s",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

568 proc_string(pcont), pcont->spec_items, pcont->spec_reps,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

569 inet_ntoa(pcont->server_ipaddr), NTOHS(pcont->server_port),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

570 (ipproto EQ SOCK_IPPROTO_UDP) ? "udp" : "tcp",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

571 sock_bearer_type_string(sock_bearer_type)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

572 app_pstat();

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

573

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

574 // fill connection params

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

575 bearer_info.bearer_handle = sock_bearer_handle;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

576 bearer_info.app_handle = APP_handle;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

577 bearer_info.bearer_type = sock_bearer_type;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

578

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

579 if(sock_bearer_type == SOCK_BEARER_GPRS)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

580 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

581 bearer_info.apn_valid = TRUE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

582 bearer_info.phone_nr_valid = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

583 bearer_info.cid = 1;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

584

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

585 switch(prov)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

586 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

587 case APP_PROV_T_MOBILE:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

588 strcpy(bearer_info.apn, "internet.t-d1.de");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

589 strcpy(bearer_info.user_id, "t-d1");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

590 strcpy(bearer_info.password, "gprs");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

591 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

592

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

593 case APP_PROV_HUTCH:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

594 strcpy(bearer_info.apn, "www");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

595 strcpy(bearer_info.user_id, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

596 strcpy(bearer_info.password, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

597 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

598

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

599 case APP_PROV_AIRTEL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

600 strcpy(bearer_info.apn, "airtelgprs.com");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

601 strcpy(bearer_info.user_id, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

602 strcpy(bearer_info.password, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

603 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

604

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

605 case APP_PROV_CUSTOM:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

606 /* Copy valid APN */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

607 if(custom_apn_valid)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

608 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

609 strcpy(bearer_info.apn, custom_apn);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

610 strcpy(bearer_info.user_id, custom_user_id);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

611 strcpy(bearer_info.password, custom_password);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

612 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

613 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

614 /* Copy default settings for invalid APN settings */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

615

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

616 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

617 strcpy(bearer_info.apn,"web.vodafone.de");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

618 strcpy(bearer_info.user_id, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

619 strcpy(bearer_info.password, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

620 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

621 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

622 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

623 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

624 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

625 bearer_info.phone_nr_valid = TRUE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

626 bearer_info.apn_valid = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

627 bearer_info.cid = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

628 if(prov == APP_PROV_T_MOBILE)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

629 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

630 strcpy(bearer_info.phone_nr, "+491712524120");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

631 strcpy(bearer_info.user_id, "t-d1");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

632 strcpy(bearer_info.password, "wap");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

633 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

634 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

635 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

636 strcpy(bearer_info.phone_nr, "+491722290000");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

637 strcpy(bearer_info.user_id, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

638 strcpy(bearer_info.password, "");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

639 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

640 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

641 bearer_info.user_id_valid = TRUE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

642 bearer_info.password_valid = TRUE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

643

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

644 bearer_info.ip_address = SOCK_IPADDR_ANY;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

645 bearer_info.dns1 = SOCK_IPADDR_ANY;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

646 bearer_info.dns2 = SOCK_IPADDR_ANY;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

647 bearer_info.gateway = SOCK_IPADDR_ANY;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

648 bearer_info.authtype = SOCK_AUTH_NO;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

649 bearer_info.data_compr = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

650 bearer_info.header_comp = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

651 bearer_info.precedence = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

652 bearer_info.delay = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

653 bearer_info.reliability = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

654 bearer_info.peak_throughput = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

655 bearer_info.mean_througput = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

656 bearer_info.shareable = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

657

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

658 sock_open_bearer(sock_api_inst,bearer_select,0,&bearer_info,app_sock_callback,pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

659 if(pcont->bearer_only)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

660 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

661 proc_new_state(pcont, PS_W_DCM_OPEN_ONLY) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

662 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

663 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

664 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

665 proc_new_state(pcont, PS_W_DCM_OPEN) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

666 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

667 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

668

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

669

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

670 static void proc_client_closed(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

671 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

672 T_SOCK_RESULT result ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

673 TRACE_FUNCTION("proc_client_closed()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

674

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

675 result = sock_close(pcont->psocket);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

676 if (result != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

677 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

678 TRACE_EVENT_P1("%s: error closing client socket", proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

679 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

680 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

681 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

682 proc_free_tcpfork(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

683 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

684

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

685

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

686

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

687 /***********************************************************************

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

688 * Communication functions.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

689 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

690

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

691

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

692 /** Fill and send data buffer.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

693 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

694 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

695 * @param size Size of data buffer.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

696 * @return

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

697 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

698 static BOOL comm_send_buffer(PROC_CONTEXT_T *pcont, int size)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

699 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

700 char *payload ; /* Pointer to payload buffer. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

701 char *cp ; /* Pointer into paylaod buffer. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

702 char *pp ; /* Pointer into test pattern. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

703 T_SOCK_RESULT result ; /* Result of send call. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

704

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

705 TRACE_FUNCTION("comm_send_buffer()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

706 MALLOC(payload, size) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

707 TRACE_EVENT_P1("PALLOC payload %x", payload) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

708 /* Fill buffer with pattern. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

709 for (cp = payload, pp = APP_SEND_PATTERN; cp < payload + size; cp++, pp++)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

710 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

711 if (pp >= APP_SEND_PATTERN + sizeof(APP_SEND_PATTERN) - 1)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

712 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

713 pp = APP_SEND_PATTERN ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

714 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

715 *cp = *pp ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

716 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

717 if(pcont->ipproto == SOCK_IPPROTO_UDP)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

718 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

719 // use UDP socket and specify destination IP address and destination port

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

720 result = sock_sendto(pcont->psocket, payload, (U16)size,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

721 pcont->server_ipaddr,pcont->server_port) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

722 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

723 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

724 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

725 result = sock_send(pcont->psocket, payload, (U16)size) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

726 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

727 sock_trace_result(pcont, "sock_send()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

728 MFREE(payload) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

729 switch (result)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

730 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

731 case SOCK_RESULT_OK:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

732 TRACE_EVENT_P6("%s sent %d (%d/%d) bytes in rep %d/%d",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

733 proc_string(pcont), size, pcont->data_sent,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

734 pcont->spec_items,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

735 //* ((pcont->ipproto EQ SOCK_IPPROTO_TCP) ? 1 : size),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

736 pcont->n_reps, pcont->spec_reps) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

737 return TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

738 case SOCK_RESULT_NO_BUFSPACE:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

739 return FALSE ; /* Pause until SOCK_FLOW_READY_IND. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

740 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

741 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

742 return FALSE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

743 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

744 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

745

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

746

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

747 /** Server: send some data to the client.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

748 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

749 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

750 * @return

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

751 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

752 static BOOL comm_send_srvprompt(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

753 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

754 char *payload ; /* Pointer to payload buffer. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

755 int size ; /* Actual size of payload. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

756 T_SOCK_RESULT result ; /* Result of send call. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

757 TRACE_FUNCTION("comm_send_srv()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

758

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

759 MALLOC(payload, 600) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

760 sprintf(payload, "%s: %sin_shutdown, last_evt %s, will %srepeat\n",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

761 proc_string(pcont), pcont->in_shutdown ? "" : "not ",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

762 pcont->last_evt

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

763 ? sock_event_string(pcont->last_evt->event_type) : "NULL",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

764 pcont->spec_reps ? "" : "not ") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

765 sprintf(payload + strlen(payload),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

766 " rx %d B %d pkts, tx %d B %d pkts, errs %d conn %d\n",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

767 pcont->data_rcvd, pcont->items_rcvd,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

768 pcont->data_sent, pcont->items_sent,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

769 pcont->errors, pcont->n_reps) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

770

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

771 size = strlen(payload) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

772 result = sock_send(pcont->psocket, payload, (U16)size) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

773 sock_trace_result(pcont, "sock_send()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

774 MFREE(payload) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

775 switch (result)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

776 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

777 case SOCK_RESULT_OK:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

778 pcont->data_sent += size ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

779 pcont->items_sent++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

780 TRACE_EVENT_P5("%s sent %d (%d/%d) bytes in conn %d",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

781 proc_string(pcont), size, pcont->data_sent,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

782 pcont->spec_items * size,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

783 pcont->n_reps) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

784 return TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

785 case SOCK_RESULT_NO_BUFSPACE:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

786 return FALSE ; /* Pause until SOCK_FLOW_READY_IND. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

787 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

788 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

789 return FALSE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

790 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

791 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

792

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

793

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

794 /** Issue a DNS query. Called for AP_DNSQRY in state PS_COMM.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

795 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

796 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

797 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

798 static void comm_query(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

799 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

800 static int next_query = 0 ; /* Next query index. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

801 char *name ; /* Domain name to query for. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

802 T_SOCK_RESULT result ; /* Result of query call. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

803

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

804 TRACE_FUNCTION("comm_query()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

805 if (query_name[0])

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

806 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

807 name = query_name ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

808 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

809 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

810 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

811 name = domain_name[next_query] ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

812 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

813 TRACE_EVENT_P4("%s: query (%d/%d) for %s", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

814 pcont->items_sent + 1, pcont->spec_items, name) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

815 result = sock_gethostbyname(sock_api_inst, name, app_sock_callback, pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

816 sock_trace_result(pcont, "sock_gethostbyname()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

817 if (result != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

818 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

819 pcont->errors++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

820 TRACE_ERROR("sock_gethostbyname() failed, sleep...") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

821 vsi_t_sleep(VSI_CALLER 2000) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

822 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

823

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

824 if (!domain_name[++next_query])

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

825 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

826 next_query = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

827 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

828 pcont->items_sent++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

829 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

830

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

831

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

832

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

833 /** Send data. Called for all but AP_DNSQRY in state PS_COMM.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

834 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

835 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

836 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

837 static void comm_send(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

838 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

839 TRACE_EVENT_P1("comm_send() %s", proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

840

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

841 switch (pcont->ptype)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

842 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

843 case AP_TCPDL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

844 /* Do nothing -- the server will send again anyway. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

845 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

846 case AP_UDPDL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

847 if (pcont->data_sent >= pcont->spec_items)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

848 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

849 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

850 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

851 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

852 case AP_TCPUL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

853 case AP_UDPUL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

854 if (pcont->data_sent >= pcont->spec_items)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

855 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

856 TRACE_EVENT_P2("%s done after %d bytes",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

857 proc_string(pcont), pcont->data_sent) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

858 proc_close_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

859 pcont->n_reps++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

860 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

861 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

862 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

863 case AP_TCPECHO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

864 case AP_UDPECHO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

865 if (pcont->items_sent >= pcont->spec_items)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

866 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

867 TRACE_EVENT_P2("%s done after %d writes",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

868 proc_string(pcont), pcont->items_sent) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

869 proc_close_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

870 pcont->n_reps++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

871 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

872 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

873 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

874 case AP_DNSQRY:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

875 comm_query(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

876 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

877 case AP_TCPFORK: /* Send some data, perhaps. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

878 switch (pcont->server_port)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

879 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

880 case PORT_CHARGEN: /* Send something (below). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

881 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

882 case PORT_ECHO: /* Send somewhere else. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

883 case PORT_DISCARD: /* Don't send anything. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

884 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

885 default: /* Send a server prompt. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

886 comm_send_srvprompt(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

887 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

888 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

889 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

890 case AP_NONE:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

891 case AP_INVALID:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

892 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

893 TRACE_EVENT_P1("Invalid process type %s", proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

894 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

895 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

896

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

897 if (comm_send_buffer(pcont, buffer_size))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

898 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

899 pcont->items_sent++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

900 TRACE_EVENT_P1("Sent Items: %u",pcont->items_sent);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

901 pcont->data_sent += buffer_size ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

902 vsi_t_sleep(VSI_CALLER udp_interval);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

903 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

904 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

905 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

906 if (pcont->ptype EQ AP_UDPUL)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

907 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

908 TRACE_EVENT_P2("%s sleeps %d ms", proc_string(pcont), udp_interval) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

909 vsi_t_sleep(VSI_CALLER udp_interval);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

910 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

911 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

912 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

913

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

914

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

915 /** Handle an incoming DNS result. Called for AP_DNSQRY in state PS_COMM.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

916 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

917 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

918 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

919 static void comm_dns_result(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

920 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

921 T_SOCK_HOSTINFO_CNF *hinfo ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

922

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

923 TRACE_FUNCTION("comm_dns_result()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

924 pcont->items_rcvd++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

925

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

926 hinfo = (T_SOCK_HOSTINFO_CNF *) pcont->last_evt ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

927 if (hinfo->result != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

928 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

929 TRACE_EVENT_P3("lookup error %d in %d/%d queries",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

930 pcont->errors, pcont->items_rcvd, pcont->spec_items) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

931 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

932 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

933 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

934 TRACE_EVENT_P1("Answer for host %s", hinfo->hostname) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

935 TRACE_EVENT_P3("has address %s (%d/%d)",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

936 inet_ntoa(hinfo->ipaddr),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

937 pcont->items_rcvd, pcont->spec_items) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

938 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

939 if (pcont->items_rcvd < pcont->spec_items)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

940 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

941 comm_send(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

942 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

943 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

944 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

945 proc_close_conn(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

946 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

947 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

948

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

949

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

950 /** Receive incoming data. Called for all but AP_TCPUL in state PS_COMM.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

951 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

952 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

953 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

954 static void comm_recv(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

955 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

956 T_SOCK_RECV_IND *recv_ind = (T_SOCK_RECV_IND *) pcont->last_evt ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

957

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

958 TRACE_FUNCTION("comm_recv()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

959 if (pcont->ptype EQ AP_DNSQRY OR pcont->ptype EQ AP_TCPUL)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

960 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

961 TRACE_EVENT_P2("%s: %s unexpected for ptype", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

962 sock_event_string(pcont->last_evt->event_type)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

963 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

964 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

965 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

966 pcont->data_rcvd += recv_ind->data_length ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

967 pcont->items_rcvd++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

968 TRACE_EVENT_P5("%s: recv #%d:%u bytes, total %u, total items sent:%u", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

969 pcont->items_rcvd, recv_ind->data_length, pcont->data_rcvd,pcont->items_sent);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

970 trace_dump_data((U8 *) recv_ind->data_buffer,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

971 MIN(APP_DATA_DUMP_LENGTH, recv_ind->data_length)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

972 MFREE(recv_ind->data_buffer) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

973 recv_ind->data_buffer = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

974 switch (pcont->ptype)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

975 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

976 case AP_UDPDL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

977 /* After every sent UDP packet, a "answer" comes from the Chargen server.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

978 * If all packets are sent we are waiting for the last packet to

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

979 * receive, else an unexpected event would be the result in the

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

980 * "app_sock_callback()"; TCPIP_DATA_IND is received instead of SOCK_CLOSE_CNF

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

981 * TODO: why (pcont->items_sent-1), I assume that the server "confirms"

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

982 * every packet

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

983 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

984 if ((pcont->data_sent >= pcont->spec_items) &&

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

985 (pcont->items_rcvd == pcont->items_sent))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

986 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

987 TRACE_EVENT("last UDP-DL packet received");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

988 pcont->n_reps++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

989 proc_close_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

990 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

991 else {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

992 comm_send(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

993 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

994 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

995 case AP_TCPDL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

996 if (pcont->data_rcvd >= pcont->spec_items)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

997 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

998 TRACE_EVENT_P3("%s done after %d/%d bytes",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

999 proc_string(pcont), pcont->data_rcvd,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1000 pcont->spec_items) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1001 pcont->n_reps++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1002 proc_close_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1003 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1004 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1005 case AP_UDPECHO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1006 case AP_TCPECHO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1007 case AP_TCPFORK:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1008 comm_send(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1009 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1010 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1011 TRACE_ERROR("Unexpected ptype in comm_recv()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1012 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1013 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1014 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1015

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1016

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1017 /** Handle a communication event according to the process type. Called for all

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1018 * process types in state PS_COMM.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1019 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1020 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1021 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1022 static void comm_event(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1023 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1024 TRACE_FUNCTION("comm_event()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1025

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1026 switch (pcont->last_evt->event_type)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1027 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1028 case SOCK_CONN_CLOSED_IND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1029 if (pcont->ptype EQ AP_TCPFORK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1030 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1031 proc_client_closed(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1032 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1033 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1034 /*lint -fallthrough */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1035 case SOCK_ERROR_IND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1036 TRACE_EVENT_P2("%s: %s, shutdown", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1037 sock_event_string(pcont->last_evt->event_type)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1038 // server should not reset , even if connection is reset by client.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1039 // but client should shutdown , if connection is reset by server.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1040 if((pcont->ptype EQ AP_TCPFORK) AND

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1041 (pcont->last_evt->result == SOCK_RESULT_CONN_RESET OR

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1042 pcont->last_evt->result == SOCK_RESULT_TIMEOUT))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1043 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1044 proc_client_closed(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1045 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1046 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1047 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1048 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1049 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1050 case SOCK_RECV_IND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1051 comm_recv(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1052 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1053 case SOCK_FLOW_READY_IND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1054 if(pcont->ptype NEQ AP_UDPDL) {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1055 comm_send(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1056 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1057 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1058 case SOCK_HOSTINFO_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1059 if (pcont->ptype EQ AP_DNSQRY) {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1060 comm_dns_result(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1061 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1062 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1063 /*lint -fallthrough */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1064 case SOCK_CREATE_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1065 case SOCK_CLOSE_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1066 case SOCK_BIND_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1067 case SOCK_LISTEN_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1068 case SOCK_CONNECT_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1069 case SOCK_SOCKNAME_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1070 case SOCK_PEERNAME_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1071 case SOCK_MTU_SIZE_CNF:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1072 case SOCK_CONNECT_IND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1073 TRACE_EVENT_P2("%s: %s unexpected at all", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1074 sock_event_string(pcont->last_evt->event_type)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1075 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1076 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1077 case SOCK_BAERER_CLOSED_IND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1078 proc_shutdown(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1079 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1080 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1081 TRACE_EVENT_P2("comm_event(): %s unknown event %d",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1082 proc_string(pcont), pcont->last_evt->event_type) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1083 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1084 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1085 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1086 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1087

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1088

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1089

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1090 /***********************************************************************

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1091 * State machine functions (i. e. state-changing functions)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1092 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1093

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1094 /** Finish the process after the network connection has been closed.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1095 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1096 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1097 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1098 static void proc_finish(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1099 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1100 TRACE_EVENT_P1("%s finished", proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1101 pcont->network_is_open = FALSE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1102 pcont->in_shutdown = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1103 proc_new_state(pcont, PS_IDLE) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1104 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1105

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1106

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1107 /** Shutdown process hard, usually after an error or user request. This

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1108 * includes closing the process's socket and network connection.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1109 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1110 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1111 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1112 static void proc_shutdown(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1113 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1114 TRACE_FUNCTION("proc_shutdown()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1115

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1116 if(pcont->in_shutdown)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1117 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1118 TRACE_EVENT("Allready in shutdown");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1119 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1120 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1121 pcont->in_shutdown = TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1122 app_pstat() ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1123 if (pcont->psocket_is_open)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1124 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1125 proc_close_socket(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1126 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1127 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1128 if (pcont->network_is_open OR

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1129 pcont->pstate == PS_W_DCM_OPEN OR pcont->pstate == PS_W_DCM_OPEN_ONLY)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1130 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1131 proc_close_conn(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1132 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1133 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1134 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1135 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1136 proc_finish(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1137 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1138 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1139

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1140

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1141 /** Create a socket after the network connection has been established.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1142 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1143 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1144 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1145 static void proc_open_socket(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1146 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1147 T_SOCK_RESULT result ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1148

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1149 TRACE_FUNCTION("proc_open_socket()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1150 /* We don't need to do this for the DNS query process. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1151 if (pcont->ptype EQ AP_DNSQRY)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1152 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1153 proc_begin_comm(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1154 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1155 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1156 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1157 result = sock_create(sock_api_inst, pcont->ipproto, app_sock_callback, pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1158 if (result NEQ SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1159 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1160 sock_trace_result(pcont, "sock_create()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1161 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1162 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1163 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1164 proc_new_state(pcont, PS_W_CREAT) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1165 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1166 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1167

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1168

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1169 /** Close the network connection after the task has been done.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1170 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1171 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1172 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1173 static void proc_close_conn(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1174 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1175

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1176

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1177 TRACE_FUNCTION("proc_close_conn()");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1178 if(pcont->network_is_open)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1179 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1180 pcont->in_shutdown = TRUE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1181 sock_close_bearer(sock_api_inst, sock_bearer_handle, app_sock_callback, pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1182 proc_new_state(pcont, PS_W_DCLOS) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1183 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1184 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1185 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1186 proc_finish(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1187 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1188 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1189

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1190

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1191 /** Connect the socket after it has been created.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1192 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1193 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1194 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1195 static void proc_connect_socket(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1196 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1197 T_SOCK_RESULT result ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1198

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1199 TRACE_FUNCTION("proc_connect_socket()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1200 /* If we do not yet have an IP address to connect to, look it up first. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1201 if (pcont->server_ipaddr EQ SOCK_IPADDR_ANY)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1202 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1203 result = sock_gethostbyname(sock_api_inst, pcont->server_name,app_sock_callback, pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1204 if (result NEQ SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1205 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1206 sock_trace_result(pcont, "sock_gethostbyname()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1207 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1208 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1209 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1210 proc_new_state(pcont, PS_W_DNS) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1211 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1212 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1213

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1214 result = sock_connect(pcont->psocket, pcont->server_ipaddr, pcont->server_port);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1215 if (result NEQ SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1216 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1217 sock_trace_result(pcont, "sock_connect()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1218 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1219 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1220 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1221 proc_new_state(pcont, PS_W_SCONN) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1222 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1223

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1224

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1225 /** Begin communicating after the socket has been created.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1226 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1227 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1228 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1229 static void proc_begin_comm(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1230 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1231 TRACE_FUNCTION("proc_begin_comm()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1232

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1233 proc_new_state(pcont, PS_COMM) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1234 switch (pcont->ptype)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1235 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1236 case AP_TCPDL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1237 /* We wait for data from the server to arrive. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1238 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1239 case AP_UDPDL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1240 /* Trigger the chargen server to send fisrt UDP packet */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1241 comm_send(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1242 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1243 case AP_TCPUL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1244 case AP_UDPUL:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1245 case AP_TCPECHO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1246 case AP_UDPECHO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1247 case AP_DNSQRY:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1248 case AP_TCPFORK:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1249 comm_send(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1250 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1251 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1252 TRACE_EVENT_P2("%s unknown state (%d)",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1253 proc_string (pcont), pcont->ptype) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1254 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1255 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1256 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1257

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1258

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1259 /** Close the socket after the requested communication has been done.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1260 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1261 * @param pcont Pointer to process context.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1262 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1263 static void proc_close_socket(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1264 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1265 TRACE_FUNCTION("proc_close_socket()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1266

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1267 sock_close(pcont->psocket) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1268 proc_new_state(pcont, PS_W_SCLOS) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1269 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1270

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1271

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1272 static void proc_bind_socket(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1273 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1274 T_SOCK_RESULT result ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1275 TRACE_FUNCTION("proc_bind_socket()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1276

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1277 if ((result = sock_bind(pcont->psocket, pcont->server_port))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1278 != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1279 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1280 sock_trace_result(pcont, "sock_bind()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1281 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1282 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1283 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1284 proc_new_state(pcont, PS_W_BIND) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1285 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1286

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1287

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1288 static void proc_listen(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1289 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1290 T_SOCK_RESULT result ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1291 TRACE_FUNCTION("proc_listen()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1292

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1293 if ((result = sock_listen(pcont->psocket)) != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1294 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1295 sock_trace_result(pcont, "sock_listen()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1296 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1297 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1298 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1299 proc_new_state(pcont, PS_W_LISTN) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1300 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1301

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1302

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1303 static void proc_incoming(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1304 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1305 T_SOCK_CONNECT_IND *conn_ind ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1306 PROC_CONTEXT_T *newp ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1307 T_SOCK_RESULT result ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1308 TRACE_FUNCTION("proc_incoming()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1309

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1310 conn_ind = (T_SOCK_CONNECT_IND *) pcont->last_evt ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1311

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1312 if ((newp = proc_new_tcpfork(pcont)) EQ NULL)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1313 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1314 TRACE_EVENT_P1("%s: failed to fork server, close new socket",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1315 proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1316 sock_close(conn_ind->new_socket) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1317 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1318 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1319

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1320 /* We cannot make two calls to proc_string() without one overwriting the

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1321 * other, so we print the process strings in two successive traces. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1322 TRACE_EVENT_P1("%s: forking to handle client connection...",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1323 proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1324 TRACE_EVENT_P1("...forked process is %s", proc_string(newp)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1325 newp->psocket = conn_ind->new_socket ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1326 sock_set_callback(newp->psocket, app_sock_callback, newp) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1327 TRACE_EVENT_P3("%s connection from %s:%d, looking up...", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1328 inet_ntoa(conn_ind->peer_ipaddr), NTOHS(conn_ind->peer_port)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1329 if ((result = sock_gethostbyaddr(sock_api_inst, conn_ind->peer_ipaddr,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1330 app_sock_callback, newp))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1331 != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1332 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1333 sock_trace_result(newp, "sock_gethostbyaddr()", result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1334 proc_shutdown(newp) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1335 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1336 return;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1337 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1338 proc_new_state(newp, PS_W_DNS) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1339 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1340

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1341

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1342 static void proc_hostinfo_recvd(PROC_CONTEXT_T *pcont)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1343 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1344 T_SOCK_HOSTINFO_CNF *hinfo ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1345 TRACE_FUNCTION("proc_hostinfo_recvd()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1346

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1347 hinfo = (T_SOCK_HOSTINFO_CNF *) pcont->last_evt ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1348 if (hinfo->result != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1349 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1350 sock_trace_result(pcont, "SOCK_HOSTINFO_CNF", hinfo->result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1351 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1352 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1353 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1354 TRACE_EVENT_P3("%s: connected peer is %s (%s)", proc_string(pcont),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1355 hinfo->hostname, inet_ntoa(hinfo->ipaddr)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1356 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1357 proc_begin_comm(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1358 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1359

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1360

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1361

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1362 /*==== Exported functions ====================================================*/

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1363

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1364

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1365 /** Initialize the application core.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1366 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1367 * @param handle own communication handle

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1368 * @return PEI_OK/PEI_ERROR depending on the success of the initialization.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1369 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1370 BOOL app_initialize_tcpip(T_HANDLE app_handle)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1371 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1372 TRACE_FUNCTION("app_initialize_tcpip()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1373 memset(&proc_context, 0, sizeof(proc_context)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1374 return PEI_OK ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1375 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1376

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1377

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1378 /* Macro for checking the Socket API events in app_sock_callback(). */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1379 #define CHECK_SOCK_EVT(evttype) \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1380 { \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1381 if (event->event_type != evttype) \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1382 { \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1383 TRACE_ERROR("unexpected event type waiting for " #evttype) ; \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1384 proc_shutdown(pcont) ; \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1385 break ; \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1386 } \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1387 if (event->result != SOCK_RESULT_OK) \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1388 { \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1389 if(pcont->pstate == PS_W_DCM_OPEN OR \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1390 pcont->pstate == PS_W_DCM_OPEN_ONLY) \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1391 { proc_new_state(pcont, PS_IDLE); } \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1392 proc_shutdown(pcont) ; \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1393 break ; \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1394 } \

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1395 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1396

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1397

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1398 /** Socket callback function as specified in the Socket API.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1399 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1400 * @param event Pointer to event struct passed by API.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1401 * @param context Pointer to application context (here: process context)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1402 * @return

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1403 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1404 void app_sock_callback(T_SOCK_EVENTSTRUCT *event, void *context)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1405 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1406 PROC_CONTEXT_T *pcont ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1407 T_SOCK_BEARER_INFO_CNF *info;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1408

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1409 TRACE_FUNCTION("app_sock_callback()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1410

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1411 pcont = (PROC_CONTEXT_T *)context ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1412 pcont->last_evt = event ; /* Save event in process context. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1413

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1414 sock_trace_result(pcont, sock_event_string(event->event_type),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1415 event->result) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1416 if (event->result != SOCK_RESULT_OK)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1417 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1418 pcont->errors++ ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1419 if(event->result == SOCK_RESULT_NETWORK_LOST)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1420 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1421 pcont->network_is_open = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1422 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1423 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1424 switch (pcont->pstate) /* Do a preliminary check of the event. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1425 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1426 case PS_W_DCM_OPEN: /* Waiting for DCM to open connection. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1427 CHECK_SOCK_EVT(SOCK_OPEN_BEARER_CNF);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1428

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1429 // FST: can't be evaluated-> see makro CHECK_SOCK_EVT

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1430 if (event->result != SOCK_RESULT_OK AND

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1431 event->result != SOCK_RESULT_BEARER_ACTIVE)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1432 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1433 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1434 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1435 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1436 if (pcont->network_is_open)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1437 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1438 TRACE_ERROR("SOCK_OPEN_BEARER_CNF received but pcont->network_is_open") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1439 proc_shutdown(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1440 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1441 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1442 pcont->network_is_open = TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1443 proc_open_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1444 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1445

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1446 case PS_W_DCM_OPEN_ONLY:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1447 CHECK_SOCK_EVT(SOCK_OPEN_BEARER_CNF);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1448 pcont->network_is_open = TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1449 proc_new_state(pcont, PS_DCM_OPEN);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1450 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1451

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1452 case PS_W_DCLOS: /* Waiting for DCM to close connection. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1453 CHECK_SOCK_EVT(SOCK_CLOSE_BEARER_CNF);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1454

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1455 if (!pcont->network_is_open AND pcont->pstate != PS_IDLE)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1456 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1457 TRACE_ERROR("DCM_CONN_CLOSED received but !pcont->network_is_open") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1458 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1459 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1460 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1461 proc_finish(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1462 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1463

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1464 case PS_W_CONN_INFO:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1465 CHECK_SOCK_EVT(SOCK_BEARER_INFO_CNF);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1466

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1467 info = (T_SOCK_BEARER_INFO_CNF *)event;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1468 app_print_conn_info(info);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1469

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1470 TRACE_EVENT("SOCK_BEARER_INFO_CNF received");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1471 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1472

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1473 case PS_W_CREAT: /* Waiting for socket create confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1474 CHECK_SOCK_EVT(SOCK_CREATE_CNF) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1475 pcont->psocket = event->socket ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1476 pcont->psocket_is_open = TRUE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1477 if (pcont->ptype EQ AP_TCPSRV)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1478 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1479 proc_bind_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1480 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1481 else if(pcont->ipproto == SOCK_IPPROTO_TCP)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1482 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1483 proc_connect_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1484 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1485 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1486 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1487 // This is not possible in the moment because the RNET_API does not

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1488 // provide a sendto() function. Therefore it is is only possible to sent

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1489 // via "connected" UDP sockets.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1490 // TODO: if the next statement will be enabled the "proc_connect_socket()" has to be removed!!

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1491 // proc_begin_comm(pcont);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1492 proc_connect_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1493 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1494 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1495

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1496 case PS_W_BIND:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1497 CHECK_SOCK_EVT(SOCK_BIND_CNF) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1498 proc_listen(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1499 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1500

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1501 case PS_W_LISTN:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1502 CHECK_SOCK_EVT(SOCK_LISTEN_CNF) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1503 app_pstat() ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1504 proc_new_state(pcont, PS_LISTENS) ; /* Nothing more to do here. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1505 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1506

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1507 case PS_LISTENS: /* SOCK_CONNECT_IND or SOCK_CLOSE_CNF */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1508 if (event->event_type EQ SOCK_CONNECT_IND)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1509 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1510 proc_incoming(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1511 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1512 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1513

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1514 case PS_W_DNS:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1515 /* After sending connect confirm to client, client will send data to server

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1516 and server is dnsquerying now , server will be shutdown ,here Unfortunately..

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1517 but we want to exchange data happily, so this code is added.... */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1518 if((event->event_type == SOCK_RECV_IND) AND (pcont->ptype == AP_TCPFORK))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1519 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1520

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1521 CHECK_SOCK_EVT(SOCK_HOSTINFO_CNF) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1522 proc_hostinfo_recvd(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1523 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1524

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1525 case PS_W_SCONN: /* Waiting for socket connect confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1526 CHECK_SOCK_EVT(SOCK_CONNECT_CNF) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1527 proc_begin_comm(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1528 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1529

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1530 case PS_COMM: /* Happily exchanging data. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1531 comm_event(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1532 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1533

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1534 case PS_W_SCLOS: /* Waiting for socket close confirmation. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1535 CHECK_SOCK_EVT(SOCK_CLOSE_CNF) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1536

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1537 pcont->psocket_is_open = FALSE ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1538 pcont->psocket = 0;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1539 app_pstat() ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1540 if (pcont->n_reps >= pcont->spec_reps OR

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1541 pcont->in_shutdown)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1542 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1543 proc_close_conn(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1544 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1545 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1546 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1547 pcont->data_sent = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1548 pcont->data_rcvd = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1549 pcont->items_sent = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1550 pcont->items_rcvd = 0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1551 proc_open_socket(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1552 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1553 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1554

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1555 case PS_IDLE: /* Initial state, process not running. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1556 TRACE_EVENT_P2("app_sock_callback(): %s receives %s (ignored)",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1557 proc_string(pcont), sock_event_string(event->event_type)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1558 break ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1559

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1560 case PS_DCM_OPEN:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1561 if(event->event_type == SOCK_BAERER_CLOSED_IND)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1562 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1563 TRACE_ERROR("SOCK_BAERER_CLOSED_IND -> Shutdown");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1564 if(event->result == SOCK_RESULT_NETWORK_LOST)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1565 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1566 pcont->network_is_open = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1567 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1568 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1569 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1570 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1571

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1572 case PS_INVALID: /* Invalid state. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1573 TRACE_EVENT_P1("app_sock_callback(): %s invalid state", proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1574 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1575

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1576 default:

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1577 TRACE_ERROR("app_sock_callback(): Default Statement");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1578 break;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1579 /*

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1580 if(event->event_type == SOCK_DCM_ERR_IND)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1581 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1582 TRACE_ERROR("SOCK_DCM_ERR_IND -> Shutdown");

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1583 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1584 proc_shutdown(pcont) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1585 return ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1586 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1587 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1588 /* Free data buffer if it has not been freed yet. */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1589 if ( (event->event_type EQ SOCK_RECV_IND) AND

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1590 ((T_SOCK_RECV_IND *) event)->data_buffer )

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1591 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1592 MFREE(((T_SOCK_RECV_IND *) event)->data_buffer) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1593 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1594 pcont->last_evt = NULL ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1595 TRACE_EVENT_P1("leave app_sock_callback() for %s", proc_string(pcont)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1596 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1597

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1598

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1599

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1600 /*

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1601 * Application command functions.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1602 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1603

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1604

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1605 /** Start a data communication process of the appropriate type..

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1606 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1607 * @param size Amount of data to download or number of items to transfer.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1608 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1609 void app_start_tcpdl(int prov, int size, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1610 { proc_init(prov, size, reps, AP_TCPDL, SOCK_IPPROTO_TCP,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1611 port_number ? port_number : PORT_CHARGEN) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1612

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1613 void app_start_tcpul(int prov, int size, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1614 { proc_init(prov, size, reps, AP_TCPUL, SOCK_IPPROTO_TCP,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1615 port_number ? port_number : PORT_DISCARD) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1616

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1617 void app_start_udpdl(int prov, int size, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1618 { proc_init(prov, size, reps, AP_UDPDL, SOCK_IPPROTO_UDP,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1619 port_number ? port_number : PORT_CHARGEN) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1620

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1621 void app_start_udpul(int prov, int size, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1622 { proc_init(prov, size, reps, AP_UDPUL, SOCK_IPPROTO_UDP,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1623 port_number ? port_number : PORT_DISCARD) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1624

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1625 void app_start_tcpecho(int prov, int items, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1626 { proc_init(prov, items, reps, AP_TCPECHO, SOCK_IPPROTO_TCP,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1627 port_number ? port_number : PORT_ECHO) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1628

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1629 void app_start_udpecho(int prov, int items, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1630 { proc_init(prov, items, reps, AP_UDPECHO, SOCK_IPPROTO_UDP,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1631 port_number ? port_number : PORT_ECHO) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1632

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1633 void app_start_dnsquery(int prov, int times, char *address)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1634 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1635 if (address)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1636 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1637 strncpy(query_name, address, FQDN_LENGTH) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1638 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1639 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1640 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1641 query_name[0] =0 ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1642 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1643 proc_init(prov, times,1, AP_DNSQRY,(T_SOCK_IPPROTO)0, 0) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1644 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1645

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1646 void app_start_tcpsrv(int prov, int port, int repeat)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1647 { proc_init(prov, 0, repeat, AP_TCPSRV, SOCK_IPPROTO_TCP, port) ; }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1648

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1649

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1650

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1651 /** Shutdown the specified process.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1652 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1653 * @param pid Process ID.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1654 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1655 void app_shutdown(void)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1656 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1657 TRACE_FUNCTION("app_shutdown()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1658 proc_shutdown(&proc_context) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1659 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1660

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1661

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1662 /** Set the current server name or IP address.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1663 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1664 * @param server Name or IP address (in dotted decimal notation) of server.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1665 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1666 void app_server(char *server)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1667 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1668 if (server)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1669 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1670 strncpy(server_name, server, FQDN_LENGTH) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1671 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1672 TRACE_EVENT_P1("server_name is %s", server_name) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1673 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1674

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1675

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1676 /** Set or show the current buffer size.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1677 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1678 * @param bufsize size of buffer as a string or NULL

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1679 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1680 void app_buffer(char *bufsize)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1681 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1682 if (bufsize)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1683 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1684 buffer_size = atoi(bufsize) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1685 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1686 TRACE_EVENT_P1("buffer_size is %d", buffer_size) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1687 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1688

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1689

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1690 /** Set or show the current buffer size.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1691 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1692 * @param port port number override

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1693 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1694 void app_port(char *port)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1695 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1696 if (port)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1697 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1698 port_number = (U16) atoi(port) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1699 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1700 if (port_number)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1701 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1702 TRACE_EVENT_P1("port number override is %d", port_number) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1703 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1704 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1705 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1706 TRACE_EVENT("standard port numbers used") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1707 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1708 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1709

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1710

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1711 /** Set or show the current bearer type.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1712 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1713 * @param bearer bearer type

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1714 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1715 void app_bearer(char *bearer)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1716 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1717 if (bearer)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1718 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1719 if (!strcmp(string_to_lower(bearer), "any"))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1720 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1721 sock_bearer_type = SOCK_BEARER_ANY;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1722 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1723 else if (!strcmp(string_to_lower(bearer), "gprs"))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1724 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1725 sock_bearer_type = SOCK_BEARER_GPRS ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1726 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1727 else if (!strcmp(string_to_lower(bearer), "gsm"))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1728 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1729 sock_bearer_type = SOCK_BEARER_GSM;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1730 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1731 else if (!strcmp(string_to_lower(bearer), "prof"))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1732 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1733 sock_bearer_type = SOCK_BEARER_USE_PROFILE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1734 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1735 else if (!strcmp(string_to_lower(bearer), "spec"))

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1736 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1737 sock_bearer_type = SOCK_BEARER_AS_SPECIFIED;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1738 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1739

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1740 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1741 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1742 TRACE_EVENT_P1("bearer type %s unknown", bearer) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1743 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1744 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1745 TRACE_EVENT_P1("bearer type is %s", sock_bearer_type_string(sock_bearer_type)) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1746 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1747

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1748

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1749 /** Trace information about the process.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1750 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1751 void app_pstat(void)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1752 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1753 PROC_CONTEXT_T *pcont ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1754

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1755 TRACE_FUNCTION("app_pstat()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1756

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1757 pcont = &proc_context ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1758 TRACE_EVENT_P3("%s in_shutdown %d last_evt %08x",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1759 proc_string(pcont), pcont->in_shutdown, pcont->last_evt) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1760 TRACE_EVENT_P6("prot %d srv %s %s:%d sp_it %d sp_rep %d",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1761 pcont->ipproto,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1762 pcont->server_name ? pcont->server_name : "",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1763 inet_ntoa(pcont->server_ipaddr),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1764 NTOHS(pcont->server_port),

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1765 pcont->spec_items,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1766 pcont->spec_reps) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1767 TRACE_EVENT_P6("dta tx %d dta rx %d it tx %d it rx %d rep %d errs %d",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1768 pcont->data_sent,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1769 pcont->data_rcvd,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1770 pcont->items_sent,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1771 pcont->items_rcvd,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1772 pcont->n_reps,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1773 pcont->errors) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1774 TRACE_EVENT_P5("Socket descr: %x, %sNetwork%s, %spSocket%s",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1775 pcont->psocket,

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1776 pcont->network_is_open ? "" : "no ",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1777 pcont->network_is_open ? " open" : "",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1778 pcont->psocket_is_open ? "" : "no ",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1779 pcont->psocket_is_open ? " open" : "") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1780 TRACE_EVENT_P4("global: server %s query %s buffer %d port %d",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1781 server_name, query_name, buffer_size, port_number) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1782 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1783

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1784

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1785 /** Make the application stop or continue receiving data from the network by

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1786 * calling the xoff or xon function, respectively.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1787 *

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1788 * @param flow_on if non-zero, switch flow on; off otherwise.

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1789 */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1790 void app_switch_flow(int flow_on)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1791 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1792 PROC_CONTEXT_T *pcont = &proc_context ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1793 TRACE_FUNCTION("app_switch_flow()") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1794

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1795 if (flow_on)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1796 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1797 TRACE_EVENT("switching socket to xon") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1798 sock_flow_xon(pcont->psocket) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1799 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1800 else

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1801 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1802 TRACE_EVENT("switching socket to xoff") ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1803 sock_flow_xoff(pcont->psocket) ;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1804 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1805 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1806

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1807

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1808 LOCAL void app_print_conn_info(T_SOCK_BEARER_INFO_CNF *info)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1809 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1810 TRACE_EVENT_P1("BearerType: %s",

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1811 sock_bearer_type_string(info->bearer_params.bearer_type));

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1812 TRACE_EVENT_P1("APN: %s", info->bearer_params.apn);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1813 TRACE_EVENT_P1("PhoneNumber: %s", info->bearer_params.phone_nr);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1814 TRACE_EVENT_P1("UserId: %s", info->bearer_params.user_id);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1815 TRACE_EVENT_P1("Password: %s", info->bearer_params.password);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1816 TRACE_EVENT_P1("IP-Address: %s", inet_ntoa(info->bearer_params.ip_address));

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1817 TRACE_EVENT_P1("DNS1-Address: %s", inet_ntoa(info->bearer_params.dns1));

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1818 TRACE_EVENT_P1("DNS2-Address: %s", inet_ntoa(info->bearer_params.dns2));

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1819 TRACE_EVENT_P1("Gateway-Address: %s", inet_ntoa(info->bearer_params.gateway));

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1820 TRACE_EVENT_P1("CID: %d",info->bearer_params.cid);

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1821 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1822

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1823

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1824

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1825 void app_open_bearer(int prov, int size, int reps)

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1826 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1827 proc_context.bearer_only = TRUE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1828 proc_init(prov, size, reps, AP_NONE, SOCK_IPPROTO_TCP, port_number );

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1829 proc_context.bearer_only = FALSE;

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1830

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1831 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1832

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1833 void app_close_bearer()

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1834 {

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1835 app_shutdown();

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1836 }

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1837

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1838

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1839 #endif /* FF_GPF_TCPIP */

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1840

90eb61ecd093 src/g23m-fad: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1841 /* EOF */

FreeCalypso > hg > fc-magnetite

annotate src/g23m-fad/app/app_core.c @ 174:90eb61ecd093