hash-lang-uwu
/
CS3700-project2
2
0
Fork 0
Code Issues Releases Activity

transparent

This commit is contained in:
Milo 2020-01-30 19:47:32 -05:00
parent 1c04209328
commit 8ac13a0c31
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
iputil.rkt
View File

@ -14,6 +14,7 @@
(require rackunit)) (require rackunit))
(struct peer [ip type] (struct peer [ip type]
#:transparent
#:methods gen:custom-write #:methods gen:custom-write
[(define write-proc [(define write-proc
(make-constructor-style-printer (make-constructor-style-printer
@ -21,6 +22,7 @@
(lambda (x) (list (ip->string (peer-ip x)) (peer-type x)))))]) (lambda (x) (list (ip->string (peer-ip x)) (peer-type x)))))])
(struct subnet [ip mask] (struct subnet [ip mask]
#:transparent
#:methods gen:custom-write #:methods gen:custom-write
[(define write-proc [(define write-proc
(make-constructor-style-printer (make-constructor-style-printer

15
msg.rkt
View File

@ -4,6 +4,9 @@
(require json (require json
"iputil.rkt") "iputil.rkt")
(module+ test
(require rackunit))
;; src, dst : IP ;; src, dst : IP
;; data : Any ;; data : Any
(struct msg [src dst] (struct msg [src dst]
@ -86,7 +89,7 @@
(jsexpr->msg bs))) (jsexpr->msg bs)))
(module+ test (module+ test
(jsexpr->msg (check-equal? (jsexpr->msg
(hash 'src "1.2.3.4" (hash 'src "1.2.3.4"
'dst "1.2.3.7" 'dst "1.2.3.7"
'type "update" 'type "update"
@ -95,4 +98,12 @@
'localpref 100 'localpref 100
'selfOrigin #t 'selfOrigin #t
'ASPath '(1 2) 'ASPath '(1 2)
'origin "UNK")))) 'origin "UNK")))
(msg:update
(string->ip "1.2.3.4")
(string->ip "1.2.3.7")
(subnet (string->ip "1.2.3.5") 7)
100
#t
'(1 2)
'UNK)))