Merge branch 'master' of /home/wd/git/u-boot/custodians
[platform/kernel/u-boot.git] / drivers / net / netconsole.c
1 /*
2  * (C) Copyright 2004
3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4  *
5  * See file CREDITS for list of people who contributed to this
6  * project.
7  *
8  * This program is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU General Public License as
10  * published by the Free Software Foundation; either version 2 of
11  * the License, or (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with this program; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
21  * MA 02111-1307 USA
22  */
23
24 #include <common.h>
25 #include <command.h>
26 #include <stdio_dev.h>
27 #include <net.h>
28
29 DECLARE_GLOBAL_DATA_PTR;
30
31 static char input_buffer[512];
32 static int input_size = 0;              /* char count in input buffer */
33 static int input_offset = 0;            /* offset to valid chars in input buffer */
34 static int input_recursion = 0;
35 static int output_recursion = 0;
36 static int net_timeout;
37 static uchar nc_ether[6];               /* server enet address */
38 static IPaddr_t nc_ip;                  /* server ip */
39 static short nc_port;                   /* source/target port */
40 static const char *output_packet;       /* used by first send udp */
41 static int output_packet_len = 0;
42
43 static void nc_wait_arp_handler (uchar * pkt, unsigned dest, unsigned src,
44                                  unsigned len)
45 {
46         NetState = NETLOOP_SUCCESS;     /* got arp reply - quit net loop */
47 }
48
49 static void nc_handler (uchar * pkt, unsigned dest, unsigned src,
50                         unsigned len)
51 {
52         if (input_size)
53                 NetState = NETLOOP_SUCCESS;     /* got input - quit net loop */
54 }
55
56 static void nc_timeout (void)
57 {
58         NetState = NETLOOP_SUCCESS;
59 }
60
61 void NcStart (void)
62 {
63         if (!output_packet_len || memcmp (nc_ether, NetEtherNullAddr, 6)) {
64                 /* going to check for input packet */
65                 NetSetHandler (nc_handler);
66                 NetSetTimeout (net_timeout, nc_timeout);
67         } else {
68                 /* send arp request */
69                 uchar *pkt;
70                 NetSetHandler (nc_wait_arp_handler);
71                 pkt = (uchar *) NetTxPacket + NetEthHdrSize () + IP_HDR_SIZE;
72                 memcpy (pkt, output_packet, output_packet_len);
73                 NetSendUDPPacket (nc_ether, nc_ip, nc_port, nc_port, output_packet_len);
74         }
75 }
76
77 int nc_input_packet (uchar * pkt, unsigned dest, unsigned src, unsigned len)
78 {
79         int end, chunk;
80
81         if (dest != nc_port || !len)
82                 return 0;               /* not for us */
83
84         if (input_size == sizeof input_buffer)
85                 return 1;               /* no space */
86         if (len > sizeof input_buffer - input_size)
87                 len = sizeof input_buffer - input_size;
88
89         end = input_offset + input_size;
90         if (end > sizeof input_buffer)
91                 end -= sizeof input_buffer;
92
93         chunk = len;
94         if (end + len > sizeof input_buffer) {
95                 chunk = sizeof input_buffer - end;
96                 memcpy(input_buffer, pkt + chunk, len - chunk);
97         }
98         memcpy (input_buffer + end, pkt, chunk);
99
100         input_size += len;
101
102         return 1;
103 }
104
105 static void nc_send_packet (const char *buf, int len)
106 {
107         struct eth_device *eth;
108         int inited = 0;
109         uchar *pkt;
110         uchar *ether;
111         IPaddr_t ip;
112
113         if ((eth = eth_get_dev ()) == NULL) {
114                 return;
115         }
116
117         if (!memcmp (nc_ether, NetEtherNullAddr, 6)) {
118                 if (eth->state == ETH_STATE_ACTIVE)
119                         return; /* inside net loop */
120                 output_packet = buf;
121                 output_packet_len = len;
122                 NetLoop (NETCONS);      /* wait for arp reply and send packet */
123                 output_packet_len = 0;
124                 return;
125         }
126
127         if (eth->state != ETH_STATE_ACTIVE) {
128                 if (eth_init (gd->bd) < 0)
129                         return;
130                 inited = 1;
131         }
132         pkt = (uchar *) NetTxPacket + NetEthHdrSize () + IP_HDR_SIZE;
133         memcpy (pkt, buf, len);
134         ether = nc_ether;
135         ip = nc_ip;
136         NetSendUDPPacket (ether, ip, nc_port, nc_port, len);
137
138         if (inited)
139                 eth_halt ();
140 }
141
142 int nc_start (void)
143 {
144         int netmask, our_ip;
145
146         nc_port = 6666;         /* default port */
147
148         if (getenv ("ncip")) {
149                 char *p;
150
151                 nc_ip = getenv_IPaddr ("ncip");
152                 if (!nc_ip)
153                         return -1;      /* ncip is 0.0.0.0 */
154                 if ((p = strchr (getenv ("ncip"), ':')) != NULL)
155                         nc_port = simple_strtoul (p + 1, NULL, 10);
156         } else
157                 nc_ip = ~0;             /* ncip is not set */
158
159         our_ip = getenv_IPaddr ("ipaddr");
160         netmask = getenv_IPaddr ("netmask");
161
162         if (nc_ip == ~0 ||                              /* 255.255.255.255 */
163             ((netmask & our_ip) == (netmask & nc_ip) && /* on the same net */
164             (netmask | nc_ip) == ~0))                   /* broadcast to our net */
165                 memset (nc_ether, 0xff, sizeof nc_ether);
166         else
167                 memset (nc_ether, 0, sizeof nc_ether);  /* force arp request */
168
169         return 0;
170 }
171
172 void nc_putc (char c)
173 {
174         if (output_recursion)
175                 return;
176         output_recursion = 1;
177
178         nc_send_packet (&c, 1);
179
180         output_recursion = 0;
181 }
182
183 void nc_puts (const char *s)
184 {
185         int len;
186
187         if (output_recursion)
188                 return;
189         output_recursion = 1;
190
191         if ((len = strlen (s)) > 512)
192                 len = 512;
193
194         nc_send_packet (s, len);
195
196         output_recursion = 0;
197 }
198
199 int nc_getc (void)
200 {
201         uchar c;
202
203         input_recursion = 1;
204
205         net_timeout = 0;        /* no timeout */
206         while (!input_size)
207                 NetLoop (NETCONS);
208
209         input_recursion = 0;
210
211         c = input_buffer[input_offset++];
212
213         if (input_offset >= sizeof input_buffer)
214                 input_offset -= sizeof input_buffer;
215         input_size--;
216
217         return c;
218 }
219
220 int nc_tstc (void)
221 {
222         struct eth_device *eth;
223
224         if (input_recursion)
225                 return 0;
226
227         if (input_size)
228                 return 1;
229
230         eth = eth_get_dev ();
231         if (eth && eth->state == ETH_STATE_ACTIVE)
232                 return 0;       /* inside net loop */
233
234         input_recursion = 1;
235
236         net_timeout = 1;
237         NetLoop (NETCONS);      /* kind of poll */
238
239         input_recursion = 0;
240
241         return input_size != 0;
242 }
243
244 int drv_nc_init (void)
245 {
246         struct stdio_dev dev;
247         int rc;
248
249         memset (&dev, 0, sizeof (dev));
250
251         strcpy (dev.name, "nc");
252         dev.flags = DEV_FLAGS_OUTPUT | DEV_FLAGS_INPUT | DEV_FLAGS_SYSTEM;
253         dev.start = nc_start;
254         dev.putc = nc_putc;
255         dev.puts = nc_puts;
256         dev.getc = nc_getc;
257         dev.tstc = nc_tstc;
258
259         rc = stdio_register (&dev);
260
261         return (rc == 0) ? 1 : rc;
262 }