123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354 |
- /*
- * Copyright (C) 2012 Gabor Juhos <juhosg@openwrt.org>
- *
- * This program is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 as published
- * by the Free Software Foundation.
- *
- */
- #include <stdio.h>
- #include <stdlib.h>
- #include <stdint.h>
- #include <string.h>
- #include <unistd.h> /* for unlink() */
- #include <libgen.h>
- #include <getopt.h> /* for getopt() */
- #include <stdarg.h>
- #include <errno.h>
- #include <sys/stat.h>
- #include "cyg_crc.h"
- #include <arpa/inet.h>
- #include <netinet/in.h>
- #define IH_MAGIC 0x27051956 /* Image Magic Number */
- #define IH_NMLEN 32 /* Image Name Length */
- #define UM_MAGIC 0x55525F46
- #define UM_HEADER_LEN 12
- /*
- * all data in network byte order (aka natural aka bigendian)
- */
- struct u_media_header {
- uint32_t ih_magic; /* Image Header Magic Number */
- uint32_t ih_hcrc; /* Image Header CRC Checksum */
- uint32_t ih_time; /* Image Creation Timestamp */
- uint32_t ih_size; /* Image Data Size */
- uint32_t ih_load; /* Data Load Address */
- uint32_t ih_ep; /* Entry Point Address */
- uint32_t ih_dcrc; /* Image Data CRC Checksum */
- uint8_t ih_os; /* Operating System */
- uint8_t ih_arch; /* CPU architecture */
- uint8_t ih_type; /* Image Type */
- uint8_t ih_comp; /* Compression Type */
- uint8_t ih_name[IH_NMLEN - UM_HEADER_LEN]; /* Image Name */
- uint32_t ih_UMedia_magic; /* U-Media magic number */
- uint32_t ih_UMedia_boardID; /* U-Media board ID */
- uint8_t ih_UMedia_imageType; /* U-Media image type */
- uint8_t ih_UMedia_LoadDefault; /* U-Media load to factory default setting */
- uint8_t ih_UMedia_temp1; /* U-Media didn't use this tag */
- uint8_t ih_UMedia_temp2; /* U-Media didn't use this tag */
- } __attribute__ ((packed));
- struct if_info {
- char *file_name; /* name of the file */
- uint32_t file_size; /* length of the file */
- };
- static char *progname;
- static char *ofname;
- static struct if_info if_info;
- static int factory_defaults;
- static uint32_t board_id;
- static uint8_t image_type;
- /*
- * Message macros
- */
- #define ERR(fmt, ...) do { \
- fflush(0); \
- fprintf(stderr, "[%s] *** error: " fmt "\n", \
- progname, ## __VA_ARGS__ ); \
- } while (0)
- #define ERRS(fmt, ...) do { \
- int save = errno; \
- fflush(0); \
- fprintf(stderr, "[%s] *** error: " fmt " (%s)\n", \
- progname, ## __VA_ARGS__, strerror(save)); \
- } while (0)
- #define DBG(fmt, ...) do { \
- fprintf(stderr, "[%s] " fmt "\n", progname, ## __VA_ARGS__ ); \
- } while (0)
- static void usage(int status)
- {
- FILE *stream = (status != EXIT_SUCCESS) ? stderr : stdout;
- fprintf(stream, "Usage: %s [OPTIONS...]\n", progname);
- fprintf(stream,
- "\n"
- "Options:\n"
- " -B <board_id> set board ID to <board_id>\n"
- " -i <file> read input from the file <file>\n"
- " -F load factory defaults\n"
- " -o <file> write output to the file <file>\n"
- " -T <type> set image type to <type>\n"
- " -h show this screen\n"
- );
- exit(status);
- }
- static int str2u32(char *arg, uint32_t *val)
- {
- char *err = NULL;
- uint32_t t;
- errno=0;
- t = strtoul(arg, &err, 0);
- if (errno || (err==arg) || ((err != NULL) && *err)) {
- return -1;
- }
- *val = t;
- return 0;
- }
- static int str2u8(char *arg, uint8_t *val)
- {
- char *err = NULL;
- uint32_t t;
- errno=0;
- t = strtoul(arg, &err, 0);
- if (errno || (err==arg) || ((err != NULL) && *err)) {
- return -1;
- }
- if (t > 255)
- return -1;
- *val = t;
- return 0;
- }
- static int get_file_stat(struct if_info *fdata)
- {
- struct stat st;
- int res;
- if (fdata->file_name == NULL)
- return 0;
- res = stat(fdata->file_name, &st);
- if (res){
- ERRS("stat failed on %s", fdata->file_name);
- return res;
- }
- fdata->file_size = st.st_size;
- return 0;
- }
- static int read_to_buf(struct if_info *fdata, char *buf)
- {
- FILE *f;
- int ret = EXIT_FAILURE;
- f = fopen(fdata->file_name, "r");
- if (f == NULL) {
- ERRS("could not open \"%s\" for reading", fdata->file_name);
- goto out;
- }
- errno = 0;
- fread(buf, fdata->file_size, 1, f);
- if (errno != 0) {
- ERRS("unable to read from file \"%s\"", fdata->file_name);
- goto out_close;
- }
- ret = EXIT_SUCCESS;
- out_close:
- fclose(f);
- out:
- return ret;
- }
- static int check_options(void)
- {
- int ret;
- if (ofname == NULL) {
- ERR("no %s specified", "output file");
- return -1;
- }
- if (if_info.file_name == NULL) {
- ERR("no %s specified", "input file");
- return -1;
- }
- ret = get_file_stat(&if_info);
- if (ret)
- return ret;
- return 0;
- }
- static int write_fw(char *data, int len)
- {
- FILE *f;
- int ret = EXIT_FAILURE;
- f = fopen(ofname, "w");
- if (f == NULL) {
- ERRS("could not open \"%s\" for writing", ofname);
- goto out;
- }
- errno = 0;
- fwrite(data, len, 1, f);
- if (errno) {
- ERRS("unable to write output file");
- goto out_flush;
- }
- ret = EXIT_SUCCESS;
- out_flush:
- fflush(f);
- fclose(f);
- if (ret != EXIT_SUCCESS) {
- unlink(ofname);
- }
- out:
- return ret;
- }
- static int fix_header(void)
- {
- int buflen;
- char *buf;
- uint32_t crc, crc_orig;
- struct u_media_header *hdr;
- int ret = EXIT_FAILURE;
- buflen = if_info.file_size;
- if (buflen < sizeof(*hdr)) {
- ERR("invalid input file\n");
- return ret;
- }
- buf = malloc(buflen);
- if (!buf) {
- ERR("no memory for buffer\n");
- goto out;
- }
- ret = read_to_buf(&if_info, buf);
- if (ret)
- goto out_free_buf;
- hdr = (struct u_media_header *) buf;
- if (ntohl(hdr->ih_magic) != IH_MAGIC) {
- ERR("invalid input file, bad magic\n");
- goto out_free_buf;
- }
- /* verify header CRC */
- crc_orig = ntohl(hdr->ih_hcrc);
- hdr->ih_hcrc = 0;
- crc = cyg_ether_crc32((unsigned char *)hdr, sizeof(*hdr));
- if (crc != crc_orig) {
- ERR("invalid input file, bad header CRC\n");
- goto out_free_buf;
- }
- hdr->ih_name[IH_NMLEN - UM_HEADER_LEN - 1] = '\0';
- /* set U-Media specific fields */
- hdr->ih_UMedia_magic = htonl(UM_MAGIC);
- hdr->ih_UMedia_boardID = htonl(board_id);
- hdr->ih_UMedia_imageType = image_type;
- hdr->ih_UMedia_LoadDefault = (factory_defaults) ? 1 : 0;
- /* update header CRC */
- crc = cyg_ether_crc32((unsigned char *)hdr, sizeof(*hdr));
- hdr->ih_hcrc = htonl(crc);
- ret = write_fw(buf, buflen);
- if (ret)
- goto out_free_buf;
- DBG("U-Media header fixed in \"%s\"", ofname);
- ret = EXIT_SUCCESS;
- out_free_buf:
- free(buf);
- out:
- return ret;
- }
- int main(int argc, char *argv[])
- {
- int ret = EXIT_FAILURE;
- progname = basename(argv[0]);
- while (1) {
- int c;
- c = getopt(argc, argv, "B:Fi:o:T:h");
- if (c == -1)
- break;
- switch (c) {
- case 'B':
- if (str2u32(optarg, &board_id)) {
- ERR("%s is invalid '%s'",
- "board ID", optarg);
- goto out;
- }
- break;
- case 'T':
- if (str2u8(optarg, &image_type)) {
- ERR("%s is invalid '%s'",
- "image type", optarg);
- goto out;
- }
- break;
- case 'F':
- factory_defaults = 1;
- break;
- case 'i':
- if_info.file_name = optarg;
- break;
- case 'o':
- ofname = optarg;
- break;
- case 'h':
- usage(EXIT_SUCCESS);
- break;
- default:
- usage(EXIT_FAILURE);
- break;
- }
- }
- ret = check_options();
- if (ret)
- goto out;
- ret = fix_header();
- out:
- return ret;
- }
|