common/cmd_source.c

   1 /*
   2  * (C) Copyright 2001
   3  * Kyle Harris, kharris@nexus-tech.net
   4  *
   5  * SPDX-License-Identifier:     GPL-2.0+
   6  */
   7
   8 /*
   9  * The "source" command allows to define "script images", i. e. files
  10  * that contain command sequences that can be executed by the command
  11  * interpreter. It returns the exit status of the last command
  12  * executed from the script. This is very similar to running a shell
  13  * script in a UNIX shell, hence the name for the command.
  14  */
  15
  16 /* #define DEBUG */
  17
  18 #include <common.h>
  19 #include <command.h>
  20 #include <image.h>
  21 #include <malloc.h>
  22 #include <asm/byteorder.h>
  23 #include <asm/io.h>
  24 #if defined(CONFIG_8xx)
  25 #include <mpc8xx.h>
  26 #endif
  27
  28 int
  29 source (ulong addr, const char *fit_uname)
  30 {
  31         ulong           len;
  32 #if defined(CONFIG_IMAGE_FORMAT_LEGACY)
  33         const image_header_t *hdr;
  34 #endif
  35         ulong           *data;
  36         int             verify;
  37         void *buf;
  38 #if defined(CONFIG_FIT)
  39         const void*     fit_hdr;
  40         int             noffset;
  41         const void      *fit_data;
  42         size_t          fit_len;
  43 #endif
  44
  45         verify = getenv_yesno ("verify");
  46
  47         buf = map_sysmem(addr, 0);
  48         switch (genimg_get_format(buf)) {
  49 #if defined(CONFIG_IMAGE_FORMAT_LEGACY)
  50         case IMAGE_FORMAT_LEGACY:
  51                 hdr = buf;
  52
  53                 if (!image_check_magic (hdr)) {
  54                         puts ("Bad magic number\n");
  55                         return 1;
  56                 }
  57
  58                 if (!image_check_hcrc (hdr)) {
  59                         puts ("Bad header crc\n");
  60                         return 1;
  61                 }
  62
  63                 if (verify) {
  64                         if (!image_check_dcrc (hdr)) {
  65                                 puts ("Bad data crc\n");
  66                                 return 1;
  67                         }
  68                 }
  69
  70                 if (!image_check_type (hdr, IH_TYPE_SCRIPT)) {
  71                         puts ("Bad image type\n");
  72                         return 1;
  73                 }
  74
  75                 /* get length of script */
  76                 data = (ulong *)image_get_data (hdr);
  77
  78                 if ((len = uimage_to_cpu (*data)) == 0) {
  79                         puts ("Empty Script\n");
  80                         return 1;
  81                 }
  82
  83                 /*
  84                  * scripts are just multi-image files with one component, seek
  85                  * past the zero-terminated sequence of image lengths to get
  86                  * to the actual image data
  87                  */
  88                 while (*data++);
  89                 break;
  90 #endif
  91 #if defined(CONFIG_FIT)
  92         case IMAGE_FORMAT_FIT:
  93                 if (fit_uname == NULL) {
  94                         puts ("No FIT subimage unit name\n");
  95                         return 1;
  96                 }
  97
  98                 fit_hdr = buf;
  99                 if (!fit_check_format (fit_hdr)) {
 100                         puts ("Bad FIT image format\n");
 101                         return 1;
 102                 }
 103
 104                 /* get script component image node offset */
 105                 noffset = fit_image_get_node (fit_hdr, fit_uname);
 106                 if (noffset < 0) {
 107                         printf ("Can't find '%s' FIT subimage\n", fit_uname);
 108                         return 1;
 109                 }
 110
 111                 if (!fit_image_check_type (fit_hdr, noffset, IH_TYPE_SCRIPT)) {
 112                         puts ("Not a image image\n");
 113                         return 1;
 114                 }
 115
 116                 /* verify integrity */
 117                 if (verify) {
 118                         if (!fit_image_verify(fit_hdr, noffset)) {
 119                                 puts ("Bad Data Hash\n");
 120                                 return 1;
 121                         }
 122                 }
 123
 124                 /* get script subimage data address and length */
 125                 if (fit_image_get_data (fit_hdr, noffset, &fit_data, &fit_len)) {
 126                         puts ("Could not find script subimage data\n");
 127                         return 1;
 128                 }
 129
 130                 data = (ulong *)fit_data;
 131                 len = (ulong)fit_len;
 132                 break;
 133 #endif
 134         default:
 135                 puts ("Wrong image format for \"source\" command\n");
 136                 return 1;
 137         }
 138
 139         debug ("** Script length: %ld\n", len);
 140         return run_command_list((char *)data, len, 0);
 141 }
 142
 143 /**************************************************/
 144 #if defined(CONFIG_CMD_SOURCE)
 145 static int do_source(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])
 146 {
 147         ulong addr;
 148         int rcode;
 149         const char *fit_uname = NULL;
 150
 151         /* Find script image */
 152         if (argc < 2) {
 153                 addr = CONFIG_SYS_LOAD_ADDR;
 154                 debug ("*  source: default load address = 0x%08lx\n", addr);
 155 #if defined(CONFIG_FIT)
 156         } else if (fit_parse_subimage (argv[1], load_addr, &addr, &fit_uname)) {
 157                 debug ("*  source: subimage '%s' from FIT image at 0x%08lx\n",
 158                                 fit_uname, addr);
 159 #endif
 160         } else {
 161                 addr = simple_strtoul(argv[1], NULL, 16);
 162                 debug ("*  source: cmdline image address = 0x%08lx\n", addr);
 163         }
 164
 165         printf ("## Executing script at %08lx\n", addr);
 166         rcode = source (addr, fit_uname);
 167         return rcode;
 168 }
 169
 170 #ifdef CONFIG_SYS_LONGHELP
 171 static char source_help_text[] =
 172         "[addr]\n"
 173         "\t- run script starting at addr\n"
 174         "\t- A valid image header must be present"
 175 #if defined(CONFIG_FIT)
 176         "\n"
 177         "For FIT format uImage addr must include subimage\n"
 178         "unit name in the form of addr:<subimg_uname>"
 179 #endif
 180         "";
 181 #endif
 182
 183 U_BOOT_CMD(
 184         source, 2, 0,   do_source,
 185         "run script from memory", source_help_text
 186 );
 187 #endif