ref: c11957a7915d355d80ff7e6a21721ba05441ca29
dir: /module/ip.m/
IP: module { PATH: con "/dis/lib/ip.dis"; IPaddrlen: con 16; IPv4addrlen: con 4; IPv4off: con 12; IPaddr: adt { a: array of byte; newv6: fn(nil: array of byte): IPaddr; newv4: fn(nil: array of byte): IPaddr; copy: fn(nil: self IPaddr): IPaddr; eq: fn(nil: self IPaddr, v: IPaddr): int; mask: fn(nil: self IPaddr, m: IPaddr): IPaddr; maskn: fn(nil: self IPaddr, m: IPaddr): IPaddr; isv4: fn(nil: self IPaddr): int; ismulticast: fn(nil: self IPaddr): int; isvalid: fn(nil: self IPaddr): int; v4: fn(nil: self IPaddr): array of byte; v6: fn(nil: self IPaddr): array of byte; class: fn(nil: self IPaddr): int; classmask: fn(nil: self IPaddr): IPaddr; parse: fn(s: string): (int, IPaddr); parsemask: fn(s: string): (int, IPaddr); parsecidr: fn(s: string): (int, IPaddr, IPaddr); text: fn(nil: self IPaddr): string; masktext: fn(nil: self IPaddr): string; }; v4bcast, v4allsys, v4allrouter, v4noaddr, noaddr, allbits, selfv6, selfv4: IPaddr; v4prefix: array of byte; Ifcaddr: adt { ip: IPaddr; mask: IPaddr; net: IPaddr; preflt: big; validlt: big; }; Ipifc: adt { index: int; # /net/ipifc/N dev: string; # bound device addrs: list of ref Ifcaddr; sendra: int; # !=0, send router adverts recvra: int; # !=0, receive router adverts mtu: int; pktin: big; # packets in pktout: big; # packets out errin: big; # input errors errout: big; # output errors rp: IPv6rp; # IPv6 route advert params }; IPv6rp: adt { mflag: int; oflag: int; maxraint: int; # max route advert interval minraint: int; # min route advert interval linkmtu: int; reachtime: int; rxmitra: int; ttl: int; routerlt: int; }; Udp4hdrlen: con 2*IPv4addrlen+2*2; OUdphdrlen: con 2*IPaddrlen+2*2; Udphdrlen: con 52; Udpraddr: con 0; Udpladdr: con Udpraddr + IPaddrlen; Udpifcaddr: con Udpladdr + IPaddrlen; Udprport: con Udpifcaddr + IPaddrlen; Udplport: con Udprport + 2; Udphdr: adt { raddr: IPaddr; laddr: IPaddr; ifcaddr: IPaddr; rport: int; lport: int; new: fn(): ref Udphdr; unpack: fn(a: array of byte, n: int): ref Udphdr; pack: fn(h: self ref Udphdr, a: array of byte, n: int); }; init: fn(); readipifc: fn(net: string, index: int): (list of ref Ipifc, string); addressesof: fn(l: list of ref Ipifc, all: int): list of IPaddr; interfaceof: fn(l: list of ref Ipifc, ip: IPaddr): (ref Ipifc, ref Ifcaddr); ownerof: fn(l: list of ref Ipifc, ip: IPaddr): (ref Ipifc, ref Ifcaddr); get2: fn(a: array of byte, o: int): int; put2: fn(a: array of byte, o: int, v: int): int; get4: fn(a: array of byte, o: int): int; put4: fn(a: array of byte, o: int, v: int): int; };