FreeCalypso > hg > fc-magnetite
annotate src/g23m-fad/app/app_gdd.c @ 482:ad7f986afae3
pass -DCHIPSET and -DBOARD for all TCS3.2 components
| author | Mychaela Falconia <falcon@freecalypso.org> | 
|---|---|
| date | Tue, 19 Jun 2018 17:03:34 +0000 | 
| parents | 90eb61ecd093 | 
| children | 
| rev | line source | 
|---|---|
| 
174
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1 /* | 
| 
 
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_gdd.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 2004 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 : Test functions for testing the GDD interface -- command parser. | 
| 
 
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 #define APP_GDD_C | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
22 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
23 /*==== INCLUDES =============================================================*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
24 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
25 #include "app_util.h" | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
26 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
27 #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
 | 
28 #include <ctype.h> | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
29 #include <stdlib.h> | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
30 #ifndef _SIMULATION_ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
31 #endif /* _SIMULATION_ */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
32 #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
 | 
33 #ifndef _SIMULATION_ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
34 #include "custom.h" | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
35 #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
 | 
36 #include "tools.h" /* Common tools. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
37 #endif /* _SIMULATION_ */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
38 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
39 #include "../gdd_dio/gdd.h" | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
40 #include "../gdd_dio/gdd_dio.h" | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
41 #include "../gdd_dio/dio_il_psi_stub.h" /* for DIO buffer manipulation functions */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
42 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
43 /*==== Local defines =========================================================*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
44 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
45 /* Some bogus con handle */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
46 #define TEST_CON_HANDLE 1 | 
| 
 
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 /* Max number of test connections required */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
49 #define TEST_MAX_CON 4 | 
| 
 
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 | 
| 
 
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 * Command handler | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
54 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
55 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
56 /* The base GDD interface functions */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
57 static char *app_gdd_init(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
58 static char *app_gdd_deinit(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
59 static char *app_gdd_connect(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
60 static char *app_gdd_disconnect(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
61 static char *app_gdd_get_send_buffer(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
62 static char *app_gdd_send_data(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
63 static char *app_gdd_receive_data(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
64 static char *app_gdd_sig_ready_rcv(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
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 /* More complex test functions encapsulated in functions */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
67 static char *app_gdd_init_test_parms(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
68 static char *app_gdd_deinit_test_parms(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
69 static char *app_gdd_connect_test_parms(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
70 static char *app_gdd_disconnect_test_parms(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
71 static char *app_gdd_get_send_buffer_test_parms(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
72 static char *app_gdd_send_data_test_parms(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
73 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
74 static char *app_gdd_immediate_disconnect(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
75 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
76 #ifdef WIN32 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
77 /* This function uses psi stub functions which are only available in simulation testing */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
78 static char *app_gdd_test_sig_sbuf_avail(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
79 #endif /* WIN32 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
80 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
81 /*extern char *app_gdd_sys_test(app_cmd_entry_t *, int, char * [], core_func_t) ;*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
82 static char *app_gdd_test_helper_functions(app_cmd_entry_t *, int, char * [], core_func_t) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
83 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
84 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
85 * Core functions (to be called by the command handler, if applicable) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
86 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
87 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
88 /* -- No core functions required for now */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
89 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
90 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
91 /* Command handler table. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
92 static app_cmd_entry_t app_gdd_cmd_table[] = { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
93 /* Commands that trigger the basic GDD API functions */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
94 { "gdd_init", (cmd_handler_t)app_gdd_init, (core_func_t)0, "[BAT|APP] {HowManyCon} [NO|YES]" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
95 { "gdd_deinit", (cmd_handler_t)app_gdd_deinit, (core_func_t)0, "[BAT|APP]" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
96 { "gdd_connect", (cmd_handler_t)app_gdd_connect, (core_func_t)0, "[BAT|APP]" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
97 { "gdd_disconnect", (cmd_handler_t)app_gdd_disconnect, (core_func_t)0, "{ConNum}" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
98 { "gdd_get_send_buffer", (cmd_handler_t)app_gdd_get_send_buffer, (core_func_t)0, "{ConNum} {NumBytes}" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
99 { "gdd_test_send_data", (cmd_handler_t)app_gdd_send_data, (core_func_t)0, "{ConNum} {NumBytes}" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
100 { "gdd_test_receive_data",(cmd_handler_t)app_gdd_receive_data, (core_func_t)0, "{ConNum} {NumBytes}" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
101 { "gdd_sig_ready_rcv", (cmd_handler_t)app_gdd_sig_ready_rcv, (core_func_t)0, "{ConNum}" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
102 /* Commands that test the input parameters of the API functions. | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
103 These tests are to make sure that the API can handler crappy user input/parameter values. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
104 { "gdd_init_test_parms", (cmd_handler_t)app_gdd_init_test_parms, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
105 { "gdd_deinit_test_parms", (cmd_handler_t)app_gdd_deinit_test_parms, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
106 { "gdd_connect_test_parms", (cmd_handler_t)app_gdd_connect_test_parms, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
107 { "gdd_disconnect_test_parms", (cmd_handler_t)app_gdd_disconnect_test_parms, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
108 { "gdd_get_send_buffer_test_parms", (cmd_handler_t)app_gdd_get_send_buffer_test_parms, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
109 { "gdd_send_data_test_parms", (cmd_handler_t)app_gdd_send_data_test_parms, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
110 /* Test miscellaneous API function / combinations / special cases */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
111 { "gdd_test_immediate_disconnect", (cmd_handler_t)app_gdd_immediate_disconnect, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
112 #ifdef WIN32 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
113 { "gdd_test_sig_sbuf_avail", (cmd_handler_t)app_gdd_test_sig_sbuf_avail, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
114 #endif /* WIN32 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
115 { "gdd_helper_test", (cmd_handler_t)app_gdd_test_helper_functions, (core_func_t)0, "" }, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
116 /* { "gdd_sys_test", app_gdd_sys_test, 0, "" }, */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
117 { 0, 0, 0, 0}, /* Terminate table */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
118 } ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
119 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
120 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
121 /*==== Local data ============================================================*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
122 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
123 #define GDD_MTU_SIZE 1500 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
124 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
125 static const T_GDD_FUNC * gdd_func = &gdd_func_dio; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
126 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
127 static const T_GDD_DIO_CAP gdd_dio_cap = { GDD_MTU_SIZE }; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
128 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
129 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
130 /** Local structure for maintaining the test connections */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
131 typedef struct | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
132 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
133 T_GDD_CON_HANDLE con_handle; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
134 T_GDD_BUF * send_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
135 T_GDD_BUF * rcv_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
136 int cnt_sigtype_send_buf_available; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
137 } APP_GDD_CON_TABLE_ENTRY; | 
| 
 
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 static APP_GDD_CON_TABLE_ENTRY con_table[TEST_MAX_CON]; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
140 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
141 /*==== Local functions =======================================================*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
142 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
143 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
144 /** Create capabilities structure */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
145 static T_GDD_CAP gdd_create_capabilities_300() | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
146 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
147 T_GDD_CAP cap; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
148 cap.dio_cap = gdd_dio_cap; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
149 return cap; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
150 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
151 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
152 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
153 static void app_gdd_setup_segment(U8 * ptr, U16 size, U16 offset) | 
| 
 
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 int i; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
156 for(i=0; i < size; ++i) | 
| 
 
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 ptr[i] = (U8)i + offset; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
159 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
160 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
161 | 
| 
 
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 /** Setup the data bytes in provided buffer in order to create | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
164 * a well-defined test buffer. The test data is created according | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
165 * to a simple algorithm. The size is also used as an offset | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
166 * in the algorithm. | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
167 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
168 void app_gdd_setup_test_buffer(T_GDD_BUF * buf, U16 size) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
169 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
170 void * tmp_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
171 MALLOC(tmp_buf, size); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
172 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
173 app_gdd_setup_segment(tmp_buf, size, size); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
174 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
175 if(gdd_write_buf(tmp_buf, size, buf) < 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
176 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
177 TRACE_ASSERT(0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
178 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
179 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
180 MFREE(tmp_buf); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
181 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
182 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
183 /** Verify the integrity of a test buffer that has been created | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
184 * before with the function app_gdd_setup_test_buffer(). | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
185 * | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
186 * Return TRUE if two buffers are the same, FALSE otherwise */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
187 BOOL app_gdd_verify_test_buffer(const T_GDD_BUF * buf, U16 size) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
188 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
189 char * tmp_buf_ref; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
190 char * tmp_buf_received; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
191 MALLOC(tmp_buf_ref, size); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
192 MALLOC(tmp_buf_received, size); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
193 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
194 app_gdd_setup_segment((U8 *)tmp_buf_ref, size, size); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
195 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
196 if(gdd_read_buf(buf, (U8 *)tmp_buf_received, size) < 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
197 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
198 TRACE_ASSERT(0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
199 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
200 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
201 if(memcmp(tmp_buf_ref, tmp_buf_received, size)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
202 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
203 return FALSE; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
204 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
205 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
206 return TRUE; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
207 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
208 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
209 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
210 /** Convert from instance string representation to the numeric instance number */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
211 int get_inst_num(const char * str) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
212 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
213 if(!strncmp("BAT", str, 3)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
214 return GDD_INST_BAT; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
215 else if(!strncmp("APP", str, 3)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
216 return GDD_INST_APP; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
217 else if(!strncmp("TCP", str, 3)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
218 return GDD_INST_TCP; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
219 else if(!strncmp("SOCK", str, 4)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
220 return GDD_INST_SOCK; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
221 else if(!strncmp("SOCKCFG", str, 7)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
222 return GDD_INST_SOCKCFG; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
223 else | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
224 return -1; /* invalid instance */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
225 } | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
228 /* For Target, we must include the two DIO buffer helper functions, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
229 because we don't include the PSI stub, where they reside for simulation build. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
230 #if defined (_TARGET_) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
231 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
232 void copy_dio_buf(const T_dio_buffer * buf_in, T_dio_buffer ** buf_out) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
233 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
234 int i; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
235 T_dio_segment * seg_in; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
236 T_dio_segment * seg_out; | 
| 
 
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 TRACE_FUNCTION( "copy_dio_buf" ); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
239 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
240 /* Allocate new buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
241 MALLOC((*buf_out), (USHORT)sizeof(T_dio_buffer)); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
242 (*buf_out)->c_dio_segment = buf_in->c_dio_segment; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
243 (*buf_out)->length=buf_in->length; | 
| 
 
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 /* allocate segement array and copy data accross */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
246 MALLOC((*buf_out)->ptr_dio_segment,(USHORT)sizeof(T_dio_segment)*buf_in->c_dio_segment); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
247 memcpy((*buf_out)->ptr_dio_segment,buf_in->ptr_dio_segment,(USHORT)sizeof(T_dio_segment)*buf_in->c_dio_segment); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
248 (*buf_out)->c_dio_segment = buf_in->c_dio_segment; | 
| 
 
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 /* Copy each segment */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
251 seg_in = buf_in->ptr_dio_segment; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
252 seg_out = (*buf_out)->ptr_dio_segment; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
253 for(i=0;i<buf_in->c_dio_segment;++i, ++seg_in, ++seg_out ) | 
| 
 
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 seg_out->c_data = seg_in->c_data; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
256 MALLOC(seg_out->ptr_data, seg_out->c_data); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
257 memcpy(seg_out->ptr_data, seg_in->ptr_data, seg_out->c_data); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
258 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
259 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
260 TRACE_EVENT_P1("Allocated new DIO buffer %x", *buf_out); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
261 } | 
| 
 
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 #define TEM__GDD_DIO_MTU_SIZE_MAX 1500 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
264 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
265 void allocate_rx_dio_buf(T_dio_buffer ** buf_out) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
266 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
267 const U16 segments[] = {2, TEM__GDD_DIO_MTU_SIZE_MAX}; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
268 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
269 TRACE_FUNCTION( "allocate_rx_dio_buf" ); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
270 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
271 allocate_dio_buf(buf_out, segments, 2); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
272 } | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
275 void allocate_dio_buf(T_dio_buffer ** buf_out, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
276 const U16 seg_size[], U16 num_seg) | 
| 
 
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 int idx_seg; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
279 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
280 TRACE_FUNCTION( "allocate_rx_dio_buf" ); | 
| 
 
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 /* allocate segement array and copy data accross */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
283 MALLOC(*buf_out, (USHORT)sizeof(T_dio_buffer)); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
284 (*buf_out)->c_dio_segment = (U8)num_seg; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
285 MALLOC((*buf_out)->ptr_dio_segment,(USHORT)sizeof(T_dio_segment)*(*buf_out)->c_dio_segment); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
286 (*buf_out)->length = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
287 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
288 for(idx_seg=0; idx_seg<num_seg; ++idx_seg) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
289 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
290 T_dio_segment * seg = &((*buf_out)->ptr_dio_segment[idx_seg]); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
291 seg->c_data = seg_size[idx_seg]; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
292 MALLOC(seg->ptr_data, seg->c_data); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
293 (*buf_out)->length += seg->c_data; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
294 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
295 } | 
| 
 
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 void free_dio_buf(T_dio_buffer ** buf) | 
| 
 
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 int i; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
300 T_dio_segment * seg = (*buf)->ptr_dio_segment; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
301 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
302 TRACE_FUNCTION( "free_dio_buf" ); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
303 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
304 /* Free each segement */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
305 for(i=0;i<(*buf)->c_dio_segment; ++i, ++seg) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
306 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
307 if (seg->ptr_data NEQ NULL) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
308 MFREE(seg->ptr_data); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
309 } | 
| 
 
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 /* Free segment array */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
312 if ((*buf)->ptr_dio_segment NEQ NULL) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
313 MFREE((*buf)->ptr_dio_segment); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
314 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
315 /* Free the actual buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
316 MFREE(*buf); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
317 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
318 (*buf) = 0; | 
| 
 
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 #endif /* (_TARGET_) */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
322 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
323 | 
| 
 
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 * GDD callbacks | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
326 *---------------------------------------------------------------------------*/ | 
| 
 
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 /** gdd_receive_data_cb */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
329 GDD_RESULT app_gdd_receive_data_cb | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
330 ( T_GDD_CON_HANDLE con_handle, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
331 T_GDD_BUF * buf ) | 
| 
 
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 int i; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
334 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
335 TRACE_FUNCTION("app_gdd_receive_data_cb"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
336 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
337 /* Search connection slot */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
338 for(i = 0; i < TEST_MAX_CON; ++i) | 
| 
 
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 if(con_table[i].con_handle EQ con_handle) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
341 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
342 T_GDD_BUF * new_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
343 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
344 if(con_table[i].rcv_buf) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
345 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
346 TRACE_ERROR("Receive buffer already in use"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
347 return GDD_INTERNAL_ERROR; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
350 /* Create a copy of the buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
351 copy_dio_buf( | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
352 (const T_dio_buffer *)buf, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
353 (T_dio_buffer **)(&new_buf)); | 
| 
 
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 con_table[i].rcv_buf = new_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
356 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
357 return GDD_OK; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
358 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
359 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
360 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
361 TRACE_ERROR("callback called with bad connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
362 return GDD_INTERNAL_ERROR; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
365 /** gdd_signal_cb */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
366 GDD_RESULT app_gdd_signal_cb | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
367 ( T_GDD_CON_HANDLE con_handle, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
368 T_GDD_SIGNAL sig ) | 
| 
 
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 int i; | 
| 
 
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 TRACE_FUNCTION("app_gdd_signal_cb"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
373 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
374 /* Search connection slot */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
375 for(i = 0; i < TEST_MAX_CON; ++i) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
376 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
377 if(con_table[i].con_handle EQ con_handle) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
378 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
379 if(sig.sig EQ GDD_SIGTYPE_SEND_BUF_AVAILABLE) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
380 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
381 ++con_table[i].cnt_sigtype_send_buf_available; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
382 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
383 /* Processing of other signals goes here ... */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
384 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
385 return GDD_OK; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
386 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
387 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
388 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
389 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
390 /* In case of the connection signal, we might not have a connection slot | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
391 at this stage, this it is not considered an error. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
392 if( sig.sig NEQ GDD_SIGTYPE_CONNECTION_OPENED ) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
393 TRACE_ERROR("callback called with bad connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
394 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
395 return GDD_INTERNAL_ERROR; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
396 } | 
| 
 
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 * Definition of command handler functions | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
403 static char *app_gdd_init | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
404 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
405 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
406 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
407 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
408 char * mem = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
409 int num_con = get_item(argv[2], 4, TRUE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
410 int inst_id = get_inst_num(argv[1]); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
411 if(inst_id < 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
412 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
413 TRACE_ERROR("Invalid instance specified"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
414 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
415 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
416 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
417 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
418 TRACE_FUNCTION("app_gdd_init"); | 
| 
 
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 if(argv[3] && !strcmp(string_to_lower(argv[3]), "YES")) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
421 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
422 MALLOC(mem, num_con * GDD_DIO_SIZEOF_CONDATA); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
423 } | 
| 
 
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 result = gdd_func->gdd_init((T_GDD_INST_ID)inst_id, (char*)mem, (U16)num_con) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
426 if(result != GDD_OK) | 
| 
 
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 TRACE_ERROR("Call to gdd_init failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
429 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
430 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
433 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
434 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
435 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
436 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
437 static char *app_gdd_deinit | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
438 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
439 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
440 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
441 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
442 int inst_id = get_inst_num(argv[1]); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
443 if(inst_id < 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
444 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
445 TRACE_ERROR("Invalid instance specified"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
446 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
447 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
448 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
449 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
450 TRACE_FUNCTION("app_gdd_deinit"); | 
| 
 
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 result =(GDD_RESULT)gdd_func->gdd_deinit((T_GDD_INST_ID)inst_id) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
453 if(result != GDD_OK) | 
| 
 
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 TRACE_ERROR("Call to gdd_deinit failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
456 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
457 return 0; | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
461 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
462 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
463 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
464 static char *app_gdd_connect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
465 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
466 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
467 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
468 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
469 int i = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
470 const T_GDD_CAP gdd_cap = gdd_create_capabilities_300(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
471 int inst_id = get_inst_num(argv[1]); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
472 if(inst_id < 0) | 
| 
 
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 TRACE_ERROR("Invalid instance specified"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
475 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
476 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
477 } | 
| 
 
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 TRACE_FUNCTION("app_gdd_connect"); | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
482 /* Find free slot for connection handle */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
483 while(i < TEST_MAX_CON && con_table[i].con_handle != 0) | 
| 
 
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 ++i; | 
| 
 
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 if(i EQ TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
488 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
489 TRACE_ERROR("No free slot for connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
490 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
491 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
492 } | 
| 
 
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 result = gdd_func->gdd_connect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
495 ((T_GDD_INST_ID)inst_id, &(con_table[i].con_handle), &gdd_cap,(T_GDD_RECEIVE_DATA_CB)app_gdd_receive_data_cb,(T_GDD_SIGNAL_CB) app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
496 if(result != GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
497 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
498 TRACE_ERROR("Call to gdd_connect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
499 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
500 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
503 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
504 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
505 } | 
| 
 
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 static char *app_gdd_disconnect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
508 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
509 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
510 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
511 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
512 int con_num; /* connection number -index into local static connection table */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
513 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
514 TRACE_FUNCTION("app_gdd_disconnect"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
515 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
516 con_num = get_item(argv[1], 0, FALSE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
517 if(con_num >= TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
518 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
519 TRACE_ERROR("Connection number out of bounds"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
520 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
521 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
522 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
523 if(con_table[con_num].con_handle EQ 0) | 
| 
 
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 TRACE_ERROR("Connection number not valid - no connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
526 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
527 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
528 } | 
| 
 
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 result = gdd_func->gdd_disconnect(con_table[con_num].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
531 if(result != GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
532 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
533 TRACE_ERROR("Call to gdd_disconnect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
534 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
535 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
536 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
537 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
538 /* Free our application buffers which we have allocated ourselfs */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
539 if(con_table[con_num].rcv_buf) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
540 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
541 free_dio_buf((T_dio_buffer **)(&con_table[con_num].rcv_buf)); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
542 con_table[con_num].rcv_buf = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
543 } | 
| 
 
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 con_table[con_num].con_handle = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
546 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
547 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
548 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
549 } | 
| 
 
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 static char *app_gdd_get_send_buffer | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
552 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
553 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
554 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
555 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
556 int con_num; /* connection number -index into local static connection table */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
557 int num_bytes; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
558 T_GDD_BUF * buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
559 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
560 TRACE_FUNCTION("app_gdd_get_send_buffer"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
561 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
562 con_num = get_item(argv[1], 0, TRUE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
563 if(con_num >= TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
564 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
565 TRACE_ERROR("Connection number out of bounds"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
566 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
567 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
568 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
569 if(con_table[con_num].con_handle EQ 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
570 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
571 TRACE_ERROR("Connection number not valid - no connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
572 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
573 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
574 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
575 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
576 num_bytes = get_item(argv[2], 100, FALSE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
577 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
578 result = gdd_func->gdd_get_send_buffer(con_table[con_num].con_handle, &buf, (U16)num_bytes); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
579 if(result != GDD_OK) | 
| 
 
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 TRACE_ERROR("Call to gdd_get_send_buffer failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
582 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
583 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
586 con_table[con_num].send_buf = buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
587 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
588 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
589 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
590 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
591 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
592 static char *app_gdd_send_data | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
593 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
594 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
595 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
596 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
597 int con_num; /* connection number -index into local static connection table */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
598 int num_bytes; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
599 T_GDD_BUF * buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
600 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
601 TRACE_FUNCTION("app_gdd_send_data"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
602 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
603 con_num = get_item(argv[1], 0, TRUE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
604 if(con_num >= TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
605 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
606 TRACE_ERROR("Connection number out of bounds"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
607 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
608 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
609 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
610 if(con_table[con_num].con_handle EQ 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
611 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
612 TRACE_ERROR("Connection number not valid - no connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
613 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
614 return 0; | 
| 
 
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 buf = con_table[con_num].send_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
617 if(buf EQ 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
618 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
619 TRACE_ERROR("No buffer for sending"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
620 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
621 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
624 num_bytes = get_item(argv[2], 100, FALSE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
625 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
626 app_gdd_setup_test_buffer(buf, (U16)num_bytes); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
627 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
628 result = gdd_func->gdd_send_data(con_table[con_num].con_handle, buf); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
629 if(result != GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
630 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
631 TRACE_ERROR("Call to gdd_get_send_buffer failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
632 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
633 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
634 } | 
| 
 
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 con_table[con_num].send_buf = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
637 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
638 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
639 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
642 | 
| 
 
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 static char *app_gdd_receive_data | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
645 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
646 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
647 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
648 int con_num; /* connection number -index into local static connection table */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
649 int num_bytes; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
650 T_GDD_BUF * buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
651 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
652 TRACE_FUNCTION("app_gdd_receive_data"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
653 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
654 con_num = get_item(argv[1], 0, FALSE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
655 if(con_num >= TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
656 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
657 TRACE_ERROR("Connection number out of bounds"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
658 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
659 return 0; | 
| 
 
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 if(con_table[con_num].con_handle EQ 0) | 
| 
 
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 TRACE_ERROR("Connection number not valid - no connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
664 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
665 return 0; | 
| 
 
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 buf = con_table[con_num].rcv_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
668 if(buf EQ 0) | 
| 
 
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 TRACE_ERROR("No buffer received"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
671 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
672 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
673 } | 
| 
 
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 num_bytes = get_item(argv[2], 100, FALSE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
676 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
677 /* Compare/verify the received buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
678 if(app_gdd_verify_test_buffer(buf, (U16)num_bytes) EQ FALSE) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
679 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
680 TRACE_ERROR("Verification of received buffer failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
681 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
682 return 0; | 
| 
 
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 /* Free our application buffers which we have allocated ourselfs */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
686 if(con_table[con_num].rcv_buf) | 
| 
 
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 free_dio_buf((T_dio_buffer **)(&con_table[con_num].rcv_buf)); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
689 con_table[con_num].rcv_buf = 0; | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
693 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
694 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
695 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
696 | 
| 
 
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 char *app_gdd_sig_ready_rcv | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
699 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
700 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
701 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
702 int con_num; /* connection number -index into local static connection table */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
703 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
704 TRACE_FUNCTION("app_gdd_sig_ready_rcv"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
705 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
706 con_num = get_item(argv[1], 0, FALSE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
707 if(con_num >= TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
708 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
709 TRACE_ERROR("Connection number out of bounds"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
710 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
711 return 0; | 
| 
 
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 if(con_table[con_num].con_handle EQ 0) | 
| 
 
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 TRACE_ERROR("Connection number not valid - no connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
716 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
717 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
720 gdd_func->gdd_signal_ready_rcv(con_table[con_num].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
721 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
722 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
723 return 0; | 
| 
 
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 | 
| 
 
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 static char *app_gdd_init_test_parms | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
728 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
729 char * argv[], core_func_t core_func) | 
| 
 
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 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
732 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
733 TRACE_FUNCTION("app_gdd_init_test_parms"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
734 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
735 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
736 * Test range of user ID | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
737 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
738 /*lint -e778*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
739 result = gdd_func->gdd_init(GDD_INST_NONE, (void *)0, (U16)4) ; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
740 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
741 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
742 TRACE_ERROR("BAD param value *NOT* detected (user = GDD_INST_BAT - 1)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
743 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
744 return 0; | 
| 
 
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 result = gdd_func->gdd_init(GDD_NUM_INSTS, 0, 4); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
747 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
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 TRACE_ERROR("BAD param value *NOT* detected (user = GDD_NUM_INSTS)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
750 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
751 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
752 } | 
| 
 
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 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
755 * Nothing to do for the mem parameter | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
756 * (should already have been tested before) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
757 */ | 
| 
 
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 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
760 * Test number of connections | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
761 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
762 result = gdd_func->gdd_init(GDD_INST_BAT, 0, 0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
763 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
764 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
765 TRACE_ERROR("BAD param value *NOT* detected (num_con = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
766 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
767 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
768 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
769 result = gdd_func->gdd_init(GDD_INST_BAT, 0, TEST_MAX_CON+1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
770 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
771 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
772 TRACE_ERROR("BAD param value *NOT* detected (num_con = TEST_MAX_CON+1)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
773 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
774 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
775 } | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
778 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
779 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
780 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
781 static char *app_gdd_deinit_test_parms | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
782 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
783 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
784 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
785 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
786 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
787 TRACE_FUNCTION("app_gdd_deinit_test_parms"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
788 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
789 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
790 * Test range of user ID | 
| 
 
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 result = gdd_func->gdd_deinit(GDD_INST_NONE) ; /*lint -e778*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
793 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
794 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
795 TRACE_ERROR("BAD param value *NOT* detected (user = GDD_INST_BAT - 1)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
796 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
797 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
798 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
799 result = gdd_func->gdd_deinit(GDD_NUM_INSTS); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
800 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
801 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
802 TRACE_ERROR("BAD param value *NOT* detected (user = GDD_NUM_INSTS)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
803 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
804 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
805 } | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
808 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
809 } | 
| 
 
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 static char *app_gdd_connect_test_parms | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
812 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
813 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
814 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
815 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
816 const T_GDD_CAP gdd_cap = gdd_create_capabilities_300(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
817 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
818 TRACE_FUNCTION("app_gdd_connect_test_parms"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
819 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
820 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
821 * Test range of user ID | 
| 
 
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 result = gdd_func->gdd_connect(GDD_INST_NONE, &(con_table[0].con_handle), /*lint -e778*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
824 &gdd_cap, (T_GDD_RECEIVE_DATA_CB)app_gdd_receive_data_cb, (T_GDD_SIGNAL_CB)app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
825 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
826 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
827 TRACE_ERROR("BAD param value *NOT* detected (user = GDD_INST_BAT - 1)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
828 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
829 return 0; | 
| 
 
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 result = gdd_func->gdd_connect(GDD_NUM_INSTS, &(con_table[0].con_handle), | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
832 &gdd_cap, (T_GDD_RECEIVE_DATA_CB)app_gdd_receive_data_cb, (T_GDD_SIGNAL_CB)app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
833 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
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 TRACE_ERROR("BAD param value *NOT* detected (user = GDD_NUM_INSTS)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
836 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
837 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
840 /* Test handling of con_handle = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
841 result = gdd_func->gdd_connect(GDD_INST_BAT, 0, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
842 &gdd_cap, (T_GDD_RECEIVE_DATA_CB)app_gdd_receive_data_cb, (T_GDD_SIGNAL_CB)app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
843 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
844 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
845 TRACE_ERROR("BAD param value *NOT* detected (con_handle = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
846 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
847 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
850 /* Test handling of cap = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
851 result = gdd_func->gdd_connect(GDD_INST_BAT, &(con_table[0].con_handle), | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
852 0, (T_GDD_RECEIVE_DATA_CB)app_gdd_receive_data_cb, (T_GDD_SIGNAL_CB)app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
853 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
854 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
855 TRACE_ERROR("BAD param value *NOT* detected (cap = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
856 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
857 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
858 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
859 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
860 /* Test handling of rcv_cb = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
861 result = gdd_func->gdd_connect(GDD_INST_BAT, &(con_table[0].con_handle), | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
862 &gdd_cap, 0,(T_GDD_SIGNAL_CB) app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
863 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
864 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
865 TRACE_ERROR("BAD param value *NOT* detected (rcv_cb = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
866 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
867 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
868 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
869 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
870 /* Test handling of sig_cb = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
871 result = gdd_func->gdd_connect(GDD_INST_BAT, &(con_table[0].con_handle), | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
872 &gdd_cap, app_gdd_receive_data_cb, 0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
873 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
874 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
875 TRACE_ERROR("BAD param value *NOT* detected (sig_cb = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
876 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
877 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
878 } | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
881 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
882 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
883 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
884 static char *app_gdd_disconnect_test_parms | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
885 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
886 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
887 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
888 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
889 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
890 TRACE_FUNCTION("app_gdd_disconnect_test_parms"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
891 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
892 /* Test handling of con_handle = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
893 result = gdd_func->gdd_disconnect(0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
894 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
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 TRACE_ERROR("BAD param value *NOT* detected (con_handle = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
897 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
898 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
899 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
900 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
901 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
902 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
905 static char *app_gdd_get_send_buffer_test_parms | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
906 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
907 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
908 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
909 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
910 T_GDD_BUF * buf; | 
| 
 
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 TRACE_FUNCTION("app_gdd_get_send_buffer_test_parms"); | 
| 
 
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 /* Test handling of con_handle = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
915 result = gdd_func->gdd_get_send_buffer(0, &buf, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
916 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
917 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
918 TRACE_ERROR("BAD param value *NOT* detected (con_handle = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
919 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
920 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
921 } | 
| 
 
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 /* Test handling of buf = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
924 result = gdd_func->gdd_get_send_buffer(TEST_CON_HANDLE, 0, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
925 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
926 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
927 TRACE_ERROR("BAD param value *NOT* detected (buf = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
928 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
929 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
930 } | 
| 
 
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 /* Test handling of size = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
933 result = gdd_func->gdd_get_send_buffer(TEST_CON_HANDLE, &buf, 0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
934 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
935 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
936 TRACE_ERROR("BAD param value *NOT* detected (size = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
937 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
938 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
939 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
940 /* Test handling of size > GDD_MTU_SIZE */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
941 result = gdd_func->gdd_get_send_buffer(TEST_CON_HANDLE, &buf, GDD_MTU_SIZE+1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
942 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
943 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
944 TRACE_ERROR("BAD param value *NOT* detected (size = GDD_MTU_SIZE+1)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
945 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
946 return 0; | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
950 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
953 static char *app_gdd_send_data_test_parms | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
954 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
955 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
956 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
957 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
958 T_GDD_BUF buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
959 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
960 TRACE_FUNCTION("app_gdd_send_data_test_parms"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
961 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
962 /* Test handling of con_handle = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
963 result = gdd_func->gdd_send_data(0, &buf); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
964 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
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 TRACE_ERROR("BAD param value *NOT* detected (con_handle = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
967 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
968 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
969 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
970 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
971 /* Test handling of buf = 0 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
972 result = gdd_func->gdd_send_data(TEST_CON_HANDLE, 0); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
973 if(result NEQ GDD_INVALID_PARAMS) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
974 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
975 TRACE_ERROR("BAD param value *NOT* detected (buf = 0)"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
976 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
977 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
978 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
979 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
980 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
981 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
982 } | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
985 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
986 * Test connect, followed by immedate disconnect without waiting for connect signal | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
987 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
988 static char *app_gdd_immediate_disconnect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
989 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
990 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
991 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
992 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
993 int con_idx = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
994 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
995 int user_id = get_item(argv[1], GDD_INST_BAT, TRUE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
996 const T_GDD_CAP gdd_cap = gdd_create_capabilities_300(); | 
| 
 
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_FUNCTION("app_gdd_immediate_disconnect"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
999 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1000 /* Find free slot for connection handle */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1001 while(con_idx < TEST_MAX_CON && con_table[con_idx].con_handle != 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1002 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1003 ++con_idx; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1004 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1005 if(con_idx EQ TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1006 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1007 TRACE_ERROR("No free slot for connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1008 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1009 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1010 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1011 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1012 result = gdd_func->gdd_connect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1013 ((T_GDD_INST_ID)user_id, &(con_table[con_idx].con_handle), &gdd_cap, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1014 (T_GDD_RECEIVE_DATA_CB) app_gdd_receive_data_cb, (T_GDD_SIGNAL_CB)app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1015 if(result != GDD_OK) | 
| 
 
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 TRACE_ERROR("Call to gdd_connect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1018 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1019 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1020 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1021 TRACE_EVENT_P2("Created connection, con_handle = %d (slot %d)", con_table[con_idx].con_handle, con_idx); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1022 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1023 /* Don't sleep - but you might want to activate for debugging */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1024 /*vsi_t_sleep (VSI_CALLER 2000);*/ | 
| 
 
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 result = gdd_func->gdd_disconnect(con_table[con_idx].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1027 if(result != GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1028 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1029 TRACE_ERROR("Call to gdd_disconnect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1030 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1031 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1032 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1033 TRACE_EVENT_P1("Disconnected connection, con_handle = %d", con_table[con_idx].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1034 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1035 /* Free connection slot */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1036 con_table[con_idx].con_handle = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1037 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1038 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1039 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1040 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1041 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1042 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1043 #ifdef WIN32 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1044 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1045 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1046 * The the correct sending of the signal GDD_SIGTYPE_SEND_BUF_AVAILABLE | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1047 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1048 static char *app_gdd_test_sig_sbuf_avail | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1049 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1050 char * argv[], core_func_t core_func) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1051 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1052 GDD_RESULT result; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1053 T_GDD_BUF * buf1, * buf2, * buf3; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1054 int con_idx = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1055 int user_id = get_item(argv[1], GDD_INST_BAT, TRUE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1056 const T_GDD_CAP gdd_cap = gdd_create_capabilities_300(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1057 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1058 TRACE_FUNCTION("app_gdd_test_sig_sbuf_avail"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1059 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1060 /* Switch off the automatic provision of send buffers in the PSI stub */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1061 psi_stub_send_rx_buf_after_read(FALSE); | 
| 
 
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 /* Find free slot for connection handle */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1064 while(con_idx < TEST_MAX_CON && con_table[con_idx].con_handle != 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1065 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1066 ++con_idx; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1067 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1068 if(con_idx EQ TEST_MAX_CON) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1069 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1070 TRACE_ERROR("No free slot for connection handle"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1071 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1072 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1073 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1074 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1075 /* Connect & disconnect */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1076 result = gdd_func->gdd_connect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1077 (user_id, &(con_table[con_idx].con_handle), &gdd_cap, app_gdd_receive_data_cb, app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1078 if(result != GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1079 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1080 TRACE_ERROR("Call to gdd_connect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1081 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1082 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1083 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1084 result = gdd_func->gdd_disconnect(con_table[con_idx].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1085 if(result != GDD_OK) | 
| 
 
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 TRACE_ERROR("Call to gdd_disconnect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1088 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1089 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1092 /* Reset test counter */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1093 con_table[con_idx].cnt_sigtype_send_buf_available = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1094 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1095 /* Create connection */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1096 result = gdd_func->gdd_connect | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1097 (user_id, &(con_table[con_idx].con_handle), &gdd_cap, app_gdd_receive_data_cb, app_gdd_signal_cb); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1098 if(result != GDD_OK) | 
| 
 
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_ERROR("Call to gdd_connect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1101 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1102 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1103 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1104 TRACE_EVENT_P2("Created connection, con_handle = %d (slot %d)", con_table[con_idx].con_handle, con_idx); | 
| 
 
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 /* Wait for 2 seconds to be sure that we will have the send buffer by then. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1107 vsi_t_sleep (VSI_CALLER 2000); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1108 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1109 /* Get a first send buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1110 result = gdd_func->gdd_get_send_buffer(con_table[con_idx].con_handle, &buf1, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1111 if(result NEQ GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1112 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1113 TRACE_ERROR("Error: gdd_get_send_buffer() failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1114 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1115 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1116 } | 
| 
 
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 result = gdd_func->gdd_get_send_buffer(con_table[con_idx].con_handle, &buf2, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1119 if(result NEQ GDD_NO_BUF_AVAILABLE) | 
| 
 
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 TRACE_ERROR("gdd_get_send_buffer() did not fail as expected"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1122 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1123 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1126 /* Now we send back the first buffer. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1127 result = gdd_func->gdd_send_data(con_table[con_idx].con_handle, buf1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1128 if(result NEQ GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1129 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1130 TRACE_ERROR("gdd_send_data() failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1131 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1132 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1135 /* Now we can get the second send buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1136 result = gdd_func->gdd_get_send_buffer(con_table[con_idx].con_handle, &buf2, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1137 if(result NEQ GDD_OK) | 
| 
 
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 TRACE_ERROR("gdd_get_send_buffer failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1140 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1141 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1144 /* Remove the receive buffer previously received */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1145 free_dio_buf((T_dio_buffer **)(&con_table[con_idx].rcv_buf)); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1146 con_table[con_idx].rcv_buf = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1147 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1148 /* Now we send back the 2nd buffer buffer. */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1149 result = gdd_func->gdd_send_data(con_table[con_idx].con_handle, buf2); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1150 if(result NEQ GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1151 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1152 TRACE_ERROR("gdd_send_data() failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1153 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1154 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1155 } | 
| 
 
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 /* When we try to get the third buffer, we should now fail, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1158 as we switched of automatic provision of RX buffers at the beginning */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1159 result = gdd_func->gdd_get_send_buffer(con_table[con_idx].con_handle, &buf3, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1160 if(result NEQ GDD_NO_BUF_AVAILABLE) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1161 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1162 TRACE_ERROR("gdd_get_send_buffer should have failed with GDD_NO_BUF_AVAILABLE"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1163 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1164 return 0; | 
| 
 
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 /* Create a new RX buffer in the PSI stub */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1168 psi_stub_provide_rx_buf(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1169 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1170 /* Now we should be able to get the new buffer */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1171 result = gdd_func->gdd_get_send_buffer(con_table[con_idx].con_handle, &buf3, GDD_MTU_SIZE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1172 if(result NEQ GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1173 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1174 TRACE_ERROR("gdd_get_send_buffer failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1175 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1176 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1177 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1178 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1179 /* Two signals GDD_SIGTYPE_SEND_BUF_AVAILABLE should have been sent | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1180 (one after the connection, and one when we called pst_stub_provide_rx_buf | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1181 the last time) */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1182 if(con_table[con_idx].cnt_sigtype_send_buf_available NEQ 1) | 
| 
 
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 TRACE_ERROR("Wrong value in cnt_sigtype_send_buf_available"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1185 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1186 return 0; | 
| 
 
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 result = gdd_func->gdd_disconnect(con_table[con_idx].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1190 if(result != GDD_OK) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1191 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1192 TRACE_ERROR("Call to gdd_disconnect failed"); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1193 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1194 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1195 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1196 TRACE_EVENT_P1("Disconnected connection, con_handle = %d", con_table[con_idx].con_handle); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1197 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1198 /* Free connection slot */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1199 con_table[con_idx].con_handle = 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1200 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1201 /* Switch on the automatic provision of send buffers in the PSI stub */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1202 psi_stub_send_rx_buf_after_read(TRUE); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1203 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1204 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1205 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1206 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1207 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1208 #endif /* WIN32 */ | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1211 | 
| 
 
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 * Testing helper functions. | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1214 *---------------------------------------------------------------------------*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1215 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1216 static U32 test_gdd_write_buf() | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1217 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1218 T_dio_buffer * dest_buf; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1219 char src_buf[250]; | 
| 
 
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 allocate_rx_dio_buf(&dest_buf); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1222 if(dest_buf->c_dio_segment != 2) | 
| 
 
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 return((U32) -1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1225 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1226 if(dest_buf->length < (sizeof(src_buf) + 2 /*PID*/)) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1227 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1228 return((U32) -1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1229 } | 
| 
 
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 app_gdd_setup_segment((U8 *)src_buf, sizeof(src_buf), 22 /* arbitrary offset */); | 
| 
 
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 if(gdd_write_buf(( U8 *)src_buf, sizeof(src_buf), (T_GDD_BUF*)dest_buf) < 0) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1234 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1235 return((U32) -1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1236 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1237 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1238 if(memcmp(src_buf, dest_buf->ptr_dio_segment[1].ptr_data, sizeof(src_buf))) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1239 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1240 return((U32) -1); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1241 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1242 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1243 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1244 } | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1245 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1246 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1247 /* | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1248 * Test the function 'gdd_read_buf()'. Return 0 if OK. | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1249 */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1250 static U32 test_gdd_read_buf() | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1251 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1252 char src_buf[500]; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1253 char dest_buf[500]; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1254 T_dio_buffer * dio_buf; | 
| 
 
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 /* Totol size of 502 bytes over 6 segments (incl.PID in first seg) */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1257 const U16 segments[] = {2, 15, 150, 35, 100, 200}; | 
| 
 
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 allocate_dio_buf(&dio_buf, segments, sizeof(segments)/sizeof(U16)); | 
| 
 
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 app_gdd_setup_segment((U8 *)src_buf, sizeof(src_buf), 22 /* arbitrary offset */); | 
| 
 
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 if(gdd_write_buf((U8 *)src_buf, sizeof(src_buf), (T_GDD_BUF*)dio_buf) < 0) | 
| 
 
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 return((U32)-1); | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1268 if(gdd_read_buf((T_GDD_BUF*)dio_buf, (U8 *)dest_buf, sizeof(dest_buf)) < 0) | 
| 
 
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 return((U32) -1); | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1273 if(memcmp(src_buf, dest_buf, sizeof(src_buf))) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1274 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1275 return((U32)-1); | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1278 return 0; | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1281 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1282 static char *app_gdd_test_helper_functions | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1283 (app_cmd_entry_t *cmd_entry_ptr, int argc, | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1284 char * argv[], core_func_t core_func) | 
| 
 
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 if(test_gdd_write_buf()) | 
| 
 
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 BAT_TEST_FAILED(); | 
| 
 
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 if(test_gdd_read_buf()) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1291 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1292 BAT_TEST_FAILED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1293 } | 
| 
 
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 BAT_TEST_PASSED(); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1296 return 0; | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1297 } | 
| 
 
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 | 
| 
 
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 * Definition of core functions | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1304 /* -- No core functions required for now */ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1305 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1306 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1307 /*==== Exported functions ====================================================*/ | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1308 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1309 char *app_handle_command_gdd(char *command) | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1310 { | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1311 return app_handle_command(command, app_gdd_cmd_table); | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1312 } | 
| 
 
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 | 
| 
 
90eb61ecd093
src/g23m-fad: initial import from TCS3.2/LoCosto
 
Mychaela Falconia <falcon@freecalypso.org> 
parents:  
diff
changeset
 | 
1315 /* EOF */ | 
