File: gen_flags.sh

package info (click to toggle)
pcb-rnd 3.1.7b-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 33,108 kB
  • sloc: ansic: 213,400; yacc: 6,241; sh: 4,698; awk: 3,016; makefile: 2,254; lex: 1,166; python: 519; xml: 261; lisp: 154; tcl: 67; perl: 34; javascript: 6; ruby: 5
file content (40 lines) | stat: -rwxr-xr-x 579 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
../../../../src/pcb-rnd --dump-oflags | awk '
BEGIN {
	print "ha:lht_tree_doc { ha:comm {"
}

function close_last()
{
	if (is_open) {
		print "		}"
		print "	}"
	}
	is_open = 0;
}

/^[^\t]/ {
	close_last()
	print "	ha:flags_" $1 " {"
	print "		hide=1"
	print "		name=flags"
	print "		dot_group=1"
	print "		desc={flag bits of a " $1 "}"
	print "		type=ha"
	print "		li:children {"
	is_open=1
}

/^[\t]/ {
	bit=$1
	name=$2
	help=$0
	sub("^[\t ]*" $1 "[\t ]*" $2 "[\t ]*", "", help)
	print "			ha:" name " { valtype=flag; desc={" help "}}"
}

END {
	close_last()
	print "} }"
}

'