1 d7094239 2003-11-23 devnull #include <u.h>
  2 d7094239 2003-11-23 devnull #include <libc.h>
  3 d7094239 2003-11-23 devnull #include <ip.h>
  4 d7094239 2003-11-23 devnull 
  5 d7094239 2003-11-23 devnull enum
  6 d7094239 2003-11-23 devnull {
  7 d7094239 2003-11-23 devnull 	Isprefix= 16,
  8 d7094239 2003-11-23 devnull };
  9 d7094239 2003-11-23 devnull 
 10 d7094239 2003-11-23 devnull uchar prefixvals[256] =
 11 d7094239 2003-11-23 devnull {
 12 d7094239 2003-11-23 devnull [0x00] 0 | Isprefix,
 13 d7094239 2003-11-23 devnull [0x80] 1 | Isprefix,
 14 d7094239 2003-11-23 devnull [0xC0] 2 | Isprefix,
 15 d7094239 2003-11-23 devnull [0xE0] 3 | Isprefix,
 16 d7094239 2003-11-23 devnull [0xF0] 4 | Isprefix,
 17 d7094239 2003-11-23 devnull [0xF8] 5 | Isprefix,
 18 d7094239 2003-11-23 devnull [0xFC] 6 | Isprefix,
 19 d7094239 2003-11-23 devnull [0xFE] 7 | Isprefix,
 20 d7094239 2003-11-23 devnull [0xFF] 8 | Isprefix,
 21 d7094239 2003-11-23 devnull };
 22 d7094239 2003-11-23 devnull 
 23 d7094239 2003-11-23 devnull int
 24 d7094239 2003-11-23 devnull eipfmt(Fmt *f)
 25 d7094239 2003-11-23 devnull {
 26 d7094239 2003-11-23 devnull 	char buf[5*8];
 27 d7094239 2003-11-23 devnull 	static char *efmt = "%.2lux%.2lux%.2lux%.2lux%.2lux%.2lux";
 28 d7094239 2003-11-23 devnull 	static char *ifmt = "%d.%d.%d.%d";
 29 d7094239 2003-11-23 devnull 	uchar *p, ip[16];
 30 d7094239 2003-11-23 devnull 	ulong *lp;
 31 d7094239 2003-11-23 devnull 	ushort s;
 32 d7094239 2003-11-23 devnull 	int i, j, n, eln, eli;
 33 d7094239 2003-11-23 devnull 
 34 d7094239 2003-11-23 devnull 	switch(f->r) {
 35 d7094239 2003-11-23 devnull 	case 'E':		/* Ethernet address */
 36 d7094239 2003-11-23 devnull 		p = va_arg(f->args, uchar*);
 37 d7094239 2003-11-23 devnull 		snprint(buf, sizeof buf, efmt, p[0], p[1], p[2], p[3], p[4], p[5]);
 38 d7094239 2003-11-23 devnull 		return fmtstrcpy(f, buf);
 39 d7094239 2003-11-23 devnull 
 40 d7094239 2003-11-23 devnull 	case 'I':		/* Ip address */
 41 d7094239 2003-11-23 devnull 		p = va_arg(f->args, uchar*);
 42 d7094239 2003-11-23 devnull common:
 43 d7094239 2003-11-23 devnull 		if(memcmp(p, v4prefix, 12) == 0){
 44 d7094239 2003-11-23 devnull 			snprint(buf, sizeof buf, ifmt, p[12], p[13], p[14], p[15]);
 45 d7094239 2003-11-23 devnull 			return fmtstrcpy(f, buf);
 46 d7094239 2003-11-23 devnull 		}
 47 d7094239 2003-11-23 devnull 
 48 d7094239 2003-11-23 devnull 		/* find longest elision */
 49 d7094239 2003-11-23 devnull 		eln = eli = -1;
 50 d7094239 2003-11-23 devnull 		for(i = 0; i < 16; i += 2){
 51 d7094239 2003-11-23 devnull 			for(j = i; j < 16; j += 2)
 52 d7094239 2003-11-23 devnull 				if(p[j] != 0 || p[j+1] != 0)
 53 d7094239 2003-11-23 devnull 					break;
 54 d7094239 2003-11-23 devnull 			if(j > i && j - i > eln){
 55 d7094239 2003-11-23 devnull 				eli = i;
 56 d7094239 2003-11-23 devnull 				eln = j - i;
 57 d7094239 2003-11-23 devnull 			}
 58 d7094239 2003-11-23 devnull 		}
 59 d7094239 2003-11-23 devnull 
 60 d7094239 2003-11-23 devnull 		/* print with possible elision */
 61 d7094239 2003-11-23 devnull 		n = 0;
 62 d7094239 2003-11-23 devnull 		for(i = 0; i < 16; i += 2){
 63 d7094239 2003-11-23 devnull 			if(i == eli){
 64 d7094239 2003-11-23 devnull 				n += sprint(buf+n, "::");
 65 d7094239 2003-11-23 devnull 				i += eln;
 66 d7094239 2003-11-23 devnull 				if(i >= 16)
 67 d7094239 2003-11-23 devnull 					break;
 68 d7094239 2003-11-23 devnull 			} else if(i != 0)
 69 d7094239 2003-11-23 devnull 				n += sprint(buf+n, ":");
 70 d7094239 2003-11-23 devnull 			s = (p[i]<<8) + p[i+1];
 71 d7094239 2003-11-23 devnull 			n += sprint(buf+n, "%ux", s);
 72 d7094239 2003-11-23 devnull 		}
 73 d7094239 2003-11-23 devnull 		return fmtstrcpy(f, buf);
 74 d7094239 2003-11-23 devnull 
 75 d7094239 2003-11-23 devnull 	case 'i':		/* v6 address as 4 longs */
 76 d7094239 2003-11-23 devnull 		lp = va_arg(f->args, ulong*);
 77 d7094239 2003-11-23 devnull 		for(i = 0; i < 4; i++)
 78 d7094239 2003-11-23 devnull 			hnputl(ip+4*i, *lp++);
 79 d7094239 2003-11-23 devnull 		p = ip;
 80 d7094239 2003-11-23 devnull 		goto common;
 81 d7094239 2003-11-23 devnull 
 82 d7094239 2003-11-23 devnull 	case 'V':		/* v4 ip address */
 83 d7094239 2003-11-23 devnull 		p = va_arg(f->args, uchar*);
 84 d7094239 2003-11-23 devnull 		snprint(buf, sizeof buf, ifmt, p[0], p[1], p[2], p[3]);
 85 d7094239 2003-11-23 devnull 		return fmtstrcpy(f, buf);
 86 d7094239 2003-11-23 devnull 
 87 d7094239 2003-11-23 devnull 	case 'M':		/* ip mask */
 88 d7094239 2003-11-23 devnull 		p = va_arg(f->args, uchar*);
 89 d7094239 2003-11-23 devnull 
 90 d7094239 2003-11-23 devnull 		/* look for a prefix mask */
 91 d7094239 2003-11-23 devnull 		for(i = 0; i < 16; i++)
 92 d7094239 2003-11-23 devnull 			if(p[i] != 0xff)
 93 d7094239 2003-11-23 devnull 				break;
 94 d7094239 2003-11-23 devnull 		if(i < 16){
 95 d7094239 2003-11-23 devnull 			if((prefixvals[p[i]] & Isprefix) == 0)
 96 d7094239 2003-11-23 devnull 				goto common;
 97 d7094239 2003-11-23 devnull 			for(j = i+1; j < 16; j++)
 98 d7094239 2003-11-23 devnull 				if(p[j] != 0)
 99 d7094239 2003-11-23 devnull 					goto common;
100 d7094239 2003-11-23 devnull 			n = 8*i + (prefixvals[p[i]] & ~Isprefix);
101 d7094239 2003-11-23 devnull 		} else
102 d7094239 2003-11-23 devnull 			n = 8*16;
103 d7094239 2003-11-23 devnull 
104 d7094239 2003-11-23 devnull 		/* got one, use /xx format */
105 d7094239 2003-11-23 devnull 		snprint(buf, sizeof buf, "/%d", n);
106 d7094239 2003-11-23 devnull 		return fmtstrcpy(f, buf);
107 d7094239 2003-11-23 devnull 	}
108 d7094239 2003-11-23 devnull 	return fmtstrcpy(f, "(eipfmt)");
109 d7094239 2003-11-23 devnull }