aboutsummaryrefslogtreecommitdiffstats
path: root/package/base-files/files/bin/ipcalc.sh
blob: 5d5eac3ea80b8e0b9a11ff6139d701a9618a8149 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
#!/bin/sh

awk -f - $* <<EOF
function bitcount(c) {
	c=and(rshift(c, 1),0x55555555)+and(c,0x55555555)
	c=and(rshift(c, 2),0x33333333)+and(c,0x33333333)
	c=and(rshift(c, 4),0x0f0f0f0f)+and(c,0x0f0f0f0f)
	c=and(rshift(c, 8),0x00ff00ff)+and(c,0x00ff00ff)
	c=and(rshift(c,16),0x0000ffff)+and(c,0x0000ffff)
	return c
}

function ip2int(ip) {
	for (ret=0,n=split(ip,a,"\."),x=1;x<=n;x++) ret=or(lshift(ret,8),a[x])
	return ret
}

function int2ip(ip,ret,x) {
	ret=and(ip,255)
	ip=rshift(ip,8)
	for(;x<3;ret=and(ip,255)"."ret,ip=rshift(ip,8),x++);
	return ret
}

function compl32(v) {
	ret=xor(v, 0xffffffff)
	return ret
}

BEGIN {
	slpos=index(ARGV[1],"/")
	if (slpos == 0) {
		ipaddr=ip2int(ARGV[1])
		dotpos=index(ARGV[2],".")
		if (dotpos == 0)
			netmask=compl32(2**(32-int(ARGV[2]))-1)
		else
			netmask=ip2int(ARGV[2])
	} else {
		ipaddr=ip2int(substr(ARGV[1],0,slpos-1))
		netmask=compl32(2**(32-int(substr(ARGV[1],slpos+1)))-1)
		ARGV[4]=ARGV[3]
		ARGV[3]=ARGV[2]
	}

	network=and(ipaddr,netmask)
	broadcast=or(network,compl32(netmask))

	start=or(network,and(ip2int(ARGV[3]),compl32(netmask)))
	limit=network+1
	if (start<limit) start=limit

	end=start+ARGV[4]
	limit=or(network,compl32(netmask))-1
	if (end>limit) end=limit

	print "IP="int2ip(ipaddr)
	print "NETMASK="int2ip(netmask)
	print "BROADCAST="int2ip(broadcast)
	print "NETWORK="int2ip(network)
	print "PREFIX="32-bitcount(compl32(netmask))

	# range calculations:
	# ipcalc <ip> <netmask> <start> <num>

	if (ARGC > 3) {
		print "START="int2ip(start)
		print "END="int2ip(end)
	}
}
EOF
flush: *********************************************\n"); printf("vhpt_flush: flushing vhpt (seems to crash at rid wrap?)...\n"); printf("vhpt_flush: *********************************************\n"); printf("vhpt_flush: *********************************************\n"); printf("vhpt_flush: *********************************************\n"); } #endif for (i = 0; i < VHPT_NUM_ENTRIES; i++, v++) { v->itir = 0; v->CChain = 0; v->page_flags = 0; v->ti_tag = INVALID_TI_TAG; } // initialize cache too??? } #ifdef VHPT_GLOBAL void vhpt_flush_address(unsigned long vadr, unsigned long addr_range) { unsigned long ps; struct vhpt_lf_entry *vlfe; if ((vadr >> 61) == 7) { // no vhpt for region 7 yet, see vcpu_itc_no_srlz printf("vhpt_flush_address: region 7, spinning...\n"); while(1); } #if 0 // this only seems to occur at shutdown, but it does occur if ((!addr_range) || addr_range & (addr_range - 1)) { printf("vhpt_flush_address: weird range, spinning...\n"); while(1); } //printf("************** vhpt_flush_address(%p,%p)\n",vadr,addr_range); #endif while ((long)addr_range > 0) { vlfe = (struct vhpt_lf_entry *)ia64_thash(vadr); // FIXME: for now, just blow it away even if it belongs to // another domain. Later, use ttag to check for match //if (!(vlfe->ti_tag & INVALID_TI_TAG)) { //printf("vhpt_flush_address: blowing away valid tag for vadr=%p\n",vadr); //} vlfe->ti_tag |= INVALID_TI_TAG; addr_range -= PAGE_SIZE; vadr += PAGE_SIZE; } } #endif void vhpt_map(void) { unsigned long psr; psr = ia64_clear_ic(); ia64_itr(0x2, IA64_TR_VHPT, VHPT_ADDR, vhpt_pte, VHPT_SIZE_LOG2); ia64_set_psr(psr); ia64_srlz_i(); } void vhpt_init(void) { unsigned long vhpt_total_size, vhpt_alignment, vhpt_imva; #if !VHPT_ENABLED return; #endif // allocate a huge chunk of physical memory.... how??? vhpt_total_size = 1 << VHPT_SIZE_LOG2; // 4MB, 16MB, 64MB, or 256MB vhpt_alignment = 1 << VHPT_SIZE_LOG2; // 4MB, 16MB, 64MB, or 256MB printf("vhpt_init: vhpt size=%p, align=%p\n",vhpt_total_size,vhpt_alignment); /* This allocation only holds true if vhpt table is unique for * all domains. Or else later new vhpt table should be allocated * from domain heap when each domain is created. Assume xen buddy * allocator can provide natural aligned page by order? */ vhpt_imva = alloc_xenheap_pages(VHPT_SIZE_LOG2 - PAGE_SHIFT); if (!vhpt_imva) { printf("vhpt_init: can't allocate VHPT!\n"); while(1); } vhpt_paddr = __pa(vhpt_imva); vhpt_pend = vhpt_paddr + vhpt_total_size - 1; printf("vhpt_init: vhpt paddr=%p, end=%p\n",vhpt_paddr,vhpt_pend); vhpt_pte = pte_val(pfn_pte(vhpt_paddr >> PAGE_SHIFT, PAGE_KERNEL)); vhpt_map(); ia64_set_pta(VHPT_ADDR | (1 << 8) | (VHPT_SIZE_LOG2 << 2) | VHPT_ENABLED); vhpt_flush(); }