]> git.sur5r.net Git - u-boot/blob - api/api.c
net: cosmetic: Rename tmp to reply_ip_addr in arp.c
[u-boot] / api / api.c
1 /*
2  * (C) Copyright 2007 Semihalf
3  *
4  * Written by: Rafal Jaworowski <raj@semihalf.com>
5  *
6  * See file CREDITS for list of people who contributed to this
7  * project.
8  *
9  * This program is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU General Public License as
11  * published by the Free Software Foundation; either version 2 of
12  * the License, or (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
22  * MA 02111-1307 USA
23  *
24  */
25
26 #include <config.h>
27 #include <command.h>
28 #include <common.h>
29 #include <malloc.h>
30 #include <environment.h>
31 #include <linux/types.h>
32 #include <api_public.h>
33
34 #include "api_private.h"
35
36 #define DEBUG
37 #undef DEBUG
38
39 /*****************************************************************************
40  *
41  * This is the API core.
42  *
43  * API_ functions are part of U-Boot code and constitute the lowest level
44  * calls:
45  *
46  *  - they know what values they need as arguments
47  *  - their direct return value pertains to the API_ "shell" itself (0 on
48  *    success, some error code otherwise)
49  *  - if the call returns a value it is buried within arguments
50  *
51  ****************************************************************************/
52
53 #ifdef DEBUG
54 #define debugf(fmt, args...) do { printf("%s(): ", __func__); printf(fmt, ##args); } while (0)
55 #else
56 #define debugf(fmt, args...)
57 #endif
58
59 typedef int (*cfp_t)(va_list argp);
60
61 static int calls_no;
62
63 /*
64  * pseudo signature:
65  *
66  * int API_getc(int *c)
67  */
68 static int API_getc(va_list ap)
69 {
70         int *c;
71
72         if ((c = (int *)va_arg(ap, u_int32_t)) == NULL)
73                 return API_EINVAL;
74
75         *c = getc();
76         return 0;
77 }
78
79 /*
80  * pseudo signature:
81  *
82  * int API_tstc(int *c)
83  */
84 static int API_tstc(va_list ap)
85 {
86         int *t;
87
88         if ((t = (int *)va_arg(ap, u_int32_t)) == NULL)
89                 return API_EINVAL;
90
91         *t = tstc();
92         return 0;
93 }
94
95 /*
96  * pseudo signature:
97  *
98  * int API_putc(char *ch)
99  */
100 static int API_putc(va_list ap)
101 {
102         char *c;
103
104         if ((c = (char *)va_arg(ap, u_int32_t)) == NULL)
105                 return API_EINVAL;
106
107         putc(*c);
108         return 0;
109 }
110
111 /*
112  * pseudo signature:
113  *
114  * int API_puts(char **s)
115  */
116 static int API_puts(va_list ap)
117 {
118         char *s;
119
120         if ((s = (char *)va_arg(ap, u_int32_t)) == NULL)
121                 return API_EINVAL;
122
123         puts(s);
124         return 0;
125 }
126
127 /*
128  * pseudo signature:
129  *
130  * int API_reset(void)
131  */
132 static int API_reset(va_list ap)
133 {
134         do_reset(NULL, 0, 0, NULL);
135
136         /* NOT REACHED */
137         return 0;
138 }
139
140 /*
141  * pseudo signature:
142  *
143  * int API_get_sys_info(struct sys_info *si)
144  *
145  * fill out the sys_info struct containing selected parameters about the
146  * machine
147  */
148 static int API_get_sys_info(va_list ap)
149 {
150         struct sys_info *si;
151
152         si = (struct sys_info *)va_arg(ap, u_int32_t);
153         if (si == NULL)
154                 return API_ENOMEM;
155
156         return (platform_sys_info(si)) ? 0 : API_ENODEV;
157 }
158
159 /*
160  * pseudo signature:
161  *
162  * int API_udelay(unsigned long *udelay)
163  */
164 static int API_udelay(va_list ap)
165 {
166         unsigned long *d;
167
168         if ((d = (unsigned long *)va_arg(ap, u_int32_t)) == NULL)
169                 return API_EINVAL;
170
171         udelay(*d);
172         return 0;
173 }
174
175 /*
176  * pseudo signature:
177  *
178  * int API_get_timer(unsigned long *current, unsigned long *base)
179  */
180 static int API_get_timer(va_list ap)
181 {
182         unsigned long *base, *cur;
183
184         cur = (unsigned long *)va_arg(ap, u_int32_t);
185         if (cur == NULL)
186                 return API_EINVAL;
187
188         base = (unsigned long *)va_arg(ap, u_int32_t);
189         if (base == NULL)
190                 return API_EINVAL;
191
192         *cur = get_timer(*base);
193         return 0;
194 }
195
196
197 /*****************************************************************************
198  *
199  * pseudo signature:
200  *
201  * int API_dev_enum(struct device_info *)
202  *
203  *
204  * cookies uniqely identify the previously enumerated device instance and
205  * provide a hint for what to inspect in current enum iteration:
206  *
207  *   - net: &eth_device struct address from list pointed to by eth_devices
208  *
209  *   - storage: block_dev_desc_t struct address from &ide_dev_desc[n],
210  *     &scsi_dev_desc[n] and similar tables
211  *
212  ****************************************************************************/
213
214 static int API_dev_enum(va_list ap)
215 {
216         struct device_info *di;
217
218         /* arg is ptr to the device_info struct we are going to fill out */
219         di = (struct device_info *)va_arg(ap, u_int32_t);
220         if (di == NULL)
221                 return API_EINVAL;
222
223         if (di->cookie == NULL) {
224                 /* start over - clean up enumeration */
225                 dev_enum_reset();       /* XXX shouldn't the name contain 'stor'? */
226                 debugf("RESTART ENUM\n");
227
228                 /* net device enumeration first */
229                 if (dev_enum_net(di))
230                         return 0;
231         }
232
233         /*
234          * The hidden assumption is there can only be one active network
235          * device and it is identified upon enumeration (re)start, so there's
236          * no point in trying to find network devices in other cases than the
237          * (re)start and hence the 'next' device can only be storage
238          */
239         if (!dev_enum_storage(di))
240                 /* make sure we mark there are no more devices */
241                 di->cookie = NULL;
242
243         return 0;
244 }
245
246
247 static int API_dev_open(va_list ap)
248 {
249         struct device_info *di;
250         int err = 0;
251
252         /* arg is ptr to the device_info struct */
253         di = (struct device_info *)va_arg(ap, u_int32_t);
254         if (di == NULL)
255                 return API_EINVAL;
256
257         /* Allow only one consumer of the device at a time */
258         if (di->state == DEV_STA_OPEN)
259                 return API_EBUSY;
260
261         if (di->cookie == NULL)
262                 return API_ENODEV;
263
264         if (di->type & DEV_TYP_STOR)
265                 err = dev_open_stor(di->cookie);
266
267         else if (di->type & DEV_TYP_NET)
268                 err = dev_open_net(di->cookie);
269         else
270                 err = API_ENODEV;
271
272         if (!err)
273                 di->state = DEV_STA_OPEN;
274
275         return err;
276 }
277
278
279 static int API_dev_close(va_list ap)
280 {
281         struct device_info *di;
282         int err = 0;
283
284         /* arg is ptr to the device_info struct */
285         di = (struct device_info *)va_arg(ap, u_int32_t);
286         if (di == NULL)
287                 return API_EINVAL;
288
289         if (di->state == DEV_STA_CLOSED)
290                 return 0;
291
292         if (di->cookie == NULL)
293                 return API_ENODEV;
294
295         if (di->type & DEV_TYP_STOR)
296                 err = dev_close_stor(di->cookie);
297
298         else if (di->type & DEV_TYP_NET)
299                 err = dev_close_net(di->cookie);
300         else
301                 /*
302                  * In case of unknown device we cannot change its state, so
303                  * only return error code
304                  */
305                 err = API_ENODEV;
306
307         if (!err)
308                 di->state = DEV_STA_CLOSED;
309
310         return err;
311 }
312
313
314 /*
315  * Notice: this is for sending network packets only, as U-Boot does not
316  * support writing to storage at the moment (12.2007)
317  *
318  * pseudo signature:
319  *
320  * int API_dev_write(
321  *      struct device_info *di,
322  *      void *buf,
323  *      int *len
324  * )
325  *
326  * buf: ptr to buffer from where to get the data to send
327  *
328  * len: length of packet to be sent (in bytes)
329  *
330  */
331 static int API_dev_write(va_list ap)
332 {
333         struct device_info *di;
334         void *buf;
335         int *len;
336         int err = 0;
337
338         /* 1. arg is ptr to the device_info struct */
339         di = (struct device_info *)va_arg(ap, u_int32_t);
340         if (di == NULL)
341                 return API_EINVAL;
342
343         /* XXX should we check if device is open? i.e. the ->state ? */
344
345         if (di->cookie == NULL)
346                 return API_ENODEV;
347
348         /* 2. arg is ptr to buffer from where to get data to write */
349         buf = (void *)va_arg(ap, u_int32_t);
350         if (buf == NULL)
351                 return API_EINVAL;
352
353         /* 3. arg is length of buffer */
354         len = (int *)va_arg(ap, u_int32_t);
355         if (len == NULL)
356                 return API_EINVAL;
357         if (*len <= 0)
358                 return API_EINVAL;
359
360         if (di->type & DEV_TYP_STOR)
361                 /*
362                  * write to storage is currently not supported by U-Boot:
363                  * no storage device implements block_write() method
364                  */
365                 return API_ENODEV;
366
367         else if (di->type & DEV_TYP_NET)
368                 err = dev_write_net(di->cookie, buf, *len);
369         else
370                 err = API_ENODEV;
371
372         return err;
373 }
374
375
376 /*
377  * pseudo signature:
378  *
379  * int API_dev_read(
380  *      struct device_info *di,
381  *      void *buf,
382  *      size_t *len,
383  *      unsigned long *start
384  *      size_t *act_len
385  * )
386  *
387  * buf: ptr to buffer where to put the read data
388  *
389  * len: ptr to length to be read
390  *      - network: len of packet to read (in bytes)
391  *      - storage: # of blocks to read (can vary in size depending on define)
392  *
393  * start: ptr to start block (only used for storage devices, ignored for
394  *        network)
395  *
396  * act_len: ptr to where to put the len actually read
397  */
398 static int API_dev_read(va_list ap)
399 {
400         struct device_info *di;
401         void *buf;
402         lbasize_t *len_stor, *act_len_stor;
403         lbastart_t *start;
404         int *len_net, *act_len_net;
405
406         /* 1. arg is ptr to the device_info struct */
407         di = (struct device_info *)va_arg(ap, u_int32_t);
408         if (di == NULL)
409                 return API_EINVAL;
410
411         /* XXX should we check if device is open? i.e. the ->state ? */
412
413         if (di->cookie == NULL)
414                 return API_ENODEV;
415
416         /* 2. arg is ptr to buffer from where to put the read data */
417         buf = (void *)va_arg(ap, u_int32_t);
418         if (buf == NULL)
419                 return API_EINVAL;
420
421         if (di->type & DEV_TYP_STOR) {
422                 /* 3. arg - ptr to var with # of blocks to read */
423                 len_stor = (lbasize_t *)va_arg(ap, u_int32_t);
424                 if (!len_stor)
425                         return API_EINVAL;
426                 if (*len_stor <= 0)
427                         return API_EINVAL;
428
429                 /* 4. arg - ptr to var with start block */
430                 start = (lbastart_t *)va_arg(ap, u_int32_t);
431
432                 /* 5. arg - ptr to var where to put the len actually read */
433                 act_len_stor = (lbasize_t *)va_arg(ap, u_int32_t);
434                 if (!act_len_stor)
435                         return API_EINVAL;
436
437                 *act_len_stor = dev_read_stor(di->cookie, buf, *len_stor, *start);
438
439         } else if (di->type & DEV_TYP_NET) {
440
441                 /* 3. arg points to the var with length of packet to read */
442                 len_net = (int *)va_arg(ap, u_int32_t);
443                 if (!len_net)
444                         return API_EINVAL;
445                 if (*len_net <= 0)
446                         return API_EINVAL;
447
448                 /* 4. - ptr to var where to put the len actually read */
449                 act_len_net = (int *)va_arg(ap, u_int32_t);
450                 if (!act_len_net)
451                         return API_EINVAL;
452
453                 *act_len_net = dev_read_net(di->cookie, buf, *len_net);
454
455         } else
456                 return API_ENODEV;
457
458         return 0;
459 }
460
461
462 /*
463  * pseudo signature:
464  *
465  * int API_env_get(const char *name, char **value)
466  *
467  * name: ptr to name of env var
468  */
469 static int API_env_get(va_list ap)
470 {
471         char *name, **value;
472
473         if ((name = (char *)va_arg(ap, u_int32_t)) == NULL)
474                 return API_EINVAL;
475         if ((value = (char **)va_arg(ap, u_int32_t)) == NULL)
476                 return API_EINVAL;
477
478         *value = getenv(name);
479
480         return 0;
481 }
482
483 /*
484  * pseudo signature:
485  *
486  * int API_env_set(const char *name, const char *value)
487  *
488  * name: ptr to name of env var
489  *
490  * value: ptr to value to be set
491  */
492 static int API_env_set(va_list ap)
493 {
494         char *name, *value;
495
496         if ((name = (char *)va_arg(ap, u_int32_t)) == NULL)
497                 return API_EINVAL;
498         if ((value = (char *)va_arg(ap, u_int32_t)) == NULL)
499                 return API_EINVAL;
500
501         setenv(name, value);
502
503         return 0;
504 }
505
506 /*
507  * pseudo signature:
508  *
509  * int API_env_enum(const char *last, char **next)
510  *
511  * last: ptr to name of env var found in last iteration
512  */
513 static int API_env_enum(va_list ap)
514 {
515         int i, n;
516         char *last, **next;
517
518         last = (char *)va_arg(ap, u_int32_t);
519
520         if ((next = (char **)va_arg(ap, u_int32_t)) == NULL)
521                 return API_EINVAL;
522
523         if (last == NULL)
524                 /* start over */
525                 *next = ((char *)env_get_addr(0));
526         else {
527                 *next = last;
528
529                 for (i = 0; env_get_char(i) != '\0'; i = n + 1) {
530                         for (n = i; env_get_char(n) != '\0'; ++n) {
531                                 if (n >= CONFIG_ENV_SIZE) {
532                                         /* XXX shouldn't we set *next = NULL?? */
533                                         return 0;
534                                 }
535                         }
536
537                         if (envmatch((uchar *)last, i) < 0)
538                                 continue;
539
540                         /* try to get next name */
541                         i = n + 1;
542                         if (env_get_char(i) == '\0') {
543                                 /* no more left */
544                                 *next = NULL;
545                                 return 0;
546                         }
547
548                         *next = ((char *)env_get_addr(i));
549                         return 0;
550                 }
551         }
552
553         return 0;
554 }
555
556 /*
557  * pseudo signature:
558  *
559  * int API_display_get_info(int type, struct display_info *di)
560  */
561 static int API_display_get_info(va_list ap)
562 {
563         int type;
564         struct display_info *di;
565
566         type = va_arg(ap, int);
567         di = va_arg(ap, struct display_info *);
568
569         return display_get_info(type, di);
570 }
571
572 /*
573  * pseudo signature:
574  *
575  * int API_display_draw_bitmap(ulong bitmap, int x, int y)
576  */
577 static int API_display_draw_bitmap(va_list ap)
578 {
579         ulong bitmap;
580         int x, y;
581
582         bitmap = va_arg(ap, ulong);
583         x = va_arg(ap, int);
584         y = va_arg(ap, int);
585
586         return display_draw_bitmap(bitmap, x, y);
587 }
588
589 /*
590  * pseudo signature:
591  *
592  * void API_display_clear(void)
593  */
594 static int API_display_clear(va_list ap)
595 {
596         display_clear();
597         return 0;
598 }
599
600 static cfp_t calls_table[API_MAXCALL] = { NULL, };
601
602 /*
603  * The main syscall entry point - this is not reentrant, only one call is
604  * serviced until finished.
605  *
606  * e.g. syscall(1, int *, u_int32_t, u_int32_t, u_int32_t, u_int32_t);
607  *
608  * call:        syscall number
609  *
610  * retval:      points to the return value placeholder, this is the place the
611  *              syscall puts its return value, if NULL the caller does not
612  *              expect a return value
613  *
614  * ...          syscall arguments (variable number)
615  *
616  * returns:     0 if the call not found, 1 if serviced
617  */
618 int syscall(int call, int *retval, ...)
619 {
620         va_list ap;
621         int rv;
622
623         if (call < 0 || call >= calls_no) {
624                 debugf("invalid call #%d\n", call);
625                 return 0;
626         }
627
628         if (calls_table[call] == NULL) {
629                 debugf("syscall #%d does not have a handler\n", call);
630                 return 0;
631         }
632
633         va_start(ap, retval);
634         rv = calls_table[call](ap);
635         if (retval != NULL)
636                 *retval = rv;
637
638         return 1;
639 }
640
641 void api_init(void)
642 {
643         struct api_signature *sig = NULL;
644
645         /* TODO put this into linker set one day... */
646         calls_table[API_RSVD] = NULL;
647         calls_table[API_GETC] = &API_getc;
648         calls_table[API_PUTC] = &API_putc;
649         calls_table[API_TSTC] = &API_tstc;
650         calls_table[API_PUTS] = &API_puts;
651         calls_table[API_RESET] = &API_reset;
652         calls_table[API_GET_SYS_INFO] = &API_get_sys_info;
653         calls_table[API_UDELAY] = &API_udelay;
654         calls_table[API_GET_TIMER] = &API_get_timer;
655         calls_table[API_DEV_ENUM] = &API_dev_enum;
656         calls_table[API_DEV_OPEN] = &API_dev_open;
657         calls_table[API_DEV_CLOSE] = &API_dev_close;
658         calls_table[API_DEV_READ] = &API_dev_read;
659         calls_table[API_DEV_WRITE] = &API_dev_write;
660         calls_table[API_ENV_GET] = &API_env_get;
661         calls_table[API_ENV_SET] = &API_env_set;
662         calls_table[API_ENV_ENUM] = &API_env_enum;
663         calls_table[API_DISPLAY_GET_INFO] = &API_display_get_info;
664         calls_table[API_DISPLAY_DRAW_BITMAP] = &API_display_draw_bitmap;
665         calls_table[API_DISPLAY_CLEAR] = &API_display_clear;
666         calls_no = API_MAXCALL;
667
668         debugf("API initialized with %d calls\n", calls_no);
669
670         dev_stor_init();
671
672         /*
673          * Produce the signature so the API consumers can find it
674          */
675         sig = malloc(sizeof(struct api_signature));
676         if (sig == NULL) {
677                 printf("API: could not allocate memory for the signature!\n");
678                 return;
679         }
680
681         debugf("API sig @ 0x%08x\n", sig);
682         memcpy(sig->magic, API_SIG_MAGIC, 8);
683         sig->version = API_SIG_VERSION;
684         sig->syscall = &syscall;
685         sig->checksum = 0;
686         sig->checksum = crc32(0, (unsigned char *)sig,
687                               sizeof(struct api_signature));
688         debugf("syscall entry: 0x%08x\n", sig->syscall);
689 }
690
691 void platform_set_mr(struct sys_info *si, unsigned long start, unsigned long size,
692                         int flags)
693 {
694         int i;
695
696         if (!si->mr || !size || (flags == 0))
697                 return;
698
699         /* find free slot */
700         for (i = 0; i < si->mr_no; i++)
701                 if (si->mr[i].flags == 0) {
702                         /* insert new mem region */
703                         si->mr[i].start = start;
704                         si->mr[i].size = size;
705                         si->mr[i].flags = flags;
706                         return;
707                 }
708 }