+/* Simple Xilinx .bit parser. The file starts with the fixed opaque byte sequence
+ * 00 09 0f f0 0f f0 0f f0 0f f0 00 00 01
+ * After that the format is 1 byte section type (ASCII character), 2 byte length
+ * (big endian), <length> bytes content. Except for section 'e' which has 4 bytes
+ * length.
+ */
+static int bitparse_find_section(FILE *infile, char section_name, unsigned int *section_length)
+{
+ int result = 0;
+ #define MAX_FPGA_BIT_STREAM_HEADER_SEARCH 100 // maximum number of bytes to search for the requested section
+ uint16_t numbytes = 0;
+ while(numbytes < MAX_FPGA_BIT_STREAM_HEADER_SEARCH) {
+ char current_name = (char)fgetc(infile);
+ numbytes++;
+ if(current_name < 'a' || current_name > 'e') {
+ /* Strange section name, abort */
+ break;
+ }
+ unsigned int current_length = 0;
+ switch(current_name) {
+ case 'e':
+ /* Four byte length field */
+ current_length += fgetc(infile) << 24;
+ current_length += fgetc(infile) << 16;
+ numbytes += 2;
+ default: /* Fall through, two byte length field */
+ current_length += fgetc(infile) << 8;
+ current_length += fgetc(infile) << 0;
+ numbytes += 2;
+ }
+
+ if(current_name != 'e' && current_length > 255) {
+ /* Maybe a parse error */
+ break;
+ }
+
+ if(current_name == section_name) {
+ /* Found it */
+ *section_length = current_length;
+ result = 1;
+ break;
+ }
+
+ for (uint16_t i = 0; i < current_length && numbytes < MAX_FPGA_BIT_STREAM_HEADER_SEARCH; i++) {
+ (void)fgetc(infile);
+ numbytes++;
+ }
+ }
+
+ return result;
+}
+
+
+static int FpgaGatherVersion(FILE *infile, char* infile_name, char *dst, int len)
+{
+ unsigned int fpga_info_len;
+ char tempstr[40] = {0x00};
+
+ dst[0] = '\0';
+
+ for (uint16_t i = 0; i < FPGA_BITSTREAM_FIXED_HEADER_SIZE; i++) {
+ if (fgetc(infile) != bitparse_fixed_header[i]) {
+ fprintf(stderr, "Invalid FPGA file. Aborting...\n\n");
+ return(EXIT_FAILURE);
+ }
+ }
+
+ strncat(dst, basename(infile_name), len-1);
+ // if (bitparse_find_section(infile, 'a', &fpga_info_len)) {
+ // for (uint16_t i = 0; i < fpga_info_len; i++) {
+ // char c = (char)fgetc(infile);
+ // if (i < sizeof(tempstr)) {
+ // tempstr[i] = c;
+ // }
+ // }
+ // strncat(dst, tempstr, len-1);
+ // }
+ strncat(dst, " built", len-1);
+ if (bitparse_find_section(infile, 'b', &fpga_info_len)) {
+ strncat(dst, " for ", len-1);
+ for (uint16_t i = 0; i < fpga_info_len; i++) {
+ char c = (char)fgetc(infile);
+ if (i < sizeof(tempstr)) {
+ tempstr[i] = c;
+ }
+ }
+ strncat(dst, tempstr, len-1);
+ }
+ if (bitparse_find_section(infile, 'c', &fpga_info_len)) {
+ strncat(dst, " on ", len-1);
+ for (uint16_t i = 0; i < fpga_info_len; i++) {
+ char c = (char)fgetc(infile);
+ if (i < sizeof(tempstr)) {
+ tempstr[i] = c;
+ }
+ }
+ strncat(dst, tempstr, len-1);
+ }
+ if (bitparse_find_section(infile, 'd', &fpga_info_len)) {
+ strncat(dst, " at ", len-1);
+ for (uint16_t i = 0; i < fpga_info_len; i++) {
+ char c = (char)fgetc(infile);
+ if (i < sizeof(tempstr)) {
+ tempstr[i] = c;
+ }
+ }
+ strncat(dst, tempstr, len-1);
+ }
+ return 0;
+}
+
+
+static void print_version_info_preamble(FILE *outfile, int num_infiles) {
+ fprintf(outfile, "//-----------------------------------------------------------------------------\n");
+ fprintf(outfile, "// piwi, 2018\n");
+ fprintf(outfile, "//\n");
+ fprintf(outfile, "// This code is licensed to you under the terms of the GNU GPL, version 2 or,\n");
+ fprintf(outfile, "// at your option, any later version. See the LICENSE.txt file for the text of\n");
+ fprintf(outfile, "// the license.\n");
+ fprintf(outfile, "//-----------------------------------------------------------------------------\n");
+ fprintf(outfile, "// Version information on fpga images\n");
+ fprintf(outfile, "//\n");
+ fprintf(outfile, "// This file is generated by fpga_compress. Don't edit!\n");
+ fprintf(outfile, "//-----------------------------------------------------------------------------\n");
+ fprintf(outfile, "\n");
+ fprintf(outfile, "\n");
+ fprintf(outfile, "const int fpga_bitstream_num = %d;\n", num_infiles);
+ fprintf(outfile, "const char* const fpga_version_information[%d] = {\n", num_infiles);
+}
+
+
+static int generate_fpga_version_info(FILE *infile[], char *infile_names[], int num_infiles, FILE *outfile) {
+
+ char version_string[80] = "";
+
+ print_version_info_preamble(outfile, num_infiles);
+
+ for (int i = 0; i < num_infiles; i++) {
+ FpgaGatherVersion(infile[i], infile_names[i], version_string, sizeof(version_string));
+ fprintf(outfile, "\t\"%s\"", version_string);
+ if (i != num_infiles-1) {
+ fprintf(outfile, ",");
+ }
+ fprintf(outfile,"\n");
+ }
+
+ fprintf(outfile, "};\n");
+
+ return 0;
+}
+
+