1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
|
/*
bpecho.c: receiver for bundle benchmark test.
*/
/* */
/* Copyright (c) 2004, California Institute of Technology. */
/* All rights reserved. */
/* Author: Scott Burleigh, Jet Propulsion Laboratory */
/* Enhanced by Ryan Metzger (MITRE Corp.) August 2006 */
/* Andrew Jenkins <andrew.jenkins@colorado.edu> made it echo received
data, March 2009 */
#include <bp.h>
#define ADU_LEN (1024)
#if 0
#define CYCLE_TRACE
#endif
typedef struct
{
BpSAP sap;
int running;
} BptestState;
static BptestState *_bptestState(BptestState *newState)
{
void *value;
BptestState *state;
if (newState) /* Add task variable. */
{
value = (void *) (newState);
state = (BptestState *) sm_TaskVar(&value);
}
else /* Retrieve task variable. */
{
state = (BptestState *) sm_TaskVar(NULL);
}
return state;
}
static void _zcoControl(int *controlPtr)
{
static int *ptr = NULL;
if (controlPtr) /* Initializing ZCO request cancellation. */
{
ptr = controlPtr;
}
else /* Canceling ZCO request. */
{
ionCancelZcoSpaceRequest(ptr);
}
}
static void handleQuit()
{
BptestState *state;
isignal(SIGINT, handleQuit);
PUTS("BP reception interrupted.");
state = _bptestState(NULL);
bp_interrupt(state->sap);
state->running = 0;
}
#if defined (VXWORKS) || defined (RTEMS)
int bpecho(int a1, int a2, int a3, int a4, int a5,
int a6, int a7, int a8, int a9, int a10)
{
char *ownEid = (char *) a1;
#else
int main(int argc, char **argv)
{
char *ownEid = (argc > 1 ? argv[1] : NULL);
#endif
/* Indication marks: "." for BpPayloadPresent (1),
"*" for BpReceptionTimedOut (2).
"!" for BpReceptionInterrupted (3).
"X" for BpEndpointStopped (4). */
static char dlvmarks[] = "?.*!X";
BptestState state = { NULL, 1 };
Sdr sdr;
char dataToSend[ADU_LEN];
Object bundleZco;
int controlZco;
Object newBundle;
Object extent;
BpDelivery dlv;
ZcoReader reader;
char sourceEid[1024];
int bytesToEcho = 0;
int result;
if (ownEid == NULL)
{
PUTS("Usage: bpecho <own endpoint ID>");
return 0;
}
if (bp_attach() < 0)
{
putErrmsg("Can't attach to BP.", NULL);
return 0;
}
if (bp_open(ownEid, &state.sap) < 0)
{
putErrmsg("Can't open own endpoint.", NULL);
return 0;
}
oK(_bptestState(&state));
sdr = bp_get_sdr();
_zcoControl(&controlZco);
isignal(SIGINT, handleQuit);
while (1)
{
/* Wait for a bundle from the driver. */
while (state.running)
{
if (bp_receive(state.sap, &dlv, BP_BLOCKING) < 0)
{
bp_close(state.sap);
putErrmsg("bpecho bundle reception failed.",
NULL);
return 1;
}
putchar(dlvmarks[dlv.result]);
fflush(stdout);
if (dlv.result == BpEndpointStopped
|| (dlv.result == BpReceptionInterrupted
&& state.running == 0))
{
state.running = 0;
continue;
}
if (dlv.result == BpPayloadPresent)
{
istrcpy(sourceEid, dlv.bundleSourceEid,
sizeof sourceEid);
bytesToEcho = MIN(zco_source_data_length(sdr,
dlv.adu), ADU_LEN);
zco_start_receiving(dlv.adu, &reader);
CHKZERO(sdr_begin_xn(sdr));
result = zco_receive_source(sdr, &reader,
bytesToEcho, dataToSend);
if (sdr_end_xn(sdr) < 0 || result < 0)
{
putErrmsg("Can't receive payload.",
NULL);
state.running = 0;
continue;
}
bp_release_delivery(&dlv, 1);
break; /* Out of reception loop. */
}
bp_release_delivery(&dlv, 1);
}
if (state.running == 0)
{
/* Benchmark run terminated. */
break; /* Out of main loop. */
}
/* Now send acknowledgment bundle. */
if (strcmp(sourceEid, "dtn:none") == 0) continue;
CHKZERO(sdr_begin_xn(sdr));
extent = sdr_malloc(sdr, bytesToEcho);
if (extent)
{
sdr_write(sdr, extent, dataToSend, bytesToEcho);
}
if (sdr_end_xn(sdr) < 0)
{
putErrmsg("No space for ZCO extent.", NULL);
break; /* Out of main loop. */
}
bundleZco = ionCreateZco(ZcoSdrSource, extent, 0,
bytesToEcho, &controlZco);
if (bundleZco == 0)
{
putErrmsg("Can't create ZCO.", NULL);
break; /* Out of main loop. */
}
if (bp_send(state.sap, sourceEid, NULL, 300, BP_STD_PRIORITY,
NoCustodyRequested, 0, 0, NULL, bundleZco,
&newBundle) < 1)
{
putErrmsg("bpecho can't send echo bundle.", NULL);
break; /* Out of main loop. */
}
}
bp_close(state.sap);
writeErrmsgMemos();
bp_detach();
return 0;
}
|
