File: block.awk

package info (click to toggle)
elk 3.0-8.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 4,088 kB
  • ctags: 3,115
  • sloc: ansic: 20,686; lisp: 5,232; makefile: 411; awk: 91; sh: 19
file content (22 lines) | stat: -rw-r--r-- 536 bytes parent folder | download | duplicates (27) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
BEGIN {
	firstchar = "@";
	a["a"] = "A"; a["b"] = "B"; a["c"] = "C";
	a["d"] = "D"; a["e"] = "E"; a["f"] = "F";
	a["g"] = "G"; a["h"] = "H"; a["i"] = "I";
	a["j"] = "J"; a["k"] = "K"; a["l"] = "L";
	a["m"] = "M"; a["n"] = "N"; a["o"] = "O";
	a["p"] = "P"; a["q"] = "Q"; a["r"] = "R";
	a["s"] = "S"; a["t"] = "T"; a["u"] = "U";
	a["v"] = "V"; a["w"] = "W"; a["x"] = "X";
	a["y"] = "Y"; a["z"] = "Z";
}

{
	c = substr($2,2,1);
	if (c >= "a" && c <= "z")
		c = a[c];
	if (c != firstchar)
		printf(".LB %s\n", c);
	firstchar = c;
	print;
}