URL https://opencores.org/ocsvn/or1k_soc_on_altera_embedded_dev_kit/or1k_soc_on_altera_embedded_dev_kit/trunk

Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

[/] [or1k_soc_on_altera_embedded_dev_kit/] [trunk/] [soc/] [sw/] [utils/] [gen_memory_text.pl] - Blame information for rev 12

Line No.	Rev	Author	Line
1	12	xianfeng	`#!/usr/bin/perl`
2			`#`
3			`#===============================================================================`
4			`#`
5			`# FILE: gen_memory_text.pl`
6			`#`
7			`# DESCRIPTION: Translate Intel Hex format file into memory text file`
8			`#`
9			`# FILES: ---`
10			`# BUGS: ---`
11			`# NOTES: ---`
12			`# AUTHOR: (), <>`
13			`# COMPANY:`
14			`# VERSION: 1.0`
15			`# CREATED: 04/15/2009 01:06:49 PM HKT`
16			`# REVISION: ---`
17			`#===============================================================================`
18
19			`#my @data;`
20
21			`# Intel HEX format interpreter`
22			`while(<>) {`
23			`if (m/\:([A-F0-9]{2})([A-F0-9]{4})([A-F0-9]{2})([A-F0-9]+)([A-F0-9]{2})/) {`
24			`my $vec = $4;`
25			`my $len = hex $1;`
26			`my $rec_type = $3;`
27			`my $byte_addr = (hex $2);`
28			`if ($len > 0) {`
29			`for (my($i)=0; $i < $len*2; $i+=2) {`
30			`# $data[$byte_addr++] = hex substr($vec, $i, 2);`
31			`printf ("%2.2x\n", hex substr($vec, $i, 2));`
32			`}`
33			`}`
34			`}`
35			`}`
36