update files to correct FSF address
[fw/openocd] / src / pld / xilinx_bit.c
1 /***************************************************************************
2  *   Copyright (C) 2006 by Dominic Rath                                    *
3  *   Dominic.Rath@gmx.de                                                   *
4  *                                                                         *
5  *   This program is free software; you can redistribute it and/or modify  *
6  *   it under the terms of the GNU General Public License as published by  *
7  *   the Free Software Foundation; either version 2 of the License, or     *
8  *   (at your option) any later version.                                   *
9  *                                                                         *
10  *   This program is distributed in the hope that it will be useful,       *
11  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
12  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
13  *   GNU General Public License for more details.                          *
14  *                                                                         *
15  *   You should have received a copy of the GNU General Public License     *
16  *   along with this program; if not, write to the                         *
17  *   Free Software Foundation, Inc.,                                       *
18  *   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.           *
19  ***************************************************************************/
20
21 #ifdef HAVE_CONFIG_H
22 #include "config.h"
23 #endif
24
25 #include "xilinx_bit.h"
26 #include "pld.h"
27 #include <helper/log.h>
28
29 #include <sys/stat.h>
30
31
32 static int read_section(FILE *input_file, int length_size, char section,
33         uint32_t *buffer_length, uint8_t **buffer)
34 {
35         uint8_t length_buffer[4];
36         int length;
37         char section_char;
38         int read_count;
39
40         if ((length_size != 2) && (length_size != 4)) {
41                 LOG_ERROR("BUG: length_size neither 2 nor 4");
42                 return ERROR_PLD_FILE_LOAD_FAILED;
43         }
44
45         read_count = fread(&section_char, 1, 1, input_file);
46         if (read_count != 1)
47                 return ERROR_PLD_FILE_LOAD_FAILED;
48
49         if (section_char != section)
50                 return ERROR_PLD_FILE_LOAD_FAILED;
51
52         read_count = fread(length_buffer, 1, length_size, input_file);
53         if (read_count != length_size)
54                 return ERROR_PLD_FILE_LOAD_FAILED;
55
56         if (length_size == 4)
57                 length = be_to_h_u32(length_buffer);
58         else    /* (length_size == 2) */
59                 length = be_to_h_u16(length_buffer);
60
61         if (buffer_length)
62                 *buffer_length = length;
63
64         *buffer = malloc(length);
65
66         read_count = fread(*buffer, 1, length, input_file);
67         if (read_count != length)
68                 return ERROR_PLD_FILE_LOAD_FAILED;
69
70         return ERROR_OK;
71 }
72
73 int xilinx_read_bit_file(struct xilinx_bit_file *bit_file, const char *filename)
74 {
75         FILE *input_file;
76         struct stat input_stat;
77         int read_count;
78
79         if (!filename || !bit_file)
80                 return ERROR_COMMAND_SYNTAX_ERROR;
81
82         if (stat(filename, &input_stat) == -1) {
83                 LOG_ERROR("couldn't stat() %s: %s", filename, strerror(errno));
84                 return ERROR_PLD_FILE_LOAD_FAILED;
85         }
86
87         if (S_ISDIR(input_stat.st_mode)) {
88                 LOG_ERROR("%s is a directory", filename);
89                 return ERROR_PLD_FILE_LOAD_FAILED;
90         }
91
92         if (input_stat.st_size == 0) {
93                 LOG_ERROR("Empty file %s", filename);
94                 return ERROR_PLD_FILE_LOAD_FAILED;
95         }
96
97         input_file = fopen(filename, "rb");
98         if (input_file == NULL) {
99                 LOG_ERROR("couldn't open %s: %s", filename, strerror(errno));
100                 return ERROR_PLD_FILE_LOAD_FAILED;
101         }
102
103         read_count = fread(bit_file->unknown_header, 1, 13, input_file);
104         if (read_count != 13) {
105                 LOG_ERROR("couldn't read unknown_header from file '%s'", filename);
106                 return ERROR_PLD_FILE_LOAD_FAILED;
107         }
108
109         if (read_section(input_file, 2, 'a', NULL, &bit_file->source_file) != ERROR_OK)
110                 return ERROR_PLD_FILE_LOAD_FAILED;
111
112         if (read_section(input_file, 2, 'b', NULL, &bit_file->part_name) != ERROR_OK)
113                 return ERROR_PLD_FILE_LOAD_FAILED;
114
115         if (read_section(input_file, 2, 'c', NULL, &bit_file->date) != ERROR_OK)
116                 return ERROR_PLD_FILE_LOAD_FAILED;
117
118         if (read_section(input_file, 2, 'd', NULL, &bit_file->time) != ERROR_OK)
119                 return ERROR_PLD_FILE_LOAD_FAILED;
120
121         if (read_section(input_file, 4, 'e', &bit_file->length, &bit_file->data) != ERROR_OK)
122                 return ERROR_PLD_FILE_LOAD_FAILED;
123
124         LOG_DEBUG("bit_file: %s %s %s,%s %" PRIi32 "", bit_file->source_file, bit_file->part_name,
125                 bit_file->date, bit_file->time, bit_file->length);
126
127         fclose(input_file);
128
129         return ERROR_OK;
130 }