Training courses

Kernel and Embedded Linux

Bootlin training courses

Embedded Linux, kernel,
Yocto Project, Buildroot, real-time,
graphics, boot time, debugging...

Bootlin logo

Elixir Cross Referencer

Open Menu /external/bsd/nvi/dist/tcl_scripts/gnats.tcl 
 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#	Id: gnats.tcl,v 8.2 1995/11/18 12:59:07 bostic Exp  (Berkeley) Date: 1995/11/18 12:59:07 
#
proc init {catFile} {
	global viScreenId
	global categories
	set categories {}
        set categoriesFile [open $catFile r]
	while {[gets $categoriesFile line] >= 0} {
		lappend categories $line
	}
	close $categoriesFile
	viMsg $viScreenId $categories
	viMapKey $viScreenId  next
}

proc next {} {
	global viScreenId
	set cursor [viGetCursor $viScreenId]
	set lineNum [lindex $cursor 0]
	set line [viGetLine $viScreenId $lineNum]
	viMsg $viScreenId [lindex $line 0]
	if {[lindex $line 0] == ">Confidential:"} {
		confNext $lineNum $line
	} elseif {[lindex $line 0] == ">Severity:"} {
		sevNext $lineNum $line
	} elseif {[lindex $line 0] == ">Priority:"} {
		priNext $lineNum $line
	} elseif {[lindex $line 0] == ">Class:"} {
		classNext $lineNum $line
	} elseif {[lindex $line 0] == ">Category:"} {
		catNext $lineNum $line
	}
}

proc confNext {lineNum line} {
	global viScreenId
	viMsg $viScreenId [lindex $line 1]
	if {[lindex $line 1] == "yes"} {
		viSetLine $viScreenId $lineNum ">Confidential: no"
	} else {
		viSetLine $viScreenId $lineNum ">Confidential: yes"
	}
}

proc sevNext {lineNum line} {
	global viScreenId
	viMsg $viScreenId [lindex $line 1]
	if {[lindex $line 1] == "non-critical"} {
		viSetLine $viScreenId $lineNum ">Severity: serious"
	} elseif {[lindex $line 1] == "serious"} {
		viSetLine $viScreenId $lineNum ">Severity: critical"
	} elseif {[lindex $line 1] == "critical"} {
		viSetLine $viScreenId $lineNum ">Severity: non-critical"
	}
}

proc priNext {lineNum line} {
	global viScreenId
	viMsg $viScreenId [lindex $line 1]
	if {[lindex $line 1] == "low"} {
		viSetLine $viScreenId $lineNum ">Priority: medium"
	} elseif {[lindex $line 1] == "medium"} {
		viSetLine $viScreenId $lineNum ">Priority: high"
	} elseif {[lindex $line 1] == "high"} {
		viSetLine $viScreenId $lineNum ">Priority: low"
	}
}

proc classNext {lineNum line} {
	global viScreenId
	viMsg $viScreenId [lindex $line 1]
	if {[lindex $line 1] == "sw-bug"} {
		viSetLine $viScreenId $lineNum ">Class: doc-bug"
	} elseif {[lindex $line 1] == "doc-bug"} {
		viSetLine $viScreenId $lineNum ">Class: change-request"
	} elseif {[lindex $line 1] == "change-request"} {
		viSetLine $viScreenId $lineNum ">Class: support"
	} elseif {[lindex $line 1] == "support"} {
		viSetLine $viScreenId $lineNum ">Class: sw-bug"
	}
}

proc catNext {lineNum line} {
	global viScreenId
	global categories
	viMsg $viScreenId [lindex $line 1]
	set curr [lsearch -exact $categories [lindex $line 1]]
	if {$curr == -1} {
		set curr 0
	}
	viMsg $viScreenId $curr
	viSetLine $viScreenId $lineNum ">Class: [lindex $categories $curr]"
}

init abekas