28 |
verbose "board_info $machine $op $args" 3 |
verbose "board_info $machine $op $args" 3 |
29 |
|
|
30 |
if [info exists target_info($machine,name)] { |
if [info exists target_info($machine,name)] { |
31 |
set machine $target_info($machine,name); |
set machine $target_info($machine,name) |
32 |
} |
} |
33 |
if { $op == "exists" } { |
if { $op == "exists" } { |
34 |
if { [llength $args] == 0 } { |
if { [llength $args] == 0 } { |
35 |
if [info exists board_info($machine,name)] { |
if [info exists board_info($machine,name)] { |
36 |
return 1; |
return 1 |
37 |
} else { |
} else { |
38 |
return 0; |
return 0 |
39 |
} |
} |
40 |
} else { |
} else { |
41 |
if [info exists "board_info($machine,[lindex $args 0])"] { |
if [info exists "board_info($machine,[lindex $args 0])"] { |
42 |
return 1; |
return 1 |
43 |
} else { |
} else { |
44 |
return 0; |
return 0 |
45 |
} |
} |
46 |
} |
} |
47 |
} |
} |
48 |
if { [llength $args] == 0 } { |
if { [llength $args] == 0 } { |
49 |
verbose "getting $machine $op" 3 |
verbose "getting $machine $op" 3 |
50 |
if [info exists board_info($machine,$op)] { |
if [info exists board_info($machine,$op)] { |
51 |
return $board_info($machine,$op); |
return $board_info($machine,$op) |
52 |
} else { |
} else { |
53 |
return "" |
return "" |
54 |
} |
} |
55 |
} |
} |
56 |
return ""; |
return "" |
57 |
} |
} |
58 |
|
|
59 |
proc target_info { op args } { |
proc target_info { op args } { |
60 |
return [eval "board_info target \"$op\" $args"]; |
return [eval "board_info target \"$op\" $args"] |
61 |
} |
} |
62 |
|
|
63 |
proc host_info { op args } { |
proc host_info { op args } { |
64 |
return [eval "board_info host \"$op\" $args"]; |
return [eval "board_info host \"$op\" $args"] |
65 |
} |
} |
66 |
|
|
67 |
# |
# |
68 |
# Fill in ENTRY with VALUE for the current board being defined. |
# Fill in ENTRY with VALUE for the current board being defined. |
69 |
# |
# |
70 |
proc set_board_info { entry value } { |
proc set_board_info { entry value } { |
71 |
global board_info board; |
global board_info board |
72 |
|
|
73 |
if ![info exists board_info($board,$entry)] { |
if ![info exists board_info($board,$entry)] { |
74 |
set board_info($board,$entry) $value; |
set board_info($board,$entry) $value |
75 |
} |
} |
76 |
} |
} |
77 |
|
|
79 |
# Fill in ENTRY with VALUE for the current target. |
# Fill in ENTRY with VALUE for the current target. |
80 |
# |
# |
81 |
proc set_currtarget_info { entry value } { |
proc set_currtarget_info { entry value } { |
82 |
global board_info; |
global board_info |
83 |
|
|
84 |
set board [target_info name]; |
set board [target_info name] |
85 |
|
|
86 |
if ![info exists board_info($board,$entry)] { |
if ![info exists board_info($board,$entry)] { |
87 |
set board_info($board,$entry) $value; |
set board_info($board,$entry) $value |
88 |
} |
} |
89 |
} |
} |
90 |
|
|
92 |
# Unset ENTRY for the current board being defined. |
# Unset ENTRY for the current board being defined. |
93 |
# |
# |
94 |
proc unset_board_info { entry } { |
proc unset_board_info { entry } { |
95 |
global board_info board; |
global board_info board |
96 |
|
|
97 |
if [info exists board_info($board,$entry)] { |
if [info exists board_info($board,$entry)] { |
98 |
unset board_info($board,$entry); |
unset board_info($board,$entry) |
99 |
} |
} |
100 |
} |
} |
101 |
|
|
103 |
# Unset ENTRY for the current board being defined. |
# Unset ENTRY for the current board being defined. |
104 |
# |
# |
105 |
proc unset_currtarget_info { entry } { |
proc unset_currtarget_info { entry } { |
106 |
global board_info; |
global board_info |
107 |
|
|
108 |
set board [target_info name]; |
set board [target_info name] |
109 |
|
|
110 |
if [info exists board_info($board,$entry)] { |
if [info exists board_info($board,$entry)] { |
111 |
unset board_info($board,$entry); |
unset board_info($board,$entry) |
112 |
} |
} |
113 |
} |
} |