Author: hannes
Date: Mon Dec 26 20:59:00 2005
New Revision: 10473
Modified:
trunk/libraries/koala/sources/examples/buddha/ipv4.dylan
trunk/libraries/koala/sources/examples/buddha/zone.dylan
Log:
Bug: 7257
nicer ptr name generation, (it was blackwings idea ;)
Modified: trunk/libraries/koala/sources/examples/buddha/ipv4.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/buddha/ipv4.dylan (original)
+++ trunk/libraries/koala/sources/examples/buddha/ipv4.dylan Mon Dec 26
20:59:00 2005
@@ -23,6 +23,10 @@
format(stream, "%s", as(<string>, ip));
end;
+define method get-ptr (ip :: <ip-address>) => (res :: <string>)
+ concatenate(integer-to-string(ip[3]), "-", integer-to-string(ip[2]));
+end;
+
//arithmetic operations: +(ip, int) +(int, ip) -(ip, int)
define method \+ (a :: <ip-address>, b :: <integer>)
=> (res :: <ip-address>)
Modified: trunk/libraries/koala/sources/examples/buddha/zone.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/buddha/zone.dylan (original)
+++ trunk/libraries/koala/sources/examples/buddha/zone.dylan Mon Dec 26
20:59:00 2005
@@ -198,7 +198,7 @@
while (ip < broadcast-address(net.cidr))
let reverse-name = element(reverse-table,
as(<string>, ip),
- default: concatenate("hacker-",
as(<string>, ip)));
+ default: concatenate("hacker-",
get-ptr(ip)));
format(stream, "^%d.%s:%s.%s:%d\n",
ip[3],
print-zone.zone-name,
@@ -244,7 +244,7 @@
while (ip < broadcast-address(*config*.networks[0].cidr))
unless (element(reverse-table, as(<string>, ip), default: #f))
format(stream, "+%s.%s:%s:%d\n",
- concatenate("hacker-", as(<string>, ip)),
+ concatenate("hacker-", get-ptr(ip)),
print-zone.zone-name,
ip,
300);
--
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter
|
