1 // SPDX-License-Identifier: GPL-2.0+
2 /*
3 * (C) Copyright 2004
4 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
5 */
6
7 #include <common.h>
8 #include <command.h>
9 #include <stdio_dev.h>
10 #include <net.h>
11
12 #ifndef CONFIG_NETCONSOLE_BUFFER_SIZE
13 #define CONFIG_NETCONSOLE_BUFFER_SIZE 512
14 #endif
15
16 static char input_buffer[CONFIG_NETCONSOLE_BUFFER_SIZE];
17 static int input_size; /* char count in input buffer */
18 static int input_offset; /* offset to valid chars in input buffer */
19 static int input_recursion;
20 static int output_recursion;
21 static int net_timeout;
22 static uchar nc_ether[6]; /* server enet address */
23 static struct in_addr nc_ip; /* server ip */
24 static short nc_out_port; /* target output port */
25 static short nc_in_port; /* source input port */
26 static const char *output_packet; /* used by first send udp */
27 static int output_packet_len;
28 /*
29 * Start with a default last protocol.
30 * We are only interested in NETCONS or not.
31 */
32 enum proto_t net_loop_last_protocol = BOOTP;
33
nc_wait_arp_handler(uchar * pkt,unsigned dest,struct in_addr sip,unsigned src,unsigned len)34 static void nc_wait_arp_handler(uchar *pkt, unsigned dest,
35 struct in_addr sip, unsigned src,
36 unsigned len)
37 {
38 net_set_state(NETLOOP_SUCCESS); /* got arp reply - quit net loop */
39 }
40
nc_handler(uchar * pkt,unsigned dest,struct in_addr sip,unsigned src,unsigned len)41 static void nc_handler(uchar *pkt, unsigned dest, struct in_addr sip,
42 unsigned src, unsigned len)
43 {
44 if (input_size)
45 net_set_state(NETLOOP_SUCCESS); /* got input - quit net loop */
46 }
47
nc_timeout_handler(void)48 static void nc_timeout_handler(void)
49 {
50 net_set_state(NETLOOP_SUCCESS);
51 }
52
is_broadcast(struct in_addr ip)53 static int is_broadcast(struct in_addr ip)
54 {
55 static struct in_addr netmask;
56 static struct in_addr our_ip;
57 static int env_changed_id;
58 int env_id = get_env_id();
59
60 /* update only when the environment has changed */
61 if (env_changed_id != env_id) {
62 netmask = env_get_ip("netmask");
63 our_ip = env_get_ip("ipaddr");
64
65 env_changed_id = env_id;
66 }
67
68 return (ip.s_addr == ~0 || /* 255.255.255.255 (global bcast) */
69 ((netmask.s_addr & our_ip.s_addr) ==
70 (netmask.s_addr & ip.s_addr) && /* on the same net and */
71 (netmask.s_addr | ip.s_addr) == ~0)); /* bcast to our net */
72 }
73
refresh_settings_from_env(void)74 static int refresh_settings_from_env(void)
75 {
76 const char *p;
77 static int env_changed_id;
78 int env_id = get_env_id();
79
80 /* update only when the environment has changed */
81 if (env_changed_id != env_id) {
82 if (env_get("ncip")) {
83 nc_ip = env_get_ip("ncip");
84 if (!nc_ip.s_addr)
85 return -1; /* ncip is 0.0.0.0 */
86 p = strchr(env_get("ncip"), ':');
87 if (p != NULL) {
88 nc_out_port = simple_strtoul(p + 1, NULL, 10);
89 nc_in_port = nc_out_port;
90 }
91 } else {
92 nc_ip.s_addr = ~0; /* ncip is not set, so broadcast */
93 }
94
95 p = env_get("ncoutport");
96 if (p != NULL)
97 nc_out_port = simple_strtoul(p, NULL, 10);
98 p = env_get("ncinport");
99 if (p != NULL)
100 nc_in_port = simple_strtoul(p, NULL, 10);
101
102 if (is_broadcast(nc_ip))
103 /* broadcast MAC address */
104 memset(nc_ether, 0xff, sizeof(nc_ether));
105 else
106 /* force arp request */
107 memset(nc_ether, 0, sizeof(nc_ether));
108 }
109 return 0;
110 }
111
112 /**
113 * Called from net_loop in net/net.c before each packet
114 */
nc_start(void)115 void nc_start(void)
116 {
117 refresh_settings_from_env();
118 if (!output_packet_len || memcmp(nc_ether, net_null_ethaddr, 6)) {
119 /* going to check for input packet */
120 net_set_udp_handler(nc_handler);
121 net_set_timeout_handler(net_timeout, nc_timeout_handler);
122 } else {
123 /* send arp request */
124 uchar *pkt;
125 net_set_arp_handler(nc_wait_arp_handler);
126 pkt = (uchar *)net_tx_packet + net_eth_hdr_size() +
127 IP_UDP_HDR_SIZE;
128 memcpy(pkt, output_packet, output_packet_len);
129 net_send_udp_packet(nc_ether, nc_ip, nc_out_port, nc_in_port,
130 output_packet_len);
131 }
132 }
133
nc_input_packet(uchar * pkt,struct in_addr src_ip,unsigned dest_port,unsigned src_port,unsigned len)134 int nc_input_packet(uchar *pkt, struct in_addr src_ip, unsigned dest_port,
135 unsigned src_port, unsigned len)
136 {
137 int end, chunk;
138
139 if (dest_port != nc_in_port || !len)
140 return 0; /* not for us */
141
142 if (src_ip.s_addr != nc_ip.s_addr && !is_broadcast(nc_ip))
143 return 0; /* not from our client */
144
145 debug_cond(DEBUG_DEV_PKT, "input: \"%*.*s\"\n", len, len, pkt);
146
147 if (input_size == sizeof(input_buffer))
148 return 1; /* no space */
149 if (len > sizeof(input_buffer) - input_size)
150 len = sizeof(input_buffer) - input_size;
151
152 end = input_offset + input_size;
153 if (end >= sizeof(input_buffer))
154 end -= sizeof(input_buffer);
155
156 chunk = len;
157 /* Check if packet will wrap in input_buffer */
158 if (end + len >= sizeof(input_buffer)) {
159 chunk = sizeof(input_buffer) - end;
160 /* Copy the second part of the pkt to start of input_buffer */
161 memcpy(input_buffer, pkt + chunk, len - chunk);
162 }
163 /* Copy first (or only) part of pkt after end of current valid input*/
164 memcpy(input_buffer + end, pkt, chunk);
165
166 input_size += len;
167
168 return 1;
169 }
170
nc_send_packet(const char * buf,int len)171 static void nc_send_packet(const char *buf, int len)
172 {
173 #ifdef CONFIG_DM_ETH
174 struct udevice *eth;
175 #else
176 struct eth_device *eth;
177 #endif
178 int inited = 0;
179 uchar *pkt;
180 uchar *ether;
181 struct in_addr ip;
182
183 debug_cond(DEBUG_DEV_PKT, "output: \"%*.*s\"\n", len, len, buf);
184
185 eth = eth_get_dev();
186 if (eth == NULL)
187 return;
188
189 if (!memcmp(nc_ether, net_null_ethaddr, 6)) {
190 if (eth_is_active(eth))
191 return; /* inside net loop */
192 output_packet = buf;
193 output_packet_len = len;
194 input_recursion = 1;
195 net_loop(NETCONS); /* wait for arp reply and send packet */
196 input_recursion = 0;
197 output_packet_len = 0;
198 return;
199 }
200
201 if (!eth_is_active(eth)) {
202 if (eth_is_on_demand_init()) {
203 if (eth_init() < 0)
204 return;
205 eth_set_last_protocol(NETCONS);
206 } else {
207 eth_init_state_only();
208 }
209
210 inited = 1;
211 }
212 pkt = (uchar *)net_tx_packet + net_eth_hdr_size() + IP_UDP_HDR_SIZE;
213 memcpy(pkt, buf, len);
214 ether = nc_ether;
215 ip = nc_ip;
216 net_send_udp_packet(ether, ip, nc_out_port, nc_in_port, len);
217
218 if (inited) {
219 if (eth_is_on_demand_init())
220 eth_halt();
221 else
222 eth_halt_state_only();
223 }
224 }
225
nc_stdio_start(struct stdio_dev * dev)226 static int nc_stdio_start(struct stdio_dev *dev)
227 {
228 int retval;
229
230 nc_out_port = 6666; /* default port */
231 nc_in_port = nc_out_port;
232
233 retval = refresh_settings_from_env();
234 if (retval != 0)
235 return retval;
236
237 /*
238 * Initialize the static IP settings and buffer pointers
239 * incase we call net_send_udp_packet before net_loop
240 */
241 net_init();
242
243 return 0;
244 }
245
nc_stdio_putc(struct stdio_dev * dev,char c)246 static void nc_stdio_putc(struct stdio_dev *dev, char c)
247 {
248 if (output_recursion)
249 return;
250 output_recursion = 1;
251
252 nc_send_packet(&c, 1);
253
254 output_recursion = 0;
255 }
256
nc_stdio_puts(struct stdio_dev * dev,const char * s)257 static void nc_stdio_puts(struct stdio_dev *dev, const char *s)
258 {
259 int len;
260
261 if (output_recursion)
262 return;
263 output_recursion = 1;
264
265 len = strlen(s);
266 while (len) {
267 int send_len = min(len, (int)sizeof(input_buffer));
268 nc_send_packet(s, send_len);
269 len -= send_len;
270 s += send_len;
271 }
272
273 output_recursion = 0;
274 }
275
nc_stdio_getc(struct stdio_dev * dev)276 static int nc_stdio_getc(struct stdio_dev *dev)
277 {
278 uchar c;
279
280 input_recursion = 1;
281
282 net_timeout = 0; /* no timeout */
283 while (!input_size)
284 net_loop(NETCONS);
285
286 input_recursion = 0;
287
288 c = input_buffer[input_offset++];
289
290 if (input_offset >= sizeof(input_buffer))
291 input_offset -= sizeof(input_buffer);
292 input_size--;
293
294 return c;
295 }
296
nc_stdio_tstc(struct stdio_dev * dev)297 static int nc_stdio_tstc(struct stdio_dev *dev)
298 {
299 #ifdef CONFIG_DM_ETH
300 struct udevice *eth;
301 #else
302 struct eth_device *eth;
303 #endif
304
305 if (input_recursion)
306 return 0;
307
308 if (input_size)
309 return 1;
310
311 eth = eth_get_dev();
312 if (eth_is_active(eth))
313 return 0; /* inside net loop */
314
315 input_recursion = 1;
316
317 net_timeout = 1;
318 net_loop(NETCONS); /* kind of poll */
319
320 input_recursion = 0;
321
322 return input_size != 0;
323 }
324
drv_nc_init(void)325 int drv_nc_init(void)
326 {
327 struct stdio_dev dev;
328 int rc;
329
330 memset(&dev, 0, sizeof(dev));
331
332 strcpy(dev.name, "nc");
333 dev.flags = DEV_FLAGS_OUTPUT | DEV_FLAGS_INPUT;
334 dev.start = nc_stdio_start;
335 dev.putc = nc_stdio_putc;
336 dev.puts = nc_stdio_puts;
337 dev.getc = nc_stdio_getc;
338 dev.tstc = nc_stdio_tstc;
339
340 rc = stdio_register(&dev);
341
342 return (rc == 0) ? 1 : rc;
343 }
344