time for crab
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

21 lines
362 B

  1. #!/usr/bin/env racket
  2. #lang racket
  3. ; vim:syntax=racket
  4. (require "iputil.rkt")
  5. ;; Str [Listof Peer] ->
  6. ;; Router main
  7. (define (run-router asn peers)
  8. (displayln asn)
  9. (map displayln peers)
  10. (void))
  11. (module+ main
  12. (command-line
  13. #:program "router"
  14. #:args
  15. (asn . peers)
  16. ;; Run the router
  17. (run-router asn (map string->peer peers))))