/[dejagnu]/dejagnu/lib/targetdb.exp
ViewVC logotype

Diff of /dejagnu/lib/targetdb.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by rsavoye, Mon Mar 17 02:25:07 2003 UTC revision 1.5 by bje, Thu Aug 7 03:42:43 2003 UTC
# Line 28  proc board_info { machine op args } { Line 28  proc board_info { machine op args } {
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    
# Line 79  proc set_board_info { entry value } { Line 79  proc set_board_info { entry value } {
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    
# Line 92  proc set_currtarget_info { entry value } Line 92  proc set_currtarget_info { entry value }
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    
# Line 103  proc unset_board_info { entry } { Line 103  proc unset_board_info { entry } {
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  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26