73 |
regexp "Compilation flags: (.*)\r?" [lindex $tmp 3] m RADIUSFLAGS |
regexp "Compilation flags: (.*)\r?" [lindex $tmp 3] m RADIUSFLAGS |
74 |
set flg [split $RADIUSFLAGS] |
set flg [split $RADIUSFLAGS] |
75 |
for {set i 0} {$i < [llength $flg]} {incr i} { |
for {set i 0} {$i < [llength $flg]} {incr i} { |
76 |
set CAPABILITY([lindex $flg $i]) 1 |
if [regexp "(.*)=(.*)" [lindex $flg $i] var name value] { |
77 |
|
set CAPABILITY($name) $value |
78 |
|
} else { |
79 |
|
set CAPABILITY([lindex $flg $i]) 1 |
80 |
|
} |
81 |
} |
} |
82 |
} |
} |
83 |
|
|
110 |
append sw " " |
append sw " " |
111 |
|
|
112 |
if [info exists CAPABILITY(USE_SERVER_GUILE)] { |
if [info exists CAPABILITY(USE_SERVER_GUILE)] { |
113 |
append sw "--guile" |
append sw "--guile " |
114 |
|
} |
115 |
|
if [info exists CAPABILITY(USE_SNMP)] { |
116 |
|
append sw "--snmp " |
117 |
} |
} |
118 |
|
|
119 |
if [info exists host_board] { |
if [info exists host_board] { |
120 |
if [board_info $host_board exists top_srcdir] { |
if [board_info $host_board exists top_srcdir] { |
121 |
append sw " --srcdir [board_info $host_board top_srcdir]" |
append sw "--srcdir [board_info $host_board top_srcdir]" |
122 |
} |
} |
123 |
if [board_info $host_board exists top_builddir] { |
if [board_info $host_board exists top_builddir] { |
124 |
append sw " --builddir [board_info $host_board top_builddir]" |
append sw "--builddir [board_info $host_board top_builddir]" |
125 |
} |
} |
126 |
} |
} |
127 |
|
|