Sat Dec 25 15:14:02+0100 2021
175ac1b
Support peer in (ip addr)
ip/addr.scm
| 45 | 45 | (brd addr-brd) | |
| 46 | 46 | (cacheinfo addr-cacheinfo)) | |
| 47 | 47 | ||
| 48 | - | (define* (addr-del device cidr #:key (ipv6? #f)) | |
| 48 | + | (define* (addr-del device cidr #:key (ipv6? #f) (peer (cidr->addr cidr))) | |
| 49 | 49 | (define request-num (random 65535)) | |
| 50 | 50 | (define prefix (cidr->prefix cidr)) | |
| 51 | 51 | (define addr (cidr->addr cidr)) | |
… | |||
| 77 | 77 | ((if ipv6? | |
| 78 | 78 | make-ipv6-route-attr | |
| 79 | 79 | make-ipv4-route-attr) | |
| 80 | - | addr)))))) | |
| 80 | + | peer)))))) | |
| 81 | 81 | ||
| 82 | 82 | (let ((sock (connect-route))) | |
| 83 | 83 | (send-msg message sock) | |
… | |||
| 85 | 85 | (close-socket sock) | |
| 86 | 86 | (answer-ok? (last answer))))) | |
| 87 | 87 | ||
| 88 | - | (define* (addr-add device cidr #:key (ipv6? #f)) | |
| 88 | + | (define* (addr-add device cidr #:key (ipv6? #f) (peer (cidr->addr cidr))) | |
| 89 | 89 | (define request-num (random 65535)) | |
| 90 | 90 | (define prefix (cidr->prefix cidr)) | |
| 91 | 91 | (define addr (cidr->addr cidr)) | |
… | |||
| 117 | 117 | ((if ipv6? | |
| 118 | 118 | make-ipv6-route-attr | |
| 119 | 119 | make-ipv4-route-attr) | |
| 120 | - | addr)))))) | |
| 120 | + | peer)))))) | |
| 121 | 121 | ||
| 122 | 122 | (let ((sock (connect-route))) | |
| 123 | 123 | (send-msg message sock) | |