Create main file

2020-01-28 22:09:51 -05:00 · 2020-01-28 22:09:51 -05:00 · 51dd6e8609
parent a79937a532
commit 51dd6e8609
1 changed files with 16 additions and 0 deletions
--- a/router.rkt
+++ b/router.rkt
@ -0,0 +1,16 @@
+#lang racket
+
+;; Str [Listof Str] ->
+;; Router main
+(define (run-router asn ip-addrs)
+  (displayln asn)
+  (map displayln ip-addrs)
+  (void))
+
+(module+ main
+    (command-line
+     #:program "router"
+     #:args
+     (asn . ip-addrs)
+     ;; Run the router
+     (run-router asn ip-addrs)))