1// SPDX-License-Identifier: GPL-2.0+
2/*
3 *
4 * Read FactorySet information from EEPROM into global structure.
5 * (C) Copyright 2013 Siemens Schweiz AG
6 */
7
8#if !defined(CONFIG_SPL_BUILD)
9
10#include <env.h>
11#include <g_dnl.h>
12#include <net.h>
13#include <asm/io.h>
14#if CONFIG_IS_ENABLED(AM33XX)
15#include <asm/arch/cpu.h>
16#endif
17#include "eeprom.h"
18#include "factoryset.h"
19
20#define EEPR_PG_SZ	0x80
21#define OFF_PG		(SIEMENS_EE_ADDR_FACTORYSET / EEPR_PG_SZ)
22
23/* Global variable that contains necessary information from FactorySet */
24struct factorysetcontainer factory_dat;
25
26#define fact_get_char(i) *((char *)&eeprom_buf[i])
27
28static int fact_match(unsigned char *eeprom_buf, uchar *s1, int i2)
29{
30	if (s1 == NULL)
31		return -1;
32
33	while (*s1 == fact_get_char(i2++))
34		if (*s1++ == '=')
35			return i2;
36
37	if (*s1 == '\0' && fact_get_char(i2-1) == '=')
38		return i2;
39
40	return -1;
41}
42
43static int get_factory_val(unsigned char *eeprom_buf, int size, uchar *name,
44			uchar *buf, int len)
45{
46	int i, nxt = 0;
47
48	for (i = 0; fact_get_char(i) != '\0'; i = nxt + 1) {
49		int val, n;
50
51		for (nxt = i; fact_get_char(nxt) != '\0'; ++nxt) {
52			if (nxt >= size)
53				return -1;
54		}
55
56		val = fact_match(eeprom_buf, (uchar *)name, i);
57		if (val < 0)
58			continue;
59
60		/* found; copy out */
61		for (n = 0; n < len; ++n, ++buf) {
62			*buf = fact_get_char(val++);
63			if (*buf == '\0')
64				return n;
65		}
66
67		if (n)
68			*--buf = '\0';
69
70		printf("env_buf [%d bytes] too small for value of \"%s\"\n",
71		       len, name);
72
73		return n;
74	}
75	return -1;
76}
77
78static
79int get_factory_record_val(unsigned char *eeprom_buf, int size,	uchar *record,
80	uchar *name, uchar *buf, int len)
81{
82	int ret = -1;
83	int i, nxt = 0;
84	int c;
85	unsigned char end = 0xff;
86	unsigned char tmp;
87
88	for (i = 0; fact_get_char(i) != end; i = nxt) {
89		nxt = i + 1;
90		if (fact_get_char(i) == '>') {
91			int pos;
92			int endpos;
93			int z;
94			int level = 0;
95
96			c = strncmp((char *)&eeprom_buf[i + 1], (char *)record,
97				    strlen((char *)record));
98			if (c == 0) {
99				/* record found */
100				pos = i + strlen((char *)record) + 2;
101				nxt = pos;
102				/* search for "<" */
103				c = -1;
104				for (z = pos; fact_get_char(z) != end; z++) {
105					if (fact_get_char(z) == '<') {
106						if (level == 0) {
107							endpos = z;
108							nxt = endpos;
109							c = 0;
110							break;
111						} else {
112							level--;
113						}
114					}
115					if (fact_get_char(z) == '>')
116						level++;
117				}
118			} else {
119				continue;
120			}
121			if (c == 0) {
122				/* end found -> call get_factory_val */
123				tmp = eeprom_buf[endpos];
124				eeprom_buf[endpos] = end;
125				ret = get_factory_val(&eeprom_buf[pos],
126					endpos - pos, name, buf, len);
127				/* fix buffer */
128				eeprom_buf[endpos] = tmp;
129				debug("%s: %s.%s = %s\n",
130				      __func__, record, name, buf);
131				return ret;
132			}
133		}
134	}
135	return ret;
136}
137
138int factoryset_read_eeprom(int i2c_addr)
139{
140	int i, pages = 0, size = 0;
141	unsigned char eeprom_buf[0x3c00], hdr[4], buf[MAX_STRING_LENGTH];
142	unsigned char *cp, *cp1;
143
144#if defined(CONFIG_DFU_OVER_USB)
145	factory_dat.usb_vendor_id = CONFIG_USB_GADGET_VENDOR_NUM;
146	factory_dat.usb_product_id = CONFIG_USB_GADGET_PRODUCT_NUM;
147#endif
148
149	if (siemens_ee_read_data(SIEMENS_EE_ADDR_FACTORYSET, hdr, sizeof(hdr)))
150		goto err;
151
152	if ((hdr[0] != 0x99) || (hdr[1] != 0x80)) {
153		printf("FactorySet is not right in eeprom.\n");
154		return 1;
155	}
156
157	/* get FactorySet size */
158	size = (hdr[2] << 8) + hdr[3] + sizeof(hdr);
159	if (size > 0x3bfa)
160		size = 0x3bfa;
161
162	pages = size / EEPR_PG_SZ;
163
164	/*
165	 * read the eeprom using i2c
166	 * I can not read entire eeprom in once, so separate into several
167	 * times. Furthermore, fetch eeprom take longer time, so we fetch
168	 * data after every time we got a record from eeprom
169	 */
170	debug("Read eeprom page :\n");
171	for (i = 0; i < pages; i++)
172		if (siemens_ee_read_data((OFF_PG + i) * EEPR_PG_SZ,
173					 eeprom_buf + (i * EEPR_PG_SZ), EEPR_PG_SZ))
174			goto err;
175
176	if (size % EEPR_PG_SZ)
177		if (siemens_ee_read_data((OFF_PG + pages) * EEPR_PG_SZ,
178					 eeprom_buf + (pages * EEPR_PG_SZ),
179					 size % EEPR_PG_SZ))
180			goto err;
181
182	/* we do below just for eeprom align */
183	for (i = 0; i < size; i++)
184		if (eeprom_buf[i] == '\n')
185			eeprom_buf[i] = 0;
186
187	/* skip header */
188	size -= sizeof(hdr);
189	cp = (uchar *)eeprom_buf + sizeof(hdr);
190
191	/* get mac address */
192	get_factory_record_val(cp, size, (uchar *)"ETH1", (uchar *)"mac",
193			       buf, MAX_STRING_LENGTH);
194	cp1 = buf;
195	for (i = 0; i < 6; i++) {
196		factory_dat.mac[i] = hextoul((char *)cp1, NULL);
197		cp1 += 3;
198	}
199
200#if CONFIG_IS_ENABLED(IMX8)
201	/* get mac address for WLAN */
202	if (get_factory_record_val(cp, size, (uchar *)"WLAN1", (uchar *)"mac",
203				   buf, MAX_STRING_LENGTH) > 0) {
204		cp1 = buf;
205		for (i = 0; i < 6; i++) {
206			factory_dat.mac_wlan[i] = hextoul((char *)cp1, NULL);
207			cp1 += 3;
208		}
209	}
210#endif
211
212#if defined(CONFIG_DFU_OVER_USB)
213	/* read vid and pid for dfu mode */
214	if (0 <= get_factory_record_val(cp, size, (uchar *)"USBD1",
215					(uchar *)"vid", buf,
216					MAX_STRING_LENGTH)) {
217		factory_dat.usb_vendor_id = hextoul((char *)buf, NULL);
218	}
219
220	if (0 <= get_factory_record_val(cp, size, (uchar *)"USBD1",
221					(uchar *)"pid", buf,
222					MAX_STRING_LENGTH)) {
223		factory_dat.usb_product_id = hextoul((char *)buf, NULL);
224	}
225	printf("DFU USB: VID = 0x%4x, PID = 0x%4x\n", factory_dat.usb_vendor_id,
226	       factory_dat.usb_product_id);
227#endif
228	if (0 <= get_factory_record_val(cp, size, (uchar *)"DEV",
229					(uchar *)"num", factory_dat.serial,
230					MAX_STRING_LENGTH)) {
231		debug("serial number: %s\n", factory_dat.serial);
232	}
233	if (0 <= get_factory_record_val(cp, size, (uchar *)"DEV",
234					(uchar *)"ver", buf,
235					MAX_STRING_LENGTH)) {
236		factory_dat.version = hextoul((char *)buf, NULL);
237		debug("version number: %d\n", factory_dat.version);
238	}
239	/* Get ASN from factory set if available */
240	if (0 <= get_factory_record_val(cp, size, (uchar *)"DEV",
241					(uchar *)"id", factory_dat.asn,
242					MAX_STRING_LENGTH)) {
243		debug("factoryset asn: %s\n", factory_dat.asn);
244	} else {
245		factory_dat.asn[0] = 0;
246	}
247	/* Get COMP/ver from factory set if available */
248	if (0 <= get_factory_record_val(cp, size, (uchar *)"COMP",
249					(uchar *)"ver",
250					factory_dat.comp_version,
251					MAX_STRING_LENGTH)) {
252		debug("factoryset COMP/ver: %s\n", factory_dat.comp_version);
253	} else {
254		strcpy((char *)factory_dat.comp_version, "1.0");
255	}
256
257	return 0;
258
259err:
260	printf("Could not read the EEPROM; something fundamentally wrong on the I2C bus.\n");
261	return 1;
262}
263
264static int get_mac_from_efuse(uint8_t mac[6])
265{
266#ifdef CONFIG_AM33XX
267	struct ctrl_dev *cdev = (struct ctrl_dev *)CTRL_DEVICE_BASE;
268	uint32_t mac_hi, mac_lo;
269
270	mac_lo = readl(&cdev->macid0l);
271	mac_hi = readl(&cdev->macid0h);
272
273	mac[0] = mac_hi & 0xFF;
274	mac[1] = (mac_hi & 0xFF00) >> 8;
275	mac[2] = (mac_hi & 0xFF0000) >> 16;
276	mac[3] = (mac_hi & 0xFF000000) >> 24;
277	mac[4] = mac_lo & 0xFF;
278	mac[5] = (mac_lo & 0xFF00) >> 8;
279#else
280	/* unhandled */
281	memset(mac, 0, 6);
282#endif
283	if (!is_valid_ethaddr(mac)) {
284		puts("Warning: ethaddr not set by FactorySet or E-fuse. ");
285		puts("Set <ethaddr> variable to overcome this.\n");
286		return -1;
287	}
288	return 0;
289}
290
291static int factoryset_mac_env_set(void)
292{
293	uint8_t mac_addr[6];
294
295	/* Set mac from factoryset or try reading E-fuse */
296	debug("FactorySet: Set mac address\n");
297	if (is_valid_ethaddr(factory_dat.mac)) {
298		memcpy(mac_addr, factory_dat.mac, 6);
299	} else {
300		debug("Warning: FactorySet: <ethaddr> not set. Fallback to E-fuse\n");
301		if (get_mac_from_efuse(mac_addr) < 0)
302			return -1;
303	}
304
305	eth_env_set_enetaddr("ethaddr", mac_addr);
306
307#if CONFIG_IS_ENABLED(IMX8)
308	eth_env_set_enetaddr("eth1addr", mac_addr);
309
310	/* wlan mac */
311	if (is_valid_ethaddr(factory_dat.mac_wlan))
312		eth_env_set_enetaddr("eth2addr", factory_dat.mac_wlan);
313#endif
314	return 0;
315}
316
317static void factoryset_dtb_env_set(void)
318{
319	/* Set ASN in environment*/
320	if (factory_dat.asn[0] != 0) {
321		env_set("dtb_name", (char *)factory_dat.asn);
322	} else {
323		/* dtb suffix gets added in load script */
324		env_set("dtb_name", "default");
325	}
326}
327
328int factoryset_env_set(void)
329{
330	int ret = 0;
331
332	factoryset_dtb_env_set();
333
334	if (factoryset_mac_env_set() < 0)
335		ret = -1;
336
337	return ret;
338}
339
340int g_dnl_bind_fixup(struct usb_device_descriptor *dev, const char *name)
341{
342	put_unaligned(factory_dat.usb_vendor_id, &dev->idVendor);
343	put_unaligned(factory_dat.usb_product_id, &dev->idProduct);
344	g_dnl_set_serialnumber((char *)factory_dat.serial);
345
346	return 0;
347}
348
349int g_dnl_get_board_bcd_device_number(int gcnum)
350{
351	return factory_dat.version;
352}
353#endif /* defined(CONFIG_SPL_BUILD) */
354