Changeset 3363


Ignore:
Timestamp:
Oct 12, 2012, 12:55:19 AM (2 years 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.