File: gen-8bit-gap.awk

package info (click to toggle)
samba 3.0.24-6etch10
  • links: PTS
  • area: main
  • in suites: etch
  • size: 49,836 kB
  • ctags: 44,390
  • sloc: ansic: 335,711; sh: 8,133; perl: 7,045; makefile: 3,107; python: 2,370; exp: 1,147; yacc: 881; awk: 486; csh: 58; sed: 45
file content (18 lines) | stat: -rw-r--r-- 365 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
BEGIN {
	for (i=0; i<256; i++) {
		tbl[sprintf("%02x",i)] = "0x0000";
	}
}

/^<U([[:xdigit:]][[:xdigit:]][[:xdigit:]][[:xdigit:]])>[[:space:]]*.x([[:xdigit:]][[:xdigit:]])[:space:]*.*$/ {
	tbl[substr($2,3,2)]=sprintf("0x%s",substr($1,3,4));
}

END {
	for(i=0; i<32; i++) {
		for(j=0; j<8; j++) {
			printf(" %s,", tbl[sprintf("%02x",i*8+j)]);
		}
		printf "\n"
	}
}