Changeset 3363

Timestamp:

Oct 12, 2012 12:55:19 AM (7 months ago)

Author:

wmb

Message:

WLAN - fix test-antenna 'a' command

File:

• dev/libertas.fth (modified) (3 diffs)

dev/libertas.fth

@@ -2283 +2283 @@
 : reset  ( -- flag )  reset-nic  ;
 
+: do-disassociate  ( -- )
+   " target-mac$" $call-supplicant disassociate
+;
+
+\ adr len  is the result of (scan) - a list of APs and their characteristics
 : test-association  ( adr len -- error? )
-   " OLPCOFW" " select-ssid?" $call-supplicant  if
-      " (do-associate)" $call-supplicant  if
+   " OLPCOFW" " select-ssid?" $call-supplicant  if   ( )
+      " (do-associate)" $call-supplicant  if         ( )
          \ Success
-         " target-mac$" $call-supplicant disassociate
+         do-disassociate
          " true to ssid-reset?" ['] evaluate catch  if  2drop  then
          false
@@ -2333 +2338 @@
 : scan-wifi  ( -- )  (scan-wifi) drop  ;
 
+: reassociate  ( -- )
+   do-disassociate
+   do-associate  if  ." succeeded"  else  ." failed"  then  cr
+;
+
 : .rssi  ( snr nf -- )
    2dup swap + ."  rssi" 4 .r           ( snr nf )
@@ -2423 +2433 @@
 ;
 
-: ta-a  ." associate "  close  open drop  ;
+: ta-a  ." associate "  reassociate  ;
 
 : test-antenna  ( -- )