#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <sys/types.h>
#include <netdb.h>
struct in_net {
struct in_addr addr;
struct in_addr mask;
};
#define POPCNT(y) int popcnt##y (uint##y##_t x) { \
int c = 0; \
for (int i = 0; i < y; i++) \
if (1 << i & x) \
c++; \
return c; \
}
POPCNT(32)
struct in_net host (struct in_net n, unsigned long long int h /* number of host in the network */) {
n.addr.s_addr = ntohl(n.addr.s_addr & n.mask.s_addr);
n.mask.s_addr = ntohl(n.mask.s_addr);
unsigned long long int c = 1;
unsigned long int s = 0;
for (unsigned long int i = 0; i < 32; i++)
if (1 << i & ~n.mask.s_addr) {
if (1 << s++ & h)
n.addr.s_addr |= 1 << i;
c *= 2; /* if we instead indicated error via addr and */
} /* returned just addr, it would be impossible to */
n.mask.s_addr = INADDR_BROADCAST; /* scan 0.0.0.0/0 without immediately detecting */
if (h >= c) /* this false "error" and address 0.0.0.0 would */
n.mask.s_addr = 0; /* in fact actually be correct. */
n.addr.s_addr = htonl(n.addr.s_addr);
return n; /* \/= this means host h is outside network */
} /* returns struct in_net: if .mask is not 255.255.255.255 (INADDR_BROADCAST), .addr is incorrect */
int resolve (const char * d, uint32_t * r) {
struct addrinfo hints = {
.ai_family = AF_INET,
.ai_socktype = SOCK_DGRAM,
.ai_flags = 0,
.ai_protocol = 0,
.ai_canonname = NULL,
.ai_addr = NULL,
.ai_next = NULL
};
struct addrinfo * result;
int ret = getaddrinfo(d, NULL, &hints, &result);
*r = ((struct sockaddr_in *) result->ai_addr)->sin_addr.s_addr; /* ah yes, C */
freeaddrinfo(result);
return ret;
}
struct in_net str2net (char * s) { /* blocking, resolving */
struct in_net r = {
.mask = {
.s_addr = 0
},
.addr = {
.s_addr = 0
}
};
char * m = strchr(s, '/');
char o = '\0';
int e;
if (m) {
o = *m;
*m++ = '\0';
} else
m = "32";
fprintf(stderr, "str2net: resolving %s ... ", s);
if ((e = resolve(s, &r.addr.s_addr))) {
fprintf(stderr, "failed: %s\n", gai_strerror(e));
goto r;
}
fprintf(stderr, " %s mask %s ...", inet_ntoa(r.addr), m);
char * p;
int x = strtoll(m, &p, 10);
r.mask.s_addr = 0;
for (int j = 0; j < x && j < 32; j++)
r.mask.s_addr = r.mask.s_addr >> 1 | 1 << 31;
r.mask.s_addr = htonl(r.mask.s_addr);
if (*p)
if ((e = resolve(m, &r.mask.s_addr))) {
fprintf(stderr, "no: %s\n", gai_strerror(e));
goto r;
}
fprintf(stderr, " %s\n", inet_ntoa(r.mask));
r:
if (o)
*--m = o;
return r;
}
unsigned long long int ri (unsigned long long int v, int s) { /* 000 100 010 110 001 101 011 111 */
int i = s-1;
if (!(v & 1 << (s-1)))
return v | 1 << (s-1);
while (1) {
if (!(v & 1 << i))
return v | 1 << i;
if (!i) /* rollover */
return 0;
v &= ~(1 << i--);
}
}
unsigned long long int localnumber (struct in_net n) {
unsigned long long int r = 0;
for (int i = 31; i >= 0; i--)
if (!(ntohl(n.mask.s_addr) & 1 << i) && ntohl(n.addr.s_addr) & 1 << i)
r |= 1 << i;
return r;
}
