Changeset 3363


Ignore:
Timestamp:
Oct 12, 2012, 12:55:19 AM (19 months ago)
Author:
wmb
Message:

WLAN - fix test-antenna 'a' command

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/libertas.fth

    r3361 r3363  
    22832283: reset  ( -- flag )  reset-nic  ; 
    22842284 
     2285: do-disassociate  ( -- ) 
     2286   " target-mac$" $call-supplicant disassociate 
     2287; 
     2288 
     2289\ adr len  is the result of (scan) - a list of APs and their characteristics 
    22852290: test-association  ( adr len -- error? ) 
    2286    " OLPCOFW" " select-ssid?" $call-supplicant  if 
    2287       " (do-associate)" $call-supplicant  if 
     2291   " OLPCOFW" " select-ssid?" $call-supplicant  if   ( ) 
     2292      " (do-associate)" $call-supplicant  if         ( ) 
    22882293         \ Success 
    2289          " target-mac$" $call-supplicant disassociate 
     2294         do-disassociate 
    22902295         " true to ssid-reset?" ['] evaluate catch  if  2drop  then 
    22912296         false 
     
    23332338: scan-wifi  ( -- )  (scan-wifi) drop  ; 
    23342339 
     2340: reassociate  ( -- ) 
     2341   do-disassociate 
     2342   do-associate  if  ." succeeded"  else  ." failed"  then  cr 
     2343; 
     2344 
    23352345: .rssi  ( snr nf -- ) 
    23362346   2dup swap + ."  rssi" 4 .r           ( snr nf ) 
     
    24232433; 
    24242434 
    2425 : ta-a  ." associate "  close  open drop  ; 
     2435: ta-a  ." associate "  reassociate  ; 
    24262436 
    24272437: test-antenna  ( -- ) 
Note: See TracChangeset for help on using the changeset viewer.