testsuite/lib/scanwpaipa.exp

28 proc scan-wpa-ipa-dump { args } {
30     if { [llength $args] < 2 } {
34     if { [llength $args] > 3 } {
38     if { [llength $args] >= 3 } {
39 	scan-dump "wpa-ipa" [lindex $args 0] \
40 		  "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa" \
41 		  [lindex $args 2]
43 	scan-dump "wpa-ipa" [lindex $args 0] \
44 		  "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa"
51 proc scan-pgo-wpa-ipa-dump { args } {
53     if { [llength $args] < 2 } {
57     if { [llength $args] > 3 } {
61     if { [llength $args] >= 3 } {
62 	scan-dump "pgo-wpa-ipa" [lindex $args 0] \
63 		  "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".x02.wpa" \
64 		  [lindex $args 2]
66 	scan-dump "pgo-wpa-ipa" [lindex $args 0] \
67 		  "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".x02.wpa"
76 proc scan-wpa-ipa-dump-times { args } {
78     if { [llength $args] < 3 } {
82     if { [llength $args] > 4 } {
86     if { [llength $args] >= 4 } {
87 	scan-dump-times "wpa-ipa" [lindex $args 0] [lindex $args 1] \
88 			"\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 2]" ".exe.wpa" \
89 			[lindex $args 3]
91 	scan-dump-times "wpa-ipa" [lindex $args 0] [lindex $args 1] \
92 			"\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 2]" ".exe.wpa"
101 proc scan-wpa-ipa-dump-not { args } {
103     if { [llength $args] < 2 } {
107     if { [llength $args] > 3 } {
111     if { [llength $args] >= 3 } {
112 	scan-dump-not "wpa-ipa" [lindex $args 0] \
113 		      "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa" \
114 		      [lindex $args 2]
116 	scan-dump-not "wpa-ipa" [lindex $args 0] \
117 		      "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa"
127 proc scan-wpa-ipa-dump-dem { args } {
129     if { [llength $args] < 2 } {
133     if { [llength $args] > 3 } {
137     if { [llength $args] >= 3 } {
138 	scan-dump-dem "wpa-ipa" [lindex $args 0] \
139 		      "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa" \
140 		      [lindex $args 2]
142 	scan-dump-dem "wpa-ipa" [lindex $args 0] \
143 		      "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa"
152 proc scan-wpa-ipa-dump-dem-not { args } {
154     if { [llength $args] < 2 } {
158     if { [llength $args] > 3 } {
162     if { [llength $args] >= 3 } {
163 	scan-dump-dem-not "wpa-ipa" [lindex $args 0] \
164 			  "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa" \
165 			  [lindex $args 2]
167 	scan-dump-dem-not "wpa-ipa" [lindex $args 0] \
168 			  "\[0-9\]\[0-9\]\[0-9\]i.[lindex $args 1]" ".exe.wpa"