Problem Statement

Implement a function or program that, given a range of IPv4 addresses in CIDR notation (dotted-decimal/network-bits), will return/output the same range in canonical form. That is, the IP address portion of the output CIDR block must not contain any set (1) bits in the host part of the address.

Given   87.70.141.1/22,   your code should output   87.70.140.0/22

An Internet Protocol version 4 address is a 32-bit value, conventionally represented as a number in base 256 using dotted-decimal notation, where each base-256 digit is given in decimal and the digits are separated by periods. Logically, this 32-bit value represents two components: the leftmost (most-significant) bits determine the network portion of the address, while the rightmost (least-significant) bits determine the host portion. Classless Internet Domain Routing block notation indicates where the boundary between these two components is for a given address by adding a slash followed by the number of bits in the network portion. In general, CIDR blocks stand in for the entire set of IP addresses sharing the same network component, so it's common to see access control lists that specify individual IP addresses using /32 to indicate that only the one address is included. Software accepting this notation as input often expects it to be entered in canonical form, in which the host bits are all zeroes. But network admins sometimes skip this step and just enter the address of a specific host on the subnet with the network size, resulting in a non-canonical entry. The example address, 87.70.141.1/22, represents binary 0101011101000110100011 / 0100000001, with the / indicating the network/host division. To canonicalize, clear all the bits to the right of the / and convert back to dotted decimal: 0101011101000110100011 / 0000000000 → 87.70.140.0.

Let's start with the solution:

proc Canonicalize(IPAddr);
char IPAddr;
int  N, I, HostBits;
[Text(0, IPAddr);
Text(0, "  ^i->   ");           \^i = tab
OpenO(8);
Text(8, IPAddr);                \ASCII out
OpenI(8);
N:= 0;
for I:= 0 to 3 do
    N:= N<<8 + IntIn(8);        \binary in
HostBits:= IntIn(8);
N:= N & -1<<(32-HostBits);
for I:= 3 downto 0 do
    [IntOut(0, N>>(I*8) & $FF);
    ChOut(0, if I = 0 then ^/ else ^.);
    ];
IntOut(0, HostBits);
CrLf(0);
];

int IPAddrs, I;
[IPAddrs:= [
    "87.70.141.1/22",
    "36.18.154.103/12",
    "62.62.197.11/29",
    "67.137.119.181/4",
    "161.214.74.21/24",
    "184.232.176.184/18" ];
for I:= 0 to 6-1 do
    Canonicalize(IPAddrs(I));
]