Файловый менеджер - Редактировать - /home/jogoso94/public_html/static/img/logo/NetAddr-IP-4.079-0.tar
�азад
pm_to_blib 0000644 00000000000 15043770025 0006566 0 ustar 00 Changes 0000644 00000044523 15043770025 0006052 0 ustar 00 Revision history for Perl extension NetAddr::IP 4.079 Fri Mar 25 16:18:26 PDT 2016 correct non-suppression of leading zeros in certain instances of new_no use. Thanks to "Mike Bartman (mbartman)" <mbartman@cisco.com> for spotting the bug. put in missing code to propagate NetAddr::IP::Lite :nofqdn to IP.pm 4.078 Mon Aug 17 15:35:28 PDT 2015 fix typo in Util.pm 1.53 MakefilePL that cause compiler to not be found at all 4.077 Fri Aug 14 01:17:23 PDT 2015 re-numbered because of CPAN upload issue 4.076 Thu Aug 13 22:44:48 PDT 2015 added method is_local() to Lite.pm inspired by Xan Charbonne fix Util Makefile.PL to accomodate bug in Android's sh add method full6m() inspired by abraxxa@cpan.org fix Util/Makefile.PL issue with clang compiler, bug 86831 4.075 Wed Jun 11 11:41:17 PDT 2014 make CPAN happy with new rev number 4.074 Wed Jun 11 09:36:10 PDT 2014 In Lite.pm v1.54, change input filter for resolvable hostnames to allow the underscore character Thanks to grankio [...] gmail.com for the heads up on this issue. 4.073 Sat Apr 5 09:32:11 PDT 2014 add documentation about FQDN conversion and an option to disable 4.072 Mon Jan 27 11:59:58 PST 2014 modify Makefile.PL to bypass missing 'pod2text' 4.071 Mon Sep 30 13:41:03 PDT 2013 add method "canon" by request from <tom.jones@bccx.com> 4.070 Thu Sep 12 12:54:22 PDT 2013 nth documention error fixed. thanks to Anton tobez@tobez.org Lite v1.51, add new6FFFF, RFC4291 compliant ipv4->ipV6 new 4.069 Sat May 25 15:10:45 PDT 2013 IN Lite.pm v1.50, add =encoding UTF-8 In Util.pm v1.50 changed Makefile.PL to check for config.h when building for XS with 'gcc', try building with 'cc', and check again. If config.h is not found, force Pure Perl mode. Kill XS in winduhs and Darwin, both of which misbehave when compiling XS code 4.068 Wed Apr 3 10:52:24 PDT 2013 update Makefile.PL in Util.pm v 1.49 to better detect 'winduhs' 4.067 Sat Mar 30 12:57:20 PDT 2013 Improved diagnostic message for "die" with bad mask for hostenum, hostenumref, split, splitref, rsplit, rsplitref Thanks to GENSYM@cpan.org for pointing out the need. 4.066 Mon Oct 29 13:30:14 PDT 2012 update Lite.pm v1.47 to support bracketed IPv6 URI notation as described in RFC-3986 Thanks to Quanah Gibson-Mount mishikal@yahoo.com 4.065 Tue Oct 2 12:36:11 PDT 2012 correct format for IPv6 embedded IPv4 addresses in InetBase v0.8 4.064 Tue Sep 25 13:54:47 PDT 2012 added support for rfc3021 /31 networks to hostenum 4.063 Fri Aug 10 11:46:18 PDT 2012 Updated GPL v2.0 text and address in all modules 4.062 Wed Jun 6 12:34:48 PDT 2012 documentation updates courtesy of Ben Bullock <benkasminbullock@gmail.com> Thank you Ben. 4.061 Tue May 8 16:24:03 PDT 2012 fixed bug in Lite v1.44 that returned $ip->num() = 2^128 for 0.0.0.0/0 Thanks to Sebastian <debug@test1.org> for spotting it. 4.060 Fri Apr 6 16:00:02 PDT 2012 In Lite.pm v1.43, fix bug #75976, change in behavior introduced in v4.050 where an empty string supplied to "new" previously returned 'undef' and now returns 'default' for ipV4 or ipV6 4.059 Wed Mar 7 12:50:04 PST 2012 add is_rfc1918 to Lite.pm v1.42 documentation updates 4.058 Fri Nov 11 19:23:11 PST 2011 up rev for documentation update update documentation in InetBase v0.06 4.057 Fri Nov 11 15:04:20 PST 2011 Lite.pm v1.40 add call to InetBase::fillIPv4 to all uses of gethostbyname break out the code in InetBase v0.05 that expands short IPv4 addresses into dotquad format to account for broken BSD implementations of inet_aton and gethostbyname that do not recognize the short format. EXPORT this as sub 'fillIPv4' in Util.pm v1.45, add 'fillIPv4' to calls to gethostbyname to work around broken inet_aton and gethostbyname implementations in certain BSD implementations 4.056 Wed Nov 2 19:15:31 PDT 2011 bump rev to incorporate improved inet_aton in InetBase v0.04 to overcome broken gethostbyname found in NetBSD and OpenBSD 4.055 Fri Oct 28 11:41:22 PDT 2011 in Lite.pm v1.38 patch for bug 71869, issues with Math::BigInt varients 4.054 Thu Oct 27 12:48:55 PDT 2011 In Lite.pm v1.37, remove Calc.pm add detection of early Math::Bigint object structure fix bug 71869 - a failed test routine 4.053 Wed Oct 26 08:52:34 PDT 2011 In Lite.pm v1.36 fix bug #71925. A a sub-varient of #62521 that showed up only for short notation for IPv4. i.e. 127/n, 127.0/n, 127.0.0/n but not 127.0.0.0/n 4.052 Tue Oct 25 16:18:38 PDT 2011 add test in Lite.pm v1.35 for api-version of Math::BigInt to support versions earlier than 1.70, circa Dec 2003. Thanks to Paul Howarth <paul@city-fan.org> for spotting that bug. 4.051 Mon Oct 24 14:44:53 PDT 2011 fix bug 71869 in Lite.pm v1.34 use Math::BigInt::Calc for creating BigInt values and fall back to NetAddr::IP::Calc if Math::BigInt is not present. remove reference to Config{osname} in InetBase.pm v0.03 (Util 1.43) 4.050 Sat Oct 22 01:58:57 PDT 2011 In Lite/Util/lib/NetAddr/IP/Lite/Util/InetBase.pm v0.02 Socket6 prior to version 0.23 does not have AF_INET6 in the EXPORT_OK array, modify InetBase.pm v0.2 to work around this. Add support for Math::BigInt to NetAddr::IP::Lite v1.33 4.049 Sat Oct 15 22:15:10 PDT 2011 Updates to Lite.pm, Util.pm, new module InetBase.pm In Lite v1.32 bug68723, add capability to parse input of the form ->new6(12345,1). This should have been there but was missing. Thanks to Andrei Benea for spotting this. In Util v1.41 add inet_pton, inet_ntop, AF_INET, AF_INET6 modify inet_n2dx and inet_n2ad to recognize the new 128 bit IPv4 format ::FFFF:FFFF:0:0 replace isIPv4 with a pure perl version for portablity split the following into NetAddr::IP::InetBase v0.01 to provide better long term support for IPv6 inet_aton inet_ntoa ipv6_aton ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_ntop inet_pton packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 4.048 Sat Oct 8 01:33:44 PDT 2011 remove debug print statement from Util v1.40 4.047 Thu Oct 6 23:41:42 PDT 2011 really correct missing reference in Util v1.39 doc update only in Lite.pm v1.30 4.046 Thu Oct 6 20:20:33 PDT 2011 DEPRECATED corrected missing reference to inet_4map6 in Util v1.38 4.045 Thu Oct 6 18:23:04 PDT 2011 DEPRECATED updated NetAddr::IP::Util 1.37 addid isAnyIPv4, isNewIPv4, inet_4map6 revised naip_gethostbyname to conform to Perl's gethostbyname output 4.044 Wed May 18 14:47:34 PDT 2011 added missing support for ->compactref(\@list) which is described in the documentation but not implemented. Thanks to Rusty Bourland codebard@gmail.com for spotting this and providing both a patch and test code 4.043 Wed Apr 6 11:31:19 PDT 2011 Update documentation on the use of "adding constants to an IP address". 4.042 Tue Mar 22 15:26:02 PDT 2011 Update Lite.pm v1.27 to encompass treatment of /31 and /127 point-to-point networks as described in RFC 3021 NOTE: for /31's and /127's this changes the behavior of the following methods: first returns the "network" address last returns the "broadcast" address nth index 0 returns "network" addr instead of undef nth index 1 returns "broadcast" addr instead of undef num returns 2 instead of 0 (zero) "old_nth" behavior is unchanged Thanks to Todd Caine todd.caine@gmail.com for pointing this out. 4.041 Tue Mar 8 15:18:16 PST 2011 Updated Lite.pm v1.26, "sub num" to support usable IP ranges greater than 2**32 Thanks to Jan Ploski jan@plosquare.com for finding this bug 4.040 Sat Feb 19 10:04:00 PST 2011 correction to use of Util.pm package lexicals thanks to mishikal@yahoo.com for spotting the bug and to Mark Martinec mark.martinec+ama...@ijs.si for the solution. 4.039 Wed Feb 16 15:48:03 PST 2011 Correct documentation for 'split' methods 4.038 Fri Dec 17 17:47:47 PST 2010 Modify subs "new" and "new6" in Lite.pm to accomodate Cisco mask syntax that uses space instead of "/" for a separator This eliminates the need for "new_cis" and "newcis6" which are now deprecated. Modify LIte/t/v4-cnew.t and add Lite/t/v6-cnew.t to test the above 4.037 Fri Nov 19 10:48:01 PST 2010 add :upper and :lower to Lite.pm v1.23 add comments about rfc5952 requirement for lowercase ipV6 notation in Lite.pm v1.23 and IP.pm add test for :lower in Lite.pm v1.23 4.036 Tue Nov 16 16:28:37 PST 2010 In Util.pm v1.35, naip_gethostbyname modified to return undef instead of 0 (zero) on failure thanks to Terry Cassidy enaudishaylee@tc17.com for the bug report In Util.pm v1.35, move sub's ipv6_n2d and ipv6_n2x to non-autosplit portion of module to eliminate warnings during autosplit of "our" variables thanks to Nicholas Bamber <nicholas@periapt.co.uk> Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=517361 In Lite.pm v1.22, update new6 to properly classify short ipv4 notation i.e. 127/8 with test for ":" rather than match for \d.\d.\d.\d thanks to Steve Huff (SHUFF) * shuff@cpan.org for spotting that bug. In Lite.pm v1.22, update t/v4-new.t for deprecated array syntax in perl 5.13 was: qw(...stuff...) is: (qw(...stuff...)) thanks to Todd Rinaldo <toddr@cpan.org> for reporting this 4.035 Thu Oct 28 14:26:19 PDT 2010 fix bug in Lite v1.21 where new6 improperly assigns the mask value for and ipv4 address in 32 bit space instead of 128 bit space Thanks to Mark Martinec and Steve Huff (SHUFF) * shuff@cpan.org for spotting and replicating that bug added new_cis and new_cis6 to Lite.pm v1.21 to accomodate Cisco syntax that has IP and MASK separated by a space. Updated typo in documentation that left out example print new6 stuff 4.034 Mon Oct 25 16:22:01 PDT 2010 Updated Lite::_xnew v1.20 to properly handle ipV6 notation of the form xxxx:xxxx:xxxx:xxxx:xxxx:xxxx, DDD Thanks to Dusty Mabe <Dusty.Mabe@tekelec.com> for spotting this bug 4.033 Wed Sep 29 10:32:50 PDT 2010 Conditionalize import of AF_INET6 in Util.pm NetAddr::IP::UtilPolluted 4.032 Wed Sep 22 13:39:08 PDT 2010 Added overload => 'ne' and '!=' to Lite.pm v1.18 4.031 Tue Sep 21 19:21:04 PDT 2010 Pull Socket6 stuff out of Lite 1.17 and put into NetAddr::IP::Util.pm 1.33 in its own namespace 4.030 Tue Jul 20 15:32:23 PDT 2010 Resolve named hosts in Lite.pm using gethostbyname, followed by gethostbyname6 to determine whether to set ipV6 flag Thanks to Dusty Mabe <Dusty.Mabe@tekelec.com> for spotting this bug 4.029 Thu Jul 8 18:17:38 PDT 2010 In NetAddr::IP::Lite, added support for the sub "new" to resolve host6 names if the OPTIONAL perl Socket6 module is available Thanks to "Mabe, Dusty" <Dusty.Mabe@tekelec.com> for spotting this and suggesting a fix. 4.028 Wed May 12 14:18:20 PDT 2010 In /Lite/Util/Util.xs v1.32, changed netswap() to postincrement *a++ = to *a and added increment after save to mollify some picky compilers that return possible undefined behavior. changed type of _128x10 to 'void' Thanks to David Bolt <dbolt@davjam.org> for the above two patches 4.027 Tue Jun 9 10:31:11 PDT 2009 In NetAddr::IP::Util v1.31, ferret out shell value for Makefile.PL when calling ./configure for systems where the 'x' bit gets lost due to bug in Archive::Tar 4.026 Sat Mar 7 16:35:33 PST 2009 make the compiler test check the environment for CC before using Perl's default compiler 4.025 Sat Mar 7 16:15:18 PST 2009 revised compiler test in Makefile.PL for Util v1.29 to accomodate picky Solaris "cc" 4.024 Mon Jan 26 00:27:32 PST 2009 documentation update 4.023 Fri Jan 16 14:30:40 PST 2009 added the capability to set the CASE of ipV6 text return values to either upper or lower. Thanks to Rob Riepel <riepel@networking.Stanford.EDU> for developing this improvement and providing a comprehensive patch 4.022 Sat Dec 20 13:05:01 PST 2008 In Util.xs 1.28 set uninitialized "carry" in XS bin2bcd to zero This insidious bug only showed up on 64 bit hosts running perl 5.6.2 Thanks to Oliver Paukstadt <pstadt@sourcentral.org> for taking the time to do the testing for me on his s390 system. 4.021 Wed Dec 10 11:09:36 PST 2008 Removed test code that produces a warning about all perl versions, OOPS!! instead of just the buggy 5.8.0 - 5.8.5 versions. Thanks to paul@city-fan.org for reporting this. 4.020 Tue Dec 9 16:25:46 PST 2008 cleaned up various typo's with good patch from Rob Riepel <riepel@networking.Stanford.EDU> thanks Rob. revised UtilPP v1.7 to work around perl 5.8.4 failures with certain @_ operations of goto &sub... see perl bug [ 23429]. Unfortunately, perl-5.8.4 is the distribution of choice for many solaris boxes 4.019 Sat Nov 29 15:15:30 PST 2008 in Lite/Util, add pure perl testing to XS build 4.018 Fri Nov 28 23:19:01 PST 2008 revised XS code to be full re-entrant, thread safe in Util.xs v1.26 removed all traces of mutex locks in Util.xs v1.26 removed function 'threads' here an in UtilPP v1.6 4.017 Sun Nov 23 19:32:59 PST 2008 Extended the capability of 'splitref' to allow splitting of objects into multiple pieces with differing CIDR masks. Returned object list can be split from bottom to top or from top to bottom depending on which method is called split, rsplit, splitref, rsplitref Thanks to kashmish <kashmish@gmail.com> for the idea on improving functionality of 'split'. Thanks to Rob Riepel <riepel@networking.Stanford.EDU> for a faster and more accurate _compV6 function. in UtitPP v1.5 correct documentation error add threads reporting (empty string) in Util v1.25 add threads reporting that returns a comma separated string of build headers. added what is hopefully thread safe operation via serialization. Must be invoked by "--with-threads" in Lite v1.12 corrected missing Zeros subroutine Zeros and Zero both will work in Lite v1.12 added minus (-) overloading to allow the subtraction of two NetAddr::IP objects to get the difference between the object->{addr}'s as a numeric value Thanks to Rob Riepel <riepel@networking.Stanford.EDU> for the initial code and inspiration for this enhancement 4.016 Wed Nov 5 18:13:20 PST 2008 in Util/ version 1.24 Clean up Makefile.PL to check actual required link libraries against the perl build for consistency 4.015 Sun Nov 2 10:10:38 PST 2008 in Util v1.23 add missing headers in configure and localconf.h for Solaris inet_xton thanks to Karl Bunch <karl@digilink.net> for spotting the bug. 4.014 Sat Nov 1 15:13:48 PST 2008 in Lite.pm v1.11, add test for characters not allowed by rfc952 before the call to gethostbyname in sub new() for those people that insist on using deprecated functionality :aton and OS's that fail to notice calls to gethostbyname with binary arguments. 4.013 Wed Oct 22 15:04:49 PDT 2008 In Lite.pm v1.10, add new no octal method for improperly formatted ipV4 addresses In Util.pm v1.22, eliminated dependence on PL_sawampersand thanks to Mark Martinec <Mark.Martinec@ijs.si> for spotting this and submitting a patch. In Util.pm v1.22, force -noxs mode for Win32 In Util.pm v1.22, use autoconf to configure 'C' build 4.012 Thu Oct 16 19:35:33 PDT 2008 clear build bug for Win32 in Util.pm v 1.21 4.011 released Oct 6 13:10 4.010 Sat Sep 27 17:00:28 PDT 2008 in NetAddr::IP::Util v0.19 updated test for ENDIANess in siteconf add test in inet_aton to detect overange IP dot quad values missed by some broken Socket implementations i.e. 256.1.1.1 would fail to return undef NOTE: Versions 4.008 and 4.009 had limited release to tester only and were not uploaded to CPAN. All of the v4.008, 4.009 changes are incorporated in v4.010 4.009 Tue Sep 2 19:09:57 PDT 2008 In NetAddr::IP::Lite v1.07, in the off chance that NetAddr::IP::Lite objects are created and the caller later loads NetAddr::IP and expects to use those objects, let the AUTOLOAD routine find and redirect NetAddr::IP::Lite method and subroutine calls to NetAddr::IP. updated Lite/t/v4-wnew.t so that non-existent domains are "really" not there 4.008 Sat Jun 7 14:01:55 PDT 2008 inherit method "new_from_aton" from NetAddr::IP::Lite add related documentation Inherited methods from Lite.pm updated as follows: comparisons of the form <, >, <=, >= 10.0.0.0/24 {operator} 10.0.0.0/16 return now return the comparison of the cidr value when the address portion is equal. NOTE: this comparison returns the comparison of the NUMERIC value of the CIDR. This produces the counter intuitive result that /24 > /16. There is logic to this, really! For proper operation of commands like "Compact" and "Coalesce", lists of netaddr objects must sort in ascending order. However, this conflicts with the requirement for larger netblocks to sort FIRST so as to include smaller ones. This logic extends to any requirement for a sort of netaddr objects. It should be further noted that the mixing of netaddr objects with varying IP addresses and CIDR allocations can lead to unexpected results since the comparisons done first on the IP portion and then on the CIDR portion. The documentation has been updated appropriately. Thanks to Peter DeVries for spotting this discrepancy 4.007 Wed Jun 6 16:41:11 VET 2007 Update copyright dates 4.006 Wed Jun 6 15:58:04 VET 2007 A patch from Michael got rid of $& and $` as reported by Daryl O'Shea and documented at http://issues.apache.org/SpamAssassin/show_bug.cgi?id=5312 4.004 Wed Aug 16 16:01:54 PDT 2006 update to include/exclude files in corrupted distro 4.003 Sun Aug 6 10:48:25 PDT 2006 correct SYNOPSIS documentation add :old_nth update Lite.pm documentation update Util.pm documentation Imported into distribution CVS tree - Some revision number mismatches are to be expected Latin-1 is back Fixed some angle brackets so that they show up in the docs 4.002 Fri Aug 4 14:14:16 PDT 2006 remove unused global variable $isV6 update Lite.pm to v1.02 $isV6 global converted to a lexical variable within sub "_xnew" $Class global removed and replaced by calls to UNIVERSAL::isa Thanks to julian@mehnle.net for spotting problems related to using the Lite.pm with mod_perl 4.001 Thu Jul 6 14:09:01 PDT 2006 various bug fixes courtesy of Luis Munoz: changes to Lite.pm v1.01, Util.pm v0.17 see Changes in those distros. update t/v6-re.t, addconst called as a scalar, should be called to return the address value ()[1] 4.000 Mon Jun 19 21:51:10 PDT 2006 initial release of version 4.000 which includes full support of ipV6 addresses and drops the requirement for Math::BigInt and will run on older versions of Perl at least back to 5.005_03 MANIFEST.SKIP 0000644 00000000454 15043770025 0006450 0 ustar 00 ^Build$ ^_build/ ^blib/ ^blibdirs Makefile$ Makefile\.[a-z]+$ pm_to_blib CVS/.* \.cvs ,v$ ^tmp/ \.old$ \.bak$ \.tmp$ \.xsc$ ~$ ^# \.shar$ \.tar$ \.tgz$ \.tar\.gz$ \.zip$ _uu$ Util_IS\.pm$ Util\.(bs|[co])$ localStuff\.h$ config\.log$ config\.h$ config\.status localperl\.h Lite/bug2742981.pl META.yml Lite/pm_to_blib 0000644 00000000000 15043770025 0007463 0 ustar 00 Lite/Changes 0000644 00000034240 15043770025 0006742 0 ustar 00 Revision history for Perl extension NetAddr::IP::Lite 1.57 Fri Mar 25 16:18:26 PDT 2016 correct non-suppression of leading zeros in certain instances of new_no use. Thanks to "Mike Bartman (mbartman)" <mbartman@cisco.com> for spotting the bug. 1.56 Mon Aug 17 15:35:28 PDT 2015 fix typo in Util.pm 1.53 MakefilePL that cause compiler to not be found at all 1.55 Thu Aug 13 22:44:48 PDT 2015 added method is_local() inspired by request from Xan Charbonne fix Util Makefile.PL to accomodate bug in Android's sh fix Util/Makefile.PL issue with clang compiler, bug 86831 1.54 Wed Jun 11 09:36:10 PDT 2014 change input filter for resolvable hostnames to allow the underscore character Thanks to grankio [...] gmail.com for the heads up on this issue. 1.53 Sat Apr 5 09:32:11 PDT 2014 add documentation about FQDN conversion and an option to disable 1.52 Mon Jan 27 11:59:58 PST 2014 modify Makefile.PL to bypass missing 'pod2text' 1.51 Thu Sep 12 12:54:22 PDT 2013 add new6FFFF, RFC4291 compliant ipv4->ipV6 new 1.50 Sat May 25 15:10:45 PDT 2013 add =encoding UTF-8 1.49 Tue Apr 9 12:02:34 PDT 2013 In Util.pm v1.50 changed Makefile.PL to check for config.h when building for XS with 'gcc', try building with 'cc', and check again. If config.h is not found, force Pure Perl mode. Kill XS in winduhs and Darwin, both of which misbehave when compiling XS code 1.48 Wed Apr 3 10:52:24 PDT 2013 Update Util.pm v1.49 to better detect 'winduhs' 1.47 Mon Oct 29 13:30:14 PDT 2012 update Lite.pm v1.47 to support bracketed IPv6 URI notation as described in RFC-3986 Thanks to Quanah Gibson-Mount mishikal@yahoo.com 1.46 Tue Oct 2 12:36:11 PDT 2012 correct incorrect format for IPv6 embedded IPv4 addresses in InetBase v0.8 1.45 Fri Aug 10 11:46:18 PDT 2012 --- 1.44 Tue May 8 16:24:03 PDT 2012 fixed bug that return $ip->num() = 2^128 for 0.0.0.0/0 Thanks to Sebastian <debug@test1.org> for spotting it. 1.43 Fri Apr 6 13:19:48 PDT 2012 fix bug #75976, change in behavior introduced in v4.050 where an empty string supplied to "new" previously returned 'undef' and now returns 'default' for ipV4 or ipV6 1.42 Wed Mar 7 12:50:04 PST 2012 add "is_rfc1918" and tests correct typos in documentation 1.41 Fri Nov 11 19:23:11 PST 2011 up rev for documentation update update documentation in InetBase v0.06 1.40 Fri Nov 11 13:20:32 PST 2011 add call to InetBase::fillIPv4 to all uses of gethostbyname break out the code in InetBase v0.05 that expands short IPv4 addresses into dotquad format to account for broken BSD implementations of inet_aton and gethostbyname that do not recognize the short format. EXPORT this as sub 'fillIPv4' in Util.pm v1.45, add 'fillIPv4' to calls to gethostbyname to work around broken inet_aton and gethostbyname implementations in certain BSD implementations 1.39 Wed Nov 2 19:15:31 PDT 2011 bump rev to incorporate improved inet_aton in InetBase v0.04 to overcome broken gethostbyname found in NetBSD and OpenBSD 1.38 Fri Oct 28 11:41:22 PDT 2011 patch for bug 71869, issues with Math::BigInt varients 1.37 Thu Oct 27 12:48:55 PDT 2011 add detection of early Math::Bigint 0.01 object structures circa perl 5.6.1 remove Calc.pm as part of above fix bug 71869 - a failed test routine 1.36 Wed Oct 26 08:52:34 PDT 2011 fix bug #71925. A a sub-varient of #62521 that showed up only for short notation for IPv4. i.e. 127/n, 127.0/n, 127.0.0/n but not 127.0.0.0/n 1.35 Tue Oct 25 16:18:38 PDT 2011 add test for api-version of Math::BigInt to support versions earlier than 1.70, circa Dec 2003. Thanks to Paul Howarth <paul@city-fan.org> for spotting that bug. 1.34 Mon Oct 24 14:38:16 PDT 2011 use Math::BigInt::Calc for creating BigInt values and fall back to NetAddr::IP::Calc if Math::BigInt is not present. Thanks to Paul Howarth <paul@city-fan.org> for spotting that bug. remove reference to Config{osname} in InetBase.pm v0.03 (Util 1.43) 1.33 Sat Oct 22 01:47:42 PDT 2011 In Lite/Util/lib/NetAddr/IP/Lite/Util/InetBase.pm v0.02 Socket6 prior to version 0.23 does not have AF_INET6 in the EXPORT_OK array, modify InetBase.pm v0.2 to work around this. Add support for Math::BigInt objects 1.32 Sat Oct 15 22:05:23 PDT 2011 bug68723, add capability to parse input of the form ->new6(12345,1). This should have been there but was missing. Thanks to Andrei Benea for spotting this. In Util v1.41 add inet_pton, inet_ntop, AF_INET, AF_INET6 modify inet_n2dx and inet_n2ad to recognize the new 128 bit IPv4 format ::FFFF:FFFF:0:0 replace isIPv4 with a pure perl version for portablity split the following into NetAddr::IP::InetBase v0.01 to provide better long term support for IPv6 inet_aton inet_ntoa ipv6_aton ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_ntop inet_pton packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 1.31 Sat Oct 8 01:33:44 PDT 2011 remove debug print statement from Util.pm v1.40 1.30 Thu Oct 6 23:41:42 PDT 2011 correct internal variable reference in Util.pm 1.39 1.29 Thu Oct 6 20:20:33 PDT 2011 updated to UTIL 1.38 1.28 Wed Apr 6 11:31:19 PDT 2011 Update documentation on the use of "adding constants to an IP address". 1.27 Tue Mar 22 15:26:02 PDT 2011 Update Lite.pm to encompass treatment of /31 and /127 point-to-point networks as described in RFC 3021 NOTE: for /31's and /127's this changes the behavior of the following methods: first returns the "network" address last returns the "broadcast" address nth index 0 returns "network" addr instead of undef nth index 1 returns "broadcast" addr instead of undef num returns 2 instead of 0 (zero) "old_nth" behavior is unchanged Thanks to Todd Caine todd.caine@gmail.com for pointing this out. 1.26 Tue Mar 8 15:18:16 PST 2011 Updated "sub num" to support usable IP ranges greater than 2**32 Thanks to Jan Ploski jan@plosquare.com for finding this bug 1.25 Sat Feb 19 10:04:00 PST 2011 correction to use of Util.pm package lexicals thanks to mishikal@yahoo.com for spotting the bug and to Mark Martinec mark.martinec+ama...@ijs.si for the solution. 1.24 Fri Dec 17 17:47:47 PST 2010 Modify subs "new" and "new6" to accomodate Cisco mask syntax that uses space instead of "/" for a separator This eliminates the need for "new_cis" and "newcis6" which are now deprecated. Modify t/v4-cnew.t and add t/v6-cnew.t to test the above 1.23 Fri Nov 19 10:48:01 PST 2010 add :upper and :lower to Lite.pm v1.23 add comments about rfc5952 requirement for lowercase ipV6 notation add test for :lower 1.22 Tue Nov 16 16:28:37 PST 2010 update new6 to properly classify short ipv4 notation i.e. 127/8 with test for ":" rather than match for \d.\d.\d.\d thanks to Steve Huff (SHUFF) * shuff@cpan.org for spotting that bug. update t/v4-new.t for deprecated array syntax in perl 5.13 was: qw(...stuff...) is: (qw(...stuff...)) thanks to Todd Rinaldo <toddr@cpan.org> for reporting this 1.21 Thu Oct 28 14:26:19 PDT 2010 fix bug where new6 improperly assigns the mask value for and ipv4 address in 32 bit space instead of 128 bit space Thanks to Mark Martinec and Steve Huff (SHUFF) * shuff@cpan.org for spotting and replicating that bug added new_cis and new_cis6 to Lite.pm v1.21 to accomodate Cisco syntax that has IP and MASK separated by a space. Updated typo in documentation that left out example print new6 stuff 1.20 Mon Oct 25 16:22:01 PDT 2010 Updated _xnew to properly handle ipV6 notation of the form xxxx:xxxx:xxxx:xxxx:xxxx:xxxx, DDD Thanks to Dusty Mabe <Dusty.Mabe@tekelec.com> for spotting this bug 1.19 Wed Sep 29 10:32:50 PDT 2010 Conditionalize import of AF_INET6 in Util.pm NetAddr::IP::UtilPolluted 1.18 Wed Sep 22 13:39:08 PDT 2010 Added overload => 'ne' and '!=' to Lite.pm 1.17 Tue Sep 21 17:50:50 PDT 2010 Pull Socket6 stuff out of Lite and put into NetAddr::IP::Util.pm in its own namespace 1.16 Wed Aug 11 12:45:49 PDT 2010 When using Socket6, pull in missing symbol PF_INET6, which may or may not be present, from Socket. 1.15 Tue Jul 20 15:32:23 PDT 2010 Resolve named hosts using gethostbyname, followed by gethostbyname6 to determine whether to set ipV6 flag Thanks to Dusty Mabe <Dusty.Mabe@tekelec.com> for spotting this bug 1.14 Thu Jul 8 18:17:38 PDT 2010 added support for the sub "new" to resolve host6 names if the OPTIONAL perl Socket6 module is available 1.13 Tue Dec 9 16:00:35 PST 2008 added missing regexp to classify arguments as BCD numbers, apparently this has been missing from NetAddr::IP::Lite since the first release. Thanks to Carlos Vicente cvicente@cpan.org for reporting this bug. revised UtilPP v1.7 to work around perl 5.8.4 failures with certain @_ operations of goto &sub... see perl bug [ 23429]. Unfortunately, perl-5.8.4 is the distribution of choice for many solaris boxes 1.12 Sun Nov 23 19:32:59 PST 2008 repaired missing sub Zeros added minus (-) overloading to allow the subtraction of two NetAddr::IP objects to get the difference between the object->{addr}'s as a numeric value Thanks to Rob Riepel <riepel@networking.Stanford.EDU> for the initial code and inspiration for this enhancement 1.11 Sat Nov 1 15:13:48 PST 2008 add test for characters not allowed by rfc952 before the call to gethostbyname in sub new() for those people that insist on using deprecated functionality :aton and OS's that fail to notice calls to gethostbyname with binary arguments 1.10 Wed Oct 22 14:54:12 PDT 2008 add new no octal method for improperly formatted ipV4 addresses In Util.pm v1.22, eliminated dependence on PL_sawampersand thanks to Mark Martinec <Mark.Martinec@ijs.si> for spotting this and submitting a patch. In Util.pm v1.22, force -noxs mode for Win32 In Util.pm v1.22, use autoconf to configure 'C' build 1.09 Thu Oct 16 19:35:33 PDT 2008 again... clear build bug for Win32 in Util.pm v 1.21 1.08 Sat Sep 27 12:27:28 PDT 2008 in Util v0.19 updated test for ENDIANess in siteconf add test in inet_aton to detect overange IP dot quad values missed by some broken Socket implementations i.e. 256.1.1.1 1.07 Tue Sep 2 19:09:57 PDT 2008 in the off chance that NetAddr::IP::Lite objects are created and the caller later loads NetAddr::IP and expects to use those objects, let the AUTOLOAD routine find and redirect NetAddr::IP::Lite method and subroutine calls to NetAddr::IP. updated t/v4-wnew.t so that non-existent domains are "really" not there 1.06 Sat Jun 7 12:57:18 PDT 2008 add method "new_from_aton" and related documentation comparisons of the form <, >, <=, >= 10.0.0.0/24 {operator} 10.0.0.0/16 return now return the comparison of the cidr value when the address portion is equal. NOTE: this comparison returns the comparison of the NUMERIC value of the CIDR. This produces the counter intuitive result that /24 > /16. There is logic to this, really! For proper operation of commands like "Compact" and "Coalesce", lists of netaddr objects must sort in ascending order. However, this conflicts with the requirement for larger netblocks to sort FIRST so as to include smaller ones. This logic extends to any requirement for a sort of netaddr objects. It should be further noted that the mixing of netaddr objects with varying IP addresses and CIDR allocations can lead to unexpected results since the comparisons done first on the IP portion and then on the CIDR portion. The documentation has been updated appropriately. Thanks to Peter DeVries for spotting this discrepancy 1.05 undocumented 1.04 undocumented 1.03 Sun Aug 6 10:48:25 PDT 2006 update Util.pm v0.18 documentation 1.02 Fri Aug 4 14:14:16 PDT 2006 $isV6 global converted to a lexical variable within sub "_xnew" $Class global removed and replaced by calls to UNIVERSAL::isa Thanks to julian@mehnle.net for spotting problems related to using the Lite.pm with mod_perl 1.01 Thu Jul 6 10:46:48 PDT 2006 update v4-wnew.t to warn user of possible long wait update Util.pm v0.17 -- see Changes in that distro 1.00 Mon Jun 26 13:34:00 PDT 2006 changed behavior of ->nth and ->num to 'exactly' conform to the documentation add :old_nth tag to preserve old behavior and update tests to check both 0.12 Sun Jun 25 16:13:00 PDT 2006 imported missing 'bcd2bin' fixed Util->new() issues with long digit strings ->new('::fffff') and non hex digits ->new('::foo'). Thanks to Radoslaw Zielinski <radek42@gmail.com> for spotting these 3 bugs 0.11 Wed Jun 14 14:53:21 PDT 2006 add 'sub new6' and related functionality to methods that print or return v4/6 information or text. add $self->{isv6} flag for hint to ipV6 status corrected bug in sub num that miscalculated the number of IP's in a net for /31 /32 0.10 Tue Jun 13 14:07:46 PDT 2006 bring 'sub new' into full compliance with NetAddr::IP, correct compatibility with for ==,>,<,=>,>=,<=>,cmp and update documentation to reflect actual implementation add 'copy' function that return a completely new object export (Zero Ones V4mask V4net) update Util.pm v0.15 so shiftleft returns original argument when the shift count is zero or undefined 0.09 Tue Jun 6 08:37:01 PDT 2006 update Util/Makefile.PM to check for link libraries that ExtUtils::MakeMaker does not find properly remove 'use warnings' from Lite.pm for backwards compatibility with older perl versions 0.08 Tue Jun 6 08:33:11 PDT 2006 update Util.xs for build on windoze 0.07 Tue Jun 6 08:21:12 PDT 2006 update NetAddr::IP::Util to v0.12 0.06 Mon Jun 5 21:34:28 PDT 2006 fix Sparc problems in Util v0.11 1) add workaround for OS's that do not have inet_aton 2) add workaround for compilers that do not understand #if MACRO1 == MACRO2 0.05 Sun May 7 18:06:43 PDT 2006 updated UtilPP.pm v0.06 to remove unnecessary pack(unpack) sequences to speed up ipv6->4, ipv4->6 conversions 0.04 Fri Apr 28 17:36:28 PDT 2006 left Util/Makefile.pl out of the top level distro 0.03 Fri Apr 28 17:26:51 PDT 2006 oops! left prerequisite Util 0.08 in the Makefile when it is include in this distro 0.02 Fri Apr 28 16:11:00 PDT 2006 update Lite.pm to accept ->new('addr/mask') where addr and mask are both in IP address format add test for above t/netaddr.t 0.01 Wed Apr 26 19:03:18 PDT 2006 initial release Lite/Lite.pm 0000644 00000125630 15043770025 0006706 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::Lite; use Carp; use strict; #use diagnostics; #use warnings; use NetAddr::IP::InetBase qw( inet_any2n isIPv4 inet_n2dx inet_aton ipv6_aton ipv6_n2x fillIPv4 ); use NetAddr::IP::Util qw( addconst sub128 ipv6to4 notcontiguous shiftleft hasbits bin2bcd bcd2bin mask4to6 ipv4to6 naip_gethostbyname havegethostbyname2 ); use vars qw(@ISA @EXPORT_OK $VERSION $Accept_Binary_IP $Old_nth $NoFQDN $AUTOLOAD *Zero); $VERSION = do { my @r = (q$Revision: 1.57 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(Zeros Zero Ones V4mask V4net); # Set to true, to enable recognizing of ipV4 && ipV6 binary notation IP # addresses. Thanks to Steve Snodgrass for reporting. This can be done # at the time of use-ing the module. See docs for details. $Accept_Binary_IP = 0; $Old_nth = 0; *Zero = \&Zeros; =pod =encoding UTF-8 =head1 NAME NetAddr::IP::Lite - Manages IPv4 and IPv6 addresses and subnets =head1 SYNOPSIS use NetAddr::IP::Lite qw( Zeros Ones V4mask V4net :aton DEPRECATED ! :old_nth :upper :lower :nofqdn ); my $ip = new NetAddr::IP::Lite '127.0.0.1'; or if your prefer my $ip = NetAddr::IP::Lite->new('127.0.0.1); or from a packed IPv4 address my $ip = new_from_aton NetAddr::IP::Lite (inet_aton('127.0.0.1')); or from an octal filtered IPv4 address my $ip = new_no NetAddr::IP::Lite '127.012.0.0'; print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ; if ($ip->within(new NetAddr::IP::Lite "127.0.0.0", "255.0.0.0")) { print "Is a loopback address\n"; } # This prints 127.0.0.1/32 print "You can also say $ip...\n"; The following four functions return ipV6 representations of: :: = Zeros(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); ::FFFF:FFFF = V4net(); Will also return an ipV4 or ipV6 representation of a resolvable Fully Qualified Domanin Name (FQDN). =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install B<NetAddr::IP::Lite> depends on B<NetAddr::IP::Util> which installs by default with its primary functions compiled using Perl's XS extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install =head1 DESCRIPTION This module provides an object-oriented abstraction on top of IP addresses or IP subnets, that allows for easy manipulations. Most of the operations of NetAddr::IP are supported. This module will work with older versions of Perl and is compatible with Math::BigInt. * By default B<NetAddr::IP> functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: NOTE: the AUGUST 2010 RFC5952 states: 4.3. Lowercase The characters "a", "b", "c", "d", "e", and "f" in an IPv6 address MUST be represented in lowercase. It is recommended that all NEW applications using NetAddr::IP::Lite be invoked as shown on the next line. use NetAddr::IP::Lite qw(:lower); * To ensure the current IPv6 string case behavior even if the default changes: use NetAddr::IP::Lite qw(:upper); The internal representation of all IP objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. The supported operations are described below: =cut # in the off chance that NetAddr::IP::Lite objects are created # and the caller later loads NetAddr::IP and expects to use # those objects, let the AUTOLOAD routine find and redirect # NetAddr::IP::Lite method and subroutine calls to NetAddr::IP. # my $parent = 'NetAddr::IP'; # test function # # input: subroutine name in NetAddr::IP # output: t/f if sub name exists in NetAddr::IP namespace # #sub sub_exists { # my $other = $parent .'::'; # return exists ${$other}{$_[0]}; #} sub DESTROY {}; sub AUTOLOAD { no strict; my ($pkg,$func) = ($AUTOLOAD =~ /(.*)::([^:]+)$/); my $other = $parent .'::'; if ($pkg =~ /^$other/o && exists ${$other}{$func}) { $other .= $func; goto &{$other}; } my @stack = caller(0); if ( $pkg eq ref $_[0] ) { $other = qq|Can't locate object method "$func" via|; } else { $other = qq|Undefined subroutine \&$AUTOLOAD not found in|; } die $other . qq| package "$parent" or "$pkg" (did you forgot to load a module?) at $stack[1] line $stack[2].\n|; } =head2 Overloaded Operators =cut # these really should be packed in Network Long order but since they are # symmetrical, that extra internal processing can be skipped my $_v4zero = pack('L',0); my $_zero = pack('L4',0,0,0,0); my $_ones = ~$_zero; my $_v4mask = pack('L4',0xffffffff,0xffffffff,0xffffffff,0); my $_v4net = ~ $_v4mask; my $_ipv4FFFF = pack('N4',0,0,0xffff,0); sub Zeros() { return $_zero; } sub Ones() { return $_ones; } sub V4mask() { return $_v4mask; } sub V4net() { return $_v4net; } ############################################# # These are the overload methods, placed here # for convenience. ############################################# use overload '+' => \&plus, '-' => \&minus, '++' => \&plusplus, '--' => \&minusminus, "=" => \©, '""' => sub { $_[0]->cidr(); }, 'eq' => sub { my $a = (UNIVERSAL::isa($_[0],__PACKAGE__)) ? $_[0]->cidr : $_[0]; my $b = (UNIVERSAL::isa($_[1],__PACKAGE__)) ? $_[1]->cidr : $_[1]; $a eq $b; }, 'ne' => sub { my $a = (UNIVERSAL::isa($_[0],__PACKAGE__)) ? $_[0]->cidr : $_[0]; my $b = (UNIVERSAL::isa($_[1],__PACKAGE__)) ? $_[1]->cidr : $_[1]; $a ne $b; }, '==' => sub { return 0 unless UNIVERSAL::isa($_[0],__PACKAGE__) && UNIVERSAL::isa($_[1],__PACKAGE__); $_[0]->cidr eq $_[1]->cidr; }, '!=' => sub { return 1 unless UNIVERSAL::isa($_[0],__PACKAGE__) && UNIVERSAL::isa($_[1],__PACKAGE__); $_[0]->cidr ne $_[1]->cidr; }, '>' => sub { return &comp_addr_mask > 0 ? 1 : 0; }, '<' => sub { return &comp_addr_mask < 0 ? 1 : 0; }, '>=' => sub { return &comp_addr_mask < 0 ? 0 : 1; }, '<=' => sub { return &comp_addr_mask > 0 ? 0 : 1; }, '<=>' => \&comp_addr_mask, 'cmp' => \&comp_addr_mask; sub comp_addr_mask { my($c,$rv) = sub128($_[0]->{addr},$_[1]->{addr}); return -1 unless $c; return 1 if hasbits($rv); ($c,$rv) = sub128($_[0]->{mask},$_[1]->{mask}); return -1 unless $c; return hasbits($rv) ? 1 : 0; } #sub comp_addr { # my($c,$rv) = sub128($_[0]->{addr},$_[1]->{addr}); # return -1 unless $c; # return hasbits($rv) ? 1 : 0; #} =pod =over =item B<Assignment (C<=>)> Has been optimized to copy one NetAddr::IP::Lite object to another very quickly. =item B<C<-E<gt>copy()>> The B<assignment (C<=>)> operation is only put in to operation when the copied object is further mutated by another overloaded operation. See L<overload> B<SPECIAL SYMBOLS FOR "use overload"> for details. B<C<-E<gt>copy()>> actually creates a new object when called. =cut sub copy { return _new($_[0],$_[0]->{addr}, $_[0]->{mask}); } =item B<Stringification> An object can be used just as a string. For instance, the following code my $ip = new NetAddr::IP::Lite '192.168.1.123'; print "$ip\n"; Will print the string 192.168.1.123/32. my $ip = new6 NetAddr::IP::Lite '192.168.1.123'; print "$ip\n"; Will print the string 0:0:0:0:0:0:C0A8:17B/128 =item B<Equality> You can test for equality with either C<eq>, C<ne>, C<==> or C<!=>. C<eq>, C<ne> allows the comparison with arbitrary strings as well as NetAddr::IP::Lite objects. The following example: if (NetAddr::IP::Lite->new('127.0.0.1','255.0.0.0') eq '127.0.0.1/8') { print "Yes\n"; } Will print out "Yes". Comparison with C<==> and C<!=> requires both operands to be NetAddr::IP::Lite objects. =item B<Comparison via E<gt>, E<lt>, E<gt>=, E<lt>=, E<lt>=E<gt> and C<cmp>> Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the NUMERIC cidr portion of the masks are compared. This leads to the counterintuitive result that /24 > /16 Comparison should not be done on netaddr objects with different CIDR as this may produce indeterminate - unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing $ip1->masklen <=> $ip2->masklen =item B<Addition of a constant (C<+>)> Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: print NetAddr::IP::Lite->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: print NetAddr::IP::Lite->new('10.0.0.1/24') + 255; outputs 10.0.0.0/24. Returns the the unchanged object when the constant is missing or out of range. 2147483647 <= constant >= -2147483648 =cut sub plus { my $ip = shift; my $const = shift; return $ip unless $const && $const < 2147483648 && $const > -2147483649; my $a = $ip->{addr}; my $m = $ip->{mask}; my $lo = $a & ~$m; my $hi = $a & $m; my $new = ((addconst($lo,$const))[1] & ~$m) | $hi; return _new($ip,$new,$m); } =item B<Subtraction of a constant (C<->)> The complement of the addition of a constant. =item B<Difference (C<->)> Returns the difference between the address parts of two NetAddr::IP::Lite objects address parts as a 32 bit signed number. Returns B<undef> if the difference is out of range. =cut my $_smsk = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0x80000000); sub minus { my $ip = shift; my $arg = shift; unless (ref $arg) { return plus($ip, -$arg); } my($carry,$dif) = sub128($ip->{addr},$arg->{addr}); if ($carry) { # value is positive return undef if hasbits($dif & $_smsk); # all sign bits should be 0's return (unpack('L3N',$dif))[3]; } else { return undef if hasbits(($dif & $_smsk) ^ $_smsk); # sign is 1's return (unpack('L3N',$dif))[3] - 4294967296; } } # Auto-increment an object =item B<Auto-increment> Auto-incrementing a NetAddr::IP::Lite object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. =cut sub plusplus { my $ip = shift; my $a = $ip->{addr}; my $m = $ip->{mask}; my $lo = $a & ~ $m; my $hi = $a & $m; $ip->{addr} = ((addconst($lo,1))[1] & ~ $m) | $hi; return $ip; } =item B<Auto-decrement> Auto-decrementing a NetAddr::IP::Lite object performs exactly the opposite of auto-incrementing it, as you would expect. =cut sub minusminus { my $ip = shift; my $a = $ip->{addr}; my $m = $ip->{mask}; my $lo = $a & ~$m; my $hi = $a & $m; $ip->{addr} = ((addconst($lo,-1))[1] & ~$m) | $hi; return $ip; } ############################################# # End of the overload methods. ############################################# # Preloaded methods go here. # This is a variant to ->new() that # creates and blesses a new object # without the fancy parsing of # IP formats and shorthands. # return a blessed IP object without parsing # input: prototype, naddr, nmask # returns: blessed IP object # sub _new ($$$) { my $proto = shift; my $class = ref($proto) || die "reference required"; $proto = $proto->{isv6}; my $self = { addr => $_[0], mask => $_[1], isv6 => $proto, }; return bless $self, $class; } =pod =back =head2 Methods =over =item C<-E<gt>new([$addr, [ $mask|IPv6 ]])> =item C<-E<gt>new6([$addr, [ $mask]])> =item C<-E<gt>new6FFFF([$addr, [ $mask]])> =item C<-E<gt>new_no([$addr, [ $mask]])> =item C<-E<gt>new_from_aton($netaddr)> =item new_cis and new_cis6 are DEPRECATED =item C<-E<gt>new_cis("$addr $mask)> =item C<-E<gt>new_cis6("$addr $mask)> The first three methods create a new address with the supplied address in C<$addr> and an optional netmask C<$mask>, which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. new6FFFF specifically returns an IPv4 address in IPv6 format according to RFC4291 new6 ::xxxx:xxxx new6FFFF ::FFFF:xxxx:xxxx The third method C<new_no> is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. B<new_from_aton> takes a packed IPv4 address and assumes a /32 mask. This function replaces the DEPRECATED :aton functionality which is fundamentally broken. The last two methods B<new_cis> and B<new_cis6> differ from B<new> and B<new6> only in that they except the common Cisco address notation for address/mask pairs with a B<space> as a separator instead of a slash (/) These methods are DEPRECATED because the functionality is now included in the other "new" methods i.e. ->new_cis('1.2.3.0 24') or ->new_cis6('::1.2.3.0 120') C<-E<gt>new6> and C<-E<gt>new_cis6> mark the address as being in ipV6 address space even if the format would suggest otherwise. i.e. ->new6('1.2.3.4') will result in ::102:304 addresses submitted to ->new in ipV6 notation will remain in that notation permanently. i.e. ->new('::1.2.3.4') will result in ::102:304 whereas new('1.2.3.4') would print out as 1.2.3.4 See "STRINGIFICATION" below. C<$addr> can be almost anything that can be resolved to an IP address in all the notations I have seen over time. It can optionally contain the mask in CIDR notation. If the OPTIONAL perl module Socket6 is available in the local library it will autoload and ipV6 host6 names will be resolved as well as ipV4 hostnames. B<prefix> notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. Addresses in the same format returned by C<inet_aton> or C<gethostbyname> can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. ###### DEPRECATED, will be remove in version 5 ############ To accept addresses in that format, invoke the module as in use NetAddr::IP::Lite ':aton' ###### USE new_from_aton instead ########################## If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' C<$addr> can be any of the following and possibly more... n.n n.n/mm n.n mm n.n.n n.n.n/mm n.n.n mm n.n.n.n n.n.n.n/mm 32 bit cidr notation n.n.n.n mm n.n.n.n/m.m.m.m n.n.n.n m.m.m.m loopback, localhost, broadcast, any, default x.x.x.x/host 0xABCDEF, 0b111111000101011110, (or a bcd number) a netaddr as returned by 'inet_aton' Any RFC1884 notation ::n.n.n.n ::n.n.n.n/mmm 128 bit cidr notation ::n.n.n.n/::m.m.m.m ::x:x ::x:x/mmm x:x:x:x:x:x:x:x x:x:x:x:x:x:x:x/mmm x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation loopback, localhost, unspecified, any, default ::x:x/host 0xABCDEF, 0b111111000101011110 within the limits of perl's number resolution 123456789012 a 'big' bcd number (bigger than perl likes) and Math::BigInt A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: use NetAddr::IP::Lite ':nofqdn'; If called with no arguments, 'default' is assumed. If called with and empty string as the argument, 'undef' is returned; =cut my $lbmask = inet_aton('255.0.0.0'); my $_p4broad = inet_any2n('255.255.255.255'); my $_p4loop = inet_any2n('127.0.0.1'); my $_p4mloop = inet_aton('255.0.0.0'); $_p4mloop = mask4to6($_p4mloop); my $_p6loop = inet_any2n('::1'); my %fip4 = ( default => Zeros, any => Zeros, broadcast => $_p4broad, loopback => $_p4loop, unspecified => undef, ); my %fip4m = ( default => Zeros, any => Zeros, broadcast => Ones, loopback => $_p4mloop, unspecified => undef, # not applicable for ipV4 host => Ones, ); my %fip6 = ( default => Zeros, any => Zeros, broadcast => undef, # not applicable for ipV6 loopback => $_p6loop, unspecified => Zeros, ); my %fip6m = ( default => Zeros, any => Zeros, broadcast => undef, # not applicable for ipV6 loopback => Ones, unspecified => Ones, host => Ones, ); my $ff000000 = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0xFF000000); my $ffff0000 = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0xFFFF0000); my $ffffff00 = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0xFFFFFF00); sub _obits ($$) { my($lo,$hi) = @_; return 0xFF if $lo == $hi; return (~ ($hi ^ $lo)) & 0xFF; } sub new_no($;$$) { unshift @_, -1; goto &_xnew; } sub new($;$$) { unshift @_, 0; goto &_xnew; } sub new_from_aton($$) { my $proto = shift; my $class = ref $proto || $proto || __PACKAGE__; my $ip = shift; return undef unless defined $ip; my $addrlen = length($ip); return undef unless $addrlen == 4; my $self = { addr => ipv4to6($ip), mask => &Ones, isv6 => 0, }; return bless $self, $class; } sub new6($;$$) { unshift @_, 1; goto &_xnew; } sub new6FFFF($;$$) { my $ip = _xnew(1,@_); $ip->{addr} |= $_ipv4FFFF; return $ip; } sub new_cis($;$$) { my @in = @_; if ( $in[1] && $in[1] =~ m!^(.+)\s+(.+)$! ) { $in[1] = $1 .'/'. $2; } @_ = (0,@in); goto &_xnew; } sub new_cis6($;$$) { my @in = @_; if ( $in[1] && $in[1] =~ m!^(.+)\s+(.+)$! ) { $in[1] = $1 .'/'. $2; } @_ = (1,@in); goto &_xnew; } sub _no_octal { # $_[0] =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; # return sprintf("%d.%d.%d.%d",$1,$2,$3,$4); (my $rv = $_[0]) =~ s#\b0*([1-9]\d*/?|0/?)#$1#g; # suppress leading zeros $rv; } sub _xnew($$;$$) { my $noctal = 0; my $isV6 = shift; if ($isV6 < 0) { # flag for no octal? $isV6 = 0; $noctal = 1; } my $proto = shift; my $class = ref $proto || $proto || __PACKAGE__; my $ip = shift; if ($ip && $noctal && $ip !~ m|(?:[^\s0123456789/. -])|) { # octal suppression required if not an IPv4 address $ip = _no_octal($ip); } # fix for bug #75976 return undef if defined $ip && $ip eq ''; $ip = 'default' unless defined $ip; $ip = _retMBIstring($ip) # treat as big bcd string if ref $ip && ref $ip eq 'Math::BigInt'; # can /CIDR notation my $hasmask = 1; my($mask,$tmp); # IP to lower case AFTER ref test for Math::BigInt. 'lc' strips blessing $ip = lc $ip; while (1) { # process IP's with no CIDR or that have the CIDR as part of the IP argument string unless (@_) { # if ($ip =~ m!^(.+)/(.+)$!) { if ($ip !~ /\D/) { # binary number notation $ip = bcd2bin($ip); $mask = Ones; last; } elsif ($ip =~ m!^([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)$! || $ip =~ m!^[\[]{1}([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)[\]]{1}$!) { $ip = $1; $mask = $2; } elsif (grep($ip eq $_,(qw(default any broadcast loopback unspecified)))) { $isV6 = 1 if $ip eq 'unspecified'; if ($isV6) { $mask = $fip6m{$ip}; return undef unless defined ($ip = $fip6{$ip}); } else { $mask = $fip4m{$ip}; return undef unless defined ($ip = $fip4{$ip}); } last; } } # process "ipv6" token and default IP's elsif (defined $_[0]) { if ($_[0] =~ /ipv6/i || $isV6) { if (grep($ip eq $_,(qw(default any loopback unspecified)))) { $mask = $fip6m{$ip}; $ip = $fip6{$ip}; last; } else { return undef unless $isV6; # add for ipv6 notation "12345, 1" } # $mask = lc $_[0]; # } else { # $mask = lc $_[0]; } # extract mask $mask = $_[0]; } ### ### process mask unless (defined $mask) { $hasmask = 0; $mask = 'host'; } # two kinds of IP's can turn on the isV6 flag # 1) big digits that are over the IPv4 boundry # 2) IPv6 IP syntax # # check these conditions and set isV6 as appropriate # my $try; $isV6 = 1 if # check big bcd and IPv6 rfc1884 ( $ip !~ /\D/ && # ip is all decimal (length($ip) > 3 || $ip > 255) && # exclude a single digit in the range of zero to 255, could be funny IPv4 ($try = bcd2bin($ip)) && ! isIPv4($try)) || # precedence so $try is not corrupted (index($ip,':') >= 0 && ($try = ipv6_aton($ip))); # fails if not an rfc1884 address # if either of the above conditions is true, $try contains the NetAddr 128 bit address # checkfor Math::BigInt mask $mask = _retMBIstring($mask) # treat as big bcd string if ref $mask && ref $mask eq 'Math::BigInt'; # MASK to lower case AFTER ref test for Math::BigInt, 'lc' strips blessing $mask = lc $mask; if ($mask !~ /\D/) { # bcd or CIDR notation my $isCIDR = length($mask) < 4 && $mask < 129; if ($isV6) { if ($isCIDR) { my($dq1,$dq2,$dq3,$dq4); if ($ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ && do {$dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1; } && $dq1 >= 0 && $dq1 < 256 && $dq2 >= 0 && $dq2 < 256 && $dq3 >= 0 && $dq3 < 256 && $dq4 >= 0 && $dq4 < 256 ) { # corner condition of IPv4 with isV6 $ip = join('.',$dq1,$dq2,$dq3,$dq4); $try = ipv4to6(inet_aton($ip)); if ($mask < 32) { $mask = shiftleft(Ones,32 -$mask); } elsif ($mask == 32) { $mask = Ones; } else { return undef; # undoubtably an error } } elsif ($mask < 128) { $mask = shiftleft(Ones,128 -$mask); # small cidr } else { $mask = Ones(); } } else { $mask = bcd2bin($mask); } } elsif ($isCIDR && $mask < 33) { # is V4 # if ($ip && $noctal && $ip !~ m|(?:[^\s0123456789.])|) { # octal suppression required if not an IPv4 address # $mask = _no_octal($mask); # } if ($mask < 32) { $mask = shiftleft(Ones,32 -$mask); } elsif ( $mask == 32) { $mask = Ones; } else { $mask = bcd2bin($mask); $mask |= $_v4mask; # v4 always } } else { # also V4 $mask = bcd2bin($mask); $mask |= $_v4mask; } if ($try) { # is a big number $ip = $try; last; } } elsif ($mask =~ m/^\d+\.\d+\.\d+\.\d+$/) { # ipv4 form of mask $mask = _no_octal($mask) if $noctal; # filter for octal return undef unless defined ($mask = inet_aton($mask)); $mask = mask4to6($mask); } elsif (grep($mask eq $_,qw(default any broadcast loopback unspecified host))) { if (index($ip,':') < 0 && ! $isV6) { return undef unless defined ($mask = $fip4m{$mask}); } else { return undef unless defined ($mask = $fip6m{$mask}); } } else { return undef unless defined ($mask = ipv6_aton($mask)); # try ipv6 form of mask } # process remaining IP's if (index($ip,':') < 0) { # ipv4 address if ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) { ; # the common case } elsif (grep($ip eq $_,(qw(default any broadcast loopback)))) { return undef unless defined ($ip = $fip4{$ip}); last; } elsif ($ip =~ m/^(\d+)\.(\d+)$/) { $ip = ($hasmask) ? "${1}.${2}.0.0" : "${1}.0.0.${2}"; } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)$/) { $ip = ($hasmask) ? "${1}.${2}.${3}.0" : "${1}.${2}.0.${3}"; } elsif ($ip =~ /^(\d+)$/ && $hasmask && $1 >= 0 and $1 < 256) { # pure numeric $ip = sprintf("%d.0.0.0",$1); } # elsif ($ip =~ /^\d+$/ && !$hasmask) { # a big integer elsif ($ip =~ /^\d+$/ ) { # a big integer $ip = bcd2bin($ip); last; } # these next three might be broken??? but they have been in the code a long time and no one has complained elsif ($ip =~ /^0[xb]\d+$/ && $hasmask && (($tmp = eval "$ip") || 1) && $tmp >= 0 && $tmp < 256) { $ip = sprintf("%d.0.0.0",$tmp); } elsif ($ip =~ /^-?\d+$/) { $ip += 2 ** 32 if $ip < 0; $ip = pack('L3N',0,0,0,$ip); last; } elsif ($ip =~ /^-?0[xb]\d+$/) { $ip = eval "$ip"; $ip = pack('L3N',0,0,0,$ip); last; } # notations below include an implicit mask specification elsif ($ip =~ m/^(\d+)\.$/) { $ip = "${1}.0.0.0"; $mask = $ff000000; } elsif ($ip =~ m/^(\d+)\.(\d+)-(\d+)\.?$/ && $2 <= $3 && $3 < 256) { $ip = "${1}.${2}.0.0"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,255,_obits($2,$3),0,0); } elsif ($ip =~ m/^(\d+)-(\d+)\.?$/ and $1 <= $2 && $2 < 256) { $ip = "${1}.0.0.0"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,_obits($1,$2),0,0,0) } elsif ($ip =~ m/^(\d+)\.(\d+)\.$/) { $ip = "${1}.${2}.0.0"; $mask = $ffff0000; } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)-(\d+)\.?$/ && $3 <= $4 && $4 < 256) { $ip = "${1}.${2}.${3}.0"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,255,255,_obits($3,$4),0); } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.$/) { $ip = "${1}.${2}.${3}.0"; $mask = $ffffff00; } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)-(\d+)$/ && $4 <= $5 && $5 < 256) { $ip = "${1}.${2}.${3}.${4}"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,255,255,255,_obits($4,$5)); } elsif ($ip =~ m/^(\d+\.\d+\.\d+\.\d+) \s*-\s*(\d+\.\d+\.\d+\.\d+)$/x) { # if ($noctal) { # return undef unless ($ip = inet_aton(_no_octal($1))); # return undef unless ($tmp = inet_aton(_no_octal($2))); # } else { return undef unless ($ip = inet_aton($1)); return undef unless ($tmp = inet_aton($2)); # } # check for left side greater than right side # save numeric difference in $mask return undef if ($tmp = unpack('N',$tmp) - unpack('N',$ip)) < 0; $ip = ipv4to6($ip); $tmp = pack('L3N',0,0,0,$tmp); $mask = ~$tmp; return undef if notcontiguous($mask); # check for non-aligned left side return undef if hasbits($ip & $tmp); last; } # check for resolvable IPv4 hosts elsif (! $NoFQDN && $ip !~ /[^a-zA-Z0-9\._-]/ && ($tmp = gethostbyname(fillIPv4($ip))) && $tmp ne $_v4zero && $tmp ne $_zero ) { $ip = ipv4to6($tmp); last; } # check for resolvable IPv6 hosts elsif (! $NoFQDN && $ip !~ /[^a-zA-Z0-9\._-]/ && havegethostbyname2() && ($tmp = naip_gethostbyname($ip))) { $ip = $tmp; $isV6 = 1; last; } elsif ($Accept_Binary_IP && ! $hasmask) { if (length($ip) == 4) { $ip = ipv4to6($ip); } elsif (length($ip) == 16) { $isV6 = 1; } else { return undef; } last; } else { return undef; } return undef unless defined ($ip = inet_aton($ip)); $ip = ipv4to6($ip); last; } ########## continuing else { # ipv6 address $isV6 = 1; $ip = $1 if $ip =~ /\[([^\]]+)\]/; # transform URI notation if (defined ($tmp = ipv6_aton($ip))) { $ip = $tmp; last; } last if grep($ip eq $_,(qw(default any loopback unspecified))) && defined ($ip = $fip6{$ip}); return undef; } } # end while (1) return undef if notcontiguous($mask); # invalid if not contiguous my $self = { addr => $ip, mask => $mask, isv6 => $isV6, }; return bless $self, $class; } =item C<-E<gt>broadcast()> Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. =cut sub broadcast ($) { my $ip = _new($_[0],$_[0]->{addr} | ~$_[0]->{mask},$_[0]->{mask}); $ip->{addr} &= V4net unless $ip->{isv6}; return $ip; } =item C<-E<gt>network()> Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. =cut sub network ($) { return _new($_[0],$_[0]->{addr} & $_[0]->{mask},$_[0]->{mask}); } =item C<-E<gt>addr()> Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP::Lite object to other components that expect an IP address. If the object is an ipV6 address or was created using ->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. =cut sub addr ($) { return ($_[0]->{isv6}) ? ipv6_n2x($_[0]->{addr}) : inet_n2dx($_[0]->{addr}); } =item C<-E<gt>mask()> Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. =cut sub mask ($) { return ipv6_n2x($_[0]->{mask}) if $_[0]->{isv6}; my $mask = isIPv4($_[0]->{addr}) ? $_[0]->{mask} & V4net : $_[0]->{mask}; return inet_n2dx($mask); } =item C<-E<gt>masklen()> Returns a scalar the number of one bits in the mask. =cut sub masklen ($) { my $len = (notcontiguous($_[0]->{mask}))[1]; return 0 unless $len; return $len if $_[0]->{isv6}; return isIPv4($_[0]->{addr}) ? $len -96 : $len; } =item C<-E<gt>bits()> Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. =cut sub bits { return $_[0]->{isv6} ? 128 : 32; } =item C<-E<gt>version()> Returns the version of the address or subnet. Currently this can be either 4 or 6. =cut sub version { my $self = shift; return $self->{isv6} ? 6 : 4; } =item C<-E<gt>cidr()> Returns a scalar with the address and mask in CIDR notation. A NetAddr::IP::Lite object I<stringifies> to the result of this function. (see comments about ->new6() and ->addr() for output formats) =cut sub cidr ($) { return $_[0]->addr . '/' . $_[0]->masklen; } =item C<-E<gt>aton()> Returns the address part of the NetAddr::IP::Lite object in the same format as the C<inet_aton()> or C<ipv6_aton> function respectively. If the object was created using ->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. =cut sub aton { return $_[0]->{addr} if $_[0]->{isv6}; return isIPv4($_[0]->{addr}) ? ipv6to4($_[0]->{addr}) : $_[0]->{addr}; } =item C<-E<gt>range()> Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. =cut sub range ($) { return $_[0]->network->addr . ' - ' . $_[0]->broadcast->addr; } =item C<-E<gt>numeric()> When called in a scalar context, will return a numeric representation of the address part of the IP address. When called in an array context, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. This method is essential for serializing the representation of a subnet. =cut sub numeric ($) { if (wantarray) { if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { return ( sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))), sprintf("%u",unpack('N',ipv6to4($_[0]->{mask})))); } else { return ( bin2bcd($_[0]->{addr}), bin2bcd($_[0]->{mask})); } } return (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) ? sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))) : bin2bcd($_[0]->{addr}); } =item C<-E<gt>bigint()> When called in a scalar context, will return a Math::BigInt representation of the address part of the IP address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the Math::BigInt representation of the netmask. =cut my $biloaded; my $bi2strng; my $no_mbi_emu = 1; # function to force into test development mode # sub _force_bi_emu { undef $biloaded; undef $bi2strng; $no_mbi_emu = 0; print STDERR "\n\n\tWARNING: test development mode, this \tmessage SHOULD NEVER BE SEEN IN PRODUCTION! set my \$no_mbi_emu = 1 in t/bigint.t to remove this warning\n\n"; } # function to stringify various flavors of Math::BigInt objects # tests to see if the object is a hash or a signed scalar sub _bi_stfy { "$_[0]" =~ /(\d+)/; # stringify and remove '+' if present $1; } sub _fakebi2strg { ${$_[0]} =~ /(\d+)/; $1; } # fake new from bi string Math::BigInt 0.01 # sub _bi_fake { bless \('+'. $_[1]), 'Math::BigInt'; } # as of this writing there are three known flavors of Math::BigInt # v0.01 MBI::new returns a scalar ref # v1.?? - 1.69 CALC::_new takes a reference to a scalar, returns an array, MBI returns a hash ref # v1.70 and up CALC::_new takes a scalar, returns and array, MBI returns a hash ref sub _loadMBI { # load Math::BigInt on demand if (eval {$no_mbi_emu && require Math::BigInt}) { # any version should work, three known import Math::BigInt; $biloaded = \&Math::BigInt::new; $bi2strng = \&_bi_stfy; } else { $biloaded = \&_bi_fake; $bi2strng = \&_fakebi2strg; } } sub _retMBIstring { _loadMBI unless $biloaded; # load Math::BigInt on demand $bi2strng->(@_); } sub _biRef { _loadMBI unless $biloaded; # load Math::BigInt on demand $biloaded->('Math::BigInt',$_[0]); } sub bigint($) { my($addr,$mask); if (wantarray) { if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { $addr = $_[0]->{addr} ? sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))) : 0; $mask = $_[0]->{mask} ? sprintf("%u",unpack('N',ipv6to4($_[0]->{mask}))) : 0; } else { $addr = $_[0]->{addr} ? bin2bcd($_[0]->{addr}) : 0; $mask = $_[0]->{mask} ? bin2bcd($_[0]->{mask}) : 0; } (_biRef($addr),_biRef($mask)); } else { # not wantarray if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { $addr = $_[0]->{addr} ? sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))) : 0; } else { $addr = $_[0]->{addr} ? bin2bcd($_[0]->{addr}) : 0; } _biRef($addr); } } =item C<$me-E<gt>contains($other)> Returns true when C<$me> completely contains C<$other>. False is returned otherwise and C<undef> is returned if C<$me> and C<$other> are not both C<NetAddr::IP::Lite> objects. =cut sub contains ($$) { return within(@_[1,0]); } =item C<$me-E<gt>within($other)> The complement of C<-E<gt>contains()>. Returns true when C<$me> is completely contained within C<$other>, undef if C<$me> and C<$other> are not both C<NetAddr::IP::Lite> objects. =cut sub within ($$) { return 1 unless hasbits($_[1]->{mask}); # 0x0 contains everything my $netme = $_[0]->{addr} & $_[0]->{mask}; my $brdme = $_[0]->{addr} | ~ $_[0]->{mask}; my $neto = $_[1]->{addr} & $_[1]->{mask}; my $brdo = $_[1]->{addr} | ~ $_[1]->{mask}; return (sub128($netme,$neto) && sub128($brdo,$brdme)) ? 1 : 0; } =item C-E<gt>is_rfc1918()> Returns true when C<$me> is an RFC 1918 address. 10.0.0.0 - 10.255.255.255 (10/8 prefix) 172.16.0.0 - 172.31.255.255 (172.16/12 prefix) 192.168.0.0 - 192.168.255.255 (192.168/16 prefix) =cut my $ip_10 = NetAddr::IP::Lite->new('10.0.0.0/8'); my $ip_10n = $ip_10->{addr}; # already the right value my $ip_10b = $ip_10n | ~ $ip_10->{mask}; my $ip_172 = NetAddr::IP::Lite->new('172.16.0.0/12'); my $ip_172n = $ip_172->{addr}; # already the right value my $ip_172b = $ip_172n | ~ $ip_172->{mask}; my $ip_192 = NetAddr::IP::Lite->new('192.168.0.0/16'); my $ip_192n = $ip_192->{addr}; # already the right value my $ip_192b = $ip_192n | ~ $ip_192->{mask}; sub is_rfc1918 ($) { my $netme = $_[0]->{addr} & $_[0]->{mask}; my $brdme = $_[0]->{addr} | ~ $_[0]->{mask}; return 1 if (sub128($netme,$ip_10n) && sub128($ip_10b,$brdme)); return 1 if (sub128($netme,$ip_192n) && sub128($ip_192b,$brdme)); return (sub128($netme,$ip_172n) && sub128($ip_172b,$brdme)) ? 1 : 0; } =item C<-E<gt>is_local()> Returns true when C<$me> is a local network address. i.e. ipV4 127.0.0.0 - 127.255.255.255 or ipV6 === ::1 =cut my $_lclhost6 = NetAddr::IP::Lite->new('::1'); my $_lclnet = NetAddr::IP::Lite->new('127/8'); sub is_local ($) { return ($_[0]->{isv6}) ? $_[0] == $_lclhost6 : $_[0]->within($_lclnet); } =item C<-E<gt>first()> Returns a new object representing the first usable IP address within the subnet (ie, the first host address). =cut my $_cidr127 = pack('N4',0xffffffff,0xffffffff,0xffffffff,0xfffffffe); sub first ($) { if (hasbits($_[0]->{mask} ^ $_cidr127)) { return $_[0]->network + 1; } else { return $_[0]->network; } # return $_[0]->network + 1; } =item C<-E<gt>last()> Returns a new object representing the last usable IP address within the subnet (ie, one less than the broadcast address). =cut sub last ($) { if (hasbits($_[0]->{mask} ^ $_cidr127)) { return $_[0]->broadcast - 1; } else { return $_[0]->broadcast; } # return $_[0]->broadcast - 1; } =item C<-E<gt>nth($index)> Returns a new object representing the I<n>-th usable IP address within the subnet (ie, the I<n>-th host address). If no address is available (for example, when the network is too small for C<$index> hosts), C<undef> is returned. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements C<-E<gt>nth($index)> and C<-E<gt>num()> exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); old behavior: NetAddr::IP->new('10/32')->nth(0) == undef NetAddr::IP->new('10/32')->nth(1) == undef NetAddr::IP->new('10/31')->nth(0) == undef NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == undef NetAddr::IP->new('10/30')->nth(1) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(2) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(3) == 10.0.0.3/30 Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. new behavior: NetAddr::IP->new('10/32')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10.1/32'->nth(0) == 10.0.0.1/32 NetAddr::IP->new('10/31')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/32 NetAddr::IP->new('10/30')->nth(0) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(1) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(2) == undef Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. =cut sub nth ($$) { my $self = shift; my $count = shift; my $slash31 = ! hasbits($self->{mask} ^ $_cidr127); if ($Old_nth) { return undef if $slash31 && $count != 1; return undef if ($count < 1 or $count > $self->num ()); } elsif ($slash31) { return undef if ($count && $count != 1); # only index 0, 1 allowed for /31 } else { ++$count; return undef if ($count < 1 or $count > $self->num ()); } return $self->network + $count; } =item C<-E<gt>num()> As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net B<num> value of 2 instead of 0 (zero) for point-to-point networks. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable IP addresses within the subnet, not counting the broadcast or network address. Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of IP addresses not counting the broadcast address. (one greater than the new behavior) To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); WARNING: NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are TEXT strings and perl can treat them as integers for numeric calculations. Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. =cut sub num ($) { if ($Old_nth) { my @net = unpack('L3N',$_[0]->{mask} ^ Ones); # number of ip's less broadcast return 0xfffffffe if $net[0] || $net[1] || $net[2]; # 2**32 -1 return $net[3] if $net[3]; } else { # returns 1 for /32 /128, 2 for /31 /127 else n-2 up to 2**32 (undef, my $net) = addconst($_[0]->{mask},1); return 1 unless hasbits($net); # ipV4/32 or ipV6/128 $net = $net ^ Ones; return 2 unless hasbits($net); # ipV4/31 or ipV6/127 $net &= $_v4net unless $_[0]->{isv6}; return bin2bcd($net); } } # deprecated #sub num ($) { # my @net = unpack('L3N',$_[0]->{mask} ^ Ones); # if ($Old_nth) { ## number of ip's less broadcast # return 0xfffffffe if $net[0] || $net[1] || $net[2]; # 2**32 -1 # return $net[3] if $net[3]; # } else { # returns 1 for /32 /128, 0 for /31 /127 else n-2 up to 2**32 ## number of usable IP's === number of ip's less broadcast & network addys # return 0xfffffffd if $net[0] || $net[1] || $net[2]; # 2**32 -2 # return 1 unless $net[3]; # $net[3]--; # } # return $net[3]; #} =pod =back =cut sub import { if (grep { $_ eq ':aton' } @_) { $Accept_Binary_IP = 1; @_ = grep { $_ ne ':aton' } @_; } if (grep { $_ eq ':old_nth' } @_) { $Old_nth = 1; @_ = grep { $_ ne ':old_nth' } @_; } if (grep { $_ eq ':lower' } @_) { NetAddr::IP::Util::lower(); @_ = grep { $_ ne ':lower' } @_; } if (grep { $_ eq ':upper' } @_) { NetAddr::IP::Util::upper(); @_ = grep { $_ ne ':upper' } @_; } if (grep { $_ eq ':nofqdn' } @_) { $NoFQDN = 1; @_ = grep { $_ ne ':nofqdn' } @_; } NetAddr::IP::Lite->export_to_level(1, @_); } =head1 EXPORT_OK Zeros Ones V4mask V4net :aton DEPRECATED :old_nth :upper :lower :nofqdn =head1 AUTHORS Luis E. Muñoz E<lt>luismunoz@cpan.orgE<gt>, Michael Robinton E<lt>michael@bizsystems.comE<gt> =head1 WARRANTY This software comes with the same warranty as perl itself (ie, none), so by using it you accept any and all the liability. =head1 COPYRIGHT This software is (c) Luis E. Muñoz, 1999 - 2005 and (c) Michael Robinton, 2006 - 2014. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 SEE ALSO NetAddr::IP(3), NetAddr::IP::Util(3), NetAddr::IP::InetBase(3) =cut 1; Lite/MANIFEST.SKIP 0000644 00000000431 15043770025 0007340 0 ustar 00 ^Build$ ^_build/ ^blib/ ^blibdirs Makefile$ Makefile\.[a-z]+$ pm_to_blib CVS/.* \.cvs ,v$ ^tmp/ \.old$ \.bak$ \.tmp$ \.xsc$ ~$ ^# \.shar$ \.tar$ \.tgz$ \.tar\.gz$ \.zip$ _uu$ Util_IS\.pm$ Util\.(bs|[co])$ localStuff\.h$ config\.log$ config\.h$ config\.status localperl\.h META.yml Lite/Makefile 0000644 00000061015 15043770025 0007107 0 ustar 00 # This Makefile is for the NetAddr::IP::Lite extension to perl. # # It was generated automatically by MakeMaker version # 7.60 (Revision: 76000) from the contents of # Makefile.PL. Don't edit this file, edit Makefile.PL instead. # # ANY CHANGES MADE HERE WILL BE LOST! # # MakeMaker ARGV: () # # MakeMaker Parameters: # BUILD_REQUIRES => { } # CONFIGURE_REQUIRES => { } # NAME => q[NetAddr::IP::Lite] # PREREQ_PM => { Test::More=>q[0] } # TEST_REQUIRES => { } # VERSION_FROM => q[Lite.pm] # clean => { FILES=>q[*~ tmp* META.yml] } # dist => { COMPRESS=>q[gzip], SUFFIX=>q[gz] } # --- MakeMaker post_initialize section: # --- MakeMaker const_config section: # These definitions are from config.sh (via /usr/lib64/perl5/Config.pm). # They may have been overridden via Makefile.PL or on the command line. AR = ar CC = gcc CCCDLFLAGS = -fPIC CCDLFLAGS = -Wl,--enable-new-dtags -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 DLEXT = so DLSRC = dl_dlopen.xs EXE_EXT = FULL_AR = /usr/bin/ar LD = gcc LDDLFLAGS = -lpthread -shared -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -L/usr/local/lib -fstack-protector-strong LDFLAGS = -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fstack-protector-strong -L/usr/local/lib LIBC = /lib/../lib64/libc.so.6 LIB_EXT = .a OBJ_EXT = .o OSNAME = linux OSVERS = 4.18.0-513.18.1.el8_9.x86_64 RANLIB = : SITELIBEXP = /usr/local/share/perl5/5.32 SITEARCHEXP = /usr/local/lib64/perl5/5.32 SO = so VENDORARCHEXP = /usr/lib64/perl5/vendor_perl VENDORLIBEXP = /usr/share/perl5/vendor_perl # --- MakeMaker constants section: AR_STATIC_ARGS = cr DIRFILESEP = / DFSEP = $(DIRFILESEP) NAME = NetAddr::IP::Lite NAME_SYM = NetAddr_IP_Lite VERSION = 1.57 VERSION_MACRO = VERSION VERSION_SYM = 1_57 DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" XS_VERSION = 1.57 XS_VERSION_MACRO = XS_VERSION XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" INST_ARCHLIB = ../blib/arch INST_SCRIPT = ../blib/script INST_BIN = ../blib/bin INST_LIB = ../blib/lib INST_MAN1DIR = ../blib/man1 INST_MAN3DIR = ../blib/man3 MAN1EXT = 1 MAN3EXT = 3pm MAN1SECTION = 1 MAN3SECTION = 3 INSTALLDIRS = site DESTDIR = PREFIX = $(SITEPREFIX) PERLPREFIX = /usr SITEPREFIX = /usr/local VENDORPREFIX = /usr INSTALLPRIVLIB = /usr/share/perl5 DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) INSTALLSITELIB = /usr/local/share/perl5/5.32 DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) INSTALLVENDORLIB = /usr/share/perl5/vendor_perl DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) INSTALLARCHLIB = /usr/lib64/perl5 DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) INSTALLSITEARCH = /usr/local/lib64/perl5/5.32 DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) INSTALLVENDORARCH = /usr/lib64/perl5/vendor_perl DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) INSTALLBIN = /usr/bin DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) INSTALLSITEBIN = /usr/local/bin DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) INSTALLVENDORBIN = /usr/bin DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) INSTALLSCRIPT = /usr/bin DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) INSTALLSITESCRIPT = /usr/local/bin DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT) INSTALLVENDORSCRIPT = /usr/bin DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT) INSTALLMAN1DIR = /usr/share/man/man1 DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) INSTALLSITEMAN1DIR = /usr/local/share/man/man1 DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) INSTALLVENDORMAN1DIR = /usr/share/man/man1 DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) INSTALLMAN3DIR = /usr/share/man/man3 DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) INSTALLSITEMAN3DIR = /usr/local/share/man/man3 DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) INSTALLVENDORMAN3DIR = /usr/share/man/man3 DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) PERL_LIB = /usr/share/perl5 PERL_ARCHLIB = /usr/lib64/perl5 PERL_ARCHLIBDEP = /usr/lib64/perl5 LIBPERL_A = libperl.a FIRST_MAKEFILE = Makefile MAKEFILE_OLD = Makefile.old MAKE_APERL_FILE = Makefile.aperl PERLMAINCC = $(CC) PERL_INC = /usr/lib64/perl5/CORE PERL_INCDEP = /usr/lib64/perl5/CORE PERL = "/usr/bin/perl" FULLPERL = "/usr/bin/perl" ABSPERL = $(PERL) PERLRUN = $(PERL) FULLPERLRUN = $(FULLPERL) ABSPERLRUN = $(ABSPERL) PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" PERL_CORE = 0 PERM_DIR = 755 PERM_RW = 644 PERM_RWX = 755 MAKEMAKER = /usr/share/perl5/vendor_perl/ExtUtils/MakeMaker.pm MM_VERSION = 7.60 MM_REVISION = 76000 # FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) # DLBASE = Basename part of dynamic library. May be just equal BASEEXT. MAKE = make FULLEXT = NetAddr/IP/Lite BASEEXT = Lite PARENT_NAME = NetAddr::IP DLBASE = $(BASEEXT) VERSION_FROM = Lite.pm OBJECT = LDFROM = $(OBJECT) LINKTYPE = dynamic BOOTDEP = # Handy lists of source code files: XS_FILES = C_FILES = O_FILES = H_FILES = MAN1PODS = MAN3PODS = Lite.pm # Where is the Config information that we are using/depend on CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_INCDEP)$(DFSEP)config.h # Where to build things INST_LIBDIR = $(INST_LIB)/NetAddr/IP INST_ARCHLIBDIR = $(INST_ARCHLIB)/NetAddr/IP INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) INST_STATIC = INST_DYNAMIC = INST_BOOT = # Extra linker info EXPORT_LIST = PERL_ARCHIVE = PERL_ARCHIVEDEP = PERL_ARCHIVE_AFTER = TO_INST_PM = Lite.pm # --- MakeMaker platform_constants section: MM_Unix_VERSION = 7.60 PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc # --- MakeMaker tool_autosplit section: # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' -- # --- MakeMaker tool_xsubpp section: XSUBPPDIR = /usr/share/perl5/vendor_perl/ExtUtils XSUBPP = "$(XSUBPPDIR)$(DFSEP)xsubpp" XSUBPPRUN = $(PERLRUN) $(XSUBPP) XSPROTOARG = XSUBPPDEPS = /usr/share/perl5/ExtUtils/typemap /usr/share/perl5/vendor_perl/ExtUtils$(DFSEP)xsubpp XSUBPPARGS = -typemap '/usr/share/perl5/ExtUtils/typemap' XSUBPP_EXTRA_ARGS = # --- MakeMaker tools_other section: SHELL = /bin/sh CHMOD = chmod CP = cp MV = mv NOOP = $(TRUE) NOECHO = @ RM_F = rm -f RM_RF = rm -rf TEST_F = test -f TOUCH = touch UMASK_NULL = umask 0 DEV_NULL = > /dev/null 2>&1 MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' -- EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' -- FALSE = false TRUE = true ECHO = echo ECHO_N = echo -n UNINST = 0 VERBINST = 0 MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' -- DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' -- UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' -- WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' -- MACROSTART = MACROEND = USEMAKEFILE = -f FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' -- CP_NONEMPTY = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'cp_nonempty' -- # --- MakeMaker makemakerdflt section: makemakerdflt : all $(NOECHO) $(NOOP) # --- MakeMaker dist section skipped. # --- MakeMaker macro section: # --- MakeMaker depend section: # --- MakeMaker cflags section: CCFLAGS = -D_REENTRANT -D_GNU_SOURCE -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 OPTIMIZE = -g PERLTYPE = MPOLLUTE = # --- MakeMaker const_loadlibs section: # NetAddr::IP::Lite might depend on some other libraries: # See ExtUtils::Liblist for details # # --- MakeMaker const_cccmd section: CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) # --- MakeMaker post_constants section: MY_POD2TEXT = /usr/bin/pod2text # --- MakeMaker pasthru section: PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ LINKTYPE="$(LINKTYPE)"\ OPTIMIZE="$(OPTIMIZE)"\ PREFIX="$(PREFIX)"\ PASTHRU_DEFINE='$(DEFINE) $(PASTHRU_DEFINE)'\ PASTHRU_INC='$(INC) $(PASTHRU_INC)' # --- MakeMaker special_targets section: .SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) .PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir pure_all subdirs clean_subdirs makemakerdflt manifypods realclean_subdirs subdirs_dynamic subdirs_pure_nolink subdirs_static subdirs-test_dynamic subdirs-test_static test_dynamic test_static # --- MakeMaker c_o section: .c.i: gcc -E -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i .c.s : $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .c$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .cpp$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp .cxx$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx .cc$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc .C$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C # --- MakeMaker xs_c section: .xs.c: $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c # --- MakeMaker xs_o section: .xs$(OBJ_EXT) : $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c # --- MakeMaker top_targets section: all :: pure_all manifypods $(NOECHO) $(NOOP) pure_all :: config pm_to_blib subdirs linkext README $(NOECHO) $(NOOP) subdirs :: $(MYEXTLIB) $(NOECHO) $(NOOP) config :: $(FIRST_MAKEFILE) blibdirs $(NOECHO) $(NOOP) help : perldoc ExtUtils::MakeMaker # --- MakeMaker blibdirs section: blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists $(NOECHO) $(NOOP) # Backwards compat with 6.18 through 6.25 blibdirs.ts : blibdirs $(NOECHO) $(NOOP) $(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_LIBDIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR) $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHLIB) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB) $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_AUTODIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR) $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR) $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_BIN) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN) $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_SCRIPT) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT) $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN1DIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR) $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN3DIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR) $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists # --- MakeMaker linkext section: linkext :: dynamic $(NOECHO) $(NOOP) # --- MakeMaker dlsyms section: # --- MakeMaker dynamic_bs section: BOOTSTRAP = # --- MakeMaker dynamic section: dynamic :: $(FIRST_MAKEFILE) config $(INST_BOOT) $(INST_DYNAMIC) $(NOECHO) $(NOOP) # --- MakeMaker dynamic_lib section: # --- MakeMaker static section: ## $(INST_PM) has been moved to the all: target. ## It remains here for awhile to allow for old usage: "make static" static :: $(FIRST_MAKEFILE) $(INST_STATIC) $(NOECHO) $(NOOP) # --- MakeMaker static_lib section: # --- MakeMaker manifypods section: POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" POD2MAN = $(POD2MAN_EXE) manifypods : pure_all config \ Lite.pm $(NOECHO) $(POD2MAN) --section=$(MAN3SECTION) --perm_rw=$(PERM_RW) -u \ Lite.pm $(INST_MAN3DIR)/NetAddr::IP::Lite.$(MAN3EXT) # --- MakeMaker processPL section: # --- MakeMaker installbin section: # --- MakeMaker subdirs section: # The default clean, realclean and test targets in this Makefile # have automatically been given entries for each subdir. subdirs :: $(NOECHO) cd Util && $(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) all $(PASTHRU) # --- MakeMaker clean_subdirs section: clean_subdirs : $(ABSPERLRUN) -e 'exit 0 unless chdir '\''Util'\''; system '\''$(MAKE) clean'\'' if -f '\''$(FIRST_MAKEFILE)'\'';' -- # --- MakeMaker clean section: # Delete temporary files but do not touch installed files. We don't delete # the Makefile here so a later make realclean still has a makefile to use. clean :: clean_subdirs - $(RM_F) \ $(BASEEXT).bso $(BASEEXT).def \ $(BASEEXT).exp $(BASEEXT).x \ $(BOOTSTRAP) $(INST_ARCHAUTODIR)/extralibs.all \ $(INST_ARCHAUTODIR)/extralibs.ld $(MAKE_APERL_FILE) \ *$(LIB_EXT) *$(OBJ_EXT) \ *perl.core MYMETA.json \ MYMETA.yml blibdirs.ts \ core core.*perl.*.? \ core.[0-9] core.[0-9][0-9] \ core.[0-9][0-9][0-9] core.[0-9][0-9][0-9][0-9] \ core.[0-9][0-9][0-9][0-9][0-9] lib$(BASEEXT).def \ mon.out perl \ perl$(EXE_EXT) perl.exe \ perlmain.c pm_to_blib \ pm_to_blib.ts so_locations \ tmon.out - $(RM_RF) \ *~ META.yml \ blib tmp* $(NOECHO) $(RM_F) $(MAKEFILE_OLD) - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) # --- MakeMaker realclean_subdirs section: # so clean is forced to complete before realclean_subdirs runs realclean_subdirs : clean - $(ABSPERLRUN) -e 'chdir '\''Util'\''; system '\''$(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) realclean'\'' if -f '\''$(MAKEFILE_OLD)'\'';' -- - $(ABSPERLRUN) -e 'chdir '\''Util'\''; system '\''$(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) realclean'\'' if -f '\''$(FIRST_MAKEFILE)'\'';' -- # --- MakeMaker realclean section: # Delete temporary files (via clean) and also delete dist files realclean purge :: realclean_subdirs - $(RM_F) \ $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(RM_RF) \ $(DISTVNAME) # --- MakeMaker metafile section: metafile : create_distdir $(NOECHO) $(ECHO) Generating META.yml $(NOECHO) $(ECHO) '---' > META_new.yml $(NOECHO) $(ECHO) 'abstract: unknown' >> META_new.yml $(NOECHO) $(ECHO) 'author:' >> META_new.yml $(NOECHO) $(ECHO) ' - unknown' >> META_new.yml $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml $(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010'\''' >> META_new.yml $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml $(NOECHO) $(ECHO) ' version: '\''1.4'\''' >> META_new.yml $(NOECHO) $(ECHO) 'name: NetAddr-IP-Lite' >> META_new.yml $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml $(NOECHO) $(ECHO) ' directory:' >> META_new.yml $(NOECHO) $(ECHO) ' - t' >> META_new.yml $(NOECHO) $(ECHO) ' - inc' >> META_new.yml $(NOECHO) $(ECHO) 'requires:' >> META_new.yml $(NOECHO) $(ECHO) ' Test::More: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'version: '\''1.57'\''' >> META_new.yml $(NOECHO) $(ECHO) 'x_serialization_backend: '\''CPAN::Meta::YAML version 0.018'\''' >> META_new.yml -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml $(NOECHO) $(ECHO) Generating META.json $(NOECHO) $(ECHO) '{' > META_new.json $(NOECHO) $(ECHO) ' "abstract" : "unknown",' >> META_new.json $(NOECHO) $(ECHO) ' "author" : [' >> META_new.json $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json $(NOECHO) $(ECHO) ' ],' >> META_new.json $(NOECHO) $(ECHO) ' "dynamic_config" : 1,' >> META_new.json $(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010",' >> META_new.json $(NOECHO) $(ECHO) ' "license" : [' >> META_new.json $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json $(NOECHO) $(ECHO) ' ],' >> META_new.json $(NOECHO) $(ECHO) ' "meta-spec" : {' >> META_new.json $(NOECHO) $(ECHO) ' "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",' >> META_new.json $(NOECHO) $(ECHO) ' "version" : 2' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "name" : "NetAddr-IP-Lite",' >> META_new.json $(NOECHO) $(ECHO) ' "no_index" : {' >> META_new.json $(NOECHO) $(ECHO) ' "directory" : [' >> META_new.json $(NOECHO) $(ECHO) ' "t",' >> META_new.json $(NOECHO) $(ECHO) ' "inc"' >> META_new.json $(NOECHO) $(ECHO) ' ]' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "prereqs" : {' >> META_new.json $(NOECHO) $(ECHO) ' "build" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "configure" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "runtime" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "Test::More" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "release_status" : "stable",' >> META_new.json $(NOECHO) $(ECHO) ' "version" : "1.57",' >> META_new.json $(NOECHO) $(ECHO) ' "x_serialization_backend" : "JSON::PP version 4.06"' >> META_new.json $(NOECHO) $(ECHO) '}' >> META_new.json -$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json # --- MakeMaker signature section: signature : cpansign -s # --- MakeMaker dist_basics section skipped. # --- MakeMaker dist_core section skipped. # --- MakeMaker distdir section skipped. # --- MakeMaker dist_test section skipped. # --- MakeMaker dist_ci section skipped. # --- MakeMaker distmeta section: distmeta : create_distdir metafile $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \ -e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \ -e ' or die "Could not add META.yml to MANIFEST: $${'\''@'\''}"' -- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \ -e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \ -e ' or die "Could not add META.json to MANIFEST: $${'\''@'\''}"' -- # --- MakeMaker distsignature section: distsignature : distmeta $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) }' \ -e ' or die "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}"' -- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE cd $(DISTVNAME) && cpansign -s # --- MakeMaker install section skipped. # --- MakeMaker force section: # Phony target to force checking subdirectories. FORCE : $(NOECHO) $(NOOP) # --- MakeMaker perldepend section: # --- MakeMaker makefile section: # We take a very conservative approach here, but it's worth it. # We move Makefile to Makefile.old here to avoid gnu make looping. $(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) $(PERLRUN) Makefile.PL $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" $(FALSE) # --- MakeMaker staticmake section: # --- MakeMaker makeaperl section --- MAP_TARGET = ../perl FULLPERL = "/usr/bin/perl" MAP_PERLINC = "-I../blib/arch" "-I../blib/lib" "-I/usr/lib64/perl5" "-I/usr/share/perl5" # --- MakeMaker test section: TEST_VERBOSE=0 TEST_TYPE=test_$(LINKTYPE) TEST_FILE = test.pl TEST_FILES = t/*.t TESTDB_SW = -d testdb :: testdb_$(LINKTYPE) $(NOECHO) $(NOOP) test :: $(TEST_TYPE) $(NOECHO) $(NOOP) # Occasionally we may face this degenerate target: test_ : test_dynamic $(NOECHO) $(NOOP) subdirs-test_dynamic :: dynamic pure_all $(NOECHO) cd Util && $(MAKE) test_dynamic $(PASTHRU) test_dynamic :: subdirs-test_dynamic PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) testdb_dynamic :: dynamic pure_all PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) subdirs-test_static :: static pure_all $(NOECHO) cd Util && $(MAKE) test_static $(PASTHRU) test_static :: subdirs-test_static $(MAP_TARGET) PERL_DL_NONLAZY=1 "/home/.cpan/build/NetAddr-IP-4.079-0/Lite/$(MAP_TARGET)" $(MAP_PERLINC) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) testdb_static :: static pure_all $(MAP_TARGET) PERL_DL_NONLAZY=1 "/home/.cpan/build/NetAddr-IP-4.079-0/Lite/$(MAP_TARGET)" $(MAP_PERLINC) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) # --- MakeMaker ppd section: # Creates a PPD (Perl Package Description) for a binary distribution. ppd : $(NOECHO) $(ECHO) '<SOFTPKG NAME="NetAddr-IP-Lite" VERSION="1.57">' > NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' <REQUIRE NAME="Test::More" />' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.32" />' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> NetAddr-IP-Lite.ppd $(NOECHO) $(ECHO) '</SOFTPKG>' >> NetAddr-IP-Lite.ppd # --- MakeMaker pm_to_blib section: pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \ 'Lite.pm' '$(INST_LIB)/NetAddr/IP/Lite.pm' $(NOECHO) $(TOUCH) pm_to_blib # --- MakeMaker selfdocument section: # here so even if top_targets is overridden, these will still be defined # gmake will silently still work if any are .PHONY-ed but nmake won't static :: $(NOECHO) $(NOOP) dynamic :: $(NOECHO) $(NOOP) config :: $(NOECHO) $(NOOP) # --- MakeMaker postamble section: README : Lite.pm @$(MY_POD2TEXT) Lite.pm > README # End. Lite/t/aton.t 0000644 00000001037 15043770025 0007036 0 ustar 00 #use diagnostics; use NetAddr::IP::Util qw( inet_n2dx ); use NetAddr::IP::Lite; $| = 1; print "1..2\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::4/120'); ## test aton my $exp = 'FF00:0:0:0:0:0:0:4'; my $txt = inet_n2dx($hiip->aton); print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; $exp = '1.2.3.4'; $txt = inet_n2dx($loip->aton); print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; Lite/t/new-nth.t 0000644 00000001271 15043770025 0007455 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip4 = NetAddr::IP::Lite->new('1.2.3.11/29'); my @try = qw( 0 1.2.3.9 1 1.2.3.10 2 1.2.3.11 3 1.2.3.12 4 1.2.3.13 5 1.2.3.14 6 undef ); print '1..', (@try/2) +2, "\n"; $test = 1; for (my $i=0;$i<@try;$i+=2) { my $rv = $ip4->nth($try[$i]); $rv = defined $rv ? $rv->addr : 'undef'; print "got: $rv, exp: $try[$i+1]\nnot " unless $rv eq $try[$i+1]; &ok; } print "got: $_, exp: 1\nnot " unless ($_ = NetAddr::IP::Lite->new('1.2.3.4/32')->num()) && $_ == 1; &ok; print "got: $_, exp: 0\nnot " unless defined ($_ = NetAddr::IP::Lite->new('1.2.3.4/31')->num()) && $_ == 2; &ok; Lite/t/contains.t 0000644 00000001145 15043770025 0007713 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..12\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $net4 = NetAddr::IP::Lite->new('1.2.3.5/30'); my $net6 = NetAddr::IP::Lite->new('FF::85/126'); my @try = qw( 1.2.3.3 0 1.2.3.4 1 1.2.3.5 1 1.2.3.6 1 1.2.3.7 1 1.2.3.8 0 FF::83 0 FF::84 1 FF::85 1 FF::86 1 FF::87 1 FF::88 0 ); for (my $i=0;$i<@try;$i+=2) { my $ip = NetAddr::IP::Lite->new($try[$i]); my $rv = ($try[$i] =~ /:/) ? $net6->contains($ip) : $net4->contains($ip); print "got: $rv, exp: $try[$i+1]\nnot " unless $rv == $try[$i+1]; &ok; } Lite/t/v6-cnew-uri.t 0000644 00000000671 15043770025 0010162 0 ustar 00 use NetAddr::IP::Lite; my @subnets = ( [ '[dead:beef:1234::/16]', 'DEAD:BEEF:1234:0:0:0:0:0/16' ], [ '[::1234:BEEF:DEAD/24]', '0:0:0:0:0:1234:BEEF:DEAD/24' ], ); $| = 1; print '1..', (scalar @subnets) , "\n"; my $count = 1; for my $n (@subnets) { my $ip = new NetAddr::IP::Lite $n->[0]; if ($ip eq $n->[1]) { print "ok $count\n"; } else { print $ip, "\nnot ok $count\n"; } ++ $count; } Lite/t/bug75976.t 0000644 00000001371 15043770025 0007275 0 ustar 00 BEGIN { $| = 1; print "1..7\n"; } END {print "not ok 1\n" unless $loaded;} $loaded = 1; print "ok 1\n"; #use diagnostics; use NetAddr::IP::Lite; $| = 1; my $test = 2; sub ok() { print 'ok ',$test++,"\n"; } my $ud = undef; my @bugtest = ( 0 => '0.0.0.0/32', '0:0:0:0:0:0:0:0/128', $ud => '0.0.0.0/0', '0:0:0:0:0:0:0:0/0', "" => 'undef', 'undef', ); for (my $i=0;$i <= $#bugtest;$i+=3) { my $ip6 = sprintf("%s", NetAddr::IP::Lite->new6($bugtest[$i]) || 'undef'); my $ip = sprintf ("%s", NetAddr::IP::Lite->new($bugtest[$i]) || 'undef'); my $expip = $bugtest[$i+1]; my $expip6 = $bugtest[$i+2]; print "got: $ip\nexp: $expip\nnot " unless $ip eq $expip; &ok; print "got: $ip6\nexp: $expip6\nnot " unless $ip6 eq $expip6; &ok; } Lite/t/v6-contains.t 0000644 00000003362 15043770025 0010247 0 ustar 00 use NetAddr::IP::Lite; use Test::More; my @yes_pairs = ( [ '::/0', '2001:620:0:4:a00:20ff:fe9c:7e4a' ], [ '3ffe:2000:0:4::/64', '3ffe:2000:0:4:a00:20ff:fe9c:7e4a' ], [ '3ffe:2000:0:4::/64', '3ffe:2000:0:4:a00:20ff:fe9c:7e4a/65' ], [ '2001:620:0:4::/64', '2001:620:0:4:a00:20ff:fe9c:7e4a' ], [ '2001:620:0:4::/64', '2001:620:0:4:a00:20ff:fe9c:7e4a/65' ], [ '2001:620:0:4::/64', '2001:620:0:4::1' ], [ '2001:620:0:4::/64', '2001:620:0:4:0:0:0:1' ], [ 'deaf:beef::/32', 'deaf:beef::1' ], [ 'deaf:beef::/32', 'deaf:beef::1:1' ], [ 'deaf:beef::/32', 'deaf:beef::1:0:1' ], [ 'deaf:beef::/32', 'deaf:beef::1:0:0:1' ], [ 'deaf:beef::/32', 'deaf:beef::1:0:0:0:1' ], ); my @no_pairs = ( [ '3ffe:2000:0:4::/64', '3ffe:2000:0:4:a00:20ff:fe9c:7e4a/63' ], [ '2001:620:0:4::/64', '2001:620:0:4:a00:20ff:fe9c:7e4a/63' ], [ 'deaf:beef::/32', 'dead:cafe::1' ], [ 'deaf:beef::/32', 'dead:cafe::1:1' ], [ 'deaf:beef::/32', 'dead:cafe::1:0:1' ], [ 'deaf:beef::/32', 'dead:cafe::1:0:0:1' ], [ 'deaf:beef::/32', 'dead:cafe::1:0:0:0:1' ], ); my $tests = 6 * @yes_pairs + 1; plan tests => $tests; ok(NetAddr::IP::Lite->new('::')->contains(NetAddr::IP::Lite->new('::')), ":: contains itself"); for my $p (@yes_pairs) { my $a = new NetAddr::IP::Lite $p->[0]; my $b = new NetAddr::IP::Lite $p->[1]; isa_ok($a, 'NetAddr::IP::Lite', "$p->[0]"); isa_ok($b, 'NetAddr::IP::Lite', "$p->[1]"); SKIP: { ok($a->contains($b), "->contains $p->[0], $p->[1] is true"); ok($b->within($a), "->within $p->[1], $p->[0] is true"); ok(!$b->contains($a), "->contains $p->[1], $p->[0] is false"); ok(!$a->within($b), "->within $p->[0], $p->[1] is false"); } } Lite/t/netaddr.t 0000644 00000013110 15043770025 0007511 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..35\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use Data::Dumper; use NetAddr::IP::Lite; $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): =pod $rv=list2NetAddr(\@inlist,\@NAobject); Build of NetAddr object structure from a list of IPv4 addresses or address ranges. This object is passed to B<matchNetAddr> to check if a given IP address is contained in the list. input: array reference pointer to a list of addresses i.e. 11.22.33.44 11.22.33.0/24 11.22.33.0/255.255.255.0 11.22.33.20-11.22.33.46 11.22.33.20 - 11.22.33.46 output: Number of objects created or undef on error The NAobject array is filled with NetAddr::IP::Lite object references. =cut sub list2NetAddr { my($inref,$outref) = @_; return undef unless ref $inref eq 'ARRAY' && ref $outref eq 'ARRAY'; unless ($SKIP_NetAddrIP) { require NetAddr::IP::Lite; $SKIP_NetAddrIP = 1; } @$outref = (); my $IP; no strict; foreach $IP (@$inref) { $IP =~ s/\s//g; # 11.22.33.44 if ($IP =~ /^\d+\.\d+\.\d+\.\d+$/o) { push @$outref, NetAddr::IP::Lite->new($IP), 0; } # 11.22.33.44 - 11.22.33.49 elsif ($IP =~ /^(\d+\.\d+\.\d+\.\d+)\s*\-\s*(\d+\.\d+\.\d+\.\d+)$/o) { push @$outref, NetAddr::IP::Lite->new($1), NetAddr::IP::Lite->new($2); } # 11.22.33.44/63 elsif ($IP =~ m|^\d+\.\d+\.\d+\.\d+/\d+$|) { push @$outref, NetAddr::IP::Lite->new($IP), 0; } # 11.22.33.44/255.255.255.224 elsif ($IP =~ m|^\d+\.\d+\.\d+\.\d+/\d+\.\d+\.\d+\.\d+$|o) { push @$outref, NetAddr::IP::Lite->new($IP), 0; } # ignore un-matched IP patterns } return (scalar @$outref)/2; } =pod $rv = matchNetAddr($ip,\@NAobject); Check if an IP address appears in a list of NetAddr objects. input: dot quad IP address, reference to NetAddr objects output: true if match else false =cut sub matchNetAddr { my($ip,$naref) = @_; return 0 unless $ip && $ip =~ /\d+\.\d+\.\d+\.\d+/; $ip =~ s/\s//g; $ip = new NetAddr::IP::Lite($ip); my $i; for($i=0; $i <= $#{$naref}; $i += 2) { my $beg = $naref->[$i]; my $end = $naref->[$i+1]; if ($end) { return 1 if $ip >= $beg && $ip <= $end; } else { return 1 if $ip->within($beg); } } return 0; } $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 instantiate netaddr array # # A multi-formated array of IP address that will never be tarpitted. # # WARNING: if you are using a private network, then you should include the # address description for the net/subnets that you are using or you might # find your DMZ or internal mail servers blocked since many DNSBLS list the # private network addresses as BLACKLISTED # # 127./8, 10./8, 172.16/12, 192.168/16 # # class A xxx.0.0.0/8 # class B xxx.xxx.0.0/16 # class C xxx.xxx.xxx.0/24 0 # 128 subnet xxx.xxx.xxx.xxx/25 128 # 64 subnet xxx.xxx.xxx.xxx/26 192 # 32 subnet xxx.xxx.xxx.xxx/27 224 # 16 subnet xxx.xxx.xxx.xxx/28 240 # 8 subnet xxx.xxx.xxx.xxx/29 248 # 4 subnet xxx.xxx.xxx.xxx/30 252 # 2 subnet xxx.xxx.xxx.xxx/31 254 # single address xxx.xxx.xxx.xxx/32 255 # @tstrng = ( # a single address '11.22.33.44', # a range of ip's, ONLY VALID WITHIN THE SAME CLASS 'C' '22.33.44.55 - 22.33.44.65', '45.67.89.10-45.67.89.32', # a CIDR range '5.6.7.16/28', # a range specified with a netmask '7.8.9.128/255.255.255.240', # this should ALWAYS be here '127.0.0.0/8', # ignore all test entries and localhost ); my @NAobject; my $rv = list2NetAddr(\@tstrng,\@NAobject); print "wrong number of NA objects\ngot: $rv, exp: 6\nnot " unless $rv == 6; &ok; ## test 3 check disallowed terms print "accepted null parameter\nnot " if matchNetAddr(); &ok; ## test 4 check disallowed parm print "accepted non-numeric parameter\nnot " if matchNetAddr('junk'); &ok; ##test 5 check non-ip short print "accepted short ip segment\nnot " if matchNetAddr('1.2.3'); &ok; # yeah, it will accept a long one, but that's tough! ## test 6-35 bracket NA objects # my @chkary = # 5 x 6 tests # out left in left middle in right out right qw( 11.22.33.43 11.22.33.44 11.22.33.44 11.22.33.44 11.22.33.45 22.33.44.54 22.33.44.55 22.33.44.60 22.33.44.65 22.33.44.66 45.67.89.9 45.67.89.10 45.67.89.20 45.67.89.32 45.67.89.33 5.6.7.15 5.6.7.16 5.6.7.20 5.6.7.31 5.6.7.32 7.8.9.127 7.8.9.128 7.8.9.138 7.8.9.143 7.8.9.144 126.255.255.255 127.0.0.0 127.128.128.128 127.255.255.255 128.0.0.0 ); for(my $i=0;$i <= $#chkary; $i+=5) { print "accepted outside left bound $chkary[$i]\nnot " if matchNetAddr($chkary[$i],\@NAobject); &ok; print "rejected inside left bound $chkary[$i+1]\nnot " unless matchNetAddr($chkary[$i+1],\@NAobject); &ok; print "rejected inside middle bound $chkary[$i+2]\nnot " unless matchNetAddr($chkary[$i+2],\@NAobject); &ok; print "rejected inside right bound $chkary[$i+3]\nnot " unless matchNetAddr($chkary[$i+3],\@NAobject); &ok; print "accepted outside right bound $chkary[$i+4]\nnot " if matchNetAddr($chkary[$i+4],\@NAobject); &ok; } Lite/t/v4-old-first.t 0000644 00000001502 15043770025 0010324 0 ustar 00 use NetAddr::IP::Lite qw(:old_nth); my $nets = { '10.0.0.16' => [ 24, '10.0.0.1', '10.0.0.254', '10.0.0.10'], '10.0.0.5' => [ 30, '10.0.0.5', '10.0.0.6', 'undef' ], '10.128.0.1' => [ 8, '10.0.0.1', '10.255.255.254', '10.0.0.10'], '10.128.0.1' => [ 24, '10.128.0.1', '10.128.0.254', '10.128.0.10'], }; $| = 1; print "1..", (3 * scalar keys %$nets), "\n"; my $count = 1; for my $a (keys %$nets) { my $ip = new NetAddr::IP::Lite $a, $nets->{$a}->[0]; print '', (($ip->first->addr ne $nets->{$a}->[1] ? 'not ' : ''), "ok ", $count++, "\n"); print '', (($ip->last->addr ne $nets->{$a}->[2] ? 'not ' : ''), "ok ", $count++, "\n"); my $new = $ip->nth(10); print '', (((defined $new ? $new->addr : 'undef') ne $nets->{$a}->[3] ? 'not ' : ''), "ok ", $count++, "\n"); } Lite/t/cidr.t 0000644 00000001214 15043770025 0007013 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..3\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::4/120'); my $dqip = new NetAddr::IP::Lite('1.2.3.4/24'); ## test cidr my $exp = 'FF00:0:0:0:0:0:0:4/120'; my $txt = $hiip->cidr; print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; $exp = '0:0:0:0:0:0:102:304/120'; $txt = $loip->cidr; print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; $exp = '1.2.3.4/24'; $txt = $dqip->cidr; print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; Lite/t/v6-num.t 0000644 00000003104 15043770025 0007222 0 ustar 00 use NetAddr::IP::Lite; my $nets = { 'F0::' => [ 128, '1' ], 'F1::' => [ 127, '2' ], 'F2::' => [ 126, '2' ], 'F3::' => [ 125, '6' ], 'F4::' => [ 124, '14' ], 'F5::' => [ 123, '30' ], 'F6::' => [ 122, '62' ], 'F7::' => [ 100, '268435454' ], 'F8::' => [ 99, '536870910' ], 'F9::' => [ 98, '1073741822' ], 'FA::' => [ 97, '2147483646' ], 'FB::' => [ 96, '4294967294' ], 'FC::' => [ 95, '8589934590' ], 'FD::' => [ 94, '17179869182' ], 'FE::' => [ 93, '34359738366' ], 'FF::' => [ 92, '68719476734' ], 'F10::' => [ 64, '18446744073709551614' ], 'F20::' => [ 32, '79228162514264337593543950334' ], 'F30::' => [ 16, '5192296858534827628530496329220094' ], 'F40::' => [ 8, '1329227995784915872903807060280344574' ], 'F50::' => [ 4, '21267647932558653966460912964485513214' ], 'F60::' => [ 2, '85070591730234615865843651857942052862' ], 'F70::' => [ 1, '170141183460469231731687303715884105726' ], 'F80::' => [ 0, '340282366920938463463374607431768211454' ], '0.0.0.1' => [ 31, '2' ], '0.0.0.2' => [ 30, '2' ], '0.0.0.3' => [ 2, '1073741822' ], '0.0.0.4' => [ 1, '2147483646' ], '0.0.0.5' => [ 0, '4294967294' ], '0.0.0.6' => [ 32, '1' ], }; $| = 1; $test = keys %$nets; print "1..", $test, "\n"; $test = 1; sub tst { foreach my $a (sort keys %$nets) { my $nc = $nets->{$a}->[1]; # net count my $ip = new NetAddr::IP::Lite($a, $nets->{$a}->[0]); print "/$nets->{$a}->[0] got: $_, exp: $nc\nnot " unless ($_ = $ip->num) eq $nc; print "ok ", $test++, "\n"; } } tst(); Lite/t/v4-new_from_aton.t 0000644 00000001307 15043770025 0011261 0 ustar 00 use NetAddr::IP::Util qw( inet_aton ipv6_n2x ); use NetAddr::IP::Lite; use Test::More; #use diagnostics; plan tests => 12 + 3; ok(! defined NetAddr::IP::Lite->new_from_aton(''), "blank netaddr returns undef"); ok(! defined NetAddr::IP::Lite->new_from_aton(undef), "undefined netaddr returns undef"); ok(! defined NetAddr::IP::Lite->new_from_aton('1.2.3.4'), "Dot Quad IP returns undef"); foreach (qw( 0.0.0.0 127.0.0.1 255.255.255.255 )) { my $naddr = inet_aton($_); my $ip = new_from_aton NetAddr::IP::Lite($naddr); ok(defined $ip, "$_ is defined"); ok($ip->bits == 32, "$_ is 32 bits wide"); ok($ip->mask eq '255.255.255.255', "mask is all ones"); ok($ip->version == 4, "version is IPv4"); } Lite/t/ipv4FFFF.t 0000644 00000000424 15043770025 0007406 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..1\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip = new6FFFF NetAddr::IP::Lite('127.0.0.1'); my $exp = '0:0:0:0:0:FFFF:7F00:1/128'; print "got: $ip\nexp: $exp\nnot " unless "$ip" eq $exp; &ok; Lite/t/bignums.t 0000644 00000007210 15043770025 0007540 0 ustar 00 use strict; use Test::More; use NetAddr::IP::Lite; #use NetAddr::IP::Util qw( # bcd2bin # ipv6_n2x # bin2bcd #); #use Data::Dumper; my @num = qw( 2001:468:D01:3C:0:0:80DF:3C1B/128 42540577535367674011024906890208295963 73.150.6.197/32 1234568901 128.0.0.0/32 2147483648 0:0:0:0:0:1:0:0/128 4294967296 0:0:0:0:0:2:0:0/128 8589934592 0:0:0:0:0:2:540B:E400/128 10000000000 0:0:0:0:0:4:0:0/128 17179869184 0:0:0:0:0:8:0:0/128 34359738368 0:0:0:0:0:10:0:0/128 68719476736 0:0:0:0:0:20:0:0/128 137438953472 0:0:0:0:0:40:0:0/128 274877906944 0:0:0:0:0:80:0:0/128 549755813888 0:0:0:0:0:100:0:0/128 1099511627776 0:0:0:0:0:200:0:0/128 2199023255552 0:0:0:0:0:400:0:0/128 4398046511104 0:0:0:0:0:800:0:0/128 8796093022208 0:0:0:0:0:1000:0:0/128 17592186044416 0:0:0:0:0:2000:0:0/128 35184372088832 0:0:0:0:0:4000:0:0/128 70368744177664 0:0:0:0:0:8000:0:0/128 140737488355328 0:0:0:0:8000:0:0:0/128 9223372036854775808 0:0:0:8000:0:0:0:0/128 604462909807314587353088 0:0:8000:0:0:0:0:0/128 39614081257132168796771975168 0:8000:0:0:0:0:0:0/128 2596148429267413814265248164610048 8000:0:0:0:0:0:0:0/128 170141183460469231731687303715884105728 255.255.255.255/32 4294967295 1.2.3.4/32 16909060 10.253.230.9/32 184411657 ); plan tests => scalar @num; #diag ("\ntesting SCALARS\n\n"); for(my $i = 0;$i <= $#num;$i += 2) { my $n = $num[$i +1]; my $ip = new NetAddr::IP::Lite($n); ok($ip eq $num[$i],"$n\t=> got: $ip\texp: ". $num[$i]); } #diag ("\ntesting Math::BigInt's\n\n"); for(my $i = 0;$i <= $#num;$i += 2) { my $n = new Math::BigInt($num[$i +1]); my $ip = new NetAddr::IP::Lite($num[$i +1]); ok($ip eq $num[$i],"$n\t=> got: $ip\texp: ". $num[$i]); } # simulate the use of Math::BigInt package Math::BigInt; use strict; use overload '""' => sub { $_[0]->_str(); }; sub BASE_LEN () { 7 }; sub _str { # adapted from Math::BigInt::Calc::_str # (ref to BINT) return num_str # Convert number from internal base 100000 format to string format. # internal format is always normalized (no leading zeros, "-0" => "+0") my $ar = $_[0]->{value}; my $l = scalar @$ar; # number of parts my $ret = ""; # handle first one different to strip leading zeros from it (there are no # leading zero parts in internal representation) $l --; $ret .= int($ar->[$l]); $l--; # Interestingly, the pre-padd method uses more time # the old grep variant takes longer (14 vs. 10 sec) my $z = '0' x (BASE_LEN -1); while ($l >= 0) { $ret .= substr($z.$ar->[$l],- BASE_LEN); # fastest way I could think of $l--; } $ret; } sub new { # adapted from Math::BigInt::new my ($class,$wanted) = @_; my $self = bless {}, $class; die "oops, not a good Math::BigInt number" unless ((!ref $wanted) && ($wanted =~ /^([+-]?)[1-9][0-9]*\z/)); $self->{sign} = $1 || '+'; if ($wanted =~ /^[+-]/) { # remove sign without touching wanted to make it work with constants my $t = $wanted; $t =~ s/^[+-]//; $self->{value} = _new($t); } else { $self->{value} = _new($wanted); } return $self; } sub _new { # adapted from Math::BigInt::Calc::_new my $wanted = $_[0]; # (ref to string) return ref to num_array # Convert a number from string format (without sign) to internal base # 1ex format. Assumes normalized value as input. my $il = length($wanted)-1; # < BASE_LEN due len-1 above return [ int($wanted) ] if $il < BASE_LEN; # shortcut for short numbers my $base_len = BASE_LEN; # this leaves '00000' instead of int 0 and will be corrected after any op [ reverse(unpack("a" . ($il % BASE_LEN +1) . ("a$base_len" x ($il / BASE_LEN)), $wanted)) ]; } Lite/t/v4-no_octal.t 0000644 00000003247 15043770025 0010227 0 ustar 00 use NetAddr::IP::Lite; *_no_octal = \&NetAddr::IP::Lite::_no_octal; use Test::More; my @ranges = ( [ '10.0.0.0/8', '10.0.0.0', '10.255.255.255' ], [ '192.68.0.0/16', '192.068.0.0', '192.068.255.255' ], ); my @weird = ( [ '128.111.12.0', '128.111.12.129' ], ); plan tests => 6 * @ranges + 2 * @weird + 28; for my $r (@ranges) { my $r1 = new_no NetAddr::IP::Lite $r->[1] . '-' . $r->[2]; isa_ok($r1, 'NetAddr::IP::Lite'); is($r1, $r->[0], "Correct interpretation (with space)"); $r1 = new_no NetAddr::IP::Lite $r->[1] . ' - ' . $r->[2]; isa_ok($r1, 'NetAddr::IP::Lite'); is($r1, $r->[0], "Correct interpretation (w/o space)"); $r1 = new_no NetAddr::IP::Lite $r->[0]; isa_ok($r1, 'NetAddr::IP::Lite'); my @rev = (undef,_no_octal($r->[1]),_no_octal($r->[2])); is($r1->range, $rev[1] . ' - ' . $rev[2], "Correct reverse"); } for my $r (@weird) { my $r1 = new_no NetAddr::IP::Lite $r->[0] . '-' . $r->[1]; ok(! defined $r1, "Weird range w/o space produces undef"); $r1 = new_no NetAddr::IP::Lite $r->[0] . ' - ' . $r->[1]; ok(! defined $r1, "Weird range with space produces undef"); } for my $o (254, 252, 248, 240, 224, 192, 128) { my $r1 = new_no NetAddr::IP::Lite '0.0.0.0 - ' . $o . '.0.0.0'; ok(! defined $r1, "Weird $o range, first octet"); $r1 = new_no NetAddr::IP::Lite '0.0.0.0 - 0.' . $o . '.0.0'; ok(! defined $r1, "Weird $o range, second octet"); $r1 = new_no NetAddr::IP::Lite '0.0.0.0 - 0.0.' . $o . '.0'; ok(! defined $r1, "Weird $o range, third octet"); $r1 = new_no NetAddr::IP::Lite '0.0.0.0 - 0.0.0.' . $o; ok(! defined $r1, "Weird $o range, fourth octet"); } Lite/t/network.t 0000644 00000001565 15043770025 0007574 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..4\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); my $dqip = new NetAddr::IP::Lite('1.2.3.4/24'); ## test '""' just for the heck of it my $exp = 'FF00:0:0:0:0:0:1:4/120'; my $txt = sprintf("%s",$hiip); print 'got: ',$txt," exp: $exp\nnot " unless $txt eq $exp; &ok; ## test network dq $exp = '1.2.3.0/24'; my $net = $dqip->network; print 'got: ',$net, " exp: $exp\nnot " unless $net eq $exp; &ok; ## test network hi $exp = 'FF00:0:0:0:0:0:1:0/120'; $net = $hiip->network; print 'got: ',$net, " exp: $exp\nnot " unless $net eq $exp; &ok; ## test network lo $exp = '0:0:0:0:0:0:102:300/120'; $net = $loip->network; print 'got: ',$net, " exp: $exp\nnot " unless $net eq $exp; &ok; Lite/t/v6-new-base.t 0000644 00000004447 15043770025 0010137 0 ustar 00 # This -*- perl -*- code excercises the basic v6 functionality sub mypass() {1} sub myfail() {0} @addr = ( ['::', 3, '0:0:0:0:0:0:0:0/128',myfail], ['::1', 3, '0:0:0:0:0:0:0:1/128',myfail], ['F34::123/40', 2, 'F34:0:0:0:0:0:0:3/40',mypass], ['DEAD:BEEF::1/40', 2, 'DEAD:BEEF:0:0:0:0:0:3/40',mypass], ['1000::2/40', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['1000::2000/40', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['DEAD::CAFE/40', 0, 'DEAD:0:0:0:0:0:0:1/40',mypass], ['DEAD:BEEF::1/40', 3, 'DEAD:BEEF:0:0:0:0:0:4/40',mypass], ['DEAD:BEEF::1/40', 4, 'DEAD:BEEF:0:0:0:0:0:5/40',mypass], ['DEAD:BEEF::1/40', 5, 'DEAD:BEEF:0:0:0:0:0:6/40',mypass], ['DEAD:BEEF::1/40', 6, 'DEAD:BEEF:0:0:0:0:0:7/40',mypass], ['DEAD:BEEF::1/40', 7, 'DEAD:BEEF:0:0:0:0:0:8/40',mypass], ['DEAD:BEEF::1/40', 8, 'DEAD:BEEF:0:0:0:0:0:9/40',mypass], ['DEAD:BEEF::1/40', 254, 'DEAD:BEEF:0:0:0:0:0:FF/40',mypass], ['DEAD:BEEF::1/40', 255, 'DEAD:BEEF:0:0:0:0:0:100/40',mypass], ['DEAD:BEEF::1/40', 256, 'DEAD:BEEF:0:0:0:0:0:101/40',mypass], ['DEAD:BEEF::1/40', 65535, 'DEAD:BEEF:0:0:0:0:1:0/40',mypass], ['DEAD:BEEF::1/40', 65536, 'DEAD:BEEF:0:0:0:0:1:1/40',mypass], ['2001:620:0:4::/64', 0, '2001:620:0:4:0:0:0:1/64',mypass], ['3FFE:2000:0:4::/64', 0, '3FFE:2000:0:4:0:0:0:1/64',mypass], ['2001:620:600::1', 0, '2001:620:600:0:0:0:0:1/128',mypass], ['2001:620:600:0:1::1', 0,'2001:620:600:0:1:0:0:1/128',mypass], ); use NetAddr::IP::Lite; use Test::More; my($a, $ip, $test); $test = 4 * @addr + 4; plan tests => $test; $test = 1; sub tst { for $a (@addr) { $ip = new NetAddr::IP::Lite $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP::Lite', "$a->[0] "); # requires full NetAddr::IP # is(uc $ip->short, $a->[0], "short returns $a->[0]"); is($ip->bits, 128, "bits == 128"); is($ip->version, 6, "version == 6"); my $index = $a->[1]; if ($a->[3]) { is(uc $ip->nth($index), $a->[2], "nth $a->[0], $index"); } else { ok(!$ip->nth($index),"nth $a->[0], undef"); } } } tst(); $test = new NetAddr::IP::Lite 'f34::1'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); $test = new NetAddr::IP::Lite 'f35::1/40'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); Lite/t/v4-base.t 0000644 00000000667 15043770025 0007346 0 ustar 00 use NetAddr::IP::Lite; my @addr = (qw( 127.0.0.1 10.0.0.1 )); my @mask = (qw( 255.0.0.0 255.255.0.0 255.255.255.0 255.255.255.255 )); $| = 1; print "1..", (2 * scalar @addr * scalar @mask), "\n"; my $count = 1; for my $a (@addr) { for my $m (@mask) { my $ip = new NetAddr::IP::Lite $a, $m; print (($ip->addr ne $a ? 'not ' : ''), "ok ", $count++, "\n"); print (($ip->mask ne $m ? 'not ' : ''), "ok ", $count++, "\n"); } } Lite/t/within.t 0000644 00000001141 15043770025 0007373 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..12\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $net4 = NetAddr::IP::Lite->new('1.2.3.5/30'); my $net6 = NetAddr::IP::Lite->new('FF::85/126'); my @try = qw( 1.2.3.3 0 1.2.3.4 1 1.2.3.5 1 1.2.3.6 1 1.2.3.7 1 1.2.3.8 0 FF::83 0 FF::84 1 FF::85 1 FF::86 1 FF::87 1 FF::88 0 ); for (my $i=0;$i<@try;$i+=2) { my $ip = NetAddr::IP::Lite->new($try[$i]); my $rv = ($try[$i] =~ /:/) ? $ip->within($net6) : $ip->within($net4); print "got: $rv, exp: $try[$i+1]\nnot " unless $rv == $try[$i+1]; &ok; } Lite/t/v6-numeric.t 0000644 00000005313 15043770025 0010071 0 ustar 00 use NetAddr::IP::Lite; use Test::More; my @pairs = ( [ '::/0', '0', '0' ], [ '::/128', '0', '340282366920938463463374607431768211455' ], [ 'cafe:cafe::/64', '269827015721314068804783158349174669312', '340282366920938463444927863358058659840' ], [ 'cafe:cafe::1/64', '269827015721314068804783158349174669313', '340282366920938463444927863358058659840' ], [ 'dead:beef::/100', '295990755014133383690938178081940045824', '340282366920938463463374607431499776000' ], [ 'dead:beef::1/100', '295990755014133383690938178081940045825', '340282366920938463463374607431499776000' ], ); my @scale = qw( 0000:0000:0000:0000:0000:0000:0000:0000 0000:0000:0000:0000:0000:0000:0000:0001 0000:0000:0000:0000:0000:0000:0000:0010 0000:0000:0000:0000:0000:0000:0000:0100 0000:0000:0000:0000:0000:0000:0000:1000 0000:0000:0000:0000:0000:0000:0001:0000 0000:0000:0000:0000:0000:0001:0000:0000 0000:0000:0000:0000:0000:0010:0000:0000 0000:0000:0000:0000:0000:0100:0000:0000 0000:0000:0000:0000:0000:1000:0000:0000 0000:0000:0000:0000:0001:0000:0000:0000 0000:0000:0000:0001:0000:0000:0000:0000 0000:0000:0000:0010:0000:0000:0000:0000 0000:0000:0000:0100:0000:0000:0000:0000 0000:0000:0000:1000:0000:0000:0000:0000 0000:0000:0001:0000:0000:0000:0000:0000 0000:0001:0000:0000:0000:0000:0000:0000 0000:0010:0000:0000:0000:0000:0000:0000 0000:0100:0000:0000:0000:0000:0000:0000 0000:1000:0000:0000:0000:0000:0000:0000 0001:0000:0000:0000:0000:0000:0000:0000 0010:0000:0000:0000:0000:0000:0000:0000 0100:0000:0000:0000:0000:0000:0000:0000 1000:0000:0000:0000:0000:0000:0000:0000 ); my $tests = 4 * @pairs + @scale ** 2; plan tests => $tests; for my $p (@pairs) { my $a = new NetAddr::IP::Lite $p->[0]; isa_ok($a, 'NetAddr::IP::Lite', "$p->[0]"); is($a->numeric, $p->[1], "$p->[0] Scalar numeric ok"); is(($a->numeric)[0], $p->[1], "$p->[0] Array numeric ok for network"); is(($a->numeric)[1], $p->[2], "$p->[0] Array numeric ok for mask"); } @ip_scale = map { new NetAddr::IP::Lite $_ } @scale; isa_ok($_, 'NetAddr::IP::Lite', $_->addr) for @ip_scale; for my $i (0 .. $#ip_scale) { for my $l (0 .. $i - 1) { next if $l >= $i; unless (ok($ip_scale[$i]->numeric > $ip_scale[$l]->numeric, "[$i, $l] $scale[$i] > $scale[$l]")) { diag "assertion [$i]: " . $ip_scale[$i]->numeric . " > " . $ip_scale[$l]->numeric; } } next if $i == $#ip_scale; for my $l ($i + 1 .. $#ip_scale) { next if $l <= $i; unless (ok($ip_scale[$i]->numeric < $ip_scale[$l]->numeric, "[$i, $l] $scale[$i] < $scale[$l]")) { diag "assertion [$i]: " . $ip_scale[$i]->numeric . " < " . $ip_scale[$l]->numeric; } } } Lite/t/over_math.t 0000644 00000001751 15043770025 0010064 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..7\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip = new NetAddr::IP::Lite('0.0.0.4/24'); ## test '+' my $exp = '0.0.0.132/24'; my $nip = $ip + 128; print 'got: ',$nip," exp: $exp\nnot " unless $nip eq $exp; &ok; ## test '+' wrap around $nip = $ip + 257; $exp = '0.0.0.5/24'; print 'got: ',$nip," exp: $exp\nnot " unless $nip eq $exp; &ok; ## test '-' and wrap $nip = $ip - 10; $exp = '0.0.0.250/24'; print 'got: ',$nip," exp: $exp\nnot " unless $nip eq $exp; &ok; ## test '++' post $nip++; $exp = '0.0.0.251/24'; print 'got: ',$nip," exp: $exp\nnot " unless $nip eq $exp; &ok; ## test '++' pre ++$nip; $exp = '0.0.0.252/24'; print 'got: ',$nip," exp: $exp\nnot " unless $nip eq $exp; &ok; ## test '--' post $ip--; $exp = '0.0.0.3/24'; print 'got: ',$ip," exp: $exp\nnot " unless $ip eq $exp; &ok; ## test '--' pre --$ip; $exp = '0.0.0.2/24'; print 'got: ',$ip," exp: $exp\nnot " unless $ip eq $exp; &ok; Lite/t/copy.t 0000644 00000001630 15043770025 0007046 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite 0.10; *Ones = \&NetAddr::IP::Lite::Ones; use NetAddr::IP::Util qw( ipv6_aton shiftleft ); $| = 1; print "1..4\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip24 = '1.2.3.4/24'; my $o = new NetAddr::IP::Lite($ip24); my $c = $o->copy; ## test 1 validate original my $txto = sprintf("%s",$o); my $txtc = sprintf("%s",$c); print "orig... got: $txto, exp: $ip24\nnot " unless $txto eq $ip24; &ok; ## test 2 print "copy... got: $txtc, exp: $ip24\nnot " unless $txtc eq $ip24; &ok; my $ip28 = '1.2.3.4/28'; my $mask = shiftleft(Ones(),32 - 28); $c->{mask} = $mask; $txto = sprintf("%s",$o); $txtc = sprintf("%s",$c); ## test 3 validate original $txto = sprintf("%s",$o); $txtc = sprintf("%s",$c); print "orig... got: $txto, exp: $ip24\nnot " unless $txto eq $ip24; &ok; ## test 4 print "copy... got: $txtc, exp: $ip28\nnot " unless $txtc eq $ip28; &ok; Lite/t/v4-wnew.t 0000644 00000001166 15043770025 0007407 0 ustar 00 use Test::More tests => 12; use NetAddr::IP::Lite; my @good = (qw(default any broadcast loopback)); my @bad = map { ("$_.neveranydomainlikethis.in-addr.arpa", "nohostlikethis.${_}.in-addr.arpa") } @good; my $bad = scalar @bad; diag <<EOF; \tThe following $bad tests involve resolving (hopefully) \tnon-existant names. This may take a while. EOF SKIP: { skip "defective or missing resolver", 12, if defined NetAddr::IP::Lite->new('not.defined.in-addr.arpa'); ok(!defined NetAddr::IP::Lite->new($_), "not defined ->new($_)") for @bad; ok(defined NetAddr::IP::Lite->new($_), "defined ->new($_)") for @good; }; Lite/t/pathological.t 0000644 00000000577 15043770025 0010553 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; END {print "1..1\nnot ok 1\n" unless $test}; $| = 1; $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my @addrs = # pathological cases should fail qw( ::foo ::f00/129 ::f00/150 ); print '1..',(scalar @addrs),"\n"; my $ip; foreach(@addrs) { print "expected undef, got: $ip\nnot " if ($ip = new NetAddr::IP::Lite($_)); &ok; } Lite/t/masklen.t 0000644 00000001256 15043770025 0007532 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..3\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); my $dqip = new NetAddr::IP::Lite('1.2.3.4/24'); ## test masklen lo $exp = 120; my $masklen = $loip->masklen; print "got: $masklen, exp: $exp\nnot " unless $masklen == $exp; &ok; ## test masklen hi $exp = 120; $masklen = $hiip->masklen; print "got: $masklen, exp: $exp\nnot " unless $masklen == $exp; &ok; ## test masklen dq $exp = 24; $masklen = $dqip->masklen; print "got: $masklen, exp: $exp\nnot " unless $masklen == $exp; &ok; Lite/t/over_copy.t 0000644 00000003167 15043770025 0010110 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite 0.10; *Ones = \&NetAddr::IP::Lite::Ones; use NetAddr::IP::Util qw( ipv6_aton shiftleft ); $| = 1; print "1..8\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip24 = '1.2.3.4/24'; my $o = new NetAddr::IP::Lite($ip24); my $c = $o; ## test 1 validate original my $txto = sprintf("%s",$o); my $txtc = sprintf("%s",$c); print "orig... got: $txto, exp: $ip24\nnot " unless $txto eq $ip24; &ok; ## test 2 print "copy... got: $txtc, exp: $ip24\nnot " unless $txtc eq $ip24; &ok; my $ip28 = '1.2.3.4/28'; my $mask = shiftleft(Ones(),32 - 28); $c->{mask} = $mask; $txto = sprintf("%s",$o); $txtc = sprintf("%s",$c); ## overload does not unlink originals in this case ## test 3 validate original $txto = sprintf("%s",$o); $txtc = sprintf("%s",$c); print "orig... got: $txto, exp: $ip28\nnot " unless $txto eq $ip28; &ok; ## test 4 print "copy... got: $txtc, exp: $ip28\nnot " unless $txtc eq $ip28; &ok; my $ip265 = '1.2.3.5/26'; my $ip285 = '1.2.3.5/28'; $mask = shiftleft(Ones(),32 - 26); ## test 5 overload seperates variables $c++; ## validate original $txto = sprintf("%s",$o); $txtc = sprintf("%s",$c); print "orig... got: $txto, exp: $ip28\nnot " unless $txto eq $ip28; &ok; ## test 6 check mutated copy print "copy... got: $txtc, exp: $ip285\nnot " unless $txtc eq $ip285; &ok; ## test 7 check seperation $c->{mask} = $mask; ## validate original $txto = sprintf("%s",$o); $txtc = sprintf("%s",$c); print "orig... got: $txto, exp: $ip28\nnot " unless $txto eq $ip28; &ok; ## test 8 check mutated copy print "copy... got: $txtc, exp: $ip265\nnot " unless $txtc eq $ip265; &ok; Lite/t/rfc_1918.t 0000644 00000001175 15043770025 0007334 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..12\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my @ips = qw( 9.255.255.255 0 10.0.0.0 1 10.255.255.255 1 11.0.0.0 0 172.15.255.255 0 172.16.0.0 1 172.31.255.255 1 172.32.0.0 0 192.167.255.255 0 192.168.0.0 1 192.168.255.255 1 192.169.0.0 0 ); for (my $i=0;$i<=$#ips;$i+=2) { my $ip = new NetAddr::IP::Lite($ips[$i]); my $got = $ip->is_rfc1918(); my $exp = $ips[$i+1]; print $ip," got: $got, exp: $exp\nnot " unless $got == $exp; &ok; } Lite/t/v6-inc.t 0000644 00000002062 15043770025 0007176 0 ustar 00 use Test::More; use NetAddr::IP::Lite; # Test ++ in IPv6 addresses (Bug rt.cpan.org #7070 by a guest) @ip = (NetAddr::IP::Lite->new('2001:468:ff:fffe::2/64'), NetAddr::IP::Lite->new('2001:468:ff:fffe::2/64'), NetAddr::IP::Lite->new('2001:468:ff:fffe::2/64')); $ip[1] ++; $ip[2] ++; $ip[2] ++; plan tests => 11; # Test correct v6 creation isa_ok($_, 'NetAddr::IP::Lite') for @ip; # Test that we did actually do something diag "$ip[0] -- $ip[1]" unless ok($ip[0] != $ip[1], "Auto incremented once differ"); diag "$ip[0] -- $ip[2]" unless ok($ip[0] != $ip[2], "Auto incremented twice differ"); diag "$ip[1] -- $ip[2]" unless ok($ip[1] != $ip[2], "Auto incremented two times differ"); # Test that what we did is correct is($ip[1], $ip[0] + 1, "Test of first auto-increment"); is($ip[2], $ip[0] + 2, "Test of second auto-increment"); # Now test auto-decrement $ip[1] --; $ip[2] --; $ip[2] --; is($ip[0], $ip[1], "Decrement of decrement once is ok"); is($ip[0], $ip[2], "Decrement of decrement twice is ok"); is($ip[1], $ip[2], "Third case"); Lite/t/addr.t 0000644 00000001313 15043770025 0007004 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..3\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); ## test '""' just for the heck of it my $exp = 'FF00:0:0:0:0:0:1:4/120'; my $txt = sprintf("%s",$hiip); print 'got: ',$txt," exp: $exp\nnot " unless $txt eq $exp; &ok; ## test addr lo $exp = '0:0:0:0:0:0:102:304'; my $addr = $loip->addr; print "got: $addr, exp: $exp\nnot " unless $addr eq $exp && ! ref $addr; &ok; ## test addr hi $exp = 'FF00:0:0:0:0:0:1:4'; $addr = $hiip->addr; print "got: $addr, exp: $exp\nnot " unless $addr eq $exp && ! ref $addr; &ok; Lite/t/bits.t 0000644 00000001215 15043770025 0007034 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..3\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); my $dqip = new NetAddr::IP::Lite('1.2.3.4/24'); ## test bits lo $exp = 128; my $bits = $loip->bits; print "got: $bits, exp: $exp\nnot " unless $bits == $exp; &ok; ## test bits hi $exp = 128; $bits = $hiip->bits; print "got: $bits, exp: $exp\nnot " unless $bits == $exp; &ok; ## test dotquad bits $exp = 32; $bits = $dqip->bits; print "got: $bits, exp: $exp\nnot " unless $bits == $exp; &ok; Lite/t/v4-new-first.t 0000644 00000001465 15043770025 0010347 0 ustar 00 use NetAddr::IP::Lite; my $nets = { '10.0.0.16' => [ 24, '10.0.0.1', '10.0.0.254', '10.0.0.11'], '10.0.0.5' => [ 30, '10.0.0.5', '10.0.0.6', 'undef' ], '10.128.0.1' => [ 8, '10.0.0.1', '10.255.255.254', '10.0.0.11'], '10.128.0.1' => [ 24, '10.128.0.1', '10.128.0.254', '10.128.0.11'], }; $| = 1; print "1..", (3 * scalar keys %$nets), "\n"; my $count = 1; for my $a (keys %$nets) { my $ip = new NetAddr::IP::Lite $a, $nets->{$a}->[0]; print '', (($ip->first->addr ne $nets->{$a}->[1] ? 'not ' : ''), "ok ", $count++, "\n"); print '', (($ip->last->addr ne $nets->{$a}->[2] ? 'not ' : ''), "ok ", $count++, "\n"); my $new = $ip->nth(10); print '', (((defined $new ? $new->addr : 'undef') ne $nets->{$a}->[3] ? 'not ' : ''), "ok ", $count++, "\n"); } Lite/t/numeric.t 0000644 00000001415 15043770025 0007537 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..6\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my @tval = qw # IP bcd mask bcd ( 8000:0:0:0:0:0:0:1/112 170141183460469231731687303715884105729 340282366920938463463374607431768145920 1.2.3.4/24 16909060 4294967040 ); for (my $i=0;$i < @tval;$i+=3) { my $nip = NetAddr::IP::Lite->new($tval[$i]); ## test scalar return my $sclr = $nip->numeric; print "got: $sclr\nexp: $tval[$i+1]\nnot " unless $sclr .'x' eq $tval[$i+1] .'x'; &ok; ## test array return my($addr,$mask) = $nip->numeric; print "got: $addr\nexp: $tval[$i+1]\nnot " unless $addr .'x' eq $tval[$i+1] .'x'; &ok; print "got: $mask\nexp: $tval[$i+2]\nnot " unless $mask .'x' eq $tval[$i+2] .'x'; &ok; } Lite/t/over_equal.t 0000644 00000004247 15043770025 0010245 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..14\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $four = new NetAddr::IP::Lite('0.0.0.4'); # same as 0.0.0.4/32 my $four120 = new NetAddr::IP::Lite('::4/120'); # same as 0.0.0.4/24 my $t432 = '0.0.0.4/32'; my $t4120 = '0:0:0:0:0:0:0:4/120'; my $five = new NetAddr::IP::Lite('0.0.0.5'); my $t532 = '0.0.0.5/32'; # 1 ## test '""' overload my $txt = sprintf ("%s",$four120); print "got: $txt, exp: $t4120\nnot " unless $txt eq $t4120; &ok; # 2 ## test '""' again $txt = sprintf ("%s",$four); print "got: $txt, exp: $t432\nnot " unless $txt eq $t432; &ok; # 3 ## test 'eq' to scalar print 'failed ',$four," eq $t432\nnot " unless $four eq $t432; &ok; # 4 ## test scalar 'eq' to print "failed $t432 eq ",$four,"\nnot " unless $t432 eq $four; &ok; # 5 ## test 'eq' to self print 'failed ',$four,' eq ', $four,"\nnot " unless $four eq $four; &ok; # 6 ## test 'eq' cidr != print 'failed ',$four,' should not eq ',$four120,"\nnot " if $four eq $four120; &ok; # 7 ## test '==' not for scalars print "failed scalar $t432 should not == ",$four,"\nnot " if $t432 == $four; &ok; # 8 ## test '== not for scalar, reversed args print 'failed scalar ',$four," should not == $t432\nnot " if $four == $t432; &ok; # ========================================== # # test "ne" and "!=" # # 9 ## test 'ne' to scalar print 'failed ',$four120," ne $t432\nnot " unless $four120 ne $t432; &ok; # 10 ## test scalar 'ne' to print "failed $t432 ne ",$four120,"\nnot " unless $t432 ne $four120; &ok; # 11 ## test 'ne' to cidr print 'failed ',$four,' ne ', $four120,"\nnot " unless $four ne $four120; &ok; # 12 ## test '!=' not for scalar, reversed args $rv = $five != $four ? 1 : 0; #print "rv=$rv\n"; print "failed scalar $five != $four\nnot " unless $rv; &ok; # unblessed scalars not welcome undef local $^W; # 13 ## test '!=' not for scalars my $rv = $t432 != $five ? 1 : 0; #print "rv=$rv\n"; print "failed scalar $t432 != ",$five,"\nnot " unless $rv; &ok; # 14 # since both of these are string scalars, the != should fail $rv = $t532 != $t432 ? 1 : 0; #print "rv = $rv\n"; print "failed scalar $t532 != $t432\nnot " if $rv; &ok; Lite/t/v4-new.t 0000644 00000003202 15043770025 0007211 0 ustar 00 use NetAddr::IP::Lite; use Test::More; my $binword; { local $SIG{__WARN__} = sub {}; $binword = eval "0b11111111111111110000000000000000"; } if ($@) { $binword = 0xffff0000; print STDERR "\t\tskipped! 0b11111111111111110000000000000000\n\t\tbinary bit strings unsupported in Perl version $]\n"; } @a = ( [ 'localhost', '127.0.0.1' ], [ 0x01010101, '1.1.1.1' ], [ 1, '1.0.0.0' ], # Because it will have a mask. 0.0.0.1 ow [ 'default', '0.0.0.0' ], [ 'any', '0.0.0.0' ], [-809041407, '207.199.2.1'], [3485925889, '207.199.2.1'], ); @m = ( [ 0, '0.0.0.0' ], [ 1, '128.0.0.0' ], [ 2, '192.0.0.0' ], [ 4, '240.0.0.0' ], [ 8, '255.0.0.0' ], [ 16, '255.255.0.0' ], [ 17, '255.255.128.0' ], [ 24, '255.255.255.0' ], [ 'default', '0.0.0.0' ], [ 32, '255.255.255.255' ], [ 'host', '255.255.255.255' ], [ 0xffffff00, '255.255.255.0' ], [ '255.255.255.240', '255.255.255.240' ], [ '255.255.128.0', '255.255.128.0' ], [ $binword, '255.255.0.0' ], ); plan tests => (4 * scalar @a * scalar @m) + 4; foreach my $invalid (qw( 256.1.1.1 256.256.1.1 256.256.256.1 256.256.256.256 )) { ok (! defined NetAddr::IP::Lite->new($invalid), "Invalid IP $invalid returns undef"); } for my $a (@a) { for my $m (@m) { my $ip = new NetAddr::IP::Lite $a->[0], $m->[0]; SKIP: { skip "Failed to make an object for $a->[0]/$m->[0]", 4 unless defined $ip; is($ip->addr, $a->[1], "$a->[0] / $m->[0] is $a->[1]"); is($ip->mask, $m->[1], "$a->[0] / $m->[0] is $m->[1]"); is($ip->bits, 32, "$a->[0] / $m->[0] is 32 bits wide"); is($ip->version, 4, "$a->[0] / $m->[0] is version 4"); }; } } Lite/t/v6-old-base.t 0000644 00000004464 15043770025 0010123 0 ustar 00 # This -*- perl -*- code excercises the basic v6 functionality sub mypass() {1} sub myfail() {0} @addr = ( ['::', 3, '0:0:0:0:0:0:0:0/128',myfail], ['::1', 3, '0:0:0:0:0:0:0:1/128',myfail], ['F34::123/40', 3, 'F34:0:0:0:0:0:0:3/40',mypass], ['DEAD:BEEF::1/40', 3, 'DEAD:BEEF:0:0:0:0:0:3/40',mypass], ['1000::2/40', 1, '1000:0:0:0:0:0:0:1/40',mypass], ['1000::2000/40', 1, '1000:0:0:0:0:0:0:1/40',mypass], ['DEAD::CAFE/40', 1, 'DEAD:0:0:0:0:0:0:1/40',mypass], ['DEAD:BEEF::1/40', 4, 'DEAD:BEEF:0:0:0:0:0:4/40',mypass], ['DEAD:BEEF::1/40', 5, 'DEAD:BEEF:0:0:0:0:0:5/40',mypass], ['DEAD:BEEF::1/40', 6, 'DEAD:BEEF:0:0:0:0:0:6/40',mypass], ['DEAD:BEEF::1/40', 7, 'DEAD:BEEF:0:0:0:0:0:7/40',mypass], ['DEAD:BEEF::1/40', 8, 'DEAD:BEEF:0:0:0:0:0:8/40',mypass], ['DEAD:BEEF::1/40', 9, 'DEAD:BEEF:0:0:0:0:0:9/40',mypass], ['DEAD:BEEF::1/40', 255, 'DEAD:BEEF:0:0:0:0:0:FF/40',mypass], ['DEAD:BEEF::1/40', 256, 'DEAD:BEEF:0:0:0:0:0:100/40',mypass], ['DEAD:BEEF::1/40', 257, 'DEAD:BEEF:0:0:0:0:0:101/40',mypass], ['DEAD:BEEF::1/40', 65536, 'DEAD:BEEF:0:0:0:0:1:0/40',mypass], ['DEAD:BEEF::1/40', 65537, 'DEAD:BEEF:0:0:0:0:1:1/40',mypass], ['2001:620:0:4::/64', 1, '2001:620:0:4:0:0:0:1/64',mypass], ['3FFE:2000:0:4::/64', 1, '3FFE:2000:0:4:0:0:0:1/64',mypass], ['2001:620:600::1', 1, '2001:620:600:0:0:0:0:1/128',myfail], ['2001:620:600:0:1::1', 1,'2001:620:600:0:1:0:0:1/128',myfail], ); use NetAddr::IP::Lite qw(:old_nth); use Test::More; my($a, $ip, $test); $test = 4 * @addr + 4; plan tests => $test; $test = 1; sub tst { for $a (@addr) { $ip = new NetAddr::IP::Lite $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP::Lite', "$a->[0] "); # requires full NetAddr::IP # is(uc $ip->short, $a->[0], "short returns $a->[0]"); is($ip->bits, 128, "bits == 128"); is($ip->version, 6, "version == 6"); my $index = $a->[1]; if ($a->[3]) { is(uc $ip->nth($index), $a->[2], "nth $a->[0], $index"); } else { ok(!$ip->nth($index),"nth $a->[0], undef"); } } } tst(); $test = new NetAddr::IP::Lite 'f34::1'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); $test = new NetAddr::IP::Lite 'f35::1/40'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); Lite/t/v4-cnew.t 0000644 00000001223 15043770025 0007355 0 ustar 00 use NetAddr::IP::Lite; my @subnets = ( [ '127.1', '127.0.0.1/32' ], [ '127.1/16', '127.1.0.0/16' ], [ '10.10.10', '10.10.0.10/32' ], [ '10.10.10/24', '10.10.10.0/24' ], # include test for cisco syntax using space instead of '/' [ '127.1 16', '127.1.0.0/16' ], [ '10.10.10 24', '10.10.10.0/24' ], [ '10.10.10 255.255.255.0', '10.10.10.0/24' ], ); $| = 1; print '1..', (scalar @subnets) , "\n"; my $count = 1; for my $n (@subnets) { my $ip = new NetAddr::IP::Lite $n->[0]; if ($ip eq $n->[1]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } Lite/t/v4-range.t 0000644 00000003043 15043770025 0007517 0 ustar 00 use NetAddr::IP::Lite; use Test::More; my @ranges = ( [ '10.0.0.0/8', '10.0.0.0', '10.255.255.255' ], [ '192.168.0.0/16', '192.168.0.0', '192.168.255.255' ], ); my @weird = ( [ '128.111.12.0', '128.111.12.129' ], ); plan tests => 6 * @ranges + 2 * @weird + 28; for my $r (@ranges) { my $r1 = new NetAddr::IP::Lite $r->[1] . '-' . $r->[2]; isa_ok($r1, 'NetAddr::IP::Lite'); is($r1, $r->[0], "Correct interpretation (with space)"); $r1 = new NetAddr::IP::Lite $r->[1] . ' - ' . $r->[2]; isa_ok($r1, 'NetAddr::IP::Lite'); is($r1, $r->[0], "Correct interpretation (w/o space)"); $r1 = new NetAddr::IP::Lite $r->[0]; isa_ok($r1, 'NetAddr::IP::Lite'); is($r1->range, $r->[1] . ' - ' . $r->[2], "Correct reverse"); } for my $r (@weird) { my $r1 = new NetAddr::IP::Lite $r->[0] . '-' . $r->[1]; ok(! defined $r1, "Weird range w/o space produces undef"); $r1 = new NetAddr::IP::Lite $r->[0] . ' - ' . $r->[1]; ok(! defined $r1, "Weird range with space produces undef"); } for my $o (254, 252, 248, 240, 224, 192, 128) { my $r1 = new NetAddr::IP::Lite '0.0.0.0 - ' . $o . '.0.0.0'; ok(! defined $r1, "Weird $o range, first octet"); $r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.' . $o . '.0.0'; ok(! defined $r1, "Weird $o range, second octet"); $r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.0.' . $o . '.0'; ok(! defined $r1, "Weird $o range, third octet"); $r1 = new NetAddr::IP::Lite '0.0.0.0 - 0.0.0.' . $o; ok(! defined $r1, "Weird $o range, fourth octet"); } Lite/t/constants.t 0000644 00000000763 15043770025 0010116 0 ustar 00 #use diagnostics; use Test::More tests => 15; use NetAddr::IP::Lite qw(Zeros Zero Ones V4mask V4net); my %const = ( '0::' => Zeros, '::' => Zero, 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF' => Ones, 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::' => V4mask, '::FFFF:FFFF' => V4net, ); my($ip,$rv); foreach (sort keys %const) { ok(($ip = new NetAddr::IP::Lite($_)),"netaddr $_"); ok($ip->{addr} eq $const{$_},"match $_"); ok(($rv = length($const{$_})) == 16, "length $_ is $rv"); } Lite/t/v4_new_cis.t 0000644 00000003231 15043770025 0010133 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; use Test::More; my $binword; { local $SIG{__WARN__} = sub {}; $binword = eval "0b11111111111111110000000000000000"; } if ($@) { $binword = 0xffff0000; print STDERR "\t\tskipped! 0b11111111111111110000000000000000\n\t\tbinary bit strings unsupported in Perl version $]\n"; } @a = ( [ 'localhost', '127.0.0.1' ], [ 0x01010101, '1.1.1.1' ], [ 1, '1.0.0.0' ], # Because it will have a mask. 0.0.0.1 ow [ 'default', '0.0.0.0' ], [ 'any', '0.0.0.0' ], [-809041407, '207.199.2.1'], [3485925889, '207.199.2.1'], ); @m = ( [ 0, '0.0.0.0' ], [ 1, '128.0.0.0' ], [ 2, '192.0.0.0' ], [ 4, '240.0.0.0' ], [ 8, '255.0.0.0' ], [ 16, '255.255.0.0' ], [ 17, '255.255.128.0' ], [ 24, '255.255.255.0' ], [ 'default', '0.0.0.0' ], [ 32, '255.255.255.255' ], [ 'host', '255.255.255.255' ], [ 0xffffff00, '255.255.255.0' ], [ '255.255.255.240', '255.255.255.240' ], [ '255.255.128.0', '255.255.128.0' ], [ $binword, '255.255.0.0' ], ); plan tests => (4 * scalar @a * scalar @m) + 4; foreach my $invalid (qw( 256.1.1.1 256.256.1.1 256.256.256.1 256.256.256.256 )) { ok (! defined NetAddr::IP::Lite->new($invalid), "Invalid IP $invalid returns undef"); } for my $a (@a) { for my $m (@m) { my $ip = new_cis NetAddr::IP::Lite "$a->[0] $m->[0]"; SKIP: { skip "Failed to make an object for $a->[0]/$m->[0]", 4 unless defined $ip; is($ip->addr, $a->[1], "$a->[0] / $m->[0] is $a->[1]"); is($ip->mask, $m->[1], "$a->[0] / $m->[0] is $m->[1]"); is($ip->bits, 32, "$a->[0] / $m->[0] is 32 bits wide"); is($ip->version, 4, "$a->[0] / $m->[0] is version 4"); }; } } Lite/t/old-nth.t 0000644 00000000754 15043770025 0007447 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite qw(:old_nth); $| = 1; print "1..9\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip4 = NetAddr::IP::Lite->new('1.2.3.11/29'); my @try = qw( 0 undef 1 1.2.3.9 2 1.2.3.10 3 1.2.3.11 4 1.2.3.12 5 1.2.3.13 6 1.2.3.14 7 1.2.3.15 8 undef ); for (my $i=0;$i<@try;$i+=2) { my $rv = $ip4->nth($try[$i]); $rv = defined $rv ? $rv->addr : 'undef'; print "got: $rv, exp: $try[$i+1]\nnot " unless $rv eq $try[$i+1]; &ok; } Lite/t/v4-contains.t 0000644 00000003567 15043770025 0010254 0 ustar 00 use NetAddr::IP::Lite; my @yes_pairs = ( [ [ '127.0.0.0', '255.0.0.0' ], [ '127.0.0.1', '255.255.255.255'] ], [ [ '10.0.0.0', '255.255.255.0' ], [ '10.0.0.128', '255.255.255.128' ] ], [ [ '10.0.0.0', '255.0.0.0' ], [ '10.0.0.0', '255.0.0.0' ]], [ [ '10.0.0.0', '255.0.0.0' ], [ '10.0.0.1', '255.0.0.0' ]], [ [ '10.0.0.0', '255.255.255.254' ], [ '10.0.0.1', '255.255.255.254' ]], [ [ '10.0.0.0', '255.255.255.254' ], [ '10.0.0.1', '255.255.255.255' ]], [ [ '10.0.0.1', '255.0.0.0' ], [ '10.0.0.1', '255.255.255.255' ]], [ [ 'default', 'default' ], [ '10.0.0.1', '255.255.255.254' ]], [ [ 'default', 'default' ], [ 'broadcast', undef ]], [ [ 'loopback', '255.0.0.0' ], [ '127.0.0.0', '255.0.0.0' ] ], ); my @no_pairs = ( [ [ '127.0.0.1', '255.255.255.255' ], [ '127.0.0.0', '255.0.0.0' ] ], [ [ '10.0.0.0', '255.0.0.0' ], [ '11.0.0.0', '255.0.0.0' ] ], [ [ '10.0.1.0', '255.255.255.0' ], [ '10.0.2.0', '255.255.255.0' ] ], [ [ '10.0.0.1', '255.255.255.254' ], [ 'default', '0' ] ], ); $| = 1; print "1..", 2 * (scalar @yes_pairs + scalar @no_pairs), "\n"; my $count = 1; for my $p (@yes_pairs) { my $ip_a = new NetAddr::IP::Lite $p->[0]->[0], $p->[0]->[1]; my $ip_b = new NetAddr::IP::Lite $p->[1]->[0], $p->[1]->[1]; print (($ip_a->contains($ip_b) ? '' : 'not '), 'ok ', $count++, "\n"); print (($ip_b->within($ip_a) ? '' : 'not '), 'ok ', $count++, "\n"); # print "a = ", $ip_a->addr, "/", $ip_a->mask, "\n"; # print "b = ", $ip_b->addr, "/", $ip_b->mask, "\n"; } for my $p (@no_pairs) { my $ip_a = new NetAddr::IP::Lite $p->[0]->[0], $p->[0]->[1]; my $ip_b = new NetAddr::IP::Lite $p->[1]->[0], $p->[1]->[1]; print (($ip_a->contains($ip_b) ? 'not ' : ''), 'ok ', $count++, "\n"); print (($ip_b->within($ip_a) ? 'not ' : ''), 'ok ', $count++, "\n"); } Lite/t/old-num.t 0000644 00000000677 15043770025 0007461 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite qw(:old_nth); $| = 1; sub ok() { print 'ok ',$test++,"\n"; } my @try = qw( 10/32 0 10/31 1 10/30 3 ::1/128 0 ::1/127 1 ::1/126 3 1.2.3.11/29 7 FF::8B/125 7 ); print '1..',(@try/2),"\n"; $test = 1; foreach(my $i = 0;$i <=$#try;$i+= 2) { my $ip = NetAddr::IP::Lite->new($try[$i]); my $exp = $try[$i +1]; print "got: $_, exp: $exp\nnot " unless ($_ = $ip->num) == $exp; &ok; } Lite/t/v4-numeric.t 0000644 00000001467 15043770025 0010075 0 ustar 00 use NetAddr::IP::Lite; my $nets = { '10.0.0.0/20' => [ 167772160, 4294963200 ], '10.0.15.0/24' => [ 167776000, 4294967040 ], '192.168.0.0/24' => [ 3232235520, 4294967040], 'broadcast' => [ 4294967295, 4294967295], 'default' => [ 0, 0 ], }; $| = 1; print "1..", 4 * (scalar keys %$nets), "\n"; my $count = 1; for my $a (keys %$nets) { my $ip = new NetAddr::IP::Lite $a; my ($addr, $mask) = $ip->numeric; my $nip = new NetAddr::IP::Lite $addr, $mask; print '', ($nip ? '' : 'not '), 'ok ', $count++, "\n"; print '', ($nip and $nip->cidr eq $ip->cidr) ? '' : 'not ', 'ok ', $count ++, "\n"; print '', (($addr != $nets->{$a}->[0] ? 'not ' : ''), "ok ", $count++, "\n"); print '', (($mask != $nets->{$a}->[1] ? 'not ' : ''), "ok ", $count++, "\n"); } Lite/t/over_comp.t 0000644 00000002756 15043770025 0010077 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..21\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $four = new NetAddr::IP::Lite('::4'); $four->{val} = 4; my $five = new NetAddr::IP::Lite('::5'); $five->{val} = 5; my @t = ( # arg1 arg2 < <= == >= > <=> cmp $four, $four, 0, 1, 1, 1, 0, 0, 0, $four, $five, 1, 1, 0, 0, 0, -1, -1, $five, $four, 0, 0, 0, 1, 1, 1, 1, ); for (my $i = 0; $i< @t; $i+=9) { ## test '=' overloaded here my $arg1 = $t[$i]; my $arg2 = $t[$i+1]; my ($lt,$le,$eq,$ge,$gt,$nc,$cmp) = @t[$i+2,$i+3,$i+4,$i+5,$i+6,$i+7,$i+8]; ## test '<' print "failed $arg1->{val} < $arg2->{val}, got: $_, exp: $lt\nnot " unless ($_ = ($arg1 < $arg2)) == $lt; &ok; ## test '<=' print "failed $arg1->{val} <= $arg2->{val}, got: $_, exp: $le\nnot " unless ($_ = ($arg1 <= $arg2)) == $le; &ok; ## test '==' print "failed $arg1->{val} == $arg2->{val}, got: $_, exp: $eq\nnot " unless ($_ = ($arg1 == $arg2)) == $eq; &ok; ## test '>=' print "failed $arg1->{val} >= $arg2->{val}, got: $_, exp: $ge\nnot " unless ($_ = ($arg1 >= $arg2)) == $ge; &ok; ## test '>' print "failed $arg1->{val} > $arg2->{val}, got: $_, exp: $gt\nnot " unless ($_ = ($arg1 > $arg2)) == $gt; &ok; ## test '<=>' print "failed $arg1->{val} <=> $arg2->{val}, got: $_, exp: $nc\nnot " unless ($_ = ($arg1 <=> $arg2)) == $nc; &ok; ## test 'cmp' print "failed $arg1->{val} cmp $arg2->{val}, got: $_, exp: $cmp\nnot " unless ($_ = ($arg1 cmp $arg2)) == $cmp; &ok; } Lite/t/version.t 0000644 00000000741 15043770025 0007563 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..2\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('1.2.3.4/24'); my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); ## test version lo $exp = 4; my $version = $loip->version; print "got: $version, exp: $exp\nnot " unless $version == $exp; &ok; ## test version hi $exp = 6; $version = $hiip->version; print "got: $version, exp: $exp\nnot " unless $version == $exp; &ok; Lite/t/new-num.t 0000644 00000000662 15043770025 0007466 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; sub ok() { print 'ok ',$test++,"\n"; } my @try = qw( 10/32 1 10/31 2 10/30 2 ::1/128 1 ::1/127 2 ::1/126 2 1.2.3.11/29 6 FF::8B/125 6 ); print '1..',(@try/2),"\n"; $test = 1; foreach(my $i = 0;$i <=$#try;$i+= 2) { my $ip = NetAddr::IP::Lite->new($try[$i]); my $exp = $try[$i +1]; print "got: $_, exp: $exp\nnot " unless ($_ = $ip->num) == $exp; &ok; } Lite/t/broadcast.t 0000644 00000001327 15043770025 0010041 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..3\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::4/120'); ## test '""' just for the heck of it my $exp = 'FF00:0:0:0:0:0:0:4/120'; my $txt = sprintf("%s",$hiip); print 'got: ',$txt," exp: $exp\nnot " unless $txt eq $exp; &ok; ## test broadcast lo $exp = '0:0:0:0:0:0:102:3FF/120'; my $broad = $loip->broadcast; print 'got: ',$broad, " exp: $exp\nnot " unless $broad eq $exp; &ok; ## test broadcast hi $exp = 'FF00:0:0:0:0:0:0:FF/120'; $broad = $hiip->broadcast; print 'got: ',$broad, " exp: $exp\nnot " unless $broad eq $exp; &ok; Lite/t/v4-aton.t 0000644 00000003051 15043770025 0007363 0 ustar 00 use Test::More tests => 19; my @addr = ( [ 'localhost', '127.0.0.1' ], [ 'broadcast', '255.255.255.255' ], [ '254.254.0.1', '254.254.0.1' ], [ 'default', '0.0.0.0' ], [ '10.0.0.1', '10.0.0.1' ], ); my %addr = ( localhost => pack('N',0x7f000001), broadcast => pack('N',0xffffffff), '254.254.0.1' => pack('N',0xfefe0001), default => pack('N',0), '10.0.0.1' => pack('N',0x0a000001), '127.0.0.1' => pack('N',0x7f000001), '255.255.255.255' => pack('N',0xffffffff), '0.0.0.0' => pack('N',0), ); # local inet_aton, don't use perl's Socket sub l_inet_aton { my $rv = (exists $addr{$_[0]}) ? $addr{$_[0]} : undef; } # Verify that Accept_Binary_IP works... my $x; SKIP: { skip "Failed to load NetAddr::IP::Lite", 17 unless use_ok('NetAddr::IP::Lite'); ok(! defined NetAddr::IP::Lite->new("\1\1\1\1"), "binary unrecognized by default ". ($x ? $x->addr :'')); # This mimicks the actual use with :aton NetAddr::IP::Lite::import(':aton'); ok(defined ($x = NetAddr::IP::Lite->new("\1\1\1\1")), "...but can be recognized ". $x->addr); ok(!defined ($x = NetAddr::IP::Lite->new('bad rfc-952 characters')), "bad rfc-952 characters ". ($x ? $x->addr :'')); is(NetAddr::IP::Lite->new($_->[0])->aton, l_inet_aton($_->[1]), "->aton($_->[0])") for @addr; ok(defined NetAddr::IP::Lite->new(l_inet_aton($_->[1])), "->new aton($_->[1])") for @addr; is(NetAddr::IP::Lite->new(l_inet_aton($_->[1]))->addr, $_->[1], "->new aton($_->[1])") for @addr; }; Lite/t/lemasklen.t 0000644 00000000453 15043770025 0010051 0 ustar 00 use NetAddr::IP::Lite; my @masks = 0 .. 32; $| = 1; print '1..', scalar @masks, "\n"; my $count = 1; for my $m (@masks) { my $ip = new NetAddr::IP::Lite '10.0.0.1', $m; if ($ip->masklen == $m) { print "ok ", $count ++, "\n"; } else { print "not ok ", $count ++, "\n"; } } Lite/t/v6-new_cis6_base.t 0000644 00000004465 15043770025 0011145 0 ustar 00 # This -*- perl -*- code excercises the basic v6 functionality sub mypass() {1} sub myfail() {0} @addr = ( ['::', 3, '0:0:0:0:0:0:0:0/128',myfail], ['::1', 3, '0:0:0:0:0:0:0:1/128',myfail], ['F34::123 40', 2, 'F34:0:0:0:0:0:0:3/40',mypass], ['DEAD:BEEF::1 40', 2, 'DEAD:BEEF:0:0:0:0:0:3/40',mypass], ['1000::2 40', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['1000::2000 40', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['DEAD::CAFE 40', 0, 'DEAD:0:0:0:0:0:0:1/40',mypass], ['DEAD:BEEF::1 40', 3, 'DEAD:BEEF:0:0:0:0:0:4/40',mypass], ['DEAD:BEEF::1 40', 4, 'DEAD:BEEF:0:0:0:0:0:5/40',mypass], ['DEAD:BEEF::1 40', 5, 'DEAD:BEEF:0:0:0:0:0:6/40',mypass], ['DEAD:BEEF::1 40', 6, 'DEAD:BEEF:0:0:0:0:0:7/40',mypass], ['DEAD:BEEF::1 40', 7, 'DEAD:BEEF:0:0:0:0:0:8/40',mypass], ['DEAD:BEEF::1 40', 8, 'DEAD:BEEF:0:0:0:0:0:9/40',mypass], ['DEAD:BEEF::1 40', 254, 'DEAD:BEEF:0:0:0:0:0:FF/40',mypass], ['DEAD:BEEF::1 40', 255, 'DEAD:BEEF:0:0:0:0:0:100/40',mypass], ['DEAD:BEEF::1 40', 256, 'DEAD:BEEF:0:0:0:0:0:101/40',mypass], ['DEAD:BEEF::1 40', 65535, 'DEAD:BEEF:0:0:0:0:1:0/40',mypass], ['DEAD:BEEF::1 40', 65536, 'DEAD:BEEF:0:0:0:0:1:1/40',mypass], ['2001:620:0:4::/64', 0, '2001:620:0:4:0:0:0:1/64',mypass], ['3FFE:2000:0:4::/64', 0, '3FFE:2000:0:4:0:0:0:1/64',mypass], ['2001:620:600::1', 0, '2001:620:600:0:0:0:0:1/128',mypass], ['2001:620:600:0:1::1', 0,'2001:620:600:0:1:0:0:1/128',mypass], ); use NetAddr::IP::Lite; use Test::More; my($a, $ip, $test); $test = 4 * @addr + 4; plan tests => $test; $test = 1; sub tst { for $a (@addr) { $ip = new_cis6 NetAddr::IP::Lite $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP::Lite', "$a->[0] "); # requires full NetAddr::IP # is(uc $ip->short, $a->[0], "short returns $a->[0]"); is($ip->bits, 128, "bits == 128"); is($ip->version, 6, "version == 6"); my $index = $a->[1]; if ($a->[3]) { is(uc $ip->nth($index), $a->[2], "nth $a->[0], $index"); } else { ok(!$ip->nth($index),"nth $a->[0], undef"); } } } tst(); $test = new_cis6 NetAddr::IP::Lite 'f34::1'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); $test = new_cis6 NetAddr::IP::Lite 'f35::1 40'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); Lite/t/loops.t 0000644 00000001343 15043770025 0007231 0 ustar 00 use NetAddr::IP::Lite; $| = 1; my @deltas = (0, 1, 2, 3, 255); print "1..", 15 + @deltas, "\n"; my $count = 1; for (my $ip = new NetAddr::IP::Lite '10.0.0.1/28'; $ip < $ip->broadcast; $ip ++) { my $o = $ip->addr; $o =~ s/^.+\.(\d+)$/$1/; if ($o == $count) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } my $ip = new NetAddr::IP::Lite '10.0.0.255/24'; $ip ++; if ($ip eq '10.0.0.0/24') { print "ok $count\n"; } else { print "not ok $count\n"; } ++$count; $ip = new NetAddr::IP::Lite '10.0.0.0/24'; for my $v (@deltas) { if ($ip + $v eq '10.0.0.' . $v . '/24') { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } Lite/t/v4-last.t 0000644 00000001252 15043770025 0007366 0 ustar 00 use NetAddr::IP::Lite; my %w = ('default' => [ '255.255.255.254', '0.0.0.0' ], 'loopback' => [ '127.255.255.254', '255.0.0.0' ], '127.0.0.1/8' => [ '127.255.255.254', '255.0.0.0' ], '10.' => [ '10.255.255.254', '255.0.0.0' ], '10.10.10/24' => [ '10.10.10.254', '255.255.255.0' ], ); $| = 1; print '1..', (2 * scalar keys %w), "\n"; my $count = 1; for my $a (keys %w) { my $ip = NetAddr::IP::Lite->new($a)->last; if ($ip->addr eq $w{$a}->[0]) { print "ok ", $count++, "\n"; } else { print "not ok ", $count++, "\n"; } if ($ip->mask eq $w{$a}->[1]) { print "ok ", $count++, "\n"; } else { print "not ok ", $count++, "\n"; } } Lite/t/bug62521.t 0000644 00000000727 15043770025 0007257 0 ustar 00 BEGIN { $| = 1; print "1..3\n"; } END {print "not ok 1\n" unless $loaded;} $loaded = 1; print "ok 1\n"; #use diagnostics; use NetAddr::IP::Lite; $| = 1; my $test = 2; sub ok() { print 'ok ',$test++,"\n"; } $exp = '0:0:0:0:0:0:7F00:0/104'; my $ip = new6 NetAddr::IP::Lite('127.0.0.0/8'); print "exp $exp\ngot ", $ip, "\nnot " unless $ip eq $exp; &ok; $ip = new6 NetAddr::IP::Lite('127/8'); print "exp $exp\ngot ", $ip, "\nnot " unless $ip eq $exp; &ok; Lite/t/v4-cidr.t 0000644 00000000747 15043770025 0007354 0 ustar 00 use NetAddr::IP::Lite; $| = 1; my @addr = (qw( 0.0.0.0/0 1.0.0.0/1 2.0.0.0/2 10.0.0.0/8 10.0.120.0/24 161.196.66.0/25 255.255.255.255/32 )); print '1..', scalar @addr, "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP::Lite $a; if ($ip->cidr eq $a) { print "ok ", $count ++, "\n"; } else { print "not ok ", $count ++, "\n"; print "$a -> ", $ip->cidr, " [", $ip->mask, "]\n"; } } Lite/t/v4-basem.t 0000644 00000001112 15043770025 0007505 0 ustar 00 use NetAddr::IP::Lite; my $nets = { '10.0.0.16' => [ 24, '10.0.0.255', '10.0.0.0' ], '127.0.0.1' => [ 8, '127.255.255.255', '127.0.0.0' ], '192.168.0.10' => [ 17, '192.168.127.255', '192.168.0.0' ], }; $| = 1; print "1..", (2 * scalar keys %$nets), "\n"; my $count = 1; for my $a (keys %$nets) { my $ip = new NetAddr::IP::Lite $a, $nets->{$a}->[0]; print '', (($ip->broadcast->addr ne $nets->{$a}->[1] ? 'not ' : ''), "ok ", $count++, "\n"); print '', (($ip->network->addr ne $nets->{$a}->[2] ? 'not ' : ''), "ok ", $count++, "\n"); } Lite/t/v4-snew.t 0000644 00000002052 15043770025 0007376 0 ustar 00 use Test::More; use NetAddr::IP::Lite; my %w = ('broadcast' => [ '255.255.255.255', '255.255.255.255' ], 'default' => [ '0.0.0.0', '0.0.0.0' ], 'loopback' => [ '127.0.0.1', '255.0.0.0' ], '10.' => [ '10.0.0.0', '255.0.0.0' ], '10/8' => [ '10.0.0.0', '255.0.0.0' ], '127/8' => [ '127.0.0.0', '255.0.0.0' ], '11.11.' => [ '11.11.0.0', '255.255.0.0' ], '12.12.12.' => [ '12.12.12.0', '255.255.255.0' ], '13.13.13.13' => [ '13.13.13.13', '255.255.255.255' ], '0-127' => [ '0.0.0.0', '128.0.0.0' ], '128-255' => [ '128.0.0.0', '128.0.0.0' ], '0-63' => [ '0.0.0.0', '192.0.0.0' ], '128-191' => [ '128.0.0.0', '192.0.0.0' ], '10.128.0-127' => [ '10.128.0.0', '255.255.128.0' ], '10.10.10/24' => [ '10.10.10.0', '255.255.255.0' ], '10.10/16' => [ '10.10.0.0', '255.255.0.0' ], '10.10.10' => [ '10.10.0.10', '255.255.255.255' ], ); plan tests => 2 * scalar keys %w; for my $a (keys %w) { my $ip = new NetAddr::IP::Lite $a; is($ip->addr, $w{$a}->[0], "Matching ->addr()"); is($ip->mask, $w{$a}->[1], "Matching ->mask()"); } Lite/t/bin_ips.t 0000644 00000003727 15043770025 0007530 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; sub ok() { print 'ok ',$test++,"\n"; } print "1..10\n"; $test = 1; ############## test new6 my $exp = '0:0:0:0:0:0:0:3039/1'; my $ip = NetAddr::IP::Lite->new6(12345,1); my $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; $ip = NetAddr::IP::Lite->new6('12345',1); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; $ip = NetAddr::IP::Lite->new6('12345/1'); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; # 2^127 170141183460469231731687303715884105728 $exp = '8000:0:0:0:0:0:0:0/1'; $ip = NetAddr::IP::Lite->new6('170141183460469231731687303715884105728/1'); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; # 2^128 340282366920938463463374607431768211456 # minus one $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF/1'; $ip = NetAddr::IP::Lite->new6('340282366920938463463374607431768211455/1'); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; ############# test new $exp = '0.0.48.57/1'; $ip = NetAddr::IP::Lite->new(12345,1); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; $ip = NetAddr::IP::Lite->new('12345',1); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; $ip = NetAddr::IP::Lite->new('12345/1'); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; # 2^127 170141183460469231731687303715884105728 $exp = '8000:0:0:0:0:0:0:0/1'; $ip = NetAddr::IP::Lite->new('170141183460469231731687303715884105728/1'); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; # 2^128 340282366920938463463374607431768211456 # minus one $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF/1'; $ip = NetAddr::IP::Lite->new('340282366920938463463374607431768211455/1'); $got = $ip->cidr(); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; Lite/t/firstlast.t 0000644 00000002247 15043770025 0010114 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..8\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip4 = NetAddr::IP::Lite->new('1.2.3.11/29'); my $ip6 = NetAddr::IP::Lite->new('FF::8B/125'); my $exp = '1.2.3.9'; my $rv = $ip4->first->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $exp = '1.2.3.14'; $rv = $ip4->last->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $exp = 'FF:0:0:0:0:0:0:89'; $rv = $ip6->first->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $exp = 'FF:0:0:0:0:0:0:8E'; $rv = $ip6->last->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $ip4 = NetAddr::IP::Lite->new('1.2.3.11/31'); $ip6 = NetAddr::IP::Lite->new('FF::8B/127'); $exp = '1.2.3.10'; $rv = $ip4->first->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $exp = '1.2.3.11'; $rv = $ip4->last->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $exp = 'FF:0:0:0:0:0:0:8A'; $rv = $ip6->first->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; $exp = 'FF:0:0:0:0:0:0:8B'; $rv = $ip6->last->addr; print "got: $rv, exp: $exp\nnot " unless $rv eq $exp; &ok; Lite/t/v6-old-base-uri.t 0000644 00000004540 15043770025 0010713 0 ustar 00 # This -*- perl -*- code excercises the basic v6 functionality sub mypass() {1} sub myfail() {0} @addr = ( ['[::]', 3, '0:0:0:0:0:0:0:0/128',myfail], ['[::1]', 3, '0:0:0:0:0:0:0:1/128',myfail], ['[F34::123/40]', 3, 'F34:0:0:0:0:0:0:3/40',mypass], ['[DEAD:BEEF::1/40]', 3, 'DEAD:BEEF:0:0:0:0:0:3/40',mypass], ['[1000::2/40]', 1, '1000:0:0:0:0:0:0:1/40',mypass], ['[1000::2000/40]', 1, '1000:0:0:0:0:0:0:1/40',mypass], ['[DEAD::CAFE/40]', 1, 'DEAD:0:0:0:0:0:0:1/40',mypass], ['[DEAD:BEEF::1/40]', 4, 'DEAD:BEEF:0:0:0:0:0:4/40',mypass], ['[DEAD:BEEF::1/40]', 5, 'DEAD:BEEF:0:0:0:0:0:5/40',mypass], ['[DEAD:BEEF::1/40]', 6, 'DEAD:BEEF:0:0:0:0:0:6/40',mypass], ['[DEAD:BEEF::1/40]', 7, 'DEAD:BEEF:0:0:0:0:0:7/40',mypass], ['[DEAD:BEEF::1/40]', 8, 'DEAD:BEEF:0:0:0:0:0:8/40',mypass], ['[DEAD:BEEF::1/40]', 9, 'DEAD:BEEF:0:0:0:0:0:9/40',mypass], ['[DEAD:BEEF::1/40]', 255, 'DEAD:BEEF:0:0:0:0:0:FF/40',mypass], ['[DEAD:BEEF::1/40]', 256, 'DEAD:BEEF:0:0:0:0:0:100/40',mypass], ['[DEAD:BEEF::1/40]', 257, 'DEAD:BEEF:0:0:0:0:0:101/40',mypass], ['[DEAD:BEEF::1/40]', 65536, 'DEAD:BEEF:0:0:0:0:1:0/40',mypass], ['[DEAD:BEEF::1/40]', 65537, 'DEAD:BEEF:0:0:0:0:1:1/40',mypass], ['[2001:620:0:4::/64]', 1, '2001:620:0:4:0:0:0:1/64',mypass], ['[3FFE:2000:0:4::/64]', 1, '3FFE:2000:0:4:0:0:0:1/64',mypass], ['[2001:620:600::1]', 1, '2001:620:600:0:0:0:0:1/128',myfail], ['[2001:620:600:0:1::1]', 1,'2001:620:600:0:1:0:0:1/128',myfail], ); use NetAddr::IP::Lite qw(:old_nth); use Test::More; my($a, $ip, $test); $test = 4 * @addr + 4; plan tests => $test; $test = 1; sub tst { for $a (@addr) { $ip = new NetAddr::IP::Lite $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP::Lite', "$a->[0] "); # requires full NetAddr::IP # is(uc $ip->short, $a->[0], "short returns $a->[0]"); is($ip->bits, 128, "bits == 128"); is($ip->version, 6, "version == 6"); my $index = $a->[1]; if ($a->[3]) { is(uc $ip->nth($index), $a->[2], "nth $a->[0], $index"); } else { ok(!$ip->nth($index),"nth $a->[0], undef"); } } } tst(); $test = new NetAddr::IP::Lite 'f34::1'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); $test = new NetAddr::IP::Lite 'f35::1/40'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); Lite/t/v6-new_cis_base.t 0000644 00000004462 15043770025 0011054 0 ustar 00 # This -*- perl -*- code excercises the basic v6 functionality sub mypass() {1} sub myfail() {0} @addr = ( ['::', 3, '0:0:0:0:0:0:0:0/128',myfail], ['::1', 3, '0:0:0:0:0:0:0:1/128',myfail], ['F34::123 40', 2, 'F34:0:0:0:0:0:0:3/40',mypass], ['DEAD:BEEF::1 40', 2, 'DEAD:BEEF:0:0:0:0:0:3/40',mypass], ['1000::2 40', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['1000::2000 40', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['DEAD::CAFE 40', 0, 'DEAD:0:0:0:0:0:0:1/40',mypass], ['DEAD:BEEF::1 40', 3, 'DEAD:BEEF:0:0:0:0:0:4/40',mypass], ['DEAD:BEEF::1 40', 4, 'DEAD:BEEF:0:0:0:0:0:5/40',mypass], ['DEAD:BEEF::1 40', 5, 'DEAD:BEEF:0:0:0:0:0:6/40',mypass], ['DEAD:BEEF::1 40', 6, 'DEAD:BEEF:0:0:0:0:0:7/40',mypass], ['DEAD:BEEF::1 40', 7, 'DEAD:BEEF:0:0:0:0:0:8/40',mypass], ['DEAD:BEEF::1 40', 8, 'DEAD:BEEF:0:0:0:0:0:9/40',mypass], ['DEAD:BEEF::1 40', 254, 'DEAD:BEEF:0:0:0:0:0:FF/40',mypass], ['DEAD:BEEF::1 40', 255, 'DEAD:BEEF:0:0:0:0:0:100/40',mypass], ['DEAD:BEEF::1 40', 256, 'DEAD:BEEF:0:0:0:0:0:101/40',mypass], ['DEAD:BEEF::1 40', 65535, 'DEAD:BEEF:0:0:0:0:1:0/40',mypass], ['DEAD:BEEF::1 40', 65536, 'DEAD:BEEF:0:0:0:0:1:1/40',mypass], ['2001:620:0:4::/64', 0, '2001:620:0:4:0:0:0:1/64',mypass], ['3FFE:2000:0:4::/64', 0, '3FFE:2000:0:4:0:0:0:1/64',mypass], ['2001:620:600::1', 0, '2001:620:600:0:0:0:0:1/128',mypass], ['2001:620:600:0:1::1', 0,'2001:620:600:0:1:0:0:1/128',mypass], ); use NetAddr::IP::Lite; use Test::More; my($a, $ip, $test); $test = 4 * @addr + 4; plan tests => $test; $test = 1; sub tst { for $a (@addr) { $ip = new_cis NetAddr::IP::Lite $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP::Lite', "$a->[0] "); # requires full NetAddr::IP # is(uc $ip->short, $a->[0], "short returns $a->[0]"); is($ip->bits, 128, "bits == 128"); is($ip->version, 6, "version == 6"); my $index = $a->[1]; if ($a->[3]) { is(uc $ip->nth($index), $a->[2], "nth $a->[0], $index"); } else { ok(!$ip->nth($index),"nth $a->[0], undef"); } } } tst(); $test = new_cis NetAddr::IP::Lite 'f34::1'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); $test = new_cis NetAddr::IP::Lite 'f35::1 40'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); Lite/t/bigint.t 0000644 00000016015 15043770025 0007353 0 ustar 00 use strict; #use diagnostics; use Test::More; use NetAddr::IP::Lite; use NetAddr::IP::Util qw( bcd2bin bin2bcd addconst shiftleft ); use Data::Dumper; sub badd { # function to add a small int to bignum string my($n,$i) = @_; my $v = bcd2bin($n); (undef,$v) = addconst($v,$i); bin2bcd($v); } sub xpo2 { # function to do a n^2 multiplication my($n,$x) = @_; my $v = bcd2bin($n); my $c = 0; while ($x >>= 1) {$c++} $v = shiftleft($v,$c); bin2bcd($v); } my $no_mbi_emu = 1; # set this to "1" for normal, "0" for development unless (eval{ $no_mbi_emu && require Math::BigInt }) { if ($no_mbi_emu) { print "1..1\nok 1 # skipped all, Math::BigInt not found\n"; exit; } &NetAddr::IP::Lite::_force_bi_emu; package Math::BigInt; my $badd = \&main::badd; require overload; import overload '""' => sub { ${$_[0]} =~ /(\d+)/; return $1; }, '+' => sub { ${$_[0]} =~ /(\d+)/; $b = '+'. main::badd($1,$_[1]); bless \$b; }; *new = \&NetAddr::IP::Lite::_bi_fake; } my @exp = (qw( 255.255.255.253/32 4294967293 4294967295 255.255.255.254/32 4294967294 4294967295 255.255.255.255/32 4294967295 4294967295 0:0:0:0:0:1:0:0/128 4294967296 4294967295 0:0:0:0:0:1:0:1/128 4294967297 4294967295 0:0:0:0:0:1:0:2/128 4294967298 4294967295 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFD/128 340282366920938463463374607431768211453 340282366920938463463374607431768211455 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE/128 340282366920938463463374607431768211454 340282366920938463463374607431768211455 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF/128 340282366920938463463374607431768211455 340282366920938463463374607431768211455 0.0.0.0/32 0 4294967295 0.0.0.1/32 1 4294967295 0.0.0.2/32 2 4294967295 123.45.67.89/32 2066563929 4294967295 123.45.67.89/28 2066563929 4294967280 123.45.67.89/24 2066563929 4294967040 123.45.67.89/20 2066563929 4294963200 123.45.67.89/16 2066563929 4294901760 123.45.67.89/12 2066563929 4293918720 123.45.67.89/8 2066563929 4278190080 123.45.67.89/4 2066563929 4026531840 123.45.67.89/0 2066563929 0 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/128 170145699920964442595609400891477785294 340282366920938463463374607431768211455 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/124 170145699920964442595609400891477785294 340282366920938463463374607431768211440 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/120 170145699920964442595609400891477785294 340282366920938463463374607431768211200 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/116 170145699920964442595609400891477785294 340282366920938463463374607431768207360 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/112 170145699920964442595609400891477785294 340282366920938463463374607431768145920 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/108 170145699920964442595609400891477785294 340282366920938463463374607431767162880 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/104 170145699920964442595609400891477785294 340282366920938463463374607431751434240 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/100 170145699920964442595609400891477785294 340282366920938463463374607431499776000 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/96 170145699920964442595609400891477785294 340282366920938463463374607427473244160 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/92 170145699920964442595609400891477785294 340282366920938463463374607363048734720 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/88 170145699920964442595609400891477785294 340282366920938463463374606332256583680 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/84 170145699920964442595609400891477785294 340282366920938463463374589839582167040 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/80 170145699920964442595609400891477785294 340282366920938463463374325956791500800 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/76 170145699920964442595609400891477785294 340282366920938463463370103832140840960 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/72 170145699920964442595609400891477785294 340282366920938463463302549837730283520 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/68 170145699920964442595609400891477785294 340282366920938463462221685927161364480 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/64 170145699920964442595609400891477785294 340282366920938463444927863358058659840 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/60 170145699920964442595609400891477785294 340282366920938463168226702252415385600 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/56 170145699920964442595609400891477785294 340282366920938458741008124562122997760 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/52 170145699920964442595609400891477785294 340282366920938387905510881517444792320 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/48 170145699920964442595609400891477785294 340282366920937254537554992802593505280 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/44 170145699920964442595609400891477785294 340282366920919120650260773364972912640 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/40 170145699920964442595609400891477785294 340282366920628978453553262363043430400 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/36 170145699920964442595609400891477785294 340282366915986703306233086332171714560 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/32 170145699920964442595609400891477785294 340282366841710300949110269838224261120 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/28 170145699920964442595609400891477785294 340282365653287863235145205935065006080 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/24 170145699920964442595609400891477785294 340282346638528859811704183484516925440 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/20 170145699920964442595609400891477785294 340282042402384805036647824275747635200 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/16 170145699920964442595609400891477785294 340277174624079928635746076935438991360 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/12 170145699920964442595609400891477785294 340199290171201906221318119490500689920 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/8 170145699920964442595609400891477785294 338953138925153547590470800371487866880 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/4 170145699920964442595609400891477785294 319014718988379809496913694467282698240 8000:DEAD:BEEF:4:CAFE:BAD:2:FACE/0 170145699920964442595609400891477785294 0 )); my $ptr = 0; my $max = @exp -11; plan tests => $max || 1; sub run { foreach(1..5) { my $ip = new NetAddr::IP::Lite($exp[$ptr]); my $mbi = $ip->bigint(); $mbi = $mbi + 1; #print $ip,"\n"; #print Dumper $mbi; #print $exp[$ptr+1],"\n"; like($mbi, qr/(?:0|$exp[$ptr+4])/); $ip = new NetAddr::IP::Lite($mbi); is($ip, $exp[$ptr+3]); pass(); # ignore mask for these tests $ptr += 3; } } run(); $ptr += 3; run(); $ptr += 3; sub mrun { my $n = shift; foreach(1..$n) { my $ip = new NetAddr::IP::Lite($exp[$ptr]); my ($mbia,$mbim) = $ip->bigint(); my($ary,$msk,$eip) = @exp[$ptr+1,$ptr+2,$ptr+3]; $ptr += 3; #print $msk,"\n"; #print Dumper $mbia; #print Dumper $mbim; like($mbia, qr/$ary/); like($mbim, qr/$msk/); my $len = $ip->masklen(); last unless $len; last if $ptr > $max + 200; # loop stop, just in case #print Dumper $mbim; $mbim = new Math::BigInt($exp[$ptr+2]); #print Dumper $mbim; #print Dumper $mbia; $ip = new NetAddr::IP::Lite($mbia,$mbim); is($ip, $eip); #print '|',$ip,"|\n"; } } mrun(9); $ptr += 3; mrun(32); Lite/t/lower.t 0000644 00000000350 15043770025 0007222 0 ustar 00 #use diagnostics; use Test::More tests => 2; use_ok ('NetAddr::IP::Lite', qw(:lower)); my $exp = 'ff:0:0:0:0:0:0:eeaa/128'; my $ip = new NetAddr::IP::Lite('FF::eeAA'); my $got = sprintf $ip; ok ($got eq $exp,"lower case $got"); Lite/t/v6-cnew.t 0000644 00000001277 15043770025 0007370 0 ustar 00 use NetAddr::IP::Lite; my @subnets = ( [ 'dead:beef:1234::/16', 'DEAD:BEEF:1234:0:0:0:0:0/16' ], [ '::1234:BEEF:DEAD/24', '0:0:0:0:0:1234:BEEF:DEAD/24' ], # include test for cisco syntax using space instead of '/' [ 'dead:beef:1234:: 16', 'DEAD:BEEF:1234:0:0:0:0:0/16' ], [ '::1234:BEEF:DEAD 24', '0:0:0:0:0:1234:BEEF:DEAD/24' ], [ '::1234:BEEF:DEAD FFFF:FF00::', '0:0:0:0:0:1234:BEEF:DEAD/24' ], ); $| = 1; print '1..', (scalar @subnets) , "\n"; my $count = 1; for my $n (@subnets) { my $ip = new NetAddr::IP::Lite $n->[0]; if ($ip eq $n->[1]) { print "ok $count\n"; } else { print $ip, "\nnot ok $count\n"; } ++ $count; } Lite/t/mask.t 0000644 00000001674 15043770025 0007037 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..4\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24 my $hiip = new NetAddr::IP::Lite('FF00::1:4/120'); my $dqip = new NetAddr::IP::Lite('1.2.3.4/24'); ## test '""' just for the heck of it my $exp = 'FF00:0:0:0:0:0:1:4/120'; my $txt = sprintf("%s",$hiip); print 'got: ',$txt," exp: $exp\nnot " unless $txt eq $exp; &ok; ## test lo ip $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00'; my $mask = $loip->mask; print "got: $mask, exp: $exp\nnot " unless $mask eq $exp && ! ref $mask; &ok; ## test mask hi $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00'; $mask = $hiip->mask; print "got: $mask, exp: $exp\nnot " unless $mask eq $exp && ! ref $mask; &ok; ## test mask dot quad $exp = '255.255.255.0'; $mask = $dqip->mask; print "got: $mask, exp: $exp\nnot " unless $mask eq $exp && ! ref $mask; &ok; Lite/t/v4-num.t 0000644 00000001426 15043770025 0007225 0 ustar 00 use NetAddr::IP::Lite; my $nets = { '10.1.2.3' => [ 32, 0 ], '10.2.3.4' => [ 31, 1 ], '10.0.0.16' => [ 24, 255 ], '10.128.0.1' => [ 8, 2 ** 24 - 1 ], '10.0.0.5' => [ 30, 3 ], '0.0.0.0' => [ 0, 2 ** 32 -1 ], }; my $new = 1; # flag for old vs new numeric returns $| = 1; $test = keys %$nets; $test *= 2; print "1..", $test, "\n"; $test = 1; sub tst { for my $a (keys %$nets) { my $nc = $nets->{$a}->[1] - $new; # net count $nc = 1 if $nc < 0; $nc = 2 if $new && $nets->{$a}->[0] == 31; # special case for /31, /127 my $ip = new NetAddr::IP::Lite $a, $nets->{$a}->[0]; print "got: $_, exp: $nc\nnot " unless ($_ = $ip->num) == $nc; print "ok ", $test++, "\n"; } } tst(); import NetAddr::IP::Lite qw(:old_nth); $new = 0; tst(); Lite/t/over-qq.t 0000644 00000001362 15043770025 0007470 0 ustar 00 use NetAddr::IP::Lite; my @addr = ('10.0.0.0/8', '192.168.0.0/16', '127.0.0.1/32'); $| = 1; print "1..", 5 * scalar @addr, "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP::Lite $a; if ($a eq "$ip") { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($a eq $ip) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($ip eq $a) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($ip eq $ip) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($ip == $ip) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } Lite/t/relops.t 0000644 00000003044 15043770025 0007401 0 ustar 00 use NetAddr::IP::Lite; BEGIN { @gt = ( [ '255.255.255.255/32', '0.0.0.0/0' ], [ 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff', '::/0' ], [ '10.0.1.0/16', '10.0.0.1/24' ], [ '10.0.0.1/24', '10.0.0.0/24' ], [ 'deaf:beef::1/64', 'dead:beef::/64' ], ); @ngt = ( [ '0.0.0.0/0', '255.255.255.255/32' ], [ '::/0', 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff' ], [ '10.0.0.0/24', '10.0.0.0/24' ], [ 'dead:beef::/60', 'dead:beef::/60' ], ); @cmp = ( [ '0.0.0.0/0', '255.255.255.255/32', -1 ], [ '::/0', 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff', -1 ], [ '10.0.0.0/16', '10.0.0.0/8', 1 ], [ 'dead:beef::/60', 'dead:beef::/40', 1 ], [ '10.0.0.0/24', '10.0.0.0/8', 1 ], [ '255.255.255.255/32', '0.0.0.0/0', 1 ], [ 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff', '::/0', 1 ], [ '142.52.5.87', '142.52.2.88', 1 ], [ '10.0.0.0/24', '10.0.0.0/24', 0 ], [ 'default', 'default', 0 ], [ 'broadcast', 'broadcast', 0], [ 'loopback', 'loopback', 0], ); }; use Test::More tests => @gt + @ngt + (2 * @cmp); for my $a (@gt) { $a_ip = new NetAddr::IP::Lite $a->[0]; $b_ip = new NetAddr::IP::Lite $a->[1]; ok($a_ip > $b_ip, "$a_ip > $b_ip"); } for my $a (@ngt) { $a_ip = new NetAddr::IP::Lite $a->[0]; $b_ip = new NetAddr::IP::Lite $a->[1]; ok(!($a_ip > $b_ip), "$a_ip !> $b_ip"); } for $a (@cmp) { $a_ip = new NetAddr::IP::Lite $a->[0]; $b_ip = new NetAddr::IP::Lite $a->[1]; is($a_ip <=> $b_ip, $a->[2], "$a_ip <=> $b_ip is $a->[2]"); is($a_ip cmp $b_ip, $a->[2], "$a_ip cmp $b_ip is $a->[2]"); } Lite/t/is_local.t 0000644 00000000724 15043770025 0007664 0 ustar 00 #use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..9\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my @ips = qw( 126.255.255.255 0 127.0.0.0 1 127.0.0.1 1 127.255.255.254 1 127.255.255.255 1 128.0.0.0 0 ::0 0 ::1 1 ::2 0 ); for (my $i=0;$i<=$#ips;$i+=2) { my $ip = new NetAddr::IP::Lite($ips[$i]); my $got = $ip->is_local(); my $exp = $ips[$i+1]; print $ip," got: $got, exp: $exp\nnot " unless $got == $exp; &ok; } Lite/t/v4-badnm.t 0000644 00000001756 15043770025 0007515 0 ustar 00 # I know this does not look like -*- perl -*-, but I swear it is... use strict; use Test::More; $| = 1; my @badnets = ( '10.10.10.10/255.255.0.255', '10.10.10.10/255.0.255.255', '10.10.10.10/0.255.255.255', '10.10.10.10/128.255.0.255', '10.10.10.10/255.128.0.255', '10.10.10.10/255.255.255.129', '10.10.10.10/255.255.129.0', '10.10.10.10/255.255.255.130', '10.10.10.10/255.255.130.0', '10.10.10.10/255.0.0.1', '10.10.10.10/255.129.0.1', '10.10.10.10/0.255.0.255', '58.26.0.0-58.27.127.255', # Taken from APNIC's WHOIS case ); my @goodnets = (); push @goodnets, "10.0.0.1/$_" for (0 .. 32); push @goodnets, "10.0.0.1/255.255.255.255"; plan tests => 1 + @badnets + @goodnets; die "# Cannot continue without NetAddr::IP::Lite\n" unless use_ok('NetAddr::IP::Lite'); my $count = 1; ok(! defined NetAddr::IP::Lite->new($_), "new $_ should fail") for @badnets; ok(defined NetAddr::IP::Lite->new($_), "new $_ should work") for @goodnets; Lite/t/v6-new-base-uri.t 0000644 00000004523 15043770025 0010727 0 ustar 00 # This -*- perl -*- code excercises the basic v6 functionality sub mypass() {1} sub myfail() {0} @addr = ( ['[::]', 3, '0:0:0:0:0:0:0:0/128',myfail], ['[::1]', 3, '0:0:0:0:0:0:0:1/128',myfail], ['[F34::123/40]', 2, 'F34:0:0:0:0:0:0:3/40',mypass], ['[DEAD:BEEF::1/40]', 2, 'DEAD:BEEF:0:0:0:0:0:3/40',mypass], ['[1000::2/40]', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['[1000::2000/40]', 0, '1000:0:0:0:0:0:0:1/40',mypass], ['[DEAD::CAFE/40]', 0, 'DEAD:0:0:0:0:0:0:1/40',mypass], ['[DEAD:BEEF::1/40]', 3, 'DEAD:BEEF:0:0:0:0:0:4/40',mypass], ['[DEAD:BEEF::1/40]', 4, 'DEAD:BEEF:0:0:0:0:0:5/40',mypass], ['[DEAD:BEEF::1/40]', 5, 'DEAD:BEEF:0:0:0:0:0:6/40',mypass], ['[DEAD:BEEF::1/40]', 6, 'DEAD:BEEF:0:0:0:0:0:7/40',mypass], ['[DEAD:BEEF::1/40]', 7, 'DEAD:BEEF:0:0:0:0:0:8/40',mypass], ['[DEAD:BEEF::1/40]', 8, 'DEAD:BEEF:0:0:0:0:0:9/40',mypass], ['[DEAD:BEEF::1/40]', 254, 'DEAD:BEEF:0:0:0:0:0:FF/40',mypass], ['[DEAD:BEEF::1/40]', 255, 'DEAD:BEEF:0:0:0:0:0:100/40',mypass], ['[DEAD:BEEF::1/40]', 256, 'DEAD:BEEF:0:0:0:0:0:101/40',mypass], ['[DEAD:BEEF::1/40]', 65535, 'DEAD:BEEF:0:0:0:0:1:0/40',mypass], ['[DEAD:BEEF::1/40]', 65536, 'DEAD:BEEF:0:0:0:0:1:1/40',mypass], ['[2001:620:0:4::/64]', 0, '2001:620:0:4:0:0:0:1/64',mypass], ['[3FFE:2000:0:4::/64]', 0, '3FFE:2000:0:4:0:0:0:1/64',mypass], ['[2001:620:600::1]', 0, '2001:620:600:0:0:0:0:1/128',mypass], ['[2001:620:600:0:1::1]', 0,'2001:620:600:0:1:0:0:1/128',mypass], ); use NetAddr::IP::Lite; use Test::More; my($a, $ip, $test); $test = 4 * @addr + 4; plan tests => $test; $test = 1; sub tst { for $a (@addr) { $ip = new NetAddr::IP::Lite $a->[0]; $a->[0] =~ s,/\d+,,; isa_ok($ip, 'NetAddr::IP::Lite', "$a->[0] "); # requires full NetAddr::IP # is(uc $ip->short, $a->[0], "short returns $a->[0]"); is($ip->bits, 128, "bits == 128"); is($ip->version, 6, "version == 6"); my $index = $a->[1]; if ($a->[3]) { is(uc $ip->nth($index), $a->[2], "nth $a->[0], $index"); } else { ok(!$ip->nth($index),"nth $a->[0], undef"); } } } tst(); $test = new NetAddr::IP::Lite 'f34::1'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); $test = new NetAddr::IP::Lite 'f35::1/40'; isa_ok($test, 'NetAddr::IP::Lite'); ok($test->network->contains($test), "->contains"); Lite/t/range.t 0000644 00000001037 15043770025 0007171 0 ustar 00 #use diagnostics; use NetAddr::IP::Util qw( inet_ntoa ipv6_n2x ); use NetAddr::IP::Lite; $| = 1; print "1..2\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $loip = new NetAddr::IP::Lite('1.2.3.4/24'); my $hiip = new NetAddr::IP::Lite('FF00::4/120'); ## test range my $exp = 'FF00:0:0:0:0:0:0:0 - FF00:0:0:0:0:0:0:FF'; my $txt = $hiip->range; print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; $exp = '1.2.3.0 - 1.2.3.255'; $txt = $loip->range; print "got: $txt, exp: $exp\nnot " unless $txt eq $exp; &ok; Lite/t/nofqdn.t 0000644 00000000706 15043770025 0007364 0 ustar 00 use NetAddr::IP::Lite $| = 1; print "1..2\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip = new NetAddr::IP::Lite('arin.net'); if (defined $ip) { print "ok $test # Skipped, resolved $ip\n"; $test++; } else { print "ok $test # Skipped, resolver not working\n"; $test++; } import NetAddr::IP::Lite qw(:nofqdn); $ip = new NetAddr::IP::Lite('arin.net'); print "unexpected response with :nofqdn\nnot " if defined $ip; &ok; Lite/t/v6-numeric-uri.t 0000644 00000005327 15043770025 0010673 0 ustar 00 use NetAddr::IP::Lite; use Test::More; my @pairs = ( [ '[::/0]', '0', '0' ], [ '[::/128]', '0', '340282366920938463463374607431768211455' ], [ '[cafe:cafe::/64]', '269827015721314068804783158349174669312', '340282366920938463444927863358058659840' ], [ '[cafe:cafe::1/64]', '269827015721314068804783158349174669313', '340282366920938463444927863358058659840' ], [ '[dead:beef::/100]', '295990755014133383690938178081940045824', '340282366920938463463374607431499776000' ], [ '[dead:beef::1/100]', '295990755014133383690938178081940045825', '340282366920938463463374607431499776000' ], ); my @scale = qw( 0000:0000:0000:0000:0000:0000:0000:0000 0000:0000:0000:0000:0000:0000:0000:0001 0000:0000:0000:0000:0000:0000:0000:0010 0000:0000:0000:0000:0000:0000:0000:0100 0000:0000:0000:0000:0000:0000:0000:1000 0000:0000:0000:0000:0000:0000:0001:0000 0000:0000:0000:0000:0000:0001:0000:0000 0000:0000:0000:0000:0000:0010:0000:0000 0000:0000:0000:0000:0000:0100:0000:0000 0000:0000:0000:0000:0000:1000:0000:0000 0000:0000:0000:0000:0001:0000:0000:0000 0000:0000:0000:0001:0000:0000:0000:0000 0000:0000:0000:0010:0000:0000:0000:0000 0000:0000:0000:0100:0000:0000:0000:0000 0000:0000:0000:1000:0000:0000:0000:0000 0000:0000:0001:0000:0000:0000:0000:0000 0000:0001:0000:0000:0000:0000:0000:0000 0000:0010:0000:0000:0000:0000:0000:0000 0000:0100:0000:0000:0000:0000:0000:0000 0000:1000:0000:0000:0000:0000:0000:0000 0001:0000:0000:0000:0000:0000:0000:0000 0010:0000:0000:0000:0000:0000:0000:0000 0100:0000:0000:0000:0000:0000:0000:0000 1000:0000:0000:0000:0000:0000:0000:0000 ); my $tests = 4 * @pairs + @scale ** 2; plan tests => $tests; for my $p (@pairs) { my $a = new NetAddr::IP::Lite $p->[0]; isa_ok($a, 'NetAddr::IP::Lite', "$p->[0]"); is($a->numeric, $p->[1], "$p->[0] Scalar numeric ok"); is(($a->numeric)[0], $p->[1], "$p->[0] Array numeric ok for network"); is(($a->numeric)[1], $p->[2], "$p->[0] Array numeric ok for mask"); } @ip_scale = map { new NetAddr::IP::Lite $_ } @scale; isa_ok($_, 'NetAddr::IP::Lite', $_->addr) for @ip_scale; for my $i (0 .. $#ip_scale) { for my $l (0 .. $i - 1) { next if $l >= $i; unless (ok($ip_scale[$i]->numeric > $ip_scale[$l]->numeric, "[$i, $l] $scale[$i] > $scale[$l]")) { diag "assertion [$i]: " . $ip_scale[$i]->numeric . " > " . $ip_scale[$l]->numeric; } } next if $i == $#ip_scale; for my $l ($i + 1 .. $#ip_scale) { next if $l <= $i; unless (ok($ip_scale[$i]->numeric < $ip_scale[$l]->numeric, "[$i, $l] $scale[$i] < $scale[$l]")) { diag "assertion [$i]: " . $ip_scale[$i]->numeric . " < " . $ip_scale[$l]->numeric; } } } Lite/t/overminus.t 0000644 00000003113 15043770025 0010121 0 ustar 00 #use diagnostics; use Test::More tests => 32; use NetAddr::IP::Lite; my $ip80 = new NetAddr::IP::Lite('::1:8000:0/80'); my $ip7f = $ip80 - 1; my $maxplus = 2147483647; my $maxminus = 2147483648; my $rv; my $ipmax = $ip80 + $maxplus; ok(($rv = sprintf("%s",$ipmax)) eq '0:0:0:0:0:1:FFFF:FFFF/80',"ip80 maxplus eq $rv eq 0:0:0:0:0:1:FFFF:FFFF/80"); my $ipmin = $ip80 - $maxminus; ok(($rv = sprintf("%s",$ipmin)) eq '0:0:0:0:0:1:0:0/80',"ip80 maxminus� eq $rv eq 0:0:0:0:0:1:0:0/80"); my $over = $maxplus +1; ok(($rv = sprintf("%s",$ip80 + $over)) eq '0:0:0:0:0:1:8000:0/80',"ip80 +overange unchanged, $rv"); $over = $maxminus +1; ok(($rv = sprintf("%s",$ip80 - $over)) eq '0:0:0:0:0:1:8000:0/80',"ip80 -overange unchanged, $rv"); ok(($rv = sprintf("%s",$ip80)) eq '0:0:0:0:0:1:8000:0/80',"ip80 eq $rv eq 0:0:0:0:0:1:8000:0/80"); ok(($rv = sprintf("%s",$ip7f)) eq '0:0:0:0:0:1:7FFF:FFFF/80',"ip7f eq $rv eq 0:0:0:0:0:1:7FFF:FFFF/80"); ok(($rv = $ip80 - $ip7f) == 1,"ip80 - ip7f = $rv"); ok(($rv = $ip7f - $ip80) == -1,"ip7f - ip80 = $rv"); ok(($rv = $ipmax - $ip80) == $maxplus,"ipmax - ip80 = $rv should be $maxplus"); ok(($rv = $ipmin - $ip80) == -$maxminus,"ipmin - ip80 = $rv should be \-$maxminus"); ++$ipmax; --$ipmin; ok(! defined($ipmax - $ip80),'undefined $ipmax - $ip80 is overange'); ok(! defined($ipmin - $ip80),'undefined $ipmin - $ip80 is -overange'); my $ipx = $ip80->copy + 256; foreach (1..10) { ok(($rv = $ipx - $ip80) == $_ * 256,"$ipx - $ip80 = ". $_*256 ." should be $rv"); ok(($rv = $ip80 - $ipx) == - $_ * 256,"$ip80 - $ipx = ". -$_*256 ." should be $rv"); $ipx += 256; } Lite/Makefile.PL 0000644 00000002036 15043770025 0007417 0 ustar 00 use ExtUtils::MakeMaker; use Config; my $pkg = 'NetAddr::IP::Lite'; $pkg =~ /[^:]+$/; my $module = $& .'.pm'; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. my %makeparms = ( 'NAME' => $pkg, 'VERSION_FROM' => $module, # finds $VERSION 'PREREQ_PM' => {Test::More => 0, }, 'clean' => { FILES => "*~ tmp* META.yml"}, 'dist' => {COMPRESS=>'gzip', SUFFIX=>'gz'} ); sub MY::top_targets { package MY; my $inherited = shift->SUPER::top_targets(@_); $inherited =~ s/(pure_all\s+::.+)/$1 README/; $inherited; } sub MY::post_constants { my $post_constants = $Config{scriptdirexp} .'/pod2text'; if (-e $post_constants) { $post_constants = q| MY_POD2TEXT = |. $post_constants .q| |; } else { $post_constants = q| MY_POD2TEXT = echo "perl distro missing 'pod2text' to convert " |; } } sub MY::postamble { package MY; my $postamble = q| README : |. $module .q| @$(MY_POD2TEXT) |. $module .q| > README |; } WriteMakefile(%makeparms); Lite/MYMETA.yml 0000644 00000001000 15043770025 0007152 0 ustar 00 --- abstract: unknown author: - unknown build_requires: ExtUtils::MakeMaker: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 generated_by: 'ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: NetAddr-IP-Lite no_index: directory: - t - inc requires: Test::More: '0' version: '1.57' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' Lite/Util/localconf.h 0000644 00000002503 15043770025 0010472 0 ustar 00 /* * localconf.h * */ #include "config.h" #ifdef WORDS_BIGENDIAN #define host_is_BIG_ENDIAN 1 #else #define host_is_LITTLE_ENDIAN 1 #endif #include <stdio.h> #ifdef HAVE_SYS_TYPES_H # include <sys/types.h> #endif #ifdef HAVE_SYS_STAT_H # include <sys/stat.h> #endif #ifdef STDC_HEADERS # include <stdlib.h> # include <stddef.h> #else # ifdef HAVE_STDLIB_H # include <stdlib.h> # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include <memory.h> # endif # include <string.h> #endif #ifdef HAVE_STRINGS_H # include <strings.h> #endif #ifdef HAVE_INTTYPES_H # include <inttypes.h> #endif #ifdef HAVE_STDINT_H # include <stdint.h> #endif #ifdef HAVE_UNISTD_H # include <unistd.h> #endif #ifdef HAVE_SYS_SOCKET_H # include <sys/socket.h> #endif #ifdef HAVE_NET_INET_H # include <netinet/in.h> #endif #ifdef HAVE_ARPA_INET_H # include <arpa/inet.h> #endif #ifdef HAVE_NETDB_H # include <netdb.h> #endif #if SIZEOF_U_INT8_T == 0 #undef SIZEOF_U_INT8_T #define SIZEOF_U_INT8_T SIZEOF_UINT8_T typedef uint8_t u_int8_t; #endif #if SIZEOF_U_INT16_T == 0 #undef SIZEOF_U_INT16_T #define SIZEOF_U_INT16_T SIZEOF_UINT16_T typedef uint16_t u_int16_t; #endif #if SIZEOF_U_INT32_T == 0 #undef SIZEOF_U_INT32_T #define SIZEOF_U_INT32_T SIZEOF_UINT32_T typedef uint32_t u_int32_t; #endif #include "localperl.h" Lite/Util/pm_to_blib 0000644 00000000000 15043770025 0010400 0 ustar 00 Lite/Util/Changes 0000644 00000021403 15043770025 0007654 0 ustar 00 1.53 Mon Aug 17 15:35:28 PDT 2015 fix typo in MakefilePL that cause compiler to not be found at all 1.52 Thu Aug 13 22:44:48 PDT 2015 fix Makefile.PL to accomodate bug in Android's sh fix Makefile.PL issue with clang compiler, bug 86831 1.51 Mon Jan 27 11:59:58 PST 2014 modify Makefile.PL to bypass missing 'pod2text' 1.50 Tue Apr 9 12:02:34 PDT 2013 changed Makefile.PL to check for config.h when building for XS with 'gcc', try building with 'cc', and check again. If config.h is not found, force Pure Perl mode. Kill XS in winduhs and Darwin, both of which misbehave when compiling XS code 1.49 Wed Apr 3 10:52:24 PDT 2013 modify Makefile.PL to better detect 'winduhs' 1.48 Tue Oct 2 12:36:11 PDT 2012 correct incorrect format for IPv6 embedded IPv4 addresses in InetBase v0.8 1.47 Fri Aug 10 11:46:18 PDT 2012 correct typo in documentation POD Thanks to Gregor Herrmann, Debian Perl Group Updated GPL text and address 1.46 Fri Nov 11 19:23:11 PST 2011 update documentation in InetBase v0.06 1.45 Fri Nov 11 13:20:32 PST 2011 break out the code in InetBase v0.05 that expands short IPv4 addresses into dotquad format to account for broken BSD implementations of inet_aton and gethostbyname that do not recognize the short format. EXPORT this as sub 'fillIPv4' in Util.pm, add 'fillIPv4' to calls to gethostbyname to work around broken inet_aton and gethostbyname implementations in certain BSD implementations 1.44 Wed Nov 2 19:15:31 PDT 2011 improve inet_aton in InetBase v0.04 to overcome broken gethostbyname found in NetBSD and OpenBSD 1.43 Mon Oct 24 13:25:09 PDT 2011 remove reference to Config{osname} in InetBase.pm v0.03 1.42 Fri Oct 21 10:34:46 PDT 2011 Socket6 prior to version 0.23 does not have AF_INET6 in the EXPORT_OK array, modify InetBase.pm v0.02 to work around this. 1.41 Sat Oct 15 17:26:21 PDT 2011 add inet_pton, inet_ntop, AF_INET, AF_INET6 modify inet_n2dx and inet_n2ad to recognize the new 128 bit IPv4 format ::FFFF:FFFF:0:0 replace isIPv4 with a pure perl version for portablity split the following into NetAddr::IP::InetBase v0.01 to provide better long term support for IPv6 inet_aton inet_ntoa ipv6_aton ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_ntop inet_pton packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 1.40 Sat Oct 8 01:33:44 PDT 2011 remove debug print statement from Util.pm 1.39 Thu Oct 6 23:41:42 PDT 2011 really correct missing internal reference 1.38 Thu Oct 6 20:20:33 PDT 2011 corrected missing internal reference to inet_4map6 1.37 Thu Oct 6 18:23:04 PDT 2011 addid isAnyIPv4, isNewIPv4, inet_4map6 revised naip_gethostbyname to conform to Perl's gethostbyname output 1.36 Sat Feb 19 10:04:00 PST 2011 correction to use of package lexicals thanks to mishikal@yahoo.com for spotting the bug and to Mark Martinec mark.martinec+ama...@ijs.si for the solution. 1.35 Tue Nov 16 16:28:37 PST 2010 naip_gethostbyname modified to return undef instead of 0 (zero) on failure thanks to Terry Cassidy enaudishaylee@tc17.com for the bug report move sub's ipv6_n2d and ipv6_n2x to non-autosplit portion of module to eliminate warnings during autosplit of "our" variables thanks to Nicholas Bamber <nicholas@periapt.co.uk> Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=517361 1.34 Wed Sep 29 10:32:50 PDT 2010 Conditionalize import of AF_INET6 in Util.pm NetAddr::IP::UtilPolluted 1.33 Tue Sep 21 17:50:50 PDT 2010 Add UtilPolluted namespace to contain name space pollution created by "use Socket" when invoking Socket6. 1.32 Wed May 12 14:18:20 PDT 2010 In Util.xs, changed netswap() to postincrement *a++ = to *a and added increment after save to mollify some picky compilers that return possible undefined behavior. changed type of _128x10 to 'void' 1.31 Tue Jun 9 10:31:11 PDT 2009 ferret out shell value for Makefile.PL when calling ./configure for systems where the 'x' bit gets lost due to bug in Archive::Tar 1.30 Sat Mar 7 16:35:33 PST 2009 make the compiler test check the environment for CC before using Perl's default compiler 1.29 Sat Mar 7 16:15:18 PST 2009 revised compiler test in Makefile.PL for Util v1.29 to accomodate picky Solaris "cc" 1.28 Wed Dec 17 14:14:06 PST 2008 set uninitialized "carry" in XS bin2bcd to zero 1.27 Tue Dec 9 12:00:08 PST 2008 revised UtilPP v1.7 to work around perl 5.8.4 failures with certain @_ operations of goto &sub... see perl bug [ 23429]. Unfortunately, perl-5.8.4 is the distribution of choice for many solaris boxes 1.26 Fri Nov 28 23:19:01 PST 2008 revised XS code to be full re-entrant... thread safe. removed all traces of mutex locks removed function 'threads' here an in UtilPP v1.6 1.25 Tue Nov 18 19:08:56 PST 2008 correct documentation error in Util_PP v1.5 add threads reporting to Util.xs and UtilPP added what is hopefully thread safe operation via serialization. Must be invoked by "--with-threads" 1.24 Wed Nov 5 18:13:20 PST 2008 Clean up Makefile.PL to check actual required link libraries against the perl build for consistency 1.23 Sun Nov 2 10:10:38 PST 2008 add missing headers in configure and localconf.h for Solaris inet_xton thanks to Karl Bunch <karl@digilink.net> for spotting the bug. 1.22 Wed Oct 22 14:54:12 PDT 2008 eliminated dependence on PL_sawampersand thanks to Mark Martinec <Mark.Martinec@ijs.si> for spotting this and submitting a patch. force -noxs mode for Win32 use autoconf to configure 'C' build 1.21 Thu Oct 16 19:35:33 PDT 2008 again... clear build bug for Win32 and lets get the version number right since it appears that it was up-rev'd at some point to 1.xx 0.20 Mon Oct 6 13:07:34 PDT 2008 clear build bug for Win32 0.19 Sat Sep 27 13:36:58 PDT 2008 updated test for ENDIANess in siteconf add test in inet_aton to detect overange IP dot quad values missed by some broken Socket implementations i.e. 256.1.1.1 0.18 Sun Aug 6 10:48:25 PDT 2006 correct shiftleft documentation correct mask4to6 documentation 0.17 Thu Jul 6 10:46:48 PDT 2006 update 'siteconf line 1608' to fix empty variable in inet_aton test update 'siteconf line 1636' to fix empty variable in inet_pton test add missing colon at t/notcontiguous.t line 66 0.16 Sun Jun 25 16:13:00 PDT 2006 fixed ->new() issues with long digit strings ->new('::fffff') and non hex digits ->new('::foo'). Thanks to Radoslaw Zielinski <radek42@gmail.com> for spotting those bugs 0.15 Tue Jun 13 14:42:34 PDT 2006 UtilPP.pm v0.07 & Util.xs 'shiftleft' so that the original argument is returned when the shift count is '0' or missing 0.14 Tue Jun 6 08:37:01 PDT 2006 add logic to check LIBS => [-lfiles] individually. ExtUtils::xxx does a bad job and leaves libs that do not exist in the list which causes 'siteconf' to blow up on missing libs on perl 5.053 (and probably others) 0.13 Tue Jun 6 08:33:11 PDT 2006 added to xs file, 'hopefully' to allow build on windoze platforms 0.12 Tue Jun 6 08:21:12 PDT 2006 add logic to makefile so 'siteconfig' and C libs are not used in PurePerl mode 0.11 Mon Jun 5 14:45:09 PDT 2006 fix Sparc problems 1) add workaround for OS's that do not have inet_aton 2) add workaround for compilers that do not understand #if MACRO1 == MACRO2 0.10 Sat Jun 3 19:07:51 PDT 2006 add site configuration to supply u_intxx_t vars for Sun OS and others that don't have them 0.09 Sun May 7 18:06:43 PDT 2006 UtilPP.pm v0.06, removed unnecessary pack(unpack) sequences to speed up ipv4->6, ipv6->4 conversions 0.08 Wed Apr 26 18:33:12 PDT 2006 correct documentation error add ipv6to4 0.07 Sun Apr 23 16:11:56 PDT 2006 correct reporting error in UtilPP v0.04 for incorrect argument length in ipv4 -> 6 conversions add conditional netaddr conversion functions ipanyto6, maskanyto6 to Util.xs and UtilPP v0.05 0.06 Tue Apr 18 16:50:53 PDT 2006 add ipv4to6, mask4to6 to Util.pm and UtilPP.pm v0.03 0.05 Sat Apr 15 15:48:17 PDT 2006 Fixed some typo's in Makefile.PL that failed to update README during build 0.04 Wed Apr 12 15:43:33 PDT 2006 add Util_IS.pm to guarantee that the XS lib is not loaded if a previous incarnation of the same version has previously been installed on the system and the module is built with -noxs 0.03 Tue Apr 4 21:55:35 PDT 2006 update minisocket to perl-5.9.3, add header file for backwards compatibility add function 'notcontiguous' to return cidr size and check for spurious bits in the network mask 0.02 Fri Mar 31 12:44:15 PST 2006 added test for illegal characters to ipv6_aton added UtilPP for Pure Perl functionality for the WinTel folks that don't have gcc on their systems 0.01 Tue Mar 28 16:42:44 PST 2006 initial release Lite/Util/configure.ac 0000644 00000002735 15043770025 0010656 0 ustar 00 # Process this file with autoconf to produce a configure script. AC_INIT() AC_CONFIG_HEADER([config.h]) # Checks for programs. AC_PROG_CC # Checks for header files. AC_HEADER_STDC AC_CHECK_HEADERS([sys/socket.h netinet/in.h arpa/inet.h netdb.h]) # Checks for typedefs, structures, and compiler characteristics. AC_C_CONST AC_TYPE_INT32_T AC_TYPE_UINT16_T AC_TYPE_UINT32_T AC_TYPE_UINT8_T # Checks for library functions. AC_PROG_GCC_TRADITIONAL AH_TEMPLATE([LIBS],[Extra libraries needed for this build]) AH_TEMPLATE([HAVE_LIBNSL],[Define if library library 'nsl' is present]) AH_TEMPLATE([HAVE_GETHOSTBYNAME],[Define to 1 if function 'gethostbyname' is present]) AC_SEARCH_LIBS([gethostbyname],[nsl],[ AC_DEFINE([HAVE_GETHOSTBYNAME])]) AH_TEMPLATE([HAVE_INET_ATON],[Define to 1 if function 'inet_aton' is present]) AC_SEARCH_LIBS([inet_aton],[socket],[ AC_DEFINE([HAVE_INET_ATON])]) AH_TEMPLATE([HAVE_INET_PTON],[Define to 1 if function 'inet_pton' is present]) AC_SEARCH_LIBS([inet_pton],[socket],[ AC_DEFINE([HAVE_INET_PTON])]) AH_TEMPLATE([HAVE_INET_ADDR],[Define to 1 if function 'inet_addr' is present]) AC_SEARCH_LIBS([inet_addr],[socket],[ AC_DEFINE([HAVE_INET_ADDR])]) AC_C_BIGENDIAN AC_CHECK_SIZEOF([uint8_t]) AC_CHECK_SIZEOF([uint16_t]) AC_CHECK_SIZEOF([uint32_t]) AC_CHECK_SIZEOF([u_int8_t]) AC_CHECK_SIZEOF([u_int16_t]) AC_CHECK_SIZEOF([u_int32_t]) AC_CONFIG_COMMANDS_PRE([ if test "$LIBS" != ""; then AC_DEFINE_UNQUOTED([LIBS],[$LIBS],[Extra libraries]) fi ]) AC_OUTPUT Lite/Util/configure.cc 0000644 00000454734 15043770025 0010672 0 ustar 00 #! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69. # # # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 as_fn_exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, $0: including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" test -n "$DJDIR" || exec 7<&0 </dev/null exec 6>&1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME= PACKAGE_TARNAME= PACKAGE_VERSION= PACKAGE_STRING= PACKAGE_BUGREPORT= PACKAGE_URL= # Factoring default headers for most tests. ac_includes_default="\ #include <stdio.h> #ifdef HAVE_SYS_TYPES_H # include <sys/types.h> #endif #ifdef HAVE_SYS_STAT_H # include <sys/stat.h> #endif #ifdef STDC_HEADERS # include <stdlib.h> # include <stddef.h> #else # ifdef HAVE_STDLIB_H # include <stdlib.h> # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include <memory.h> # endif # include <string.h> #endif #ifdef HAVE_STRINGS_H # include <strings.h> #endif #ifdef HAVE_INTTYPES_H # include <inttypes.h> #endif #ifdef HAVE_STDINT_H # include <stdint.h> #endif #ifdef HAVE_UNISTD_H # include <unistd.h> #endif" ac_subst_vars='LTLIBOBJS LIBOBJS EGREP GREP CPP OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures this package to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/PACKAGE] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF _ACEOF fi if test -n "$ac_init_help"; then cat <<\_ACEOF Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a nonstandard directory <lib dir> LIBS libraries to pass to the linker, e.g. -l<library> CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if you have headers in a nonstandard directory <include dir> CPP C preprocessor Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to the package provider. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF configure generated by GNU Autoconf 2.69 Copyright (C) 2012 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_c_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval \${$3+:} false; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_mongrel # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile # ac_fn_c_find_intX_t LINENO BITS VAR # ----------------------------------- # Finds a signed integer type with width BITS, setting cache variable VAR # accordingly. ac_fn_c_find_intX_t () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for int$2_t" >&5 $as_echo_n "checking for int$2_t... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=no" # Order is important - never check a type that is potentially smaller # than half of the expected target width. for ac_type in int$2_t 'int' 'long int' \ 'long long int' 'short int' 'signed char'; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default enum { N = $2 / 2 - 1 }; int main () { static int test_array [1 - 2 * !(0 < ($ac_type) ((((($ac_type) 1 << N) << N) - 1) * 2 + 1))]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default enum { N = $2 / 2 - 1 }; int main () { static int test_array [1 - 2 * !(($ac_type) ((((($ac_type) 1 << N) << N) - 1) * 2 + 1) < ($ac_type) ((((($ac_type) 1 << N) << N) - 1) * 2 + 2))]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else case $ac_type in #( int$2_t) : eval "$3=yes" ;; #( *) : eval "$3=\$ac_type" ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if eval test \"x\$"$3"\" = x"no"; then : else break fi done fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_find_intX_t # ac_fn_c_find_uintX_t LINENO BITS VAR # ------------------------------------ # Finds an unsigned integer type with width BITS, setting cache variable VAR # accordingly. ac_fn_c_find_uintX_t () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for uint$2_t" >&5 $as_echo_n "checking for uint$2_t... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=no" # Order is important - never check a type that is potentially smaller # than half of the expected target width. for ac_type in uint$2_t 'unsigned int' 'unsigned long int' \ 'unsigned long long int' 'unsigned short int' 'unsigned char'; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int main () { static int test_array [1 - 2 * !((($ac_type) -1 >> ($2 / 2 - 1)) >> ($2 / 2 - 1) == 3)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : case $ac_type in #( uint$2_t) : eval "$3=yes" ;; #( *) : eval "$3=\$ac_type" ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if eval test \"x\$"$3"\" = x"no"; then : else break fi done fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_find_uintX_t # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_c_compute_int LINENO EXPR VAR INCLUDES # -------------------------------------------- # Tries to find the compile-time value of EXPR in a program that includes # INCLUDES, setting VAR accordingly. Returns whether the value could be # computed ac_fn_c_compute_int () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= 0)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_lo=0 ac_mid=0 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=$ac_mid; break else as_fn_arith $ac_mid + 1 && ac_lo=$as_val if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) < 0)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=-1 ac_mid=-1 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_lo=$ac_mid; break else as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=$ac_mid else as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in #(( ?*) eval "$3=\$ac_lo"; ac_retval=0 ;; '') ac_retval=1 ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 static long int longval () { return $2; } static unsigned long int ulongval () { return $2; } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (($2) < 0) { long int i = longval (); if (i != ($2)) return 1; fprintf (f, "%ld", i); } else { unsigned long int i = ulongval (); if (i != ($2)) return 1; fprintf (f, "%lu", i); } /* Do not output a trailing newline, as this causes \r\n confusion on some platforms. */ return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : echo >>conftest.val; read $3 <conftest.val; ac_retval=0 else ac_retval=1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext rm -f conftest.val fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_compute_int cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by $as_me, which was generated by GNU Autoconf 2.69. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_headers="$ac_config_headers config.h" # Checks for programs. ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <stdio.h> int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if ${ac_cv_objext+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <stdarg.h> #include <stdio.h> struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Checks for header files. ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since # <limits.h> exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include <limits.h> #else # include <assert.h> #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <ac_nonexistent.h> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since # <limits.h> exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include <limits.h> #else # include <assert.h> #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <ac_nonexistent.h> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <stdlib.h> #include <stdarg.h> #include <string.h> #include <float.h> int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <string.h> _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <stdlib.h> _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <ctype.h> #include <stdlib.h> #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sys/socket.h netinet/in.h arpa/inet.h netdb.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done # Checks for typedefs, structures, and compiler characteristics. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5 $as_echo_n "checking for an ANSI C-conforming const... " >&6; } if ${ac_cv_c_const+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __cplusplus /* Ultrix mips cc rejects this sort of thing. */ typedef int charset[2]; const charset cs = { 0, 0 }; /* SunOS 4.1.1 cc rejects this. */ char const *const *pcpcc; char **ppc; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; pcpcc = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++pcpcc; ppc = (char**) pcpcc; pcpcc = (char const *const *) ppc; { /* SCO 3.2v4 cc rejects this sort of thing. */ char tx; char *t = &tx; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; if (s) return 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this sort of thing, saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; } bx; struct s *b = &bx; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; if (!foo) return 0; } return !cs[0] && !zero.x; #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_const=yes else ac_cv_c_const=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_const" >&5 $as_echo "$ac_cv_c_const" >&6; } if test $ac_cv_c_const = no; then $as_echo "#define const /**/" >>confdefs.h fi ac_fn_c_find_intX_t "$LINENO" "32" "ac_cv_c_int32_t" case $ac_cv_c_int32_t in #( no|yes) ;; #( *) cat >>confdefs.h <<_ACEOF #define int32_t $ac_cv_c_int32_t _ACEOF ;; esac ac_fn_c_find_uintX_t "$LINENO" "16" "ac_cv_c_uint16_t" case $ac_cv_c_uint16_t in #( no|yes) ;; #( *) cat >>confdefs.h <<_ACEOF #define uint16_t $ac_cv_c_uint16_t _ACEOF ;; esac ac_fn_c_find_uintX_t "$LINENO" "32" "ac_cv_c_uint32_t" case $ac_cv_c_uint32_t in #( no|yes) ;; #( *) $as_echo "#define _UINT32_T 1" >>confdefs.h cat >>confdefs.h <<_ACEOF #define uint32_t $ac_cv_c_uint32_t _ACEOF ;; esac ac_fn_c_find_uintX_t "$LINENO" "8" "ac_cv_c_uint8_t" case $ac_cv_c_uint8_t in #( no|yes) ;; #( *) $as_echo "#define _UINT8_T 1" >>confdefs.h cat >>confdefs.h <<_ACEOF #define uint8_t $ac_cv_c_uint8_t _ACEOF ;; esac # Checks for library functions. if test $ac_cv_c_compiler_gnu = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC needs -traditional" >&5 $as_echo_n "checking whether $CC needs -traditional... " >&6; } if ${ac_cv_prog_gcc_traditional+:} false; then : $as_echo_n "(cached) " >&6 else ac_pattern="Autoconf.*'x'" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <sgtty.h> Autoconf TIOCGETP _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes else ac_cv_prog_gcc_traditional=no fi rm -f conftest* if test $ac_cv_prog_gcc_traditional = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <termio.h> Autoconf TCGETA _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes fi rm -f conftest* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_gcc_traditional" >&5 $as_echo "$ac_cv_prog_gcc_traditional" >&6; } if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing gethostbyname" >&5 $as_echo_n "checking for library containing gethostbyname... " >&6; } if ${ac_cv_search_gethostbyname+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char gethostbyname (); int main () { return gethostbyname (); ; return 0; } _ACEOF for ac_lib in '' nsl; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_gethostbyname=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_gethostbyname+:} false; then : break fi done if ${ac_cv_search_gethostbyname+:} false; then : else ac_cv_search_gethostbyname=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_gethostbyname" >&5 $as_echo "$ac_cv_search_gethostbyname" >&6; } ac_res=$ac_cv_search_gethostbyname if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" $as_echo "#define HAVE_GETHOSTBYNAME 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing inet_aton" >&5 $as_echo_n "checking for library containing inet_aton... " >&6; } if ${ac_cv_search_inet_aton+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char inet_aton (); int main () { return inet_aton (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_inet_aton=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_inet_aton+:} false; then : break fi done if ${ac_cv_search_inet_aton+:} false; then : else ac_cv_search_inet_aton=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_inet_aton" >&5 $as_echo "$ac_cv_search_inet_aton" >&6; } ac_res=$ac_cv_search_inet_aton if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" $as_echo "#define HAVE_INET_ATON 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing inet_pton" >&5 $as_echo_n "checking for library containing inet_pton... " >&6; } if ${ac_cv_search_inet_pton+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char inet_pton (); int main () { return inet_pton (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_inet_pton=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_inet_pton+:} false; then : break fi done if ${ac_cv_search_inet_pton+:} false; then : else ac_cv_search_inet_pton=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_inet_pton" >&5 $as_echo "$ac_cv_search_inet_pton" >&6; } ac_res=$ac_cv_search_inet_pton if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" $as_echo "#define HAVE_INET_PTON 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing inet_addr" >&5 $as_echo_n "checking for library containing inet_addr... " >&6; } if ${ac_cv_search_inet_addr+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char inet_addr (); int main () { return inet_addr (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_inet_addr=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_inet_addr+:} false; then : break fi done if ${ac_cv_search_inet_addr+:} false; then : else ac_cv_search_inet_addr=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_inet_addr" >&5 $as_echo "$ac_cv_search_inet_addr" >&6; } ac_res=$ac_cv_search_inet_addr if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" $as_echo "#define HAVE_INET_ADDR 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5 $as_echo_n "checking whether byte ordering is bigendian... " >&6; } if ${ac_cv_c_bigendian+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_c_bigendian=unknown # See if we're dealing with a universal compiler. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef __APPLE_CC__ not a universal capable compiler #endif typedef int dummy; _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # Check for potential -arch flags. It is not universal unless # there are at least two -arch flags with different values. ac_arch= ac_prev= for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do if test -n "$ac_prev"; then case $ac_word in i?86 | x86_64 | ppc | ppc64) if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then ac_arch=$ac_word else ac_cv_c_bigendian=universal break fi ;; esac ac_prev= elif test "x$ac_word" = "x-arch"; then ac_prev=arch fi done fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_c_bigendian = unknown; then # See if sys/param.h defines the BYTE_ORDER macro. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <sys/types.h> #include <sys/param.h> int main () { #if ! (defined BYTE_ORDER && defined BIG_ENDIAN \ && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \ && LITTLE_ENDIAN) bogus endian macros #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # It does; now see whether it defined to BIG_ENDIAN or not. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <sys/types.h> #include <sys/param.h> int main () { #if BYTE_ORDER != BIG_ENDIAN not big endian #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_bigendian=yes else ac_cv_c_bigendian=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi if test $ac_cv_c_bigendian = unknown; then # See if <limits.h> defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris). cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <limits.h> int main () { #if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN) bogus endian macros #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # It does; now see whether it defined to _BIG_ENDIAN or not. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <limits.h> int main () { #ifndef _BIG_ENDIAN not big endian #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_bigendian=yes else ac_cv_c_bigendian=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi if test $ac_cv_c_bigendian = unknown; then # Compile a test program. if test "$cross_compiling" = yes; then : # Try to guess by grepping values from an object file. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ short int ascii_mm[] = { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 }; short int ascii_ii[] = { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 }; int use_ascii (int i) { return ascii_mm[i] + ascii_ii[i]; } short int ebcdic_ii[] = { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 }; short int ebcdic_mm[] = { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 }; int use_ebcdic (int i) { return ebcdic_mm[i] + ebcdic_ii[i]; } extern int foo; int main () { return use_ascii (foo) == use_ebcdic (foo); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then ac_cv_c_bigendian=yes fi if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then if test "$ac_cv_c_bigendian" = unknown; then ac_cv_c_bigendian=no else # finding both strings is unlikely to happen, but who knows? ac_cv_c_bigendian=unknown fi fi fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int main () { /* Are we little or big endian? From Harbison&Steele. */ union { long int l; char c[sizeof (long int)]; } u; u.l = 1; return u.c[sizeof (long int) - 1] == 1; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_c_bigendian=no else ac_cv_c_bigendian=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5 $as_echo "$ac_cv_c_bigendian" >&6; } case $ac_cv_c_bigendian in #( yes) $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h ;; #( no) ;; #( universal) $as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h ;; #( *) as_fn_error $? "unknown endianness presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;; esac # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of uint8_t" >&5 $as_echo_n "checking size of uint8_t... " >&6; } if ${ac_cv_sizeof_uint8_t+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (uint8_t))" "ac_cv_sizeof_uint8_t" "$ac_includes_default"; then : else if test "$ac_cv_type_uint8_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (uint8_t) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_uint8_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_uint8_t" >&5 $as_echo "$ac_cv_sizeof_uint8_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_UINT8_T $ac_cv_sizeof_uint8_t _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of uint16_t" >&5 $as_echo_n "checking size of uint16_t... " >&6; } if ${ac_cv_sizeof_uint16_t+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (uint16_t))" "ac_cv_sizeof_uint16_t" "$ac_includes_default"; then : else if test "$ac_cv_type_uint16_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (uint16_t) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_uint16_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_uint16_t" >&5 $as_echo "$ac_cv_sizeof_uint16_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_UINT16_T $ac_cv_sizeof_uint16_t _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of uint32_t" >&5 $as_echo_n "checking size of uint32_t... " >&6; } if ${ac_cv_sizeof_uint32_t+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (uint32_t))" "ac_cv_sizeof_uint32_t" "$ac_includes_default"; then : else if test "$ac_cv_type_uint32_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (uint32_t) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_uint32_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_uint32_t" >&5 $as_echo "$ac_cv_sizeof_uint32_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_UINT32_T $ac_cv_sizeof_uint32_t _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of u_int8_t" >&5 $as_echo_n "checking size of u_int8_t... " >&6; } if ${ac_cv_sizeof_u_int8_t+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (u_int8_t))" "ac_cv_sizeof_u_int8_t" "$ac_includes_default"; then : else if test "$ac_cv_type_u_int8_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (u_int8_t) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_u_int8_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_u_int8_t" >&5 $as_echo "$ac_cv_sizeof_u_int8_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_U_INT8_T $ac_cv_sizeof_u_int8_t _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of u_int16_t" >&5 $as_echo_n "checking size of u_int16_t... " >&6; } if ${ac_cv_sizeof_u_int16_t+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (u_int16_t))" "ac_cv_sizeof_u_int16_t" "$ac_includes_default"; then : else if test "$ac_cv_type_u_int16_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (u_int16_t) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_u_int16_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_u_int16_t" >&5 $as_echo "$ac_cv_sizeof_u_int16_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_U_INT16_T $ac_cv_sizeof_u_int16_t _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of u_int32_t" >&5 $as_echo_n "checking size of u_int32_t... " >&6; } if ${ac_cv_sizeof_u_int32_t+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (u_int32_t))" "ac_cv_sizeof_u_int32_t" "$ac_includes_default"; then : else if test "$ac_cv_type_u_int32_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (u_int32_t) See \`config.log' for more details" "$LINENO" 5; } else ac_cv_sizeof_u_int32_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_u_int32_t" >&5 $as_echo "$ac_cv_sizeof_u_int32_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_U_INT32_T $ac_cv_sizeof_u_int32_t _ACEOF cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs if test "$LIBS" != ""; then cat >>confdefs.h <<_ACEOF #define LIBS $LIBS _ACEOF fi : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by $as_me, which was generated by GNU Autoconf 2.69. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_headers="$ac_config_headers" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration headers: $config_headers Report bugs to the package provider." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ config.status configured by $0, generated by GNU Autoconf 2.69, with options \\"\$ac_cs_config\\" Copyright (C) 2012 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' <confdefs.h | sed ' s/'"$ac_delim"'/"\\\ "/g' >>$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :H $CONFIG_HEADERS " shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi Lite/Util/MANIFEST.SKIP 0000644 00000000462 15043770025 0010261 0 ustar 00 ^Build$ ^_build/ ^blib/ ^blibdirs Makefile$ Makefile\.[a-z]+$ pm_to_blib CVS/.* \.cvs ,v$ ^tmp/ \.old$ \.bak$ \.tmp$ \.xsc$ ~$ ^# \.shar$ \.tar$ \.tgz$ \.tar\.gz$ \.zip$ _uu$ Util\.(bs|[co])$ localStuff\.h$ config\.log$ config\.h$ config\.status localperl\.h tlib/NetAddr/IP/Util_IS.pm Util_IS.pm META.yml Lite/Util/Util.xs 0000644 00000040703 15043770025 0007656 0 ustar 00 /* * Copyright 2006 - 2012, Michael Robinton <michael@bizsystems.com> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License along * with this program; if not, write to the Free Software Foundation, Inc., * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. */ #ifdef __cplusplus extern "C" { #endif #ifdef _CYGWIN #include <windows.h> #endif #include "EXTERN.h" #include "perl.h" #include "XSUB.h" /* needed for testing with 'printf' #include <stdio.h> */ #ifdef _CYGWIN #include <Win32-Extensions.h> #endif #include "localconf.h" #ifdef __cplusplus } #endif /* workaround for OS's without inet_aton */ /* #include "xs_include/inet_aton.c" removed 10-12-11 */ typedef union { u_int32_t u[4]; unsigned char c[16]; } n128; char * is_ipv6to4 = "ipv6to4", * is_shiftleft = "shiftleft", * is_comp128 = "comp128"; char * is_sub128 = "sub128", * is_add128 = "add128"; char * is_hasbits = "hasbits"; /* , * is_isIPv4 = "isIPv4"; */ char * is_bcd2bin = "bcd2bin", * is_simple_pack = "simple_pack", * is_bcdn2bin = "bcdn2bin"; char * is_mask4to6 = "mask4to6", * is_ipv4to6 = "ipv4to6"; char * is_maskanyto6 = "maskanyto6", * is_ipanyto6 = "ipanyto6"; typedef struct bcdstuff { /* character array of 40 bytes */ char txt[21]; /* 20 bytes + string terminator */ u_int32_t bcd[5]; /* 20 bytes, 40 digits */ } BCD; #define zero ('0' & 0x7f) /* useful for debug, prints the 128 bits of 8, 16 bit registers */ void printb128(char * b) { int c; for(c=0;c<16;c++) { if (b[c] &0x80) printf("1"); else printf("0"); if (b[c] &0x40) printf("1"); else printf("0"); if (b[c] &0x20) printf("1"); else printf("0"); if (b[c] &0x10) printf("1"); else printf("0"); if (b[c] &0x8) printf("1"); else printf("0"); if (b[c] &0x4) printf("1"); else printf("0"); if (b[c] &0x2) printf("1"); else printf("0"); if (b[c] &0x1) printf("1"); else printf("0"); if (c == 3 || c == 7 || c == 11) printf("\n"); } printf("\n\n"); } void extendipv4(void * aa, void * ux) { register u_int32_t * a = ux; *a++ = 0; *a++ = 0; *a++ = 0; *a = *((u_int32_t *)aa); } void extendmask4(void * aa, void * ux) { register u_int32_t * a = ux; *a++ = 0xffffffff; *a++ = 0xffffffff; *a++ = 0xffffffff; *a = *((u_int32_t *)aa); } void fastcomp128(void * aa) { register u_int32_t * a = aa; *a++ ^= 0xffffffff; *a++ ^= 0xffffffff; *a++ ^= 0xffffffff; *a++ ^= 0xffffffff; } /* add two 128 bit numbers return the carry */ int adder128(void * aa, void * bb, n128 * ap128, int carry) { int i; register u_int32_t a, b, r; for (i=3; i >= 0; i--) { a = *((u_int32_t *)aa + i); b = *((u_int32_t *)bb + i); r = a + b; a = 0; /* ripple carry forward */ if ( r < a || r < b) /* if overflow */ a = 1; b = r + carry; /* carry propagate in */ if (b < r) /* ripple carry forward */ carry = 1; /* if overflow */ else carry = a; *((u_int32_t *)(ap128->u) + i) = b; } return carry; } int addercon(void * aa, u_int32_t * bb, n128 * ap128, int32_t con) { register u_int32_t tmp = 0x80000000; if (con & tmp) tmp = 0xffffffff; else tmp = 0; bb[0] = tmp; bb[1] = tmp; bb[2] = tmp; bb[3] = (u_int32_t)con; return adder128(aa,bb,ap128,0); } int have128(void * bp) { register u_int32_t * p = bp; if (*p++ || *p++ || *p++ || *p++) return 1; return 0; } int _isipv4(void * bp) { register u_int32_t * p = bp; if (*p++ || *p++ || *p++) return 0; return 1; } /* network byte swap and copy */ void netswap_copy(void * dest, void * src, int len) { register u_int32_t * d = dest, * s = src; for (/* -- */;len>0;len--) { #ifdef host_is_LITTLE_ENDIAN *d++ = (((*s & 0xff000000) >> 24) | ((*s & 0x00ff0000) >> 8) | \ ((*s & 0x0000ff00) << 8) | ((*s & 0x000000ff) << 24)); #else # ifdef host_is_BIG_ENDIAN *d++ = *s; # else # error ENDIANness not defined # endif #endif s++; } } /* do ntohl / htonl changes as necessary for this OS */ void netswap(void * ap, int len) { #ifdef host_is_LITTLE_ENDIAN register u_int32_t * a = ap; for (/* -- */;len >0;len--) { *a = (((*a & 0xff000000) >> 24) | ((*a & 0x00ff0000) >> 8) | \ ((*a & 0x0000ff00) << 8) | ((*a & 0x000000ff) << 24)); a++; } #endif } /* shift right to purge '0's, return mask bit count and remainder value, left fill with ones */ unsigned char _countbits(void *ap) { register u_int32_t * p0 = (u_int32_t *)ap, * p1 = p0 +1, * p2 = p1 +1, * p3 = p2 +1; unsigned char count = 128; fastcomp128(ap); do { if (!(*p3 & 1)) break; count--; *p3 >>= 1; if (*p2 & 1) *p3 |= 0x80000000; *p2 >>= 1; if (*p1 & 1) *p2 |= 0x80000000; *p1 >>= 1; if (*p0 & 1) *p1 |= 0x80000000; *p0 >>= 1; } while (count > 0); return count; } /* multiply 128 bit number x 2 */ void _128x2(u_int32_t * ap) { register u_int32_t * p = ap +3, tmpc, carry = 0; do { tmpc = *p & 0x80000000; /* propagate hi bit to next word */ *p <<= 1; if (carry) *p += 1; carry = tmpc; } while (p-- > ap); /* printf("2o %04X:%04X:%04X:%04X\n",*(ap),*(ap +1),*(ap +2),*(ap +3)); */ } /* multiply 128 bit number X10 */ void _128x10(n128 * ap128, n128 * tp128) { register u_int32_t * ap = ap128->u, * tp = tp128->u; _128x2(ap); /* multiply by two */ *tp = *ap; /* temp save */ *(tp +1) = *(ap +1); *(tp +2) = *(ap +2); *(tp +3) = *(ap +3); _128x2(ap); _128x2(ap); /* times 8 */ (void) adder128(ap,tp,ap128,0); /* printf("x %04X:%04X:%04X:%04X\n",*((u_int32_t *)ap),*((u_int32_t *)ap +1),*((u_int32_t *)ap +2),*((u_int32_t *)ap +3)); */ } /* multiply 128 bit number by 10, add bcd digit to result */ void _128x10plusbcd(n128 * ap128, n128 * tp128, char digit) { register u_int32_t * ap = ap128->u, * tp = tp128->u; /* printf("digit %X + %X = ",digit,*(ap +3)); */ _128x10(ap128,tp128); *tp = 0; *(tp + 1) = 0; *(tp + 2) = 0; *(tp + 3) = digit; (void) adder128(ap,tp,ap128,0); /* printf("%d %04X:%04X:%04X:%04X\n",digit,*((u_int32_t *)ap),*((u_int32_t *)ap +1),*((u_int32_t *)ap +2),*((u_int32_t *)ap +3)); */ } char _simple_pack(void * str,int len, BCD * n) { int i = len -1, j=19, lo=1; register unsigned char c, * bcdn = (unsigned char *)(n->bcd), * sp = (unsigned char *) str; if (len > 40) return '*'; /* error, input string too long */ memset (bcdn, 0, 20); do { c = *(sp + i) & 0x7f; if (c < zero || c > (zero + 9)) return c; /* error, out of range */ if (lo) { /* lo byte ? */ *(bcdn + j) = c & 0xF; lo = 0; } else { c <<= 4; *(bcdn + j) |= c; lo = 1; /* lo byte next */ j--; } } while (i-- > 0); return 0; } /* convert a packed bcd string to 128 bit binary string */ void _bcdn2bin(void * bp, n128 * ap128, n128 * cp128, int len) { int i = 0, hasdigits = 0, lo; register unsigned char c, * cp = (unsigned char *)bp; memset(ap128->c, 0, 16); memset(cp128->c, 0, 16); while (i < len ) { c = *cp++; for (lo=0;lo<2;lo+=1) { if (lo) { if (hasdigits) /* suppress leading zero multiplications */ _128x10plusbcd(ap128, cp128, c & 0xF); else { if (c & 0xF) { hasdigits = 1; ap128->u[3] = c & 0xF; } } } else { if (hasdigits) /* suppress leading zero multiplications */ _128x10plusbcd(ap128, cp128, c >> 4); else { if (c & 0XF0) { hasdigits = 1; ap128->u[3] = c >> 4; } } } i++; if (i >= len) break; } } } /* convert a 128 bit number string to a bcd number string returns the length of the bcd string === 20 */ int _bin2bcd (unsigned char * binary, BCD * n) { register u_int32_t tmp, add3, msk8, bcd8, carry = 0; u_int32_t word; unsigned char binmsk = 0; int c = 0,i, j, p; memset (n->bcd, 0, 20); for (p=0;p<128;p++) { /* bit pointer */ if (! binmsk) { word = *((unsigned char *)binary + c); binmsk = 0x80; c++; } carry = word & binmsk; /* bit to convert */ binmsk >>= 1; for (i=4;i>=0;i--) { bcd8 = n->bcd[i]; if (carry | bcd8) { /* if something to do */ add3 = 3; msk8 = 8; for (j=0;j<8;j++) { /* prep bcd digits for X2 */ tmp = bcd8 + add3; if (tmp & msk8) bcd8 = tmp; add3 <<= 4; msk8 <<= 4; } tmp = bcd8 & 0x80000000; /* propagated carry */ bcd8 <<= 1; /* x 2 */ if (carry) bcd8 += 1; n->bcd[i] = bcd8; carry = tmp; } } } netswap(n->bcd,5); return 20; } /* convert a bcd number string to a bcd text string returns the number of digits */ int _bcd2txt(unsigned char * bcd2p, BCD * n) { register unsigned char bcd, dchar; int i, j = 0; for (i=0;i<20;i++) { dchar = *(bcd2p + i); bcd = dchar >> 4; if (j || bcd) { n->txt[j] = bcd + zero; j++; } bcd = dchar & 0xF; if (j || bcd || i == 19) { /* must be at least one digit */ n->txt[j] = bcd + zero; j++; } } n->txt[j] = 0; /* string terminator */ return j; } /* INCLUDE: xs_include/miniSocket.inc removed 10-12-11 */ MODULE = NetAddr::IP::Util PACKAGE = NetAddr::IP::Util PROTOTYPES: ENABLE void comp128(s,...) SV * s ALIAS: NetAddr::IP::Util::ipv6to4 = 2 NetAddr::IP::Util::shiftleft = 1 PREINIT: unsigned char * ap; char * subname; u_int32_t wa[4]; STRLEN len; int i; PPCODE: ap = (unsigned char *) SvPV(s,len); if (len != 16) { if (ix == 2) subname = is_ipv6to4; else if (ix == 1) subname = is_shiftleft; else subname = is_comp128; croak("Bad arg length for %s%s, length is %d, should be %d", "NetAddr::IP::Util::",subname,len *8,128); } if (ix == 2) { XPUSHs(sv_2mortal(newSVpvn((char *)(ap +12),4))); XSRETURN(1); } else if (ix == 1) { if (items < 2) { memcpy(wa,ap,16); } else if ((i = SvIV(ST(1))) == 0) { memcpy(wa,ap,16); } else if (i < 0 || i > 128) { croak("Bad arg value for %s, is %d, should be 0 thru 128", "NetAddr::IP::Util::shiftleft",i); } else { netswap_copy(wa,ap,4); do { _128x2(wa); i--; } while (i > 0); netswap(wa,4); } } else { memcpy(wa,ap,16); fastcomp128(wa); } XPUSHs(sv_2mortal(newSVpvn((char *)wa,16))); XSRETURN(1); void add128(as,bs) SV * as SV * bs ALIAS: NetAddr::IP::Util::sub128 = 1 PREINIT: unsigned char * ap, *bp; char * subname; u_int32_t wa[4], wb[4]; n128 a128; STRLEN len; PPCODE: ap = (unsigned char *) SvPV(as,len); if (len != 16) { Bail: if (ix == 1) subname = is_sub128; else subname = is_add128; croak("Bad arg length for %s%s, length is %d, should be %d", "NetAddr::IP::Util::",subname,len *8,128); } bp = (unsigned char *) SvPV(bs,len); if (len != 16) { goto Bail; } netswap_copy(wa,ap,4); netswap_copy(wb,bp,4); if (ix == 1) { fastcomp128(wb); XPUSHs(sv_2mortal(newSViv((I32)adder128(wa,wb,&a128,1)))); } else { XPUSHs(sv_2mortal(newSViv((I32)adder128(wa,wb,&a128,0)))); } if (GIMME_V == G_ARRAY) { netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); XSRETURN(2); } XSRETURN(1); void addconst(s,cnst) SV * s I32 cnst PREINIT: n128 a128; unsigned char * ap; u_int32_t wa[4], wb[4]; STRLEN len; PPCODE: ap = (unsigned char *) SvPV(s,len); if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::addconst",len *8,128); } netswap_copy(wa,ap,4); XPUSHs(sv_2mortal(newSViv((I32)addercon(wa,wb,&a128,cnst)))); if (GIMME_V == G_ARRAY) { netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); XSRETURN(2); } XSRETURN(1); int hasbits(s) SV * s PREINIT: unsigned char * bp; char * subname; STRLEN len; CODE: bp = (unsigned char *) SvPV(s,len); if (len != 16) { subname = is_hasbits; croak("Bad arg length for %s%s, length is %d, should be %d", "NetAddr::IP::Util::",subname,len *8,128); } RETVAL = have128(bp); OUTPUT: RETVAL void bin2bcd(s) SV * s ALIAS: NetAddr::IP::Util::bcdn2txt = 2 NetAddr::IP::Util::bin2bcdn = 1 PREINIT: BCD n; unsigned char * cp; STRLEN len; PPCODE: cp = (unsigned char *) SvPV(s,len); if (ix == 0) { if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::bin2bcd",len *8,128); } (void) _bin2bcd(cp,&n); XPUSHs(sv_2mortal(newSVpvn((char *)n.txt,_bcd2txt((unsigned char *)n.bcd,&n)))); } else if (ix == 1) { if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::bin2bcdn",len *8,128); } XPUSHs(sv_2mortal(newSVpvn((char *)n.bcd,_bin2bcd(cp,&n)))); } else { if (len > 20) { croak("Bad arg length for %s, length is %d, should %d digits or less", "NetAddr::IP::Util::bcdn2txt",len *2,40); } XPUSHs(sv_2mortal(newSVpvn((char *)n.txt,_bcd2txt(cp,&n)))); } XSRETURN(1); #* #* the second argument 'len' is the number of bcd digits for #* the bcdn2bin conversion. Pack looses track of the number #* digits so this is needed to do the "right thing". #* NOTE: that simple_pack always returns 40 digits #* void bcd2bin(s,...) SV * s ALIAS: NetAddr::IP::Util::bcdn2bin = 2 NetAddr::IP::Util::simple_pack = 1 PREINIT: BCD n; n128 c128, a128; unsigned char * cp, badc; char * subname; STRLEN len; PPCODE: cp = (unsigned char *) SvPV(s,len); if (len > 40) { if (ix == 0) subname = is_bcd2bin; else if (ix ==1) subname = is_simple_pack; Badigits: croak("Bad arg length for %s%s, length is %d, should be %d digits or less", "NetAddr::IP::Util::",subname,len,40); } if (ix == 2) { if (len > 20) { len <<= 1; /* times 2 */ subname = is_bcdn2bin; goto Badigits; } if (items < 2) { croak("Bad usage, should have %s('packedbcd,length)", "NetAddr::IP::Util::bcdn2bin"); } len = SvIV(ST(1)); _bcdn2bin(cp,&a128,&c128,(int)len); netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); XSRETURN(1); } badc = _simple_pack(cp,(int)len, &n); if (badc) { if (ix == 1) subname = is_simple_pack; else subname = is_bcd2bin; croak("Bad char in string for %s%s, character is '%c', allowed are 0-9", "NetAddr::IP::Util::",subname,badc); } if (ix == 0) { _bcdn2bin((void *)n.bcd,&a128,&c128,40); netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); } else { /* ix == 1 */ XPUSHs(sv_2mortal(newSVpvn((char *)n.bcd,20))); } XSRETURN(1); void notcontiguous(s) SV * s PREINIT: unsigned char * ap, count; u_int32_t wa[4]; STRLEN len; PPCODE: ap = (unsigned char *) SvPV(s,len); if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::countbits",len *8,128); } netswap_copy(wa,ap,4); count = _countbits(wa); XPUSHs(sv_2mortal(newSViv((I32)have128(wa)))); if (GIMME_V == G_ARRAY) { XPUSHs(sv_2mortal(newSViv((I32)count))); XSRETURN(2); } XSRETURN(1); void ipv4to6(s) SV * s ALIAS: NetAddr::IP::Util::mask4to6 = 1 PREINIT: unsigned char * ip; char * subname; u_int32_t wa[4]; STRLEN len; PPCODE: ip = (unsigned char *) SvPV(s,len); if (len != 4) { if (ix == 1) subname = is_mask4to6; else subname = is_ipv4to6; croak("Bad arg length for %s%s, length is %d, should be 32", "NetAddr::IP::Util::",subname,len *8); } if (ix == 0) extendipv4(ip, wa); else extendmask4(ip, wa); XPUSHs(sv_2mortal(newSVpvn((char *)wa,16))); XSRETURN(1); void ipanyto6(s) SV * s ALIAS: NetAddr::IP::Util::maskanyto6 = 1 PREINIT: unsigned char * ip; char * subname; u_int32_t wa[4]; STRLEN len; PPCODE: ip = (unsigned char *) SvPV(s,len); if (len == 16) /* if already 128 bits, return input */ XPUSHs(sv_2mortal(newSVpvn((char *)ip,16))); else if (len == 4) { if (ix == 0) extendipv4(ip, wa); else extendmask4(ip, wa); XPUSHs(sv_2mortal(newSVpvn((char *)wa,16))); } else { if (ix == 1) subname = is_maskanyto6; else subname = is_ipanyto6; croak("Bad arg length for %s%s, length is %d, should be 32 or 128", "NetAddr::IP::Util::",subname,len *8); } XSRETURN(1); Lite/Util/configure.gcc 0000644 00000626340 15043770025 0011033 0 ustar 00 #! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.61. # # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, # 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi # PATH needs CR # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) as_nl=' ' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 { (exit 1); exit 1; } fi # Work around bugs in pre-3.0 UWIN ksh. for as_var in ENV MAIL MAILPATH do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # CDPATH. $as_unset CDPATH if test "x$CONFIG_SHELL" = x; then if (eval ":") 2>/dev/null; then as_have_required=yes else as_have_required=no fi if test $as_have_required = yes && (eval ": (as_func_return () { (exit \$1) } as_func_success () { as_func_return 0 } as_func_failure () { as_func_return 1 } as_func_ret_success () { return 0 } as_func_ret_failure () { return 1 } exitcode=0 if as_func_success; then : else exitcode=1 echo as_func_success failed. fi if as_func_failure; then exitcode=1 echo as_func_failure succeeded. fi if as_func_ret_success; then : else exitcode=1 echo as_func_ret_success failed. fi if as_func_ret_failure; then exitcode=1 echo as_func_ret_failure succeeded. fi if ( set x; as_func_ret_success y && test x = \"\$1\" ); then : else exitcode=1 echo positional parameters were not saved. fi test \$exitcode = 0) || { (exit 1); exit 1; } ( as_lineno_1=\$LINENO as_lineno_2=\$LINENO test \"x\$as_lineno_1\" != \"x\$as_lineno_2\" && test \"x\`expr \$as_lineno_1 + 1\`\" = \"x\$as_lineno_2\") || { (exit 1); exit 1; } ") 2> /dev/null; then : else as_candidate_shells= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. case $as_dir in /*) for as_base in sh bash ksh sh5; do as_candidate_shells="$as_candidate_shells $as_dir/$as_base" done;; esac done IFS=$as_save_IFS for as_shell in $as_candidate_shells $SHELL; do # Try only shells that exist, to save several forks. if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { ("$as_shell") 2> /dev/null <<\_ASEOF if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi : _ASEOF }; then CONFIG_SHELL=$as_shell as_have_required=yes if { "$as_shell" 2> /dev/null <<\_ASEOF if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi : (as_func_return () { (exit $1) } as_func_success () { as_func_return 0 } as_func_failure () { as_func_return 1 } as_func_ret_success () { return 0 } as_func_ret_failure () { return 1 } exitcode=0 if as_func_success; then : else exitcode=1 echo as_func_success failed. fi if as_func_failure; then exitcode=1 echo as_func_failure succeeded. fi if as_func_ret_success; then : else exitcode=1 echo as_func_ret_success failed. fi if as_func_ret_failure; then exitcode=1 echo as_func_ret_failure succeeded. fi if ( set x; as_func_ret_success y && test x = "$1" ); then : else exitcode=1 echo positional parameters were not saved. fi test $exitcode = 0) || { (exit 1); exit 1; } ( as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2") || { (exit 1); exit 1; } _ASEOF }; then break fi fi done if test "x$CONFIG_SHELL" != x; then for as_var in BASH_ENV ENV do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done export CONFIG_SHELL exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} fi if test $as_have_required = no; then echo This script requires a shell more modern than all the echo shells that I found on your system. Please install a echo modern shell, or manually run the script under such a echo shell if you do have one. { (exit 1); exit 1; } fi fi fi (eval "as_func_return () { (exit \$1) } as_func_success () { as_func_return 0 } as_func_failure () { as_func_return 1 } as_func_ret_success () { return 0 } as_func_ret_failure () { return 1 } exitcode=0 if as_func_success; then : else exitcode=1 echo as_func_success failed. fi if as_func_failure; then exitcode=1 echo as_func_failure succeeded. fi if as_func_ret_success; then : else exitcode=1 echo as_func_ret_success failed. fi if as_func_ret_failure; then exitcode=1 echo as_func_ret_failure succeeded. fi if ( set x; as_func_ret_success y && test x = \"\$1\" ); then : else exitcode=1 echo positional parameters were not saved. fi test \$exitcode = 0") || { echo No shell found that supports shell functions. echo Please tell autoconf@gnu.org about your system, echo including any error possibly output before this echo message } as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line after each line using $LINENO; the second 'sed' # does the real work. The second script uses 'N' to pair each # line-number line with the line containing $LINENO, and appends # trailing '-' during substitution so that $LINENO is not a special # case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # scripts with optimization help from Paolo Bonzini. Blame Lee # E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in -n*) case `echo 'x\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. *) ECHO_C='\c';; esac;; *) ECHO_N='-n';; esac if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir fi echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 7<&0 </dev/null 6>&1 # Name of the host. # hostname on some systems (SVR3.2, Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Identity of this package. PACKAGE_NAME= PACKAGE_TARNAME= PACKAGE_VERSION= PACKAGE_STRING= PACKAGE_BUGREPORT= # Factoring default headers for most tests. ac_includes_default="\ #include <stdio.h> #ifdef HAVE_SYS_TYPES_H # include <sys/types.h> #endif #ifdef HAVE_SYS_STAT_H # include <sys/stat.h> #endif #ifdef STDC_HEADERS # include <stdlib.h> # include <stddef.h> #else # ifdef HAVE_STDLIB_H # include <stdlib.h> # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include <memory.h> # endif # include <string.h> #endif #ifdef HAVE_STRINGS_H # include <strings.h> #endif #ifdef HAVE_INTTYPES_H # include <inttypes.h> #endif #ifdef HAVE_STDINT_H # include <stdint.h> #endif #ifdef HAVE_UNISTD_H # include <unistd.h> #endif" ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datarootdir datadir sysconfdir sharedstatedir localstatedir includedir oldincludedir docdir infodir htmldir dvidir pdfdir psdir libdir localedir mandir DEFS ECHO_C ECHO_N ECHO_T LIBS build_alias host_alias target_alias CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT CPP GREP EGREP LIBOBJS LTLIBOBJS' ac_subst_files='' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP' # Initialize some variables set by options. ac_init_help= ac_init_version=false # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` eval enable_$ac_feature=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` eval enable_$ac_feature=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package | sed 's/[-.]/_/g'` eval with_$ac_package=\$ac_optarg ;; -without-* | --without-*) ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package | sed 's/[-.]/_/g'` eval with_$ac_package=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) { echo "$as_me: error: unrecognized option: $ac_option Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 { (exit 1); exit 1; }; } eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` { echo "$as_me: error: missing argument to $ac_option" >&2 { (exit 1); exit 1; }; } fi # Be sure to have absolute directory names. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 { (exit 1); exit 1; }; } done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. If a cross compiler is detected then cross compile mode will be used." >&2 elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || { echo "$as_me: error: Working directory cannot be determined" >&2 { (exit 1); exit 1; }; } test "X$ac_ls_di" = "X$ac_pwd_ls_di" || { echo "$as_me: error: pwd does not report name of working directory" >&2 { (exit 1); exit 1; }; } # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$0" || $as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$0" : 'X\(//\)[^/]' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X"$0" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 { (exit 1); exit 1; }; } fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || { echo "$as_me: error: $ac_msg" >&2 { (exit 1); exit 1; }; } pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures this package to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/PACKAGE] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF _ACEOF fi if test -n "$ac_init_help"; then cat <<\_ACEOF Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a nonstandard directory <lib dir> LIBS libraries to pass to the linker, e.g. -l<library> CPPFLAGS C/C++/Objective C preprocessor flags, e.g. -I<include dir> if you have headers in a nonstandard directory <include dir> CPP C preprocessor Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF configure generated by GNU Autoconf 2.61 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by $as_me, which was generated by GNU Autoconf 2.61. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; 2) ac_configure_args1="$ac_configure_args1 '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi ac_configure_args="$ac_configure_args '$ac_arg'" ;; esac done done $as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } $as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo cat <<\_ASBOX ## ---------------- ## ## Cache variables. ## ## ---------------- ## _ASBOX echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( *) $as_unset $ac_var ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo cat <<\_ASBOX ## ----------------- ## ## Output variables. ## ## ----------------- ## _ASBOX echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then cat <<\_ASBOX ## ------------------- ## ## File substitutions. ## ## ------------------- ## _ASBOX echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then cat <<\_ASBOX ## ----------- ## ## confdefs.h. ## ## ----------- ## _ASBOX echo cat confdefs.h echo fi test "$ac_signal" != 0 && echo "$as_me: caught signal $ac_signal" echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer explicitly selected file to automatically selected ones. if test -n "$CONFIG_SITE"; then set x "$CONFIG_SITE" elif test "x$prefix" != xNONE; then set x "$prefix/share/config.site" "$prefix/etc/config.site" else set x "$ac_default_prefix/share/config.site" \ "$ac_default_prefix/etc/config.site" fi shift for ac_site_file do if test -r "$ac_site_file"; then { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special # files actually), so we avoid doing that. if test -f "$cache_file"; then { echo "$as_me:$LINENO: loading cache $cache_file" >&5 echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { echo "$as_me:$LINENO: creating cache $cache_file" >&5 echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 echo "$as_me: former value: $ac_old_val" >&2;} { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 echo "$as_me: current value: $ac_new_val" >&2;} ac_cache_corrupted=: fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 echo "$as_me: error: changes in the environment can compromise the build" >&2;} { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_headers="$ac_config_headers config.h" # Checks for programs. ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&5 echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6; } else { echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&5 echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools whose name does not start with the host triplet. If you think this configuration is useful to you, please write to autoconf@gnu.org." >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&5 echo "$as_me: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } # Provide some information about the compiler. echo "$as_me:$LINENO: checking for C compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (ac_try="$ac_compiler --version >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compiler --version >&5") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (ac_try="$ac_compiler -v >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compiler -v >&5") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (ac_try="$ac_compiler -V >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compiler -V >&5") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6; } ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # # List of possible output files, starting from the most likely. # The algorithm is not robust to junk in `.', hence go to wildcards (a.*) # only as a last resort. b.out is created by i960 compilers. ac_files='a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out' # # The IRIX 6 linker writes into existing files which may not be # executable, retaining their permissions. Remove them first so a # subsequent execution test works. ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { (ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link_default") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi { echo "$as_me:$LINENO: result: $ac_file" >&5 echo "${ECHO_T}$ac_file" >&6; } if test -z "$ac_file"; then echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: C compiler cannot create executables See \`config.log' for more details." >&5 echo "$as_me: error: C compiler cannot create executables See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } fi ac_exeext=$ac_cv_exeext # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { echo "$as_me:$LINENO: checking whether the C compiler works" >&5 echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6; } # FIXME: These cross compiler hacks should be removed for Autoconf 3.0 # If not cross compiling, check that we can run a simple program. if test "$cross_compiling" != yes; then if { ac_try='./$ac_file' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { echo "$as_me:$LINENO: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&5 echo "$as_me: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi fi fi { echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6; } rm -f a.out a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6; } { echo "$as_me:$LINENO: result: $cross_compiling" >&5 echo "${ECHO_T}$cross_compiling" >&6; } { echo "$as_me:$LINENO: checking for suffix of executables" >&5 echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6; } if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest$ac_cv_exeext { echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 echo "${ECHO_T}$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT { echo "$as_me:$LINENO: checking for suffix of object files" >&5 echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6; } if test "${ac_cv_objext+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 echo "${ECHO_T}$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6; } if test "${ac_cv_c_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6; } GCC=`test $ac_compiler_gnu = yes && echo yes` ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6; } if test "${ac_cv_prog_cc_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 CFLAGS="" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 echo "${ECHO_T}$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { echo "$as_me:$LINENO: checking for $CC option to accept ISO C89" >&5 echo $ECHO_N "checking for $CC option to accept ISO C89... $ECHO_C" >&6; } if test "${ac_cv_prog_cc_c89+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <stdarg.h> #include <stdio.h> #include <sys/types.h> #include <sys/stat.h> /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_prog_cc_c89=$ac_arg else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { echo "$as_me:$LINENO: result: none needed" >&5 echo "${ECHO_T}none needed" >&6; } ;; xno) { echo "$as_me:$LINENO: result: unsupported" >&5 echo "${ECHO_T}unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { echo "$as_me:$LINENO: result: $ac_cv_prog_cc_c89" >&5 echo "${ECHO_T}$ac_cv_prog_cc_c89" >&6; } ;; esac ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Checks for header files. ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if test "${ac_cv_prog_CPP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since # <limits.h> exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include <limits.h> #else # include <assert.h> #endif Syntax error _ACEOF if { (ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <ac_nonexistent.h> _ACEOF if { (ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { echo "$as_me:$LINENO: result: $CPP" >&5 echo "${ECHO_T}$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since # <limits.h> exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include <limits.h> #else # include <assert.h> #endif Syntax error _ACEOF if { (ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <ac_nonexistent.h> _ACEOF if { (ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details." >&5 echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { echo "$as_me:$LINENO: checking for grep that handles long lines and -e" >&5 echo $ECHO_N "checking for grep that handles long lines and -e... $ECHO_C" >&6; } if test "${ac_cv_path_GREP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Extract the first word of "grep ggrep" to use in msg output if test -z "$GREP"; then set dummy grep ggrep; ac_prog_name=$2 if test "${ac_cv_path_GREP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break ac_count=`expr $ac_count + 1` if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS fi GREP="$ac_cv_path_GREP" if test -z "$GREP"; then { { echo "$as_me:$LINENO: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&5 echo "$as_me: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&2;} { (exit 1); exit 1; }; } fi else ac_cv_path_GREP=$GREP fi fi { echo "$as_me:$LINENO: result: $ac_cv_path_GREP" >&5 echo "${ECHO_T}$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { echo "$as_me:$LINENO: checking for egrep" >&5 echo $ECHO_N "checking for egrep... $ECHO_C" >&6; } if test "${ac_cv_path_EGREP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else # Extract the first word of "egrep" to use in msg output if test -z "$EGREP"; then set dummy egrep; ac_prog_name=$2 if test "${ac_cv_path_EGREP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break ac_count=`expr $ac_count + 1` if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS fi EGREP="$ac_cv_path_EGREP" if test -z "$EGREP"; then { { echo "$as_me:$LINENO: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&5 echo "$as_me: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&2;} { (exit 1); exit 1; }; } fi else ac_cv_path_EGREP=$EGREP fi fi fi { echo "$as_me:$LINENO: result: $ac_cv_path_EGREP" >&5 echo "${ECHO_T}$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { echo "$as_me:$LINENO: checking for ANSI C header files" >&5 echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6; } if test "${ac_cv_header_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <stdlib.h> #include <stdarg.h> #include <string.h> #include <float.h> int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_header_stdc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <string.h> _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <stdlib.h> _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <ctype.h> #include <stdlib.h> #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi fi { echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 echo "${ECHO_T}$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then cat >>confdefs.h <<\_ACEOF #define STDC_HEADERS 1 _ACEOF fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` { echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then eval "$as_ac_Header=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_Header=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi ac_res=`eval echo '${'$as_ac_Header'}'` { echo "$as_me:$LINENO: result: $ac_res" >&5 echo "${ECHO_T}$ac_res" >&6; } if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sys/socket.h netinet/in.h arpa/inet.h netdb.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then { echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi ac_res=`eval echo '${'$as_ac_Header'}'` { echo "$as_me:$LINENO: result: $ac_res" >&5 echo "${ECHO_T}$ac_res" >&6; } else # Is the header compilable? { echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6; } cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6; } # Is the header present? { echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6; } cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext { echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ;; esac { echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi ac_res=`eval echo '${'$as_ac_Header'}'` { echo "$as_me:$LINENO: result: $ac_res" >&5 echo "${ECHO_T}$ac_res" >&6; } fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done # Checks for typedefs, structures, and compiler characteristics. { echo "$as_me:$LINENO: checking for an ANSI C-conforming const" >&5 echo $ECHO_N "checking for an ANSI C-conforming const... $ECHO_C" >&6; } if test "${ac_cv_c_const+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { /* FIXME: Include the comments suggested by Paul. */ #ifndef __cplusplus /* Ultrix mips cc rejects this. */ typedef int charset[2]; const charset cs; /* SunOS 4.1.1 cc rejects this. */ char const *const *pcpcc; char **ppc; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; pcpcc = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++pcpcc; ppc = (char**) pcpcc; pcpcc = (char const *const *) ppc; { /* SCO 3.2v4 cc rejects this. */ char *t; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; if (s) return 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; }; struct s *b; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; if (!foo) return 0; } return !cs[0] && !zero.x; #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_c_const=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c_const=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_c_const" >&5 echo "${ECHO_T}$ac_cv_c_const" >&6; } if test $ac_cv_c_const = no; then cat >>confdefs.h <<\_ACEOF #define const _ACEOF fi { echo "$as_me:$LINENO: checking for int32_t" >&5 echo $ECHO_N "checking for int32_t... $ECHO_C" >&6; } if test "${ac_cv_c_int32_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_c_int32_t=no for ac_type in 'int32_t' 'int' 'long int' \ 'long long int' 'short int' 'signed char'; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { static int test_array [1 - 2 * !(0 < ($ac_type) (((($ac_type) 1 << (32 - 2)) - 1) * 2 + 1))]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { static int test_array [1 - 2 * !(($ac_type) (((($ac_type) 1 << (32 - 2)) - 1) * 2 + 1) < ($ac_type) (((($ac_type) 1 << (32 - 2)) - 1) * 2 + 2))]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 case $ac_type in int32_t) ac_cv_c_int32_t=yes ;; *) ac_cv_c_int32_t=$ac_type ;; esac fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext test "$ac_cv_c_int32_t" != no && break done fi { echo "$as_me:$LINENO: result: $ac_cv_c_int32_t" >&5 echo "${ECHO_T}$ac_cv_c_int32_t" >&6; } case $ac_cv_c_int32_t in #( no|yes) ;; #( *) cat >>confdefs.h <<_ACEOF #define int32_t $ac_cv_c_int32_t _ACEOF ;; esac { echo "$as_me:$LINENO: checking for uint16_t" >&5 echo $ECHO_N "checking for uint16_t... $ECHO_C" >&6; } if test "${ac_cv_c_uint16_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_c_uint16_t=no for ac_type in 'uint16_t' 'unsigned int' 'unsigned long int' \ 'unsigned long long int' 'unsigned short int' 'unsigned char'; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { static int test_array [1 - 2 * !(($ac_type) -1 >> (16 - 1) == 1)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then case $ac_type in uint16_t) ac_cv_c_uint16_t=yes ;; *) ac_cv_c_uint16_t=$ac_type ;; esac else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext test "$ac_cv_c_uint16_t" != no && break done fi { echo "$as_me:$LINENO: result: $ac_cv_c_uint16_t" >&5 echo "${ECHO_T}$ac_cv_c_uint16_t" >&6; } case $ac_cv_c_uint16_t in #( no|yes) ;; #( *) cat >>confdefs.h <<_ACEOF #define uint16_t $ac_cv_c_uint16_t _ACEOF ;; esac { echo "$as_me:$LINENO: checking for uint32_t" >&5 echo $ECHO_N "checking for uint32_t... $ECHO_C" >&6; } if test "${ac_cv_c_uint32_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_c_uint32_t=no for ac_type in 'uint32_t' 'unsigned int' 'unsigned long int' \ 'unsigned long long int' 'unsigned short int' 'unsigned char'; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { static int test_array [1 - 2 * !(($ac_type) -1 >> (32 - 1) == 1)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then case $ac_type in uint32_t) ac_cv_c_uint32_t=yes ;; *) ac_cv_c_uint32_t=$ac_type ;; esac else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext test "$ac_cv_c_uint32_t" != no && break done fi { echo "$as_me:$LINENO: result: $ac_cv_c_uint32_t" >&5 echo "${ECHO_T}$ac_cv_c_uint32_t" >&6; } case $ac_cv_c_uint32_t in #( no|yes) ;; #( *) cat >>confdefs.h <<\_ACEOF #define _UINT32_T 1 _ACEOF cat >>confdefs.h <<_ACEOF #define uint32_t $ac_cv_c_uint32_t _ACEOF ;; esac { echo "$as_me:$LINENO: checking for uint8_t" >&5 echo $ECHO_N "checking for uint8_t... $ECHO_C" >&6; } if test "${ac_cv_c_uint8_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_c_uint8_t=no for ac_type in 'uint8_t' 'unsigned int' 'unsigned long int' \ 'unsigned long long int' 'unsigned short int' 'unsigned char'; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { static int test_array [1 - 2 * !(($ac_type) -1 >> (8 - 1) == 1)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then case $ac_type in uint8_t) ac_cv_c_uint8_t=yes ;; *) ac_cv_c_uint8_t=$ac_type ;; esac else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext test "$ac_cv_c_uint8_t" != no && break done fi { echo "$as_me:$LINENO: result: $ac_cv_c_uint8_t" >&5 echo "${ECHO_T}$ac_cv_c_uint8_t" >&6; } case $ac_cv_c_uint8_t in #( no|yes) ;; #( *) cat >>confdefs.h <<\_ACEOF #define _UINT8_T 1 _ACEOF cat >>confdefs.h <<_ACEOF #define uint8_t $ac_cv_c_uint8_t _ACEOF ;; esac # Checks for library functions. if test $ac_cv_c_compiler_gnu = yes; then { echo "$as_me:$LINENO: checking whether $CC needs -traditional" >&5 echo $ECHO_N "checking whether $CC needs -traditional... $ECHO_C" >&6; } if test "${ac_cv_prog_gcc_traditional+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_pattern="Autoconf.*'x'" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <sgtty.h> Autoconf TIOCGETP _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then ac_cv_prog_gcc_traditional=yes else ac_cv_prog_gcc_traditional=no fi rm -f conftest* if test $ac_cv_prog_gcc_traditional = no; then cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <termio.h> Autoconf TCGETA _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then ac_cv_prog_gcc_traditional=yes fi rm -f conftest* fi fi { echo "$as_me:$LINENO: result: $ac_cv_prog_gcc_traditional" >&5 echo "${ECHO_T}$ac_cv_prog_gcc_traditional" >&6; } if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi { echo "$as_me:$LINENO: checking for library containing gethostbyname" >&5 echo $ECHO_N "checking for library containing gethostbyname... $ECHO_C" >&6; } if test "${ac_cv_search_gethostbyname+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char gethostbyname (); int main () { return gethostbyname (); ; return 0; } _ACEOF for ac_lib in '' nsl; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi rm -f conftest.$ac_objext conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && $as_test_x conftest$ac_exeext; then ac_cv_search_gethostbyname=$ac_res else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \ conftest$ac_exeext if test "${ac_cv_search_gethostbyname+set}" = set; then break fi done if test "${ac_cv_search_gethostbyname+set}" = set; then : else ac_cv_search_gethostbyname=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { echo "$as_me:$LINENO: result: $ac_cv_search_gethostbyname" >&5 echo "${ECHO_T}$ac_cv_search_gethostbyname" >&6; } ac_res=$ac_cv_search_gethostbyname if test "$ac_res" != no; then test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_GETHOSTBYNAME 1 _ACEOF fi { echo "$as_me:$LINENO: checking for library containing inet_aton" >&5 echo $ECHO_N "checking for library containing inet_aton... $ECHO_C" >&6; } if test "${ac_cv_search_inet_aton+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char inet_aton (); int main () { return inet_aton (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi rm -f conftest.$ac_objext conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && $as_test_x conftest$ac_exeext; then ac_cv_search_inet_aton=$ac_res else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \ conftest$ac_exeext if test "${ac_cv_search_inet_aton+set}" = set; then break fi done if test "${ac_cv_search_inet_aton+set}" = set; then : else ac_cv_search_inet_aton=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { echo "$as_me:$LINENO: result: $ac_cv_search_inet_aton" >&5 echo "${ECHO_T}$ac_cv_search_inet_aton" >&6; } ac_res=$ac_cv_search_inet_aton if test "$ac_res" != no; then test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_INET_ATON 1 _ACEOF fi { echo "$as_me:$LINENO: checking for library containing inet_pton" >&5 echo $ECHO_N "checking for library containing inet_pton... $ECHO_C" >&6; } if test "${ac_cv_search_inet_pton+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char inet_pton (); int main () { return inet_pton (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi rm -f conftest.$ac_objext conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && $as_test_x conftest$ac_exeext; then ac_cv_search_inet_pton=$ac_res else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \ conftest$ac_exeext if test "${ac_cv_search_inet_pton+set}" = set; then break fi done if test "${ac_cv_search_inet_pton+set}" = set; then : else ac_cv_search_inet_pton=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { echo "$as_me:$LINENO: result: $ac_cv_search_inet_pton" >&5 echo "${ECHO_T}$ac_cv_search_inet_pton" >&6; } ac_res=$ac_cv_search_inet_pton if test "$ac_res" != no; then test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_INET_PTON 1 _ACEOF fi { echo "$as_me:$LINENO: checking for library containing inet_addr" >&5 echo $ECHO_N "checking for library containing inet_addr... $ECHO_C" >&6; } if test "${ac_cv_search_inet_addr+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char inet_addr (); int main () { return inet_addr (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi rm -f conftest.$ac_objext conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && $as_test_x conftest$ac_exeext; then ac_cv_search_inet_addr=$ac_res else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \ conftest$ac_exeext if test "${ac_cv_search_inet_addr+set}" = set; then break fi done if test "${ac_cv_search_inet_addr+set}" = set; then : else ac_cv_search_inet_addr=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { echo "$as_me:$LINENO: result: $ac_cv_search_inet_addr" >&5 echo "${ECHO_T}$ac_cv_search_inet_addr" >&6; } ac_res=$ac_cv_search_inet_addr if test "$ac_res" != no; then test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_INET_ADDR 1 _ACEOF fi { echo "$as_me:$LINENO: checking whether byte ordering is bigendian" >&5 echo $ECHO_N "checking whether byte ordering is bigendian... $ECHO_C" >&6; } if test "${ac_cv_c_bigendian+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # See if sys/param.h defines the BYTE_ORDER macro. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <sys/types.h> #include <sys/param.h> int main () { #if ! (defined BYTE_ORDER && defined BIG_ENDIAN && defined LITTLE_ENDIAN \ && BYTE_ORDER && BIG_ENDIAN && LITTLE_ENDIAN) bogus endian macros #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then # It does; now see whether it defined to BIG_ENDIAN or not. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <sys/types.h> #include <sys/param.h> int main () { #if BYTE_ORDER != BIG_ENDIAN not big endian #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_c_bigendian=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c_bigendian=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # It does not; compile a test program. if test "$cross_compiling" = yes; then # try to guess the endianness by grepping values into an object file ac_cv_c_bigendian=unknown cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ short int ascii_mm[] = { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 }; short int ascii_ii[] = { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 }; void _ascii () { char *s = (char *) ascii_mm; s = (char *) ascii_ii; } short int ebcdic_ii[] = { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 }; short int ebcdic_mm[] = { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 }; void _ebcdic () { char *s = (char *) ebcdic_mm; s = (char *) ebcdic_ii; } int main () { _ascii (); _ebcdic (); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then if grep BIGenDianSyS conftest.$ac_objext >/dev/null ; then ac_cv_c_bigendian=yes fi if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then if test "$ac_cv_c_bigendian" = unknown; then ac_cv_c_bigendian=no else # finding both strings is unlikely to happen, but who knows? ac_cv_c_bigendian=unknown fi fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { /* Are we little or big endian? From Harbison&Steele. */ union { long int l; char c[sizeof (long int)]; } u; u.l = 1; return u.c[sizeof (long int) - 1] == 1; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c_bigendian=no else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_c_bigendian=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_c_bigendian" >&5 echo "${ECHO_T}$ac_cv_c_bigendian" >&6; } case $ac_cv_c_bigendian in yes) cat >>confdefs.h <<\_ACEOF #define WORDS_BIGENDIAN 1 _ACEOF ;; no) ;; *) { { echo "$as_me:$LINENO: error: unknown endianness presetting ac_cv_c_bigendian=no (or yes) will help" >&5 echo "$as_me: error: unknown endianness presetting ac_cv_c_bigendian=no (or yes) will help" >&2;} { (exit 1); exit 1; }; } ;; esac { echo "$as_me:$LINENO: checking for uint8_t" >&5 echo $ECHO_N "checking for uint8_t... $ECHO_C" >&6; } if test "${ac_cv_type_uint8_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_new_; int main () { if ((ac__type_new_ *) 0) return 0; if (sizeof (ac__type_new_)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_type_uint8_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_uint8_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_type_uint8_t" >&5 echo "${ECHO_T}$ac_cv_type_uint8_t" >&6; } # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { echo "$as_me:$LINENO: checking size of uint8_t" >&5 echo $ECHO_N "checking size of uint8_t... $ECHO_C" >&6; } if test "${ac_cv_sizeof_uint8_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=0 ac_mid=0 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr $ac_mid + 1` if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=-1 ac_mid=-1 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_hi=`expr '(' $ac_mid ')' - 1` if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr '(' $ac_mid ')' + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in ?*) ac_cv_sizeof_uint8_t=$ac_lo;; '') if test "$ac_cv_type_uint8_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (uint8_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (uint8_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_uint8_t=0 fi ;; esac else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint8_t ac__type_sizeof_; static long int longval () { return (long int) (sizeof (ac__type_sizeof_)); } static unsigned long int ulongval () { return (long int) (sizeof (ac__type_sizeof_)); } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (((long int) (sizeof (ac__type_sizeof_))) < 0) { long int i = longval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%ld\n", i); } else { unsigned long int i = ulongval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%lu\n", i); } return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_sizeof_uint8_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) if test "$ac_cv_type_uint8_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (uint8_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (uint8_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_uint8_t=0 fi fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi rm -f conftest.val fi { echo "$as_me:$LINENO: result: $ac_cv_sizeof_uint8_t" >&5 echo "${ECHO_T}$ac_cv_sizeof_uint8_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_UINT8_T $ac_cv_sizeof_uint8_t _ACEOF { echo "$as_me:$LINENO: checking for uint16_t" >&5 echo $ECHO_N "checking for uint16_t... $ECHO_C" >&6; } if test "${ac_cv_type_uint16_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_new_; int main () { if ((ac__type_new_ *) 0) return 0; if (sizeof (ac__type_new_)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_type_uint16_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_uint16_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_type_uint16_t" >&5 echo "${ECHO_T}$ac_cv_type_uint16_t" >&6; } # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { echo "$as_me:$LINENO: checking size of uint16_t" >&5 echo $ECHO_N "checking size of uint16_t... $ECHO_C" >&6; } if test "${ac_cv_sizeof_uint16_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=0 ac_mid=0 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr $ac_mid + 1` if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=-1 ac_mid=-1 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_hi=`expr '(' $ac_mid ')' - 1` if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr '(' $ac_mid ')' + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in ?*) ac_cv_sizeof_uint16_t=$ac_lo;; '') if test "$ac_cv_type_uint16_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (uint16_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (uint16_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_uint16_t=0 fi ;; esac else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint16_t ac__type_sizeof_; static long int longval () { return (long int) (sizeof (ac__type_sizeof_)); } static unsigned long int ulongval () { return (long int) (sizeof (ac__type_sizeof_)); } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (((long int) (sizeof (ac__type_sizeof_))) < 0) { long int i = longval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%ld\n", i); } else { unsigned long int i = ulongval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%lu\n", i); } return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_sizeof_uint16_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) if test "$ac_cv_type_uint16_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (uint16_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (uint16_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_uint16_t=0 fi fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi rm -f conftest.val fi { echo "$as_me:$LINENO: result: $ac_cv_sizeof_uint16_t" >&5 echo "${ECHO_T}$ac_cv_sizeof_uint16_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_UINT16_T $ac_cv_sizeof_uint16_t _ACEOF { echo "$as_me:$LINENO: checking for uint32_t" >&5 echo $ECHO_N "checking for uint32_t... $ECHO_C" >&6; } if test "${ac_cv_type_uint32_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_new_; int main () { if ((ac__type_new_ *) 0) return 0; if (sizeof (ac__type_new_)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_type_uint32_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_uint32_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_type_uint32_t" >&5 echo "${ECHO_T}$ac_cv_type_uint32_t" >&6; } # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { echo "$as_me:$LINENO: checking size of uint32_t" >&5 echo $ECHO_N "checking size of uint32_t... $ECHO_C" >&6; } if test "${ac_cv_sizeof_uint32_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=0 ac_mid=0 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr $ac_mid + 1` if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=-1 ac_mid=-1 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_hi=`expr '(' $ac_mid ')' - 1` if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr '(' $ac_mid ')' + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in ?*) ac_cv_sizeof_uint32_t=$ac_lo;; '') if test "$ac_cv_type_uint32_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (uint32_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (uint32_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_uint32_t=0 fi ;; esac else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef uint32_t ac__type_sizeof_; static long int longval () { return (long int) (sizeof (ac__type_sizeof_)); } static unsigned long int ulongval () { return (long int) (sizeof (ac__type_sizeof_)); } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (((long int) (sizeof (ac__type_sizeof_))) < 0) { long int i = longval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%ld\n", i); } else { unsigned long int i = ulongval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%lu\n", i); } return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_sizeof_uint32_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) if test "$ac_cv_type_uint32_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (uint32_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (uint32_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_uint32_t=0 fi fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi rm -f conftest.val fi { echo "$as_me:$LINENO: result: $ac_cv_sizeof_uint32_t" >&5 echo "${ECHO_T}$ac_cv_sizeof_uint32_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_UINT32_T $ac_cv_sizeof_uint32_t _ACEOF { echo "$as_me:$LINENO: checking for u_int8_t" >&5 echo $ECHO_N "checking for u_int8_t... $ECHO_C" >&6; } if test "${ac_cv_type_u_int8_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_new_; int main () { if ((ac__type_new_ *) 0) return 0; if (sizeof (ac__type_new_)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_type_u_int8_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_u_int8_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_type_u_int8_t" >&5 echo "${ECHO_T}$ac_cv_type_u_int8_t" >&6; } # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { echo "$as_me:$LINENO: checking size of u_int8_t" >&5 echo $ECHO_N "checking size of u_int8_t... $ECHO_C" >&6; } if test "${ac_cv_sizeof_u_int8_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=0 ac_mid=0 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr $ac_mid + 1` if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=-1 ac_mid=-1 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_hi=`expr '(' $ac_mid ')' - 1` if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr '(' $ac_mid ')' + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in ?*) ac_cv_sizeof_u_int8_t=$ac_lo;; '') if test "$ac_cv_type_u_int8_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (u_int8_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (u_int8_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_u_int8_t=0 fi ;; esac else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int8_t ac__type_sizeof_; static long int longval () { return (long int) (sizeof (ac__type_sizeof_)); } static unsigned long int ulongval () { return (long int) (sizeof (ac__type_sizeof_)); } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (((long int) (sizeof (ac__type_sizeof_))) < 0) { long int i = longval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%ld\n", i); } else { unsigned long int i = ulongval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%lu\n", i); } return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_sizeof_u_int8_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) if test "$ac_cv_type_u_int8_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (u_int8_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (u_int8_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_u_int8_t=0 fi fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi rm -f conftest.val fi { echo "$as_me:$LINENO: result: $ac_cv_sizeof_u_int8_t" >&5 echo "${ECHO_T}$ac_cv_sizeof_u_int8_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_U_INT8_T $ac_cv_sizeof_u_int8_t _ACEOF { echo "$as_me:$LINENO: checking for u_int16_t" >&5 echo $ECHO_N "checking for u_int16_t... $ECHO_C" >&6; } if test "${ac_cv_type_u_int16_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_new_; int main () { if ((ac__type_new_ *) 0) return 0; if (sizeof (ac__type_new_)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_type_u_int16_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_u_int16_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_type_u_int16_t" >&5 echo "${ECHO_T}$ac_cv_type_u_int16_t" >&6; } # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { echo "$as_me:$LINENO: checking size of u_int16_t" >&5 echo $ECHO_N "checking size of u_int16_t... $ECHO_C" >&6; } if test "${ac_cv_sizeof_u_int16_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=0 ac_mid=0 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr $ac_mid + 1` if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=-1 ac_mid=-1 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_hi=`expr '(' $ac_mid ')' - 1` if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr '(' $ac_mid ')' + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in ?*) ac_cv_sizeof_u_int16_t=$ac_lo;; '') if test "$ac_cv_type_u_int16_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (u_int16_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (u_int16_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_u_int16_t=0 fi ;; esac else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int16_t ac__type_sizeof_; static long int longval () { return (long int) (sizeof (ac__type_sizeof_)); } static unsigned long int ulongval () { return (long int) (sizeof (ac__type_sizeof_)); } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (((long int) (sizeof (ac__type_sizeof_))) < 0) { long int i = longval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%ld\n", i); } else { unsigned long int i = ulongval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%lu\n", i); } return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_sizeof_u_int16_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) if test "$ac_cv_type_u_int16_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (u_int16_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (u_int16_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_u_int16_t=0 fi fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi rm -f conftest.val fi { echo "$as_me:$LINENO: result: $ac_cv_sizeof_u_int16_t" >&5 echo "${ECHO_T}$ac_cv_sizeof_u_int16_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_U_INT16_T $ac_cv_sizeof_u_int16_t _ACEOF { echo "$as_me:$LINENO: checking for u_int32_t" >&5 echo $ECHO_N "checking for u_int32_t... $ECHO_C" >&6; } if test "${ac_cv_type_u_int32_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_new_; int main () { if ((ac__type_new_ *) 0) return 0; if (sizeof (ac__type_new_)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_cv_type_u_int32_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_u_int32_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { echo "$as_me:$LINENO: result: $ac_cv_type_u_int32_t" >&5 echo "${ECHO_T}$ac_cv_type_u_int32_t" >&6; } # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { echo "$as_me:$LINENO: checking size of u_int32_t" >&5 echo $ECHO_N "checking size of u_int32_t... $ECHO_C" >&6; } if test "${ac_cv_sizeof_u_int32_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=0 ac_mid=0 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr $ac_mid + 1` if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=-1 ac_mid=-1 while :; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_lo=$ac_mid; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_hi=`expr '(' $ac_mid ')' - 1` if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi ac_mid=`expr 2 '*' $ac_mid` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_sizeof_; int main () { static int test_array [1 - 2 * !(((long int) (sizeof (ac__type_sizeof_))) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_compile") 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then ac_hi=$ac_mid else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_lo=`expr '(' $ac_mid ')' + 1` fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in ?*) ac_cv_sizeof_u_int32_t=$ac_lo;; '') if test "$ac_cv_type_u_int32_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (u_int32_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (u_int32_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_u_int32_t=0 fi ;; esac else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default typedef u_int32_t ac__type_sizeof_; static long int longval () { return (long int) (sizeof (ac__type_sizeof_)); } static unsigned long int ulongval () { return (long int) (sizeof (ac__type_sizeof_)); } #include <stdio.h> #include <stdlib.h> int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (((long int) (sizeof (ac__type_sizeof_))) < 0) { long int i = longval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%ld\n", i); } else { unsigned long int i = ulongval (); if (i != ((long int) (sizeof (ac__type_sizeof_)))) return 1; fprintf (f, "%lu\n", i); } return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_link") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 (eval "$ac_try") 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_sizeof_u_int32_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) if test "$ac_cv_type_u_int32_t" = yes; then { { echo "$as_me:$LINENO: error: cannot compute sizeof (u_int32_t) See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute sizeof (u_int32_t) See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } else ac_cv_sizeof_u_int32_t=0 fi fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi rm -f conftest.val fi { echo "$as_me:$LINENO: result: $ac_cv_sizeof_u_int32_t" >&5 echo "${ECHO_T}$ac_cv_sizeof_u_int32_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_U_INT32_T $ac_cv_sizeof_u_int32_t _ACEOF cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( *) $as_unset $ac_var ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote # substitution turns \\\\ into \\, and sed turns \\ into \). sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then test "x$cache_file" != "x/dev/null" && { echo "$as_me:$LINENO: updating cache $cache_file" >&5 echo "$as_me: updating cache $cache_file" >&6;} cat confcache >$cache_file else { echo "$as_me:$LINENO: not updating unwritable cache $cache_file" >&5 echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. ac_libobjs="$ac_libobjs \${LIBOBJDIR}$ac_i\$U.$ac_objext" ac_ltlibobjs="$ac_ltlibobjs \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs if test "$LIBS" != ""; then cat >>confdefs.h <<_ACEOF #define LIBS $LIBS _ACEOF fi : ${CONFIG_STATUS=./config.status} ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 echo "$as_me: creating $CONFIG_STATUS" >&6;} cat >$CONFIG_STATUS <<_ACEOF #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi # PATH needs CR # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) as_nl=' ' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 { (exit 1); exit 1; } fi # Work around bugs in pre-3.0 UWIN ksh. for as_var in ENV MAIL MAILPATH do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # CDPATH. $as_unset CDPATH as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line after each line using $LINENO; the second 'sed' # does the real work. The second script uses 'N' to pair each # line-number line with the line containing $LINENO, and appends # trailing '-' during substitution so that $LINENO is not a special # case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # scripts with optimization help from Paolo Bonzini. Blame Lee # E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in -n*) case `echo 'x\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. *) ECHO_C='\c';; esac;; *) ECHO_N='-n';; esac if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir fi echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 # Save the log message, to keep $[0] and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by $as_me, which was generated by GNU Autoconf 2.61. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF cat >>$CONFIG_STATUS <<_ACEOF # Files that config.status was made for. config_headers="$ac_config_headers" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF ac_cs_usage="\ \`$as_me' instantiates files from templates according to the current configuration. Usage: $0 [OPTIONS] [FILE]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration headers: $config_headers Report bugs to <bug-autoconf@gnu.org>." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_cs_version="\\ config.status configured by $0, generated by GNU Autoconf 2.61, with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" Copyright (C) 2006 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # If no file are specified by the user, then we need to provide default # value. By we need to know if files were specified by the user. ac_need_defaults=: while test $# != 0 do case $1 in --*=*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) echo "$ac_cs_version"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --header | --heade | --head | --hea ) $ac_shift CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header { echo "$as_me: error: ambiguous option: $1 Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; };; --help | --hel | -h ) echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) { echo "$as_me: error: unrecognized option: $1 Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *) ac_config_targets="$ac_config_targets $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF if \$ac_cs_recheck; then echo "running CONFIG_SHELL=$SHELL $SHELL $0 "$ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 CONFIG_SHELL=$SHELL export CONFIG_SHELL exec $SHELL "$0"$ac_configure_args \$ac_configure_extra_args --no-create --no-recursion fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 echo "$as_me: error: invalid argument: $ac_config_target" >&2;} { (exit 1); exit 1; }; };; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= trap 'exit_status=$? { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status ' 0 trap '{ (exit 1); exit 1; }' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || { echo "$me: cannot create a temporary directory in ." >&2 { (exit 1); exit 1; } } for ac_tag in :H $CONFIG_HEADERS do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) { { echo "$as_me:$LINENO: error: Invalid tag $ac_tag." >&5 echo "$as_me: error: Invalid tag $ac_tag." >&2;} { (exit 1); exit 1; }; };; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || { { echo "$as_me:$LINENO: error: cannot find input file: $ac_f" >&5 echo "$as_me: error: cannot find input file: $ac_f" >&2;} { (exit 1); exit 1; }; };; esac ac_file_inputs="$ac_file_inputs $ac_f" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input="Generated from "`IFS=: echo $* | sed 's|^[^:]*/||;s|:[^:]*/|, |g'`" by configure." if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} fi case $ac_tag in *:-:* | *:-) cat >"$tmp/stdin";; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` { as_dir="$ac_dir" case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || { $as_mkdir_p && mkdir -p "$as_dir"; } || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || { { echo "$as_me:$LINENO: error: cannot create directory $as_dir" >&5 echo "$as_me: error: cannot create directory $as_dir" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :H) # # CONFIG_HEADER # _ACEOF # Transform confdefs.h into a sed script `conftest.defines', that # substitutes the proper values into config.h.in to produce config.h. rm -f conftest.defines conftest.tail # First, append a space to every undef/define line, to ease matching. echo 's/$/ /' >conftest.defines # Then, protect against being on the right side of a sed subst, or in # an unquoted here document, in config.status. If some macros were # called several times there might be several #defines for the same # symbol, which is useless. But do not sort them, since the last # AC_DEFINE must be honored. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* # These sed commands are passed to sed as "A NAME B PARAMS C VALUE D", where # NAME is the cpp macro being defined, VALUE is the value it is being given. # PARAMS is the parameter list in the macro definition--in most cases, it's # just an empty string. ac_dA='s,^\\([ #]*\\)[^ ]*\\([ ]*' ac_dB='\\)[ (].*,\\1define\\2' ac_dC=' ' ac_dD=' ,' uniq confdefs.h | sed -n ' t rset :rset s/^[ ]*#[ ]*define[ ][ ]*// t ok d :ok s/[\\&,]/\\&/g s/^\('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/ '"$ac_dA"'\1'"$ac_dB"'\2'"${ac_dC}"'\3'"$ac_dD"'/p s/^\('"$ac_word_re"'\)[ ]*\(.*\)/'"$ac_dA"'\1'"$ac_dB$ac_dC"'\2'"$ac_dD"'/p ' >>conftest.defines # Remove the space that was appended to ease matching. # Then replace #undef with comments. This is necessary, for # example, in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. # (The regexp can be short, since the line contains either #define or #undef.) echo 's/ $// s,^[ #]*u.*,/* & */,' >>conftest.defines # Break up conftest.defines: ac_max_sed_lines=50 # First sed command is: sed -f defines.sed $ac_file_inputs >"$tmp/out1" # Second one is: sed -f defines.sed "$tmp/out1" >"$tmp/out2" # Third one will be: sed -f defines.sed "$tmp/out2" >"$tmp/out1" # et cetera. ac_in='$ac_file_inputs' ac_out='"$tmp/out1"' ac_nxt='"$tmp/out2"' while : do # Write a here document: cat >>$CONFIG_STATUS <<_ACEOF # First, check the format of the line: cat >"\$tmp/defines.sed" <<\\CEOF /^[ ]*#[ ]*undef[ ][ ]*$ac_word_re[ ]*\$/b def /^[ ]*#[ ]*define[ ][ ]*$ac_word_re[( ]/b def b :def _ACEOF sed ${ac_max_sed_lines}q conftest.defines >>$CONFIG_STATUS echo 'CEOF sed -f "$tmp/defines.sed"' "$ac_in >$ac_out" >>$CONFIG_STATUS ac_in=$ac_out; ac_out=$ac_nxt; ac_nxt=$ac_in sed 1,${ac_max_sed_lines}d conftest.defines >conftest.tail grep . conftest.tail >/dev/null || break rm -f conftest.defines mv conftest.tail conftest.defines done rm -f conftest.defines conftest.tail echo "ac_result=$ac_in" >>$CONFIG_STATUS cat >>$CONFIG_STATUS <<\_ACEOF if test x"$ac_file" != x-; then echo "/* $configure_input */" >"$tmp/config.h" cat "$ac_result" >>"$tmp/config.h" if diff $ac_file "$tmp/config.h" >/dev/null 2>&1; then { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 echo "$as_me: $ac_file is unchanged" >&6;} else rm -f $ac_file mv "$tmp/config.h" $ac_file fi else echo "/* $configure_input */" cat "$ac_result" fi rm -f "$tmp/out12" ;; esac done # for ac_tag { (exit 0); exit 0; } _ACEOF chmod +x $CONFIG_STATUS ac_clean_files=$ac_clean_files_save # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || { (exit 1); exit 1; } fi Lite/Util/Makefile 0000644 00000073614 15043770025 0010034 0 ustar 00 # This Makefile is for the NetAddr::IP::Util extension to perl. # # It was generated automatically by MakeMaker version # 7.60 (Revision: 76000) from the contents of # Makefile.PL. Don't edit this file, edit Makefile.PL instead. # # ANY CHANGES MADE HERE WILL BE LOST! # # MakeMaker ARGV: () # # MakeMaker Parameters: # BUILD_REQUIRES => { } # CONFIGURE_REQUIRES => { } # LIBS => [q[]] # NAME => q[NetAddr::IP::Util] # PREREQ_PM => { } # TEST_REQUIRES => { } # VERSION_FROM => q[Util.pm] # clean => { FILES=>q[*.bs *.o *.c *~ tmp* Util_IS.pm localperl.h auto*] } # depend => { Util.c=>q[ localconf.h config.h localperl.h ] } # dist => { COMPRESS=>q[gzip], SUFFIX=>q[gz] } # realclean => { FILES=>q[config.h config.log config.status] } # --- MakeMaker post_initialize section: # --- MakeMaker const_config section: # These definitions are from config.sh (via /usr/lib64/perl5/Config.pm). # They may have been overridden via Makefile.PL or on the command line. AR = ar CC = gcc CCCDLFLAGS = -fPIC CCDLFLAGS = -Wl,--enable-new-dtags -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 DLEXT = so DLSRC = dl_dlopen.xs EXE_EXT = FULL_AR = /usr/bin/ar LD = gcc LDDLFLAGS = -lpthread -shared -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -L/usr/local/lib -fstack-protector-strong LDFLAGS = -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fstack-protector-strong -L/usr/local/lib LIBC = /lib/../lib64/libc.so.6 LIB_EXT = .a OBJ_EXT = .o OSNAME = linux OSVERS = 4.18.0-513.18.1.el8_9.x86_64 RANLIB = : SITELIBEXP = /usr/local/share/perl5/5.32 SITEARCHEXP = /usr/local/lib64/perl5/5.32 SO = so VENDORARCHEXP = /usr/lib64/perl5/vendor_perl VENDORLIBEXP = /usr/share/perl5/vendor_perl # --- MakeMaker constants section: AR_STATIC_ARGS = cr DIRFILESEP = / DFSEP = $(DIRFILESEP) NAME = NetAddr::IP::Util NAME_SYM = NetAddr_IP_Util VERSION = 1.53 VERSION_MACRO = VERSION VERSION_SYM = 1_53 DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" XS_VERSION = 1.53 XS_VERSION_MACRO = XS_VERSION XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" INST_ARCHLIB = ../../blib/arch INST_SCRIPT = ../../blib/script INST_BIN = ../../blib/bin INST_LIB = ../../blib/lib INST_MAN1DIR = ../../blib/man1 INST_MAN3DIR = ../../blib/man3 MAN1EXT = 1 MAN3EXT = 3pm MAN1SECTION = 1 MAN3SECTION = 3 INSTALLDIRS = site DESTDIR = PREFIX = $(SITEPREFIX) PERLPREFIX = /usr SITEPREFIX = /usr/local VENDORPREFIX = /usr INSTALLPRIVLIB = /usr/share/perl5 DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) INSTALLSITELIB = /usr/local/share/perl5/5.32 DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) INSTALLVENDORLIB = /usr/share/perl5/vendor_perl DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) INSTALLARCHLIB = /usr/lib64/perl5 DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) INSTALLSITEARCH = /usr/local/lib64/perl5/5.32 DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) INSTALLVENDORARCH = /usr/lib64/perl5/vendor_perl DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) INSTALLBIN = /usr/bin DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) INSTALLSITEBIN = /usr/local/bin DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) INSTALLVENDORBIN = /usr/bin DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) INSTALLSCRIPT = /usr/bin DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) INSTALLSITESCRIPT = /usr/local/bin DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT) INSTALLVENDORSCRIPT = /usr/bin DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT) INSTALLMAN1DIR = /usr/share/man/man1 DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) INSTALLSITEMAN1DIR = /usr/local/share/man/man1 DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) INSTALLVENDORMAN1DIR = /usr/share/man/man1 DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) INSTALLMAN3DIR = /usr/share/man/man3 DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) INSTALLSITEMAN3DIR = /usr/local/share/man/man3 DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) INSTALLVENDORMAN3DIR = /usr/share/man/man3 DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) PERL_LIB = /usr/share/perl5 PERL_ARCHLIB = /usr/lib64/perl5 PERL_ARCHLIBDEP = /usr/lib64/perl5 LIBPERL_A = libperl.a FIRST_MAKEFILE = Makefile MAKEFILE_OLD = Makefile.old MAKE_APERL_FILE = Makefile.aperl PERLMAINCC = $(CC) PERL_INC = /usr/lib64/perl5/CORE PERL_INCDEP = /usr/lib64/perl5/CORE PERL = "/usr/bin/perl" FULLPERL = "/usr/bin/perl" ABSPERL = $(PERL) PERLRUN = $(PERL) FULLPERLRUN = $(FULLPERL) ABSPERLRUN = $(ABSPERL) PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" PERL_CORE = 0 PERM_DIR = 755 PERM_RW = 644 PERM_RWX = 755 MAKEMAKER = /usr/share/perl5/vendor_perl/ExtUtils/MakeMaker.pm MM_VERSION = 7.60 MM_REVISION = 76000 # FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) # DLBASE = Basename part of dynamic library. May be just equal BASEEXT. MAKE = make FULLEXT = NetAddr/IP/Util BASEEXT = Util PARENT_NAME = NetAddr::IP DLBASE = $(BASEEXT) VERSION_FROM = Util.pm OBJECT = $(BASEEXT)$(OBJ_EXT) LDFROM = $(OBJECT) LINKTYPE = dynamic BOOTDEP = # Handy lists of source code files: XS_FILES = Util.xs C_FILES = Util.c \ configure.cc O_FILES = Util.o \ configure.o H_FILES = config.h \ localconf.h \ localperl.h MAN1PODS = MAN3PODS = Util.pm \ lib/NetAddr/IP/InetBase.pm \ lib/NetAddr/IP/UtilPP.pm # Where is the Config information that we are using/depend on CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_INCDEP)$(DFSEP)config.h # Where to build things INST_LIBDIR = $(INST_LIB)/NetAddr/IP INST_ARCHLIBDIR = $(INST_ARCHLIB)/NetAddr/IP INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT) INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT) INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs # Extra linker info EXPORT_LIST = PERL_ARCHIVE = PERL_ARCHIVEDEP = PERL_ARCHIVE_AFTER = TO_INST_PM = Util.pm \ Util_IS.pm \ lib/NetAddr/IP/InetBase.pm \ lib/NetAddr/IP/UtilPP.pm # --- MakeMaker platform_constants section: MM_Unix_VERSION = 7.60 PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc # --- MakeMaker tool_autosplit section: # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' -- # --- MakeMaker tool_xsubpp section: XSUBPPDIR = /usr/share/perl5/vendor_perl/ExtUtils XSUBPP = "$(XSUBPPDIR)$(DFSEP)xsubpp" XSUBPPRUN = $(PERLRUN) $(XSUBPP) XSPROTOARG = XSUBPPDEPS = /usr/share/perl5/ExtUtils/typemap typemap /usr/share/perl5/vendor_perl/ExtUtils$(DFSEP)xsubpp XSUBPPARGS = -typemap '/usr/share/perl5/ExtUtils/typemap' -typemap '/home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util/typemap' XSUBPP_EXTRA_ARGS = # --- MakeMaker tools_other section: SHELL = /bin/sh CHMOD = chmod CP = cp MV = mv NOOP = $(TRUE) NOECHO = @ RM_F = rm -f RM_RF = rm -rf TEST_F = test -f TOUCH = touch UMASK_NULL = umask 0 DEV_NULL = > /dev/null 2>&1 MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' -- EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' -- FALSE = false TRUE = true ECHO = echo ECHO_N = echo -n UNINST = 0 VERBINST = 0 MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' -- DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' -- UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' -- WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' -- MACROSTART = MACROEND = USEMAKEFILE = -f FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' -- CP_NONEMPTY = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'cp_nonempty' -- # --- MakeMaker makemakerdflt section: makemakerdflt : all $(NOECHO) $(NOOP) # --- MakeMaker dist section skipped. # --- MakeMaker macro section: # --- MakeMaker depend section: Util.c : localconf.h config.h localperl.h # --- MakeMaker cflags section: CCFLAGS = -D_REENTRANT -D_GNU_SOURCE -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 OPTIMIZE = -g PERLTYPE = MPOLLUTE = # --- MakeMaker const_loadlibs section: # NetAddr::IP::Util might depend on some other libraries: # See ExtUtils::Liblist for details # # --- MakeMaker const_cccmd section: CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) # --- MakeMaker post_constants section: MY_POD2TEXT = /usr/bin/pod2text # --- MakeMaker pasthru section: PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ LINKTYPE="$(LINKTYPE)"\ OPTIMIZE="$(OPTIMIZE)"\ PREFIX="$(PREFIX)"\ PASTHRU_DEFINE='$(DEFINE) $(PASTHRU_DEFINE)'\ PASTHRU_INC='$(INC) $(PASTHRU_INC)' # --- MakeMaker special_targets section: .SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) .PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir pure_all subdirs clean_subdirs makemakerdflt manifypods realclean_subdirs subdirs_dynamic subdirs_pure_nolink subdirs_static subdirs-test_dynamic subdirs-test_static test_dynamic test_static # --- MakeMaker c_o section: .c.i: gcc -E -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i .c.s : $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .c$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .cpp$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp .cxx$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx .cc$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc .C$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C # --- MakeMaker xs_c section: .xs.c: $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c # --- MakeMaker xs_o section: .xs$(OBJ_EXT) : $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c # --- MakeMaker top_targets section: config :: config.h @$(NOOP) config.h : $(SHELL) configure all :: pure_all manifypods $(NOECHO) $(NOOP) pure_all :: config pm_to_blib subdirs linkext README $(NOECHO) $(NOOP) subdirs :: $(MYEXTLIB) $(NOECHO) $(NOOP) config :: $(FIRST_MAKEFILE) blibdirs $(NOECHO) $(NOOP) $(O_FILES) : $(H_FILES) help : perldoc ExtUtils::MakeMaker # --- MakeMaker blibdirs section: blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists $(NOECHO) $(NOOP) # Backwards compat with 6.18 through 6.25 blibdirs.ts : blibdirs $(NOECHO) $(NOOP) $(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_LIBDIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR) $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHLIB) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB) $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_AUTODIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR) $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR) $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_BIN) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN) $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_SCRIPT) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT) $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN1DIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR) $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN3DIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR) $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists # --- MakeMaker linkext section: linkext :: dynamic $(NOECHO) $(NOOP) # --- MakeMaker dlsyms section: # --- MakeMaker dynamic_bs section: BOOTSTRAP = $(BASEEXT).bs # As Mkbootstrap might not write a file (if none is required) # we use touch to prevent make continually trying to remake it. # The DynaLoader only reads a non-empty file. $(BASEEXT).bs : $(FIRST_MAKEFILE) $(BOOTDEP) $(NOECHO) $(ECHO) "Running Mkbootstrap for $(BASEEXT) ($(BSLOADLIBS))" $(NOECHO) $(PERLRUN) \ "-MExtUtils::Mkbootstrap" \ -e "Mkbootstrap('$(BASEEXT)','$(BSLOADLIBS)');" $(NOECHO) $(TOUCH) "$(BASEEXT).bs" $(CHMOD) $(PERM_RW) "$(BASEEXT).bs" $(INST_ARCHAUTODIR)/$(BASEEXT).bs : $(BASEEXT).bs $(INST_ARCHAUTODIR)$(DFSEP).exists $(NOECHO) $(RM_RF) $(INST_ARCHAUTODIR)/$(BASEEXT).bs - $(CP_NONEMPTY) $(BASEEXT).bs $(INST_ARCHAUTODIR)/$(BASEEXT).bs $(PERM_RW) # --- MakeMaker dynamic section: dynamic :: $(FIRST_MAKEFILE) config $(INST_BOOT) $(INST_DYNAMIC) $(NOECHO) $(NOOP) # --- MakeMaker dynamic_lib section: # This section creates the dynamically loadable objects from relevant # objects and possibly $(MYEXTLIB). ARMAYBE = : OTHERLDFLAGS = INST_DYNAMIC_DEP = INST_DYNAMIC_FIX = $(INST_DYNAMIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) $(RM_F) $@ $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \ $(PERL_ARCHIVE) $(LDLOADLIBS) -lperl $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \ $(INST_DYNAMIC_FIX) $(CHMOD) $(PERM_RWX) $@ # --- MakeMaker static section: ## $(INST_PM) has been moved to the all: target. ## It remains here for awhile to allow for old usage: "make static" static :: $(FIRST_MAKEFILE) $(INST_STATIC) $(NOECHO) $(NOOP) # --- MakeMaker static_lib section: $(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists $(RM_F) "$@" $(FULL_AR) $(AR_STATIC_ARGS) "$@" $(OBJECT) $(RANLIB) "$@" $(CHMOD) $(PERM_RWX) $@ $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)$(DFSEP)extralibs.ld # --- MakeMaker manifypods section: POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" POD2MAN = $(POD2MAN_EXE) manifypods : pure_all config \ Util.pm \ lib/NetAddr/IP/InetBase.pm \ lib/NetAddr/IP/UtilPP.pm $(NOECHO) $(POD2MAN) --section=$(MAN3SECTION) --perm_rw=$(PERM_RW) -u \ Util.pm $(INST_MAN3DIR)/NetAddr::IP::Util.$(MAN3EXT) \ lib/NetAddr/IP/InetBase.pm $(INST_MAN3DIR)/NetAddr::IP::InetBase.$(MAN3EXT) \ lib/NetAddr/IP/UtilPP.pm $(INST_MAN3DIR)/NetAddr::IP::UtilPP.$(MAN3EXT) # --- MakeMaker processPL section: # --- MakeMaker installbin section: # --- MakeMaker subdirs section: # none # --- MakeMaker clean_subdirs section: clean_subdirs : $(NOECHO) $(NOOP) # --- MakeMaker clean section: # Delete temporary files but do not touch installed files. We don't delete # the Makefile here so a later make realclean still has a makefile to use. clean :: clean_subdirs - $(RM_F) \ $(BASEEXT).bso $(BASEEXT).def \ $(BASEEXT).exp $(BASEEXT).x \ $(BOOTSTRAP) $(INST_ARCHAUTODIR)/extralibs.all \ $(INST_ARCHAUTODIR)/extralibs.ld $(MAKE_APERL_FILE) \ *$(LIB_EXT) *$(OBJ_EXT) \ *perl.core MYMETA.json \ MYMETA.yml Util.base \ Util.bs Util.bso \ Util.c Util.def \ Util.exp Util.o \ Util_def.old blibdirs.ts \ core core.*perl.*.? \ core.[0-9] core.[0-9][0-9] \ core.[0-9][0-9][0-9] core.[0-9][0-9][0-9][0-9] \ core.[0-9][0-9][0-9][0-9][0-9] lib$(BASEEXT).def \ mon.out perl \ perl$(EXE_EXT) perl.exe \ perlmain.c pm_to_blib \ pm_to_blib.ts so_locations \ tmon.out - $(RM_RF) \ *.bs *.c \ *.o *~ \ Util_IS.pm auto* \ blib localperl.h \ tmp* $(NOECHO) $(RM_F) $(MAKEFILE_OLD) - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) # --- MakeMaker realclean_subdirs section: # so clean is forced to complete before realclean_subdirs runs realclean_subdirs : clean $(NOECHO) $(NOOP) # --- MakeMaker realclean section: # Delete temporary files (via clean) and also delete dist files realclean purge :: realclean_subdirs - $(RM_F) \ $(FIRST_MAKEFILE) $(MAKEFILE_OLD) \ $(OBJECT) - $(RM_RF) \ $(DISTVNAME) config.h \ config.log config.status # --- MakeMaker metafile section: metafile : create_distdir $(NOECHO) $(ECHO) Generating META.yml $(NOECHO) $(ECHO) '---' > META_new.yml $(NOECHO) $(ECHO) 'abstract: unknown' >> META_new.yml $(NOECHO) $(ECHO) 'author:' >> META_new.yml $(NOECHO) $(ECHO) ' - unknown' >> META_new.yml $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml $(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010'\''' >> META_new.yml $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml $(NOECHO) $(ECHO) ' version: '\''1.4'\''' >> META_new.yml $(NOECHO) $(ECHO) 'name: NetAddr-IP-Util' >> META_new.yml $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml $(NOECHO) $(ECHO) ' directory:' >> META_new.yml $(NOECHO) $(ECHO) ' - t' >> META_new.yml $(NOECHO) $(ECHO) ' - inc' >> META_new.yml $(NOECHO) $(ECHO) 'version: '\''1.53'\''' >> META_new.yml $(NOECHO) $(ECHO) 'x_serialization_backend: '\''CPAN::Meta::YAML version 0.018'\''' >> META_new.yml -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml $(NOECHO) $(ECHO) Generating META.json $(NOECHO) $(ECHO) '{' > META_new.json $(NOECHO) $(ECHO) ' "abstract" : "unknown",' >> META_new.json $(NOECHO) $(ECHO) ' "author" : [' >> META_new.json $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json $(NOECHO) $(ECHO) ' ],' >> META_new.json $(NOECHO) $(ECHO) ' "dynamic_config" : 1,' >> META_new.json $(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010",' >> META_new.json $(NOECHO) $(ECHO) ' "license" : [' >> META_new.json $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json $(NOECHO) $(ECHO) ' ],' >> META_new.json $(NOECHO) $(ECHO) ' "meta-spec" : {' >> META_new.json $(NOECHO) $(ECHO) ' "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",' >> META_new.json $(NOECHO) $(ECHO) ' "version" : 2' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "name" : "NetAddr-IP-Util",' >> META_new.json $(NOECHO) $(ECHO) ' "no_index" : {' >> META_new.json $(NOECHO) $(ECHO) ' "directory" : [' >> META_new.json $(NOECHO) $(ECHO) ' "t",' >> META_new.json $(NOECHO) $(ECHO) ' "inc"' >> META_new.json $(NOECHO) $(ECHO) ' ]' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "prereqs" : {' >> META_new.json $(NOECHO) $(ECHO) ' "build" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "configure" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "release_status" : "stable",' >> META_new.json $(NOECHO) $(ECHO) ' "version" : "1.53",' >> META_new.json $(NOECHO) $(ECHO) ' "x_serialization_backend" : "JSON::PP version 4.06"' >> META_new.json $(NOECHO) $(ECHO) '}' >> META_new.json -$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json # --- MakeMaker signature section: signature : cpansign -s # --- MakeMaker dist_basics section skipped. # --- MakeMaker dist_core section skipped. # --- MakeMaker distdir section skipped. # --- MakeMaker dist_test section skipped. # --- MakeMaker dist_ci section skipped. # --- MakeMaker distmeta section: distmeta : create_distdir metafile $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \ -e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \ -e ' or die "Could not add META.yml to MANIFEST: $${'\''@'\''}"' -- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \ -e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \ -e ' or die "Could not add META.json to MANIFEST: $${'\''@'\''}"' -- # --- MakeMaker distsignature section: distsignature : distmeta $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) }' \ -e ' or die "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}"' -- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE cd $(DISTVNAME) && cpansign -s # --- MakeMaker install section skipped. # --- MakeMaker force section: # Phony target to force checking subdirectories. FORCE : $(NOECHO) $(NOOP) # --- MakeMaker perldepend section: PERL_HDRS = \ $(PERL_INCDEP)/EXTERN.h \ $(PERL_INCDEP)/INTERN.h \ $(PERL_INCDEP)/XSUB.h \ $(PERL_INCDEP)/av.h \ $(PERL_INCDEP)/bitcount.h \ $(PERL_INCDEP)/charclass_invlists.h \ $(PERL_INCDEP)/config.h \ $(PERL_INCDEP)/cop.h \ $(PERL_INCDEP)/cv.h \ $(PERL_INCDEP)/dosish.h \ $(PERL_INCDEP)/ebcdic_tables.h \ $(PERL_INCDEP)/embed.h \ $(PERL_INCDEP)/embedvar.h \ $(PERL_INCDEP)/fakesdio.h \ $(PERL_INCDEP)/feature.h \ $(PERL_INCDEP)/form.h \ $(PERL_INCDEP)/git_version.h \ $(PERL_INCDEP)/gv.h \ $(PERL_INCDEP)/handy.h \ $(PERL_INCDEP)/hv.h \ $(PERL_INCDEP)/hv_func.h \ $(PERL_INCDEP)/hv_macro.h \ $(PERL_INCDEP)/inline.h \ $(PERL_INCDEP)/intrpvar.h \ $(PERL_INCDEP)/invlist_inline.h \ $(PERL_INCDEP)/iperlsys.h \ $(PERL_INCDEP)/keywords.h \ $(PERL_INCDEP)/l1_char_class_tab.h \ $(PERL_INCDEP)/malloc_ctl.h \ $(PERL_INCDEP)/metaconfig.h \ $(PERL_INCDEP)/mg.h \ $(PERL_INCDEP)/mg_data.h \ $(PERL_INCDEP)/mg_raw.h \ $(PERL_INCDEP)/mg_vtable.h \ $(PERL_INCDEP)/mydtrace.h \ $(PERL_INCDEP)/nostdio.h \ $(PERL_INCDEP)/op.h \ $(PERL_INCDEP)/op_reg_common.h \ $(PERL_INCDEP)/opcode.h \ $(PERL_INCDEP)/opnames.h \ $(PERL_INCDEP)/overload.h \ $(PERL_INCDEP)/pad.h \ $(PERL_INCDEP)/parser.h \ $(PERL_INCDEP)/patchlevel.h \ $(PERL_INCDEP)/perl.h \ $(PERL_INCDEP)/perl_inc_macro.h \ $(PERL_INCDEP)/perl_langinfo.h \ $(PERL_INCDEP)/perlapi.h \ $(PERL_INCDEP)/perldtrace.h \ $(PERL_INCDEP)/perlio.h \ $(PERL_INCDEP)/perliol.h \ $(PERL_INCDEP)/perlsdio.h \ $(PERL_INCDEP)/perlvars.h \ $(PERL_INCDEP)/perly.h \ $(PERL_INCDEP)/pp.h \ $(PERL_INCDEP)/pp_proto.h \ $(PERL_INCDEP)/proto.h \ $(PERL_INCDEP)/reentr.h \ $(PERL_INCDEP)/regcharclass.h \ $(PERL_INCDEP)/regcomp.h \ $(PERL_INCDEP)/regexp.h \ $(PERL_INCDEP)/regnodes.h \ $(PERL_INCDEP)/sbox32_hash.h \ $(PERL_INCDEP)/scope.h \ $(PERL_INCDEP)/stadtx_hash.h \ $(PERL_INCDEP)/sv.h \ $(PERL_INCDEP)/thread.h \ $(PERL_INCDEP)/time64.h \ $(PERL_INCDEP)/time64_config.h \ $(PERL_INCDEP)/uconfig.h \ $(PERL_INCDEP)/uni_keywords.h \ $(PERL_INCDEP)/unicode_constants.h \ $(PERL_INCDEP)/unixish.h \ $(PERL_INCDEP)/utf8.h \ $(PERL_INCDEP)/utfebcdic.h \ $(PERL_INCDEP)/util.h \ $(PERL_INCDEP)/uudmap.h \ $(PERL_INCDEP)/vutil.h \ $(PERL_INCDEP)/warnings.h \ $(PERL_INCDEP)/zaphod32_hash.h $(OBJECT) : $(PERL_HDRS) Util.c : $(XSUBPPDEPS) # --- MakeMaker makefile section: $(OBJECT) : $(FIRST_MAKEFILE) # We take a very conservative approach here, but it's worth it. # We move Makefile to Makefile.old here to avoid gnu make looping. $(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) $(PERLRUN) Makefile.PL $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" $(FALSE) # --- MakeMaker staticmake section: # --- MakeMaker makeaperl section --- MAP_TARGET = ../../perl FULLPERL = "/usr/bin/perl" MAP_PERLINC = "-I../../blib/arch" "-I../../blib/lib" "-I/usr/lib64/perl5" "-I/usr/share/perl5" # --- MakeMaker test section: TEST_VERBOSE=0 TEST_TYPE=test_$(LINKTYPE) TEST_FILE = test.pl TEST_FILES = t/*.t TESTDB_SW = -d testdb :: testdb_$(LINKTYPE) $(NOECHO) $(NOOP) test :: $(TEST_TYPE) $(NOECHO) $(NOOP) # Occasionally we may face this degenerate target: test_ : test_dynamic $(NOECHO) $(NOOP) subdirs-test_dynamic :: dynamic pure_all test_dynamic :: subdirs-test_dynamic PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) testdb_dynamic :: dynamic pure_all PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) subdirs-test_static :: static pure_all test_static :: subdirs-test_static $(MAP_TARGET) PERL_DL_NONLAZY=1 "/home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util/$(MAP_TARGET)" $(MAP_PERLINC) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) testdb_static :: static pure_all $(MAP_TARGET) PERL_DL_NONLAZY=1 "/home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util/$(MAP_TARGET)" $(MAP_PERLINC) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) # --- MakeMaker ppd section: # Creates a PPD (Perl Package Description) for a binary distribution. ppd : $(NOECHO) $(ECHO) '<SOFTPKG NAME="NetAddr-IP-Util" VERSION="1.53">' > NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.32" />' >> NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> NetAddr-IP-Util.ppd $(NOECHO) $(ECHO) '</SOFTPKG>' >> NetAddr-IP-Util.ppd # --- MakeMaker pm_to_blib section: pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \ 'Util.pm' '$(INST_LIB)/NetAddr/IP/Util.pm' \ 'Util_IS.pm' '$(INST_LIB)/NetAddr/IP/Util_IS.pm' \ 'lib/NetAddr/IP/InetBase.pm' '../../blib/lib/NetAddr/IP/InetBase.pm' \ 'lib/NetAddr/IP/UtilPP.pm' '../../blib/lib/NetAddr/IP/UtilPP.pm' $(NOECHO) $(TOUCH) pm_to_blib # --- MakeMaker selfdocument section: # here so even if top_targets is overridden, these will still be defined # gmake will silently still work if any are .PHONY-ed but nmake won't static :: $(NOECHO) $(NOOP) dynamic :: $(NOECHO) $(NOOP) config :: $(NOECHO) $(NOOP) # --- MakeMaker postamble section: README : Util.pm @$(MY_POD2TEXT) Util.pm > README # End. Lite/Util/Util.pm 0000644 00000053776 15043770025 0007656 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::Util; use strict; #use diagnostics; #use lib qw(blib/lib); use vars qw($VERSION @EXPORT_OK @ISA %EXPORT_TAGS $Mode); use AutoLoader qw(AUTOLOAD); use NetAddr::IP::Util_IS; use NetAddr::IP::InetBase qw( :upper :all ); *NetAddr::IP::Util::upper = \&NetAddr::IP::InetBase::upper; *NetAddr::IP::Util::lower = \&NetAddr::IP::InetBase::lower; require DynaLoader; require Exporter; @ISA = qw(Exporter DynaLoader); $VERSION = do { my @r = (q$Revision: 1.53 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcdn bcdn2txt bcdn2bin simple_pack comp128 packzeros AF_INET AF_INET6 naip_gethostbyname havegethostbyname2 ); %EXPORT_TAGS = ( all => [@EXPORT_OK], inet => [qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros naip_gethostbyname )], math => [qw( shiftleft hasbits isIPv4 isNewIPv4 isAnyIPv4 addconst add128 sub128 notcontiguous bin2bcd bcd2bin )], ipv4 => [qw( inet_aton inet_ntoa )], ipv6 => [qw( ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros naip_gethostbyname )], ); if (NetAddr::IP::Util_IS->not_pure) { eval { ## attempt to load 'C' version of utilities bootstrap NetAddr::IP::Util $VERSION; }; } if (NetAddr::IP::Util_IS->pure || $@) { ## load the pure perl version if 'C' lib missing require NetAddr::IP::UtilPP; import NetAddr::IP::UtilPP qw( :all ); # require Socket; # import Socket qw(inet_ntoa); # *yinet_aton = \&Socket::inet_aton; $Mode = 'Pure Perl'; } else { $Mode = 'CC XS'; } # if Socket lib is broken in some way, check for overange values # #my $overange = yinet_aton('256.1') ? 1:0; #my $overange = gethostbyname('256.1') ? 1:0; sub mode() { $Mode }; my $_newV4compat = pack('N4',0,0,0xffff,0); sub inet_4map6 { my $naddr = shift; if (length($naddr) == 4) { $naddr = ipv4to6($naddr); } elsif (length($naddr) == 16) { ; # is OK return undef unless isAnyIPv4($naddr); } else { return undef; } $naddr |= $_newV4compat; return $naddr; } sub DESTROY {}; my $havegethostbyname2 = 0; my $mygethostbyname; my $_Sock6ok = 1; # for testing gethostbyname sub havegethostbyname2 { return $_Sock6ok ? $havegethostbyname2 : 0; } sub import { if (grep { $_ eq ':noSock6' } @_) { $_Sock6ok = 0; @_ = grep { $_ ne ':noSock6' } @_; } NetAddr::IP::Util->export_to_level(1,@_); } package NetAddr::IP::UtilPolluted; # Socket pollutes the name space with all of its symbols. Since # we don't want them all, confine them to this name space. use strict; use Socket; my $_v4zero = pack('L',0); my $_zero = pack('L4',0,0,0,0); # invoke replacement subroutine for Perl's "gethostbyname" # if Socket6 is available. # # NOTE: in certain BSD implementations, Perl's gethostbyname is broken # we will use our own InetBase::inet_aton instead sub _end_gethostbyname { # my ($name,$aliases,$addrtype,$length,@addrs) = @_; my @rv = @_; # first ip address = rv[4] my $tip = $rv[4]; unless ($tip && $tip ne $_v4zero && $tip ne $_zero) { @rv = (); } # length = rv[3] elsif ($rv[3] && $rv[3] == 4) { foreach (4..$#rv) { $rv[$_] = NetAddr::IP::Util::inet_4map6(NetAddr::IP::Util::ipv4to6($rv[$_])); } $rv[3] = 16; # unconditionally set length to 16 } elsif ($rv[3] == 16) { ; # is ok } else { @rv = (); } return @rv; } unless ( eval { require Socket6 }) { $mygethostbyname = sub { # SEE NOTE above about broken BSD my @tip = gethostbyname(NetAddr::IP::InetBase::fillIPv4($_[0])); return &_end_gethostbyname(@tip); }; } else { import Socket6 qw( gethostbyname2 getipnodebyname ); my $try = eval { my @try = gethostbyname2('127.0.0.1',NetAddr::IP::Util::AF_INET()); $try[4] }; if (! $@ && $try && $try eq INADDR_LOOPBACK()) { *_ghbn2 = \&Socket6::gethostbyname2; $havegethostbyname2 = 1; } else { *_ghbn2 = sub { return () }; # use failure branch below } $mygethostbyname = sub { my @tip; unless ($_Sock6ok && (@tip = _ghbn2($_[0],NetAddr::IP::Util::AF_INET6())) && @tip > 1) { # SEE NOTE above about broken BSD @tip = gethostbyname(NetAddr::IP::InetBase::fillIPv4($_[0])); } return &_end_gethostbyname(@tip); }; } package NetAddr::IP::Util; sub naip_gethostbyname { # turn off complaint from Socket6 about missing numeric argument undef local $^W; my @rv = &$mygethostbyname($_[0]); return wantarray ? @rv : $rv[4]; } 1; __END__ =head1 NAME NetAddr::IP::Util -- IPv4/6 and 128 bit number utilities =head1 SYNOPSIS use NetAddr::IP::Util qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode AF_INET AF_INET6 naip_gethostbyname ); use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) :inet => inet_aton, inet_ntoa, ipv6_aton ipv6_ntoa, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, inet_pton, inet_ntop, inet_4map6, ipv4to6, mask4to6, ipanyto6, packzeros maskanyto6, ipv6to4, naip_gethostbyname :ipv4 => inet_aton, inet_ntoa :ipv6 => ipv6_aton, ipv6_ntoa, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, inet_pton, inet_ntop, inet_4map6, ipv4to6, mask4to6, ipanyto6, maskanyto6, ipv6to4, packzeros, naip_gethostbyname :math => hasbits, isIPv4, isNewIPv4, isAnyIPv4, addconst, add128, sub128, notcontiguous, bin2bcd, bcd2bin, shiftleft $dotquad = inet_ntoa($netaddr); $netaddr = inet_aton($dotquad); $ipv6naddr = ipv6_aton($ipv6_text); $ipv6_text = ipvt_ntoa($ipv6naddr); $hex_text = ipv6_n2x($ipv6naddr); $dec_text = ipv6_n2d($ipv6naddr); $hex_text = packzeros($hex_text); $ipv6naddr = inet_any2n($dotquad or $ipv6_text); $ipv6naddr = inet_4map6($netaddr or $ipv6naddr); $rv = hasbits($bits128); $rv = isIPv4($bits128); $rv = isNewIPv4($bits128); $rv = isAnyIPv4($bits128); $dotquad or $hex_text = inet_n2dx($ipv6naddr); $dotquad or $dec_text = inet_n2ad($ipv6naddr); $netaddr = inet_pton($AF_family,$hex_text); $hex_text = inet_ntop($AF_family,$netaddr); $ipv6naddr = ipv4to6($netaddr); $ipv6naddr = mask4to6($netaddr); $ipv6naddr = ipanyto6($netaddr); $ipv6naddr = maskanyto6($netaddr); $netaddr = ipv6to4($pv6naddr); $bitsX2 = shiftleft($bits128,$n); $carry = addconst($ipv6naddr,$signed_32con); ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); $carry = add128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); $carry = sub128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); ($spurious,$cidr) = notcontiguous($mask128); $bcdtext = bin2bcd($bits128); $bits128 = bcd2bin($bcdtxt); $modetext = mode; ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); $trueif = havegethostbyname2(); NetAddr::IP::Util::lower(); NetAddr::IP::Util::upper(); =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install B<NetAddr::IP::Util> installs by default with its primary functions compiled using Perl's XS extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install =head1 DESCRIPTION B<NetAddr::IP::Util> provides a suite of tools for manipulating and converting IPv4 and IPv6 addresses into 128 bit string context and back to text. The strings can be manipulated with Perl's logical operators: and & or | xor ^ ~ compliment in the same manner as 'vec' strings. The IPv6 functions support all rfc1884 formats. i.e. x:x:x:x:x:x:x:x:x x:x:x:x:x:x:x:d.d.d.d ::x:x:x ::x:d.d.d.d and so on... =over 4 =item * $dotquad = inet_ntoa($netaddr); Convert a packed IPv4 network address to a dot-quad IP address. input: packed network address returns: IP address i.e. 10.4.12.123 =item * $netaddr = inet_aton($dotquad); Convert a dot-quad IP address into an IPv4 packed network address. input: IP address i.e. 192.5.16.32 returns: packed network address =item * $ipv6addr = ipv6_aton($ipv6_text); Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary RDATA string. input: ipv6 text returns: 128 bit RDATA string =item * $ipv6_text = ipv6_ntoa($ipv6naddr); Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. input: 128 bit RDATA string returns: ipv6 text =item * $hex_text = ipv6_n2x($ipv6addr); Takes an IPv6 RDATA string and returns an 8 segment IPv6 hex address input: 128 bit RDATA string returns: x:x:x:x:x:x:x:x =item * $dec_text = ipv6_n2d($ipv6addr); Takes an IPv6 RDATA string and returns a mixed hex - decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. input: 128 bit RDATA string returns: x:x:x:x:x:x:d.d.d.d =item * $ipv6naddr = inet_any2n($dotquad or $ipv6_text); This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to B<ipv6_aton>. input: dot-quad or rfc1844 address returns: 128 bit IPv6 string =item * $rv = hasbits($bits128); This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. i.e. if (hasbits($bits128)) { &do_something; } or if (hasbits($bits128 & $mask128) { &do_something; } This allows the implementation of logical functions of the form of: if ($bits128 & $mask128) { ... input: 128 bit IPv6 string returns: true if any bits are present =item * $ipv6naddr = inet_4map6($netaddr or $ipv6naddr This function returns an ipV6 network address with the first 80 bits set to zero and the next 16 bits set to one, while the last 32 bits are filled with the ipV4 address. input: ipV4 netaddr or ipV6 netaddr returns: ipV6 netaddr returns: undef on error An ipV6 network address must be in one of the two compatible ipV4 mapped address spaces. i.e. ::ffff::d.d.d.d or ::d.d.d.d =item * $rv = isIPv4($bits128); This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. i.e. the address must be of the form - ::d.d.d.d Note: this is an old and deprecated ipV4 compatible ipV6 address =item * $rv = isNewIPv4($bits128); This function return true if the IPv6 128 bit string is of the form ::ffff::d.d.d.d =item * $rv = isAnyIPv4($bits128); This function return true if the IPv6 bit string is of the form ::d.d.d.d or ::ffff::d.d.d.d =item * $dotquad or $hex_text = inet_n2dx($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:x:x =item * $dotquad or $dec_text = inet_n2ad($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:ddd.ddd.ddd.dd =item * $netaddr = inet_pton($AF_family,$hex_text); This function takes an IP address in IPv4 or IPv6 text format and converts it into binary format. The type of IP address conversion is controlled by the FAMILY argument. =item * $hex_text = inet_ntop($AF_family,$netaddr); This function takes and IP address in binary format and converts it into text format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_ntop ALWAYS returns lowercase characters. =item * $hex_text = packzeros($hex_text); This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting B<::> for the first occurence of the longest string of zeros in the address. =item * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an IPv6 network address. input: 32 bit network address returns: 128 bit network address =item * $ipv6naddr = mask4to6($netaddr); Convert an ipv4 network address/mask into an ipv6 network mask. input: 32 bit network/mask address returns: 128 bit network/mask address NOTE: returns the high 96 bits as one's =item * $ipv6naddr = ipanyto6($netaddr); Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. input: 32 or 128 bit network address returns: 128 bit network address =item * $ipv6naddr = maskanyto6($netaddr); Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. input: 32 or 128 bit network mask returns: 128 bit network mask =item * $netaddr = ipv6to4($pv6naddr); Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. input: 128 bit network address returns: 32 bit inet_aton network address =item * $bitsXn = shiftleft($bits128,$n); input: 128 bit string variable, number of shifts [optional] returns: bits X n shifts NOTE: a single shift is performed if $n is not specified =item * addconst($ipv6naddr,$signed_32con); Add a signed constant to a 128 bit string variable. input: 128 bit IPv6 string, signed 32 bit integer returns: scalar carry array (carry, result) =item * add128($ipv6naddr1,$ipv6naddr2); Add two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) =item * sub128($ipv6naddr1,$ipv6naddr2); Subtract two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) Note: The carry from this operation is the result of adding the one's complement of ARG2 +1 to the ARG1. It is logically B<NOT borrow>. i.e. if ARG1 >= ARG2 then carry = 1 or if ARG1 < ARG2 then carry = 0 =item * ($spurious,$cidr) = notcontiguous($mask128); This function counts the bit positions remaining in the mask when the rightmost '0's are removed. input: 128 bit netmask returns true if there are spurious zero bits remaining in the mask, false if the mask is contiguous one's, 128 bit cidr number =item * $bcdtext = bin2bcd($bits128); Convert a 128 bit binary string into binary coded decimal text digits. input: 128 bit string variable returns: string of bcd text digits =item * $bits128 = bcd2bin($bcdtxt); Convert a bcd text string to 128 bit string variable input: string of bcd text digits returns: 128 bit string variable =cut #=item * $onescomp=NetAddr::IP::Util::comp128($ipv6addr); # #This function is not exported because it is more efficient to use perl " ~ " #on the bit string directly. This interface to the B<C> routine is published for #module testing purposes because it is used internally in the B<sub128> routine. The #function is very fast, but calling if from perl directly is very slow. It is almost #33% faster to use B<sub128> than to do a 1's comp with perl and then call #B<add128>. # #=item * $bcdpacked = NetAddr::IP::Util::bin2bcdn($bits128); # #Convert a 128 bit binary string into binary coded decimal digits. #This function is not exported. # # input: 128 bit string variable # returns: string of packed decimal digits # # i.e. text = unpack("H*", $bcd); # #=item * $bcdtext = NetAddr::IP::Util::bcdn2txt($bcdpacked); # #Convert a packed bcd string into text digits, suppress the leading zeros. #This function is not exported. # # input: string of packed decimal digits # returns: hexadecimal digits # #Similar to unpack("H*", $bcd); # #=item * $bcdpacked = NetAddr::IP::Util::simple_pack($bcdtext); # #Convert a numeric string into a packed bcd string, left fill with zeros # # input: string of decimal digits # returns: string of packed decimal digits # #Similar to pack("H*", $bcdtext); =item * $modetext = mode; Returns the operating mode of this module. input: none returns: "Pure Perl" or "CC XS" =item * ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); Replacement for Perl's gethostbyname if Socket6 is available In ARRAY context, returns a list of five elements, the hostname or NAME, a space separated list of C_NAMES, AF family, length of the address structure, and an array of one or more netaddr's In SCALAR context, returns the first netaddr. This function ALWAYS returns an IPv6 address, even on IPv4 only systems. IPv4 addresses are mapped into IPv6 space in the form: ::FFFF:FFFF:d.d.d.d This is NOT the expected result from Perl's gethostbyname2. It is instead equivalent to: On an IPv4 only system: $ipv6naddr = ipv4to6 scalar ( gethostbyname( name )); On a system with Socket6 and a working gethostbyname2: $ipv6naddr = gethostbyname2( name, AF_INET6 ); and if that fails, the IPv4 conversion above. For a gethostbyname2 emulator that behave like Socket6, see: L<Net::DNS::Dig> =item * $trueif = havegethostbyname2(); This function returns TRUE if Socket6 has a functioning B<gethostbyname2>, otherwise it returns FALSE. See the comments above about the behavior of B<naip_gethostbyname>. =item * NetAddr::IP::Util::lower(); Return IPv6 strings in lowercase. =item * NetAddr::IP::Util::upper(); Return IPv6 strings in uppercase. This is the default. =back =head1 EXAMPLES # convert any textual IP address into a 128 bit vector # sub text2vec { my($anyIP,$anyMask) = @_; # not IPv4 bit mask my $notiv4 = ipv6_aton('FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::'); my $vecip = inet_any2n($anyIP); my $mask = inet_any2n($anyMask); # extend mask bits for IPv4 my $bits = 128; # default unless (hasbits($mask & $notiv4)) { $mask |= $notiv4; $bits = 32; } return ($vecip, $mask, $bits); } ... alternate implementation, a little faster sub text2vec { my($anyIP,$anyMask) = @_; # not IPv4 bit mask my $notiv4 = ipv6_aton('FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::'); my $vecip = inet_any2n($anyIP); my $mask = inet_any2n($anyMask); # extend mask bits for IPv4 my $bits = 128; # default if (isIPv4($mask)) { $mask |= $notiv4; $bits = 32; } return ($vecip, $mask, $bits); } ... elsewhere $nip = { addr => $vecip, mask => $mask, bits => $bits, }; # return network and broadcast addresses from IP and Mask # sub netbroad { my($nip) = shift; my $notmask = ~ $nip->{mask}; my $bcast = $nip->{addr} | $notmask; my $network = $nip->{addr} & $nip->{mask}; return ($network, $broadcast); } # check if address is within a network # sub within { my($nip,$net) = @_; my $addr = $nip->{addr} my($nw,$bc) = netbroad($net); # arg1 >= arg2, sub128 returns true return (sub128($addr,$nw) && sub128($bc,$addr)) ? 1 : 0; } # truely hard way to do $ip++ # add a constant, wrapping at netblock boundaries # to subtract the constant, negate it before calling # 'addwrap' since 'addconst' will extend the sign bits # sub addwrap { my($nip,$const) = @_; my $addr = $nip->{addr}; my $mask = $nip->{mask}; my $bits = $nip->{bits}; my $notmask = ~ $mask; my $hibits = $addr & $mask; $addr = addconst($addr,$const); my $wraponly = $addr & $notmask; my $newip = { addr => $hibits | $wraponly, mask => $mask, bits => $bits, }; # bless $newip as appropriate return $newip; } # something more useful # increment a /24 net to the NEXT net at the boundry my $nextnet = 256; # for /24 LOOP: while (...continuing) { your code.... ... my $lastip = $ip-copy(); $ip++; if ($ip < $lastip) { # host part wrapped? # discard carry (undef, $ip->{addr} = addconst($ip->{addr}, $nextnet); } next LOOP; } =head1 EXPORT_OK inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode naip_gethostbyname havegethostbyname2 =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 COPYRIGHT Copyright 2003 - 2014, Michael Robinton E<lt>michael@bizsystems.comE<gt> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA. or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 SEE ALSO NetAddr::IP(3), NetAddr::IP::Lite(3), NetAddr::IP::InetBase(3) =cut 1; Lite/Util/t/bin.t 0000644 00000005103 15043770025 0007560 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..25\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton bin2bcd bin2bcdn bcdn2txt ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } # input: array ref, value ref, number ref # sub val { my $bcd = shift; my $rv = unpack("H*",$bcd); $rv =~ s/^0+(\d)/$1/g; return $rv; } sub numnum { my($ar,$i) = @_; return sprintf("%.0f",$ar->[$i +1]); } sub numstr { my($ar,$i) = @_; return $ar->[$i+1]; } sub dotest { my($ar,$vr,$nr) = @_; for(my $i=0;$i<@$ar;$i+=2) { my $bstr = ipv6_aton($ar->[$i]); my $bcd = bin2bcdn($bstr); my $val = $vr->($bcd); my $exp = $nr->($ar,$i); print "\t\t$val\n"; print "got: $val\nexp: $exp\nnot " unless $val eq $exp; &ok; } } # setup only, can't depend on float to do it right on all systems #my @num1 = # input expected #( # '::' => 0, # '::8000:0' => 2**(15+16), # '::8000:0:0' => 2**(15+(16*2)), # '::8000:0:0:0' => 2**(15+(16*3)), # '::8000:0:0:0:0' => 2**(15+(16*4)), # '::8000:0:0:0:0:0' => 2**(15+(16*5)), # '::8000:0:0:0:0:0:0' => 2**(15+(16*6)), # '8000:0:0:0:0:0:0:0' => 2**(15+(16*7)), #); my @num2 = qw( :: 0 ::8000:0 2147483648 ::8000:0:0 140737488355328 ::8000:0:0:0 9223372036854775808 ::8000:0:0:0:0 604462909807314587353088 ::8000:0:0:0:0:0 39614081257132168796771975168 ::8000:0:0:0:0:0:0 2596148429267413814265248164610048 8000:0:0:0:0:0:0:0 170141183460469231731687303715884105728 ); ## tests 2 - 9 bin2bcdn numeric unpack #dotest(\@num1,\&val,\&numnum); ## tests 10 - 17 bin2bcdn string unpack TEST 2 - 9 dotest(\@num2,\&val,\&numstr); ## tests 18 - 25 bin2bcdn numeric bcdn2txt #dotest(\@num1,\&bcdn2txt,\&numnum); ## tests 26 - 33 bin2bcdn string bcdn2txt TEST 10 - 17 dotest(\@num2,\&bcdn2txt,\&numstr); ## tests 34 - 41 bin2bcd TEST 18 - 25 for(my $i=0;$i<@num2;$i+=2) { my $bstr = ipv6_aton($num2[$i]); my $bcd = bin2bcd($bstr); my $exp = $num2[$i +1]; print "\t\t$bcd\n"; print "got: $bcd\nexp: $exp\nnot " unless $bcd eq $exp; &ok; } Lite/Util/t/isIPv4.t 0000644 00000005602 15043770025 0010132 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..421\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x isIPv4 isNewIPv4 isAnyIPv4 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input ( :: 8000:: 4000:: 2000:: 1000:: 800:: 400:: 200:: 100:: 80:: 40:: 20:: 10:: 1:: 0:8000:: 0:4000:: 0:2000:: 0:1000:: 0:800:: 0:400:: 0:200:: 0:100:: 0:80:: 0:40:: 0:20:: 0:10:: 0:1:: 0:0:8000:: 0:0:4000:: 0:0:2000:: 0:0:1000:: 0:0:800:: 0:0:400:: 0:0:200:: 0:0:100:: 0:0:80:: 0:0:40:: 0:0:20:: 0:0:10:: 0:0:1:: 0:0:0:8000:: 0:0:0:4000:: 0:0:0:2000:: 0:0:0:1000:: 0:0:0:800:: 0:0:0:400:: 0:0:0:200:: 0:0:0:100:: 0:0:0:80:: 0:0:0:40:: 0:0:0:20:: 0:0:0:10:: 0:0:0:1:: 0:0:0:0:8000:: 0:0:0:0:4000:: 0:0:0:0:2000:: 0:0:0:0:1000:: 0:0:0:0:800:: 0:0:0:0:400:: 0:0:0:0:200:: 0:0:0:0:100:: 0:0:0:0:80:: 0:0:0:0:40:: 0:0:0:0:20:: 0:0:0:0:10:: 0:0:0:0:1:: 0:0:0:0:0:8000:: 0:0:0:0:0:4000:: 0:0:0:0:0:2000:: 0:0:0:0:0:1000:: 0:0:0:0:0:800:: 0:0:0:0:0:400:: 0:0:0:0:0:200:: 0:0:0:0:0:100:: 0:0:0:0:0:80:: 0:0:0:0:0:40:: 0:0:0:0:0:20:: 0:0:0:0:0:10:: 0:0:0:0:0:1:: ::8000:0 ::4000:0 ::2000:0 ::1000:0 ::800:0 ::400:0 ::200:0 ::100:0 ::80:0 ::40:0 ::20:0 ::10:0 ::1:0 ::8000 ::4000 ::2000 ::1000 ::800 ::400 ::200 ::100 ::80 ::40 ::20 ::10 ::1 ); # check isIPv4 foreach (@num) { my $bstr = ipv6_aton($_); my $rv = isIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } # check isAnyIPv4 foreach (@num) { my $bstr = ipv6_aton($_); my $rv = isAnyIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } my $compat = ipv6_aton('::FFFF:0:0'); # check isAnyIPv4 with compatible high bits foreach (@num) { my $bstr = ipv6_aton($_); $bstr ^= $compat; my $rv = isAnyIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } # check isNewIPv4 with compatible high bits foreach (@num) { my $bstr = ipv6_aton($_); $bstr ^= $compat; my $rv = isNewIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/no6_naip_gethostbyname.t 0000644 00000002533 15043770025 0013456 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..3\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::Util qw( :noSock6 naip_gethostbyname havegethostbyname2 ipv6_n2x inet_aton ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my $exp = '0:0:0:0:0:FFFF:7F00:1'; my $host = '127.1'; my $got = ipv6_n2x( scalar naip_gethostbyname($host)); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; $exp = '0:0:0:0:0:0:0:1'; $host = $exp; if (havegethostbyname2()) { $got = ipv6_n2x(scalar naip_gethostbyname($host)); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; } else { $got = scalar naip_gethostbyname($host); if ($got) { $got = eval{ inet_ntoa($got) } || eval{ ipv6_n2x($got) }; } print "unexpected return value got: $got\nnot " if $got; } &ok; Lite/Util/t/4to6.t 0000644 00000003037 15043770025 0007610 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..5\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( inet_aton ipv6_n2d ipv6_aton ipv4to6 mask4to6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my $nip = inet_aton('1.2.3.4'); my $exp = '0:0:0:0:0:0:1.2.3.4'; ## test 2 check 4->6 conversion my $nipv6 = ipv4to6($nip); my $ipv6 = ipv6_n2d($nipv6); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp; &ok; ## test 3 check mask4->6 extension $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:1.2.3.4'; $nipv6 = mask4to6($nip); $ipv6 = ipv6_n2d($nipv6); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp; &ok; ## test 4 check bad length $nip = pack("H9",0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09); eval { ipv4to6($nip); }; print "ipv4to6 accepted bad argument length\nnot " unless $@ && $@ =~ /Bad arg.+ipv4to6/; &ok; ## test 5 check bad length eval { mask4to6($nip); }; print "mask4to6 accepted bad argument length\nnot " unless $@ && $@ =~ /Bad arg.+mask4to6/; &ok; Lite/Util/t/hasbits.t 0000644 00000003736 15043770025 0010457 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) $| = 1; END {print "1..1\nnot ok 1\n" unless $test;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x hasbits ); $test = 1; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input ( :: 8000:: 4000:: 2000:: 1000:: 800:: 400:: 200:: 100:: 80:: 40:: 20:: 10:: 1:: 0:8000:: 0:4000:: 0:2000:: 0:1000:: 0:800:: 0:400:: 0:200:: 0:100:: 0:80:: 0:40:: 0:20:: 0:10:: 0:1:: 0:0:8000:: 0:0:4000:: 0:0:2000:: 0:0:1000:: 0:0:800:: 0:0:400:: 0:0:200:: 0:0:100:: 0:0:80:: 0:0:40:: 0:0:20:: 0:0:10:: 0:0:1:: 0:0:0:8000:: 0:0:0:4000:: 0:0:0:2000:: 0:0:0:1000:: 0:0:0:800:: 0:0:0:400:: 0:0:0:200:: 0:0:0:100:: 0:0:0:80:: 0:0:0:40:: 0:0:0:20:: 0:0:0:10:: 0:0:0:1:: ::8000:0:0:0 ::4000:0:0:0 ::2000:0:0:0 ::1000:0:0:0 ::800:0:0:0 ::400:0:0:0 ::200:0:0:0 ::100:0:0:0 ::80:0:0:0 ::40:0:0:0 ::20:0:0:0 ::10:0:0:0 ::1:0:0:0 ::8000:0:0 ::4000:0:0 ::2000:0:0 ::1000:0:0 ::800:0:0 ::400:0:0 ::200:0:0 ::100:0:0 ::80:0:0 ::40:0:0 ::20:0:0 ::10:0:0 ::1:0:0 ::8000:0 ::4000:0 ::2000:0 ::1000:0 ::800:0 ::400:0 ::200:0 ::100:0 ::80:0 ::40:0 ::20:0 ::10:0 ::1:0 ::8000 ::4000 ::2000 ::1000 ::800 ::400 ::200 ::100 ::80 ::40 ::20 ::10 ::1 ::8000:0:0:0:0 ::8000:0:0:0:0:0 ::8000:0:0:0:0:0:0 8000:0:0:0:0:0:0:0 ); # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): print '1..',(scalar @num), "\n"; foreach (@num) { my $bstr = ipv6_aton($_); my $rv = hasbits($bstr); my $exp = ($_ eq '::') ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/simple_pack.t 0000644 00000002270 15043770025 0011301 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..9\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( simple_pack ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num2 = qw( 0 2147483648 140737488355328 9223372036854775808 604462909807314587353088 39614081257132168796771975168 2596148429267413814265248164610048 170141183460469231731687303715884105728 ); ## tests 2 - 9 check pack correct for (my $i=0;$i<@num2;$i++) { my $len = length($num2[$i]); my $pkd = simple_pack($num2[$i]); my $rv = unpack("H40",$pkd); $rv =~ s/^0+(\d)/$1/g; print "got: $rv\nexp: $num2[$i]\nnot " unless $rv eq $num2[$i]; &ok; } Lite/Util/t/inet_n2ad.t 0000644 00000002253 15043770025 0010656 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..4\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x inet_any2n inet_n2ad ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( a1b2:c3d4:e5d6:f7e8:08f9:190a:2a1b:3b4c A1B2:C3D4:E5D6:F7E8:8F9:190A:42.27.59.76 1.2.3.4 1.2.3.4 190A::102:304 190A:0:0:0:0:0:1.2.3.4 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = inet_any2n($num); my $rv = inet_n2ad($bstr); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/bisIPv4.t 0000644 00000005615 15043770025 0010300 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..421\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::InetBase qw( :upper ipv6_aton ipv6_n2x isIPv4 isNewIPv4 isAnyIPv4 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input ( :: 8000:: 4000:: 2000:: 1000:: 800:: 400:: 200:: 100:: 80:: 40:: 20:: 10:: 1:: 0:8000:: 0:4000:: 0:2000:: 0:1000:: 0:800:: 0:400:: 0:200:: 0:100:: 0:80:: 0:40:: 0:20:: 0:10:: 0:1:: 0:0:8000:: 0:0:4000:: 0:0:2000:: 0:0:1000:: 0:0:800:: 0:0:400:: 0:0:200:: 0:0:100:: 0:0:80:: 0:0:40:: 0:0:20:: 0:0:10:: 0:0:1:: 0:0:0:8000:: 0:0:0:4000:: 0:0:0:2000:: 0:0:0:1000:: 0:0:0:800:: 0:0:0:400:: 0:0:0:200:: 0:0:0:100:: 0:0:0:80:: 0:0:0:40:: 0:0:0:20:: 0:0:0:10:: 0:0:0:1:: 0:0:0:0:8000:: 0:0:0:0:4000:: 0:0:0:0:2000:: 0:0:0:0:1000:: 0:0:0:0:800:: 0:0:0:0:400:: 0:0:0:0:200:: 0:0:0:0:100:: 0:0:0:0:80:: 0:0:0:0:40:: 0:0:0:0:20:: 0:0:0:0:10:: 0:0:0:0:1:: 0:0:0:0:0:8000:: 0:0:0:0:0:4000:: 0:0:0:0:0:2000:: 0:0:0:0:0:1000:: 0:0:0:0:0:800:: 0:0:0:0:0:400:: 0:0:0:0:0:200:: 0:0:0:0:0:100:: 0:0:0:0:0:80:: 0:0:0:0:0:40:: 0:0:0:0:0:20:: 0:0:0:0:0:10:: 0:0:0:0:0:1:: ::8000:0 ::4000:0 ::2000:0 ::1000:0 ::800:0 ::400:0 ::200:0 ::100:0 ::80:0 ::40:0 ::20:0 ::10:0 ::1:0 ::8000 ::4000 ::2000 ::1000 ::800 ::400 ::200 ::100 ::80 ::40 ::20 ::10 ::1 ); # check isIPv4 foreach (@num) { my $bstr = ipv6_aton($_); my $rv = isIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } # check isAnyIPv4 foreach (@num) { my $bstr = ipv6_aton($_); my $rv = isAnyIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } my $compat = ipv6_aton('::FFFF:0:0'); # check isAnyIPv4 with compatible high bits foreach (@num) { my $bstr = ipv6_aton($_); $bstr ^= $compat; my $rv = isAnyIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } # check isNewIPv4 with compatible high bits foreach (@num) { my $bstr = ipv6_aton($_); $bstr ^= $compat; my $rv = isNewIPv4($bstr); my $exp = ($_ =~ /\d::$/) ? 0:1; print "got: $rv, exp: $exp for ", ipv6_n2x($bstr), "\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/binet_pton.t 0000644 00000004127 15043770025 0011156 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..32\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::InetBase qw( :upper :ipv6 AF_INET AF_INET6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 - 13 add stuff to buffer my @num = # addr qw( 0.0.0.0 255.255.255.255 1.2.3.4 10.253.230.9 ); foreach (@num) { my @digs = split(/\./,$_); my $pkd = pack('C4',@digs); my $naddr = inet_pton(AF_INET(),$_); my $addr = join('.',unpack('C4',$naddr)); my $num = inet_ntop(AF_INET(),$pkd); print "bits do not match\nnot " unless $naddr eq $pkd; &ok; print "inet_pton: $addr, exp: $_\nnot " unless $addr eq $_; &ok; print "inet_ntop: $num, exp: $_\nnot " unless $num eq $_; &ok; } ## test 14 - 31 @num = # in exphex qw( :: :: 43:: 43:: ::21 ::21 ::1:2:3:4:5:6:7 0:1:2:3:4:5:6:7 1:2:3:4:5:6:7:: 1:2:3:4:5:6:7:0 1::8 1::8 FF00::FFFF ff00::ffff FFFF::FFFF:FFFF ffff::ffff:ffff A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 a1b2:c3d4:e5d6:f7e8:8f9:190a:102:304 ); for (my $i=0;$i<@num;$i+=2) { my $bits = inet_pton(AF_INET6(),$num[$i]); my $len = length($bits); print "bad len = $len, exp: 16\nnot " unless $len == 16; # 16 bytes x 8 bits &ok; my $ipv6x = inet_ntop(AF_INET6(),$bits); print "got: $ipv6x\nexp: $num[$i +1]\nnot " unless $ipv6x eq $num[$i +1]; &ok; } ## test 32 check bad length ntop my $try = '1234'; my $notempty = eval { inet_ntop(AF_INET6(),$try); }; print "failed bad argument length test for inet_ntop\nnot " unless $@ && $@ =~ /Bad arg/; &ok; Lite/Util/t/addconst.t 0000644 00000004326 15043770025 0010615 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..20\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x inet_any2n addconst ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( :: 0:0:0:0:0:0:0:0 :: 0:0:0:0:0:0:0:2 ::FFFF 0:0:0:0:0:0:1:3 ::FFFF:FFFF 0:0:0:0:0:1:0:5 ::FFFF:FFFF:FFFF 0:0:0:0:1:0:0:7 ::FFFF:FFFF:FFFF:ffff 0:0:0:1:0:0:0:9 ::FFFF:FFFF:FFFF:ffff:ffff 0:0:1:0:0:0:0:B ::FFFF:FFFF:FFFF:ffff:ffff:ffff 0:1:0:0:0:0:0:D 0:FFFF:FFFF:FFFF:ffff:ffff:ffff:ffff 1:0:0:0:0:0:0:F FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF 0:0:0:0:0:0:0:11 ); for (my $i=0; $i <@num; $i+=2) { my $bnum = ipv6_aton($num[$i]); my($carry,$rv) = addconst($bnum,$i); $rv = ipv6_n2x($rv); print "got: $rv\nexp: $num[$i +1]\nnot " unless $rv eq $num[$i +1]; &ok; } @num = qw # input expected ( FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF :: FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE FFFF:: FFFE:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFC FFFF:FFFF:: FFFF:FFFE:FFFF:FFFF:FFFF:FFFF:FFFF:FFFA FFFF:FFFF:FFFF:: FFFF:FFFF:FFFE:FFFF:FFFF:FFFF:FFFF:FFF8 ffff:ffff:ffff:ffff:: FFFF:FFFF:FFFF:FFFE:FFFF:FFFF:FFFF:FFF6 ffff:ffff:ffff:ffff:ffff:: FFFF:FFFF:FFFF:FFFF:FFFE:FFFF:FFFF:FFF4 ffff:ffff:ffff:ffff:ffff:ffff:: FFFF:FFFF:FFFF:FFFF:FFFF:FFFE:FFFF:FFF2 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE:FFF0 ); for (my $i=0; $i <@num; $i+=2) { my $bnum = ipv6_aton($num[$i]); my($carry,$rv) = addconst($bnum,-$i); $rv = ipv6_n2x($rv); print "got: $rv\nexp: $num[$i +1]\nnot " unless $rv eq $num[$i +1]; &ok; } Lite/Util/t/leftshift.t 0000644 00000002470 15043770025 0011004 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..9\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x shiftleft ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # input shift expected qw( 1::1 none 1:0:0:0:0:0:0:1 1::1 0 1:0:0:0:0:0:0:1 1::1 1 2:0:0:0:0:0:0:2 1::1 2 4:0:0:0:0:0:0:4 1::1 3 8:0:0:0:0:0:0:8 1::1 15 8000:0:0:0:0:0:0:8000 1::1 16 0:0:0:0:0:0:1:0 1::1 128 0:0:0:0:0:0:0:0 ); for (my $i=0;$i < @num;$i+=3) { my $bstr = ipv6_aton($num[$i]); my $rv; if ($num[$i +1] =~ /\D/) { $rv = shiftleft($bstr); } else { $rv = shiftleft($bstr,$num[$i +1]); } my $exp = $num[$i+2]; my $got = ipv6_n2x($rv); print "got: $got, exp: $exp\nnot " unless $got eq $exp; &ok; } Lite/Util/t/ipv6_any2n.t 0000644 00000002312 15043770025 0011002 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..4\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x inet_any2n ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( a1b2:c3d4:e5d6:f7e8:08f9:190a:2a1b:3b4c A1B2:C3D4:E5D6:F7E8:8F9:190A:2A1B:3B4C 1.2.3.4 0:0:0:0:0:0:102:304 A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 A1B2:C3D4:E5D6:F7E8:8F9:190A:102:304 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = inet_any2n($num); my $rv = ipv6_n2x($bstr); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/croak.t 0000644 00000007032 15043770025 0010112 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..31\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( bcd2bin bin2bcd hasbits isIPv4 add128 sub128 shiftleft comp128 bcdn2txt bin2bcdn bcdn2bin simple_pack ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## tests 2 - 9 simple_pack foreach( '1234/', '1234:', 'a1234', '&1234', ) { my $rv; eval { $rv = simple_pack($_) }; if (defined $rv) { $rv = unpack("H40",$rv); print "got: $rv, exp: 'die'\nnot "; } &ok; print "expected a die from bad character input\nnot " unless $@ && $@ =~ /Bad/; &ok; } ## tests 10 - 17 bcd2bin foreach( '1234/', '1234:', 'a1234', '&1234', ) { my $rv; eval { $rv = bcd2bin($_) }; if (defined $rv) { $rv = unpack("H40",$rv); print "got: $rv, exp: 'die'\nnot "; } &ok; print "expected a die from bad character input\nnot " unless $@ && $@ =~ /Bad/; &ok; } ## test 18 bcdn2bin eval { bcdn2bin('123456789012345678901') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 19 bcdn2bin eval { bcdn2bin('12345678901234567890') }; print "expected a die from missing length specifier\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 20 bin2bcd eval { bin2bcd('123') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 21 bin2bcdn eval { bin2bcdn('123') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 22 bcdn2txt eval { bcdn2txt('123456789012345678901') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 23 bcdn2txt my $rv; my $exp = '3132333435363738393031323334353637383930'; $rv = bcdn2txt('12345678901234567890'); print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; ## test 24 hasbits eval { hasbits('123') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 25 isIPv4 eval { isIPv4('12345678901234567') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 26 add128 eval { add128('123','1234567890123456') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 27 sub128 eval { sub128('1234567890123456','12345678901234567') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 28 comp128 eval { comp128('123') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 29 shiftleft eval { shiftleft ('12345678901234567') }; print "expected a die from bad vector string length\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 30 shiftleft eval { shiftleft ('1234567890123456',-1) }; print "expected a die from bad shift count specifier\nnot " unless $@ && $@ =~ /Bad/; &ok; ## test 31 shiftleft eval { shiftleft ('1234567890123456',129) }; print "expected a die from bad shift count specifier\nnot " unless $@ && $@ =~ /Bad/; &ok; Lite/Util/t/anyto6.t 0000644 00000003742 15043770025 0010237 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..7\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( inet_aton ipv6_n2d ipv6_aton ipanyto6 maskanyto6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my $nip = inet_aton('1.2.3.4'); my $exp = '0:0:0:0:0:0:1.2.3.4'; ## test 2 check 4->6 conversion my $nipv6 = ipanyto6($nip); my $ipv6 = ipv6_n2d($nipv6); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp; &ok; ## test 3 check mask4->6 extension $exp = 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:1.2.3.4'; $nipv6 = maskanyto6($nip); $ipv6 = ipv6_n2d($nipv6); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp && &ok; ## test 4 check bad length $nip = pack("H9",0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09); eval { ipanyto6($nip); }; print "ipanyto6 accepted bad argument length\nnot " unless $@ && $@ =~ /Bad arg.+ipanyto6/; &ok; ## test 5 check bad length eval { maskanyto6($nip); }; print "maskanyto6 accepted bad argument length\nnot " unless $@ && $@ =~ /Bad arg.+maskanyto6/; &ok; ## test 6 check pass of ipv6 addrs $nip = ipv6_aton('::1:2.3.4.5'); $exp = '0:0:0:0:0:1:2.3.4.5'; $nipv6 = ipanyto6($nip); $ipv6 = ipv6_n2d($nipv6); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp; &ok; ## test 7 check pass of ipv6 addrs $nip = ipv6_aton('FFF::1:2.3.4.5'); $exp = 'FFF:0:0:0:0:1:2.3.4.5'; $nipv6 = maskanyto6($nip); $ipv6 = ipv6_n2d($nipv6); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp; &ok; Lite/Util/t/bipv6_any2n.t 0000644 00000002326 15043770025 0011151 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..4\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::InetBase qw( :upper ipv6_aton ipv6_n2x inet_any2n ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( a1b2:c3d4:e5d6:f7e8:08f9:190a:2a1b:3b4c A1B2:C3D4:E5D6:F7E8:8F9:190A:2A1B:3B4C 1.2.3.4 0:0:0:0:0:0:102:304 A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 A1B2:C3D4:E5D6:F7E8:8F9:190A:102:304 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = inet_any2n($num); my $rv = ipv6_n2x($bstr); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/notcontiguous.t 0000644 00000004253 15043770025 0011735 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..49\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( inet_any2n notcontiguous ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # input expected spur qw( FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF 128 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE 127 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFC 126 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF8 125 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF0 124 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFE0 123 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFC0 122 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF80 121 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FF00 120 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0 112 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFF0:0 108 0 FFeF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF 128 1 FFFF:FFeF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE 127 1 FFFF:FFFF:FeFF:FFFF:FFFF:FFFF:FFFF:FFFC 126 1 FFFF:FFFF:FFFF:eFFF:FFFF:FFFF:FFFF:FFF8 125 1 FFFF:FFFF:FFFF:FFFF:FFFe:FFFF:FFFF:FFF0 124 1 FFFF:FFFF:FFF:FFFF:FFFF:FFFF:FFFF:FFE0 123 1 FFFF:FFFF:FFFF:FFFF:FFFF:FFeF:FFFF:FFC0 122 1 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FeFF:FF80 121 1 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:eF00 120 1 eFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:0 112 1 FFFF:FeFF:FFFF:FFFF:FFFF:FFFF:FFF0:0 108 1 F000:: 4 0 A000:: 3 1 ); for (my $i=0;$i < @num;$i+=3) { my $bstr = inet_any2n($num[$i]); my $rv; my $xcidr = $num[$i+1]; my $xspur = $num[$i+2]; my($spur,$cidr) = notcontiguous($bstr); print "cidr: $cidr, exp: $xcidr\nnot " unless $cidr == $xcidr; &ok; $spur = 1 if $spur; print "spur: $spur, exp: $xspur\nnot " unless $spur == $xspur; &ok; } Lite/Util/t/inet_n2dx.t 0000644 00000002376 15043770025 0010713 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..6\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x inet_any2n inet_n2dx ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( a1b2:c3d4:e5d6:f7e8:08f9:190a:2a1b:3b4c A1B2:C3D4:E5D6:F7E8:8F9:190A:2A1B:3B4C 1.2.3.4 1.2.3.4 A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 A1B2:C3D4:E5D6:F7E8:8F9:190A:102:304 ::1.2.3.4 1.2.3.4 ::FFFF:1.2.3.4 1.2.3.4 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = inet_any2n($num); my $rv = inet_n2dx($bstr); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/add128.t 0000644 00000006042 15043770025 0007776 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..57\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( add128 sub128 ipv6_aton ipv6_n2x comp128 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # number plus carry exp qw( FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::1 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF ::1 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF ::2 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE 1 0:0:0:0:0:0:0:0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::2 1 0:0:0:0:0:0:0:0 FFFF:FFFF:FFFF:FFFF:FFFF:8FFF:FFFF:FFFE ::7000:0:2 1 0:0:0:0:0:0:0:0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::3 1 0:0:0:0:0:0:0:1 ::1 ::2 0 0:0:0:0:0:0:0:3 ::FFFF ::FFFF 0 0:0:0:0:0:0:1:FFFE ::FFFF:FFFF ::FFFF:FFFF 0 0:0:0:0:0:1:FFFF:FFFE ::FFFF:FFFF:FFFF ::FFFF:FFFF:FFFF 0 0:0:0:0:1:FFFF:FFFF:FFFE ::FFFF:FFFF:FFFF:FFFF ::FFFF:FFFF:FFFF:FFFF 0 0:0:0:1:FFFF:FFFF:FFFF:FFFE ::FFFF:FFFF:FFFF:FFFF:FFFF ::FFFF:FFFF:FFFF:FFFF:FFFF 0 0:0:1:FFFF:FFFF:FFFF:FFFF:FFFE ::FFFF:FFFF:FFFF:FFFF:FFFF:FFFF ::FFFF:FFFF:FFFF:FFFF:FFFF:FFFF 0 0:1:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF ::FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF 0 1:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ); ## test 2 - 15 check carry for (my $i=0; $i<@num; $i+=4) { my $num = ipv6_aton($num[$i]); my $plus = ipv6_aton($num[$i +1]); my $rv = add128($num,$plus); print "got: $rv, exp: $num[$i +2]\nnot " unless $rv == $num[$i +2]; &ok; } ## test 16 - 43 check carry + result for (my $i=0; $i<@num; $i+=4) { my $num = ipv6_aton($num[$i]); my $plus = ipv6_aton($num[$i +1]); my($rv,$result) = add128($num,$plus); print "got: $rv, exp: $num[$i +2]\nnot " unless $rv == $num[$i +2]; &ok; $result = ipv6_n2x($result); print "got: $result\nexp: $num[$i +3]\nnot " unless $result eq $num[$i +3]; &ok; } ## test 44 - 57 the subtraction of the comp of the 'plus' category ## should invert the carry and add 1 to 'exp' ## start test at first 'number' that starts with '::FFFF' for (my $i=0; $i<@num; $i+=4) { next unless $num[$i] =~ /^::FFFF/; my $num = ipv6_aton($num[$i]); my $plus = ipv6_aton($num[$i +1]); my $minus = comp128($plus); my($rv,$result) = sub128($num,$minus); print "got: $rv, exp: $num[$i +2]\nnot " unless $rv == $num[$i +2]; &ok; $num[$i +3] =~ s/FFFE$/FFFF/; $result = ipv6_n2x($result); print "got: $result\nexp: $num[$i +3]\nnot " unless $result eq $num[$i +3]; &ok; } Lite/Util/t/af_inet6.t 0000644 00000002272 15043770025 0010507 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..3\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use Config; use NetAddr::IP::InetBase qw( AF_INET AF_INET6 fake_AF_INET6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 - 13 add stuff to buffer my $af; print "AF_INET = 2 not found in the Socket library\nnot " unless ($af = AF_INET()) && $af == 2; &ok; my $fake = fake_AF_INET6(); my $af_inet6 = AF_INET6(); my $txt = $fake ? "\n\tSocket does not have AF_INET6, Socket6 not present\n\tguessed AF_INET6 for '$Config{osname}' = $fake\n" : "\n\tAF_INET6 = $af_inet6 derived from Socket or Socket6\n"; print STDERR $txt; &ok; Lite/Util/t/inet_4map6.t 0000644 00000003020 15043770025 0010752 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) $| = 1; END {print "1..1\nnot ok 1\n" unless $test;} #use diagnostics; use NetAddr::IP::Util qw( ipv6_n2d inet_aton ipv6_aton inet_4map6 ); $test = 1; sub ok { print "ok $test\n"; ++$test; } # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): print "1..6\n"; my @stuff = qw( 192.168.1.1 1.2.3.4 ::3.4.5.6 ::FFFF:4.5.6.7 ::1:5.4.3.2 ::FEFF:4.3.2.1 ); my $p4 = '0:0:0:0:0:FFFF:'; my $p6 = '0:0:0:0:0:'; foreach(0..$#stuff) { my $pass = 1; my $result; my $bstr; $pass = 0 if $_ > 3; if ($stuff[$_] =~ /\:/) { $bstr = ipv6_aton($stuff[$_]); my $prefix = ($stuff[$_] =~ /^\:\:F/) ? $p6 : $p4; ($result = $stuff[$_]) =~ s/\:\:/$prefix/; } else { $bstr = inet_aton($stuff[$_]); $result = $p4 . $stuff[$_]; } my $rv = inet_4map6($bstr); if ($pass && ! $rv) { print "failed to return valid address\nnot "; } elsif ($pass) { $rv = ipv6_n2d($rv); print "got: $rv, exp: $result\nnot " unless $rv eq $result; } else { print 'unknown return ', ipv6_n2d($rv), "\nnot " if $rv; } &ok; } Lite/Util/t/mode.t 0000644 00000001367 15043770025 0007744 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..2\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( mode ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): my $mode = mode(); my $txt = "\tmode $mode"; print STDERR $txt,"\n"; print "ok 2\n"; Lite/Util/t/ipv6_ntoa.t 0000644 00000003115 15043770025 0010716 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..20\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::Util qw( ipv6_ntoa inet_pton AF_INET6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 - 19 add stuff to buffer my @num = # in exphex qw( :: :: 43:: 43:: ::21 ::21 ::1:2:3:4:5:6:7 0:1:2:3:4:5:6:7 1:2:3:4:5:6:7:: 1:2:3:4:5:6:7:0 1::8 1::8 FF00::FFFF ff00::ffff FFFF::FFFF:FFFF ffff::ffff:ffff A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 a1b2:c3d4:e5d6:f7e8:8f9:190a:102:304 ); for (my $i=0;$i<@num;$i+=2) { my $bits = inet_pton(AF_INET6(),$num[$i]); my $len = length($bits); print "bad len = $len, exp: 16\nnot " unless $len == 16; # 16 bytes x 8 bits &ok; my $ipv6x = ipv6_ntoa($bits); print "got: $ipv6x\nexp: $num[$i +1]\nnot " unless $ipv6x eq $num[$i +1]; &ok; } ## test 32 check bad length ntop my $try = '1234'; my $notempty = eval { ipv6_ntoa($try); }; print "failed bad argument length test for ipv6_ntoa\nnot " unless $@ && $@ =~ /Bad arg/; &ok; Lite/Util/t/bcd2bin.t 0000644 00000003631 15043770025 0010317 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..25\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( bcd2bin ipv6_n2x ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # input expected qw( 0 0:0:0:0:0:0:0:0 2147483648 0:0:0:0:0:0:8000:0 4294967296 0:0:0:0:0:1:0:0 8589934592 0:0:0:0:0:2:0:0 10000000000 0:0:0:0:0:2:540B:E400 17179869184 0:0:0:0:0:4:0:0 34359738368 0:0:0:0:0:8:0:0 68719476736 0:0:0:0:0:10:0:0 137438953472 0:0:0:0:0:20:0:0 274877906944 0:0:0:0:0:40:0:0 549755813888 0:0:0:0:0:80:0:0 1099511627776 0:0:0:0:0:100:0:0 2199023255552 0:0:0:0:0:200:0:0 4398046511104 0:0:0:0:0:400:0:0 8796093022208 0:0:0:0:0:800:0:0 17592186044416 0:0:0:0:0:1000:0:0 35184372088832 0:0:0:0:0:2000:0:0 70368744177664 0:0:0:0:0:4000:0:0 140737488355328 0:0:0:0:0:8000:0:0 9223372036854775808 0:0:0:0:8000:0:0:0 604462909807314587353088 0:0:0:8000:0:0:0:0 39614081257132168796771975168 0:0:8000:0:0:0:0:0 2596148429267413814265248164610048 0:8000:0:0:0:0:0:0 170141183460469231731687303715884105728 8000:0:0:0:0:0:0:0 ); ## tests 2 - 9 check pack correct for (my $i=0;$i<@num;$i+=2) { print $num[$i],"\n"; my $bits = bcd2bin($num[$i]); my $ip = ipv6_n2x($bits); print "got: $ip\nexp: $num[$i +1]\nnot " unless $ip eq $num[$i +1]; &ok; } Lite/Util/t/bipv6func.t 0000644 00000003747 15043770025 0010726 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..27\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::InetBase qw( :upper ipv6_aton ipv6_n2x ipv6_n2d ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # in exphex expd qw( :: 0:0:0:0:0:0:0:0 0:0:0:0:0:0:0.0.0.0 43:: 43:0:0:0:0:0:0:0 43:0:0:0:0:0:0.0.0.0 ::21 0:0:0:0:0:0:0:21 0:0:0:0:0:0:0.0.0.33 ::1:2:3:4:5:6:7 0:1:2:3:4:5:6:7 0:1:2:3:4:5:0.6.0.7 1:2:3:4:5:6:7:: 1:2:3:4:5:6:7:0 1:2:3:4:5:6:0.7.0.0 1::8 1:0:0:0:0:0:0:8 1:0:0:0:0:0:0.0.0.8 FF00::FFFF FF00:0:0:0:0:0:0:FFFF FF00:0:0:0:0:0:0.0.255.255 FFFF::FFFF:FFFF FFFF:0:0:0:0:0:FFFF:FFFF FFFF:0:0:0:0:0:255.255.255.255 ); for (my $i=0;$i<@num;$i+=3) { my $bits = ipv6_aton($num[$i]); my $len = length($bits); print "bad len = $len, exp: 16\nnot " unless $len == 16; # 16 bytes x 8 bits &ok; my $ipv6x = ipv6_n2x($bits); print "got: $ipv6x\nexp: $num[$i +1]\nnot " unless $ipv6x eq $num[$i +1]; &ok; my $ipv6d = ipv6_n2d($bits); print "got: $ipv6d\nexp: $num[$i +2]\nnot " unless $ipv6d eq $num[$i +2]; &ok; } ## test 26 check bad length n2x my $try = '1234'; my $notempty = eval { ipv6_n2x($try); }; print "failed bad argument length test for ipv6_n2x\nnot " unless $@ && $@ =~ /Bad arg/; &ok; ## test 27 check bad length n2d $notempty = eval { ipv6_n2d($try); }; print "failed bad argument length test for ipv6_n2d\nnot " unless $@ && $@ =~ /Bad arg/; &ok; Lite/Util/t/binet_n2ad.t 0000644 00000002267 15043770025 0011025 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..4\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::InetBase qw( :upper ipv6_aton ipv6_n2x inet_any2n inet_n2ad ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( a1b2:c3d4:e5d6:f7e8:08f9:190a:2a1b:3b4c A1B2:C3D4:E5D6:F7E8:8F9:190A:42.27.59.76 1.2.3.4 1.2.3.4 190A::102:304 190A:0:0:0:0:0:1.2.3.4 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = inet_any2n($num); my $rv = inet_n2ad($bstr); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/naip_gethostbyname.t 0000644 00000002647 15043770025 0012702 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..3\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::Util qw( naip_gethostbyname havegethostbyname2 ipv6_n2x inet_aton ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my $exp = '0:0:0:0:0:FFFF:7F00:1'; my $host = '127.1'; my $got = ipv6_n2x( scalar naip_gethostbyname($host)); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; &ok; $exp = '0:0:0:0:0:0:0:1'; $host = $exp; if (havegethostbyname2()) { $got = ipv6_n2x(scalar naip_gethostbyname($host)); print "got: $got\nexp: $exp\nnot " unless $got eq $exp; } else { print STDERR "\n\tgethostbyname2 missing from Socket6\n" if eval{ require Socket6 }; $got = scalar naip_gethostbyname($host); if ($got) { $got = eval{ inet_ntoa($got) } || eval{ ipv6_n2x($got) }; } print "unexpected return value got: $got\nnot " if $got; } &ok; Lite/Util/t/inet_pton.t 0000644 00000004132 15043770025 0011010 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..32\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::Util qw( inet_ntop inet_pton AF_INET AF_INET6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 - 13 add stuff to buffer my @num = # addr qw( 0.0.0.0 255.255.255.255 1.2.3.4 10.253.230.9 ); foreach (@num) { my @digs = split(/\./,$_); my $pkd = pack('C4',@digs); my $naddr = inet_pton(AF_INET(),$_); my $addr = join('.',unpack('C4',$naddr)); my $num = inet_ntop(AF_INET(),$pkd); print "bits do not match\nnot " unless $naddr eq $pkd; &ok; print "inet_pton: $addr, exp: $_\nnot " unless $addr eq $_; &ok; print "inet_ntop: $num, exp: $_\nnot " unless $num eq $_; &ok; } ## test 14 - 31 @num = # in exphex qw( :: :: 43:: 43:: ::21 ::21 ::1:2:3:4:5:6:7 0:1:2:3:4:5:6:7 1:2:3:4:5:6:7:: 1:2:3:4:5:6:7:0 1::8 1::8 FF00::FFFF ff00::ffff FFFF::FFFF:FFFF ffff::ffff:ffff A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 a1b2:c3d4:e5d6:f7e8:8f9:190a:102:304 ); for (my $i=0;$i<@num;$i+=2) { my $bits = inet_pton(AF_INET6(),$num[$i]); my $len = length($bits); print "bad len = $len, exp: 16\nnot " unless $len == 16; # 16 bytes x 8 bits &ok; my $ipv6x = inet_ntop(AF_INET6(),$bits); print "got: $ipv6x\nexp: $num[$i +1]\nnot " unless $ipv6x eq $num[$i +1]; &ok; } ## test 32 check bad length ntop my $try = '1234'; my $notempty = eval { inet_ntop(AF_INET6(),$try); }; print "failed bad argument length test for inet_ntop\nnot " unless $@ && $@ =~ /Bad arg/; &ok; Lite/Util/t/bcdn2bin.t 0000644 00000004002 15043770025 0010466 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..25\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_n2x bcdn2bin ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # input expected qw( 0 0:0:0:0:0:0:0:0 2147483648 0:0:0:0:0:0:8000:0 4294967296 0:0:0:0:0:1:0:0 8589934592 0:0:0:0:0:2:0:0 10000000000 0:0:0:0:0:2:540B:E400 17179869184 0:0:0:0:0:4:0:0 34359738368 0:0:0:0:0:8:0:0 68719476736 0:0:0:0:0:10:0:0 137438953472 0:0:0:0:0:20:0:0 274877906944 0:0:0:0:0:40:0:0 549755813888 0:0:0:0:0:80:0:0 1099511627776 0:0:0:0:0:100:0:0 2199023255552 0:0:0:0:0:200:0:0 4398046511104 0:0:0:0:0:400:0:0 8796093022208 0:0:0:0:0:800:0:0 17592186044416 0:0:0:0:0:1000:0:0 35184372088832 0:0:0:0:0:2000:0:0 70368744177664 0:0:0:0:0:4000:0:0 140737488355328 0:0:0:0:0:8000:0:0 9223372036854775808 0:0:0:0:8000:0:0:0 604462909807314587353088 0:0:0:8000:0:0:0:0 39614081257132168796771975168 0:0:8000:0:0:0:0:0 2596148429267413814265248164610048 0:8000:0:0:0:0:0:0 170141183460469231731687303715884105728 8000:0:0:0:0:0:0:0 ); ## tests 2 - 9 check pack correct #use Devel::Peek 'Dump'; for (my $i=0;$i<@num;$i+=2) { print $num[$i],"\n"; my $pkd = pack("H*",$num[$i]); my $len = length($num[$i]); #Dump($pkd); my $bits = bcdn2bin($pkd,$len); my $ip = ipv6_n2x($bits); print "got: $ip\nexp: $num[$i +1]\nnot " unless $ip eq $num[$i +1]; &ok; } Lite/Util/t/ipv6func.t 0000644 00000003733 15043770025 0010557 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..27\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x ipv6_n2d ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # in exphex expd qw( :: 0:0:0:0:0:0:0:0 0:0:0:0:0:0:0.0.0.0 43:: 43:0:0:0:0:0:0:0 43:0:0:0:0:0:0.0.0.0 ::21 0:0:0:0:0:0:0:21 0:0:0:0:0:0:0.0.0.33 ::1:2:3:4:5:6:7 0:1:2:3:4:5:6:7 0:1:2:3:4:5:0.6.0.7 1:2:3:4:5:6:7:: 1:2:3:4:5:6:7:0 1:2:3:4:5:6:0.7.0.0 1::8 1:0:0:0:0:0:0:8 1:0:0:0:0:0:0.0.0.8 FF00::FFFF FF00:0:0:0:0:0:0:FFFF FF00:0:0:0:0:0:0.0.255.255 FFFF::FFFF:FFFF FFFF:0:0:0:0:0:FFFF:FFFF FFFF:0:0:0:0:0:255.255.255.255 ); for (my $i=0;$i<@num;$i+=3) { my $bits = ipv6_aton($num[$i]); my $len = length($bits); print "bad len = $len, exp: 16\nnot " unless $len == 16; # 16 bytes x 8 bits &ok; my $ipv6x = ipv6_n2x($bits); print "got: $ipv6x\nexp: $num[$i +1]\nnot " unless $ipv6x eq $num[$i +1]; &ok; my $ipv6d = ipv6_n2d($bits); print "got: $ipv6d\nexp: $num[$i +2]\nnot " unless $ipv6d eq $num[$i +2]; &ok; } ## test 26 check bad length n2x my $try = '1234'; my $notempty = eval { ipv6_n2x($try); }; print "failed bad argument length test for ipv6_n2x\nnot " unless $@ && $@ =~ /Bad arg/; &ok; ## test 27 check bad length n2d $notempty = eval { ipv6_n2d($try); }; print "failed bad argument length test for ipv6_n2d\nnot " unless $@ && $@ =~ /Bad arg/; &ok; Lite/Util/t/badd.t 0000644 00000003141 15043770025 0007702 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) $| = 1; END {print "1..1\nnot ok 1\n" unless $test;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x ); $test = 1; sub ok { print "ok $test\n"; ++$test; } my @addr = qw( :: 0:0:0:0:0:0:0:0 ::: undef foo undef ::foo undef foo:: undef abc::def::9 undef abcd1:: undef abcd:: abcd:0:0:0:0:0:0:0 ::abcde undef :a:b:c:d:1:2:3:4 undef :a:b:c:d undef a:b:c:d:1:2:3:4: undef a:b:c:d:1:2:3:4:: undef ::a:b:c:d:1:2:3:4 undef ::a:b:c:d:1:2:3 0:a:b:c:d:1:2:3 ::a:b:c:d:1:2:3: undef :a:b:c:d:1:2:3:: undef a:b:c:d:1:2:3:: a:b:c:d:1:2:3:0 ); my $x = @addr/2; # notify TEST about number of tests # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): print '1..',$x,"\n"; for ($x = 0;$x <= $#addr; $x+=2) { my $bstr = ipv6_aton($addr[$x]); if ($addr[$x +1] =~ /undef/) { print "unexpected return value for $addr[$x]: $_\nnot " if ($_ = ipv6_aton && (ipv6_n2x($_) || 'not defined')); } else { my $rv = ipv6_aton($addr[$x]); unless ($rv) { print "got undefined value for $addr[$x]\nnot "; } else { $rv = ipv6_n2x($rv) || 'not defined'; print "got: $rv, exp: $addr[$x +1]\nnot " unless $rv eq uc $addr[$x +1]; } } &ok; } Lite/Util/t/ipv4_inet.t 0000644 00000002350 15043770025 0010712 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..13\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::Util qw( inet_ntoa inet_aton ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 add stuff to buffer my @num = # addr qw( 0.0.0.0 255.255.255.255 1.2.3.4 10.253.230.9 ); foreach (@num) { my @digs = split(/\./,$_); my $pkd = pack('C4',@digs); my $naddr = inet_aton($_); my $addr = join('.',unpack('C4',$naddr)); my $num = inet_ntoa($pkd); print "bits do not match\nnot " unless $naddr eq $pkd; &ok; print "inet_aton: $addr, exp: $_\nnot " unless $addr eq $_; &ok; print "inet_ntoa: $num, exp: $_\nnot " unless $num eq $_; &ok; } Lite/Util/t/sub128.t 0000644 00000003752 15043770025 0010044 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..34\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( sub128 ipv6_aton ipv6_n2x ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = # number minus carry (not borrow) exp qw( ::f712:fff:fffe ::f712:fff:fffc 1 0:0:0:0:0:0:0:2 ::712:fff:fffe ::712:fff:fffc 1 0:0:0:0:0:0:0:2 ::712:ffff:fffe ::712:ffff:fffc 1 0:0:0:0:0:0:0:2 ::f712:ffff:fffa ::f712:ffff:fffc 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::f712:fff:fffa ::f712:fff:fffc 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::712:fff:fffa ::712:fff:fffc 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::712:ffff:fffa ::712:ffff:fffc 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::2 ::1 1 0:0:0:0:0:0:0:1 ::f712:ffff:fffe ::f712:ffff:fffc 1 0:0:0:0:0:0:0:2 ::1 ::3 0 FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFE ::1234 ::1234 1 0:0:0:0:0:0:0:0 ); ## test 2 check comp of zero for (my $i=0; $i<@num; $i+=4) { my $num = ipv6_aton($num[$i]); my $minus = ipv6_aton($num[$i +1]); my $rv = sub128($num,$minus); print "got: $rv, exp: $num[$i +2]\nnot " unless $rv == $num[$i +2]; &ok; } for (my $i=0; $i<@num; $i+=4) { my $num = ipv6_aton($num[$i]); my $minus = ipv6_aton($num[$i +1]); my($rv,$dif) = sub128($num,$minus); print "got: $rv, exp: $num[$i +2]\nnot " unless $rv == $num[$i +2]; &ok; $dif = ipv6_n2x($dif); print "got: $dif\nexp: $num[$i +3]\nnot " unless $dif eq $num[$i +3]; &ok; } Lite/Util/t/comp128.t 0000644 00000002341 15043770025 0010202 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..4\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( ipv6_aton ipv6_n2x comp128 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( :: FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF 0:0:0:0:0:0:0:0 A1B2:C3D4:E5D6:F7E8:08F9:190A:2A1B:3B4C 5E4D:3C2B:1A29:817:F706:E6F5:D5E4:C4B3 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = ipv6_aton($num); my $cnum = comp128($bstr); my $rv = ipv6_n2x($cnum); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/bipv4_inet.t 0000644 00000002354 15043770025 0011060 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..13\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::InetBase qw( inet_ntoa inet_aton ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 add stuff to buffer my @num = # addr qw( 0.0.0.0 255.255.255.255 1.2.3.4 10.253.230.9 ); foreach (@num) { my @digs = split(/\./,$_); my $pkd = pack('C4',@digs); my $naddr = inet_aton($_); my $addr = join('.',unpack('C4',$naddr)); my $num = inet_ntoa($pkd); print "bits do not match\nnot " unless $naddr eq $pkd; &ok; print "inet_aton: $addr, exp: $_\nnot " unless $addr eq $_; &ok; print "inet_ntoa: $num, exp: $_\nnot " unless $num eq $_; &ok; } Lite/Util/t/binet_n2dx.t 0000644 00000002377 15043770025 0011056 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..6\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::InetBase qw( :upper ipv6_aton inet_any2n inet_n2dx ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @num = qw # input expected ( a1b2:c3d4:e5d6:f7e8:08f9:190a:2a1b:3b4c A1B2:C3D4:E5D6:F7E8:8F9:190A:2A1B:3B4C 1.2.3.4 1.2.3.4 A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 A1B2:C3D4:E5D6:F7E8:8F9:190A:102:304 ::1.2.3.4 1.2.3.4 ::FFFF:1.2.3.4 1.2.3.4 ); my $ff = ipv6_aton($num[1]); for(my $i=0;$i<@num;$i+=2) { my $num = $num[$i]; my $bstr = inet_any2n($num); my $rv = inet_n2dx($bstr); my $exp = $num[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/binet_ntoa.t 0000644 00000003121 15043770025 0011130 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..20\n"; } END {print "not ok 1\n" unless $loaded;} #use diagnostics; use NetAddr::IP::InetBase qw( ipv6_ntoa inet_pton AF_INET6 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } ## test 2 - 19 add stuff to buffer my @num = # in exphex qw( :: :: 43:: 43:: ::21 ::21 ::1:2:3:4:5:6:7 0:1:2:3:4:5:6:7 1:2:3:4:5:6:7:: 1:2:3:4:5:6:7:0 1::8 1::8 FF00::FFFF ff00::ffff FFFF::FFFF:FFFF ffff::ffff:ffff A1B2:C3D4:E5D6:F7E8:08F9:190A:1.2.3.4 a1b2:c3d4:e5d6:f7e8:8f9:190a:102:304 ); for (my $i=0;$i<@num;$i+=2) { my $bits = inet_pton(AF_INET6(),$num[$i]); my $len = length($bits); print "bad len = $len, exp: 16\nnot " unless $len == 16; # 16 bytes x 8 bits &ok; my $ipv6x = ipv6_ntoa($bits); print "got: $ipv6x\nexp: $num[$i +1]\nnot " unless $ipv6x eq $num[$i +1]; &ok; } ## test 32 check bad length ntop my $try = '1234'; my $notempty = eval { ipv6_ntoa($try); }; print "failed bad argument length test for ipv6_ntoa\nnot " unless $@ && $@ =~ /Bad arg/; &ok; Lite/Util/t/ipv6to4.t 0000644 00000002460 15043770025 0010326 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..4\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( inet_ntoa inet_any2n ipv6_n2d ipv6to4 ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my $nip = inet_any2n('1.2.3.4'); my $exp = '0:0:0:0:0:0:1.2.3.4'; ## test 2 check that we have an ipv6 netaddr my $ipv6 = ipv6_n2d($nip); print "got: $ipv6\nexp: $exp\nnot " unless $ipv6 eq $exp; &ok; ## test 3 check conversion back to ipv4 $exp = '1.2.3.4'; print "got: $_, exp: $exp\nnot " unless inet_ntoa(ipv6to4($nip)) eq $exp; &ok; ## test 4 check bad length $nip = pack("H9",0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09); eval { ipv6to4($nip); }; print "ipv6to4 accepted bad argument length\nnot " unless $@ && $@ =~ /Bad arg.+ipv6to4/; &ok; Lite/Util/t/bpackzeros.t 0000644 00000002555 15043770025 0011163 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..13\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::InetBase qw( packzeros ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @addr = qw # input expected ( D0:00:0000:0000:000:b00:0000:000 d0::b00:0:0 0d0:00:0000:0000:000:0b00:: d0::b00:0:0 ::c3D4:E5d6:0:0:0:0 0:0:c3d4:e5d6:: 0:0000:c3D4:e5d6:0:0:0:0 0:0:c3d4:e5d6:: 0:0:0:0:0:0:0:0 :: 0:0:: :: ::0:000:0 :: 0:0::1.2.3.4 ::1.2.3.4 ::1.2.3.4 ::1.2.3.4 ::01b2:c3D4:0:0:0:1.2.3.4 0:1b2:c3d4::1.2.3.4 0:0:0:0:a1B2:c3d4:: ::a1b2:c3d4:0:0 12:0:0:0:34:0:00:000 12::34:0:0:0 ); for(my $i=0;$i<@addr;$i+=2) { my $addr = $addr[$i]; my $rv = packzeros($addr); my $exp = $addr[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/t/packzeros.t 0000644 00000002556 15043770025 0011022 0 ustar 00 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' ######################### We start with some black magic to print on failure. # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) BEGIN { $| = 1; print "1..13\n"; } END {print "not ok 1\n" unless $loaded;} use NetAddr::IP::Util qw( packzeros ); $loaded = 1; print "ok 1\n"; ######################### End of black magic. # Insert your test code below (better if it prints "ok 13" # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): $test = 2; sub ok { print "ok $test\n"; ++$test; } my @addr = qw # input expected ( D0:00:0000:0000:000:b00:0000:000 d0::b00:0:0 0d0:00:0000:0000:000:0B00:: d0::b00:0:0 ::c3D4:e5d6:0:0:0:0 0:0:c3d4:e5d6:: 0:0000:c3D4:e5d6:0:0:0:0 0:0:c3d4:e5d6:: 0:0:0:0:0:0:0:0 :: 0:0:: :: ::0:000:0 :: 0:0::1.2.3.4 ::1.2.3.4 ::1.2.3.4 ::1.2.3.4 ::01b2:C3d4:0:0:0:1.2.3.4 0:1b2:c3d4::1.2.3.4 0:0:0:0:a1b2:c3D4:: ::a1b2:c3d4:0:0 12:0:0:0:34:0:00:000 12::34:0:0:0 ); for(my $i=0;$i<@addr;$i+=2) { my $addr = $addr[$i]; my $rv = packzeros($addr); my $exp = lc $addr[$i +1]; print "got: $rv\nexp: $exp\nnot " unless $rv eq $exp; &ok; } Lite/Util/Util.c 0000644 00000065156 15043770025 0007457 0 ustar 00 /* * This file was generated automatically by ExtUtils::ParseXS version 3.40 from the * contents of Util.xs. Do not edit this file, edit Util.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "Util.xs" /* * Copyright 2006 - 2012, Michael Robinton <michael@bizsystems.com> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License along * with this program; if not, write to the Free Software Foundation, Inc., * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. */ #ifdef __cplusplus extern "C" { #endif #ifdef _CYGWIN #include <windows.h> #endif #include "EXTERN.h" #include "perl.h" #include "XSUB.h" /* needed for testing with 'printf' #include <stdio.h> */ #ifdef _CYGWIN #include <Win32-Extensions.h> #endif #include "localconf.h" #ifdef __cplusplus } #endif /* workaround for OS's without inet_aton */ /* #include "xs_include/inet_aton.c" removed 10-12-11 */ typedef union { u_int32_t u[4]; unsigned char c[16]; } n128; char * is_ipv6to4 = "ipv6to4", * is_shiftleft = "shiftleft", * is_comp128 = "comp128"; char * is_sub128 = "sub128", * is_add128 = "add128"; char * is_hasbits = "hasbits"; /* , * is_isIPv4 = "isIPv4"; */ char * is_bcd2bin = "bcd2bin", * is_simple_pack = "simple_pack", * is_bcdn2bin = "bcdn2bin"; char * is_mask4to6 = "mask4to6", * is_ipv4to6 = "ipv4to6"; char * is_maskanyto6 = "maskanyto6", * is_ipanyto6 = "ipanyto6"; typedef struct bcdstuff { /* character array of 40 bytes */ char txt[21]; /* 20 bytes + string terminator */ u_int32_t bcd[5]; /* 20 bytes, 40 digits */ } BCD; #define zero ('0' & 0x7f) /* useful for debug, prints the 128 bits of 8, 16 bit registers */ void printb128(char * b) { int c; for(c=0;c<16;c++) { if (b[c] &0x80) printf("1"); else printf("0"); if (b[c] &0x40) printf("1"); else printf("0"); if (b[c] &0x20) printf("1"); else printf("0"); if (b[c] &0x10) printf("1"); else printf("0"); if (b[c] &0x8) printf("1"); else printf("0"); if (b[c] &0x4) printf("1"); else printf("0"); if (b[c] &0x2) printf("1"); else printf("0"); if (b[c] &0x1) printf("1"); else printf("0"); if (c == 3 || c == 7 || c == 11) printf("\n"); } printf("\n\n"); } void extendipv4(void * aa, void * ux) { register u_int32_t * a = ux; *a++ = 0; *a++ = 0; *a++ = 0; *a = *((u_int32_t *)aa); } void extendmask4(void * aa, void * ux) { register u_int32_t * a = ux; *a++ = 0xffffffff; *a++ = 0xffffffff; *a++ = 0xffffffff; *a = *((u_int32_t *)aa); } void fastcomp128(void * aa) { register u_int32_t * a = aa; *a++ ^= 0xffffffff; *a++ ^= 0xffffffff; *a++ ^= 0xffffffff; *a++ ^= 0xffffffff; } /* add two 128 bit numbers return the carry */ int adder128(void * aa, void * bb, n128 * ap128, int carry) { int i; register u_int32_t a, b, r; for (i=3; i >= 0; i--) { a = *((u_int32_t *)aa + i); b = *((u_int32_t *)bb + i); r = a + b; a = 0; /* ripple carry forward */ if ( r < a || r < b) /* if overflow */ a = 1; b = r + carry; /* carry propagate in */ if (b < r) /* ripple carry forward */ carry = 1; /* if overflow */ else carry = a; *((u_int32_t *)(ap128->u) + i) = b; } return carry; } int addercon(void * aa, u_int32_t * bb, n128 * ap128, int32_t con) { register u_int32_t tmp = 0x80000000; if (con & tmp) tmp = 0xffffffff; else tmp = 0; bb[0] = tmp; bb[1] = tmp; bb[2] = tmp; bb[3] = (u_int32_t)con; return adder128(aa,bb,ap128,0); } int have128(void * bp) { register u_int32_t * p = bp; if (*p++ || *p++ || *p++ || *p++) return 1; return 0; } int _isipv4(void * bp) { register u_int32_t * p = bp; if (*p++ || *p++ || *p++) return 0; return 1; } /* network byte swap and copy */ void netswap_copy(void * dest, void * src, int len) { register u_int32_t * d = dest, * s = src; for (/* -- */;len>0;len--) { #ifdef host_is_LITTLE_ENDIAN *d++ = (((*s & 0xff000000) >> 24) | ((*s & 0x00ff0000) >> 8) | \ ((*s & 0x0000ff00) << 8) | ((*s & 0x000000ff) << 24)); #else # ifdef host_is_BIG_ENDIAN *d++ = *s; # else # error ENDIANness not defined # endif #endif s++; } } /* do ntohl / htonl changes as necessary for this OS */ void netswap(void * ap, int len) { #ifdef host_is_LITTLE_ENDIAN register u_int32_t * a = ap; for (/* -- */;len >0;len--) { *a = (((*a & 0xff000000) >> 24) | ((*a & 0x00ff0000) >> 8) | \ ((*a & 0x0000ff00) << 8) | ((*a & 0x000000ff) << 24)); a++; } #endif } /* shift right to purge '0's, return mask bit count and remainder value, left fill with ones */ unsigned char _countbits(void *ap) { register u_int32_t * p0 = (u_int32_t *)ap, * p1 = p0 +1, * p2 = p1 +1, * p3 = p2 +1; unsigned char count = 128; fastcomp128(ap); do { if (!(*p3 & 1)) break; count--; *p3 >>= 1; if (*p2 & 1) *p3 |= 0x80000000; *p2 >>= 1; if (*p1 & 1) *p2 |= 0x80000000; *p1 >>= 1; if (*p0 & 1) *p1 |= 0x80000000; *p0 >>= 1; } while (count > 0); return count; } /* multiply 128 bit number x 2 */ void _128x2(u_int32_t * ap) { register u_int32_t * p = ap +3, tmpc, carry = 0; do { tmpc = *p & 0x80000000; /* propagate hi bit to next word */ *p <<= 1; if (carry) *p += 1; carry = tmpc; } while (p-- > ap); /* printf("2o %04X:%04X:%04X:%04X\n",*(ap),*(ap +1),*(ap +2),*(ap +3)); */ } /* multiply 128 bit number X10 */ void _128x10(n128 * ap128, n128 * tp128) { register u_int32_t * ap = ap128->u, * tp = tp128->u; _128x2(ap); /* multiply by two */ *tp = *ap; /* temp save */ *(tp +1) = *(ap +1); *(tp +2) = *(ap +2); *(tp +3) = *(ap +3); _128x2(ap); _128x2(ap); /* times 8 */ (void) adder128(ap,tp,ap128,0); /* printf("x %04X:%04X:%04X:%04X\n",*((u_int32_t *)ap),*((u_int32_t *)ap +1),*((u_int32_t *)ap +2),*((u_int32_t *)ap +3)); */ } /* multiply 128 bit number by 10, add bcd digit to result */ void _128x10plusbcd(n128 * ap128, n128 * tp128, char digit) { register u_int32_t * ap = ap128->u, * tp = tp128->u; /* printf("digit %X + %X = ",digit,*(ap +3)); */ _128x10(ap128,tp128); *tp = 0; *(tp + 1) = 0; *(tp + 2) = 0; *(tp + 3) = digit; (void) adder128(ap,tp,ap128,0); /* printf("%d %04X:%04X:%04X:%04X\n",digit,*((u_int32_t *)ap),*((u_int32_t *)ap +1),*((u_int32_t *)ap +2),*((u_int32_t *)ap +3)); */ } char _simple_pack(void * str,int len, BCD * n) { int i = len -1, j=19, lo=1; register unsigned char c, * bcdn = (unsigned char *)(n->bcd), * sp = (unsigned char *) str; if (len > 40) return '*'; /* error, input string too long */ memset (bcdn, 0, 20); do { c = *(sp + i) & 0x7f; if (c < zero || c > (zero + 9)) return c; /* error, out of range */ if (lo) { /* lo byte ? */ *(bcdn + j) = c & 0xF; lo = 0; } else { c <<= 4; *(bcdn + j) |= c; lo = 1; /* lo byte next */ j--; } } while (i-- > 0); return 0; } /* convert a packed bcd string to 128 bit binary string */ void _bcdn2bin(void * bp, n128 * ap128, n128 * cp128, int len) { int i = 0, hasdigits = 0, lo; register unsigned char c, * cp = (unsigned char *)bp; memset(ap128->c, 0, 16); memset(cp128->c, 0, 16); while (i < len ) { c = *cp++; for (lo=0;lo<2;lo+=1) { if (lo) { if (hasdigits) /* suppress leading zero multiplications */ _128x10plusbcd(ap128, cp128, c & 0xF); else { if (c & 0xF) { hasdigits = 1; ap128->u[3] = c & 0xF; } } } else { if (hasdigits) /* suppress leading zero multiplications */ _128x10plusbcd(ap128, cp128, c >> 4); else { if (c & 0XF0) { hasdigits = 1; ap128->u[3] = c >> 4; } } } i++; if (i >= len) break; } } } /* convert a 128 bit number string to a bcd number string returns the length of the bcd string === 20 */ int _bin2bcd (unsigned char * binary, BCD * n) { register u_int32_t tmp, add3, msk8, bcd8, carry = 0; u_int32_t word; unsigned char binmsk = 0; int c = 0,i, j, p; memset (n->bcd, 0, 20); for (p=0;p<128;p++) { /* bit pointer */ if (! binmsk) { word = *((unsigned char *)binary + c); binmsk = 0x80; c++; } carry = word & binmsk; /* bit to convert */ binmsk >>= 1; for (i=4;i>=0;i--) { bcd8 = n->bcd[i]; if (carry | bcd8) { /* if something to do */ add3 = 3; msk8 = 8; for (j=0;j<8;j++) { /* prep bcd digits for X2 */ tmp = bcd8 + add3; if (tmp & msk8) bcd8 = tmp; add3 <<= 4; msk8 <<= 4; } tmp = bcd8 & 0x80000000; /* propagated carry */ bcd8 <<= 1; /* x 2 */ if (carry) bcd8 += 1; n->bcd[i] = bcd8; carry = tmp; } } } netswap(n->bcd,5); return 20; } /* convert a bcd number string to a bcd text string returns the number of digits */ int _bcd2txt(unsigned char * bcd2p, BCD * n) { register unsigned char bcd, dchar; int i, j = 0; for (i=0;i<20;i++) { dchar = *(bcd2p + i); bcd = dchar >> 4; if (j || bcd) { n->txt[j] = bcd + zero; j++; } bcd = dchar & 0xF; if (j || bcd || i == 19) { /* must be at least one digit */ n->txt[j] = bcd + zero; j++; } } n->txt[j] = 0; /* string terminator */ return j; } /* INCLUDE: xs_include/miniSocket.inc removed 10-12-11 */ #line 486 "Util.c" #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #ifndef dVAR # define dVAR dNOOP #endif /* This stuff is not part of the API! You have been warned. */ #ifndef PERL_VERSION_DECIMAL # define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s) #endif #ifndef PERL_DECIMAL_VERSION # define PERL_DECIMAL_VERSION \ PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION) #endif #ifndef PERL_VERSION_GE # define PERL_VERSION_GE(r,v,s) \ (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s)) #endif #ifndef PERL_VERSION_LE # define PERL_VERSION_LE(r,v,s) \ (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s)) #endif /* XS_INTERNAL is the explicit static-linkage variant of the default * XS macro. * * XS_EXTERNAL is the same as XS_INTERNAL except it does not include * "STATIC", ie. it exports XSUB symbols. You probably don't want that * for anything but the BOOT XSUB. * * See XSUB.h in core! */ /* TODO: This might be compatible further back than 5.10.0. */ #if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1) # undef XS_EXTERNAL # undef XS_INTERNAL # if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING) # define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name) # define XS_INTERNAL(name) STATIC XSPROTO(name) # endif # if defined(__SYMBIAN32__) # define XS_EXTERNAL(name) EXPORT_C XSPROTO(name) # define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name) # endif # ifndef XS_EXTERNAL # if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus) # define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__) # define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__) # else # ifdef __cplusplus # define XS_EXTERNAL(name) extern "C" XSPROTO(name) # define XS_INTERNAL(name) static XSPROTO(name) # else # define XS_EXTERNAL(name) XSPROTO(name) # define XS_INTERNAL(name) STATIC XSPROTO(name) # endif # endif # endif #endif /* perl >= 5.10.0 && perl <= 5.15.1 */ /* The XS_EXTERNAL macro is used for functions that must not be static * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL * macro defined, the best we can do is assume XS is the same. * Dito for XS_INTERNAL. */ #ifndef XS_EXTERNAL # define XS_EXTERNAL(name) XS(name) #endif #ifndef XS_INTERNAL # define XS_INTERNAL(name) XS(name) #endif /* Now, finally, after all this mess, we want an ExtUtils::ParseXS * internal macro that we're free to redefine for varying linkage due * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to! */ #undef XS_EUPXS #if defined(PERL_EUPXS_ALWAYS_EXPORT) # define XS_EUPXS(name) XS_EXTERNAL(name) #else /* default to internal */ # define XS_EUPXS(name) XS_INTERNAL(name) #endif #ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params) /* prototype to pass -Wmissing-prototypes */ STATIC void S_croak_xs_usage(const CV *const cv, const char *const params); STATIC void S_croak_xs_usage(const CV *const cv, const char *const params) { const GV *const gv = CvGV(cv); PERL_ARGS_ASSERT_CROAK_XS_USAGE; if (gv) { const char *const gvname = GvNAME(gv); const HV *const stash = GvSTASH(gv); const char *const hvname = stash ? HvNAME(stash) : NULL; if (hvname) Perl_croak_nocontext("Usage: %s::%s(%s)", hvname, gvname, params); else Perl_croak_nocontext("Usage: %s(%s)", gvname, params); } else { /* Pants. I don't think that it should be possible to get here. */ Perl_croak_nocontext("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params); } } #undef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define croak_xs_usage S_croak_xs_usage #endif /* NOTE: the prototype of newXSproto() is different in versions of perls, * so we define a portable version of newXSproto() */ #ifdef newXS_flags #define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0) #else #define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv) #endif /* !defined(newXS_flags) */ #if PERL_VERSION_LE(5, 21, 5) # define newXS_deffile(a,b) Perl_newXS(aTHX_ a,b,file) #else # define newXS_deffile(a,b) Perl_newXS_deffile(aTHX_ a,b) #endif #line 630 "Util.c" XS_EUPXS(XS_NetAddr__IP__Util_comp128); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_comp128) { dVAR; dXSARGS; dXSI32; if (items < 1) croak_xs_usage(cv, "s, ..."); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; #line 487 "Util.xs" unsigned char * ap; char * subname; u_int32_t wa[4]; STRLEN len; int i; #line 650 "Util.c" #line 493 "Util.xs" ap = (unsigned char *) SvPV(s,len); if (len != 16) { if (ix == 2) subname = is_ipv6to4; else if (ix == 1) subname = is_shiftleft; else subname = is_comp128; croak("Bad arg length for %s%s, length is %d, should be %d", "NetAddr::IP::Util::",subname,len *8,128); } if (ix == 2) { XPUSHs(sv_2mortal(newSVpvn((char *)(ap +12),4))); XSRETURN(1); } else if (ix == 1) { if (items < 2) { memcpy(wa,ap,16); } else if ((i = SvIV(ST(1))) == 0) { memcpy(wa,ap,16); } else if (i < 0 || i > 128) { croak("Bad arg value for %s, is %d, should be 0 thru 128", "NetAddr::IP::Util::shiftleft",i); } else { netswap_copy(wa,ap,4); do { _128x2(wa); i--; } while (i > 0); netswap(wa,4); } } else { memcpy(wa,ap,16); fastcomp128(wa); } XPUSHs(sv_2mortal(newSVpvn((char *)wa,16))); XSRETURN(1); #line 693 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_add128); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_add128) { dVAR; dXSARGS; dXSI32; if (items != 2) croak_xs_usage(cv, "as, bs"); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * as = ST(0) ; SV * bs = ST(1) ; #line 542 "Util.xs" unsigned char * ap, *bp; char * subname; u_int32_t wa[4], wb[4]; n128 a128; STRLEN len; #line 720 "Util.c" #line 548 "Util.xs" ap = (unsigned char *) SvPV(as,len); if (len != 16) { Bail: if (ix == 1) subname = is_sub128; else subname = is_add128; croak("Bad arg length for %s%s, length is %d, should be %d", "NetAddr::IP::Util::",subname,len *8,128); } bp = (unsigned char *) SvPV(bs,len); if (len != 16) { goto Bail; } netswap_copy(wa,ap,4); netswap_copy(wb,bp,4); if (ix == 1) { fastcomp128(wb); XPUSHs(sv_2mortal(newSViv((I32)adder128(wa,wb,&a128,1)))); } else { XPUSHs(sv_2mortal(newSViv((I32)adder128(wa,wb,&a128,0)))); } if (GIMME_V == G_ARRAY) { netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); XSRETURN(2); } XSRETURN(1); #line 752 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_addconst); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_addconst) { dVAR; dXSARGS; if (items != 2) croak_xs_usage(cv, "s, cnst"); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; I32 cnst = (I32)SvIV(ST(1)) ; #line 584 "Util.xs" n128 a128; unsigned char * ap; u_int32_t wa[4], wb[4]; STRLEN len; #line 777 "Util.c" #line 589 "Util.xs" ap = (unsigned char *) SvPV(s,len); if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::addconst",len *8,128); } netswap_copy(wa,ap,4); XPUSHs(sv_2mortal(newSViv((I32)addercon(wa,wb,&a128,cnst)))); if (GIMME_V == G_ARRAY) { netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); XSRETURN(2); } XSRETURN(1); #line 792 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_hasbits); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_hasbits) { dVAR; dXSARGS; if (items != 1) croak_xs_usage(cv, "s"); { SV * s = ST(0) ; #line 608 "Util.xs" unsigned char * bp; char * subname; STRLEN len; #line 812 "Util.c" int RETVAL; dXSTARG; #line 612 "Util.xs" bp = (unsigned char *) SvPV(s,len); if (len != 16) { subname = is_hasbits; croak("Bad arg length for %s%s, length is %d, should be %d", "NetAddr::IP::Util::",subname,len *8,128); } RETVAL = have128(bp); #line 823 "Util.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS_EUPXS(XS_NetAddr__IP__Util_bin2bcd); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_bin2bcd) { dVAR; dXSARGS; dXSI32; if (items != 1) croak_xs_usage(cv, "s"); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; #line 629 "Util.xs" BCD n; unsigned char * cp; STRLEN len; #line 846 "Util.c" #line 633 "Util.xs" cp = (unsigned char *) SvPV(s,len); if (ix == 0) { if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::bin2bcd",len *8,128); } (void) _bin2bcd(cp,&n); XPUSHs(sv_2mortal(newSVpvn((char *)n.txt,_bcd2txt((unsigned char *)n.bcd,&n)))); } else if (ix == 1) { if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::bin2bcdn",len *8,128); } XPUSHs(sv_2mortal(newSVpvn((char *)n.bcd,_bin2bcd(cp,&n)))); } else { if (len > 20) { croak("Bad arg length for %s, length is %d, should %d digits or less", "NetAddr::IP::Util::bcdn2txt",len *2,40); } XPUSHs(sv_2mortal(newSVpvn((char *)n.txt,_bcd2txt(cp,&n)))); } XSRETURN(1); #line 872 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_bcd2bin); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_bcd2bin) { dVAR; dXSARGS; dXSI32; if (items < 1) croak_xs_usage(cv, "s, ..."); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; #line 671 "Util.xs" BCD n; n128 c128, a128; unsigned char * cp, badc; char * subname; STRLEN len; #line 897 "Util.c" #line 677 "Util.xs" cp = (unsigned char *) SvPV(s,len); if (len > 40) { if (ix == 0) subname = is_bcd2bin; else if (ix ==1) subname = is_simple_pack; Badigits: croak("Bad arg length for %s%s, length is %d, should be %d digits or less", "NetAddr::IP::Util::",subname,len,40); } if (ix == 2) { if (len > 20) { len <<= 1; /* times 2 */ subname = is_bcdn2bin; goto Badigits; } if (items < 2) { croak("Bad usage, should have %s('packedbcd,length)", "NetAddr::IP::Util::bcdn2bin"); } len = SvIV(ST(1)); _bcdn2bin(cp,&a128,&c128,(int)len); netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); XSRETURN(1); } badc = _simple_pack(cp,(int)len, &n); if (badc) { if (ix == 1) subname = is_simple_pack; else subname = is_bcd2bin; croak("Bad char in string for %s%s, character is '%c', allowed are 0-9", "NetAddr::IP::Util::",subname,badc); } if (ix == 0) { _bcdn2bin((void *)n.bcd,&a128,&c128,40); netswap(a128.u,4); XPUSHs(sv_2mortal(newSVpvn((char *)a128.c,16))); } else { /* ix == 1 */ XPUSHs(sv_2mortal(newSVpvn((char *)n.bcd,20))); } XSRETURN(1); #line 943 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_notcontiguous); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_notcontiguous) { dVAR; dXSARGS; if (items != 1) croak_xs_usage(cv, "s"); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; #line 726 "Util.xs" unsigned char * ap, count; u_int32_t wa[4]; STRLEN len; #line 965 "Util.c" #line 730 "Util.xs" ap = (unsigned char *) SvPV(s,len); if (len != 16) { croak("Bad arg length for %s, length is %d, should be %d", "NetAddr::IP::Util::countbits",len *8,128); } netswap_copy(wa,ap,4); count = _countbits(wa); XPUSHs(sv_2mortal(newSViv((I32)have128(wa)))); if (GIMME_V == G_ARRAY) { XPUSHs(sv_2mortal(newSViv((I32)count))); XSRETURN(2); } XSRETURN(1); #line 980 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_ipv4to6); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_ipv4to6) { dVAR; dXSARGS; dXSI32; if (items != 1) croak_xs_usage(cv, "s"); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; #line 750 "Util.xs" unsigned char * ip; char * subname; u_int32_t wa[4]; STRLEN len; #line 1004 "Util.c" #line 755 "Util.xs" ip = (unsigned char *) SvPV(s,len); if (len != 4) { if (ix == 1) subname = is_mask4to6; else subname = is_ipv4to6; croak("Bad arg length for %s%s, length is %d, should be 32", "NetAddr::IP::Util::",subname,len *8); } if (ix == 0) extendipv4(ip, wa); else extendmask4(ip, wa); XPUSHs(sv_2mortal(newSVpvn((char *)wa,16))); XSRETURN(1); #line 1021 "Util.c" PUTBACK; return; } } XS_EUPXS(XS_NetAddr__IP__Util_ipanyto6); /* prototype to pass -Wmissing-prototypes */ XS_EUPXS(XS_NetAddr__IP__Util_ipanyto6) { dVAR; dXSARGS; dXSI32; if (items != 1) croak_xs_usage(cv, "s"); PERL_UNUSED_VAR(ax); /* -Wall */ SP -= items; { SV * s = ST(0) ; #line 777 "Util.xs" unsigned char * ip; char * subname; u_int32_t wa[4]; STRLEN len; #line 1045 "Util.c" #line 782 "Util.xs" ip = (unsigned char *) SvPV(s,len); if (len == 16) /* if already 128 bits, return input */ XPUSHs(sv_2mortal(newSVpvn((char *)ip,16))); else if (len == 4) { if (ix == 0) extendipv4(ip, wa); else extendmask4(ip, wa); XPUSHs(sv_2mortal(newSVpvn((char *)wa,16))); } else { if (ix == 1) subname = is_maskanyto6; else subname = is_ipanyto6; croak("Bad arg length for %s%s, length is %d, should be 32 or 128", "NetAddr::IP::Util::",subname,len *8); } XSRETURN(1); #line 1066 "Util.c" PUTBACK; return; } } #ifdef __cplusplus extern "C" #endif XS_EXTERNAL(boot_NetAddr__IP__Util); /* prototype to pass -Wmissing-prototypes */ XS_EXTERNAL(boot_NetAddr__IP__Util) { #if PERL_VERSION_LE(5, 21, 5) dVAR; dXSARGS; #else dVAR; dXSBOOTARGSXSAPIVERCHK; #endif #if (PERL_REVISION == 5 && PERL_VERSION < 9) char* file = __FILE__; #else const char* file = __FILE__; #endif PERL_UNUSED_VAR(file); PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ #if PERL_VERSION_LE(5, 21, 5) XS_VERSION_BOOTCHECK; # ifdef XS_APIVERSION_BOOTCHECK XS_APIVERSION_BOOTCHECK; # endif #endif { CV * cv; cv = newXSproto_portable("NetAddr::IP::Util::comp128", XS_NetAddr__IP__Util_comp128, file, "$;@"); XSANY.any_i32 = 0; cv = newXSproto_portable("NetAddr::IP::Util::ipv6to4", XS_NetAddr__IP__Util_comp128, file, "$;@"); XSANY.any_i32 = 2; cv = newXSproto_portable("NetAddr::IP::Util::shiftleft", XS_NetAddr__IP__Util_comp128, file, "$;@"); XSANY.any_i32 = 1; cv = newXSproto_portable("NetAddr::IP::Util::add128", XS_NetAddr__IP__Util_add128, file, "$$"); XSANY.any_i32 = 0; cv = newXSproto_portable("NetAddr::IP::Util::sub128", XS_NetAddr__IP__Util_add128, file, "$$"); XSANY.any_i32 = 1; (void)newXSproto_portable("NetAddr::IP::Util::addconst", XS_NetAddr__IP__Util_addconst, file, "$$"); (void)newXSproto_portable("NetAddr::IP::Util::hasbits", XS_NetAddr__IP__Util_hasbits, file, "$"); cv = newXSproto_portable("NetAddr::IP::Util::bcdn2txt", XS_NetAddr__IP__Util_bin2bcd, file, "$"); XSANY.any_i32 = 2; cv = newXSproto_portable("NetAddr::IP::Util::bin2bcd", XS_NetAddr__IP__Util_bin2bcd, file, "$"); XSANY.any_i32 = 0; cv = newXSproto_portable("NetAddr::IP::Util::bin2bcdn", XS_NetAddr__IP__Util_bin2bcd, file, "$"); XSANY.any_i32 = 1; cv = newXSproto_portable("NetAddr::IP::Util::bcd2bin", XS_NetAddr__IP__Util_bcd2bin, file, "$;@"); XSANY.any_i32 = 0; cv = newXSproto_portable("NetAddr::IP::Util::bcdn2bin", XS_NetAddr__IP__Util_bcd2bin, file, "$;@"); XSANY.any_i32 = 2; cv = newXSproto_portable("NetAddr::IP::Util::simple_pack", XS_NetAddr__IP__Util_bcd2bin, file, "$;@"); XSANY.any_i32 = 1; (void)newXSproto_portable("NetAddr::IP::Util::notcontiguous", XS_NetAddr__IP__Util_notcontiguous, file, "$"); cv = newXSproto_portable("NetAddr::IP::Util::ipv4to6", XS_NetAddr__IP__Util_ipv4to6, file, "$"); XSANY.any_i32 = 0; cv = newXSproto_portable("NetAddr::IP::Util::mask4to6", XS_NetAddr__IP__Util_ipv4to6, file, "$"); XSANY.any_i32 = 1; cv = newXSproto_portable("NetAddr::IP::Util::ipanyto6", XS_NetAddr__IP__Util_ipanyto6, file, "$"); XSANY.any_i32 = 0; cv = newXSproto_portable("NetAddr::IP::Util::maskanyto6", XS_NetAddr__IP__Util_ipanyto6, file, "$"); XSANY.any_i32 = 1; } #if PERL_VERSION_LE(5, 21, 5) # if PERL_VERSION_GE(5, 9, 0) if (PL_unitcheckav) call_list(PL_scopestack_ix, PL_unitcheckav); # endif XSRETURN_YES; #else Perl_xs_boot_epilog(aTHX_ ax); #endif } Lite/Util/Util_IS.pm 0000644 00000001330 15043770025 0010224 0 ustar 00 #!/usr/bin/perl # # DO NOT ALTER THIS FILE # IT IS WRITTEN BY Makefile.PL # EDIT THAT INSTEAD # package NetAddr::IP::Util_IS; use vars qw($VERSION); $VERSION = 1.00; sub pure { return 0; } sub not_pure { return 1; } 1; __END__ =head1 NAME NetAddr::IP::Util_IS - Tell about Pure Perl =head1 SYNOPSIS use NetAddr::IP::Util_IS; $rv = NetAddr::IP::Util_IS->pure; $rv = NetAddr::IP::Util_IS->not_pure; =head1 DESCRIPTION Util_IS indicates whether or not B<NetAddr::IP::Util> was compiled in Pure Perl mode. =over 4 =item * $rv = NetAddr::IP::Util_IS->pure; Returns true if PurePerl mode, else false. =item * $rv = NetAddr::IP::Util_IS->not_pure; Returns true if NOT PurePerl mode, else false =back =cut 1; Lite/Util/localperl.h 0000644 00000000134 15043770025 0010505 0 ustar 00 /* Written by Makefile.PL * * Do not modify this file, modify Makefile.PL instead * */ Lite/Util/Makefile.PL 0000644 00000012304 15043770025 0010333 0 ustar 00 use ExtUtils::MakeMaker qw( WriteMakefile prompt ); use Config; use Cwd; # fix for bug in Android's sh use File::Spec; use Getopt::Long qw( GetOptions ); my $pwd = getcwd(); unlink 'Makefile'; # remove Makefile to stabilize CC test # # get any command line arguments # my($useXS); GetOptions( 'xs!' => \$useXS, 'pm' => sub { warn "\n\t".'WARNING: Use of "--pm" is deprecated, use "-noxs" instead'."\n\n"; $useXS = 0; }, ); print STDERR "building for $^O\n"; #if ($Config{osname} =~ /MSWin32/i || $Config{osname} eq 'dos') { # kill windows and Darwin, both of which misbahave when building XS code if ($Config{osname} =~ /win/i || $Config{osname} eq 'dos') { $useXS = 0; # force NOXS mode for windows } my $pkg = 'NetAddr::IP::Util'; $pkg =~ /[^:]+$/; my $module = $& .'.pm'; my $cfile = $& .'.c'; my %makeparms = ( NAME => $pkg, VERSION_FROM => $module, # finds $VERSION # depend => {$cfile => q[xs_include/miniSocket.inc localconf.h config.h localperl.h], depend => {$cfile => q[ localconf.h config.h localperl.h ], }, # PREREQ_PM => { Socket6 => 0.23, can't do this # }, LIBS => [], XS => {}, C => [], clean => { FILES => "*.bs *.o *.c *~ tmp* Util_IS.pm localperl.h auto*"}, realclean => { FILES => "config.h config.log config.status"}, dist => {COMPRESS=>'gzip', SUFFIX=>'gz'} ); # # Check if we have a C compiler unless (defined $useXS) { my $compiler = test_cc(); if ($compiler) { $ENV{CC} = $compiler; print "You have a working compiler.\n"; $useXS = 1; # $makeparms{'MYEXTLIB'} = 'netdns$(LIB_EXT)', } else { $useXS = 0; print <<END; I cannot determine if you have a C compiler. I will install the perl-only implementation. You can force installation of the XS version with: perl Makefile.PL --xs END # $makeparms{'MYEXTLIB'} = '', } } my $begin = ''; while ($useXS) { # turn the XS bits on. delete $makeparms{'XS'}; delete $makeparms{'C'}; # fix bug in Andorid's sh local $ENV{TMPDIR} = File::Spec->tmpdir() if $^O eq 'android'; unless (-e './config.h') { system $Config{sh}, 'configure.gcc'; } my @LIBS; unless (open(F,'config.h')) { warn "Cannot read config.h built by 'gcc', trying 'cc'.\n"; # try to build with cc system $Config(sh), 'configure.cc'; unless (open(F,'config.h')) { warn "Cannot read config.h built by 'cc', using 'pure Perl'.\n"; $useXS = 0; last; } } foreach(<F>) { if ($_ =~ /^#define LIBS([ a-zA-Z-]+)/) { @LIBS = ($1 =~ /[a-zA-Z0-9-]+/g); $makeparms{LIBS} = [$1]; last; } } close F; my $link = ''; foreach(@libs) { if ($Config{libs} =~ /$_\b/) { $link .= $_ .' '; } } chop $link; $makeparms{LIBS} = [$link]; open(F,'>localperl.h') or die "could not open localperl.h for write\n"; print F q| /* Written by Makefile.PL * * Do not modify this file, modify Makefile.PL instead * */ |; close F; $begin = q| config :: config.h @$(NOOP) config.h : $(SHELL) configure |; last; } open(F,'>Util_IS.pm'); print F q|#!/usr/bin/perl # # DO NOT ALTER THIS FILE # IT IS WRITTEN BY Makefile.PL # EDIT THAT INSTEAD # package NetAddr::IP::Util_IS; use vars qw($VERSION); $VERSION = 1.00; sub pure { return |, (($useXS) ? 0 : 1), q|; } sub not_pure { return |, (($useXS) ? 1 : 0), q|; } 1; __END__ =head1 NAME NetAddr::IP::Util_IS - Tell about Pure Perl =head1 SYNOPSIS use NetAddr::IP::Util_IS; $rv = NetAddr::IP::Util_IS->pure; $rv = NetAddr::IP::Util_IS->not_pure; =head1 DESCRIPTION Util_IS indicates whether or not B<NetAddr::IP::Util> was compiled in Pure Perl mode. =over 4 =item * $rv = NetAddr::IP::Util_IS->pure; Returns true if PurePerl mode, else false. =item * $rv = NetAddr::IP::Util_IS->not_pure; Returns true if NOT PurePerl mode, else false =back =cut 1; |; sub test_cc { # # The perl/C check borrowed and modified from # Graham Barr's Scalar-List-Utils distribution. # print "Testing if you have a C compiler and the needed header files....\n"; unless (open(F, ">compile.c")) { warn "Cannot write compile.c, skipping test compilation and installing pure Perl version.\n"; return 0; } my $CC; foreach $CC (($ENV{CC},$Config{cc},$Config{ccname})) { next unless $CC; my $command = qq|$CC compile.c -o compile.output|; print F <<'EOF'; int main() { return 0; } EOF close(F) or return 0; print STDERR $command,"\n"; my $rv = system($command); foreach my $file (glob('compile*')) { unlink($file) || warn "Could not delete $file: $!\n"; } if ($rv == 0) { return $CC; } } return undef; } sub MY::top_targets { package MY; my $inherited = shift->SUPER::top_targets(@_); $inherited =~ s/(pure_all\s+::.+)/$1 README/; $begin . $inherited; } sub MY::post_constants { my $post_constants = $Config{scriptdirexp} .'/pod2text'; if (-e $post_constants) { $post_constants = q| MY_POD2TEXT = |. $post_constants .q| |; } else { $post_constants = q| MY_POD2TEXT = echo "perl distro missing 'pod2text' to convert " |; } } sub MY::postamble { package MY; my $postamble = q| README : |. $module .q| @$(MY_POD2TEXT) |. $module .q| > README |; } WriteMakefile(%makeparms); Lite/Util/tlib/NetAddr/IP/Util_IS.pm 0000644 00000001330 15043770025 0013007 0 ustar 00 #!/usr/bin/perl # # DO NOT ALTER THIS FILE # IT IS WRITTEN BY Makefile.PL # EDIT THAT INSTEAD # package NetAddr::IP::Util_IS; use vars qw($VERSION); $VERSION = 1.00; sub pure { return 1; } sub not_pure { return 0; } 1; __END__ =head1 NAME NetAddr::IP::Util_IS - Tell about Pure Perl =head1 SYNOPSIS use NetAddr::IP::Util_IS; $rv = NetAddr::IP::Util_IS->pure; $rv = NetAddr::IP::Util_IS->not_pure; =head1 DESCRIPTION Util_IS indicates whether or not B<NetAddr::IP::Util> was compiled in Pure Perl mode. =over 4 =item * $rv = NetAddr::IP::Util_IS->pure; Returns true if PurePerl mode, else false. =item * $rv = NetAddr::IP::Util_IS->not_pure; Returns true if NOT PurePerl mode, else false =back =cut 1; Lite/Util/config.log 0000644 00000047145 15043770025 0010344 0 ustar 00 This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by configure.gcc, which was generated by GNU Autoconf 2.61. Invocation command line was $ configure.gcc ## --------- ## ## Platform. ## ## --------- ## hostname = 10-0-2-15.cprapid.com uname -m = x86_64 uname -r = 5.14.0-427.31.1.el9_4.x86_64 uname -s = Linux uname -v = #1 SMP PREEMPT_DYNAMIC Thu Aug 15 14:47:52 EDT 2024 /usr/bin/uname -p = x86_64 /bin/uname -X = unknown /bin/arch = x86_64 /usr/bin/arch -k = unknown /usr/convex/getsysinfo = unknown /usr/bin/hostinfo = unknown /bin/machine = unknown /usr/bin/oslevel = unknown /bin/universe = unknown PATH: /root/.local/bin PATH: /root/bin PATH: /usr/local/cpanel/3rdparty/lib/path-bin PATH: /usr/share/Modules/bin PATH: /usr/local/cpanel/3rdparty/lib/path-bin PATH: /usr/local/sbin PATH: /usr/local/bin PATH: /usr/sbin PATH: /usr/bin PATH: /opt/cpanel/composer/bin ## ----------- ## ## Core tests. ## ## ----------- ## configure.gcc:1723: checking for gcc configure.gcc:1750: result: gcc configure.gcc:1988: checking for C compiler version configure.gcc:1995: gcc --version >&5 gcc (GCC) 11.4.1 20231218 (Red Hat 11.4.1-3) Copyright (C) 2021 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. configure.gcc:1998: $? = 0 configure.gcc:2005: gcc -v >&5 Using built-in specs. COLLECT_GCC=gcc COLLECT_LTO_WRAPPER=/usr/libexec/gcc/x86_64-redhat-linux/11/lto-wrapper OFFLOAD_TARGET_NAMES=nvptx-none OFFLOAD_TARGET_DEFAULT=1 Target: x86_64-redhat-linux Configured with: ../configure --enable-bootstrap --enable-host-pie --enable-host-bind-now --enable-languages=c,c++,fortran,lto --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=http://bugs.almalinux.org/ --enable-shared --enable-threads=posix --enable-checking=release --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-gnu-unique-object --enable-linker-build-id --with-gcc-major-version-only --enable-plugin --enable-initfini-array --without-isl --enable-multilib --with-linker-hash-style=gnu --enable-offload-targets=nvptx-none --without-cuda-driver --enable-gnu-indirect-function --enable-cet --with-tune=generic --with-arch_64=x86-64-v2 --with-arch_32=x86-64 --build=x86_64-redhat-linux --with-build-config=bootstrap-lto --enable-link-serialization=1 Thread model: posix Supported LTO compression algorithms: zlib zstd gcc version 11.4.1 20231218 (Red Hat 11.4.1-3) (GCC) configure.gcc:2008: $? = 0 configure.gcc:2015: gcc -V >&5 gcc: error: unrecognized command-line option '-V' gcc: fatal error: no input files compilation terminated. configure.gcc:2018: $? = 1 configure.gcc:2041: checking for C compiler default output file name configure.gcc:2068: gcc conftest.c >&5 configure.gcc:2071: $? = 0 configure.gcc:2109: result: a.out configure.gcc:2126: checking whether the C compiler works configure.gcc:2136: ./a.out configure.gcc:2139: $? = 0 configure.gcc:2156: result: yes configure.gcc:2163: checking whether we are cross compiling configure.gcc:2165: result: no configure.gcc:2168: checking for suffix of executables configure.gcc:2175: gcc -o conftest conftest.c >&5 configure.gcc:2178: $? = 0 configure.gcc:2202: result: configure.gcc:2208: checking for suffix of object files configure.gcc:2234: gcc -c conftest.c >&5 configure.gcc:2237: $? = 0 configure.gcc:2260: result: o configure.gcc:2264: checking whether we are using the GNU C compiler configure.gcc:2293: gcc -c conftest.c >&5 configure.gcc:2299: $? = 0 configure.gcc:2316: result: yes configure.gcc:2321: checking whether gcc accepts -g configure.gcc:2351: gcc -c -g conftest.c >&5 configure.gcc:2357: $? = 0 configure.gcc:2456: result: yes configure.gcc:2473: checking for gcc option to accept ISO C89 configure.gcc:2547: gcc -c -g -O2 conftest.c >&5 configure.gcc:2553: $? = 0 configure.gcc:2576: result: none needed configure.gcc:2602: checking how to run the C preprocessor configure.gcc:2642: gcc -E conftest.c configure.gcc:2648: $? = 0 configure.gcc:2679: gcc -E conftest.c conftest.c:8:10: fatal error: ac_nonexistent.h: No such file or directory 8 | #include <ac_nonexistent.h> | ^~~~~~~~~~~~~~~~~~ compilation terminated. configure.gcc:2685: $? = 1 configure.gcc: failed program was: | /* confdefs.h. */ | #define PACKAGE_NAME "" | #define PACKAGE_TARNAME "" | #define PACKAGE_VERSION "" | #define PACKAGE_STRING "" | #define PACKAGE_BUGREPORT "" | /* end confdefs.h. */ | #include <ac_nonexistent.h> configure.gcc:2718: result: gcc -E configure.gcc:2747: gcc -E conftest.c configure.gcc:2753: $? = 0 configure.gcc:2784: gcc -E conftest.c conftest.c:8:10: fatal error: ac_nonexistent.h: No such file or directory 8 | #include <ac_nonexistent.h> | ^~~~~~~~~~~~~~~~~~ compilation terminated. configure.gcc:2790: $? = 1 configure.gcc: failed program was: | /* confdefs.h. */ | #define PACKAGE_NAME "" | #define PACKAGE_TARNAME "" | #define PACKAGE_VERSION "" | #define PACKAGE_STRING "" | #define PACKAGE_BUGREPORT "" | /* end confdefs.h. */ | #include <ac_nonexistent.h> configure.gcc:2828: checking for grep that handles long lines and -e configure.gcc:2902: result: /usr/bin/grep configure.gcc:2907: checking for egrep configure.gcc:2985: result: /usr/bin/grep -E configure.gcc:2990: checking for ANSI C header files configure.gcc:3020: gcc -c -g -O2 conftest.c >&5 configure.gcc:3026: $? = 0 configure.gcc:3125: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:3128: $? = 0 configure.gcc:3134: ./conftest configure.gcc:3137: $? = 0 configure.gcc:3154: result: yes configure.gcc:3178: checking for sys/types.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for sys/stat.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for stdlib.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for string.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for memory.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for strings.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for inttypes.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for stdint.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3178: checking for unistd.h configure.gcc:3199: gcc -c -g -O2 conftest.c >&5 configure.gcc:3205: $? = 0 configure.gcc:3221: result: yes configure.gcc:3251: checking sys/socket.h usability configure.gcc:3268: gcc -c -g -O2 conftest.c >&5 configure.gcc:3274: $? = 0 configure.gcc:3288: result: yes configure.gcc:3292: checking sys/socket.h presence configure.gcc:3307: gcc -E conftest.c configure.gcc:3313: $? = 0 configure.gcc:3327: result: yes configure.gcc:3355: checking for sys/socket.h configure.gcc:3363: result: yes configure.gcc:3251: checking netinet/in.h usability configure.gcc:3268: gcc -c -g -O2 conftest.c >&5 configure.gcc:3274: $? = 0 configure.gcc:3288: result: yes configure.gcc:3292: checking netinet/in.h presence configure.gcc:3307: gcc -E conftest.c configure.gcc:3313: $? = 0 configure.gcc:3327: result: yes configure.gcc:3355: checking for netinet/in.h configure.gcc:3363: result: yes configure.gcc:3251: checking arpa/inet.h usability configure.gcc:3268: gcc -c -g -O2 conftest.c >&5 configure.gcc:3274: $? = 0 configure.gcc:3288: result: yes configure.gcc:3292: checking arpa/inet.h presence configure.gcc:3307: gcc -E conftest.c configure.gcc:3313: $? = 0 configure.gcc:3327: result: yes configure.gcc:3355: checking for arpa/inet.h configure.gcc:3363: result: yes configure.gcc:3251: checking netdb.h usability configure.gcc:3268: gcc -c -g -O2 conftest.c >&5 configure.gcc:3274: $? = 0 configure.gcc:3288: result: yes configure.gcc:3292: checking netdb.h presence configure.gcc:3307: gcc -E conftest.c configure.gcc:3313: $? = 0 configure.gcc:3327: result: yes configure.gcc:3355: checking for netdb.h configure.gcc:3363: result: yes configure.gcc:3378: checking for an ANSI C-conforming const configure.gcc:3453: gcc -c -g -O2 conftest.c >&5 configure.gcc:3459: $? = 0 configure.gcc:3474: result: yes configure.gcc:3485: checking for int32_t configure.gcc:3516: gcc -c -g -O2 conftest.c >&5 configure.gcc:3522: $? = 0 configure.gcc:3551: gcc -c -g -O2 conftest.c >&5 conftest.c: In function 'main': conftest.c:59:67: warning: integer overflow in expression of type 'int' results in '-2147483648' [-Woverflow] 59 | < (int32_t) ((((int32_t) 1 << (32 - 2)) - 1) * 2 + 2))]; | ^ conftest.c:58:12: error: storage size of 'test_array' isn't constant 58 | static int test_array [1 - 2 * !((int32_t) ((((int32_t) 1 << (32 - 2)) - 1) * 2 + 1) | ^~~~~~~~~~ configure.gcc:3557: $? = 1 configure.gcc: failed program was: | /* confdefs.h. */ | #define PACKAGE_NAME "" | #define PACKAGE_TARNAME "" | #define PACKAGE_VERSION "" | #define PACKAGE_STRING "" | #define PACKAGE_BUGREPORT "" | #define STDC_HEADERS 1 | #define HAVE_SYS_TYPES_H 1 | #define HAVE_SYS_STAT_H 1 | #define HAVE_STDLIB_H 1 | #define HAVE_STRING_H 1 | #define HAVE_MEMORY_H 1 | #define HAVE_STRINGS_H 1 | #define HAVE_INTTYPES_H 1 | #define HAVE_STDINT_H 1 | #define HAVE_UNISTD_H 1 | #define HAVE_SYS_SOCKET_H 1 | #define HAVE_NETINET_IN_H 1 | #define HAVE_ARPA_INET_H 1 | #define HAVE_NETDB_H 1 | /* end confdefs.h. */ | #include <stdio.h> | #ifdef HAVE_SYS_TYPES_H | # include <sys/types.h> | #endif | #ifdef HAVE_SYS_STAT_H | # include <sys/stat.h> | #endif | #ifdef STDC_HEADERS | # include <stdlib.h> | # include <stddef.h> | #else | # ifdef HAVE_STDLIB_H | # include <stdlib.h> | # endif | #endif | #ifdef HAVE_STRING_H | # if !defined STDC_HEADERS && defined HAVE_MEMORY_H | # include <memory.h> | # endif | # include <string.h> | #endif | #ifdef HAVE_STRINGS_H | # include <strings.h> | #endif | #ifdef HAVE_INTTYPES_H | # include <inttypes.h> | #endif | #ifdef HAVE_STDINT_H | # include <stdint.h> | #endif | #ifdef HAVE_UNISTD_H | # include <unistd.h> | #endif | int | main () | { | static int test_array [1 - 2 * !((int32_t) ((((int32_t) 1 << (32 - 2)) - 1) * 2 + 1) | < (int32_t) ((((int32_t) 1 << (32 - 2)) - 1) * 2 + 2))]; | test_array [0] = 0 | | ; | return 0; | } configure.gcc:3586: result: yes configure.gcc:3599: checking for uint16_t configure.gcc:3630: gcc -c -g -O2 conftest.c >&5 configure.gcc:3636: $? = 0 configure.gcc:3657: result: yes configure.gcc:3671: checking for uint32_t configure.gcc:3702: gcc -c -g -O2 conftest.c >&5 configure.gcc:3708: $? = 0 configure.gcc:3729: result: yes configure.gcc:3747: checking for uint8_t configure.gcc:3778: gcc -c -g -O2 conftest.c >&5 configure.gcc:3784: $? = 0 configure.gcc:3805: result: yes configure.gcc:3825: checking whether gcc needs -traditional configure.gcc:3867: result: no configure.gcc:3881: checking for library containing gethostbyname configure.gcc:3922: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:3928: $? = 0 configure.gcc:3956: result: none required configure.gcc:3971: checking for library containing inet_aton configure.gcc:4012: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:4018: $? = 0 configure.gcc:4046: result: none required configure.gcc:4061: checking for library containing inet_pton configure.gcc:4102: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:4108: $? = 0 configure.gcc:4136: result: none required configure.gcc:4151: checking for library containing inet_addr configure.gcc:4192: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:4198: $? = 0 configure.gcc:4226: result: none required configure.gcc:4239: checking whether byte ordering is bigendian configure.gcc:4272: gcc -c -g -O2 conftest.c >&5 configure.gcc:4278: $? = 0 configure.gcc:4310: gcc -c -g -O2 conftest.c >&5 conftest.c: In function 'main': conftest.c:33:2: error: unknown type name 'not'; did you mean 'ino_t'? 33 | not big endian | ^~~ | ino_t conftest.c:33:10: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'endian' 33 | not big endian | ^~~~~~ configure.gcc:4316: $? = 1 configure.gcc: failed program was: | /* confdefs.h. */ | #define PACKAGE_NAME "" | #define PACKAGE_TARNAME "" | #define PACKAGE_VERSION "" | #define PACKAGE_STRING "" | #define PACKAGE_BUGREPORT "" | #define STDC_HEADERS 1 | #define HAVE_SYS_TYPES_H 1 | #define HAVE_SYS_STAT_H 1 | #define HAVE_STDLIB_H 1 | #define HAVE_STRING_H 1 | #define HAVE_MEMORY_H 1 | #define HAVE_STRINGS_H 1 | #define HAVE_INTTYPES_H 1 | #define HAVE_STDINT_H 1 | #define HAVE_UNISTD_H 1 | #define HAVE_SYS_SOCKET_H 1 | #define HAVE_NETINET_IN_H 1 | #define HAVE_ARPA_INET_H 1 | #define HAVE_NETDB_H 1 | #define HAVE_GETHOSTBYNAME 1 | #define HAVE_INET_ATON 1 | #define HAVE_INET_PTON 1 | #define HAVE_INET_ADDR 1 | /* end confdefs.h. */ | #include <sys/types.h> | #include <sys/param.h> | | int | main () | { | #if BYTE_ORDER != BIG_ENDIAN | not big endian | #endif | | ; | return 0; | } configure.gcc:4456: result: no configure.gcc:4475: checking for uint8_t configure.gcc:4505: gcc -c -g -O2 conftest.c >&5 configure.gcc:4511: $? = 0 configure.gcc:4526: result: yes configure.gcc:4533: checking size of uint8_t configure.gcc:4835: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:4838: $? = 0 configure.gcc:4844: ./conftest configure.gcc:4847: $? = 0 configure.gcc:4870: result: 1 configure.gcc:4880: checking for uint16_t configure.gcc:4910: gcc -c -g -O2 conftest.c >&5 configure.gcc:4916: $? = 0 configure.gcc:4931: result: yes configure.gcc:4938: checking size of uint16_t configure.gcc:5240: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:5243: $? = 0 configure.gcc:5249: ./conftest configure.gcc:5252: $? = 0 configure.gcc:5275: result: 2 configure.gcc:5285: checking for uint32_t configure.gcc:5315: gcc -c -g -O2 conftest.c >&5 configure.gcc:5321: $? = 0 configure.gcc:5336: result: yes configure.gcc:5343: checking size of uint32_t configure.gcc:5645: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:5648: $? = 0 configure.gcc:5654: ./conftest configure.gcc:5657: $? = 0 configure.gcc:5680: result: 4 configure.gcc:5690: checking for u_int8_t configure.gcc:5720: gcc -c -g -O2 conftest.c >&5 configure.gcc:5726: $? = 0 configure.gcc:5741: result: yes configure.gcc:5748: checking size of u_int8_t configure.gcc:6050: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:6053: $? = 0 configure.gcc:6059: ./conftest configure.gcc:6062: $? = 0 configure.gcc:6085: result: 1 configure.gcc:6095: checking for u_int16_t configure.gcc:6125: gcc -c -g -O2 conftest.c >&5 configure.gcc:6131: $? = 0 configure.gcc:6146: result: yes configure.gcc:6153: checking size of u_int16_t configure.gcc:6455: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:6458: $? = 0 configure.gcc:6464: ./conftest configure.gcc:6467: $? = 0 configure.gcc:6490: result: 2 configure.gcc:6500: checking for u_int32_t configure.gcc:6530: gcc -c -g -O2 conftest.c >&5 configure.gcc:6536: $? = 0 configure.gcc:6551: result: yes configure.gcc:6558: checking size of u_int32_t configure.gcc:6860: gcc -o conftest -g -O2 conftest.c >&5 configure.gcc:6863: $? = 0 configure.gcc:6869: ./conftest configure.gcc:6872: $? = 0 configure.gcc:6895: result: 4 configure.gcc:7009: creating ./config.status ## ---------------------- ## ## Running config.status. ## ## ---------------------- ## This file was extended by config.status, which was generated by GNU Autoconf 2.61. Invocation command line was CONFIG_FILES = CONFIG_HEADERS = CONFIG_LINKS = CONFIG_COMMANDS = $ ./config.status on 10-0-2-15.cprapid.com config.status:515: creating config.h ## ---------------- ## ## Cache variables. ## ## ---------------- ## ac_cv_c_bigendian=no ac_cv_c_compiler_gnu=yes ac_cv_c_const=yes ac_cv_c_int32_t=yes ac_cv_c_uint16_t=yes ac_cv_c_uint32_t=yes ac_cv_c_uint8_t=yes ac_cv_env_CC_set=set ac_cv_env_CC_value=gcc ac_cv_env_CFLAGS_set= ac_cv_env_CFLAGS_value= ac_cv_env_CPPFLAGS_set= ac_cv_env_CPPFLAGS_value= ac_cv_env_CPP_set= ac_cv_env_CPP_value= ac_cv_env_LDFLAGS_set= ac_cv_env_LDFLAGS_value= ac_cv_env_LIBS_set= ac_cv_env_LIBS_value= ac_cv_env_build_alias_set= ac_cv_env_build_alias_value= ac_cv_env_host_alias_set= ac_cv_env_host_alias_value= ac_cv_env_target_alias_set= ac_cv_env_target_alias_value= ac_cv_header_arpa_inet_h=yes ac_cv_header_inttypes_h=yes ac_cv_header_memory_h=yes ac_cv_header_netdb_h=yes ac_cv_header_netinet_in_h=yes ac_cv_header_stdc=yes ac_cv_header_stdint_h=yes ac_cv_header_stdlib_h=yes ac_cv_header_string_h=yes ac_cv_header_strings_h=yes ac_cv_header_sys_socket_h=yes ac_cv_header_sys_stat_h=yes ac_cv_header_sys_types_h=yes ac_cv_header_unistd_h=yes ac_cv_objext=o ac_cv_path_EGREP='/usr/bin/grep -E' ac_cv_path_GREP=/usr/bin/grep ac_cv_prog_CPP='gcc -E' ac_cv_prog_ac_ct_CC=gcc ac_cv_prog_cc_c89= ac_cv_prog_cc_g=yes ac_cv_prog_gcc_traditional=no ac_cv_search_gethostbyname='none required' ac_cv_search_inet_addr='none required' ac_cv_search_inet_aton='none required' ac_cv_search_inet_pton='none required' ac_cv_sizeof_u_int16_t=2 ac_cv_sizeof_u_int32_t=4 ac_cv_sizeof_u_int8_t=1 ac_cv_sizeof_uint16_t=2 ac_cv_sizeof_uint32_t=4 ac_cv_sizeof_uint8_t=1 ac_cv_type_u_int16_t=yes ac_cv_type_u_int32_t=yes ac_cv_type_u_int8_t=yes ac_cv_type_uint16_t=yes ac_cv_type_uint32_t=yes ac_cv_type_uint8_t=yes ## ----------------- ## ## Output variables. ## ## ----------------- ## CC='gcc' CFLAGS='-g -O2' CPP='gcc -E' CPPFLAGS='' DEFS='-DHAVE_CONFIG_H' ECHO_C='' ECHO_N='-n' ECHO_T='' EGREP='/usr/bin/grep -E' EXEEXT='' GREP='/usr/bin/grep' LDFLAGS='' LIBOBJS='' LIBS='' LTLIBOBJS='' OBJEXT='o' PACKAGE_BUGREPORT='' PACKAGE_NAME='' PACKAGE_STRING='' PACKAGE_TARNAME='' PACKAGE_VERSION='' PATH_SEPARATOR=':' SHELL='/bin/sh' ac_ct_CC='gcc' bindir='${exec_prefix}/bin' build_alias='' datadir='${datarootdir}' datarootdir='${prefix}/share' docdir='${datarootdir}/doc/${PACKAGE}' dvidir='${docdir}' exec_prefix='${prefix}' host_alias='' htmldir='${docdir}' includedir='${prefix}/include' infodir='${datarootdir}/info' libdir='${exec_prefix}/lib' libexecdir='${exec_prefix}/libexec' localedir='${datarootdir}/locale' localstatedir='${prefix}/var' mandir='${datarootdir}/man' oldincludedir='/usr/include' pdfdir='${docdir}' prefix='/usr/local' program_transform_name='s,x,x,' psdir='${docdir}' sbindir='${exec_prefix}/sbin' sharedstatedir='${prefix}/com' sysconfdir='${prefix}/etc' target_alias='' ## ----------- ## ## confdefs.h. ## ## ----------- ## #define PACKAGE_NAME "" #define PACKAGE_TARNAME "" #define PACKAGE_VERSION "" #define PACKAGE_STRING "" #define PACKAGE_BUGREPORT "" #define STDC_HEADERS 1 #define HAVE_SYS_TYPES_H 1 #define HAVE_SYS_STAT_H 1 #define HAVE_STDLIB_H 1 #define HAVE_STRING_H 1 #define HAVE_MEMORY_H 1 #define HAVE_STRINGS_H 1 #define HAVE_INTTYPES_H 1 #define HAVE_STDINT_H 1 #define HAVE_UNISTD_H 1 #define HAVE_SYS_SOCKET_H 1 #define HAVE_NETINET_IN_H 1 #define HAVE_ARPA_INET_H 1 #define HAVE_NETDB_H 1 #define HAVE_GETHOSTBYNAME 1 #define HAVE_INET_ATON 1 #define HAVE_INET_PTON 1 #define HAVE_INET_ADDR 1 #define SIZEOF_UINT8_T 1 #define SIZEOF_UINT16_T 2 #define SIZEOF_UINT32_T 4 #define SIZEOF_U_INT8_T 1 #define SIZEOF_U_INT16_T 2 #define SIZEOF_U_INT32_T 4 configure.gcc: exit 0 Lite/Util/MYMETA.yml 0000644 00000000744 15043770025 0010105 0 ustar 00 --- abstract: unknown author: - unknown build_requires: ExtUtils::MakeMaker: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 generated_by: 'ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: NetAddr-IP-Util no_index: directory: - t - inc version: '1.53' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' Lite/Util/config.status 0000755 00000045617 15043770025 0011113 0 ustar 00 #! /bin/sh # Generated by configure.gcc. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=${CONFIG_SHELL-/bin/sh} ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi # PATH needs CR # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) as_nl=' ' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 { (exit 1); exit 1; } fi # Work around bugs in pre-3.0 UWIN ksh. for as_var in ENV MAIL MAILPATH do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # CDPATH. $as_unset CDPATH as_lineno_1=$LINENO as_lineno_2=$LINENO test "x$as_lineno_1" != "x$as_lineno_2" && test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line after each line using $LINENO; the second 'sed' # does the real work. The second script uses 'N' to pair each # line-number line with the line containing $LINENO, and appends # trailing '-' during substitution so that $LINENO is not a special # case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # scripts with optimization help from Paolo Bonzini. Blame Lee # E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in -n*) case `echo 'x\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. *) ECHO_C='\c';; esac;; *) ECHO_N='-n';; esac if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir fi echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 # Save the log message, to keep $[0] and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by $as_me, which was generated by GNU Autoconf 2.61. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " # Files that config.status was made for. config_headers=" config.h" ac_cs_usage="\ \`$as_me' instantiates files from templates according to the current configuration. Usage: $0 [OPTIONS] [FILE]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration headers: $config_headers Report bugs to <bug-autoconf@gnu.org>." ac_cs_version="\ config.status configured by configure.gcc, generated by GNU Autoconf 2.61, with options \"'CC=gcc'\" Copyright (C) 2006 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='/home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util' srcdir='.' # If no file are specified by the user, then we need to provide default # value. By we need to know if files were specified by the user. ac_need_defaults=: while test $# != 0 do case $1 in --*=*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) echo "$ac_cs_version"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --header | --heade | --head | --hea ) $ac_shift CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header { echo "$as_me: error: ambiguous option: $1 Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; };; --help | --hel | -h ) echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) { echo "$as_me: error: unrecognized option: $1 Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *) ac_config_targets="$ac_config_targets $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi if $ac_cs_recheck; then echo "running CONFIG_SHELL=/bin/sh /bin/sh configure.gcc " 'CC=gcc' $ac_configure_extra_args " --no-create --no-recursion" >&6 CONFIG_SHELL=/bin/sh export CONFIG_SHELL exec /bin/sh "configure.gcc" 'CC=gcc' $ac_configure_extra_args --no-create --no-recursion fi exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX echo "$ac_log" } >&5 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 echo "$as_me: error: invalid argument: $ac_config_target" >&2;} { (exit 1); exit 1; }; };; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= trap 'exit_status=$? { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status ' 0 trap '{ (exit 1); exit 1; }' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || { echo "$me: cannot create a temporary directory in ." >&2 { (exit 1); exit 1; } } for ac_tag in :H $CONFIG_HEADERS do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) { { echo "$as_me:$LINENO: error: Invalid tag $ac_tag." >&5 echo "$as_me: error: Invalid tag $ac_tag." >&2;} { (exit 1); exit 1; }; };; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || { { echo "$as_me:$LINENO: error: cannot find input file: $ac_f" >&5 echo "$as_me: error: cannot find input file: $ac_f" >&2;} { (exit 1); exit 1; }; };; esac ac_file_inputs="$ac_file_inputs $ac_f" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input="Generated from "`IFS=: echo $* | sed 's|^[^:]*/||;s|:[^:]*/|, |g'`" by configure." if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} fi case $ac_tag in *:-:* | *:-) cat >"$tmp/stdin";; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` { as_dir="$ac_dir" case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || { $as_mkdir_p && mkdir -p "$as_dir"; } || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || { { echo "$as_me:$LINENO: error: cannot create directory $as_dir" >&5 echo "$as_me: error: cannot create directory $as_dir" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :H) # # CONFIG_HEADER # # First, check the format of the line: cat >"$tmp/defines.sed" <<\CEOF /^[ ]*#[ ]*undef[ ][ ]*[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*[ ]*$/b def /^[ ]*#[ ]*define[ ][ ]*[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*[( ]/b def b :def s/$/ / s,^\([ #]*\)[^ ]*\([ ]*PACKAGE_NAME\)[ (].*,\1define\2 "" , s,^\([ #]*\)[^ ]*\([ ]*PACKAGE_TARNAME\)[ (].*,\1define\2 "" , s,^\([ #]*\)[^ ]*\([ ]*PACKAGE_VERSION\)[ (].*,\1define\2 "" , s,^\([ #]*\)[^ ]*\([ ]*PACKAGE_STRING\)[ (].*,\1define\2 "" , s,^\([ #]*\)[^ ]*\([ ]*PACKAGE_BUGREPORT\)[ (].*,\1define\2 "" , s,^\([ #]*\)[^ ]*\([ ]*STDC_HEADERS\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_SYS_TYPES_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_SYS_STAT_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_STDLIB_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_STRING_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_MEMORY_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_STRINGS_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_INTTYPES_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_STDINT_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_UNISTD_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_SYS_SOCKET_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_NETINET_IN_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_ARPA_INET_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_NETDB_H\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_GETHOSTBYNAME\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_INET_ATON\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_INET_PTON\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*HAVE_INET_ADDR\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*SIZEOF_UINT8_T\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*SIZEOF_UINT16_T\)[ (].*,\1define\2 2 , s,^\([ #]*\)[^ ]*\([ ]*SIZEOF_UINT32_T\)[ (].*,\1define\2 4 , s,^\([ #]*\)[^ ]*\([ ]*SIZEOF_U_INT8_T\)[ (].*,\1define\2 1 , s,^\([ #]*\)[^ ]*\([ ]*SIZEOF_U_INT16_T\)[ (].*,\1define\2 2 , s,^\([ #]*\)[^ ]*\([ ]*SIZEOF_U_INT32_T\)[ (].*,\1define\2 4 , s/ $// s,^[ #]*u.*,/* & */, CEOF sed -f "$tmp/defines.sed" $ac_file_inputs >"$tmp/out1" ac_result="$tmp/out1" if test x"$ac_file" != x-; then echo "/* $configure_input */" >"$tmp/config.h" cat "$ac_result" >>"$tmp/config.h" if diff $ac_file "$tmp/config.h" >/dev/null 2>&1; then { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 echo "$as_me: $ac_file is unchanged" >&6;} else rm -f $ac_file mv "$tmp/config.h" $ac_file fi else echo "/* $configure_input */" cat "$ac_result" fi rm -f "$tmp/out12" ;; esac done # for ac_tag { (exit 0); exit 0; } Lite/Util/typemap 0000644 00000000542 15043770025 0007764 0 ustar 00 # # Map C types to Perl types # struct in_addr * T_PTROBJ # # Input conversions # INPUT T_PTROBJ if (sv_derived_from($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = ($type) tmp; } else croak(\"$var is not of type ${ntype}\") # # Output conversions # OUTPUT T_PTROBJ sv_setref_pv($arg, \"${ntype}\", (void*)$var); Lite/Util/config.h 0000644 00000007677 15043770025 0010020 0 ustar 00 /* config.h. Generated from config.h.in by configure. */ /* config.h.in. Generated from configure.ac by autoheader. */ /* Define to 1 if you have the <arpa/inet.h> header file. */ #define HAVE_ARPA_INET_H 1 /* Define to 1 if function 'gethostbyname' is present */ #define HAVE_GETHOSTBYNAME 1 /* Define to 1 if function 'inet_addr' is present */ #define HAVE_INET_ADDR 1 /* Define to 1 if function 'inet_aton' is present */ #define HAVE_INET_ATON 1 /* Define to 1 if function 'inet_pton' is present */ #define HAVE_INET_PTON 1 /* Define to 1 if you have the <inttypes.h> header file. */ #define HAVE_INTTYPES_H 1 /* Define if library library 'nsl' is present */ /* #undef HAVE_LIBNSL */ /* Define to 1 if you have the <memory.h> header file. */ #define HAVE_MEMORY_H 1 /* Define to 1 if you have the <netdb.h> header file. */ #define HAVE_NETDB_H 1 /* Define to 1 if you have the <netinet/in.h> header file. */ #define HAVE_NETINET_IN_H 1 /* Define to 1 if you have the <stdint.h> header file. */ #define HAVE_STDINT_H 1 /* Define to 1 if you have the <stdlib.h> header file. */ #define HAVE_STDLIB_H 1 /* Define to 1 if you have the <strings.h> header file. */ #define HAVE_STRINGS_H 1 /* Define to 1 if you have the <string.h> header file. */ #define HAVE_STRING_H 1 /* Define to 1 if you have the <sys/socket.h> header file. */ #define HAVE_SYS_SOCKET_H 1 /* Define to 1 if you have the <sys/stat.h> header file. */ #define HAVE_SYS_STAT_H 1 /* Define to 1 if you have the <sys/types.h> header file. */ #define HAVE_SYS_TYPES_H 1 /* Define to 1 if you have the <unistd.h> header file. */ #define HAVE_UNISTD_H 1 /* Extra libraries */ /* #undef LIBS */ /* Define to the address where bug reports for this package should be sent. */ #define PACKAGE_BUGREPORT "" /* Define to the full name of this package. */ #define PACKAGE_NAME "" /* Define to the full name and version of this package. */ #define PACKAGE_STRING "" /* Define to the one symbol short name of this package. */ #define PACKAGE_TARNAME "" /* Define to the version of this package. */ #define PACKAGE_VERSION "" /* The size of `uint16_t', as computed by sizeof. */ #define SIZEOF_UINT16_T 2 /* The size of `uint32_t', as computed by sizeof. */ #define SIZEOF_UINT32_T 4 /* The size of `uint8_t', as computed by sizeof. */ #define SIZEOF_UINT8_T 1 /* The size of `u_int16_t', as computed by sizeof. */ #define SIZEOF_U_INT16_T 2 /* The size of `u_int32_t', as computed by sizeof. */ #define SIZEOF_U_INT32_T 4 /* The size of `u_int8_t', as computed by sizeof. */ #define SIZEOF_U_INT8_T 1 /* Define to 1 if you have the ANSI C header files. */ #define STDC_HEADERS 1 /* Define to 1 if your processor stores words with the most significant byte first (like Motorola and SPARC, unlike Intel and VAX). */ /* #undef WORDS_BIGENDIAN */ /* Define for Solaris 2.5.1 so the uint32_t typedef from <sys/synch.h>, <pthread.h>, or <semaphore.h> is not used. If the typedef was allowed, the #define below would cause a syntax error. */ /* #undef _UINT32_T */ /* Define for Solaris 2.5.1 so the uint8_t typedef from <sys/synch.h>, <pthread.h>, or <semaphore.h> is not used. If the typedef was allowed, the #define below would cause a syntax error. */ /* #undef _UINT8_T */ /* Define to empty if `const' does not conform to ANSI C. */ /* #undef const */ /* Define to the type of a signed integer type of width exactly 32 bits if such a type exists and the standard includes do not define it. */ /* #undef int32_t */ /* Define to the type of an unsigned integer type of width exactly 16 bits if such a type exists and the standard includes do not define it. */ /* #undef uint16_t */ /* Define to the type of an unsigned integer type of width exactly 32 bits if such a type exists and the standard includes do not define it. */ /* #undef uint32_t */ /* Define to the type of an unsigned integer type of width exactly 8 bits if such a type exists and the standard includes do not define it. */ /* #undef uint8_t */ Lite/Util/MANIFEST 0000644 00000001350 15043770025 0007511 0 ustar 00 Changes MANIFEST This list of files MANIFEST.SKIP Makefile.PL README Util.pm Util.xs config.h.in configure.cc configure.gcc configure.ac lib/NetAddr/IP/InetBase.pm lib/NetAddr/IP/UtilPP.pm localconf.h t/4to6.t t/add128.t t/addconst.t t/af_inet6.t t/anyto6.t t/badd.t t/bcd2bin.t t/bcdn2bin.t t/bin.t t/binet_n2ad.t t/binet_n2dx.t t/binet_pton.t t/bipv4_inet.t t/binet_ntoa.t t/bipv6_any2n.t t/bipv6func.t t/bisIPv4.t t/bpackzeros.t t/comp128.t t/croak.t t/hasbits.t t/inet_4map6.t t/inet_n2ad.t t/inet_n2dx.t t/inet_pton.t t/ipv4_inet.t t/ipv6_ntoa.t t/ipv6_any2n.t t/ipv6func.t t/ipv6to4.t t/isIPv4.t t/leftshift.t t/mode.t t/notcontiguous.t t/packzeros.t t/simple_pack.t t/sub128.t t/naip_gethostbyname.t t/no6_naip_gethostbyname.t typemap Lite/Util/Util.bs 0000644 00000000000 15043770025 0007612 0 ustar 00 Lite/Util/lib/NetAddr/IP/UtilPP.pm 0000644 00000036551 15043770025 0012505 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::UtilPP; use strict; #use diagnostics; #use lib qw(blib lib); use AutoLoader qw(AUTOLOAD); use vars qw($VERSION @EXPORT_OK @ISA %EXPORT_TAGS); require Exporter; @ISA = qw(Exporter); $VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( hasbits shiftleft addconst add128 sub128 notcontiguous ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcd bcd2bin comp128 bin2bcdn bcdn2txt bcdn2bin simple_pack ); %EXPORT_TAGS = ( all => [@EXPORT_OK], ); sub DESTROY {}; 1; __END__ =head1 NAME NetAddr::IP::UtilPP -- pure Perl functions for NetAddr::IP::Util =head1 SYNOPSIS use NetAddr::IP::UtilPP qw( hasbits shiftleft addconst add128 sub128 notcontiguous ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcd bcd2bin ); use NetAddr::IP::UtilPP qw(:all) $rv = hasbits($bits128); $bitsX2 = shiftleft($bits128,$n); $carry = addconst($ipv6naddr,$signed_32con); ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); $carry = add128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); $carry = sub128($ipv6naddr1,$ipv6naddr2); ($spurious,$cidr) = notcontiguous($mask128); ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); $ipv6naddr = ipv4to6($netaddr); $ipv6naddr = mask4to6($netaddr); $ipv6naddr = ipanyto6($netaddr); $ipv6naddr = maskanyto6($netaddr); $netaddr = ipv6to4($pv6naddr); $bcdtext = bin2bcd($bits128); $bits128 = bcd2bin($bcdtxt); =head1 DESCRIPTION B<NetAddr::IP::UtilPP> provides pure Perl functions for B<NetAddr::IP::Util> =over 4 =item * $rv = hasbits($bits128); This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. i.e. if (hasbits($bits128)) { &do_something; } or if (hasbits($bits128 & $mask128) { &do_something; } This allows the implementation of logical functions of the form of: if ($bits128 & $mask128) { ... input: 128 bit IPv6 string returns: true if any bits are present =cut sub _deadlen { my($len,$should) = @_; $len *= 8; $should = 128 unless $should; my $sub = (caller(1))[3]; die "Bad argument length for $sub, is $len, should be $should"; } sub hasbits { _deadlen(length($_[0])) if length($_[0]) != 16; return 1 if vec($_[0],0,32); return 1 if vec($_[0],1,32); return 1 if vec($_[0],2,32); return 1 if vec($_[0],3,32); return 0; } #=item * $rv = isIPv4($bits128); # #This function returns true if there are no on bits present in the IPv6 #portion of the 128 bit string and false otherwise. # #=cut # #sub xisIPv4 { # _deadlen(length($_[0])) # if length($_[0]) != 16; # return 0 if vec($_[0],0,32); # return 0 if vec($_[0],1,32); # return 0 if vec($_[0],2,32); # return 1; #} =item * $bitsXn = shiftleft($bits128,$n); input: 128 bit string variable, number of shifts [optional] returns: bits X n shifts NOTE: input bits are returned if $n is not specified =cut # multiply x 2 # sub _128x2 { my $inp = shift; $$inp[0] = ($$inp[0] << 1 & 0xffffffff) + (($$inp[1] & 0x80000000) ? 1:0); $$inp[1] = ($$inp[1] << 1 & 0xffffffff) + (($$inp[2] & 0x80000000) ? 1:0); $$inp[2] = ($$inp[2] << 1 & 0xffffffff) + (($$inp[3] & 0x80000000) ? 1:0); $$inp[3] = $$inp[3] << 1 & 0xffffffff; } # multiply x 10 # sub _128x10 { my($a128p) = @_; _128x2($a128p); # x2 my @x2 = @$a128p; # save the x2 value _128x2($a128p); _128x2($a128p); # x8 _sa128($a128p,\@x2,0); # add for x10 } sub shiftleft { _deadlen(length($_[0])) if length($_[0]) != 16; my($bits,$shifts) = @_; return $bits unless $shifts; die "Bad arg value for ".__PACKAGE__.":shiftleft, length should be 0 thru 128" if $shifts < 0 || $shifts > 128; my @uint32t = unpack('N4',$bits); do { $bits = _128x2(\@uint32t); $shifts-- } while $shifts > 0; pack('N4',@uint32t); } sub slowadd128 { my @ua = unpack('N4',$_[0]); my @ub = unpack('N4',$_[1]); my $carry = _sa128(\@ua,\@ub,$_[2]); return ($carry,pack('N4',@ua)) if wantarray; return $carry; } sub _sa128 { my($uap,$ubp,$carry) = @_; if (($$uap[3] += $$ubp[3] + $carry) > 0xffffffff) { $$uap[3] -= 4294967296; # 0x1_00000000 $carry = 1; } else { $carry = 0; } if (($$uap[2] += $$ubp[2] + $carry) > 0xffffffff) { $$uap[2] -= 4294967296; $carry = 1; } else { $carry = 0; } if (($$uap[1] += $$ubp[1] + $carry) > 0xffffffff) { $$uap[1] -= 4294967296; $carry = 1; } else { $carry = 0; } if (($$uap[0] += $$ubp[0] + $carry) > 0xffffffff) { $$uap[0] -= 4294967296; $carry = 1; } else { $carry = 0; } $carry; } =item * addconst($ipv6naddr,$signed_32con); Add a signed constant to a 128 bit string variable. input: 128 bit IPv6 string, signed 32 bit integer returns: scalar carry array (carry, result) =cut sub addconst { my($a128,$const) = @_; _deadlen(length($a128)) if length($a128) != 16; unless ($const) { return (wantarray) ? ($const,$a128) : $const; } my $sign = ($const < 0) ? 0xffffffff : 0; my $b128 = pack('N4',$sign,$sign,$sign,$const); @_ = ($a128,$b128,0); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } =item * add128($ipv6naddr1,$ipv6naddr2); Add two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) =cut sub add128 { my($a128,$b128) = @_; _deadlen(length($a128)) if length($a128) != 16; _deadlen(length($b128)) if length($b128) != 16; @_ = ($a128,$b128,0); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } =item * sub128($ipv6naddr1,$ipv6naddr2); Subtract two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) Note: The carry from this operation is the result of adding the one's complement of ARG2 +1 to the ARG1. It is logically B<NOT borrow>. i.e. if ARG1 >= ARG2 then carry = 1 or if ARG1 < ARG2 then carry = 0 =cut sub sub128 { _deadlen(length($_[0])) if length($_[0]) != 16; _deadlen(length($_[1])) if length($_[1]) != 16; my $a128 = $_[0]; my $b128 = ~$_[1]; @_ = ($a128,$b128,1); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } =item * ($spurious,$cidr) = notcontiguous($mask128); This function counts the bit positions remaining in the mask when the rightmost '0's are removed. input: 128 bit netmask returns true if there are spurious zero bits remaining in the mask, false if the mask is contiguous one's, 128 bit cidr =cut sub notcontiguous { _deadlen(length($_[0])) if length($_[0]) != 16; my @ua = unpack('N4', ~$_[0]); my $count; for ($count = 128;$count > 0; $count--) { last unless $ua[3] & 1; $ua[3] >>= 1; $ua[3] |= 0x80000000 if $ua[2] & 1; $ua[2] >>= 1; $ua[2] |= 0x80000000 if $ua[1] & 1; $ua[1] >>= 1; $ua[1] |= 0x80000000 if $ua[0] & 1; $ua[0] >>= 1; } my $spurious = $ua[0] | $ua[1] | $ua[2] | $ua[3]; return $spurious unless wantarray; return ($spurious,$count); } =item * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an ipv6 network address. input: 32 bit network address returns: 128 bit network address =cut sub ipv4to6 { _deadlen(length($_[0]),32) if length($_[0]) != 4; # return pack('L3H8',0,0,0,unpack('H8',$_[0])); return pack('L3a4',0,0,0,$_[0]); } =item * $ipv6naddr = mask4to6($netaddr); Convert an ipv4 netowrk address into an ipv6 network mask. input: 32 bit network/mask address returns: 128 bit network/mask address NOTE: returns the high 96 bits as one's =cut sub mask4to6 { _deadlen(length($_[0]),32) if length($_[0]) != 4; # return pack('L3H8',0xffffffff,0xffffffff,0xffffffff,unpack('H8',$_[0])); return pack('L3a4',0xffffffff,0xffffffff,0xffffffff,$_[0]); } =item * $ipv6naddr = ipanyto6($netaddr); Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. input: 32 or 128 bit network address returns: 128 bit network address =cut sub ipanyto6 { my $naddr = shift; my $len = length($naddr); return $naddr if $len == 16; # return pack('L3H8',0,0,0,unpack('H8',$naddr)) return pack('L3a4',0,0,0,$naddr) if $len == 4; _deadlen($len,'32 or 128'); } =item * $ipv6naddr = maskanyto6($netaddr); Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. input: 32 or 128 bit network mask returns: 128 bit network mask =cut sub maskanyto6 { my $naddr = shift; my $len = length($naddr); return $naddr if $len == 16; # return pack('L3H8',0xffffffff,0xffffffff,0xffffffff,unpack('H8',$naddr)) return pack('L3a4',0xffffffff,0xffffffff,0xffffffff,$naddr) if $len == 4; _deadlen($len,'32 or 128'); } =item * $netaddr = ipv6to4($pv6naddr); Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. input: 128 bit network address returns: 32 bit inet_aton network address =cut sub ipv6to4 { my $naddr = shift; _deadlen(length($naddr)) if length($naddr) != 16; @_ = unpack('L3H8',$naddr); return pack('H8',@{_}[3..10]); } =item * $bcdtext = bin2bcd($bits128); Convert a 128 bit binary string into binary coded decimal text digits. input: 128 bit string variable returns: string of bcd text digits =cut sub bin2bcd { _deadlen(length($_[0])) if length($_[0]) != 16; unpack("H40",&_bin2bcdn) =~ /^0*(.+)/; $1; } =item * $bits128 = bcd2bin($bcdtxt); Convert a bcd text string to 128 bit string variable input: string of bcd text digits returns: 128 bit string variable =cut sub bcd2bin { &_bcdcheck; # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_bcd2bin; &_bcd2bin; } =pod =back =cut #=item * $onescomp = comp128($ipv6addr); # #This function is for testing, it is more efficient to use perl " ~ " #on the bit string directly. This interface to the B<C> routine is published for #module testing purposes because it is used internally in the B<sub128> routine. The #function is very fast, but calling if from perl directly is very slow. It is almost #33% faster to use B<sub128> than to do a 1's comp with perl and then call #B<add128>. In the PurePerl version, it is a call to # # sub {return ~ $_[0]}; # #=cut sub comp128 { _deadlen(length($_[0])) if length($_[0]) != 16; return ~ $_[0]; } #=item * $bcdpacked = bin2bcdn($bits128); # #Convert a 128 bit binary string into binary coded decimal digits. #This function is for testing only. # # input: 128 bit string variable # returns: string of packed decimal digits # # i.e. text = unpack("H*", $bcd); # #=cut sub bin2bcdn { _deadlen(length($_[0])) if length($_[0]) != 16; # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_bin2bcdn; &_bin2bcdn; } sub _bin2bcdn { my($b128) = @_; my @binary = unpack('N4',$b128); my @nbcd = (0,0,0,0,0); # 5 - 32 bit registers my ($add3, $msk8, $bcd8, $carry, $tmp); my $j = 0; my $k = -1; my $binmsk = 0; foreach(0..127) { unless ($binmsk) { $binmsk = 0x80000000; $k++; } $carry = $binary[$k] & $binmsk; $binmsk >>= 1; next unless $carry || $j; # skip leading zeros foreach(4,3,2,1,0) { $bcd8 = $nbcd[$_]; $add3 = 3; $msk8 = 8; $j = 0; while ($j < 8) { $tmp = $bcd8 + $add3; if ($tmp & $msk8) { $bcd8 = $tmp; } $add3 <<= 4; $msk8 <<= 4; $j++; } $tmp = $bcd8 & 0x80000000; # propagate carry $bcd8 <<= 1; # x2 if ($carry) { $bcd8 += 1; } $nbcd[$_] = $bcd8; $carry = $tmp; } } pack('N5',@nbcd); } #=item * $bcdtext = bcdn2txt($bcdpacked); # #Convert a packed bcd string into text digits, suppress the leading zeros. #This function is for testing only. # # input: string of packed decimal digits # consisting of exactly 40 digits # returns: hexdecimal digits # #Similar to unpack("H*", $bcd); # #=cut sub bcdn2txt { die "Bad argument length for ".__PACKAGE__.":bcdn2txt, is ".(2 * length($_[0])).", should be exactly 40 digits" if length($_[0]) != 20; (unpack('H40',$_[0])) =~ /^0*(.+)/; $1; } #=item * $bits128 = bcdn2bin($bcdpacked,$ndigits); # # Convert a packed bcd string into a 128 bit string variable # # input: packed bcd string # number of digits in string # returns: 128 bit string variable # sub bcdn2bin { my($bcd,$dc) = @_; $dc = 0 unless $dc; die "Bad argument length for ".__PACKAGE__.":bcdn2txt, is ".(2 * length($bcd)).", should be 1 to 40 digits" if length($bcd) > 20; die "Bad digit count for ".__PACKAGE__.":bcdn2bin, is $dc, should be 1 to 40 digits" if $dc < 1 || $dc > 40; return _bcd2bin(unpack("H$dc",$bcd)); } sub _bcd2bin { my @bcd = split('',$_[0]); my @hbits = (0,0,0,0); my @digit = (0,0,0,0); my $found = 0; foreach(@bcd) { my $bcd = $_ & 0xf; # just the nibble unless ($found) { next unless $bcd; # skip leading zeros $found = 1; $hbits[3] = $bcd; # set the first digit, no x10 necessary next; } _128x10(\@hbits); $digit[3] = $bcd; _sa128(\@hbits,\@digit,0); } return pack('N4',@hbits); } #=item * $bcdpacked = simple_pack($bcdtext); # #Convert a numeric string into a packed bcd string, left fill with zeros #This function is for testing only. # # input: string of decimal digits # returns: string of packed decimal digits # #Similar to pack("H*", $bcdtext); # sub _bcdcheck { my($bcd) = @_;; my $sub = (caller(1))[3]; my $len = length($bcd); die "Bad bcd number length $_ ".__PACKAGE__.":simple_pack, should be 1 to 40 digits" if $len > 40 || $len < 1; die "Bad character in decimal input string '$1' for ".__PACKAGE__.":simple_pack" if $bcd =~ /(\D)/; } sub simple_pack { &_bcdcheck; my($bcd) = @_; while (length($bcd) < 40) { $bcd = '0'. $bcd; } return pack('H40',$bcd); } =head1 EXPORT_OK hasbits shiftleft addconst add128 sub128 notcontiguous ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcd bcd2bin comp128 bin2bcdn bcdn2txt bcdn2bin simple_pack threads =head1 AUTHOR Michael Robinton E<lt>michael@bizsystems.comE<gt> =head1 COPYRIGHT Copyright 2003 - 2012, Michael Robinton E<lt>michael@bizsystems.comE<gt> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =cut 1; Lite/Util/lib/NetAddr/IP/InetBase.pm 0000644 00000045421 15043770025 0013016 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::InetBase; use strict; #use diagnostics; #use lib qw(blib lib); use vars qw($VERSION @EXPORT_OK @ISA %EXPORT_TAGS $Mode); use AutoLoader qw(AUTOLOAD); require Exporter; @ISA = qw(Exporter); $VERSION = do { my @r = (q$Revision: 0.08 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_ntop inet_pton packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 fake_AF_INET6 fillIPv4 ); %EXPORT_TAGS = ( all => [@EXPORT_OK], ipv4 => [qw( inet_aton inet_ntoa fillIPv4 )], ipv6 => [qw( ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop packzeros )], ); # prototypes sub inet_ntoa; sub ipv6_aton; sub ipv6_ntoa; sub inet_any2n($); sub inet_n2dx($); sub inet_n2ad($); sub _inet_ntop; sub _inet_pton; my $emulateAF_INET6 = 0; { no warnings 'once'; *packzeros = \&_packzeros; ## dynamic configuraton for IPv6 require Socket; *AF_INET = \&Socket::AF_INET; if (eval { AF_INET6() } ) { *AF_INET6 = \&Socket::AF_INET6; $emulateAF_INET6 = -1; # have it, remind below } if (eval{ require Socket6 } ) { import Socket6 qw( inet_pton inet_ntop ); unless ($emulateAF_INET6) { *AF_INET6 = \&Socket6::AF_INET6; } $emulateAF_INET6 = 0; # clear, have it from elsewhere or here } else { unless ($emulateAF_INET6) { # unlikely at this point if ($^O =~ /(?:free|dragon.+)bsd/i) { # FreeBSD, DragonFlyBSD $emulateAF_INET6 = 28; } elsif ($^O =~ /bsd/i) { # other BSD flavors like NetBDS, OpenBSD, BSD $emulateAF_INET6 = 24; } elsif ($^O =~ /(?:darwin|mac)/i) { # Mac OS X $emulateAF_INET6 = 30; } elsif ($^O =~ /win/i) { # Windows $emulateAF_INET6 = 23; } elsif ($^O =~ /(?:solaris|sun)/i) { # Sun box $emulateAF_INET6 = 26; } else { # use linux default $emulateAF_INET6 = 10; } *AF_INET6 = sub { $emulateAF_INET6; }; } else { $emulateAF_INET6 = 0; # clear, have it from elsewhere } *inet_pton = \&_inet_pton; *inet_ntop = \&_inet_ntop; } } # end no warnings 'once' sub fake_AF_INET6 { return $emulateAF_INET6; } # allow user to choose upper or lower case BEGIN { use vars qw($n2x_format $n2d_format); $n2x_format = "%x:%x:%x:%x:%x:%x:%x:%x"; $n2d_format = "%x:%x:%x:%x:%x:%x:%d.%d.%d.%d"; } my $case = 0; # default lower case sub upper { $n2x_format = uc($n2x_format); $n2d_format = uc($n2d_format); $case = 1; } sub lower { $n2x_format = lc($n2x_format); $n2d_format = lc($n2d_format); $case = 0; } sub ipv6_n2x { die "Bad arg length for 'ipv6_n2x', length is ". length($_[0]) ." should be 16" unless length($_[0]) == 16; return sprintf($n2x_format,unpack("n8",$_[0])); } sub ipv6_n2d { die "Bad arg length for 'ipv6_n2d', length is ". length($_[0]) ." should be 16" unless length($_[0]) == 16; my @hex = (unpack("n8",$_[0])); $hex[9] = $hex[7] & 0xff; $hex[8] = $hex[7] >> 8; $hex[7] = $hex[6] & 0xff; $hex[6] >>= 8; return sprintf($n2d_format,@hex); } # if Socket lib is broken in some way, check for overange values # #my $overange = yinet_aton('256.1') ? 1:0; #my $overange = gethostbyname('256.1') ? 1:0; #sub inet_aton { # unless (! $overange || $_[0] =~ /[^0-9\.]/) { # hostname # my @dq = split(/\./,$_[0]); # foreach (@dq) { # return undef if $_ > 255; # } # } # scalar gethostbyname($_[0]); #} sub fillIPv4 { my $host = $_[0]; return undef unless defined $host; if ($host =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/) { if (defined $4) { return undef unless $1 >= 0 && $1 < 256 && $2 >= 0 && $2 < 256 && $3 >= 0 && $3 < 256 && $4 >= 0 && $4 < 256; $host = $1.'.'.$2.'.'.$3.'.'.$4; # return pack('C4',$1,$2,$3,$4); # $host = ($1 << 24) + ($2 << 16) + ($3 << 8) + $4; } elsif (defined $3) { return undef unless $1 >= 0 && $1 < 256 && $2 >= 0 && $2 < 256 && $3 >= 0 && $3 < 256; $host = $1.'.'.$2.'.0.'.$3 # return pack('C4',$1,$2,0,$3); # $host = ($1 << 24) + ($2 << 16) + $3; } elsif (defined $2) { return undef unless $1 >= 0 && $1 < 256 && $2 >= 0 && $2 < 256; $host = $1.'.0.0.'.$2; # return pack('C4',$1,0,0,$2); # $host = ($1 << 24) + $2; } else { $host = '0.0.0.'.$1; # return pack('C4',0,0,0,$1); # $host = $1; } # return pack('N',$host); } $host; } sub inet_aton { my $host = fillIPv4($_[0]); return $host ? scalar gethostbyname($host) : undef; } #sub inet_aton { # my $host = $_[0]; # return undef unless defined $host; # if ($host =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/) { # if (defined $4) { # return undef unless # $1 >= 0 && $1 < 256 && # $2 >= 0 && $2 < 256 && # $3 >= 0 && $3 < 256 && # $4 >= 0 && $4 < 256; # return pack('C4',$1,$2,$3,$4); ## $host = ($1 << 24) + ($2 << 16) + ($3 << 8) + $4; # } elsif (defined $3) { # return undef unless # $1 >= 0 && $1 < 256 && # $2 >= 0 && $2 < 256 && # $3 >= 0 && $3 < 256; # return pack('C4',$1,$2,0,$3); ## $host = ($1 << 24) + ($2 << 16) + $3; # } elsif (defined $2) { # return undef unless # $1 >= 0 && $1 < 256 && # $2 >= 0 && $2 < 256; # return pack('C4',$1,0,0,$2); ## $host = ($1 << 24) + $2; # } else { # return pack('C4',0,0,0,$1); ## $host = $1; # } ## return pack('N',$host); # } # scalar gethostbyname($host); #} my $_zero = pack('L4',0,0,0,0); my $_ipv4mask = pack('L4',0xffffffff,0xffffffff,0xffffffff,0); sub isIPv4 { if (length($_[0]) != 16) { my $sub = (caller(1))[3] || (caller(0))[3]; die "Bad arg length for $sub, length is ". (length($_[0]) *8) .", should be 128"; } return ($_[0] & $_ipv4mask) eq $_zero ? 1 : 0; } my $_newV4compat = pack('N4',0,0,0xffff,0); sub isNewIPv4 { my $naddr = $_[0] ^ $_newV4compat; return isIPv4($naddr); } sub isAnyIPv4 { my $naddr = $_[0]; my $rv = isIPv4($_[0]); return $rv if $rv; return isNewIPv4($naddr); } sub DESTROY {}; sub import { if (grep { $_ eq ':upper' } @_) { upper(); @_ = grep { $_ ne ':upper' } @_; } NetAddr::IP::InetBase->export_to_level(1,@_); } 1; __END__ =head1 NAME NetAddr::IP::InetBase -- IPv4 and IPV6 utilities =head1 SYNOPSIS use NetAddr::IP::Base qw( :upper inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 fake_AF_INET6 fillIPv4 ); use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) :ipv4 => inet_aton, inet_ntoa, fillIPv4 :ipv6 => ipv6_aton, ipv6_ntoa,ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad inet_pton, inet_ntop, packzeros $dotquad = inet_ntoa($netaddr); $netaddr = inet_aton($dotquad); $ipv6naddr = ipv6_aton($ipv6_text); $ipv6_text = ipv6_ntoa($ipv6naddr); $hex_text = ipv6_n2x($ipv6naddr); $dec_text = ipv6_n2d($ipv6naddr); $ipv6naddr = inet_any2n($dotquad or $ipv6_text); $dotquad or $hex_text = inet_n2dx($ipv6naddr); $dotquad or $dec_text = inet_n2ad($ipv6naddr); $netaddr = inet_pton($AF_family,$text_addr); $text_addr = inet_ntop($AF_family,$netaddr); $hex_text = packzeros($hex_text); $rv = isIPv4($bits128); $rv = isNewIPv4($bits128); $rv = isAnyIPv4($bits128); $constant = AF_INET(); $constant = AF_INET6(); $trueif = fake_AF_INET6(); $ip_filled = fillIPv4($shortIP); NetAddr::IP::InetBase::lower(); NetAddr::IP::InetBase::upper(); =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install =head1 DESCRIPTION B<NetAddr::IP::InetBase> provides a suite network of conversion functions written in pure Perl for converting both IPv4 and IPv6 addresses to and from network address format and text format. The IPv6 functions support all rfc1884 formats. i.e. x:x:x:x:x:x:x:x:x x:x:x:x:x:x:x:d.d.d.d ::x:x:x ::x:d.d.d.d and so on... =over 4 =item * $dotquad = inet_ntoa($netaddr); Convert a packed IPv4 network address to a dot-quad IP address. input: packed network address returns: IP address i.e. 10.4.12.123 =cut sub inet_ntoa { die 'Bad arg length for '. __PACKAGE__ ."::inet_ntoa, length is ". length($_[0]) ." should be 4" unless length($_[0]) == 4; my @hex = (unpack("n2",$_[0])); $hex[3] = $hex[1] & 0xff; $hex[2] = $hex[1] >> 8; $hex[1] = $hex[0] & 0xff; $hex[0] >>= 8; return sprintf("%d.%d.%d.%d",@hex); } =item * $netaddr = inet_aton($dotquad); Convert a dot-quad IP address into an IPv4 packed network address. input: IP address i.e. 192.5.16.32 returns: packed network address =item * $ipv6addr = ipv6_aton($ipv6_text); Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary RDATA string. input: ipv6 text returns: 128 bit RDATA string =cut sub ipv6_aton { my($ipv6) = @_; return undef unless $ipv6; local($1,$2,$3,$4,$5); if ($ipv6 =~ /^(.*:)(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) { # mixed hex, dot-quad return undef if $2 > 255 || $3 > 255 || $4 > 255 || $5 > 255; $ipv6 = sprintf("%s%X%02X:%X%02X",$1,$2,$3,$4,$5); # convert to pure hex } my $c; return undef if $ipv6 =~ /[^:0-9a-fA-F]/ || # non-hex character (($c = $ipv6) =~ s/::/x/ && $c =~ /(?:x|:):/) || # double :: ::? $ipv6 =~ /[0-9a-fA-F]{5,}/; # more than 4 digits $c = $ipv6 =~ tr/:/:/; # count the colons return undef if $c < 7 && $ipv6 !~ /::/; if ($c > 7) { # strip leading or trailing :: return undef unless $ipv6 =~ s/^::/:/ || $ipv6 =~ s/::$/:/; return undef if --$c > 7; } while ($c++ < 7) { # expand compressed fields $ipv6 =~ s/::/:::/; } $ipv6 .= 0 if $ipv6 =~ /:$/; my @hex = split(/:/,$ipv6); foreach(0..$#hex) { $hex[$_] = hex($hex[$_] || 0); } pack("n8",@hex); } =item * $ipv6text = ipv6_ntoa($ipv6naddr); Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. input: 128 bit RDATA string returns: ipv6 text =cut sub ipv6_ntoa { return inet_ntop(AF_INET6(),$_[0]); } =item * $hex_text = ipv6_n2x($ipv6addr); Takes an IPv6 RDATA string and returns an 8 segment IPv6 hex address input: 128 bit RDATA string returns: x:x:x:x:x:x:x:x Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =item * $dec_text = ipv6_n2d($ipv6addr); Takes an IPv6 RDATA string and returns a mixed hex - decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. input: 128 bit RDATA string returns: x:x:x:x:x:x:d.d.d.d Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =item * $ipv6naddr = inet_any2n($dotquad or $ipv6_text); This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to B<ipv6_aton>. input: dot-quad or rfc1844 address returns: 128 bit IPv6 string =cut sub inet_any2n($) { my($addr) = @_; $addr = '' unless $addr; $addr = '::' . $addr unless $addr =~ /:/; return ipv6_aton($addr); } =item * $dotquad or $hex_text = inet_n2dx($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:x:x Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =cut sub inet_n2dx($) { my($nadr) = @_; if (isAnyIPv4($nadr)) { local $1; ipv6_n2d($nadr) =~ /([^:]+)$/; return $1; } return ipv6_n2x($nadr); } =item * $dotquad or $dec_text = inet_n2ad($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:ddd.ddd.ddd.dd Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =cut sub inet_n2ad($) { my($nadr) = @_; my $addr = ipv6_n2d($nadr); return $addr unless isAnyIPv4($nadr); local $1; $addr =~ /([^:]+)$/; return $1; } =item * $netaddr = inet_pton($AF_family,$text_addr); This function takes an IP address in IPv4 or IPv6 text format and converts it into binary format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_pton, inet_ntop and AF_INET6 come from the Socket6 library if it is present on this host. =cut sub _inet_pton { my($af,$ip) = @_; die 'Bad address family for '. __PACKAGE__ ."::inet_pton, got $af" unless $af == AF_INET6() || $af == AF_INET(); if ($af == AF_INET()) { inet_aton($ip); } else { ipv6_aton($ip); } } =item * $text_addr = inet_ntop($AF_family,$netaddr); This function takes and IP address in binary format and converts it into text format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_ntop ALWAYS returns lowercase characters. NOTE: inet_pton, inet_ntop and AF_INET6 come from the Socket6 library if it is present on this host. =cut sub _inet_ntop { my($af,$naddr) = @_; die 'Unsupported address family for '. __PACKAGE__ ."::inet_ntop, af is $af" unless $af == AF_INET6() || $af == AF_INET(); if ($af == AF_INET()) { inet_ntoa($naddr); } else { return ($case) ? lc packzeros(ipv6_n2x($naddr)) : _packzeros(ipv6_n2x($naddr)); } } =item * $hex_text = packzeros($hex_text); This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting B<::> for the first occurence of the longest string of zeros in the address. =cut sub _packzeros { my $x6 = shift; if ($x6 =~ /\:\:/) { # already contains :: # then re-optimize $x6 = ($x6 =~ /\:\d+\.\d+\.\d+\.\d+/) # ipv4 notation ? ? ipv6_n2d(ipv6_aton($x6)) : ipv6_n2x(ipv6_aton($x6)); } $x6 = ':'. lc $x6; # prefix : & always lower case my $d = ''; if ($x6 =~ /(.+\:)(\d+\.\d+\.\d+\.\d+)/) { # if contains dot quad $x6 = $1; # save hex piece $d = $2; # and dot quad piece } $x6 .= ':'; # suffix : $x6 =~ s/\:0+/\:0/g; # compress strings of 0's to single '0' $x6 =~ s/\:0([1-9a-f]+)/\:$1/g; # eliminate leading 0's in hex strings my @x = $x6 =~ /(?:\:0)*/g; # split only strings of :0:0..." my $m = 0; my $i = 0; for (0..$#x) { # find next longest pattern :0:0:0... my $len = length($x[$_]); next unless $len > $m; $m = $len; $i = $_; # index to first longest pattern } if ($m > 2) { # there was a string of 2 or more zeros $x6 =~ s/$x[$i]/\:/; # replace first longest :0:0:0... with "::" unless ($i) { # if it is the first match, $i = 0 $x6 = substr($x6,0,-1); # keep the leading ::, remove trailing ':' } else { $x6 = substr($x6,1,-1); # else remove leading & trailing ':' } $x6 .= ':' unless $x6 =~ /\:\:/; # restore ':' if match and we can't see it, implies trailing '::' } else { # there was no match $x6 = substr($x6,1,-1); # remove leading & trailing ':' } $x6 .= $d; # append digits if any return $case ? uc $x6 : $x6; } =item * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an ipv6 network address. input: 32 bit network address returns: 128 bit network address =item * $rv = isIPv4($bits128); This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. i.e. the address must be of the form - ::d.d.d.d Note: this is an old and deprecated ipV4 compatible ipV6 address =item * $rv = isNewIPv4($bits128); This function return true if the IPv6 128 bit string is of the form ::ffff:d.d.d.d =item * $rv = isAnyIPv4($bits128); This function return true if the IPv6 bit string is of the form ::d.d.d.d or ::ffff:d.d.d.d =item * NetAddr::IP::InetBase::lower(); Return IPv6 strings in lowercase. This is the default. =item * NetAddr::IP::InetBase::upper(); Return IPv6 strings in uppercase. The default may be set to uppercase when the module is loaded by invoking the TAG :upper. i.e. use NetAddr::IP::InetBase qw( :upper ); =item * $constant = AF_INET; This function returns the system value for AF_INET. =item * $constant = AF_INET6; AF_INET6 is sometimes present in the Socket library and always present in the Socket6 library. When the Socket library does not contain AF_INET6 and when Socket6 is not present, a place holder value is C<guessed> based on the underlying host operating system. See B<fake_AF_INET6> below. NOTE: inet_pton, inet_ntop and AF_INET6 come from the Socket6 library if it is present on this host. =item * $trueif = fake_AF_INET6; This function return FALSE if AF_INET6 is provided by Socket or Socket6. Otherwise, it returns the best guess value based on name of the host operating system. =item * $ip_filled = fillIPv4($shortIP); This function converts IPv4 addresses of the form 127.1 to the long form 127.0.0.1 If the function is passed an argument that does not match the form of an IP address, the original argument is returned. i.e. pass it a hostname or a short IP and it will return a hostname or a filled IP. =back =head1 EXPORT_OK :upper inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 fake_AF_INET6 fillIPv4 =head1 %EXPORT_TAGS :all :ipv4 :ipv6 :upper =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 COPYRIGHT Copyright 2003 - 2012, Michael Robinton E<lt>michael@bizsystems.comE<gt> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 SEE ALSO NetAddr::IP(3), NetAddr::IP::Lite(3), NetAddr::IP::Util(3) =cut 1; Lite/Util/MYMETA.json 0000644 00000001431 15043770025 0010247 0 ustar 00 { "abstract" : "unknown", "author" : [ "unknown" ], "dynamic_config" : 0, "generated_by" : "ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "NetAddr-IP-Util", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } } }, "release_status" : "stable", "version" : "1.53", "x_serialization_backend" : "JSON::PP version 4.06" } Lite/Util/Util.o 0000644 00001301230 15043770025 0007456 0 ustar 00 ELF > k @ @ ^ ] � �ATA�� U1�SH��� � �1 � � �� �1 � ��� �1 � ��� �1 � ��� �1 � ��� �1 � ��� �1 � I��s � � ��H������ �; �� �0 � �@�H����0 � � �H����0 � ��H����0 � ��H����0 � ��H����0 � ��H����0 � ��H����0 � �C��� � �1 � �`����[H�= ]A\� � �H� �F ��F � � � �H������F������F � � � �AWI��AVAUATUSH��8H� dH�%( H�D$(1��;� �;H�(� �;H�PxH�J�H�HxLc"� I�H�@D�j(J��H��H)�H������ �;E�t$H��� I��Ic�I�PL�$� L�4�A�F % = �� I�M�vH�@H�D$H���� H���h E��L�l$L��L���� � �;� H�@ H)�H���� �;� � L��H��� �;I��� L��H��� H�E�;� �;H�h� L�H�(H�D$(dH+%( �� H��8[]A\A]A^A_�f�� �r���f D �;� L��H�T$� H��� I��H�D$H�������;� H�@ H)�H��~G�;� � L��H���=��� � �;� H��H�� H��� H������f D �;� H��H�� H��� H���H�5 L��� � A��t'H� H�H� � H�5 1�H�= � H� H���ff. � �� �AWI��AVAUATUSH��8H� dH�%( H�D$(1��;� �;H�(� �;H�PxH�J�H�HxLc"� I�H�@D�j(J��H��H)�H�����U �;E�t$H��� I��Ic�I�PL�$� L�4�A�F % = �� I�I�~H�@H�D$H��� E��L�l$L���� � �;� H�@ H)�H���� �;� � L��H��� �;I��� L��H��� �;H�E� �;H�h� L�H�(H�D$(dH+%( �� H��8[]A\A]A^A_� � � �m���f D �;� H�T$� L��H��� H��H�D$� ��� � �;� H��H�� H��� H���,���H�5 L��� � A��t'H� H�H� � H�5 1�H�= � H� H���f � � �H�H�W� @ � ���A� 1�F� F ��A�r��F� I��I���u�ø ��f. � � ��ȉN 1�� ��F�F� D � �D�� E��u�w��u�O��u �W 1������f D � �AWAVAUI��ATUSH��H� dH�%( H�D$1��;� �;H�(� �;H�PxH�J�H�HxLc2� H�@J��H)�H������ �;E�fMc�� �;N�,� H�@N�$�� �;H�@�@#�� � H��� H��A�D$ % = �� I�$I�|$H�@H�$H���� � �;Lc�� �;H�@N�t(��E %�����A��� ��� �� E���� �M L�eI�n�;� �;H�h� L�H�(H�D$dH+%( �� H��[]A\A]A^A_�f�� �;H�h� H�@H�@H�l� � ���f D �;� H�� L��H��� H��H�$����f��;� L��H��H��� �U���H� � H� A�� H�5 H�= H�1�� � H�5 L��� D � ��71���u�O��u �W1������f�� �Hc�1���~ ��ʉ�H��H9�u��ff. � � �Hc�H����~��H��ȉG�H9�u��ff. � @ � �AWAVI��AUATUSH��XH� dH�%( H�D$H1��;� �;L� � �;H�PxH�J�H�Hx�*� Hc�H�@H��L��H)�H������ �;D�m��I��Hc�� �;I��Ic�I�PL�,� L�4�� �;H�@H��@ % = �� � �;H�@H�,�� � H��H��� A��A�F % = �� I�I�vH�@H�D$H��� H�l$ � H��� �;� H�@ L)�H���� L�t$D��H�t$0H��L��� �;��� Hc�H��� �;H��� H��H��� �;I�D$� H�P�R"��u&H��� HcB(��x H� @H��H�JH���P����t>�;� �;H�h� L�H�(H�D$HdH+%( �] H��X[]A\A]A^A_� � L��I��� �;� H�@ L)�H���� �;� � L��H��� �;H��� H��H��� �;I�D$� �;H�h� J�T-H��b��� � �;� L��H�T$� H��� H��H�D$�a��� � � H�@H��H� D�x � ��� � �;� L��L�� H��� I���K���f D �;� L��L�� H��� I������H�� �� H�5 1�H�= � H�5 L��� � � �AWI��AVAUATUSH��hH� dH�%( H�D$X1��;� �;L� � �;H�PxH�J�H�Hx�*� I�H�@�J(Hc�H��L��H)ЉL$ H�����^ �;D�u��I��Hc�� �;I��Ic�I�PL�4� L�<�� H�@H�,�A�G % = �� I�M�H�@H�D$H���� �E % = �� H�E H�mH�@H�D$H���� L�l$ L��� L��L�|$0� � H��L��� �|$ �� �;� H�@ L)�H���� H�l$@1�H��L��L��� �;A��� Ic�M�l$H��� �;I��� L��H��� I�D$�;� H�P�R"��u&H��� HcB(��x H� @H��H�JH���P����t<�;� �;H�h� L�H�(H�D$XdH+%( �� H��h[]A\A]A^A_Ð� H��� �;� H�@ L)�H��� �;� � H��H��� �;H��� H��H��� �;I�E� �;H�h� J�T5H��i��� D �;� L��H�T$� H��� I��H�D$���� � �;� H��H�T$� H��� H��H�D$���� � L��� �;� H�@ L)�H��~eH�l$@� �A���f D �;� L��L�� H��� I������f D �;� L��L�� H��� I������f D �;� L��L�� H��� I���y����|$ tFH� H�H�D$A�� H�5 H�= H� � 1�� � H�5 L��� H� H��ff. � f�� �SH��� A������M �S���� ���E���щC �C�� ��E����S��� ���E����CA��t�C �u�D��[�f�� �AWAVI��AUATUSH��8H� dH�%( H�D$(1��;� �;L� � �;H�PxH�J�H�HxHc*� H�@H��L��H)�H�����) �;D�mM�|$�� I��Ic�I�PL�,� H�,E % = �i H�E H�uH�@H�D$H���� L�t$� L��� L��� �;��� H�@ L)�H���K L��� �;A��� Ic�H��� �;I��� L��H��� �;I�G� H�P�R"��u&H��� HcB(��x H� @H��H�JH���P����t>�;� �;H�h� L�H�(H�D$(dH+%( �� H��8[]A\A]A^A_� �;� H�@ L)�H���� �;� @��H��� �;H��� H��H��� �;I�D$� �;H�h� J�T-H��w��� D �;� H��H�T$� H��� H��H�D$���� � �;� L��L��� H��� I��L�`���f. � �;� L��L�� H��� I���-���� H�5 L��� H�� �� H�5 1�H�= � � � ��W H�G H��H����҉W�� �H9�t ���� ��H���� ��PH9�u��ff. � � �AWAVAUATUH��SH��HH� dH�%( H�D$81��;� �;L�8� �;H�HxM��H�q�H�pxD�)� Ic�A�UH�@�T$H��I)�H�E I��D�p(E���� �;Ic�H��I)�� L��I��HcD$I�PL�<� H�4F % = �� H�L�FH�@H�D$H���� A���� A���� �;A���� �AoL�l$ )L$ �;� H�@ H)�H���� �;� � L��H��� �;I��� L��H��� H�E�;� �;H�h� L�H�(H�D$8dH+%( �� H��H[]A\A]A^A_� D �Ao L�l$ L��)D$ � �]��� @ �;H�t$� H�t$H�T$� H��� I��H�D$��L�D$A��� Mc�L�D$H�@J��@ % = tS�;L�D$� �;H�@N�$�� � L��H��� L�D$A��E��� �AoL�l$ )T$ ��� �;� L�D$H�@J��H� D�` �� �;L�D$� L�D$H�@ H)�H���� �;L�D$� L�D$� H��I�p �o��� D A��� �� L�l$ � L��L��� f D L��� A��u� L��� ����;� H��H�� H��� H�����f D �;� H��H�� H��� L�D$H���B���� H�5 H��� A��t3A��t9H� H�H� � A�� H�5 1�H�= � H� H���H� H���D��H�5 H�= 1�� @ � �ATI��UH��H��� �E H��A�$�EA�D$�EA�D$�E A�D$ � H��� H��H��L��H��1�]A\� @ � �ATI��UH��S����� �] L��[H�E H��L��1��E ]A\� f�� ��* ��(}�F�L�Rf�A� H�BA� H�A�B )��f D H����E1ɍ>A� ��~4��Ѓ��HЀ� w&Ic�E��u�H����A A���>A� ���1�� @ � �AWf�AVI��H��AUATUSH��(���� H��E1�1��' @ E��u{E��t �_ A� ��9��� A��uMA�I���jA� A��A��A����A��A���A����E��A��u�E��u{E��t D�o A� 9�}S��A���� � A��D�L$ �L$D�D$H�t$H�<$� �L$H�<$��H�t$D�D$D�L$ 9��Z���H��([]A\A]A^A_�f D D��D�D$ D�L$�L$H�t$H�<$� H�<$H�t$�L$D�L$D�D$ �W��� � �AWAVAUATUH��SH�� H� dH�%( H�D$x1��;� �;L�(� �;H�PxH�r�H�pxD�"� Ic�M��H�@H��I)�H�E M�Nj@(I���D$E���� �;Ic�L��E�t$H��H)�� I��Ic�I�QL�4� L�,�A�E % = �; I�E M�mH�pH�t$H��(�9 �|$�E H���} A���^ �;A��Mc�� �;H�@J��@ % = �v � �;H�@N�$�� � H��L��� H��H�L$L�d$0H�T$ L��L��� � L��� �;� H�@ H)�H���1 �;� � L��H��� �;I��� L��H��� H�E�;� �;H�h� L�H�(H�D$xdH+%( �m H�Ĉ []A\A]A^A_� �;� L��H�T$� H��� H�t$I����� � H�T$@L��� ���F �D$��u#L�d$0H�T$ �( H�|$XL����� � �;� H�@ H)�H��~e�;� H�t$X� H������ @ � H�@J��H� H�H ��� � �;� H��H�� H��� H�����f D �;� H��H�� H��� H���y���H�5 H��� �|$ �� H� H� H�D$H�L$H�T$1�A�( H�5 H�= � � H�5 H�= 1�� H� H�H�t$H� H�D$먃|$tAH� H���H�5 H�= 1�� �|$�t���H� H� H�D$�`���H� H�뽐� �AWH�Ff�E1�AVL�~(I��L�VAUI��ATU1�S�� H���F( H�D$1�FE���� E��A��E!��M��D �uI��M9�tTA� A�щ�D �t� � � � �<��E������u����� �A����I��A�@M9�u���t%A�E(E��u�Hc�A�@ ��A�� E�$�l���H�|$� � H��� []A\A]A^A_�f�� �I��I��1�E1�� � E1���uNH��H��t\A� E����A��A��@��1�@�tD��Ic�A��0��E� ��@�ƃ�A��D�t�Hc׃�0D�GH��A�H��u�Ic�A� D���ff. � @ � �AWI��AVAUATUSH��XH� dH�%( H�D$H1��;� �;H�(� �;H�PxH�J�H�HxLc"� I�H�@D�j(J��H��H)�H�����% �;E�t$H��� I��Ic�I�PL�$� L�4�A�F % = � I�M�vH�PH�T$E���� A��� H��� �;� H�@ H)�H���] L�|$L��L��� �;A��� Ic�L��H��� �;I��� L��H��� H�E�;� �;H�h� L�H�(H�D$HdH+%( �I H��X[]A\A]A^A_ÐH���4 L�|$L��L��� �;� H�@ H)�H���� H�|$(L���P���f��;� H�T$L��� H��� H�T$I����� � H���� �;� H�@ H)�H��~{H�t$L��� �;A��� Ic�H�t$(H���� @ �;� H��H�� H��� H���W���f D �;� H��H�� H��� H�����f D �;� H��H�� H��� H���c���H�5 L��� � H���� H�5 1�H�= � H���� H�5 1�H�= � Hҹ( H�5 1�H�= � f � � �AUL�-��ATL�% USH��H� �;� L����L� H��H� 1�� �;��� �;� �;� E1�L��L��L� H�5 H��� �;H� �@( � E1�L��L��L� H�5 H��� �;H� �@( � E1�L��L��L� H�5 H��� �;L�-��H� �@( � E1�L��L��L� H�5 H��� �;H� �@( � E1�L��L��L� H�5 H��� �;L�-����H� �@( � E1�L��L� H���H�5 H��� �;� E1�L��L� H���H�5 H��� �;� E1�L��L��L� H�5 H��� �;H� �@( � L��L��E1�L� H�5 H��� �;H� �@( � L��L��E1�L� H�5 H��� �;L�-%���H� �@( � L��L��E1�L� H�5 H��� �;H� �@( � L��L��E1�L� H�5 H��� �;H� �@( � L��L��E1�L� H�5 H��� �;L�-���H� �@( � L��E1�L� H���H�5 H��� �;� L��L��E1�L� H�5 H��� �;H� �@( � L��L��E1�L� H�5 H��� �;L�-���H� �@( � L��L��E1�L� H�5 H��� �;H� �@( � L��L��E1�H�5 H��L� � �;H� �@( � H����[H��]A\A]� AV:4p1231 RV:running gcc 11.4.1 20231218 BV:annobin gcc 11.4.1 20231218 GW:0x3d1856a Util.c SP:3 SC:-1 Util.c CF:8 Util.c FL:2 GA:1 PI:2 SE:0 iS:0 Ql ? ! ! % ! ! ! & ! ( % )q @int q *1 ! �8 �1 �1 �8 �1 �8 �� �q �� �� A � � � � �� �!� D ! D @� O� l' � �8 e �} $� � � 8 � 8 � � � 3 ! D 8 11 ! K 1 $ o q ) K o � � � " � h #� p $� x '� � � � 8 � , x 8 K *!% � F Y } f � v 8 �� Z ! q @ "� H v � 8 F � 9 � q � $8 :� ;� $?L A q B q C� $G} I� J� K� $ O� Q� R� S q T� U� $a� c d ^ e� g} $ Y? [ ]R h � $lc n� o q $t� v w q x1 p3� 5� <� D ,_rt LL V} i p? yc q 8 $�$ Y & q ( q * q 0 q { � | j 'u q ? � z B! % �� �� � � � D � 8 � � � � � � � � % �q �� � �� �� / / v � � N o N � � � � � � � � * 4 4 > H H R � \ � f � p z � q � � � � � � � � % � 9 � M � N !� {B �? � ? � O � _ 6 O 8 B _ 8 N o 8 �� � � 8 �k � $ � ,� -� / � 0 � 2 q $ 4 � ( 9 � 0 = 8 ? @ J� H K� X L� h Yk x 3 { 8 (tm 8 q q q q q q q q q � ( 0 X ? u q N b� d ? e u fq gq h u �� ? u q ? D& F ? G u Hq D 6 8 � *DIR B "IV o� G "UV p8 "NV �m ! ! f � { "OP h � (op ( �j �s/ �s/ ��E �D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # "COP i v 4cop X �� �s/ �s/ ��E �D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # �/ $ �D ( � ? 0 � / 8 � / < �YK @ � cK H � / P o � ` � �s/ �s/ ��E �D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # � s/ ( � s/ 0 D 8 / @ �E H F P s/ X s P �/ �s/ �s/ ��E �D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # � s/ ( � s/ 0 � s/ 8 � s/ @ � s/ H ~ < : �r$# #Z/ .Iop $s/ %Z/ 'Z/ (Z/ *W ( ,�. 0 -�. 4 /W 8 0�. @ 1�. D 3Z/ H 4h P 5h X 6h ` 8/ h :W p <W x =W � A�. � CW � En/ � H�E � K�< � L�< � Nx/ � Ox/ � ^�. � h�. � i�. � jd/ � v�. � }�. � �n/ � �n/ � �kN � �i/ � �W � �i/ � �G �P/ �P/ ��< � W �#W ( �WD 0 �$# 8 �$# P �$# h �$# � �@. � �@. �5ISv �P/ � �(W �n/ 5Ina �{ �� �d/ � �P/ �5Irs �P/ � �d/ � �d/ � �d/ � � � �P/ � �P/ � �P/ � s/ � �L �L <K P/ � �1 � s/ s/ n/ d/ d/ ? ( { 0 �. 8 ?�. : Ax/ ; Bx/ < Cx/ = Dx/ > H& ? KP/ @ N-W H e�V x }�V � ��V � �u � �? � �/ � �/ � �q � �q � �u � �d/ � �d/ � �d/ � �? � � � �P/ � �P/ � �P/ � �=W � � �x/ �x/ �x/ �x/ �x/ �x/ �x/ �x/ �? �P/ �t ��. ( ��. , ��. 0 �q 4 �BW 8 �d/ @ �d/ H �d/ P �d/ X �i/ ` �d/ h �d/ p �d/ x �d/ � �d/ � �P/ � �P/ � �P/ � �i/ � �GW � �n/ � �n/ � �P/ � �i/ � �i/ � �i/ � �i/ � �i/ �i/ �? �7 s/ s/ ( s/ 0 s/ 8 kN @ q H q L ? P i/ X P/ ` P/ h q p �. t x/ x x/ y �. z q | �. � #�. � $WW � 3n/ � 6\W � 8j � :�7 � ;RD <D =D E�7 Fq I/ $ Kx/ ( Lx/ ) Mx/ * Nx/ + Q\ , R\ 0 SP 4 TP 8CIan U/ < X/ @ `/ D c/ H d/ L eu P i? X k0 ` n�/ h o�/ p qaW x s/ � u/ � �U �P/ ��. �D �D �D ( �D 0 �D 8 �qW @ �? � �� � �� � �/ � ��. � �x/ � ��. � �x/ � �? � �� � �? � �� � �x/ � �x/ � �$V � �x/ � �? � �q � �x/ � �x/ � �? � �P/ �* �x/ �x/ �Z/ �Z/ ��W ( �i/ 0 � 8 Z/ @ i/ H �W P D X D ` �W h n/ p n/ x �/ � �W � �W � i/ � i/ � � � #�U � $�U � -�U � 1�U � 4�U � 7V � :n/ � @n/ � Ci/ � En/ � G�W K�W MbV P�V X Y�W ` Zq h bSU p o�W � zD � |{ � �D � ��W � �P/ � �P/ � �P/ � �P/ � �P/ � �P/ � �P/ � �P/ �P/ �P/ �P/ �P/ �P/ ( �P/ 0 �P/ 8 �P/ @ �P/ H �P/ P �P/ X ��W ` ��W � �P/ ` �P/ h �P/ p �P/ x �P/ � �P/ � �P/ � �P/ � �P/ � �P/ � �P/ � �{ � �{ � �{ � "SV � 4# $# (sv �t# � �/ �/ �Y1 "AV � # (av ��# �O3 �/ �/ ��2 "HV � �# (hv � $ ��3 �/ �/ �T3 "CV � $ $ (cv �Z$ ��2 �/ �/ �^2 � g$ �$ P6 / / S4 "GP � �$ (gp P e% P/ D �7 / / n/ i/ ( �7 0 d/ 8 / / �6 H "GV � p% (gv �% �Y2 �/ �/ ��1 4io �% N4 / / �3 � & h n & rCO h ��& � �. � �. � �. � �. �. �. kN �< h �. ( N 0 � �& 0!K' ! 7 ! �P ! �. ! D ! �. ! h ! P/ ! ? ( "XPV � W' 4xpv ��' �n/ ��6 �{ �7 � �' ( �' n/ �6 { )7 �6 � ( (" [( " n/ " �6 " h " h " Z/ � h( #��( #� n/ #��6 #�{ #�{ � �( 0 ;) <n/ <�6 <{ <M7 =�6 >U6 ( � ') h$ �) $n/ $�6 ${ $�D $n/ $�D ( $�D 0 $E 8 $? @ $<E H $�7 P $/ X $q7 \ $�. ` � �) � e+ fn/ f�6 f{ f�7 g�6 i�1 ( v�7 0 x G 8 y G @ z G H { ? P | d/ X } ? ` ~ d/ h ? p � d/ x � D � � �. � � + @! �+ ! $P ! $P ! BP ! $P ! $P ! oP ( ! �P 0 ! $P 8 "ANY � �+ Dany �~, � �P/ �Z/ �d/ �i/ �n/ �s/ �? �u � �. � / � G � W � � � x/ � >/ � �/ y�, z?U {z | � �, 0'- �DU � W � W �NU �?U �?U ( � 4- ( ��- �i/ �W ��/ ��/ �i/ � �- % �- % h %&\D %' / %( / "PAD � t# � �- (%+@. %, h %-�D %. h %/D %0 / � M. 0%L�. %M? %Mn/ %M�D %M/ %M/ %M/ %Mq $ %M�. ( %M�. ) *I8 &�? *U8 &� *U16 &�% *I32 &�q �. *U32 &�1 / E/ &� / � Y '>/ 3/ � $# P/ P/ Z/ e% t# �# � ! '�/ �/ / / D �/ 8 '<�/ '>�/ �/ 'Q �/ (4e (5�/ �/ '0 q 0 &/ (;�/ 9 )�\0 )� �. )� ? )� s/ )� d/ )� 0 61 ��0 *HE ��0 (he # 1 #$ �1 #% �6 #)�J *HEK �%1 (hek #-Y1 #./ #/�. #5�/ ��1 �? �G �W �b �P/ �Z/ ��1 ��1 ��1 �1 �0 �$ �/ �Y2 �? �G �W �b �P/ �Z/ ��1 ��1 ��1 �( ��2 �? �G �W �b �P/ �Z/ ��1 ��1 ��1 ) �O3 �? �G �W �b �P/ �Z/ ��1 ��1 ��1 �' ��3 �? �G �W �b �P/ �Z/ ��1 ��1 ��1 [( # N4 ? G W b P/ Z/ �1 �1 �1 �) # �4 ? G W b P/ Z/ �1 �1 �1 �*nP6 *on/ *o�6 *o{ *o�8 *p!�9 *q �8 ( *r n/ 0 *x / 8 *y / < *z h @ *{ h H *| { P * �9 X *� ` *� / h *� / l *��9 p *� u x *� / � *�/ *�/ $ *� ? � *�P/ � *� h � *� h � *� h � *� h � *� �7 � �4 7 ��6 � b � n/ � / � x/ 7 ��6 � G � W � �6 � x/ 1 7 � 7 � 7 � { �& # �)7 �{ �P6 # M7 { P6 # <q7 <{ <P6 A / '�7 �/ �7 $ ~7 �- # f�7 f{ fP6 # s�7 t�7 u 6 * 8 *�. * �. * �. * �7 (*(z8 *) h ** h *+ P/ *, P/ *- h �*/�8 *0 �. *1 �8 +8 �8 8 *<�8 *= h .end *> h *E h *F�8 Z$ �8 *o 9 *o{ *oP6 h*��9 *�H: *��: *��: *��: *��: *� ; ( *�6; 0 *�Y; 8 *��; @ *��; H *��: P *��; X *�< ` 9 �9 z8 �8 *��4 *� : *� u *� : h *��9 �8 H: �/ U/ / /: �. �: �/ �8 ? ? ? h P/ / M: ? �: �/ �8 P/ ? ? / �: #: �: P/ �: �/ �8 �: '�: �/ �8 �: ' ; �/ �8 �. U/ �: ',; �/ �8 �. 1; /# ,; ; �. Y; �/ �8 1; �. ;; P/ �; �/ �8 U/ U/ / ^; P/ �; �/ �8 1; / �; �; �/ �8 �; '- �; �8 < �/ _/ q s/ �9 �8 < / / x/ �; X*� �< rex *� �< *��< *�P/ *�? *� { *� { ( *� { 0 sv *�P/ 8 *� 7 @ pos *� h H *� �. P �9 � *� < *� = *� = *� c= *� �= *� ? �< �*�c= *� q *� ? *� ? sr0 *� )? u *wC = : x*��= *��C *��= h *�"�= p h= *��< *� �. *��= *� c= *� > *� c= *� / *� / cp *��= *�n> *� c= *� / *� / cp * �= *n> 8 @*$? * c= * / * / cp * �= * / * x/ *$? me *n> ( * )? 0 * / 8 * �. < * �. > �. �. @*�? * c= * c= * $c= * �8 cp * �= * �= $ * / ( B *!n> 0 *"? 8 0*% @ *' c= *( �. *) �. **�. *+? end *,? me *-n> ( *0c@ *2 c= *3 c= *4 P/ *5 ? *8|@ val *9 q 8*>A *@ c= *A c= me *Bn> B *Cn> cp *D�= *E x/ $ *F q ( *I q , *J ? 0 (*MmA *O c= *P c= cp *Q�= *R�= *S ? *T �. *U �. $ `*X4B *Z c= c1 *[ q c2 *[q cp *\�= *] / *^ / *_ �. *` �. *a x/ $ A *bn> ( B *bn> 0 me *cn> 8 *d4B @ *e4B N �. DB 8 h*hC *i / cp *j�= *k / *l / c1 *m q c2 *mq *n ? *o ? *p q ( min *q q , max *qq 0 A *rn> 8 B *rn> @ *s4B H *t4B V #h*��C *��= *� �< 1yes *��= *� �= * > *s> *#.? *.�? *6 @ *:c@ *K|@ *VA *fmA *uDB *x= �C �C 8 *�h= +D8 �% %h $%!RD %"RD %# WD %$ WD �- �- % ~D % ~D %%�D WD !D �D @. %M�D %Mn/ %M�7 $�D ${ $P6 $�D $s/ $�+ $E $s/ $�7 $<E $d/ $�6 $^E $�7 $ � �E �D ,sv �P/ ,iv �G ,uv �W ,pv �? �h �^E s/ �E �/ �E �E # F s/ D d/ # &F s/ D 0,1�F ,3 ? ,4 ? ,6 � ,7 � ,8 ? ,9 ? ,: ? ( -*�F -, ? -- ? -. � -/ u ; �.H3G .M3G .V3G � .[DG .bUG .iD � .nfG D DG 28 D UG 28 � D fG 28 � D wG 28 �w H/+�G /- ? /. ? //� /0� /1� /2� ( /4� 0 /6� 8 /88 @ F�0� �J 0�? 0� � 0��J 0�? 0� � 0��F ( 0�? H 0� � P 0��J X 0�X ` 0�? � 0� � � 0��J � 0�q � 0�? � 0� � � 0� � 0�? � 0� � � 0��J � 0�q � 0�� � 0�? 0� � 0��J 0�&F 0�? H 0� � P 0��J X 0�� ` 0�? � 0� � � 0��J � 0�wG � 0�? � 0� � � 0��J � 0 { � 0 { 0 0"? h 0# � p 0'? x 0( � � 0, q � �F �F X � &F � wG 0-�G #&�J #'P/ #( � � 7K !7K "� # q � $ x/ � %�. � &h � �J )�J � TK { YK HK 0 S�K T s/ U�. W WD cv X �7 Z �. [ i/ ( 0 `+L a s/ b�. d WD cv e �7 gv g d/ h d/ ( 8 ��L � s/ ��. � P/ � s/ � P/ cv � �7 ( ��L 0 <K # ��L 1svp � Z/ 1gv � d/ ��L ary � i/ ix � G �M � �. ix � G �6M cur � G end � G �]M cur � P/ end � P/ # ��M 1ary ��L ��L �M �6M 0 ��M � �M ��L �P/ �]M � WD ( � N �s/ � P/ #8 kN hK �K +L �M �M j X .CO / �. 0 �. 1 �. 2 �. 4 h 5 h 6 ? 7 P/ 8 P/ ( 9 ? 0 : ? 8 ; ? @ < H =�8 P #h ogO p & qpN 8 �O i/ �O �O �O �. �. $ �. ( �. , �. 0 �% gO !gO q $P �/ P/ 7 P / BP �/ P/ 7 )P q oP �/ P/ 7 P/ �. GP q �P �/ 7 �; tP + $1 �P .val 1 \0 1 R 1 �. 1 �7 1�P (10Q 10Q 1 P/ 1 ? 1 ? 1 P/ �P 1 �P ; �1"U 1&U 1'\0 1(q 1+q 1- U 1. U .ps 1/ U ( 10q 0 14 �. 4 15 �. 8 16 �. < 17 ? @ 18 ? H 19 �. P 1: �. Q 1< �. R 1= x/ S 1>x/ T 1? �. U 1@ s/ X 1A s/ ` 1B P/ h 1C �. p 1D �. r 1E �. t 1F P/ x 1G �. � 1H �. � 1I W � 1J W � 1Kx/ � 1L �. � 1M �. � 1N �. � 1O s/ � 1P P/ � 1QU � 1R P/ � 1S ? � 1V ? � 1W ? � 1X ? � 1Y ? � 1Z ? � 1[ ? � 1` / � 1a �. � 1b �. � 1c �. � 1d n/ 1e �1 1f i/ 1h U 1i #U @ 1j �. T 1k �. U 1l �. V 1m �. W 1n kN X 1o & ` 1p / ` 1q / d 1tW h 1uW p 1vD x 1wx/ y 1yx/ z 1{�. � 1|�. � 1}�. � 1~�. � AQ �P 5Q \0 #U 8 �. 3U 8 1AQ ~, ?U IU ��U ��/ �$�U �$�U SU &�U �U q �U �/ '�U �U '�U �/ P/ (�U *�U �U x/ V �/ P/ +V V '$V �/ G 1 ybV H V pad V $# �V 8 &�V �V '�V �/ s/ :�7 >�V BV IW fn J �/ ptr K L�V �+ �. �O �C �C 3U ? =W 8 q G WW 8 W / qW 8 ? �W 8 �, n/ �J �/ K' P/ �W 8 " D �W 8 P/ �W 8 H <-C/ 61 2>�X 61 3�Z ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K 41 �Z ,u 43�Z ,c 44�Z � �Z 8 �Z 8 45�Z % 7? % 7"? % 7@? % 8? % 8 ? % 9? % ;? % ;"? % ;D? % <? % <$? % =? % =(? ,4?�[ .txt 4A �[ .bcd 4B �[ D �[ 8 � �[ 8 *BCD 4Ca[ < K�[ �/ U/ R ) 5� P/ �[ �/ ) 5� G \ �/ U/ �. ) 5k P/ $\ �/ R = �6\ 3 ) 5� P/ R\ �/ U/ ) 5� P/ s\ �/ � ) 5} Z/ �\ �/ Z/ Z/ h ) 5� ? �\ �/ U/ ^K �. = ��\ �\ $ �\ < &�\ �/ �. ) 5� �7 %] �/ �V / ) 5(�. G] / 3 ) 6 ^] I 73 q z] q 3 0 83�^ 83�/ cv 83�7 ax 88 �. 88 Z/ sp 88 Z/ 88 �. 8= cv 8L�7 �] p_ 8O ^ p_ 8Q !^ p_ 8S 3^ p_ 8U E^ p_ 8W W^ p_ 8[ i^ p_ 8] {^ p_ 8_ �^ p_ 8a �^ p_ 8c �^ p_ 8e �^ p_ 8h �^ p_ 8j �^ p_ 8l p_ 8n + �_ 8�/ cv 8�7 sp 8 Z/ ax 8 �. 8 Z/ 8 �. ix 8�. k_ p_ 8 s 8 P/ ip 4 �_ 4 ? wa 4 �Z len 4 { 4 R + ��` 8��/ cv 8��7 sp 8� Z/ ax 8� �. 8� Z/ 8� �. ix 8��. 3` p_ 8� s 8�P/ ip 4��_ 4� ? wa 4� �Z len 4� { 4R + �:a 8��/ cv 8��7 sp 8� Z/ ax 8� �. 8� Z/ 8� �. s 8�P/ ap 4��_ 4� wa 4� �Z len 4� { )a 4�R 4�R + o=b 8o�/ cv 8o�7 sp 8q Z/ ax 8q �. 8q Z/ 8q �. ix 8r�. > ��a p_ 8r s 8xP/ n 4��[ 4��Z 4� �Z cp 4��_ 4� 4� ? len 4� { ,b 4�R 4�R + >�b 8>�/ cv 8>�7 sp 8@ Z/ ax 8@ �. 8@ Z/ 8@ �. ix 8A�. �b p_ 8A s 8GP/ n 4u�[ cp 4v�_ len 4w { 4�R + �c 8 �/ cv 8 �7 sp 8! Z/ ax 8! �. 8! Z/ 8! �. �c s 8%P/ bp 4`�_ 4a ? len 4b { 8,q 8-U/ 87 G 89R + ��d 8��/ cv 8��7 sp 8� Z/ ax 8� �. 8� Z/ 8� �. s 8�P/ 8�. 4H�Z ap 4I�_ wa 4J �Z wb 4J�Z len 4K { xd 4WR 4YR + ��e 8��/ cv 8��7 sp 8� Z/ ax 8� �. 8� Z/ 8� �. ix 8��. > &e p_ 8� as 8�P/ bs 8�P/ ap 4 �_ bp 4 �_ 4 ? wa 4 �Z wb 4 �Z 4!�Z len 4" { �e 4?R 4AR + xyf 8x�/ cv 8x�7 sp 8z Z/ ax 8z �. 8z Z/ 8z �. ix 8{�. f p_ 8{ s 8�P/ ap 4��_ 4� ? wa 4� �Z len 4� { i 4�q hf 4�R 4R 8 �q �f 4��_ n 4�'�f bcd 4� 4� i 4�q j 4� q �[ 8 �q �g 4��_ n 4�)�f tmp 4�� 4� � 4�"� 4�(� 4�.� 4� � 4� c 4�q i 4� q j 4�q p 4�q 0 4i h bp 4i 4i h 4i+ h len 4i6q i 4kq 4kq lo 4k q c 4l cp 4l �_ �Z 8 ID �h str 4I len 4I q n 4I(�f i 4Kq j 4Kq lo 4Kq c 4L 4L �_ sp 4LC�_ 0 4;�h 4; h 4;% h 4;1D ap 4=�h tp 4=)�h � 0 4*i 4* h 4* h ap 4,�h tp 4,)�h 0 4Ni ap 4�h p 4�h 4#� 4)� - 4� �i ap � p0 ��h p1 �0�h p2 �>�h p3 �L�h 4 / ��i ap � len �q a ��h / �j & 4� src �" len �+q d ��h s �$�h - 4�q (j bp � p ��h - 4�q Kj bp � p ��h - 4�q �j aa � bb �!�h & 4�, h con �;� tmp �� - 4�q �j aa � bb � & 4�' h & 4�2q i �q a �� b �� r � � / �k aa � a ��h / ~7k aa ~ ux ~ a ��h / t_k aa t ux t a v�h / I|k b I? c Kq J 9 �. �k 9 �/ 9" �. 9# �. K 9��. �k & 9��/ - :Tq �k & :T 3 - ;9 #l & ;9 & ;9q & ;9� L ; & ; & ; & ;� : ; 9 I8 : ;9 I8 : ;9 I8 !I ( I 4 : ;9 I : ; 9 I : ;9 I 4 : ;9 I : ; 9 I : ; 9 I8 : ;9 I8 : ;9 I I : ; 9 ! I/ & I 7 I : ; 9 I k : ;9 : ; 9 : ;9 I : ;9 : ;9 I :!4; 9 I 4 :!4; 9 I < : ;9!I k 'I !$ > " :!;9 I # : ;9! $ : ; 9 %4 :!4; 9 I? & : ; 9 I '' ( : ; 9! ).?: ;9 'I< * : ; 9 I +.:!8;9!' , : ; 9 I -.?: ; 9!'I . : ; 9 I8 /.?:!4; 9!' 0.?: ;9!' 1 : ;9 I 2! I/ 3 4 : ;9! 5 :! ; 9!I8 6>! !I: ; 9 7 !:! ;9! 8.?:!4;9!'I 9 !: ; 9! : : ;9 ; : ; 9 <.?:!5;9!'< =.?:!5;9!'�< > :!4;9! ?% @$ > A B& C : ;9 I8 D : ;9 E5 I F : ;9 G> I: ;9 H4 : ; 9 I?< I.?: ; 9 'I< J.: ;9 'I K.: ; 9 'I L.?: ; 9 'I u m �� = Ilaststatval long long int old_parser subtr_ass_amg blku_oldsaveix Iorigargc Iorigargv si_errno keeper __pad0 tbl_arena_next _spent_size Iin_utf8_CTYPE_locale long unsigned int hostent ls_prev close_paren lex_stuff xpvgv Istatcache is_simple_pack Icompiling Idbargs new_perl blku_oldsp sub_error_count xpvhv PERL_CONTEXT _asctime_buffer Inumeric_standard prevcomppad Ie_script sv_u Ipreambleav XS_NetAddr__IP__Util_comp128 regmatch_slab IDBcontrol memset xpvio xpviv tbl_max si_tid Imy_cxt_size blku_old_tmpsfloor Imain_root xcv_outside blku_type _PerlIO __locales he_valu Iutf8_totitle REGEXP _spent_struct named_buff want_vtbl_hintselem extendipv4 h_length op_first Idoswitches _netent_size thrhook_proc_t next_branch Perl_POPMARK block_eval s_port __in6_u in_port_t gp_refcnt prev_mark Idef_layerlist saw_infix_sigil Irestartjmpenv save_lastloc Iwarn_locale _spent_buffer Icolors mg_obj je_old_delaymagic fallback_amg multi_end PerlIO_list_s PerlIO_list_t COPHH scream_pos Iargvgv despatch_signals_proc_t rshift_ass_amg xio_flags Isharehook tm_mday old_regmatch_state xcv_xsub nextword Iminus_E Icheckav uint32_t pad_1 pad_2 Imarkstack bor_amg Idump_re_max_len tm_zone Istatusvalue IDBsingle utf8_substr __u6_addr8 min_offset pmop st_atim sival_int Ilast_in_gv Ireg_curpm share_proc_t Ihash_rand_bits_enabled pw_gecos netswap_copy _call_addr long double op_private _isipv4 lex_formbrack SVt_LAST __ch sbu_dstr XS_NetAddr__IP__Util_bin2bcd Irunops Ipsig_pend _ctime_buffer Icomppad_name Imarkstack_max sbu_iters internal Ireentrant_retint saved_curcop max_amg_code dest input __blkcnt_t context PTR_TBL_t sig_seen xhv_max _protoent_size hent_hek _grent_ptr _getlogin_buffer time_t xivu_eval_seen __locale_data pos_flags Istack_base exec Imax_intro_pending poscache op_pmstashstartu to_gv_amg group sbu_strend smart_amg re_scream_pos_data_s cop_stashoff s_addr st_size sge_amg pthread_key_t Iperldb lastparen si_addr_lsb Iinplace __locale_t _pkey tm_min IDBline want_vtbl_nkeys sin_amg Isv_arenaroot jump gp_egv newval padname states xio_bottom_gv Iphase in6_addr yylen size_t lastloc subbeg cos_amg _asctime_size tp128 Iblockhooks end_shift sbu_oldsaveix _pwent_ptr Iosname n_addrtype lex_casemods lex_brackstack numbered_buff_STORE Iefloatsize PADLIST Ipeepp PADNAME __printf_chk Iregex_pad retop xcv_padlist_u minmod sp_pwdp Iutf8_foldclosures Ilocale_utf8ness Isv_yes carry parenfloor lt_amg branchlike JMPENV Imain_start qr_anoncv Istashpad _arch lex_state my_perl Ienvgv binary msk8 Iperlio Ipadname_const Perl_xs_boot_epilog __wchb pow_ass_amg mult_ass_amg Iregmatch_state prev_rex Iisarev Iutf8locale tm_mon XS_NetAddr__IP__Util_addconst op_opt c2_utf8 sa_family_t sockaddr_inarp subcoffset svu_fp yy_stack_frame Idebstash topword XS_NetAddr__IP__Util_add128 want_vtbl_ovrld reg_substr_datum si_stack xpadl_max Inomemok engine __uint8_t tm_hour firstpos want_vtbl_debugvar Imbrlen_ps Idiehook prev_recurse_locinput any_ptr Sighandler1_t CLONE_PARAMS Icompcv padnl concat_ass_amg _128x10 lex_repl timespec PerlInterpreter xpadnl_max_named ILatin1 branch Isighandler1p st_nlink Iminus_F re_eval_str Iscopestack_ix sp_max Iscopestack_max iter_amg Iminus_a any_pvp Iminus_c want_vtbl_arylen_p tbl_arena Iminus_l Iminus_n Iminus_p Iargvout_stack word Iinitav Perl_newSVpvn sin6_family tm_yday tbl_items Perl_ophook_t cache_mask ap128 firstchars xpvlenu_rx Imaxsysfd Ilocalizing Isighandler3p lex_shared servent _crypt_struct_buffer rxfree ncmp_amg pw_name sp_lstchg curly stackinfo _getlogin_size nomethod_amg add_amg Iunicode __fmt blku_sub qr_package neg_amg Irestartop ICCC_non0_non230 PL_thr_key gofs __mask_was_saved PERL_PHASE_CONSTRUCT Ilastgotoprobe cop_line Isecondgv __locale_struct Isavebegin want_vtbl_vec initialized XPVAV in_addr to_av_amg double STRLEN n128 exitlistentry abs_amg op_ppaddr xpadnl_alloc Icheckav_save Idebug_pad __jmp_buf_tag concat_amg lex_flags Iendav blku_oldscopesp Iutf8_idcont Icomppad_name_fill my_op IHasMultiCharFold __mbstate_t tmpXSoff XPVCV curpm add3 compl_amg regnode Iperl_destruct_level si_cxix mg_virtual padnamelist interpreter PMOP Istashpadix Perl_xs_handshake st_uid longfold sp_min xcv_xsubany PADOFFSET sbxor_amg sbu_rflags xpv_cur xpadn_flags Istderrgv xio_page_len perl_memory_debug_header printf Iin_clean_all si_type mark_name Istashpadmax old_regmatch_slab is_hasbits __ino_t fastcomp128 reg_substr_data lex_super_state _grent_struct xcv_root_u curlym setting curlyx Icustom_op_descs si_prev XPVGV _addr_bnd sp_namp lex_starts Isavestack Sighandler3_t si_code Imodcount prev_curlyx Isortstash loop Istdingv svt_local sp_warn Icustom_ops sbor_ass_amg CHECKPOINT XPVHV any_av _grent_buffer sne_amg XS_NetAddr__IP__Util_ipv4to6 last_uni XPVIO sp_expire XPVIV __uint16_t is_shiftleft minlenret Iofsgv cnst TARGi_iv Idelaymagic_gid xcv_gv_u Iunderlying_numeric_obj Icollxfrm_mult exp_amg tbl_arena_end Isavestack_ix want_vtbl_defelem sockaddr_x25 SVt_PVAV sin6_flowinfo have128 xmg_magic svu_gp error_count any_dptr intuit Ibody_roots si_sigval hek_len Icollation_ix tokenbuf band_ass_amg op_nextop line_t mgvtbl next XS_NetAddr__IP__Util_hasbits Iutf8_xidcont si_cxstack yyerrstatus Siginfo_t _hostent_ptr sbu_rx xcv_padlist n_name svt_get _Bool svu_iv magic sbu_rxtainted seq_amg div_ass_amg op_moresib c128 xpv_len_u Ipatchlevel badc _128x10plusbcd _pwent_struct nextval svu_pv any_gv memcpy not_amg Ihash_rand_bits sbu_orig _servent_struct __gid_t Iparser xpadlarr_dbg stack_max1 runops_proc_t any_hv Ipadlist_generation SVt_PVFM xpadnl_max Idefoutgv _lower Istatusvalue_posix _pwent_buffer Iutf8_tosimplefold __ctype_tolower siginfo_t Perl_newSViv any_iv mark sv_flags Ichopset Irpeepp oldcomppad sbu_rxres SVt_PVGV Iincgv si_markoff xpadnl_fill want_vtbl_arylen tv_nsec nexttype is_sub128 sig_slurpy want_vtbl_backref Icurpm_under SVt_PVHV lshift_ass_amg Sighandler_t pthread_getspecific svu_hash ISCX_invlist svu_nv sband_amg si_cxsubix lex_inpat last_lop tm_sec sockaddr_ax25 ptr_tbl_arena SVt_PVIO _pad SVt_PVIV filtered Ilastfd _bcd2txt want_vtbl_collxfrm Bail Ieval_start targ ls_linestr bxor_ass_amg PADNAMELIST SVt_PVCV PERL_PHASE_START __src xcv_hscxt any_u32 Perl_croak_nocontext _ctime_size repeat_ass_amg op_pmreplrootu Isavestack_max Ilocalpatches Isv_root SVt_PVLV _bcdn2bin p5rx op_next __saved_mask svu_rv copline sockaddr_eon any_op Icurstack SVt_PVMG Ipadix_floor si_status xpadl_arr h_addrtype _strerror_size Idelaymagic_euid bufend lex_inwhat any_pv atan2_amg xnv_nv sin_zero Iopfreehook ssize oldbufptr _protoent_ptr Iunitcheckav svu_uv PerlIOl sgt_amg to_hv_amg Isetlocale_bufsize recurse_locinput protoent mg_len Imemory_debug_header SVt_IV reserved Itop_env want_vtbl_sigelem netswap info_aux_eval __blksize_t bcdn short unsigned int _spent_ptr bool__amg Itmps_stack yy_lexshared offs any_sv want_vtbl_substr Isv_undef Ipsig_name LEXSHARED clone_params perl_drand48_t Igensym Iregmatch_slab op_redoop rsfp _hostent_struct start_tmp xio_fmt_name svt_len cop_hints __len h_name Ierrors xpvlenu_len h_aliases _hostent_size op_pmreplstart hent_refcount saved_copy lex_sub_inwhat any_uv Itmps_floor Istrxfrm_is_behaved __wch xpadl_id dec_amg int_amg uint8_t Ibasetime Iop_mask Isighandlerp unreferenced Isignalhook xpadnl_refcnt loceol IUpperLatin1 xio_ofp __value _hostent_buffer cop_seq multi_start op_pmreplroot SVt_NV IDBtrace maxlen pre_prefix op_targ Ibeginav je_ret resume_state is_ipv4to6 Isv_consts pw_dir lex_casestack op_lastop gimme Isub_generation blku_eval float want_vtbl_isaelem __count unsigned char si_cxmax multi_open Perl_gimme_V _kill st_rdev LOOP ILB_invlist SVt_PV PerlIO want_vtbl_dbline REENTR Imess_sv Iglobalstash bufptr Imin_intro_pending expect oldloc Icollxfrm_base want_vtbl_envelem copy_amg Iutf8_perl_idcont cx_blk Istatname RETVAL modulo_amg xnv_u __uid_t eq_amg sin6_scope_id blku_gimme XSUBADDR_t st_ctim recheck_utf8_validity Iutf8_tofold xcv_root ISB_invlist block_format in_addr_t op_sibparent XS_NetAddr__IP__Util_ipanyto6 old_namesv log_amg xpadn_type_u IAssigned_invlist peep_t Iinternal_random_state Isv_no minlen type locinput __off_t perl_phase Iin_clean_objs is_mask4to6 Isv_zero cp128 PERL_PHASE_DESTRUCT in_pod Perl_stack_grow gp_io Imultideref_pc Iors_sv string_amg xpadn_protocv Ievalseq Iunlockhook regexp_engine mg_flags subtr_amg Icurstash gr_passwd _gmtime_struct gr_gid want_vtbl_checkcall si_overrun __clock_t SVt_NULL ls_bufptr Ibeginav_save __uint32_t Iorigfilename xmg_hash_index last_lop_op cop_warnings Icop_seqmax op_pmtargetgv form_lex_state XS_NetAddr__IP__Util_bcd2bin Istatgv Idestroyhook st_blocks max_offset band_amg GNU C17 11.4.1 20231218 (Red Hat 11.4.1-3) -m64 -march=x86-64-v2 -mtune=generic -g -g -O2 -flto -ffat-lto-objects -fexceptions -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection=full -fwrapv -fno-strict-aliasing -fPIC -fplugin=annobin sbu_m sbu_s save_curlyx Icomppad sub_no_recover lex_dojoin xmg_u gp_cvgen stack xcv_file SVt_PVNV itervar_u gp_flags count xiou_dirp _servent_buffer paren_names Iregistered_mros substr si_uid pw_passwd is_ipanyto6 Iin_some_fold sqrt_amg lex_allbrackets opval Icurcopdb block_sub pos_magic gp_file_hek uid_t sv_refcnt sockaddr_in6 __nlink_t tbl_ary sband_ass_amg xav_alloc si_fd nparens xpadn_refcnt scmp_amg Ieval_root old_eval_root named_buff_iter st_gid Idowarn gt_amg yychar Ifirstgv rshift_amg _countbits mg_moremagic op_pmoffset op_pmstashoff Inumeric_underlying_is_standard PERL_SI MGVTBL op_static MAGIC Perl_sv_newmortal Itmps_max want_vtbl_pack sockaddr_ipx Ithreadhook Badigits blku_givwhen gr_name op_type Iutf8_perl_idstart sublen blku_oldmarksp xivu_iv _netent_ptr want_vtbl_regexp Ipadname_undef preambling adder128 Inumeric_underlying _upper cx_u output IDBcv trie Ilockhook __ctype_toupper _xnvu xio_lines_left compflags sockaddr_iso want_vtbl_utf8 Iin_load_module xio_page sigjmp_buf pow_amg info_aux want_vtbl_hints tm_isdst div_amg Ilaststype __ctype_b h_addr_list Iutf8_charname_continue in_my_stash locale_t want_vtbl_regdata xpadn_len _strerror_buffer add_ass_amg dummy Iunitcheckav_save si_stime u_int32_t lastcloseparen short int ifmatch Idumpindent Ioldname preambled op_code_list xhv_keys itersave sbxor_ass_amg IAboveLatin1 Iutf8_mark _servent_size si_signo _simple_pack IDBgv alen __names sv_any blk_u xcv_start accepted gvval IWB_invlist olddepth Iutf8cache _localtime_struct _bounds prev_eval Ipadix defsv_save file want_vtbl_lvref _netent_buffer xcv_stash YYSTYPE xcv_gv cop_hints_hash Icustom_op_names lex_sub_repl sle_amg xpadn_high re_scream_pos_data hek_hash _ttyname_buffer Iknown_layers _netent_errno Itainting Icurcop Istack_sp __ssize_t any_bool regmatch_info_aux PERL_PHASE_END Icollation_standard __glibc_reserved long int want_vtbl_taint lex_defer xmg_stash Iorigalen sbu_maxiters sockaddr Idebug __int32_t refcounted_he Icurpad start printb128 __time_t st_mtim want_vtbl_uvar s_proto sbu_targ boot_NetAddr__IP__Util __dest logical Iforkprocess digit lex_brackets xio_top_gv Iutf8_tolower blku_oldcop Icurstackinfo Istart_env lex_fakeeof lex_sub_op cxix stashes state Istashcache xnv_lines mult_amg want_vtbl_packelem p_aliases _netent_struct in_my next_off xivu_uv sin_port Imodglobal sockaddr_at regmatch_info_aux_eval xcv_start_u want_vtbl_env basesp Igeneration IGCB_invlist Istrtab xpadl_outid xpadn_low block_givwhen regexp_paren_pair prev crypt_data pprivate cv_flags_t cur_top_env xpadn_typestash Iin_utf8_COLLATE_locale state_u PERL_PHASE_RUN _sigfault op_spare lex_op st_ino cop_features __pid_t parsed_sub op_last proto_perl want_vtbl_regdatum xio_type yylval sp_inact regmatch_state sockaddr_dl xav_fill hent_val Iorigenviron Idelaymagic_egid gp_av ftest_amg binmsk scream_olds mg_ptr regexp maxpos _bin2bcd sa_family savestack_ix ptr_tbl Inumeric_name lazyiv _sifields want_vtbl_pos SVt_REGEXP Ipsig_ptr gp_cv xgv_stash netent tv_sec tm_year blku_u16 Iprofiledata sbor_amg __sigset_t gp_line Imainstack Icurpm op_pmflags st_blksize xpadn_ourstash is_bcdn2bin ptr_tbl_ent _hostent_errno op_slabbed scompl_amg Isubline Iargvoutgv Iwatchaddr Idefgv hek_key PerlExitListEntry xio_bottom_name gp_form Perl_newXS_flags Ireentrant_buffer hent_next check_ix op_flags Iunsafe tm_wday Ihintgv compcv sockaddr_in signed char __jmp_buf IDBsignal Iutf8_charname_begin Ilanginfo_bufsize blku_format __dirstream sin_addr IXpv Iregex_padav blku_loop paren cache_offset wanted pw_uid _timer Istrxfrm_NUL_replacement IInMultiCharFold je_old_stack_hwm sig_elems bcd8 passwd padlist gr_mem Ixsubfilename gp_hv Ipad_reset_pending subname dfoutgv _sigchld xcv_depth comp Itaint_warn Imbrtowc_ps sigval pw_shell si_next want_vtbl_nonelem _syscall Iexitlist Ilanginfo_buf Isubname any_i32 Ihv_fetch_ent_mh UNOP_AUX_item svt_dup xcv_flags uint16_t Perl_sv_setiv_mg Inumeric_radix_sv bor_ass_amg globhook_t xcv_outside_seq Isplitstr xcv_hek svt_free sockaddr_ns long long unsigned int si_addr Ibody_arenas checkstr _grent_size addercon SVt_INVLIST want_vtbl_mglob Isortcop sin_family Isignals sbu_type si_pid mg_private dupe je_buf lazysv Iwcrtomb_ps Itoptarget Istrxfrm_max_cp Ierrgv le_amg Perl_sv_2pv_flags inc_amg _128x2 svt_clear PERL_PHASE_CHECK nexttoke Itmps_ix Isig_pending substrs any_svp intflags destroyable_proc_t Ifdpid xpadlarr_alloc ival any_dxptr n_net to_sv_amg Perl_croak_xs_usage op_pmtargetoff Icollation_name flags Iefloatbuf to_cv_amg extendmask4 magic_vtable_max _pwent_size oldval any_long xiou_any gid_t ITR_SPECIAL_HANDLING_UTF8 lshift_amg Iexit_flags c1_utf8 repeat_amg Icurlocales Iglobhook sin6_port dchar char xio_top_name IPrivate_Use modulo_ass_amg jmpenv Iptr_table Icolorset __jmpbuf Ifilemode __dev_t Iexitlistlen sockaddr_un numer_amg op_folded Idelaymagic Imarkstack_ptr block is_add128 pw_gid tm_gmtoff prev_yes_state pval s_name _protoent_struct op_comp gp_sv svu_array whilem ge_amg IInBitmap mother_re __val n_aliases _sigsys is_bcd2bin is_maskanyto6 is_comp128 a128 extflags xio_fmt_gv xpadn_gen cop_file Icurstname cx_subst __u6_addr16 Isv_count data svt_set Idefstash Itainted Ibodytarget oldoldbufptr xav_max xiv_u _protoent_buffer st_mode savearray _xivu leave_op Iutf8_xidstart is_ipv6to4 items re_eval_start perl_debug_pad Istack_max st_dev hasdigits __u6_addr32 je_prev want_vtbl_sv Iclocktick Perl_sv_2iv_flags __syscall_slong_t IXPosix_ptrs IDBsub spwd Iutf8_idstart je_mustcatch numbered_buff_LENGTH bcdstuff yy_parser block_loop op_savefree Iscopestack Iformtarget pad_offset s_aliases lastcp Iconstpadix multi_close stat herelines ne_amg Imy_cxt_list IPosix_ptrs xivu_namehek tmpc _ttyname_size sin6_addr Iwatchok p_proto p_name Perl_sv_2mortal want_vtbl_isa svt_copy xnv_bm_tail linestr sival_ptr mark_loc si_utime xpvav Isrand_called regexp_amg ssize_t __mode_t sp_flag perl_key Ireplgv sa_data Ibreakable_sub_gen XS_NetAddr__IP__Util_notcontiguous rsfp_filters Iin_eval suboffset __sigval_t bxor_amg subst _servent_ptr lex_re_reparsing int32_t Iutf8_toupper linestart sig_optelems PERL_PHASE_INIT old_cxsubix Icv_has_eval mg_type xpvcv Isetlocale_buf numbered_buff_FETCH mbstate_t Irandom_state Iscopestack_name si_band xpadn_pv Icomppad_name_floor Idelaymagic_uid eval Iwarnhook _xmgu _sigpoll slt_amg unsigned int xio_dirpu bcd2p Iin_utf8_turkic_locale cur_text blku_oldpm Imain_cv struct_stat.h intrpvar.h Util.xs av.h __locale_t.h Util.c iperlsys.h /home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util handy.h perlvars.h sockaddr.h grp.h struct___jmp_buf_tag.h stdint-intn.h dirent.h __sigval_t.h util.h overload.h stdio2.h pwd.h /usr/lib/gcc/x86_64-redhat-linux/11/include crypt.h /usr/include/bits gv.h netdb.h types.h pthread.h mg.h perlio.h /usr/include struct_timespec.h time_t.h regexp.h cv.h pthreadtypes.h locale_t.h cop.h hv.h inline.h stdint-uintn.h pad.h parser.h /usr/include/netinet __sigset_t.h reentr.h stdio2-decl.h proto.h perly.h mg_vtable.h socket.h /usr/lib64/perl5/CORE sv.h /usr/include/sys string_fortified.h __mbstate_t.h siginfo_t.h /usr/include/bits/types stddef.h struct_tm.h perl.h setjmp.h op.h shadow.h in.h mbstate_t.h (�/� 1 (�/�`- i ! + ���� �� ���� ��� ���� ��� ������� ��� �� ��� ���� �ߓ� ���� ہ� ��� ���� ��� ���� ���� ���� ���� �����/���� ��� ���� ��� ٰ٨ �պ� և�� 漏� !��� "���� #���� $���� %�ፓ&��'�잵 (˶� )ȫ�� *��� +֬� (�/�`�� �IP�$ ~������� dE��� J�R&۶��/���6�5�xUF&dǍ�;���S4���U?1���GO���8-��4Z�V s�j��[=����R&����VIZ�b �J��Id�� D$Q҂�jჽR�v����K`0 G�2TO�W�N�,�p�>p�E!`0X �d~ gP�&Ӌ��I ��AB$��[�H_Ҏ1���")����p�� Mr�)3 7ظ�n���*�V@��ޕ,��#�("��c �?�AK�۳��K�r~8K��d�]{C����� � �R��i@4������Ju��Ƴ���p�L��"hx0�諢Q3���rT����wTI�X3�;qƝQ}� �J�(�/�`0 + f��H��M:�US����2W4�M&�V�r���$��J+�Ԣ� �`�@wkv�_ x \ ƣ�a�\��<,��yJ�X"�L� � � =��j�����ro�FT[i[igv�7�f�ֆO���[�v HS�����Λs�ط�朳[��gu1��ѕ��������V�m�%E_X�V�� ���� ����s��6��]�k_�Jt'%��f'p?!����$��ұ@�( MVN|7J�T���f�r�v�2�6��NXR�l� 2��mPK��>t,)�N�s� sN#{T":;�q�^%� �"aj�) ���{U�x{�p/8�sG�|�z��[ �d:�ڽr#���l�EK��1ޘ ae�x��[I�f`[��*�s�-��W�b�Gk�,<�h%�V��/[� ��2<�� w�=��P������ ����3غ�=5���XQ&z<p���j../4( ?J(��<�vn�Z��얨խ�3���zY �۰*�^U��XSO��B�(�����[7<�oγ���xB� ��q���,"m�C0[�C�8��Z�B�1��nUc�iX,ZF�0�|�0�"d�������Lt�MQ3IL0�|��8�r��@��#%�]�O���(��W�� n�bЯ����H�E���v?&}���j����/��2#3#"I ��!�� BI�C9��!DB!�$ �i s ,�6Y�l��D�e - �b&���Ќѡ�\ � �Y�X��:C���K\L�%����,���Z��q���R��k��Ŀ��OD%S��i*�J'g]��PptI��zgot�[��*8��}�ʐ~jD��Jr@�I`1� ���'�Ⱥ{w���ϝ�~\������U��{ �$Rr�� K� ��� �Z�8�)\�18h��PO�w��谒�DPJqGoG�� �:.���K�Q��G��U^�p�tly�Dq֜XE��n9���J�9EpK�T�Ih����9[�����/'�Q4�!�� ���%{:����K�H��Ҵ�;N2 �� Y=N� �\������b���oC笑) Ί��D��ŧ�H,�>��Wt��ġ3�7X�+V��Qm+�*2�F����� #D=��D5��I�t<�!��ۆz���F8�tP�l�јx�E� ^!��H�� � �Sܚ�(�)� h��$�DSLakm��W 2��9U~��Q�o���@^�>:���'h� �>�Ԍ�*]$ �zd�V y��d&���T �=�, ���n����Xi �,��I�-�BG-J��z7��`%AG��?�a�-�� '�c�S?{n�=�IR�hT)��;(*aO�"��~S缄LL�R4��� �Bt (����}>��5��(�/�`�;}C �~�G��8TT��1�����CL�u�].Ō i�ܬ�J�u�R`@B� H>�*� e �$7���G��R��� � � RH=ִ�l��m�N� ��V�{��&� �� ' =��S����� �[��7S1_Jw���]�B5J{s���]�UX��B��u![����O 5�ş:�|��n�fG�-9{������/�vjzӛ��7��M�J�����vh�C��;ʪ�jr��̈́��47��]��ݬ�� f +b:���%�Bx�_�4�3~9 ��g%��R��Q�ßtKGk�1�����?i��>�W!�co�4 � �L�z�ܣ�>��hh���k�2p�~)G����|��;�h��" �x�?}��s�ܺź�7�k�n�ğ�ç\�ż&��[GM���~ki{��Jw����.`i,��)�n���������l�@�C�`��`��I�V+&�)Z�!Z-r(�4l����F��Å.��Fɩ�G�*2E�8��ʗ,�q/�ǁ^ ��S*Q�S�?gdt�ɌaBĥ��%ϲ�M�v��`��m�� �� ���HE>�$9Q��$�9�O���St��FS��N��Hk�t����F�RN��i�: �6ʹ� �/�?G^l-�n����tԼI���Ca�3�kgE!�g@��3��f� z5�Y�77��`��Meal$� �����X�Ư e �f"�L�q�V$�0�1d� �R�6̒��Yf`� cd)�D�S X&�X2�s=P�� _|ެ�!S\�G�$� 9\�c1�Su_�����d"�$9���<ط�W��"I\����G�� j4X���Z� "K�U�j㗀I�"=�ǩ��2�H��#�)��$)Lk %i ���q�0�` Q��B�B!��%%h< ������ǣx 3�E�{��3*�`N /y�#��V�7.�i�R#���U@$/��>*��x I�UD��`j�Z\D�Σ�-:S�:�S.}�6.��^%0_�V?��˂�-'\o�$-aӆ I�����3P��h@*�~%��K�֥m�n�ީW�L5@�_3Ap̅��:k��.7\�Vr�ĥ�nK�9MMȞT2a����d0�%��_5�:D�Z'�ԋ. �@"W�Շ�.q�ɷ�K4��%,Nc������ocq.ScȠ�|)��R�9������T⑀�ui�@4=1 ���0b�i�'��? (w���qʐ�^���g�&Fg��!�S �37~��CAW��Ώ�57�-L��p7�<�6"�s�C7�hT}��7 DӪ�P~@Nٶ z��daQt�����W�|�jj�Ǿ5�E]�j]a��̪�<% LAE�Z0#8�$Qu�ʕф0ڸ�p� U26��G�8�� Pi���)E1����\!P� 0���@�:WPU� s�|�/��{�;st�_�V� Ю�h-Ҏ+�\�o�^{��@h�ݗ���y����D�s�lo�f�^�f��CS��=y��@��QP��:Ŝ�rY��vѢkO��~�{A#`b k���zY��a�� s|��8�7�N� �]�)��࿗| ��(�R����w����^��i��ea��eO5��x���1Q�"Z+�L �Xl� ����8�&� 9�e( ���p��:G�sؗ:=��'�2k�h����LP���4p�\�<�҇;'_(��9i� o �r:)�C�m%έ`|8�Z��S:���o \{��`C��P�F}�q�u ވ�I����?;P�7��+yK��B�`ҸI:�r�c�՛�G�����0=�T���(9�jqQ�2�̇�# ;��Uqdu� ��(�F�6�6��J��X���E�R*#�T�؞�X>�i@��b]�ʷ� ��9�֚�P�Ҋ���;��$�̳���'`+�7�W�ڳq��S����7!�y�u&OWy���+c�x�� bT.�I��4O�;Q���s��_f3�� �4[�j� ��>�s>�/��*��ޒ*��˰te�{6�����Hx�]< ��hB��7fE��h�_Q��Z���I ��k����H�HB����"�A�W���4�0K �� ��رĂ5�Xc��X��k,��Yr�k���W��]-K �T0'(�/� _m �E �I�G@��bb$�� x�Ys�� �&��+<�?�� Np� �S>�� ���x�/��r=Y � ��]# (�/�`� �H (�Յ�z �)��k�g"�e02}�X3(9A�xL���u< A�L*� k ?�[[8� ���$ƚs� � Զ� 3� 1�T�M.x]w �ѡm[�e� �����I����[ב)� �P, ��9�B�A F|hkg ,��: �7��3��i 2h&4Nè��Ӽ/�c� ��=q��Z�����r m2> 6�&�w��i��YК (�/�`�U v�pF��I:�8�<-s�L�YԚmq@Yđ{���^AޯG�Ja�_jy�8�@*��"��W���BȖ2�Z [ Y �� �� �A��v����;l ��f�bZ��'%%CTvCOe |�� .���u�-�$/.��r�9��y�5���쮳�utk�M�6�Q�9 ��j��w t�nTd7E�� 5$8.�}��������q ��D�Zʱ��k,�M4^�']~Ml��(���k��5�xɼ��8�{� 7Nk�� ���^pz�Y��zpK��LD,�Xg�� ��]KE���% _H�N���q��T ���⌭��S� e�@�0�p ww�0���{=_�MT�X_� H���yQ�ظ�� p�aq7*� ��� \T8� ��h4d��ŬrT!<��o����x �+L���u��Ir��vT�eT ���߇|�j�+yD�S J߬���[a��@�dn�s8Zn ȕ��+e�{�5�9�.*W�xp���T���1���GcP{(�/� e) C '����������}� ipv6to4 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� g9 E '���������� }� shiftleft //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� f1 C '����������}� comp128 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� d! B '���������}� sub128 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� d! B '��������� }� add128 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� e) C '����������}� hasbits //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� e) C '����������}� bcd2bin //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� iI G '��������ٷ }� simple_pack //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� g9 D '��������٧}� bcdn2bin //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� f1 D '����������}� mask4to6 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� e) C '��������� }� ipv4to6 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� hA F '���������}� maskanyto6 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/� f1 D '���������� }� ipanyto6 //home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util Util.xs (�/�`��8 :YlFP\R:����u̗g7�- y m&!�J���~t�i��u��@��b р����m�"���pE{�O�;�2 8�}�m���mn. w��eU�2�B�{d���m.u���n��=<��lWu�yS�=������1頿�N�U/&�HGF� @ ��P��g(� [v�/�G&If�� }+r����W�9+���d���1[��6��ݹTk�J����G��ߥZd+ю'Ye�H��Sˋ��a�oX. �L`��4a���BuK �D ��`���}�T� �(M���=zA ��Yd��@�V���s0�p��,揳_�t�Y� ��uE5�ȼ����1d��g_�x���r ��o�,��[��XEw��z�_U��~M�χb�Ib��N-9:�,/����MaI\�[,w^���Nw� g���{Wi���m�ŭ��.���X�.��[�#����fob������� ���,� w�� dq�,n�Ž���q��# ��"��ݑ��m�O(7����wT� �� �zs�mT9G7<8Ǹ����]��\ݚ��(ݱnN��.ͱ͛���v��\;⩕9�#�(��.�Ӻ�-�^�`�����;<�愁� ǻ�q��U߷���ݢ2>��;ah�[CVM�qճ �_dt����o�s��w��YC�̆5BD�2 \�+h��K��99*qh> �#�`.�xH��r�a�(�5hL!WY��[�Dz'()xd �I@���{l�\%�ή�6}DWy7%�N݀��Q :�m�R��m� WI����M��Ŵ �*�G 9�Q�Ȗ�F,��[�� WEOo�(Ǩ��Ct�b||tr�A�}_U`���g��횋rc� V�o͇��:#}�%�K��vcX�u�a}}��:/&�>t�a/1(v�] �)���P����a7��{�rR��h�cz^p @b�{��c��E����bv��K�]����tg�u O d�IF{6���z> -��n�� � &,�����STRN�((d��RFSH���#F�O� <AAh�bz rzO�` v )*�(*��K$4`���Ò (� TQ �P)��N�$Z<1�T�8a46��_�� ]�I6�@aS��40nQ?&�W2�^L��i3X�]�����3V���"Č!��|}�M2�o���l ��+�sL���z����#�"L��Ҳ$A��̍ �wl&����T���|�0�d��� m��'c<��҉y�/����b�*d��%UM��2c����f�J��#[av�T��:C�]�A�l]�H�.������ ���l{2R���{� �b�Qh#������$I��"t4J�QY CQ9+�D���v�D�JHЇӦ�T�(��/U��04 46�`0ŧr c]T� �R� h�� *TM�����Ȩ� �)?�h>�z��'C������ƼA��D9"`x�*!�b�@�C\�g�b��K� �K�N�NL ia�Q��C�/5v�.Et;M@:1}���F-�S�U�c�R;� ��������c�bw:F� �K�N�N��&����&{�����PưM��GR� P�O;�&?A�PԃB�mQ�h(cX�X�,o���"!�3j�G%}���� 'f(O>�]y[2�T��?f��d�F��#/�ۉ��!�G �ܹ5 %����11k���9�ߐ�$cW��=^�����ۼ ������{lm|/���cmm2�q�� 2�U�Q��)([^��B��% ��S� �C/�s�����a+��=o�o�b���1�Ѓ~ 9��w��xS�N��Y䱒nG !㬏���P(�/�`�� �fG�( @5��?=c�M5� ���� ��1��5X'�U�`�n 8S'�g��f1�a��,->i��� ��� ��;�J N V ��$��e�v�q `� ������Ozݧav�+̎~��.(M ��?s�l%��s�����[��;�:�|� ^b1��r�l��5%�v�vw-]��~�2� /�@vg=E�Κ�����Ab�P!"Gg��� GSi��h�xj�5��!ڹ��a|\����܋p�l|��|��ˏ1N��C���1DG)�������=b������"��m���n��k>}+��3 �����9��N L��( �J�2S,U�Db���(��<�PX) j�ja 7�NN ��!��B�&{|��%��� ( ������' 0� ��^�@�b7)ƀ6�Dž� }�A_���"� ř9�#�����y�bo6S�Mp�? ��;!� ���2(�/�`�� \gG�U:�Y%Z�~��'�o �)&8���� ��-�X�-h�J���W���a���[6 Ĭ�V6���)K N X ���X�\ڧ9 �k�s�1n>v+��S��~ �95�F�j[�'������a�0�6�f.� �k)����Qlo�e����ɝ�c��rgW9]�u���z�د�?�����jE ��'F'[)� ۿ�E��P�q�a^P�L��I�[�Z���Qk%j�A� 8"��~�T��<< ?�br�C�4������o�iY�fb< L^���nI��q���r���=�#ے�l��x�%~���;.>�+k�czKK�AI� �� ��L�#Z��+k%L�T����B� �$���JYQ+U�C���rÔ ����ЂHL���Ȕ�7,���& �"���' �pw�k��[E�R̀lv!�;ׅ!�|(�V���f�ǹY�mF �0]=���E>�&��`�8�<29!$# ��(�/�`A �\gF�( ��f =����n�F��% Ǽ��FL� I,9f-��hf�]{ +�f�!^��� �QI����M�L)M M V ڂ����i�4��v[�d�q�ܡ� �� �eyt�T�b����YO���\.+���u�\^n�m�3�)#� dZI�o`�ؤ�q%u� ���5�~�/�4�鐦A����4��NM �����]?E6��|ˉ ��hI!:�� �3�� LMVB������lz�/�J��a���q�8< ����6#ҲS��ҌԻ�h�I�1O����>f��J ��mx ���Ǔ��>�<� %d���P& R�S �)-b���Z�t���BW9`P"��.H�@�"�R:��J��u0}8���ξ�L���� s���) =��4@�Ϡ�/ ���'�?;��i���j;8�t_z��{�vs]�L$����/��ba{ o&���X�٢��b�6�N{��dI�Ű B^V�84#Z����XzR��:d(�/�`� ��J��Q:��Y�{Ȁ� 0��~8>�YxBzeLU$���|p���\ �C浤q���+�s���Ia:�~ G�7B��r'� � � >M �c�B}a�{o�aʇ.YQ�#I�����)���M�r�{s������E^u�|V3� H�/�^\�k�m��x�8��湤G���hk�#~�+I?�U��Tӹd0U &�-� JK'm|�� ��磖�+����s�Z�~�J ���)�s�e��S:���S� �\�T�LD� �7�'�� �p]��dA�l��3Η�l�:�.<�<�oSs�y�9�,�3m&)�J�%I� )�$e�๎��R���̈TQ���aa�i�����������?y�g?�W|�ke��*˽ww�� Pa����leT"�Q]�r���?�?�:��aD��[���]I5��� ۖ5SJb�,{^B�����Q���>�˴�ֵ� ٶY��-ߘ/2���6���4N�Z� �ZߴN �� �� �k4��ַz��k=��v����ؽ՛BS�'~��F�+=�'�ۚ��i����z�2�i�'��1�߽�ã` B�]w�� "�Y ��Y��2� �]ς � � �)tJ *� *۹Ex���s�p�F��Q( ʀ� ���H�L ��F���1������O<� R��������Nk ���JgzV��Ԭ �z���̣Ls�?o�njӿ�9�q�='I`�YCF�J� KeǺ�𥔰E%1 ]KDyq�A8�bfFDDd4�- ���2n`��Ic��"�Gs2h�I^��]i�La F�t"\���{H�M�@�p<N��BXS�6�¶a'p98k���� aL�X� If <�5u�� �Z����' ==�� �-a�4ʊ��������_߷d�=��N&��I�W ,5g�Ni 4�V "���R�ݷ�,4�4��a�@�Ǽ;�-�ν1�x�֚:�F ��4��(@�1����&j�(�/�`D� ��|I��M:���5��=���w�*�a� T 1#�zA\�ՏE�8U����qͩ �ӯ��C*kr�k�:A��-S d c h -��v�=.`�� �]���A��m�Y�짏4�k� �DdwG�~ �"n�7��O��\� ���"E��Jn÷��":��!�ZR��V\�� �6�l Sg��S��N�'G��/��[C�UXG�\4v�zG�����m��3�O ^��&�� �J;��/MA���ק_���+��my���L� !�K�~xăw�����i�HH���է�r� E�D+�� �ϠՔjw�� �� ��I)djkn�,��h�CS�tR�'�sT�Vy��G %��_��%��6F7��˧�U+��Yd��ow�=:����4bz`�͍�F&&����b`05� .�984 ㌆�`�i!8 �iAXк �)�� �� ��뉹ƙ��q�?u����qY� ��zw u �N�,7�D_Κ�<���>+ �"��' ��,�)��Z��"�#Y-��i�N۔/��}+� ���S f�f+�H 0�dS& ����M��ƨxc'�� ��4�8P(�/�`�5 �azI��M:�vOC-��qʡ�fJC{�_��kq�Ґ�X��� �{"X�&i����w[����F�2�d ^ i )���,Yn t)���t�{|%R� ��%%sΑ�+��{��W!�����^1�|rB{@ OJ��%�!���V�PL�w���TW2sN�O�o�f���KD�~wF:J���2��.st��r����_��W��zW�����"��cNO��tba�<� �F��#�7%D�O�9˖�� F���Ӹ�4� �3=R��ڠ*��ݻhwu SS�9� �o�p\����}U�/�,\y �:Z��o��&��V�_����! e��Yl<�F0�BJi�Y�8&E#��i ���� ��lf����r��b/ d-X�u�CK���63�l�����zaQ����bl2 c�f�C3j�pk�� j���\c� ���n�)Tpp{l�k }��މ�M�~�#O N�V8 ����'"�d{4{�ֆ���"�Dr_$�'�q� ���#T0�'� aI�q��]��NJ���_Rv���L:p�h�e�b#�1`��e��/ Р����;�Q��6ƱZ䣰HQ�B((�/�`! �`vH��& H Gg&��4��o�����\� ���2x�(,�����He����Ш �HxYg�2Zʹ�F��2�` \ e &�f�*3 �ym�A��5�d3��jwC��|��|�$��ySj͗����(���ͬ �٨�n6xDl4sD�D�sW ��jjew�9��;u�1�le ��3�O~� GA8V��QF��=��n��Y�쏿7�S��T�T?%�SJɱ�a�����v��9些�����H�;vǒ{� ^ǣr���C���� �O!�(��� ��z��oЬ�1������1U�Nj�(\���~�g�%� S��_D������ݻl��3�>�;I���"���v��1���I��M��L��<y\n�b0ZKJv��LZ��U ��E=۰ ��Z� !d�R�V'� T0.��+B�b\B d�U����% �����L��^��+��8���ʌ�<ww?=BҦ%ݒ'e, ���7� x��]��+��I@�Dm����W�� ��`D\��0H�]2���Ό ��o��ю(<�i�.Vx�|�Nw� :!( Z�Pl�cjiުvA(�/�`A� ��H�U:B=���LkfƀX���;�"�����v ����]����$��i����S��o��{@EuI#d˝R� � � Kl�u��Z��ȋ�Y���⋈d�� H�A\�1��ATk�2�˷Ƌ�Y�E�l+/kT9z���Zc+å�p8�˛��E�3�� Þ�"-����Ci� )y�S�/gR <��Ǥ��,�j��=_�{�m�m�~{�����B˔:�v�3��.�ijx9�خ�?��z�_��;u�u�}��0t�D�I:]��#��4��K�'�~ ����ZW �j)*��_�/�O/�"��n � ڀ$��n�b������2�Ek�dsȉ�t�~Z�~�3�L`GKk ���2�P����nR������\�}��V!G-k��v=��k�?)���/~F<�RR ��$��{�]�%ѝ+����/��q��y/��R���;�&�}əH���p� �f'�� �D� �2� �CZV C��.�f�3�5�̂mFA 6[�l5����M�-C�v���y9h �y]��2A�E��*�h6581 H�`�Z� b1��c ?Qts(�t����;�;s��� -k E�3U�ZރG`c]k:c���?�((�?x�d�iD�:�2���Z+umA�14e0RDd�$"�I p!��xI�ba>y��H���+�$�F �u�'*j�D��86�������v�.��� _� #�ߔcH,R"�A$�� �� �o��B�T�V� '������Ec�&�iք ��X�S��S\��4(�/�`�� ��I��U:[5,��ٝ]����J��-�搘�d��W��x��h��^�E�c�Ga�x����3�P��FȖ;�x s } -��M� V>� �;�8�Z? ���lYy���ɳƋ��=^�# ߐZ�k=�4 �y�I�Hw���r7iI�GD*�CU���q��NgR"���p9�g�����u��ۦ�=��->0��:�vy3�.�U����ج�y��?�ލ:�>��:m��$�.��N�t���ӓN?��(� �� �j)���o�>� ,Z�{64����n���D�h ~�he�WA;�1l�UȄ�Zk?-ko��2IqԮ����J��� � Ĵ�,mqӭ�״7*��䎺 �+!�qKg�︳� ݹ�� 7�&��t�!wK5J��w��%��#�? 5d�f dǧ6�<����:���/R��5զ0.��ŬU`^b)d���i.�103 /� � �J� �JiEp���1�� �b105^2.3/�� C� ����qK �9�%Ev���8J��E���X֚N՞�f�(?m9S��;�!t�ShԲԦ��Z)kϻ�+4 `��� ��F(��`&��� :X��1+�ȘAZB�Z �T-�~�W� ^M��y�)�t �'���>M� �4n# cf^� %�����t���?��Vq�,�b�]��\� (�/�`2� ���H��M:ua+ SĎ�C���Q) Q0�l���m�+��Y�Su��a<��F�&������Ŭz���m�B�L2� � � (�Y}�\9X��5�q1���w��XLO�c��jCGW���B0?.z�G�ȏ 0-�Q QʀM�Ԋ���G��L��h3�$G��i_ �B���Φ�n?\�&f8�T�J�����4�g@l�1E�2������1�#�$��Zk� �XEr�Nbg=��� ��⦝.ΥP�u�wN}o��cv��� ��؉�WS���T�Z+�˸ e�g�Z3�@~��ߊN �I\��l_e�V&�E����h}��K�m���$��ּ9͋Ӽ7�kk�Z�Қwּf��K6�ؼb�v�r� �,a�j����(�q��e�/�֛�ɷ�v!(E<�q���pM�. ��6] V�f�p5���� ��g�n� �IJ\�?f��)P�^��� ���S�ڨ���G������N ˓U�F�.c���n��ƶӿq��_��}ߑ�EZb��;��2 � ^�������v^ ��5�ª�k���PO���^�uz�� �o{��l/���z ��7\ ϴv�Y^��!��F���L�S��"�F I���=���~Gk�DT����X���D�F�� H���H?F7�^(~�UJZ"�!-%Y��<h �g��O��� KHrGJI����:�� R� r�ݷ�x��]�W�[�p�����g�/\���7� ��j�C�41SXrz���9^4�Z�X�����ڔ�z��]�2i��iGʙٳT4����$���Ywd7��h��ey�AH%�AfFDD�h���!� �<朑 �´gW�da���lj���D9��� G�7)q�l���@+�1�� ��8�*�/ ;'*�����H�p�힢H~��.t� Nj:�f�i� �\ �<�CȪ>�j ��lјH@F�?�/ �Ė�${�ro���{) /�Lg� ��W�m��hU{ Φ/�s�E 3� ft�E�����k� 0n����O�;�1L�O�)sS�<�ɖS�i(�/�`�� V'�H��j8(�\ D*�1v= � �=y�°D� 8ɻ���k̈���s�u l�05ȶ^=��"�֧���{K�dp n v �'J���q��^>�;ŎP����G=_��X>E~T�ꎟ:m�� �Gw��B�?�����Q��K&&�\�dH �Kb�Ml�v���ʁU�}��L.f@N�-�t��L�ĵ���P� ��#;T=k�<ճ��n�*�����_�w ���ʼ��z��"5�E$�s�����*M�s��t�N�j�E����o&b�� :)?^x������Y�3������G�P~T��5�y�b��t�=��-�ŦWB�jzkb�q3>r�����;�[�L?/ x�t�*��'�q��;���G37�E�"��C ��&2�f$�� �ʶC �Y��x�Y$�ph���b,2�CK �k�-��H�CY�ЁUꊊ�Ą�T"���kdE��r �I0_+*.)f���e�X4`0M��N+��a�$�y�s�wZ�������)2����C@W�; �m�ƨG�3r��D� �= `)SX ��I|�"[T�#0��2�EpA�c$��N���a��b۷��T[���=F��J��5<�x�bK@m�V�Q ��Bm�ݘ�����aŶeaA%�"�%�$����+��l�x3�Q �� ee��8ݺ�r(�/�`z �_rH�& �fӦ�'��|�$�(g���Lg�� ?h���V� *��2�����oC�-6�iO��!��*���nr�X Z _ 2���)��� i���.� ��4�؍1� Q��}z������N�8�BrlJv�S�]�ێ"��\�P�]K��ŭ����[&�'�jql�_���J%{���� ���]��}������vs��S�M*�*-U�NEE. �e��d�y�q��� �9���j155�<�L�l��U�h�� $տ����1I����#��$�O�u~���~hEΩ�h��HN�y� N�&�ЍNi��y� � R���� �cs 0H� � 2��B��0��|�4 K�� �[TZ��W�E�Ł Ț�)���� �W�Y�T( T�T� (.�*|a�\.� o l��� �ϳ�:�`D�F.y�L��N_!XvR91�OD$�tS����7 ����"�O���� � mnݢfo�� ��Z��&�Y����b�!hywۉ��ʨN_1iՃ�i�5�;�Ã��D� ���/�1�Ϟi�U �μ�o�V�LX�`�7-$(�/�`- �sI�TQ:fU~�+�����5[��<Vp� J���Pg��zʑ� p�R#�폻 ��tO���� @���Y��l��S Y [ b #LwsD�v7e +ʟ ��{'Z��o G�;3�+#h�L����J���^]����m�"=Kv�1^����� ic��`w=I�����/{�*ک�.m�°�=iw�4g��7}wח?鼝�飠\�0d��-kP�w?�=���= ̀��+G���n�D� ��ё�R���ތ�6 �v��/B���K�>H(D7C���Lx�Vz=钠jN�D'��� ��F��Q�:=b��Gf�"���Pz�cpn�#@D�0���� "ft5^���+�����f�2ה�s7��:V���`-+���²"sU�B�>���0 ��*Հ�JՒ� !�k���"�� zp�^*0��p A�4� /���S��'�]/�42J���N"1�2 ��*���"�Ol�܁� �[-�b�<�����BK����/3'd`�k�/�K5��L �)(�U n�y�,��E�c�8ãc�I �#ses ,�=?�h(�/�`u0 �V�D`^N:�̈́\��������L���k�곇+E�q�6>'i�M���F��0}�~h` �S� ���� ,��K����C&�2E�1�\k��uL����+�N��a1��)2�邪��Ib�SdӅt��d�:D�ܻ�z�"�3�Q/1�@�F��<��q�����1�S�a}:D�4+Z�|-�: �9ҽG�0�]N1��)/?@}�>���A�}�����/��6¿����yF�ׅ�����h�/�PY� �f>�ІX�����C���Iv��2�U+�Ƀ[��h��6%Eebh�����VG� �^�QH�d�CWf�F�����, UR����OR�Ь�]��� +�q :3�a�4�_��R7�0���d�sS}�G�)�� ��=�zR+���0�ow�����=�e�m5��=7�D1�,d9�-C=9 ��3=�y�^~J����2 ��9 ��\t�hy�t� вPj�Z^���eu��-�@˝Z���P:sC��^ }��25�a~��_�3�g�� ����O�5Uh�䩁�����S����R������� /�;n�K(@rZ��M�- ��C��AEk�L �i �$���SV�3I���3{��>w1'�2���nLnZ jQ����<}� ��K����б�<��Nܜ�j,�R�6u0�PA�^��[[���v?�� ~�JF�F}'S�l^��.�'��N�k�&j%�B�+�jS�m�biayM}��.T��ڂ�?��p�w�O�OFZ3��Q ���}���l ��4"�O�>��_wk���/��v�PŇ<`��lT �I�� ���1���R�P� �ꪵ����{ϻ��� �G�a�ϓ��>l~x�ϼ%�j� �����a��oL}0W�,��k �Oc�1��ݨX��x@V��$��Z�,+�t��� �TXGd $ז�V*��[\Ib� yE<bue��ĭd� W�ee�"��.���ZX�+�E�j]��,a�#�G*��W�9)�j�,$W� Ɂ�`jB�T�>l�����u�@��Bv]�P�0R�-\� �`�4F���_�*wR��3e�M�/ ��cj5�{��g��W�� ����'u�V��� �S3�+j�V2Q�� ��>����vn�Щ_W�N�/biwe�����P��fY�U��m��m�����M-�hm���$>����� �7���ז/����a4� BhFfDA�$�`�1+�P��&��H(�;�݉��&h~公 �y?�v�DV��h��_BI��tĖ�<:�9z���}`�.T�*�w�ݖP��X� =�m� o�H�� �� l;B�%8�|�g<�?�T}��Vض�hZ� ;(s���2�5W��-FpjZ��>Ȉ��Gw�~=�^�9=�w�k`_8yh1��~�[� x�*[eJ�6*@���J���kc�M��@f�qx<�/|���O1�S�O��x���CE����1V�M��ّg�b�$#���� � �̑�v�j! �ІĨ3s���ҏ߀�aJ�M$=l �;��;]�&<�R�DW(�/�` m; zedBPdR���:���ۋ!�4茘%xx���� ��X�f��1 O}V��$ �l��'y�����Y�N2�UFV��U��� ;f�ZW� ҷ�J�^��� *Oc��s� �F��;͇�������<U��ۼ0�����3]�`�az�r�K �V�z � ���&�1K�z�mZL��.�ͪ���x2�(dn9O����mO}��� ��U�z|*�����9/� v�z ;�U �<�ġ0�ݖ}\Վ��� � X �a�ޛN^m�9� "ӒůR1BuM�S ���S����v0�2�W��hh�b�Hl��B�J�8�h�v�`��UJ��J-R%���]� 5�Q+�e]�j]�-�uů�%l� �����R B��8���/�:˥� ���1�9��XZ[���kt7Yw�/"�d����u��ʹ��J�����q�o� 6�*@���@q_�լ�=ͫ�\��#�[�\3��Z��f/�r��߫{���w���7O�}d�g�8�����3�"!n"!�y#�Fg�.��{�-�>�W���>���z��qc n�P �֜� �� ����q_sgsw��y����G 0�[�V �f-�+"#���]�������Ϲ݅=�:��\�����9`�`*�J)d� �a1 � �[��N������J� ��⾸���ثT �y�Hf���m? ��{�-v5W�k�ͩ=�2n]�#2��G�[���\ >һ�+�!]���* �_�胏]�Yu-��z��� ���!�*p����؆/��� �]u� �~�gե�t����� >]Ԃ�w7��8��5t��@)�t�X}��} � EX�\~Z� /�5r�f ��=z�"�-,cĀE�}O�Y���~���w�����p�G�J�p_ =��]�s�uZ���k|"窻ҕu��" ;Bp�~��W���c�6�Y�G�i��ÈH�݇���{(��}m�6��o� 犋�[�A��f]���$��פ��㞇����3�]s�\՝�'�ތ� ��� رZ�~��J��~���:փ� 6�����k��Rͨ����SS�7����Ω :j4ِr��z.�SN�&Uԓ�s��I�l0�lB55�NN9m8��N7�:���x�Rͨj5P��ém *<AY��dzB�����(�T�es�ib)aiC L�T�X�b��b 夢��r��Ĵl��qc�l��W�(˃�BL �W����o��\`G�GegXɛE.x�G<�C�Ⴛ����J(^w�<�{� ���5>])�����b� m�8|'8#E�_0 ��_��1:x>fg mc�Ə:�_7pF�H���Q�`��n�w6��k������ �_yqY1�^��c���Y�|B=#F� *y ��,Pɋ E���� ]��Q0� bLDdD�$)t��!3�P=TV��$����<R�?NR �������>��,��~��h(y�?k�N���)�`��Q�UY=G��{g�ыx9D{E5(��[z�!�iDj?>ϡe�&'M�� �5�Y��b ��kNh�����^;�O@&�k��_rG� E�H�^�[� `�q&���v>�=�� -���f�d��l����q<;Q��s�u�k�Ǣ��<-��9+g0����v��#~s^|H�_d�/�"�c~_��������z �m=ӑ���ͨ���5 �nǾ�8A/� v�4x��3�_�3 3�I �Ỷs��<��0�ԩ�� �tFp<hZ��p.�(ף/���D��0 u��UADt��� k��1<��n;NX�� � wh:����-� �뜈�Y�;�{ ܩhF��5��h�(^OH���hJY&L6(�/�`� �C �q�B@"R:��;ey�W�Թ:�휺�r=�I�#�?�0�ٹ1��W[ 1� �a�^���R���[+�%D��iri��k��tos7s��}z��S����X�'8r_N�P{v4��9[3e� ��-2uN5V�4�\9� �9�6g�Y�(g��=���;�'�~qKP���xKb�mQ�N�^���=�Z9?^圥�^�t��� ����] �{2/v�#��$�]�ҩ[�={�m���o�F1����QΙ�����z��l3i۶x�e���/�EZ����<B �Eb;T ٵ1�=@s��z<i Q�ΫeS� W���0�3)O�E<�6��EY#Lq�"��֎l;S�ђ ��K�2%ظ���Z]� �}z,� ��C P��N|j;K�Z�d]>�����iW�Tq��y�LmEj���ʨ`!ke��l��H� �2�l4�ӯ~� ��I9 b�9_<fv���{ov�r��,U� ��zzM�Z�U�>?��.�X�M�R���~��#������P5��AE�)݆�~_>�|���ɇ�ؽ+�'��9K��A���Cx����#O�螯����I��� �|}w ǰ=�ӨՌ�+ ýv�4_C���=�[Ť�b � ��~ 0U �iI�g��m:�/��2-]�WI���$��&�n��4:��_��~[#�C#�B#�l��6_��{Ձ�'�!������ �����~8w㽿���^��q�{9�s;���Um� ��Um4I��[��>�Pyo�J�O��@ʹy�9ci�&��3���z�W,~ �ǹ~H^�ʹ!z���^��� v zW��mL�(�q�8�NT2e{���P-� "�v�*�N!��-�ְ�6t�(b?����5看�v�P�R}�ᱍT}8 M�SS�r���)�T��/��Nl}:1���c��&D�����a��bѾTs��Ė��.��,���V�bY��v��fρ>jac:h��%�w�@⅜LQr�V��� h���g�wy} {�֙��PK��7� �wme'5�ӷ�z֧�k#u�����x��}5IT.���b�aT$�v_>�.�%5�:8}�j$ٯK�� _ O�/�%�/5T?��Z�,[`k�Eէ~��O�?��}� N�;�����^v�Ŷ��Dw�q�i��ͧh)Ȕ�ϕ�� ���|����\Z2���YXX�}A���j���E�� ���//��� �V�,�-f�� ��//�&��ƌ�~�l�X�bx�X��Y,VgW,��E��kFַ�5�kU� � ��UV�ٵ�k���z�j���/L���̪) �� L��0��lf�� �l�غ��ɵ�FSk�L��VS���ċ� CՌپwD j�$0I�^ �zSR���ȰԗjcJ&�O�1�&�}WL�����0mHʥ�\S�� �D2�kjK|�8)�d�S8��΄D����@ �!�$G};�~�� 3�G}��]��s$� Gu�f�$�ٷC����;*h��+�m��[�O��(x��'1J5��)����@m:� ��Z<v�УfB�Kпk;A[�C�f��m �}c�ˎ����R��0�QDB4#"R�$�!)G%�p�TV��K2��#� � . =p���Y3J���=*T�b�����0�!�n���iA�BL<�f4)�_T��e�7�� S �n��S�u�:�������*��C��9 *�n ��Ȯ�� ���މ�t!��A^1��y�0� c�Q �1Ŝ@ 1pF /d�m`#Y�L�(�� ��u`����!��� 6�� ;��-!@��형�{��܃ഞk�Q�(",��؊!�0�H�!JB|� �d����!��\��d�R�����b���X���.0 �b���!r ��O��㯵V����X� ����A� \��ߧ`�Oa(�v (#�C�M�_ �)�H϶xb�I�&"R� .�L<|���`�c�#��CI"��Ӫ|�9l ���5R��t��Ǎ#H�Q�CI�% .u�i� vf�bO[��$6&�#V�ԑ�$��!�/oM+m��C�hf2L��f wh�v �=��^G.+ H�j���Q �IJMEM,?)��5��������'3�&�(�/�`��! <�I��Q:��Ƃ�,�3��8��?c��Ȁ��.���m�s��L9���q_r��� MR1 o5�I����䓽�N2� � � MQ��KƘ{/�-k0�2�NXxe0o|at�%g��� �Ձ�u���[>�#y� 3��<�<(+-5�^���� �m�`�y���k4sV����'Z35lz�� 57 eU%�z Rڬh�T��9��>� ���<,���l چBZ>� �1R;�����{�m�D�]�c4�䐪:��{�B �ζ3�3 1�b�n���iRH�Z���_p,�Ygp�dL��ɪ�Kɘ�&�E��~H.�D�ݏ��\�o�y~�;:w���<댻�|��q,e[�\��i��i)�,�R��r����iS~Z���r/�7l�i� y�o��~�W� _�P �]l��Kg��%by�a����[:� 2��1��������e�,F�O�8�4/�h��Osm��k�6�v�뚆k��.纒�uT��גJp]�>�,ϵO_�<2kf�p$�f�b¼�6���[>�� �� ��,{�"�tٴM'�܌X1�>Ei�I'��kw۾�_W�t�=��? ���s}W�Ȓ�{��'7�!<��;X�É��(oy�`0��;M�OD���o��� R�8���Y�����= Q�$�^��_�2 B&�PZ�KZR�� ��`H�(C��>��R��/�o�Q��/I�< �+-�::����v�Jf��$ʼn��2Z�J��9�D&I����붢@��P����R2ν�{/��f4��Os-���B�]�x�ݧ�� j�� ұ\���G)���dԬ� �,o} ɛ|�Q8� cdfFFd�$- �2*�E3���b��Ӭ�2윻���y����b�v����H=��Mļ=ְ�p���n�tԘ`�tů{Ԭ,M~Ce=G���gu�:p�N�q����Up��F� �ȶNꭁ�O,ϐ�p� �)�,%ޏ�bU.}�$DL��j1 ����4�B� ����"�P�� ���5"Fg^uM�t�1ڬՕ��|���b�%{��zD�ة� gR��`����ˎg���cZ� (�/�`% }� ��d1I �� �w�OW��%w�ٓݼZ�� �&.����}��_d�Ў��x��wkM?M����:!o��R&�;L�MQ�!#���4�E�6�r���+A�� ��f�[�Z�p�����? ~=��W��m���� �[�e �r����f@� bK������=��>o��'�·���)���s��)B�A� �=?UsRG�=?UB�9Fʈ_D �S\ 1t����!k�ؒE�<c�V��T��D`���A ��xx��A|��-����PSc�M��긤1 !�� ���s �I�4�sN��k��Z��� ��]v�[W7N6k�V������Q����N`���� ���g�~�.q��f/dž@�u]��-��ŭOX8���v��5$�� ��x� L��k��:��OG�n+M�=�ŭfM���5`_��_��͏�������s`i�fj����+�W��#J�E�y�# ���"uޗ9��, ��S����q2���3 L�$|p�dv�n��]�y�ڊ������0�P```� �E�˳X����&J�p�Ĵ��d," ���0�6/�I� ��-+�\�^���)��ʼ:�� �?�p(?=8lE��Xd�p�� �~3Ϧ��;�p{S.��wL:@}V������V��i& 'zЉ_�]��'t7��� �F��?�k��MJ���1���Z�g�t�-��HE���V�L� ��] 6�P& ��9[S �6��][���.$2;{}���wd�D�w� O �ۨBwj���о�n�L�Ę�v��\f������]F���y�?7_��[Yf���a���*j��˲�G�n.�B�NSY�0E]a��A윭0Ġ���b�5�ϼ�j�&�3m��� {���L0�0�a��&��i��P�� ��E�L*b���h\CAa�`����D�������~L�����Ǒ��=$a�n�|�`�o?g�c� E�f�Z |�># z2]�9?�?O9O��8����=q�L��h+��u?��2��W�����%(,ͤZR>��C�'~���/�>�1�.���ZVj~���C�0��V��D9�������81n�n�.��D�m*�M�s#��0`��lY��WCy���)Dާ��?s�=��}�l�}�&�3Q�}��Ljx/F�$��U_�E����p4?��|���6�"N�]��r5�f�b��{u ���}�^��By�y���$,�N-��+����"�F^�� y9(�n`�ՠț�/J�0�Q��Z`䭠��c/F� ��y�P�P^��y{(�:`��A�m �e ��a��Q�]�ȫ@�7"/(o�$��xq4��@ymy (��@y 0�P䥱�;c�7j� �a�Q�a� ��+��7�"� "^ ��.��-�xY(�`�U��{Dy���)��(�xO$�0�(�H�u2�(�6y�Pޥ$^�$�$��h�-y��x��x��x��x�J�DI �����8���7:I 6jP�F3��<����q2�1!Un���*!�c?Ջ:��Ⴧ��L��N��s����_%�� �ݨJX�P��<P;7О9vKF�.\�(�@�;,I�h���x,i����:$$]�d[@ J��2� ��q%aTπ�(Oj(��� 2`��c�J%<�a�� =��r��L�%��ԩo���n_@^'� A��W�� �v��|@�=D+����W��P���<�4�vу��.vh��^ܠ"��h y0���U�P���E U�=��>�$��G��4�"E g+~g+�?9�T� ͏t<� @@A� �s�C���2��`�, ���ׯ �F��؍��� �"R&��x�y����H��2�B �J߬h �� "� d�3b[��f��JQ[���� �A#J���*�!���Q;��Q�s����25L#����M�g��� ��ӌ��v�P��I� �&+���nB���&�h�Y����*a<(gH�W��y�a)���]Bɒ,I �p��D�2$z����P #� �Y69!֍���s'�vB� K3(���p �g�y��Ó`;7m�h�.Y��"d�>����/j�҅��A�>�'&�۞ `؞�����mO��9R.$���%|Pm��)����Z)I�F��R���<(O$����j$F}�g�qڋ��H�� =�, �������j��|����@/ ���%~�X����Y��Lh����a��u���Jf)Q,h �����3b �����9r���C*G���rqD9Ziy �R cX�8*�1�.�.�\C��Y]X[H�#�ъ�� u�� ���AD�t�[H���`�rj*�YPV��U��k���V��K��J�BZyiUm%]t)�VSSB�P1R�V/��o!�z�F�䧈�fA!��Z[ɨ X�#ʀ�6�$����^QOD�l��M��*� ��A#I.RŋcFUV5h ��Z\H"S`B���J�-/�VA �V�K�(dW���2�1��� R2����BVe��� �EE� * )dHVTT\؛J�B��|�CV��s�oz7�� ��E;��(g�ԩ��I[�9*�����@�� ���=%B� B�Qӄ���L�9 ��� �ؐLk���6t�A���k�A� ܰAW���58�@���@� ew*0� }��bA��1�� ��^�V�v���@"�g��=��'����R�,��s�⥹�x�J���N�7����丐9>�<�߅����^;�� �%cR���(i�h*�L(p-��%� '����摗��\�_���IE�����^qz����vտC�u]Qa��v�Ե�5?��ܬ~^ˠf��%e�_Ǡv9��2yn�S �q�XDHAs��CA3d��J�u��@�A�c��0߿WĞO(8��qB���#Τ�eMo�YM�YY�� ��L���\�'�A S�G��I�C�>Rtg� = �z4�ښ.o��p�ߤY��P�[?QǨe�L5�M�O=��>�@�fa��~<TB �h��;��K @�I���[ K�豥/�%KX�%�����05���!�$I�� "q����3AȳX��$IRi KwBe@i�d��W,kgHFw?��0��7GQ�*q���1��1-;�E(J]f�jd�d��ŶQ@�(��T��mW(�fG��,�s % ��~QLl��f�ΎRw�F���w4�@��� e��+Q�"'~EJШ� ������?�b�h Fb��&���mW�u�$��Zpd�F,2iL� ;�<��S �����H2�-5�^��A���Aw2���h� z\L��U�g�`RW���X�gS.�k�J:�V��]aX�� �|I�(ž;����0u���!�BK~�g'��� �D�Wȃ�E4�8a�~0����/.��2�<� {�x5 ��Zu��3�nN��?��}$����P�_��[f�8}�?�$�&�v!�Vggմsڗ@� ��/�>��M�� {8��.bE�\}�����?�Oz1H��_�5��S� ��.?�)K� �쨫U|Tp��T �dK#�Zj��5�|;�*���θ[`2>�k"������H[aWx�,c�������T�!��S��0�|�f��=��\?Ǘ|�ܑ ��2�*��Y���i,[ �h� � ����;���o>dmߴ�"��frNub�:*_n�Oz�_Xi�������,Ee0L���������;���$�s��Hi��v��Gf5�-n��|d�]��� Q8O�`�.�wQR�X�rd�n�a�n� ��u �f�l+��9 �$t� �]A�c��kb��D� �!��y�������C qZ B<�0S��_*^��Nس`�w�Q��Ų ;T aw����B�\% ��n�\ې.fD@ cbB�~�f�z_�s=Fg��m�Cg� ��V ��,��D��Kf܅d�^d� ����k�A*�ga�6�I�ضE��%�he�_x�����]�9��|�9 o�E&�� ���«� !]�{6�� dػ�4o�3�r=-�tY�uʵW�+�����$� ��N��D�ނ?��#pAG�%Xh���$�v�l��B�b�Ů[ʎ$�����+S��9-�?�ؐ����S12 ��A��� �Z2�f�5$��]#rF���{bH[� �]V����BdQ���]���K�( �p� ��� "�{Ac��3%|� J�WO�!Q�4�:����M2&7�������#!N�� ,���E���,�����M��t}�1* �XU��nXr'BG �W��ޤXpMIw ��=�[���wy�=�����KA&�V��"��z�����U!�%(�/�`D �| �d,C8�f8uO��*��H�u+d�w�(釻(�%��a��ihՙ4B��S1C ME*,� �9#BFږ2ɶj�+Dy�)��v��(���2,��&Э!jZ�~�^�G���E��?�/��~=?�?��̴Pǻr� �IX�[����HV7�4�o߷ EÛ����3��!�o��DB���� j֕��#��\��ђc� �J�>q��-A�7�f��˸6ן� 7�o]���$br$���/}Pأ�d� � �5�C�m0�rF$wǷ�gfV#�E��6Ʈ�bc��Ӈ� ��$h }-;#n� �c��.�By �@2�B=h�U�nM� џKT�u>�� ũ��rӥ��� ���� ��|���B�.Mޔ7|�쑌nE;�R�'������5m�Gq������~�v���z�y��#����w���y)a#�����p]�xp/ލ�b�ө#����`��r>�9��x�[��֕��ޠ;��᥄�>�.�>��.�ӵ�g�&/u��u��1W/"D� :p�����`,���'��I<��}���� l�� G&MΫ� �J*� �=o��9�8Hk��=tx;��I(0�4�O�]ꤑG�7��N!�5=�;��Ҡ� F��>2ij7�i�b�<��Y�k����*�t2il'��!���3/'�2���l��o�}�;�=�-k��ة˅Oh] <I���K����C��Y�s�����]�Fvv7�s6��dc]�e3������I�V��E��EI�Α"|P9�L&E���> TO!$|j�~!) �O��6cR�z���R�e) ����&����a�ɃG>O{�/ �{�ќ8�Z�|~??|�1Q^$O?Q/bxmV$ed�7孏��,�1δas�<��to�R��(��'��C�B �t�Uq�L�MT3��Qlu�X�p]W�U<�1t�"|0��sU��u�����w�M@�n+d�lH��8�� s?�cH��ʖv�Ƹ��t�ϵ�����98rT�W3�774m%���� ��r�~���<�~�Gߓ=�b_�U/�|����S��+�|� �=�z=�.���Ȯ�}�<����Jy�P^$R�ZR�YR���GR^ P� N^ R� P^ �x'��5"�[�� � �%��Ay!Hy���AR^ (�#�F^ Q�y8y�R� (/��wʫ#�e �͑��@yoym��5P��� y��E��{u��Hy@yg��2P^R�(oF^)� �ׅ�����"����w�ɫ"�% � �ț"�E�� P�=������(�(� ��$R�(��"o��� ���~8y=y;y9l�:y�R^)�7���P�5y�'o��(�#/�����K,�O^��.g�Nj�V�c� �{oѻJDJ=�ͬ�Ȣ[에pE��/U�L*z�23RѨ��D4QM�~g2}g2G=C>x�mO��W�i"��'��Qo�� 0`��wE�HEF��>��c�Q/ �� ���_����C�� t�aۄ^K{���S������)�5�@� W�0�� U�r�ORNm����S)�:^�� �����:���9xx�44s�lf�~��elZ��k z��Dk��c=JKB5Hr�2�1�2� � e�Ze���1�� �ı�b��h�_�!Ɩ���S��gO��f����}�V�%�li��3j.��60BCL�zԫ{ =0�����X�h��u�"����ڞ%�4>)$� ��P�$�ck.�7:�1��� 3 �cP� �.�#@PCX�qɀ[�"F̉h" �]��8Η G !�c��/�.�&)�C]c> ��GU b�l�� �C=����+��1� ��T�LL^�����I-�>��C��!Q���% ə֦���I�?��� '��S�Cw�j�u�*���()4QFHL�~�ŴY�L��u k�x1v�X��X4��j@�h�������M�k��,0.MH#t`"�N�X�j�u-��zfX�=( �һ� j���b�,� �M����(�)�Ug2��`gM���_�� �l*�U�؋���5���F�#|P�9֜�/H�{u�|��U�����:q��:nyAaҕ<��:qL"W$O$O �0Ir�z�����I�q+ G�Mj W$���$a2�H��'�d'��I7�b��,0-(I��0� �`��:����Hޮ\`H/0����2�*� -����$+M��A/q��u&��� � y� ��Y8N�� � $[1^p�0z9�jr$ʗ�W �"i�^�'Xq=A��r��� -b������֍'\?����P����� ia�Ť�ʊN� &p�&j��&j �މ��D�'���B-�g��f.^�>�\H��I�γZ+��z�bg`�Α 0�s�1�(�I�[�4 �� LE .�{~�jd/ׂ���tv<&h � *�CA�� ��)a���?�� W"�� �65����9�[���A0� �/6^i���My�7�i��)���,��n B������� $�x"�G �|<�@�h� �j�n��(!a���axT���}�%�M&SmJ7�7��Q�8, ���i���}�����z�W�^M\AM �t�h.:����] ��T��LJ÷P}m%`Ԭ5`ؔ��r0�h9l4��8�\چ�ҤI\$MRҁ#�Ɩj��J R�@ � \54��ŴИq@�I��z�8o����T�Ϗ��� ���O��Nr�^T�A &Ā��2�w&I �2� h�Z �c�)����J1(PB�0�+~�7�y~��.����wN5sw��A��� e�2.^8 �~���-�B� ���h ��1R "a�s��4-H�BIRY��h�|�F� *Z��@�[���#���|�� g�~&G܉#��$�e\��"M�9Fh/o�ˑ0��Z�c�og0_���5}��fe8 �LX��o��V}�Y��B��L�d��%$ ?��aj��i ����lsW)�v��9���0���GCZ.�^:������"�?�H�=� ����^u���z2�p()c Y�)��W"k���U2y�V��!��TJ�Bg�1�h@y�Ah��1����g_�aHrD�6��d1a� m���i�������u�d�(���}�@14 :@Wk� ?/*G8���䲲]m1�߂$r��G��z��7��Aǧ��,5��F��{�X�#5�� �� ��B�ʛB__UYꚈ⎞|�H �o�%�p�*�{̕�0`�yj =T ��j��u� Ս�x]�Y>Ϋ�+�j b�JV0��`� OW�^y!M^��fW�q�>� �{ �]x�����4�f��S �R����r�8M�>�� =D@2�����;4��gԦ�iO�� 7��H�y�椾 6�ZK A �w: �����V� �O9Σӝ��~]�隅m�6 g;�A � K�� �d���M �0h�]I�G�5fZ:0*�Iĺ�Z �]� $��W��P� {�[�L%��S.~I����c�Il|� ~Ԃ�m�_J��t�9N ,{`� �4 Q� P]�Yg`�� �A����M���S�:\˄}nƬ� > Y��l��ɕ?c��71 ���Y�ν��_s5">�Eu88�͆�l�&e3 䠡�y�)���[�VV�X�NK��p��i\^�w[@�����~��Z4m'�W�Y�Dp��g V��/k/x'������/�9Ү ��x�3^ ��~uu�T �H����n��i����� m���$��IN8�>��xVhd�d9���uh�EGQ'���`���MM�^b����j�E�g2`��ec���N�I�I=�N�t��QI7q/nT�� �1L� ��W� r���xR�$�ӱ�_0F*��!��X^�˺���2���y�F�^��4_��Y� K�Ib��Q`�s4��y(�/�`�i ڭH&J ��������D�D?/ �7���^FK��G ,��9����L��7��^r�OȄ����?H�l3ؼɖ2�Ic�����(/�% �y@�JyM�ח�(o����5��c��8A)��ʞ��� ����~;?���W��v��i�� {+���{��i�P"J�FÔμ<��.� L�sN�G�Α8�U������^�4jH�ϥQ�ƍ� )gW��� � �:T��ެ�[ڟu��"wg5��� -�a ���^�Uڗ7�?�Z�� d��W��倷5�7�ֵ� ο�%Z����cM ���l��ɭg/���z 4L绹ZBh��� �m�v���=́x_�D����B���k�S�V��u]��5�f�������h��z:��g����Y�u�}�y߰�k�ļ�a� ���1��g � �˝��zV��r5��W���?2�۽���v�o��>�벖p~��Zו�Y��ȨH�(���2}e���Q�O�Vf �=G�F��=-g^^�v�[^�8�0[sd� eJ���6�=-{�|;���4����F��Ȳ�xȀߵ���, ��M�Ȳ�r8���n��24�rs� �}�lw+ ͎�;[� � �ۥ)�� ͦ���k�cf_�B?�u]3;���� �}�� 7|U��Z����1�w�y�����>�T�2 ���G�]!<�J�gr���_�� r��$L oL� Lr�#Ȅ �?���s ��Q���C�D����~��8"'�\�� C �!~��� e� w�D�-I�o���y��s]W �&H`:��`�'տ8$~�Zp�/�=�v��K$��%L�bL��?4/�bwh����g� ��O��}q��ʭ/�f� �s��da[S�{+G�?�r�!ޏ y V�x���U��&yI�r �7��t_���V��K%u���O��:���T��~��z`�ہ/F�����NP�&%o)/(/#� �x��*)y���HP�#)��ׂ���[A�K��� �K��W� 7��W�$���Hy}������yHy�P� A^ A� E�:�� ��9R�P^ @�@^)/�U��Hyi��3P^R�P^C�1J^J^)�(� oR�k���-��u����@y@y��x(y � �e!�]Q�Hy�P^����+rz,��>i��h!IP� �;z����Ǽ� �� �@�胙�� ̀q ����<�<ɳ�8pY�'O�(�g��QO�$YD ����'��8�L{��q�<>P��Ԯ��<��* ��yc��A-�n[!����[��]]l0�L�b. 8��i� �دs���| u��j"�Z�/��L�8�ԿCq �όyP�\a9K���-(��Ψ2�k.����a��諴5hf8�T��Y9�m�$��ʠ���gB?5�9�]�)�3�T2FT8�E^�3W� �a�1�d W� =��O}@q5 6�� �Ȣn�q��ȃ�e$�&�h��0���`�8 � f!�c&� }>`S�^T.��� �����T T0* �}I60��Ʃp���`��E ����t�5��E���^%c"� }0�/��]P�p ET�(�}HF���h �`E��/+К�0:�b�+�� Y���y�/��A�TϺ�[�}Y������]��[4+єU@;�C����!�������8� � ?z���GM��φ�� \tY����3��eb�w/��� �/�C¨�r���Cw��L�v�Kb ;�2�BZ����� j��z� ��5E�T,6----!aZZj�EC(�aQJ� F�+���Փ!������!\5 �MAp��� Ւ&UR�N�gaM=�<p�h*���i���x�F8���z�(AMEIME�(9"�� 1��()����*, ���\5I)��@eE�Dx��ac��b�PJB�+����������}RZ��,&D���"D5z찡���W�"�,(#ĢT��q���I�%� �(�f�[�$ �#�*���[)I>n�ǻ��8zz�(~�m ��Z����<� Z����`���ƃ�� Ah�ĉZ���db.p�u�БL ��ɸ��ک�6��%�X�0]�I:&��d� �K�%��� ��.����&;��(�J|赧N3lm$K���V��Y`���-�f>���d�~�X�,��� [�٫@O�S��(Xc� �!:hd��@�&2�%���2 � ��@A�� �t� 0 �'� ~�JE� �Br�*����`���dl��M�c�O;p��ؠW��`}#�y+�b.oRg����)?����v&�@�UzY �Q�o�M�c�C�UN��'Cb|䁠hL��~ �ш� Rq�$ �_X7����y~�Hg�1�<��;aM�Ë�(�F�7�W}�Ky�y� ��X ��q<�B##""�$IZ��� � �C��P���I @�_˩̍ �ճ�Lu�� �q)���)����Hf�]��0ˊ͡V�?W ��:��t��ֲ��Gh:d�C���E��0�(F ���D�N$�ҠH�;�j&��b&]�7ާ�E��Qݔ��Y.l���LML̬�4{ӋF�$@����ހ��f��h�\�5o�?�_�Yl� �`{� �t���P��>�{jS��֤���5�ӇB�ͶO��^����JG������ ��M�Q�G�� �rZ�KQ��Vjzf�a�f=K����>��W+5�vc�+B<��l� + ��`��(@�����M蕂����8�Qa��:M+9���D � 0��R)ԋ��xR�6�3G0lK�[z�� � Ծ��EER��|0(DqDV2w� ��G8n� ��A���83�O�)G)�&��.�0}��%Q�]�{]���W��Q���ޱ��W �w�v� ������G�*�Y���A�RE]�F凉�(�| �bKB��¯�c�+��Lae���DV2ZϮ�Y3 "�"�ԭ��s�#.���"T]H4� l�I�u^��Q�X���Ђ��$�PJKݽh�oX*I�aKE:��{�pE�H� L� ���o���H��cQ�?�� �Y�V�a�^z7F����IP�j�H>�n�2i��EaT ���K--���I!W���<ㅠ>"c|�:;���➤���e� %)j�-H�B��1B� �y ���y%��(Xs`�4�5��� B!F�-�=Q6 �xb���� t'� �~���d� �Y�aFW� a� �Xp�vG]�ː��%8�8�Ok�Otv�@$�?^xx��gZχA� �v�;@�c�b��~_� ����_ o �����ǧ����{P����Q���ø���U���(�/�`��W ʓ� L ԺI�3:- ��v � �����|� ���01H���/��<РY�l �^_�d�D�/��/@ �]�F4b !R&������e��(%�5:h lU�EMT�R�����r����w��~���[ڠ4sP^��z`��՚�Qjh/h��f��F4w���ڜǥ#�=܇����Ώ��C(�n� � 뱾,� �Cj�Uq �r��� ���p�+Na[*X ��Sl®�<g����d� 5�/m\�v�" �8�Zq���ݣ�:��=�:z�g�jd�^d���ٽ9R��y\<9D���{ �ݣ�}:�s;��G�3��3o^��V��j�QZp������ u9������K�"���Zk��&�� 9�(ż�!����H꼇�א��l� Y�l7���*̗�̗���{�M��Mw �-��j5�ɱ�� ������GF��g�ds� � <�2�� %M6fp?��!������{�#�1l��s:���'���� ���` ?c�skȌ�sӨL�K_�����&��!Mȹ�ʲ������1�j���2/_�w���S��a���+��&���������ߥ��K�C���)�eW_�3,�ĔoЋt ��j,�E�� cD��}:SX��+��j ��#%���D��[�Q��o{B��#�z���#�{�H�p�-ԍ�:k�=��4�:W�|��{kJ�ޕj�_�f�D�/�! د�$���/�=##Z g~�F̾��U^b�-�m����mf7�� ޮ�XV�r=�O���}�� ����R�x��21��~�K����W�߾I�E��=b�k��-��By@�B�%��D�:�x��� �x��� ��AP�& / �$^ I�=��<��;�xu�x@ys$��@y�(/� �׆���{��׀ / � ��� � �W��� � ��/~�.~�-��J(x�� ��@�����H��o�� �MA���?����EQ�@�# �я���=I^���DyK /��hW�r��S%� ��̗Wڗ��+s�Q�-��{�ڝ�����WL�"N!>��h�ܘ�>?"��������%=ピ �褃c̀� &q���l�l*�I�^* ��^�"�vኚ4�4L*�|�d�,l���Z��<p_�F[6-�S�3<%�6�c��v������e�njac8MZ&�+.E�b���J�֠�����P� Mz�h�a�d�ј��&}͢_�hJ�".!MsD � � �gT�Ϻ"`� 1+��/��3�l�maz���$��T�^�<f c���j��� M̗*��ƆɚT���K���3 yc�с����# sG����?� )�Zk��rI �rl_��_�����b'%d��Ս�E���K|<�%u�"�V�S�S�sf�$�nJC �_ܨ-Z8�G8 0F�^�~�PVbiԅ9N�ێzJ�4ꣾ���F�F}���z�k%}�6総yv�/������$����I�bf�Ԕ�����)�����Z �����D!mX-�X6�Kĥ�V��`�-(T�YA(ZTA+*";��WWU�*�2e�Ă�ˈ�' N�<��**O���%fpRf�OH�Ą�E�En�!�,*X�(%@ yw�x��%�"r _X!rT,E�j I�2��*�T���jG�!0Kkhʼn��Ր�E���*&�fam-�� ��� 7"���ee��5D"����z"�Be��I8�R%�P��6�A0^T�w��� �(�v�" D Z��Dꩉ�� U'� �@��P��=6���C� š��幯6R�) ]I�_�j#-$��?A�� h `X0��~�����i����A�c`��e��vܐɃ6��*� � ��G�h <�G�x�w��!�E ��;���8 �t�@ � ��� �ӳ��lS ��hL�[��z�ꂎ�3A� o�� fp$�7�t�i6��v@�>V�. ]U� ��/#����� �9�(¯��|%a�!����x�#��u�~!:��6�+��"~q� ��m�j�q8�3$#""�$IZA��t 5h�+��9�,�S��)v��Y�a�RV2��\x���l7e����"^n����&�ǒ/�jP J� �KlZQ�Q4�U4�\ח��LN;ާIj�� _�$�c#���&s����H���a ���g�J �3'��ךML�!�ߏj�'B|W� q�јI� �Ñ�.<� #� �[��j5a �X��q BoG� �~^#�Q lWaUbO���T��dn}{�L�܌ ��f)j�@�������n � 1� o m�j����C!���8I�EGJތ�a2}kJ�\@�C4�(:�����C J2C�E��N5tPH��c-����Q �`���5���h�E種҃���'���!�c����r~��qN�� g���� 6�o�7����")��C��JH'OG�;�_� ;U� & Qf3�R9&�� ⲽ���x�� ���� 0l/� ��:S��O��� d��Z�L�F �M���~LZ�X�]Y� � It��� /�O�{e}���q �� �i�i� �( 2�''��D[1�i�'",�A�LS��u�� dǣ�O�ܷ i;8 ���5UQ|�k/˔��4<��Ϣ��'�]4�@�?<���S�`�Eg$7��� x�h0!��rށ���釈 ����b��Q��ǩѪ�{ KOhԽD�uj(�/�`d g ��$%K ���'���%4��¶���L`��9���G�@��o�$h�:r`6~5�� ���� ��~�M�c�-e�6�D��!oz� yQ�(�=U����a�'ƍ ��(��a��Xۀ;�y����7����r�nwN�k桒���e-��ó��U]�{o�Ϊg�T�]�9>'�qZ!^G��*)���� �\�ƍP �Ȁhm� [CC�ߺ��0W�l��f)A�"����k /L�����L�۾�K���5 ����aW]����ƍ�u]��\��V�rF��nN�ϝ� �<^;�Z���q8��p gջ���r�ǵE-m�7}ர�7��d��Y�eJz��Bp��oP� W�E,�[�ߺ� ��O7s���6��`��npp:�ٜ�5(��AR�J&��m8�Hۏ�����˔ ��]"��2 Bs㳮�R�p�P �02QD4D U�`��f� ˓��P�9��2|�'XX��L����0��1�x�H��� �ѝ�<?#��à�0dj.|������ �yS��Esw<#���C;#v�iS �Y\�w�⌘}9*4��Ӆ �>ı�Y���;[��>�,a�F �r�� ��e��9�i]��1�o�� k�� Q vS:J ��0tM��;���i�o �v��<ӥ�i� ��s�Wk)�e�.܅Dy�q~0���S���낖��KP@��� ����[��b?� ��}(��d�Ok� ����pI��;�9�) ]ؘ#�\���;h#J_��,�gw� �+麮?�Gh�$]��( dK��(�/����"��~��@�� 4��~H�ǹ�����g�����۶�\;mW�i��ieda'�A�w�~=y�Aޭ �V/��{�Kċ��|���5���6?�߾O��Ny�WJ� �.��r�/��>9y�yPy �mB�˄�w�ɛ���I�U"�E@�=@țD�5`ȋD�{D�5B�m"��%B� r� �%@�e� ��Qyy}��=��<��;T^ D� Dޥ!^%"/�����w ��ƐW�!o !/ �7 !� �WƐ7������[$��mA�eq������& yQ��HC�#!� ��H�5q� y���C'/Q�;Ty�D^��+4 ����s|x3IgF]�..e�x������x����ɻ7�v�x�?aO�) �9�L�O��>6�!�}`/`����S�a����F§���]�<�W��-�Ų�}����Y$�`��P ˠ�9L�o� >ޛ�> �n�O��b^ <<�PM���4J,� >]��y4< �Qn!z�˧�ၲK�"G^�!�2�L�#Ѥnц��IM$cV���@c�fn�A� 5������s��F"�K��@ ��@8AB��s���N�~I5�1e�/ ���6��P�!u��Dٗ�2>A���(GX�G�}ԯ;� ,=�H �m߉^�w�'.`375�m������e��D��̺��&A����d��M�=6���:A4�Dy?��I��|H�ϢT ��u�� (�C��5��xˇ�h苑( �a���bz���V�>�ݖi��5�:ޝ��_�)Yh����)ͤ˻@�@��U��D��$\��"BS�j���Z��Pm������i�Q�� p�2Sʰ�5���́�]�j�5 A4��܉-�Og�=@�\�3$� =0��9L =!4��oj?١B����������D ��XU�Ȭ)�)c�8��Z�Xc��)(&&&&'NLL �qF�U4RiU� Y�a�QDN�@�(bU��xA��Ց�(��T4> ٱH���*P"���J���U/r+�:R��+� ��VSTVSKIX ɒ�� ?������ZK.�����T���Nd�1k �5�V�x���e��DD�u���Ud<"���ЍR Z��,��YSL�r�$�R N�p`�F�� ,������������UU.XZj��N �HE^��� �g��(r�N~68��% �N�&�@;Q`4:h�u#�I7Y�Lt|���d��8�%0V*��O ���)���L��ѱ�l�i5[lI�h���K�.. H�^t� ���a��AAq��ȑ�b��O�9��"MD�Ȑ&R@ĥ &�0��ك�vTC ��'�|�.YM_ �}'N ��m��D2)_��?0*�Q&�(Itl�?t5�%[� @�~����>�z���6�5O���;�:v��H�`BQ�� J����n4� �(�n��Ά^ s{X펈_� t�o(� I�t�]>���h���ΆʼF �/��:�����+6Sh)K�0�`i�5`hrB�~�^�K�U�鯠�ɚ�\RN[��ʓ�@C.��=��q8�RFFDD$I������:�-��T�H� �=6���+Z��xx+1�B���߭���}ģ��41����H��Y|3u��������19�_��Q�B' �U� Cf3��� �*���D��*.}�Yң�aW_��i�g("2�7���C4�'��t�z#Hq�&���i�m��WM�ٌq2X��� �#�!d"H/� U�O\�I�`��INu�_EQ5� 2D<7CV�a��`<�P-��$ �n��ήpR�(u��Q(����bHkA���^�#To�2A��e+��2�����x ��I"-: 5�:�h�ND>� (�{�|�#��|�j�#�U�� �3� ��_<��n�\� 9= �jvB"{O��.x�M ��T�� ��Y��l{� �}?���m�-�qE@���1l5�]�Eޠm[��b�U���6��I�a�����5����9? ��w��Ap���k�N� S�::pVZ�;��f�#� �،�?�q$e;���~��78 JGh�E�5lm!e��<�<BIj3T #�n�<�kԅ'���P;'捻�m�� kib�t �����Cy Ѐ�!o�%�u�pSO���?6� :��R�0��s9���P�g� '/ 49�0���) "U���a$ ��b{��I��T�?J{>�ܝ��7:�K �� YOHH�` �:j@a���&��Y�*�=nc�} ]����bޠ��J&$@^Z�G@6�K ��)c�Z�CBO�=�vPv�'��^ �̽$�j� yAȌx��f;�[ �cU ޒ�� ���N-`�����E9��;i$5�D�Ҁr�y4�H��H�ѭ�a�Av=L.���'���+���Fu�����-4� �@� �� �D�*�<xl�j"1�ȸ�t%��j(�/�`v!u� ��1FHMg8��C ���8X�C���5�(C �#:Z���� �e�n9 H~�M=�V��b���Q3�i&dK�d�!)���7��d�e2�.��JE�c�kT�-yS#/�#oґ��K4�Qޣ"�0� yє���������M��KܚB� ָ� 2�����A?��������9?������F ����??7V��h��FKB�n�L���v�� П��x/t��m� <(/�n�;���P�y7�!"�%N �ظ>Ȁ^�IX�-��YW' t���B�-�:Ѭ�3 wԅ\���+����7� ����\��q��c�ktg�j���� ¸y�gI5V��qa�FW�/Uk�I�[㳇�6�D���2��ݤ� {=5���`�EW��5� ?w]�� ��CfT��n҃G�s9��6���l����ڦ�$�d��9��Q4'����%�e}��4����Ϊ��8��%A�8+��O� 3���v D���R�3����k ��6v���m�J�`�6o��5�;�㔐�[�8�5��{��3 ܽ�]�{c��2w� ���i���,Z�u����(+�T S<�8�d��"B41-) ��Dqx$ ����G����#�t�����*���D���8OǏ ?�1�=��&Ҡ�k�0�D����%ʜ� s��vh��I�Y��8DӘ3���/�R0|$��g\cs�q�O�-�.I� Z����fG����Ă����ٜW鈪K,'>�i(r]׳9���Og���`s��Q� �Ϊ<��XA�x�D�v�Ⱦׄ�m�}�gL��v;g'gc�GT�.��E��]�`�kv�.`��x�'�.�����(k��i⊙.�+9?LXц�yΑa,I�Y��0ۖ��i̷��()�<�\�o�Upf}>�4\����CL6%�w���ϳ�O��/�#D�~���5R�)�� b ����_;ᰉ�&�X� ��5�$�f��e7�y �P�tn�Ga��� 'Ɂ����$M̮̀��L�ӷ�>Ԍa��{V�9�c/���"!�$EL�h�� ���~C�=*�A���8q�̤��5֯;Rlw�X�p]��KH�1�d��pN�ޅ@�7� �>�(؋� ~��~4M�׀.�s$�Hӷ��n���n�ztm-�K��c��|��9�:sp��y���3m���mL�/[�x��}�}O���S� yv ����s�;9���.����}_�9ߓ��͏ y� y�~�=�/��_��._��By�y���]J�\J�[J�Z(/�"�)���;$�R� ��&��Y)/֑���k��+7��"�)�E�R^����y3Hy18�9�^����k�[A��G�K��K���y!Hy P�R�����u�Ȼ#�m�ȫ#�e�ț#�*��Hy8�*p�M���#� ��F����׀%�E�R^I���3P^E�)�ԑW�� #���; �+@�7���E��"� �7 �ea�]a�Z�U��"��)R�'#/ #� #�S��D�[��K��;"�S��(���id�*G3�j�W� ��_}� �3j�F�-���}w�h�妣i�wZ����4�W�u�b�� �Qg�L�F���@� ���r ņ,2��܅�������H�aW�;�J״��Q�4�%�(���{�� O�! ��I�H��`�3}4?�ќ�.�wU;�ϙF6ip�F����3 i�1c��Ť��$�W�ޱj U�� ���:H%$|P*� j�� z�?L1���E�v��4;0q��!@�����&2eP��+�,�z���b4�Vq� ���� ��h��R����'L�;4l2�9*E�a��b�QS*�só�έ�ec��y�u䨈��A��N������� e����MOr�����I�8污���� ��`|��� �k!�yzQ��ic� �zl�8�`}>~�� ����&g�c90U����Bm�\2�[�8�D��k*�7w��h ���a D��1&��h�$E�#'� �����\�pF�M�d|32ac�IQh[m9������d�j{�&�Y7 ��5��/�N-B;u 혗���-b��s� ���|��t24;�6�3��F�q�:q 2�h"߇)Uބg �)�Ɯr�R�I� �Y��i�yE� �,�� qnRg��`��PD?��Z���E�E����P��0��Q�dzQ �'�I�b��� Q�8��A9���Í[�`�L��u �� 8Icj�nZj�%@P2 �;%�&��;���O��$�b���R�S�7d��<�9̡0�7�旧�umތkF d2֥�e�|�+��W� �J���k��R"���`Q-��jW�Չ �E�UV��U�.�Q���!I!VK0{�ƍ>�n�h��2����B"����+d�Xא%�EVr�|��ZF!��� �| �Jj!�xY!��бRRR�ˣ A�~hPd�k�<��! =`� +�ceY]��-+�+��WR�C(�;D*ɥ��RN� SLѨq�Ԛ�Z�M�(�d$VL��j ]n%��A$J�%���K)D�e���1�ʢ!#)u��J !��QVr �&\,���R~�J~)#��Æ1�h��Q�+++�Wr��,-%���U,���Vא��8���F���q?���p�Љ{m�p��E���6 �V6Q��Fi�j"m��H]]�[ͥ�[Z�0D�#�)���H1@�:�сz��?�-T��-p*!Cp���y��A�$��I.��Z����eԕՕmB� B��t�<� ����<U�R ����?��Ǡ����h tІ�>�� �h�� �-�-� �`�A�� AwR��� ȏ����QA[�n� (��l�)�{cE?_��9�� j #�ή�J���k� s��W��sN|p����&� &��G�l�>���5�Ox�3݂:%�2lr N�w�y�w��K6+�3u�ښK��tL� 'zR@�P� ᩴ�BzgϕJ?БbS�TZ2FK>��+tXUmJKПC�(�ѳ��$Z �y����� ��K��Oګ�6����X�xT� �Xy��hH�$��U<���/5�����@;ZJP��{8R,�0χ�\o;�4���Ä]|8�Ë��\éia�� N���U0�u�����@-�����$I�2 a��� D5��Թ�$ɲ�3.�`�����$ � ��lfh]�,U>��5�p� ]Q��G+����]��_�WZUں;~���u��)��M�Sx �'L���#�4rv�F* P �>|���W|�" ]���e*qn�wd�y�,B�̑\x�W˾]+_K��?���/�-�@���X7D�n� ��c0I�k��n��k1 +d�,E��6�)�cܥ}6����< �ef�K��a髓�R}�Rx��z���7�����(���g�=���xާ%��9,��(�] �����wzl?�٥>�c!��oe H��e�\QjS�_����Q�a_�h�TZ�K�>�`��+o��h` �=U�ד��-�P{x�6�u'����Rv��2��Y�~��'� �*�� ������"R t��y� H!#��+$d*=#��qm�����a��zz�c����)"ٝ0�J& �-$��N݈>i��m0�kr�OL�'���SC����[�3�Y���wrt� ��;�Q�>Zߦ1��y�Gf}������ڔ�anu'uxK4� ZC�g��֤x�ڻ�� �k�i/�7��0f�$�$�����' '���ݰ�����;���:/�b�NAd(��$�ڌ=xjIuw�Y� a��$Q��E��f?K��<Q<�YYen�jL��^5,� ��D��:�i�87�������N:��U檻_�i�����@| ��I"� Y/,',g'�7 �UC<���-r����9"�%|���&(b�~��PS=��e���4q SL�`"s�5B20�[H�[$yK�Ł�i��.L�9mp�D"�QG���ʰeUo|$MͱAS�i��I��Y�B�q:�)�%kӍ J�ĩ��,R���(Q�x[4p��p�"�k� &��)�Flvs� ���g�@,�CAԱ�*��kɖu0���yK #/�{a����# �Mk mR�K ���+����R�x7��,4H���X ���6�TO��JC��<.� ��s+:3ķ�ȱ4��a�2w�y T :�N��� ��P�$� <�\�S &��-��MG Ϩ�!�bQd�;�G'\/�8l\���n{���� �X�WW�� �br�sb��~cg�� �4�����߳�J�'尭���� ��J=�H @����).0'���B��T ��w���S!��- $���%�'ہ��q��^UsBQ=� jEA���#�,M.�ȡ �{�_�Ф[=ۗ�Vz B3�A��;[i��5��F�`���~#�F?�Ö���t�<���0� ���A����N@���y� � ���RP�(�/�`��Y ��!J ��9f��H#�.�q e �9a>Am�jCk�{X{��N }����̹j<}n������~B",k�n[�$����> ���6��S�_ �;r_lHs�z�H� ����=�{�6��?��FL��&�~X���B�:ݦW�(��-�RL ����rw��;�s ��l�C����z�;Bu��#�h%i]MHa� x7���Q�5�RA��±��p ��A�[ x�j���&��c�0,+X /��(���Z���M��r�9�`S�f]��>:k�ip+� ;Bu�~�M�t���Ac3�}��nz��n�q>��k@A. �8*K�[���u��拫и��� ��P��� ��4yx�θo'@�#�5�E1�լ��:�:���4���܊f��pL+�$��+��a�w�>����kw�0���N�M��.��H� 0=��F��lV�V> �"ns��N�$nq�uyA s!ۃlH`�y��ܗfmf� ����^��~d��D�/��̳�r�ƿE�4��[�1Kc#.?�θ�g�0�-��,i��;�+ln�@�y#<3�����dga�FA�u]V��}���t���$7TΗ��~�mw�\F�s��� �]�F�Se�?dj`d�hJHwe� �t �d݃�f�Xo_g�|�� ����wla�[:Ēㄨ�gh��Ѹ �$2d���6 u�Җ��r'�m� }�����ip �y�T��N�{��Jn���^�I��,K��%�Kc����s?j�C��B+#څ �nۅ[o�Ͷ;��eJ�'���Y~����E��U�x��x�?�-�7k/��$�� � ��{�M�����o�K �U"��"����FL�( o���ȐW�!�!o&/���W��� $�=`�c��c�k������ ��Hyu y�R� B^ @�)� !o !o��I��d�� ��Hy ���� ��Hy ��Hy_y] y�R�B^���� !� �7�W��E��D���7���D�����W)� a�&y�A^$�W� ��@!o*�= ���k�=�D�G:�z���@"�+��Xb�8@X���̉ ���Y�.R�w^Il�f�*zEL��N�*���L�(`P�Y���}P��s�.@�D�z���j�.bwg>�D�_ ���nW%S; &yo�v��qp�~<���èg皞���閌��%�M�L Uu =A�K�V�v���t߀����dž?�&�Ě@vn��b��-��<��1������wԶ+�t ����~�+)h��� . %��'b ��^S��*��T�KAgA7�����iG.J���H��-;��9r ��mQ�^���+����9���cia�w��T76C�Qc�:��)�ތ���)�g�3�˳EL�&�=G��Z$� ҭ�u�פ�� [�I v� "�Y �A��`]��Loo95E���l�f��-e�!�E��1��r8��Yf]�W�4�ɓ�q߳�(�r�`��{[�����e+g�N��!V���%�~����9�:�'�,i�>�'a[��k�^�O�A�xN��$���F�cE(y{��r����$��I�Z� ^9!ZeyI�r$Ұ�A<b�8� rI�����*�����hE���=�H�b��Յ �E�]F/)U>�/���x�� ��ʈ�e�*y���S1�'XYE��W��֑�Pq.*-�uՅ�ˠ��G UV9l\5 ����*��eduu�2z�[�d�YX]����k0��Q�)S�(&.++!]W ������T[UM�+-)P�E8�7ۢ=.����% |.c ��އݶQ��v 4TG)r��i�!6�� B%�;!�;,�� ��3�ێ��ނU�K6�������(� ��O � u�/mʕN �À��W:�ڀ?eO<z,y,=�y@'�ѥ-��!{ǭ�!� ��� xt�h'd�;9���9"dnlcߨb�F6�|H;�Q���E�n26�f�Q� ������r�e��r �m�d��� =�� ݓF����T�>����%��I1x�>�]M�A��b�;�[�|2����L�Y ��_�e4��b�`v�0 !�ʬ&^y��E�Ұڅ~ 9y�Wb� `��L���aDƔB4#"� I��a� � T0�C��J ��ip|m�$-53P��_����$N� 5A]o0�p{��*��-2HS t!����>�+��"&�4墻�V.$��ft�U���z&f�n:Q�Rg+�OŒ��4&O��� �o~�D�37gSP�]�K�Ydzsh [\ �(��ى�{�y�?I�ԃ � #U\� ):i�oT���r�C �> �?L@���bv�j8z��q ^��w�5��a<���71D��|�z\TY�}d~iM�kf�x|�68~ �(��8���O���6j�&9�2\+��3#�� O � � Ĕ�ĿK�<�(W��A�M/-t�C�ݹ�*\���s�H�:OM7���P(Y��u���>e�|I��o7qCoB <O��� �L�NK �[��AOq �٢ ��0j�C���P�]�6t��V�7ݰ�� H��/� o>1hU�Ј ����M ���4��] p����d� ��0�Kv,�lC�̗î]^�\G0 -�#�&JF��'J&�W$�mi%hjh��� ��� 1@�g7��b}��n�1 �w[������\��I���ޞ�o�S�Id1�Q\� x8�M3f 6�~ %F�� Z��Drb�P;�G �eJ%�;��1������͚ N {�ܦ(� A� �=�� RP���y���^��H�3����3r� �M}�>�#�<�թ����k��C mԞ�pġ�]�գ ���(�/�`fMS �� N ����� V�|�?/Ѹ���0�='� ��[F�D pom�¡���*4y�A��q�K���%q�Ƶ� ��l�-e����g��� ͏v��_��ҍ����0R�}�]^7�������,�n���æ��� )�.dE|I�ب��r=r ؼy��t G����,k�B�5"Җ�U+� ��cܞuM��ei�,���읯F�J�,�+��]�^=���Ɗ�T[sS�_2�ڨ�e��W�W?e��J��i�vy?��3��@<myO�A�J¡�Z!��d��;�b%R̲�~��rDȓ��U�^�=�7��>A�jɲ�u]q�� ҟB39��~2 h�>yf� �'�+EX�\���$�$�S�?� �9��~�Q�s�]<WvY�$ae���:�,W �|= �.�AO�Y�?y���~��K� s�ݺ0��7v�)f �uE�{ˋt-_X�3o����%2�L��刃A^��K� t �� ��ӄ��?/�)\��u:Q��6��qc��b����������u]>z}}O|����]�i�F0M����(�,����v�'U?'��l���Χ��:�����v��`���( P#}���Q���������/?��בֿ�ĒϔX�s9˳T���.y̾ n3�� �P�>څZ�t9�t]��H| A�E�g�ޕ��C�Gn!����`�e-��� ��ށi��"��i2�G/r+��Unq��*כk�� �6��=r��H& ^"@�CL^!;� ;^�UJ��/��|��̿�;?~��q4_�����q����}�Lޡ����Kě#�G� �� �� o � =^>�=^>ޡ o �� #��+�����@��ŏ�ŏw��� �� o /� �P������ �x�&������< /Џw��MM� /��=}�f��}���}<����d>��:>��L��~8?����4�P,t5�R��j�| S��=I� ScK���H.�RG#i�b�R����BP�>ۅ��@���v�]��" �f�&M�I�FB�c��:��]��w4�y"��U�������f��/���O�_5��܍:%=*5 ^� ��-�b�e�* XAE�MT�B�Va����� � ݛ��v,����* ��3E�;(���9J�T�_�y��K�W)�U.��s�m��S�\)�QY`��<�.�ʨ�T�#�&��l�ˡ ��R���J&>�u]�ПJ��+,ؿ�;�����70:?���2�I�N�1�Q�,�L躶9f&~<Em�E�u5����C�� � �*�� H��t�"�-���=��� ��� (���,��f�0 Y��]*٪6�Q����ꪎIB"�ӾT��FM2WU-%П@ڜ���C���7�7(P�F7>�G��4l���}�b��{tee���KGG(vG�'$B��+�%Da'B"T" " a��+���� T5 ���DV���� �HY��7��'��)$Wğ&,^��t�)��4�]R�455l� �� y �*jXE��hBd'M̤�I�$J=YA�N�$�=� H��C�SQ0�ꩉ�,� �'����I�~6 �ʂ�TC#�0*�A4�Q��S�Փ��S���TS�$E�')�%áR�-���z���4N�L0����n�C@��]�<� 9��Η�v����A�&��DEo�z��B(��q�q�8�o���@@ C�Z��۹PˈT�kI���T1&X(<����$R��a 9��h��mл�3֊o��!-4ʘa&è�fM�� M� �Sl� ���!F�^ �u����D���a��@�����>� I�(�ae-�1-�ꜵ�yUt���=���8�<)�v�nQ�� �n�ummc� �g�H�"��ٙ�^�-Zgbj��ϮH�Pb���Y�q<ƘB4#"A$I����v `�Cg�i7ì(�"A���_�>���`��\��:�>�R�EN�=�qP>,7���K}�h j Ym���P� ����CZ�^�S�ڋY�ߧ�Wsdh�!�܅$���<IAd�K�f��R3�(��F�� i�$���Q��S ���r���09y���3Q�*�/�S�� �� ��DCZ�.cѺ��Ͼ��I!�:k"��LR(e9�#GT�#��)�5�߿�#)ϙ)V��ҕLi�4���8 G���V�� $RR �3��}� P)@eখ�U��,�C ,٩��|�@����r���cs4�� U�j���MDv�2��l�^��TQ�2����[��@�uT��} ��ͬ���kz� &љq�o�5I9<�x���C8����S����f��s2���Th���W¸-�[���Dq �;���8�סI�3zȦc�^�v�s�̃��C�_�N #���H�X?�*�Q����R�Ĺ�Ф��{� �+�.,��> ��sB�����7ݗk+���1�qp�M�DsD���!r��;�f�[�p 3^ت�ç�ә�Z6"�_g��q0�L�M�I�$h�2�(�p�OD6 ��� }�4��T�Y�^G��:�4<��-� ;��n��4Ր�ꕐ ~0h�Q�h%]95(�/�`fU\ ���!K R�Cr"�l���?K40�E<�owh��ڵ�ps�=��N�O�� Ĺ��+ �� �&�?�i"""���[�$� r�����s~:���۹o�Sf��7#�JݼfBZ��~���>���]� M�. ��iP�gQ6E����q�� ��q]�Wr��e �A�� ���x�[We���7_�R`W֯0'�|I�-ZW�-|��� {��W1eoK �]Y�v��} d�Y��Ϛ�Y۪ŕ9<��G��x~��'�И �.C����^�0<����l^�h���Ű��L�D�N�F�뫖�W �qPA�6u9wA� ���2�Gf��k��;A��h��M1��ęb$=���y���F}[!�V-�um{�:�΄�L���� �����\u��Ȭf�hr��j�0W�Ĵ���D ��������lV�ULKg�d� �g˗J3&ӜC_S��IHeN,S� yR´�J0fqM�������?5-h�3���=� ��|�D3Q5]�N� �� +��|��b{ tA7��<c��Q_��O�i��ebfQ���Yas��� aY��bP8�K3Oj]��d��/����H�}�5�N�c?�J�{����`0.މ�zR�p���Lz=�'�> �)�(!�'�\ ��S����F�v�3� � {3?������Ò�v�� �h��� �1��> �&ݽ3' };/~��u����Jc�HJ��L�O �c��] T�$w1�}�=��7�@�OBн�/n�5�w_�2@e�VV��Ɲ�۶�\̮/�$�)I�R|�\>�-�7�ǫ��ke�V�ܷH��H�w��B�>��{�@ �o�t�?��o =^��}s�����0y� �B⽁�k����K#�[ �w��WF�7�F� �k �>y_ y] y[yY yW��*��)��yQ yOy �:yM y�C�C^D^��#L� �� yEyCyA y���LA�% ��7��E���C�W� y�C�ߐ�'�� yS���E��g���v����G�@�&���,A�V�G�ֶS�4(�j9 �\lj��9����& ���z�و��ꢘ� *8�h�/Vd�t�|�R5U�����YEl��;���pzj^�����$�T �'KtQ�&�#Z��X T @���k �4" :���v��i�- �=�D'���1�h�n�{��9�{�����û��̓~��diRH�(S;�'�tq�}X��LS��=p1C��!l����BD���/w/,�6D�@MC2����R��;[�{��L��D����zu ��J��30n$���c� ��"0A&��:6����kÆk͒x��e�NH�����L���u����8��[�Hl��&ͬ�� ov���K�_��* ����[��fyB?� D�l���2�d�U�I�L*�R�l�w�4� ���b�}ث�-�Ҧ;m9�?�H�Ba��^��e�� 5́ת'p�U��� ?�� ��,�@��}� H���5�W�K��?��9��PK[�����>��}�>>�G��bl�|��z�k }�5�WM����䁨� SQQKk#�"�V1���Ց�UV�֒cх�����E�k+Iq�%ZWYE%\UE�� �#'I�%���&O��`�U�*�#]G^�c�T�*�)p»��J +K ˸� 0Πq+��u�2�pr�(Ū���ylr�댂� �%�� WO�,�+'x5�Y] ����E���,�'��`�0B��Q�iƋ S/���t<�j�h���uĨU�ɓ������� �� �r\�=;8�h/p�!�Svp��)Vt�Ǎ��D�CT��\ ��7j� v� �ИQ �N+zC/~ :����p��̅�"= 3C�d�s@�2:G߀��~��&O*vF)~~�!��|R���)��!��]�e�� S:?E��,�Ͻ�K���C�'��ПFzX�n^�:JA�Dzw��ȃ�BshȈUC�F@ɗU�P¦~������R(+#� c]!��͟�^<�y�B�#0D-\��+���^E-A)�(TW�:9����A�5��y��\�;=���u�,�)��BC��ִ��ݝ3��~���R Y/+���NJ�8zl����aL�C ���q8�C$#""�$IZa��u�P-C��(� �S$HE�~���"��\�1�ᯣ{�4��4Q?�! ��E���jp�5�_VK-Q�[|GWd�ޛ5WcR��J$����bh��id�$)�N&>��6�U�#Ƃ������p�dz8�OXL�f�6;]�h�d��� r�q�,t��z��n-Ә19��2���j<��ұ!Z� ��\'W+�4g���X 8 ��C��U*�j�K �Ro�|Gku��ʰBG�oz��ִX]Ib�8���j�\ջ��=V_�L���$o� �O�s�H��� I8�H�pi���Dz�� )�S@ -��Dp�� p�Q)z�Eu;B���e=D5>$p��������h1��W~�����Z!��d�`��t�yx\(`�A 6�m[ y���r<�eR���qݼ�F�d|�$וX�9ǡ�JM:���}^l���-%�1¹k�Z���&�T`j` ���BB�,B�\*����y� 9 ~��4�[�粹�)Y[yjy�` p/Yk�e�5���M�ƺ�9�v�� $A�Wl?� ?��i�|M b`���_�c�]���Gpl�6�v�� �$�ۜKQt,C�C��P��o �*l �}�t��h/�v���'ȗ�<)m�ٳd�v|!pA��^�5ԎQ����bA V=���:����d��$�@˙��!j .���=K+ �^C�2 \��݊9��T��G�_u����H�� 6���6��(T�s :� Nj� CB�(i��(�/�`] =R ڀ� O ��Iݚ�U�/��ov����d�� )���ۤ�q#�B#��3���2� �9�}BⰐ��d|�۫q6�V�Y !�l�d���is �F�mv�6�@� H�Y��+���fis ��'m mF�6�Ϳ�9 ��D�lm�I�@�u�fmN�fm>�fm�is���K�a��{����dg�,��~7?�ͯ�O��s����g~3��� �5qjE����L��69�ẋa�X;,1{u��kvGޗ54ocera�l� ����5C+�'X��x�]�"P��ڲ�6F|4�Z^�q��˨���exGΉ � ���0�B|#쳄�^9����)���A6� f���_�{&n����J�O �=�Q��Kw�_d �dT�,�n>= �^,i���˿�'K���rr/� ���*П�{П��¬�ԟ�2���gm\(ӻ�ٮ��!�Cu��Fp�妺�:�3s ��bv�=Ň����'j�-��O5dͫu���N�[ޫK��0��҂�:^Wt�� y�s C� ��2���O� �����j'�����/�f71�� s& ���j�� NxOO'[ɑzvC�l��n9��K��٬��cր��3�m�m��� �'s����+�g�� ��\�<�@M>��s���&O���l�H�M� eN ����y�4 ��[��}��>K���qnD>39��~�П�:R�z��b� ��r�ɒܼ�\�d�������o7��;#�f����ȳ9���ů9���ī9�Y�4���t�!�,�s��9���@���o� ���m� �<�Ϝyt37s���:�v&��!�(mF m��6 �6�f���� ��F�Lm��6���29 ���� ��x�� %�/^Ƽ�`�F�,�:e�4U8X0��H��V ��T^e�a0C�鰄BD����k��B� �k �)e:���J� �^���&J �����^���b�V��� �}����"'��N�V,�X)3��)�lO ����G�V<�ozWj�Ѳ�z � (�������#�- �7(p�(���l�?y����gwph����]�89 ukh��?�q" �p ���A�o[�J����j��K3aS��V���ˊ�� � vL��aS�bE�?� lk���^QW��<�� @�����Y ՁK� ;���54 ]�G��j��Tu�*Xj˳μ.[#�/^��r���,��jQ�-�6�X�nA�� e�D�i�Yq�+� �1�RV.*�'���b�e��>4����G��K2a��w��л7ك�ިS -���x�))Ƒ��"��1�)�ӑ�H4"��#�MN��S� .L*" ��LD��&���0�$ * 5�N8 5 �J?��#QɘD�hlr �I/��Ɵ +&��å�D"FL�t��T$F��:�(29��������\�@ ��Hh��'��'$u��̢��L�#� .E0���:p �D �x�L��0�¡لD9���$hx$^��Ǝp �82�a�P(�q�A�p��T jJ*���LND���o��(��Eu W�@� u�� �l `�0�XlX�!��R�\�_�2�%~���+���j�䂚��&M>��V��P)�%% $�xP�����7|��(`�YU�s�db���d�Ɣz�����M�������^ � s��P�=�#���F���N��S �I�8�F�J.{g��nU"�&M >hd����88H�_�F���MM�U[U�R���3F�3J-2B��ah�FL�-��@:&�B#"""I�� A�9vu �,�<K"BrA��$�� ��iB ��8Ʌy��6�z��Ǭ�o�ޱ� ��C]����oÁ��Q�hr�ђ���d�˰m�R�I��~Q�U�F�e�L��ڛ dJ�Ue��qs�^�\�4D5��qu�� +g��%+��!;�T����(��|�9�it�o��J���o��՝tO�r��.�����nxnqQ��\��[�@�/M���5q����L��`E�[lHI��Mr ��Qm ��B �!� �N��#�\n �O�D�|�( � _w wn�}�f9��s�}�>� �����;�?@� *g��E1) �Qn&�KW�RI��|X;� o��6e7r���v>�e"x\訇T i�W%"�P�2���� ��� �ٜ!�juL�_#U�Xw+W�f��5� ���l���b?Jj�8IvC�uy�`�a%��wa�� ��,�)s����b�L,$[ө�Z����Y��TOBM�mg�DCҌ�O�74 &N ��]���9 W*�H�t��Lw�O"���:Bw&�)MJ���,C� ] �fZ�;ϩ���& ������cw&� %��&��ҏ � �n�y0��i����x��� L/: ��x8dh���o�n�h)>����VY.h=W�r��*�C's��L��yL;^���4X5����Ԉ� �f5��E=���[Nu�^y=�&�{�1y��I�>�0��>/��1Fi���!�4�y�A3r�/� <'���Ë��(�/�`B &��F�ZQ:l,�L;��$h5��m�+Ǒс��`��n��Vw���^��= � �e���t�)��^�Q#d�-wJ� � � ;�SA��Z��Ժk������ P)6�� �O�Q�@(ɴ��x��BJ���U<5Lrjݽ>�i�C� � �"Ng�����Ը�5n:.��LIH�cӺɈ+_O>$��MpӤ��6nK1xZ���5��u�5��E�� Vt��Êf��a ����4Z�w���y|�z�N�Z'���ޣ}��$��[N���Pn�$���S�>��) ˳(�7�����KRk�~"��2$Ⱦԯ�^m�h���� �O_pҩ �U O_��6�ʣ>�vH\̊����{�s�0��C7�(�O�=�dK^] �ah��"���1b�� ��Y(��UO���2c7���n +d�" ���}�Q�ql�N5���ℌ~��c�" k�|-0R�G��g\W��Z��~#�\U�q���e]� G��! +*����� �A0�! �� F �&`-dF2j@0��Q액 /!"0�JĈ^,Z�^l�˺8+��Ey�� ���7{����B-�Q��l����hh�?� �7#H�+�'k}�����mM���1�.��-Y�t�K7�i < `�*4"D@�����7��V��X� e��0����!&��!�7�ZS�i�K�k͝ X�*�B�8t�˨< �~���G ��b��c!G��f��b{q��R�Ž��]�M8��<o �7���\�jl��� kC (�/�`��M jl�:0lM 0j��~o� cv�xк�[��J�u# �"�� 3 �0�k"[�uB����^�+mjvdmn�}}�GC�v�쯛��e��� ��+���N�e���o� = �L����5ٌ&������ �Sg� �G.ٝ�P�0� ��S���`�{�}� �RM��1�>j �;%��`�C�=�v��tE��"���쨄`� �=�q~< {�?���좄�72A�z`��A �� �(��r��vP �lj���ޤFz�����L5�c��f�2��~� -^2`��1�_B[�MOPL�-�pB.\�F�P"vf �<Թ�c���?��� �P^h��-vI(�G�5��8:� � �Jx"ζ�� �Px�pEB8�tΟ �C�����F�uDs f9�vF�{����u���^�Qp< � ��B{� Rϵ�ﺐݹjv e��*\V?ʫ������7w[�G��tGm���C��)�E�{Yv�Ml��e�+�� �)3XL�+�p���w�7i �|�ߵ��e� �T :�O�z ~��D;�h�Qr��D���c�~�^ ���<>�� ������+�EW�.�ϙp���� ~�� �?���>k��wf�~� ��{�v�� ��k�"����{����s}%}�LĦ�.���OP�����&����|>���O.�OG��`��*��� ���=l����f� 7}���we6Z0}�L i�]��G5L��KGL���.�?E��SK7})ژ~��=�DkƸiSgH�Iv�K���M?+�?AmDV������I ��/˫"�I^1�$ £c� 6 > ��Ib����-�Wmw�|ф����;�L�ť[�k:�SV ��T� -�%\{=��v�� �#�3��l�s���J��Ć��d~nb�����cў:չ���� ;/t�`��LaPg~��nw� 7�^�UcLAr�e�4���_7h��|l+��2��{�^��z���>�������hTo�u�C��O��K��G���6W�H�_���nah�hr?��Q��u�n��D����[i�4.���ڔ�� ��6�|ײ�V�i�+4��=�'6YβQE �K�y�����{��y��.� ��B�\ը�*� �� ��g��gO'xo5=�x�z�!.����۶���kfV�˴2c�u���"7%.Ky��D�y���WąO��t�|<z��pὩ��a����4��v��ܝ$?�ؾ�e�:���\�� ����cz�%��b�����d�}�ƖR��On� Z�ݰ}��Nۿ���b�U^o����m��kl_�v[��V��J�a�>����ܶm�"�����6��G�4��n��� r C��Jd��=�*<�wW��^/��& �kd]�$��S�i�� 4߄�W�R��|ц�;�{Fd���v�}7��s�2md]&�XR����I�;�=K�Қ.�X��Z꜑��=_Bֹ���,B֍�&�;xY�eY9H�*�)/��������A� �?h�� B��9�b�|�!C5�$�� 椃�z �=�Y2l�I:Dd�8�O�q��\�A%��]�XY_ ܋kl�sg��B�z�X�e�Փ,�%/κz��8^Ԗ���Zq��b�a�Ź��H�u �fz�$i� l�|�B�+�pg�ah�gw�u�7� ��r���9�w�9_�E��(xYX_(��\3� �]W��$�N�-Z)Oc��c% -�� C���y�y��k�Yrs�����Mp'k�\��9x��j��>�u��uE�Vqu�����ᾬ�>n # s� W��j���J7�翲�+˘�����Q�q*\�tt Q���ݯv�w~�dѶV�Kؕ��O� �? '��Q��t�K�ӱ��|�fP�Z%<�x�u���� � Op��"[�J��!`������[D |���S�z��'#`�{B�����%�̑� �{/� A �d�����q@H�� �$� ����F��� �����<p��5W|\b*��{qQ�w��y�MС-�[P�yX�W/a~Α� �~xʷ裏'�� ��0{��T<�P�P<�F|Z���^;==�*� ��+{�v�ъ҇�D�<�JtC��$��m���?���Ǽ*�K �Ԧ�䫇O� |a'���O�� ��Fܟ-�� � �6� dO�A�Π�-�E�M�>��Kt[��q�Rs�?te������6�[l @����Y8� C�y7��?]��B��& �C3����@ԾT?-�2v�A���.�|-�t@��l�YK|^ �k+1� ��>灼���Yl0xY9l� �%J��ig�t(��kר��6n�eÍ�jI����6)1i�3oOe���붐 <T�#'f8�@���c���2$Y0��JO `�+��r�������I�wж�Bqxa�b�j{x!V�Q*i� �}8W�!��/Z���ZM˽1�/�G �j(�/�`GM ��TF��*�;�~=7o�X�u��R�P�����>�,C1�g�f���j��ȯ���}� �xLo��}�)9 I F W؟��� *��^? (5A�?|�,p5�� �� ��ʩQ2d���>���W�;�`!?�~�p��V�j4�0Y $OW��f�CG��މ���?"ا �� 9f�h�C!b�������\I,�\� R9X_Zd�T�� >!�Y�<o&h�)���ӫ�zc��.gK��d*=Apx����&�!&J)�Q�o���$�1.;lt�J�EO��k.i�����e���S�M���3��E����`Z��,��9+��������Q�H��JaX@��j@S��tϟ�Ӿ|�\-F�y�_+^µ[8�67Qv�4-h4 2�lY�J���E�_ �S ��9��VF����DJ��̟�?� ;��/�5R]WX��!\��$�+�u�<��_�þp���vI�+�Z(�/�`~߽k�iiW JIJ ~YD6����n�2�Ί��t$��w��.�f�K �6r���~�ZW�eYeX�˴l�4Iu��A�(�"��Tؚ���r7�[������;֦�Zq�h��֍DZ���(��7|�RiTt�˩+�ژRrmL����h�bS������u��\�30 �:�ɝц��))��m&c�}�h��nd]nS�� #�cg^/�i/q��YN)e�#�U ���3�#�~�66ϝ�Z�\��r��-�źW�ʥ�v�7�*����j�Sn�� sm�Q�pW�6�/�Ɣ�G .B������B�r �7<�����P�װ�_�]�w���s�QK�5<�� #�Q�y�2(y�m��tׅ��u�n������j[�禕�QCU7f]�!���ͅd �ѵ�kx�n� �B����������̤��;. �"{��O��12�)H�] 7�����O����#f�)�џ� �)��O��j)��i�)��G&�t�C<:�6� ��O ��o�*?�",P6� �O �l?N0���� ��@� �s헋1'�����.Y�QM+�%yk)6��.q=�'�d'Ay�c- ���R ��l=������X��]x�V��"*n��m�.W?� !PP^�o�� ɠzm�k�6$sk���~B� ���P�b� n'h9k?�=� `��K�����?PH�F $�� ��C�: �Dt����cV+]9c��͡�]|�K�בY�tcDRƔ6 �K �_"=9�����'�$��/ASOJ���<=y�i�o��w�~�!��-���^���Czk���p���vq_N+�$VI�_ וJ��Jl�J��ʜ�Y*]��]�O&�L�Jl�k*��x��[��P]��T�T�{�s�w0[ rx=����?�J$\2��>HW"��#[�G�te�O(�����T�J���X��������q�K0[�?>�?�� ���/�Sw%{�w����b�?�这��M� ��[��t ��M�ݺW�Y#�K���2 ���(�%0��J��� �©��ET��Y�)/Tu�m�7�t ��/*�d��/�u���3�2��b�%{-ɑ�Ϳ��'q��m�/^�����K�?����'&�.W�t�! ������ �<�d �\�W�&H�s6����Rl!n��=��̙=?kê�VD��.X �ll }����|��KW7a�Ǹ� ��%�s��y� ����+j���m ��˟��sl� �O��n�?PV�|6�N�jQ� k� R�?\�]�o��e�e�9֕�Z��s�@����:��8��!�m�C��C�%K�o�Aim>�# ���?��6x M��dg� ��?\�\*J�]a ��3�T@�� �5ϳ��w�b� � �z���N\_�M�d�(�5$�b�������響�0ڳ�� T�6�x/ϙZ�!(�6�^a�s�vq�L+� ����Hز$R��� ?�-�uZ5xp�[����d�ns�[�@���n²�l�B��°>��� ą� �<{�F�1�I KT� �%�+ �?�' �Y�GX �Tu�țg� <�3d��J�����'$O��p BȮ6�¹PJ� �s��}|no@�H�9�yy��7o ���jw i�KA���u�����?���o`�J��5eN��5�U���ۻ�6�V�@ ���+/�ڽɐ��͇Z��i����k]߀}�D�Լ�k� r1�[� Y�O���W0W�ߗ� ��w ����=F��ډ�w�^�J��I�@M+��� ��m�۠V�E2ͳ�T����l����Z�LN��6W�uKԦx9v.j�Z ��L��e;��-��Ж�Fm�F�em�v�\T����^�WS 5��:j��ڮV� k{��� ku�<Z z��AV�Z� ��FK���jw��厰s \���6x��C���&=�~����B��f�\/4b�����9��S��j��ؿ�Y0¶Tm�/������s����Z -��u��c�cOˎ�e�"�SP� |X����� =�5��k���us"js�:����=!�F�d��6�����U��#�� $@B;6��h�ޛ':�l��.]�o��%�< ��J\vKL6�I=��h_�+���6������µI-R�<!���m��wt��.�� �]�� ��XI���9��5��K����ճV��E�ݜ�A�o�sȶ��a�sT� �~�V��3���0����Щ�\�o�DX����β�aC���T�s&���V�� d.6n���e����o+� g�KY+�� �Y2 D2 ]M\N�Aˑ�B#[��l)��\��Z2$o���S6=��c=x��ְk����SR~�q`� �E#��s��\�?gџ�� �� EM26_4��b��sI�� �J���o��s�� ���0����*�Dv�{U@���<�<xνAq��w���l��T��N��\���F�e� ��9N�r��-@����~��m{�f�<��z�0�|y��ַ jﺎ�.��V��I��h����o��6o���g����ȹbP����l��h^|q<�l�ʹ��Ϳ��H�b,6�?6l"�זͿ]���czl�=�γَݣ��3� ��a z�J��'p.���y��Q�+v.��b�{\���Е�'�o /���-Y~�67F���� �����L�l6�3��-#�o /���<�� ��[�t���z�.���\z����� ^WD6��E�5vp��VVo2D'��0�8%<���������)�:ljCi;-w�� �=� �T��b��윭�5�������={j�l ��L�wx����6v�=c��4��m��vՖ�� ���v�[�~��z�o>���L�nz��1�ҫ;� �g�Ck�a� F�SG�Q}�!=�EQP�J& �������[�� �ML;�MlG�o�$��<{��̡�+�]R2Z�4� F�ے����E��hi��F��m���6��H���#I�� �= �m���o{E�I]�����9�&�Ez��� ag�y���S,�6�M��`>�v�ho���3��B����L� ���휈|��wR�mԁ�����J �u�vq_��vq5��{z�k�$� ���G� �Zo�����\�ZH�Xt� �@gy����;c�k�sQ��6��_w�}}�wk�k�.����� �A·7;f�y��F:��6}�__��>}��Z� ���A��ѹo7���\������毽�ٙV�[���3�K�W�M���H�M]�4 � �֔�� E?�J4=���$z�v��t����{ �y֙���/l��;+�u�um);���^�����B��5ݚ��<�/¿6k�״� �'�kQ>[��� 4x���H����*zB� fQ�X��[�2W%�毋�]��A����P}��AI�6os��8�l�6]�"�F��O��5��ڿ��^:��b�����������N�h�YCTV��C��V�?�?���5-�ǾM�x �u<P;���l$�e���{Ї���A���v�y�g�m����ק���5�J�崋��vq�V�!h��X��v�t��I�@�@���?P� ��J���'�)�? �Ntb�{�߯��ߵ��-�z����֠��X�ݬ����,��7���`�W��;��G`��u�'J(��*��+�O �Y*� �Dt*o���S�^�5z]�{K������'b�G�w�:�������F{DS�7�O��_�ɿ����^�M\��3��!����� ��� \K^��&��$ɿ;��^��3�D�>�,�;�.���=�d Z�D���q� I�{�����փ����n俿�w �}�{c���wg��[��5�]���o�� ��Z�=�c��4�j?�Q��� �z�_���a����q�w� �_�i�� �g����n�[�;����w/�ߡ�� �����ܿ��K����e���t�O��>����1 � ��_�y�w �w�7��W���O��_��:�D����vT����� �ڄ7�N� ��$����>| ����څ�=���k�� ���_��N��aؐ���/�x�y��f���$8�1�ɋ��/R��w _^� �����s/� /�'&��,�k����f���A�t�-��� ��?��k�^��T��O��S�ߺ��b����kd���#���[�u{��:�� ��D��! ��l����ww�k���]���W�������W���O��� �/����V��P�/�����ߝ�w�������2�/�[����o �/ �� �o ���/��7��� ���o��������������w˿����v�n�߅����o�n��ȿ���w�ݳ�������`����n��Y��տ[��R����S�n�wƿ���6��w��U�w[��F��п����<�nο;�������U��k�����R�5K��5�wg�]�����w�������+�_;�u���?����_���M�����/�o�_������ \�@��Y��F3����< �y���y���s�&�KJ���Q3�u�g�"$� �����y:��yΉ���`g�y�u�*D��x��?���f�@]��uV��h�;�{y��� �)���hG46�a�6�n��%�<1�+�̉mm^A����Bġwj ��mV�� �J���� �$8w������XA26�'�xb�?q�ȳ�80Co~�9?�.���J�x��(�~�l�;�7O�'�sFX�@�|�i��t���o��x��8K�Z�|���}ڇ��$����|�C��^0iN�is=�]� �� �P �>��,d|S?qw?� � �{���\�i��V�C�� 4��jlnA��W��U�V6����ۼ%�..�t�T^~�}����E����u:� n�I��#Dy���'!��E�J�S\ �x��96y""���������Qm�T��&��%C&R�x�mi��t�I^~�HEe�ks ���r��NȰ��� � ������%"i�T ��H�C!n���V�� ݆D�lC�a��ڰmXD� � �H��������̒]7?���ʱ����͆@f�l� T�� ?,�6�M�m��?^�%�) ��� 8� ?��߅�c��MЬDm B��C�� �x�⡱�;��u�)��OJQ�6� ��ٱ`�y����SeWj(��~x4��T��Eio8�s-�-*�� *���J{���� ҕWq�� =~>��Z#{����[嵲�����[�����#N�H���Ig����Ң�v�]k#i��/ �H(K�����s��}[�u�g3���#J��s�U>��� o.\�U�֣,���u�g/0�+������k�2KtW�8^Ҋ�� ((xήU��9({��:F��;����^�wI��8�5�N -]q�iQ��@��"�y�,k��B�±l\�7-U�U0����ï�,�����rT����{_^7.O����<�o�W��\�O���%��������� !s�C��E3����R����A��@CeW�,M���ź��0����8��p+(�, ��&DǛ� ��+��� %M6e� ����+� z�\�abm ^�k�����{nvx?��y]��]�y���Q�k�z~\"�){}��� �Vi��B�i��^�K/��J�����6Ԣ�A���E��v_ek��7��Ҩ��{Rd� m�:��c��|��vnB���6� w���AZ�4\ߘ%./$,|V/~YjɑmS��5q�쥪 l�6�z�m���$�G٫�mk�콯/��(R�ؐ^�7EV��Q{a9-��ᶂn��%y��Ҧ��e Wۂr����6�� AH� o��վ�p{�K�e�6�R�Ss�L�}0�]k�8��� 4�T�h�f�8yhU�R����I]QEF\�F���/�ŷ8V�� �?JZ\Z��x��ʃ{��� Q�@�� !)t��u����{����8.�cmՀ{��h��4�Q3`(a�;��3�D��q��N����J�#�mS?P�֭�Z�piSf�"� B�n|�W��<�h�����|~C\S����x2��E�&q�T ��{4���//��r�%��j�4f)��<Ϝ���*[QoG�� �G��ʮ@%K�c.Z&����#����os ��<�\ ��>)t?�~<~bW=-[d�}�m ������ U]Y^@ nנ��*DV iDŽ)�O�wB"C����FpOX%h%�b O��SA9��`VxCx#: ��6�UC.�aTpGPO�| g��g ��V�2�NA!B&B+a[�,x$� �*^�RC��ЅEH�gx$� ���@�5�,�S�WB B��pH% ����a��WpK�%�$"T�� �N�8�V�T�=� � B����G�)�7����W�A�2���U0Jp(�d�"�1� u��C�8!��.�Dx���J�FA A���PO��!��� ẅ́+�>� ��a�p�pK�3t!� aY ��B�F�(�`������� �\-H�b�E��(�B� 6�� �� ��G�S�HA�!N�-�|"����[��Y�+�I�A�Ꮀ', ���mB(C*a��H�#�&L�C�a���N�7��& ��[�}�.��0��mXC�D�#� R� ׂJ�U0�P�pnC�C�D�\<�� ��JB3!!��Z0ː)�l��A�)a��KX� B Մ-�8�?�WB �Pg� D& � dž(�9B��P�.�#�#d b�� ��Y�%=��+>x"�B ��ȋ��s"�:�X� ��`� ����ZE�N+ɒ�^�S�?~~'~(Z�,#GwP��<�h�s�g����±Ҡ4�=�͝��` W�28���.�y�� �]=�hD ��Ѧ�B$���҇EJ���p[^��Cq�.-9��� � �| ��㳍�t�(�=Q=?��w��H� Fb<�_q2�~N@� )=a/�o��q��wq/�E�,�g��u��g�-K �U���_ߍ�"�Ȗ��]�Ege�����{P��&�Ŕpr�^ZW��DZ�曽�e��յ�\�`�Ť ]�x�l����y]Z����T �\.9<�* ��Rm�,�h��H����q��R�!���Z�S�z�1�:����ó���3�����H��\>�� ���9q��i�J���rtu�\!\L� �P���G=>����c)JK����8 �����ӱ効>8V���� ��A�{������*��7�m��/��.��#�$ rxZ�BB��?iG?�o��ϕ��D�u��\�Y{� �툆��V�j��jU:�ef@4�78 �e�"� ��s3 ��3��z��X��8�ԥq��NK�!���,$@� ��7���Ƶ�M��Tiq�\< �&����ιQZ����~Q�Z�����u; �l;-G��ה�<�k�[���`��H��;:!�'J����^�oN� g�3��<c�n��8����X��>�^pK���y� �\m�p+�A��uݬ]� @���U����� � �܂�r�9 �' S��B�=� F>6������]�N�0��� ��������� ����p�'� X�ɢ�̈6���@G���0c�� ��T���E#I�����7�T�!e��9]3�/ ]�,�_ "� �vt}��_ �l�c�D���hl����Z��}Z��x� .���z�{���h���V)Rd�um� T��=8�߃ �=���c챣 ���łsc>�6�@ � =Yx8��{p�H�� �� �*�&d��F� ���(!��ne �'���Nv}3��W@>�Y�9f��mm� ��=<��!��k[�jh}����i�;㆘�#�����W�_�F��'�� �dBe a ��0��з%�_fE�@!` 0�c�x�Ր���� ��{(����pw�G@z ���c=�\ATI<�Z�)�r���?|�' W\��?��@�?t�w��-�C��{�<>0�V y�;[A@@6�O�w���!H� ��[7�!��6��<Ͽ e/�m�� ����z-GF� �HHR֬IRγS�UIg���Hp�e��:9<-� ��IH��ҳf�*]NG��A�ZD@ 1\�o:��8q�]�ҵ����^����X��V���<�:W����� !P5`�^G��H(�+X�- ��;H���D�e��g��Կ�Q�k�� ��;���0C~-qa��'[(�Ϳ�'�;��Kڬ��Ϳ�� ��� ������ p�#pPRNl� ����" ��G��߁R����`#�i�� �� ^�L�/�YG��ӂV�Zg�c}���6�_f}��dN#���DT�������^H�g� @U���? ��H�G'�*� m ��s�����?X�g9��@"�t9���H�� e�9�� l���� ���Q�qԟ����S���ݛ����_ Q�;k�+œ� e7,��Ro*� �Y�5�C�ݩ��Oz���/��{��{��^���i-Z.J+g�y��EW��ӂ� 3:NO����ʲ H�3�-\��γ��u���ތ��ۊ:ع� >[4{�fLyg�B��6��@Y��J �Y��0��$Jk�� x�@WG:K!�b����� =֏���@����� �Sp���`d�y�Wt���!����e;�����c}E7�>�����|��#�q�80RB���T����J/�tGy<� � �c���=�@ Q��]��gmk����< h���#,�� ���� �<����(n�T@\Z�R�-�woC��8��? -�����|��:�l���C,�^ P� � �vq�[/�i�����V�4���w ����������7�뿁\� ��߀��8�o������*�w����l 01�bc�7�˿J�>>Uv��> ��㬕n�6�����K��ro؞�6���kd�hm��?����� b��`V+]��Pib��k��_ oZ˦���5�z�� _O^��ܮ�*��_ .�aH�� �-��l�Lu���_�.Ԡ��<�3��]2)�[f �f]�X� �]������� ���k��(:��a�x�6� r�0��?�<�������?<�c�� �}��S \�!�V�o�/���1P� ���/�҇Lr�/��>����U ^0��>����?}x�N[�0����?�ϑ'"`���u �9\�/ϻ�bi����!۟�N��s҉Df�9�u"�V��o��Ԍ=#�?��N�Ru"֩?����A�?��N���߂*�����%�8�o�Z/��o�V/Zp��N�xe�.Sa�d��� Jܨ����߂���� E/b��WP���W rA�W �`�+�ѿ��+H�� ��W����-W� ��u'%3Pl���@�2�%G6� K�o(ҍ�E��/b����)� :��f@��n�.i�,�v!P�6L��v�/��+K6i��ds[Q�'�n/ٳ���Z ��:y[|OSI%���>��綠dQ�_�-�l�(��a��ϖ�d�$RrE�E�E�(�"ٔTJ2%��,�KIz,i�L1lS�d �"p����� S�� �_��*��W��� 8�� �_��*$�WAEz�����:ɜ t`(6��i{M� y=y����r� t�SX�?$� �g ʹ���;��}E��љ��b�' i�#jIj��eK1&5=��h!P���:�OƎ��3��2�\)�2l�φ���suR��Ö�S�%�@3>$M�H�%#DrS��5>& u:��";,]��d�H �((D�ve)j�h#�R�� r��U�T���W���8N�^ � dcRV�jZB���+Ȕ �{vyY��4��* )��H�$�2n�ס�,m!�\�����j���G�oN��dln$��柂[�A A�!� � ��1��� E���v�C������'�tC�@�ɨ�ɶ_-� �k.;�3R Y��Z�A%%;�X�VkJ� ��\C�cH5$R �ȃ*Jv��A$xYM��S`�BY�v�O� P�S`�BR� C� ��A�8nA�h"�ْ <�#�Ȱ���B��l��F��& � <��wڃ����Ej *� `�'n_^��W� ��'^x�aDvDK��U�#2S�M١5W�K�a�5�� �9i�UTB<�rVwe�1�e�@Ze�u�m>Չ��6�A���4B�8�!��T�*$�U�!o��Ð4�6��悼҆ CN!q�=��q �F����i�Y��L �`@jQQ�!�<-*� $T�,{|�� ��r�m� ��\Tm�� d���Y��h�Z m o,�@2!e ��O�#� $2 � ل��T�cȥ!�G�@��Aq,>䉰=����:�@;� ͐KG/���&�{� }�O����i�� ��=H��+��B�!��C�"$O��G���ql�"�%Rds�1%16��u���"W6�(� �� ��?<�'� ����c�H�vy�y�t:YRE�� ����A� ��)�����g�O@T��� �� ��Z�Y��Q/�E�ܝ� c.�:߆��� ��㾮ˍ"{����گ��6��%���<c��=��<c��]?�G�c������ܑ���ʱ�����X�hw�;>9f�xz�8�w�ْ;2AA�q�q���@1�@�b��g��1� ���q�q,:��<i���`)�k����he��G��`���yʑ�o��Vͳ ) �$�b�7�X<���"��cG&�%[��v ��q�*hz� �l$ Cf@P��B]��GI��GA�? ?����? ]�Q��B��(���(��Pr����� S������% �3=v43;� 2i!B���?�H���У�8�鱣�����v�����U���X�?�8�!�m�+G��l�'p�#��cN�����'���S�^t _w�:n�#ב�hu�RBD� ��j �̈��9�(���oB���#�J+i�7!��&�M0����&`��p��)�D�6���� k�8DaӢA ��j��v}}}}{�s���RǨ?�wN��叵`g���O%��#/��":6�͵[��c�c�q�ѩ]R�~=!���G�?6� ��Pcc� �^K]���K�*:�-� ��/�خ`l~t�T�faQ/�Hǣc�# TtM��XtTq,:�y���CB�c�?I�d�N�?�h�P +C9E!E�~�\(u@�v�� �@UW�N�a��,�1nת�� {v��' B�k"T�zG��w�i�H4�옇�Z3�Q=5eW���1�;D�����r�������ز��Q'h�$�u�������Ǜo;z�7c�9�Hb,�����u0q�mn�~��67�ULm��ܸ� #�ߨ��ē͘��8���*A"�"���o��Q��b��� �����x��o+FIA���h�ۀ\y��4٠JQ��f����*;,s}�q%�K���&���8��ć���l�"�Ȑ�^ q�b���uo�A·�E�mn�b��מp�m� �`QT��������?p�CGi�G�U7*y� �hm����$�@�� ?�?���Q.n6d���Y�,: ��fln ��F$<z\pG�x����x��(�ׂ� ���u���^�$�7aq" isc����ƾ�!���HDx��ȉ�7�7��Q�m �J�(��m:*�nl4f�����x�I���zĨƜ�+Ɗ�~]K�r��QM��æmn<3����������ڭ-� ���;#ֈ5��r%>����?� " ��}�FA�67� �� qmn�a�q� �ms���\ -����q�2��$msc��Y��iSQ�<m���z+���Ɯ�,P�e�bl��6�.k�ms��F �9��f�z#��ʸ����`S2j�q� G'�67f=�-Ly�+c��0F������jK��wv�zc�� H�:�:����ks㍯�_VwB67N}[W2'�m�_S���FfC����(dSzr ���U��'NNF(�DŽTYv(�Ȏ��7B�]+rjPmn����V����c�nlPV ���x^�02i�+����F�7.� a��4��e����"J�f}]g��haLryLL�i���at�Ƥ7"� a�y�i���+c��ȸ� c�6� Fo\����F���%�k�ܘb�e�]�4�� G�����F� ��c�.�Fv��: �4�:2 �q ;�\ln�1�?p��'+��+�� <rRg��q���-$��Ƹ��j��L��n�(�E��ls㉍�Zbִ�Qg�ѽ���ܘ�2=�����8P��p6����y_��+��y� �37��`����}D��a��y���G��$ AVl^�{�4y۱yQ�υ�� Y��è#H�l�!��C,u�u�J�"��c�* �A�����Z�)Y�l^��Hh1Zdټx���]u�ؼh���JT�T�&�J����?�P�ZlP��h�����< up}|H�}����� ���Zl=96���$D��d�b �efd�Ό ��o�)]ka1�gR|��j����J�ї�/>��Pa�y���t�%���)*y�g��C�pDHoK�<ku�A�4�����/&1:����_I@Nl^�+����ִy�0�4�m��4� ���� ������E!jE���D �+BZp��<G �kCLyD��u[|Qp a���������K��E�/�S�P���?� �qBm�/aJ��tͅ���/���~J4v>b���BD芕�y>�`�s<���ų0��ؼXVR4���L%�K��_��d�j�/���dCh?� 4zq�胅�-� 1zQ���HJl�/��h��o����y��$� ,���R�Q�a% C��Xh1ibq��k�,__�.*>={?gx]� ��*vM���ऊ\_�j����yq��g8��Q�5 ,, ���̓v-����OB����r�(�x��I`�K zٙ��b� &�? >�N;Q�Q�Q�J)��9����x���t�l^�A�Q�c���I[v.��E_]��pr*JIAV�8�����fe�P�yq����=Iټ�m�}7:�'!�l����)JrK��0)��Fp�Xem�$\�^��/�/�LP�z :�ť/2�}.�|6/*� �H��y� ���f�S� �������Z�E�E1I�H��A���IS��m^<zc��@mU !u}5�bE���8����a���� �\ѨhT�ٔ��m�$�t}�V,*Q�a���k6�bP1�8e�_�� + }qH�L��F�yS�C�k6�bO���×�ZuBz>_��A� _�I�W[�;� 2��H�WW�'�'�b<��Ժ�8�bΑb�cV�8_�1��y�� cZ��ܸ�9�ڜ�e G�ks���Im��ٜ��u=7>?]] 9��G���BM�Em�#Xu�Ճ��%�W��ET�B��X!�=�1 ��rE��h[7d0u-�)��\0m� �'f�(�k���)��%=��6�=j��M�B4v�� �B�Ѵ���Т붢$I�P�P�*bOĹ'BiÛ����'_�T� js��ߖQ�us�b��v,wToM�L��x���$0b�lN\2�P�mU��q'< eg��C�(MH�w���7N�Xط��K��y[otX�ƺ*R��jyZ��e��@=R��B�H���f"7�zeOr��q]c�@oib� #��_�s�����f"7�nSBK6ֺ�R��ƈk� |�\���������!Z��+�ٮ�d�l�"@��E�C��Ҷ\g��� 9�<m�" u=$��ˈg|�g�� ���g�%gPM��|]Y��:]�#��K���f��[ʬO���d[Y��l�w���ydcf�?-��X"%Ӭ�LCD�Q=d/�(F�Ɉ�@$�e�5 �x"m�_��q� �V'�����z@m�A��X1 MHT�k G]] d_t��gk˃<s�'b=Q�XD��l �Q��V�..���Xi]q26ߠ����ee%]��RUbK��ž��D؋�z�Ԕ�^~��h�H�Xí{bdhs��]� ��%�xy����� ��: g� ��b�'B�e�N�e�6�<���@+] ���aG��l�u�hj"*�0���|S%xBP,�B �_���JdMl���T@D"&=��]����3�J) p$�"o&"��O��D%�,TA�_$�2�߹;R����Cx���3o���;�)�ܬ�3t���߿��Oԭ���?��E�<k+튰�� ������<�����#6�]̉�G̉�8�ݸ�s*B���� ���#�3��LE�ff��<:NE3�9��7Z:L��t3�0� �h�!yĜnxĘ��<X�"�g>���7<bN-:�hs�A�`q^�ɈA��x��i)�;(Јx�:L�s�<3�� ��h�Q��f�lЬ$$�dn ����&�Y�'�g�+���Is�L��G%�R(L /5�8�6�4� U*���S�*��:�R#L� tB�=�2e L�܇֘::��jL�9�R�U�J��*%Vm�Sk�B(�O�Rh�@�>�J�|*�M��V����L+5�>����MP��T�e&�k��?�Z�l�Ѹ��&>���5��J�S� $N�ple��.���`4������kJ@a�5p (̯�i�⩉*��Pm���);�R�L��O&�P�I�R��S�ʬv�����hL��p � �c*� �� $��PI�r*\#�U�F�m���i� ,'�B~5֧ ��>�5o�x&�aF��8�k�O�b l}��O����� ��j� �ș�4v�������p�����������)�246?jM�Nm�h N]*\��֩M���P�:���@juj�R�SY�aZg�Rwj�>A�P�Z��W&*�B�Rju�MD��D�)��akӦ���65p�&�6����L["�yk`�L }�f 0,] !�Vm��L lm�� �e8v>�j��6m�U8ش��6ib�� ���|p��X&��Ve�g>X e>�Ϙg�ʬ��a�s(��`���(s�m` � !b`�@� e���4�e�f���%f�p5�ib >AX��� l}Vc��0�X�QN��j3���p�Y�>k``�8��*�h2�UhM,�Dk�(�9C2j�N ��(�Y�Ji@�V��Ҫ��A�ZS���h�F�L)�)��|�� ��Kc�1�� ��T�ѷ��y6�\�e��g>@���ҧ ��F�ѷʤ�Jc\��L���aU*���jS�](?��3}�:�00�D�9�ᡳ #�@��^^�����j�sF���pi�6!@���\}��'0�������Tڄ���j �`�>�'���'�3�KleμQi�;��^��1�` ��B�)��ğ� S�V(5���Ktq �:S�]x!8B �I# �:}:�q�&� �S�>�S��|��Oh�>T��� �1 �SF�˔F� ���dZ�t2/��O�9�l�>a8D�0 �M�FZ#S�FP��:���7��UQ�� C�U`��% �0T�o>���~0B ��&�!Bp?^^P�K�^� ��� �Y�֩��g>P��)�}n Oai�ڜa)��p��T�l��i�� �5e�A�'�(�y�]hä��)Mu \���ԆI��2i�Eg �aFc�����gd���ìR��O�2��_��d 6�pLL���*��fYt�ˡL� t�](}~�)�>��*Ce� u.�� "�Z��V�*/�/@�/�f�i�Ԛ&L�aBidb��HB� m�c�U^�Q�*/])5� l��=&vFk^�k�vj���3 �̩�ڔV��)���&���32ϙ�0�Dc( u2�6�e� ò�M� Rc�ʜ._ft�̇*�*kPeVen�����_i� KD��(\�{��R�SZSWe�_�S��nN���*l��0�Zc'5&F �/,�?�K�p5�,��� We ͳʄ��K��U��� ��T�i��ý˰��6c9 [�/ͳڄ��[�e�R� C�̦lB�a�3�R�0O� �&�YeV_��l�2p� �2r��F;��j,O�3�e��Jc�� �Y�J���T��ˢ5�Siu�'� ^p \���a�h��S��q^�� �� �0�01���Li: �]f� ����|���X�y� ����)��0��;�Vc* w��iV�ͪ\C� �N��;��Fcx��R*5^�34p5�3�j [g��FJ�J�R��T��U�T^�2U���Yv��3*m��S�?�L)4&^ ���} �O�X��bpa!.� �4�%�5U8�\N �q4DL����w�V�i O��4����[�J�3�.�%�3�*s�e�q.{5����&�)�J���s�Ze�����%�4�h }���6K�ӹ�%�ҙ(�9����H���'t*/����T�<�,u.�,�rM�I����W�OjS��%� �4Ϫ�<��̄Y�1� نI���),�T�U���V���Y���Y��@��k� Vk�V*sY��@�1u�Ze��x�ZeV ����'t�w �V� S#�@b��P�h�dR�+�X�H,�� � �\�P)��6W � ���%�*Sk��`�2��x���Y}F����:c�n �IO��nm��I�V�Rj�8��&����N)M }�,�Θ*]v+3���0c�t)�ʰ,�4�n�a�*]�� 7��i �4f9�1!Gc�� eZcXf���rX�>�ե0��B��*�*We&t9tJi��h ��V�,T� է Pj�����O�x �2a�P��fdV�����R��� ��1��ʌc��f[������'4&FC�1�T��W��>�T� �T� ��� �g`g S�r5�����fQ&��>��� KXp����*?�1 3�dN�D(�t2�Sis����mmnks��R;��g�f���H�P(�2ch���&��F�=�2�e����9�5Χ�� ;�2?�S&��O&� &4v.�Q沍�20L�\�Sa�I&�b�J�K�bʴ�� ��L`TJ}Z��̓*]cfT�.�*<����� �@�>a NE��Pg�9#�D�*�R�.5��2pU~B���RI���h u��4�h }Baj�e�>i�I)�}�6L�e�] �R)4^ejMs)�i�Qc,3a�К�͓X��4q� ��T� ��[�31 ,?��& 5ƆZ��ƨ�YeB���RI��D�2Q&t�,V�Oٍ?�cj`���L�1L9Z�|��L�B��%0�̙�ҍ�5N) �dJ�p�4Bck ���X���tF�U���4�(�*�6O'��DV{�YC��p e6�P6v F 7�Ԙ�& �D�&����YR }:����rL����2錡PfvF�TyI�V�@��<]�� +� K ��P�7��0�0�:]�D���LS � �L's ��21u9�0i�6O's:#3��R(� � p�qLL \�2��h S�H9�aF� ;�� ����+Gg�FK,�U&V�'��`B�ع,.�Vf�f<Ӭ>�5Kd��Z�)�6���He���hM �t�:S-��Jg�̘:S] c( 3 �JW�%��RjU���anJ�SX�g�U�T����Jg�̨�S^ �1�)?��,��ΘW�LL] �R�L�� �N��m���T �H�rMs)�� h�S��:����4�( O�Myyt2���9]�p��T:#��,�U� �?��M6A��� �1u��jG95v2�X�&v�&�R��f)�\���&l���%�,� �`p�1�a�1���8��* bg�Iuc�3ʤ�Pft9A� ��,] � -�.�X�`�` İ�[�0"�Cg �yʲ�%r��C����J@eΌxV�5�.�����R�RX�0,�/�g��5�NeXc� G�K� Skd)��Jc�Qi C���6�U*�*;�6Ū��Z�Ox ,�X�U�N���a[k&�m�Z�&�T*���@Z��̞��3p�U�/,`Oe�Tƅ���i \c���*sQ&l��j�Sa� !� �U�2�:�m��O�51���R��P�*�:�Ҙ:�y��j2���a$�k��jTڄcf�ʜiR"�Z� N�4�� ��� ��( BT�G��<N �m�w,� �� �S8C�04� �g>T�ʬ�040 � OMTA��Obg �}�3Ӝ�ݸʴ��[��H�0��S�9��J��Y I�X�u6aژ����l��M��2g�� �%�_�� }Ve�}Ve !�>] !�`�>�� ��N��j� ��g Q���F:M]��0��'\� �2�O��J�U�8���)�S���� �S�^B�� Fj\��Sj\�>�T��9��S)0`P� @B� @*s*}�S)<���� �cjLle��T*l>�̪ O�@g�Jc��c���J�1�9�ᩴ��"CB�-�0�1�Tڗ0�?�a*m��� 0��x �%�<� P�8��HKP�4�SN@Ķ27��{ `!�@`�XxaX���Qi�-�dV�1u ?�W}�h2�2�jG�� ���<ajd�&��� DX� "��^��7�� dx�z��Y����&��S~�_C���F������b3�1e�҄�S.�@A���(�7J�J���T�cʥW.%��IsW�rK�蝕�}� J���� �� ǀH��*��+�,�/�*�G�"e e � �� S&)���1�sD�R�b}�|^��vz�V�-e���eB����g�2I9���LRem�z)��?=١��YN��8ҟ�Zd�Il�'q�?���$�����?��&�F���]R���rNFI^��J�*礌��� �D�)礑�wV2�[J � �2G��ǔ�o0j��r3�X����<�Me�4\WV��u��|ɾ��d��� K�%���� wGKo��� +� ��[�d�G��W�ʨ$�$��)I�d=�������?ViI������qw��Y�]I���t ��"�8����?B�����߸z�>I�ȸ:�BI*I:I2I6I�%���d�#WE�콴+��5)����9�Ε����� �#�;�G��_� Q��p�� A��� _�,i��Ֆ���Wu�g�5�U�-y�d�B$)$�,� �ǒm� mɩd�(��G��� ~@�� ����mmHR���Պ蘻n�+L�dZM�����BT���$��X����y���f� -��^������ J�WP����#��bGr,)��ǒ=��^G`I,� ���=�7�V!Pղ���<� N| 9�',�C�%��$���� �r����_{y%����<%��X��+ɕ%�u�Đ4�� s|�E`�Jb�d�+��JR1�r� ZU-Mq����O�HV鱤�S�%��.K);�X <���(�\�"���/"IE��@�/B���z�˪��HF鱤Tr�k��e��JB�,: x]�3����"���p ��td�I 4a0���)ST� S PX@�ɢd3 e�lt�J��4��2�H � ��6����z(�w2K�$8+0�e�>*H�7i��nE����A���k����H32�� ^� B_��Nt�K�/��"���*B���wZ.?(��i���Y�DŽu�/�)ԠlA���3=љ ��:0����tY�WU�©�?Su+� � +n�����훬s4�w���!sďKr��^�ﻬ0���f�_�,"��H� �" 8�5��C(�� i]ز 9u���#��a ���22�u_�Gz�`�����5\蓨 �Qg\<őR��V�ȪľȂ[ =gt�48=�w�R+�&�[A[���F�\C ��W����/-e"0 ���Hn4,~^�����[����`@��.������͗�����ҽ�R�d��`3�A!TTf';��rH#-b��z�g�������\ �?��A�7� O�*ӵ˼�8UC�tQ���K+�[��$���Tq�A�`�~.i � ST����yj (�����R�f��P�(�d�����0�@fH;�/����C��gi���e$�� ��M��&�{�2�� -${���$��Y�Sc���!*Qd�}?���_A���$��XZz(�+�����s[J� H��[#0��{.Y��":�Xڽ$d�+�C�Ј�`�ִ��h�� -Y��fa����lA�v�n'[y� �W4�+ E�ܲ���4 ���ix���P�6a h��~�#45� �X���}5�{ý�Q�e�O/m�ú���K݇Z@u�ג"����ڴ�^� ���t@��8�ͫ��0���.op ���7� �: �� �L� 9a��*�z=2�ȗ �ߛ�(�2��;�RטF��mW�����}@ڵ�n7[.�0݅#tK���JefF��$ 2�����8\S���5\�u�nm������ ��ukl�^��m�I>��S}�M0W�X��j��K��fG���?����(9���� ��PeT�Nܨ�� �v��k�$���u�2�I��L#6$�G'� �u�6y��Zd�Y �� �UA�=! �x�sX��0Q{�6�\}Y���ߟ*]0��ɨ����/�� Eq H�&1��j�=�d��q�5�!As���.sJ�8�����Ȟ��3d �(n]�h�^-�lRT�Y��9���w�!0���`�nLj��q�.$��y1�A;��V�d�y�Y�oN;�M�5�@%:dlu�/H�}ܭLeo�\�8X�_+B� �t���U�a +j�..�{� )�f7��z*���/�i�s��h�aǓ�# 4 h�u�no� w���DbY�=V�4��q W�{�����P��ԑ<W��Ke1�I� M��#�^�[IP�L��3 ���A �U����읯�qҴR� i�z�o� �Д�;��)�p[� ��u 2��4t�D��}4/��e Y$Bﰠ���U�ε�C =��-��/u� J�5��j~��`6\�/�3��%Խ@�>Q��ܶn�s�(�R���-�/:|��(}��ӫP8g ��x��E�bl)����]*O�� g�4�� uk�Q�қ���,�g�_ҥ�� ]Z <��Ӯe�<&�t�� כh4�P���3w��.jzYZ��s�b_� �v�\}� ��"F҇/ ����%p L�k�H��zب}RXj��xkf/l�z)��G� D'�7�z�$�@R S;&�O_�r�����2'� l�m���M�o����Ť���+��2]�A�ַ��41�q|��8)I� ���{# Bw�� i���5xևd�&4Y\ �< @���?����"��cv�rK��xJ�?:7t&2�c CY2��n�� b.�!� ͼ\�3��(K��a�zNq����p�7 АA��mh}���1&x��t�=_#L��R#����� j=�^? )�l��w��K�l#l3�� /�Ƕ{(E݀s��`O��"�9�7��wZG��CZ5��ؐ�vT�wB;F������ޚ� Ї�`��6��;�E�.n�wA�w(7f(M w?a#�`?M��{�<QJߓ��wY�\���-��3?�F���=f��h�N���t,�V �>�Bd�p����[;�}�ho���oQ�LI�mB t$�L�9� :c^xXںv����NaCK��I ���-��{꭛�'��_1̍�@ �$���osԁ���ċ�� Ev�,�� P��2"2`�5\��)��Z���� Å��GRPYW �hs���"�.� ˈ�x7�TF�����>o�й���t{��Ե@�*Uj�z�(��u�~qʢ��&��qa���Vςz��7�ž��|U�^�%�4��L8���GB�<�����D�n�A��*J� *#�$�&Fe�z�����|�s��:�æ�� ����!*��t�>�1�ঀ ��'�-%Y��Υ��6�@Tݍ ��@?�6�+Ͱ�y�ꋢH�-�����bu ���į���ұ���\�{T��jc�� �W=>G3�<����c�#LA ��В�it{����P�:�Ί����Ϭl�A-�L(R���:A��<�G �CKK s����f�y*x�Ӭ��2��m ���h�(;�AW!v�1F���w�� f�S�m�]��}��BΆq� �2[ Y�� ֓�� �>P�!��X��� P��hu��o��j.,��@p�s�}=���t3�bw�|������Zm �lEX{���~���Vܤs�2)5� � �#�׳��Q�ϵ�ںg9so�JV� `�m��1q����y6����\8��R֗����]NU3��V��3vlȆ�:�Z2�{q�L�p�h@!=4�A$�D��g�i�"� �g�a�̦�X6Z��� |��(aKn� �%�$2�w�L ��k��E2O���#���s�.�&�ӫ�*�ԳG�!�r\VMu5� ;��e���q�� ����Y^W� ��`��2��Q';�@ �D- �<S��6����e{��mS'Hg��m��\es��Z3'�YaA ?n|� �h9T��=��'Dh���!H�Lp�O�R�e�+�df+�\�,xKQ�JřPTB���p�)�~؟fC+���1J� �d�U������P�9���FIl�h���� �i��Z� (�q�/m�+�_�X:�53 �p�y~q=�b?c����-@t����5���Z�kF㇍���Ө�N����} �� �'MK0r�Ք�@�G�l,��L������eOYw��s�-�ԕ��F3y]��˂�l�G��LIk��6_3���4�� � 3�E(��Ox�u�|m�E¡�EV4vc`D��o6��UsLZ6xl~j ҉�A}(��g�f8�in@f��,ˣjS��F�%J��a�M)�rLj�P4�����3������\y�lM�AS�<��4 �q�}, tя�m9v@ݠR~d뒖��� :��NM���1g �m:�X7DK� �-ln�$L�Ul� ��< �D�B��!$CN��+�@Eń8GIr��m�(Ov�i铨���2y��o�k4�#�z�;B����5G��)W`��ѣ� hZe� '�yA�ÜH��s���AĈ sg���.�]G���� 6ܕ���%�l0s!�+�E&fYW g^R�_9a=RS]T�����"�Z��d*7DB ��o? ��lboJ����Ne�Nķw�`����Ku�j⻰B|領^�ݔ �\N��&;쯾b���>� ;-�u �I/^�%�#��Y�W�t<C3��֕�2�f�z�M]_'Yry��3�mxm���� <�ܥ6�!���x%xw��N��tw�u�r�Ut CQ�7q��X����V���齴��t����-9�'S����j������% ͌�H�U�#pw�|[W�11��\Z��h�=�S� U_A��d.�������2r2�F������;�Z5e�S��N?d��b m h��w�_] !qh���i��=X�1&�"7%|�Wu�uVV�2��� b�Z`���{���X/膣�� S� ��|SzD �+�$�J MZ��� � �i� �`:<�qk�k�jWq�����Bn);6�:?Xmж5r'��y�ThI=L�v�^�Ƹ� 8#+�����s��� 3�h�K��Bl�5 {\8�m� !��;b�1�S����)��X���E%�M~M6�Is�8wC"���A �铳���mO�/���K��(@�Ո��%]�7� �:�,R4}��}q,l��VG� �kN�����h�X�VN�ʽ�<���H�ՙ4������a`��M�ݏ��ms�&G�ۮx�5��̧���z7x���t89#w#r� !(���.ZH*?!��t]y$��� R�f6C"���\��(�J��9� �h'�؊ �-���J�Ĵ�<b��Y/f:9�+�v0`���ҥ�~ł���A����t��!"��8mgk�4.~��)��"�K�uz�a*_m��g�e��� 2k_�w����� f�x� '�k���3|W �&6�����ҪF�e�x[����PcD[pQ�#� t�s$a� ��9�3��m.���B��=R�|�ͻ ����#��Q�2�������Fu��:�A���z�� �M��,��xݜN�u���1 1�!$O�(�l�tX ��8 *���o]˕sh���k=�7����Byi� �ӟ��Q�g#�B�9�F}8hhE�Տ��*t����c��Q�zHar3�P��$� a�����b��TJp�`C��#G�jJ�J�"��c7��{ ����ԛ d�V���w���r˿�=d #�fQ)���Y]�@�h�� v�ʐ���eQ���R�\do��1�49wg���s�Z�3�q{�Q�����}�GeR�_[Z�� ���/ߠܑ����UמR2��)�: I� ��+ E�%~�5�ڽ�� � u�}g�q_�,�:.�ۣ�� ��P9 ��<���x�P9�>���N�Կ�9��<9���o1�UA�.&����*�II��_��$՞���ݠ�\���nPw`�}-��>M �HES�L�A��ƛO�� ��� u�� �%]�E�S��˓����D�1��gt���מ�{�>�Xڨ�;AV~�H������i/��8�>��c�����T�/a i�1� � `��_?�N���q�v@�y, � �֚2��XsO���c����V<�k�qM���s',.#v}^#�jt�Z.�%Ǜ�e�U �4��~1�����*�i�$dQ f� ڜ�rً���,:��o;(N�Y�U���q� y�T�6��^�W2FL0��⦃nCFp>C�J3�c+��*��l� +�40��2��ݡ0��a��� /�sN�k�T��2%Yk纝���yB�3 �!�ι=s.�_-�ߪܞ�y#p� �wu�"�h�G �l��9��~K-�坧ӏr�P�j�"��FN�GC�c�ΘP��O5f�|7ȏ%/@�3� �X�c{�� z:�D�Zt��Ĥi7�h�pJ2(c�<IIEs�����̛P�h"h�ť�Q�5��nD�4�[��e���(ޙ�;������^q��BY�`��&����X���ҡ8̈�a� �I����(�`'`�)���'2B:���E�W�>¤+�@7���XzhjI�� �\�k��ii�1Ӭ�s��p�ķ<{J7�s���B ����n�4N�ݰ�r�a �"��Aa2r���)��� �,a!�R م�?��8��1� �e #���L�d�ʒ6AN.�sw���n2�2��/��� �WlMCԣ'���������� �{�l6�Y�b�@Պ1���׳$f�'e�`E 7H�I+Ii����Ԇ%�e�?"��\�a�;�㎘>���J#E&�8P� FG���=�x�UƖ�#�@?�M�X�ɥc&eq����}�YLu�oglRk��X"(m������1��{q'X�vZӌ�@�9���HF"� }��&�!�gn`^&X�����''�� � ��Ƿ� ���b��i�1�\:����7���RP�~ ���Ȝ���� xL�@��' �X�!`�8���Ԁ��M�O�$�UV����0�&���~� 0<W��_��&��"�U��r�ա�+Z6�F y�c�(oi�j���YH�U#� ��� ΰ;oF Xa���H 7���Tw.���oy�±ھ <�� Pc�R�Z��u�5N¢��JޒTB��*��<� D�@�����}�9T��+7U�e�H> @�1�Q�в vXES��y�m䇤���s(/�E+F�J����J�AI0jlFd��;x��N�!��3 _�䃄PǍz�J��&�����E 5�Ӎ8����{RU�%��RJ��Գ�!i࠷�����8���� ������R�x�Ӝ{#�٤gX �$ZT�Z�"� D�ߕ�H����@T�̓\$T1��5Ҋ��'�Ҥ*���p}��]VF����gB�a �#������[�5"���Ȏ�t#��7�:k�ȃ� 1��'�%"���4 ;��H� �8�hŚ<���h4�x��&y�^ԱD{�lz�ap�n� v�I�7)�Mf1��e���Jp+���39l_8�PO��Ok!k�r-�b��0$�}.7�m�"�ǀ-A��z-Lj�j�>�Ț�{��~?*a�ߨ�\�[/'&��s���ze�_fE؈��E!�� �Zw� sQ��� F�d��P �vk����z�3 o c�9ktKw��(�*�jK�q=S?w�I[Zfm��?-a����i$! ��gI��p�踙Vf} ��Q�C�6�AahDr�#-���2�A�E����X�0uwbBM�ԽF�N !� f��k fH�s �$9ܒ@�FXT�� ���J���a�M� %��$8����F�#R$U�{�g��0�$ �4�=���N�מ�L��<���3A�%+���� �Jy0q��9jKgt$ܾ qy��x��B,:��a�mƨQΎ��\��B�*1l�'�Pg����&t�zg��6\@�̝8: Qr��.�ϙ�6E-��&��)���V��V|>};�=w�3V��I"��=3�ʟ^�|<�������˙d�|@V{�4Q^}�d�'�;(�# ���p�ݨ��a���j 4~*4y\���a���R���-|$�>� t�q�F1鯖�r��mZ�� �����ݑ��s���$�]4�$�<m��( j��nM�Z>� y3��Z�"��?��<�b2C��k_��I�{D��|�Hsڡ��o��)�+ ����O�[xu�4�M��D�<�v���?B�9��è�� q[e���f�`�^͎����� w��:��߭|^z ��n���#H��!�"��_�!����Cً=� {Q M� �)��빯B���A�=��q~ ;�X��'n����9KV�� y{<>�vE�^��pD�Y��G�w��o�t}y��rN�(x�ş4�J�ϋ����τ��3K=��ۣ�_�^z�Oȋ�y�<�N�;dl.�iq�C4F�?D&����2���l�X ���P���I��\�Sd}�1_N�p�L��O����Q���!?��� ��yC�|��l&5��;;�SFe�#S@�q����ᇕ x��i�<7��n���|]�����㟱���K�8=����>��i ,odi�~BDž%��^����r�0���7��M {�m]�}�Ξ����>H ���F}!ny����I�a�� M��Vכ�2t[r�kw���v&r���ח*y9���h�����fr�ٿ&��3!�JǷ�8[I��& 4�xoۭ����g�L� �b�� ��3 8 �lI�DJ?��+�s�� ����(�r%@y�?S�Txe>&>c���'����~U�o\m?3��Y0I^j�dz���̏��3vG�u�� �$ ͷ��7{�d�&=0s�~�zL_�� :]�� q�e܇��P��T����0c�s0���5 Y�9� �s^od�$��m�Ħ. �I��printb128 � extendipv4 � extendmask4 � is_maskanyto6 � is_ipanyto6 � is_mask4to6 � is_ipv4to6 � fastcomp128 � adder128 � addercon � have128 � is_hasbits � _isipv4 � netswap_copy � netswap is_sub128 is_add128 _countbits _128x2 is_ipv6to4 is_shiftleft is_comp128 _128x10 _128x10plusbcd _simple_pack ) _bcdn2bin 0 is_bcd2bin 2 is_simple_pack 4 is_bcdn2bin 6 _bin2bcd ; _bcd2txt = boot_NetAddr__IP__Util ? PL_thr_key � pthread_getspecific X Perl_croak_nocontext b Perl_sv_2mortal g Perl_newSVpvn o Perl_stack_grow v Perl_sv_2pv_flags � Perl_croak_xs_usage � Perl_sv_setiv_mg � Perl_sv_newmortal � Perl_newSViv � Perl_sv_2iv_flags � Perl_xs_boot_epilog � Perl_newXS_flags � Perl_xs_handshake � '-fno-openmp' '-fno-openacc' '-g' '-m64' '-march=x86-64-v2' '-mtune=generic' '-O2' '-Werror=format-security' '-flto=auto' '-ffat-lto-objects' '-fexceptions' '-fstack-protector-strong' '-fasynchronous-unwind-tables' '-fstack-clash-protection' '-fcf-protection=full' '-fwrapv' '-fno-strict-aliasing' '-fPIC' '-iplugindir=/usr/lib/gcc/x86_64-redhat-linux/11/plugin' '-fplugin=annobin' s NetAddr::IP::Util:: s, cnst NetAddr::IP::Util::addconst as, bs NetAddr::IP::Util::countbits s, ... NetAddr::IP::Util::shiftleft NetAddr::IP::Util::bcdn2bin NetAddr::IP::Util::bin2bcd NetAddr::IP::Util::bin2bcdn NetAddr::IP::Util::bcdn2txt 1.53 v5.32.0 Util.c $;@ NetAddr::IP::Util::comp128 NetAddr::IP::Util::ipv6to4 $$ NetAddr::IP::Util::add128 NetAddr::IP::Util::sub128 $ NetAddr::IP::Util::hasbits NetAddr::IP::Util::bcd2bin NetAddr::IP::Util::ipv4to6 NetAddr::IP::Util::mask4to6 NetAddr::IP::Util::ipanyto6 NetAddr::IP::Util::maskanyto6 ipanyto6 maskanyto6 ipv4to6 mask4to6 bcdn2bin simple_pack bcd2bin hasbits add128 sub128 comp128 shiftleft ipv6to4 Bad arg length for %s%s, length is %d, should be 32 or 128 Bad arg length for %s%s, length is %d, should be 32 Bad arg length for %s%s, length is %d, should be %d Bad arg length for %s, length is %d, should be %d Bad arg value for %s, is %d, should be 0 thru 128 Bad arg length for %s%s, length is %d, should be %d digits or less Bad usage, should have %s('packedbcd,length) Bad char in string for %s%s, character is '%c', allowed are 0-9 Bad arg length for %s, length is %d, should %d digits or less NetAddr::IP::Util::simple_pack NetAddr::IP::Util::notcontiguous � ? f' ! ! 5 ! ! ! &. ! ( 5 )� @int � *A ! �H �A �A �H �A �H �� �� �� �� A � � � � �� �!� T ! T @� O� l7 �H u �� $� � � H � H � C ! T & H 1A ! [ A $ � 9 [ � � � " h # p $ x ' � � � H � < � H [ *!5 � ) V i � v � � H �� j ! � @ "� H � � H F � 9 � � � $8+ :� ;� $?\ A � B � C� $G� I� J� K� $ O� Q� R� S � T U $a� c d ^ e� g� $ YO [ ]b h � $ls n� o � $t� v w � xA p3 5 < D+ ,_rt L\ V� i pO ys � H $�$ i & � ( � * � 0 � { � | z '� � O � � B! 5 �� �� � � � T � H � � � � � ! + + 5 �� �� � �� �� ? ? � � � ^ ^ � � � � � � & 0 0 : D D N X X b � l � v � � 0 � � � � � � � � ! � 5 � I � ] � ^ !� {R �O � O � _ � o F _ H R o H ^ H �� � ! . � H �{ � $ � ,� -� / � 0 � 2 � $ 4 � ( 9 � 0 = 8 ?+ @ J� H K� X L� h Y{ x C � H (tm 8& � � � � � � � � � � ( 0 h O � � ^ b� d O e � f� g� h � �� O � � O D6 F O G � H� T F H � *DIR R "IV o� W "UV pH "NV �} ! ! f � � "OP h � (op ( �z ��/ ��/ ��E �%D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # "COP i � 4cop X �� ��/ ��/ ��E �%D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # �)/ $ �%D ( � O 0 � / 8 � / < �iK @ � sK H � / P o � ` � ��/ ��/ ��E �%D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # � �/ ( � �/ 0 %D 8 / @ �E H F P �/ X s P �? ��/ ��/ ��E �%D ��. ��. ��. ��. ��. ��. ��. ��. ��. " ��. # � �/ ( � �/ 0 � �/ 8 � �/ @ � �/ H ~ L : �r4# #j/ .Iop $�/ %j/ 'j/ (j/ * W ( ,/ 0 -/ 4 /$W 8 0/ @ 1/ D 3j/ H 4x P 5x X 6x ` 8/ h :$W p <$W x =$W � A�. � Cg � E~/ � H�E � K�< � L�< � N�/ � O�/ � ^�. � h�. � i�. � jt/ � v�. � }�. � �~/ � �~/ � �{N � �y/ � �)W � �y/ � �W �`/ �`/ ��< �.W �3W ( �gD 0 �4# 8 �4# P �4# h �4# � �P. � �P. �5ISv �`/ � �8W �~/ 5Ina � �� �t/ � �`/ �5Irs �`/ � �t/ � �t/ � �t/ � � � �`/ � �`/ � �`/ � �/ � �L �L LK `/ � �1 � �/ �/ ~/ t/ t/ O ( � 0 �. 8 ?�. : A�/ ; B�/ < C�/ = D�/ > H6 ? K`/ @ N=W H e�V x }�V � ��V � �� � �O � �/ � �/ � �� � �� � �� � �t/ � �t/ � �t/ � �O � � � �`/ � �`/ � �`/ � �MW � � ��/ ��/ ��/ ��/ ��/ ��/ ��/ ��/ �O �`/ �� �/ ( �/ , �/ 0 �� 4 �RW 8 �t/ @ �t/ H �t/ P �t/ X �y/ ` �t/ h �t/ p �t/ x �t/ � �t/ � �`/ � �`/ � �`/ � �y/ � �WW � �~/ � �~/ � �`/ � �y/ � �y/ � �y/ � �y/ � �y/ �y/ �O �7 �/ �/ ( �/ 0 �/ 8 {N @ � H � L O P y/ X `/ ` `/ h � p / t �/ x �/ y �. z � | / � #/ � $gW � 3~/ � 6lW � 8z � :�7 � ;bD <%D =%D E�7 F� I/ $ K�/ ( L�/ ) M�/ * N�/ + Ql , Rl 0 S` 4 T` 8CIan U/ < X/ @ `/ D c/ H d/ L e� P iO X k$0 ` n�/ h o�/ p qqW x s$/ � u/ � �U �`/ �/ �%D �%D �%D ( �%D 0 �%D 8 ��W @ �O � �� � �� � �/ � ��. � ��/ � ��. � ��/ � �O � �� � �O � �� � ��/ � ��/ � �4V � ��/ � �O � �� � ��/ � ��/ � �O � �`/ �: ��/ ��/ �j/ �j/ ��W ( �y/ 0 � 8 j/ @ y/ H �W P %D X %D ` �W h ~/ p ~/ x �/ � �W � �W � y/ � y/ � � � #�U � $�U � -�U � 1�U � 4�U � 7V � :~/ � @~/ � Cy/ � E~/ � G�W K�W MrV P�V X Y�W ` Z� h bcU p o�W � zD � |� � �D � ��W � �`/ � �`/ � �`/ � �`/ � �`/ � �`/ � �`/ � �`/ �`/ �`/ �`/ �`/ �`/ ( �`/ 0 �`/ 8 �`/ @ �`/ H �`/ P �`/ X ��W ` ��W � �`/ ` �`/ h �`/ p �`/ x �`/ � �`/ � �`/ � �`/ � �`/ � �`/ � �`/ � �� � �� � �� � "SV � D# 4# (sv �# � �/ �/ �i1 "AV � �# (av ��# �_3 �/ �/ ��2 "HV � �# (hv �$ ��3 �/ �/ �d3 "CV � *$ $ (cv �j$ ��2 �/ �/ �n2 � w$ �$ `6 / / c4 "GP � �$ (gp P u% `/ D �7 / / ~/ y/ ( �7 0 t/ 8 / / �6 H "GV � �% (gv �% �i2 �/ �/ ��1 4io & ^4 / / �3 � & h n/& rSO h ��& � �. � �. � �. � / / / {N �< x / ( 0N 0 � �& 0![' ! 7 ! �P ! �. ! T ! �. ! x ! `/ ! O ( "XPV � g' 4xpv ��' �~/ ��6 �� �7 � �' ( ( ~/ �6 � 97 �6 � ( (" k( " ~/ " �6 " x " x " j/ � x( #��( #� ~/ #��6 #�� #�� � �( 0 ;*) <~/ <�6 <� <]7 =�6 >e6 ( � 7) h$ �) $~/ $�6 $� $�D $~/ $�D ( $E 0 $*E 8 $O @ $LE H $�7 P $/ X $�7 \ $/ ` � * � e+ f~/ f�6 f� f�7 g�6 i�1 ( v�7 0 x W 8 y W @ z W H { O P | t/ X } O ` ~ t/ h O p � t/ x � T � � �. � � + @! �+ ! 4P ! 4P ! RP ! 4P ! 4P ! P ( ! �P 0 ! 4P 8 "ANY � �+ Dany ��, � �`/ �j/ �t/ �y/ �~/ ��/ �O �� � / � / � W � g � � � �/ � N/ � �/ y�, zOU {� | � �, 07- �TU � g � g �^U �OU �OU ( � D- ( ��- �y/ �g ��/ ��/ �y/ � �- % �- % x %&lD %' / %( / "PAD � �# � . (%+P. %, x %-�D %. x %/%D %0 / � ]. 0%L�. %MO %M~/ %M�D %M/ %M/ %M/ %M� $ %M�. ( %M�. ) *I8 &�O *U8 &�. *U16 &�5 *I32 &�� / *U32 &�A / E/ &� / � i 'N/ C/ � & 4# `/ `/ j/ u% �# �# � ! '�/ �/ ? �/ T �/ H '<�/ '>�/ �/ 'Q �/ (4u (50 0 ' 0 � 0 6/ (;�/ 9 )�l0 )� / )� O )� �/ )� t/ )�00 6A ��0 *HE ��0 (he # )1 #$ �1 #% �6 #)�J *HEK �51 (hek #-i1 #./ #// #5�/ ��1 �O �W �g �r �`/ �j/ ��1 ��1 ��1 �1 �0 �$ �/ �i2 �O �W �g �r �`/ �j/ ��1 ��1 ��1 �( ��2 �O �W �g �r �`/ �j/ ��1 ��1 ��1 *) �_3 �O �W �g �r �`/ �j/ ��1 ��1 ��1 ( ��3 �O �W �g �r �`/ �j/ ��1 ��1 ��1 k( # ^4 O W g r `/ j/ �1 �1 �1 �) # �4 O W g r `/ j/ �1 �1 �1 �*n`6 *o~/ *o�6 *o� *o 9 *p!�9 *q 9 ( *r ~/ 0 *x / 8 *y / < *z x @ *{ x H *| � P * �9 X *� ` *� / h *� / l *��9 p *� � x *� / � *�/ *�/ $ *� O � *�`/ � *� x � *� x � *� x � *� x � *� �7 � �4 7 ��6 � r � ~/ � )/ � �/ 7 ��6 � W � g � �6 � �/ )1 7 �7 � 7 � � �& # �97 �� �`6 # ]7 � `6 # <�7 <� <`6 A / '�7 �/ �7 $ �7 �- # f�7 f� f`6 # s�7 t�7 u F */8 *�. * �. * �. * �7 (*(�8 *) x ** x *+ `/ *, `/ *- x �*/�8 *0 �. *1 �8 ;8 �8 H *<�8 *= x .end *> x *E x *F�8 j$ 9 *o/9 *o� *o`6 h*��9 *�X: *��: *��: *��: *��: *� ; ( *�F; 0 *�i; 8 *��; @ *��; H *��: P *��; X *�< ` /9 �9 �8 �8 *��4 *�.: *� � *�.: x *�: 9 X: �/ e/ / ?: / �: �/ 9 O O O x `/ / ]: O �: �/ 9 `/ O O / �: 3: �: `/ �: �/ 9 �: '�: �/ 9 �: ' ; �/ 9 / e/ ; '<; �/ 9 / A; ?# <; "; / i; �/ 9 A; / K; `/ �; �/ 9 e/ e/ / n; `/ �; �/ 9 A; / �; �; �/ 9 �; 7- �; 9 < �/ o/ � �/ �9 9 < / / �/ �; X*� �< rex *� �< *��< *�`/ *�O *� � *� � ( *� � 0 sv *�`/ 8 *�7 @ pos *� x H *� �. P �9 � *� < *� = *� = *� s= *� �= *� O �< �*�s= *� � *� O *� O sr0 *� 9? u *w*C = : x*��= *��C *��= h *�"�= p x= *��< *� / *��= *� s= *� .> *� s= *� / *� / cp *��= *�~> *� s= *� / *� / cp * �= *~> /8 @*4? * s= * / * / cp * �= * / * �/ *4? me *~> ( * 9? 0 * / 8 * �. < * �. > �. �. @*�? * s= * s= * $s= * 9 cp * �= * �= $ * / ( B *!~> 0 *"O 8 0*%0@ *' s= *( / *) / **�. *+O end *,O me *-~> ( *0s@ *2 s= *3 s= *4 `/ *5 O *8�@ val *9 � 8*>A *@ s= *A s= me *B~> B *C~> cp *D�= *E �/ $ *F � ( *I � , *J O 0 (*M}A *O s= *P s= cp *Q�= *R�= *S O *T / *U / $ `*XDB *Z s= c1 *[ � c2 *[� cp *\�= *] / *^ / *_ / *` / *a �/ $ A *b~> ( B *b~> 0 me *c~> 8 *dDB @ *eDB N �. TB H h*h*C *i / cp *j�= *k / *l / c1 *m � c2 *m� *n O *o O *p � ( min *q � , max *q� 0 A *r~> 8 B *r~> @ *sDB H *tDB V #h*��C *��= *� �< 1yes *��= *� �= *.> *�> *#>? *.�? *60@ *:s@ *K�@ *VA *f}A *uTB *x = �C D H *�x= +DH �% %x $%!bD %"bD %# gD %$ gD �- �- % �D % �D %%�D gD 1D �D P. %M�D %M~/ %M�7 $�D $� $`6 $E $�/ $�+ $*E $�/ $�7 $LE $t/ $�6 $nE $�7 $ � �E �%D ,sv �`/ ,iv �W ,uv �g ,pv �O �x �nE �/ �E �/ �E �E # F �/ %D t/ # 6F �/ %D 0,1�F ,3 O ,4 O ,6 � ,7 � ,8 O ,9 O ,: O ( -*�F -, O -- O -. � -/ � ; �.HCG .MCG .VCG � .[TG .beG .iT � .nvG T TG 2H T eG 2H � T vG 2H � T �G 2H �w H/+ H /- O /. O //� /0� /1� /2� ( /4� 0 /6� 8 /8H @ F�0� �J 0�O 0� � 0��J 0�O 0� � 0��F ( 0�O H 0� � P 0��J X 0�h ` 0�O � 0� � � 0��J � 0�� � 0�O � 0� � � 0�& � 0�O � 0� � � 0��J � 0�� � 0�� � 0�O 0� � 0��J 0�6F 0�O H 0� � P 0��J X 0�� ` 0�O � 0� � � 0��J � 0��G � 0�O � 0� � � 0��J � 0 � � 0 � 0 0"O h 0# � p 0'O x 0( � � 0, � � �F �F h & � 6F � �G 0- H #&�J #'`/ #( � � GK !GK "� # � � $ �/ � %�. � &x � �J )�J � dK � iK XK 0 S�K T �/ U/ W gD cv X �7 Z / [ y/ ( 0 `;L a �/ b/ d gD cv e �7 gv g t/ h t/ ( 8 ��L � �/ �/ � `/ � �/ � `/ cv � �7 ( ��L 0 LK # ��L 1svp � j/ 1gv � t/ ��L ary � y/ ix � W � M � / ix � W �FM cur � W end � W �mM cur � `/ end � `/ # ��M 1ary ��L ��L � M �FM 0 � N � N ��L �`/ �mM � gD ( �0N ��/ � `/ #8 {N xK �K ;L �M N z X .SO / �. 0 �. 1 �. 2 / 4 x 5 x 6 O 7 `/ 8 `/ ( 9 O 0 : O 8 ; O @ < H =9 P #h owO p/& q�N 8 P y/ P P P / / $ / ( / , / 0 & wO !wO � 4P �/ `/ 7 P / RP �/ `/ 7 9P � P �/ `/ 7 `/ / WP � �P �/ 7 �; �P + $1 �P .val 1 l0 1 b 1 / 1 �7 1�P (1@Q 1@Q 1 `/ 1 O 1 O 1 `/ �P 1 �P ; �1"U 1&U 1'l0 1(� 1+� 1-U 1.U .ps 1/U ( 10� 0 14 / 4 15 / 8 16 / < 17 O @ 18 O H 19 �. P 1: �. Q 1< �. R 1= �/ S 1>�/ T 1? �. U 1@ �/ X 1A �/ ` 1B `/ h 1C �. p 1D �. r 1E / t 1F `/ x 1G / � 1H / � 1I g � 1J g � 1K�/ � 1L �. � 1M �. � 1N / � 1O �/ � 1P `/ � 1Q U � 1R `/ � 1S O � 1V O � 1W O � 1X O � 1Y O � 1Z O � 1[ O � 1` )/ � 1a �. � 1b �. � 1c �. � 1d ~/ 1e �1 1f y/ 1h #U 1i 3U @ 1j �. T 1k �. U 1l �. V 1m �. W 1n {N X 1o 6 ` 1p )/ ` 1q )/ d 1tg h 1ug p 1vT x 1w�/ y 1y�/ z 1{�. � 1|�. � 1}�. � 1~�. � QQ �P EQ l0 3U H / CU H 1QQ �, OU YU ��U ��/ �$�U �$�U cU &�U �U � �U �/ '�U �U '�U �/ `/ (�U *�U V �/ V �/ `/ +$V )V '4V �/ G A yrV H �V pad �V 4# �V H &�V �V '�V �/ �/ :�7 >�V B$V IW fn J �/ ptr K L�V �+ / P D �C CU O MW H � W gW H W / �W H O �W H �, ~/ �J �/ [' `/ �W H " T �W H `/ �W H H <-S/ 6A 2>�X 6A 3�Z ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K 41 �Z ,u 43�Z ,c 44�Z � �Z H . �Z H 45�Z % 7O % 7"O % 7@O % 8O % 8 O % 9O % ;O % ;"O % ;DO % <O % <$O % =O % =(O ,4?\ .txt 4A \ .bcd 4B +\ T +\ H � ;\ H *BCD 4C�[ < Kb\ �/ e/ b ) 5� `/ y\ �/ ) 5� W �\ �/ e/ / ) 5k `/ �\ �/ b = ��\ 3 ) 5� `/ �\ �/ e/ ) 5� `/ ] �/ � ) 5} j/ +] �/ j/ j/ x ) 5� O Q] �/ e/ nK / = �g] l] %$ g] < &�] �/ / ) 5� �7 �] �/ �V / ) 5(/ �] / 3 ) 6 �] & I 73 � ^ � 3 0 83 � �Gf 83�/ cv 83�7 ax 88 / 88 j/ dsp 88 j/ 88 / \ 8= � �e cv 8L�7 �^ p_ 8O �^ p_ 8Q _ p_ 8S :_ p_ 8U X_ p_ 8W v_ p_ 8[ �_ p_ 8] �_ p_ 8_ �_ p_ 8a �_ p_ 8c ` p_ 8e *` p_ 8h H` p_ 8j f` p_ 8l �` p_ 8n N �] O �] �` MT MQ} MR| MX MY0 N �] O �] a MT MQ} MR| MX MY0 N �] O �] ba MT MQ} MR| MX MY0 N �] O �] �a MT MQ} MR| MX MY0 N �] O �] �a MT MQ} MR| MX MY0 N �] O �] Gb MT MQ MR| MX MY0 N �] O �] �b MT MQ MR| MX MY0 N �] O �] �b MT MQ} MR| MX MY0 N �] O �] ,c MT MQ} MR| MX MY0 N �] O �] vc MT MQ} MR| MX MY0 N �] O �] �c MT MQ} MR| MX MY0 N �] O �] d MT MQ} MR| MX MY0 N �] O �] Td MT MQ} MR| MX MY0 N �] O �] �d MT MQ MR| MX MY0 N �] O �] �d MT MQ} MR| MX MY0 N �] O �] 9e MT MQ} MR| MX MY0 N �] O �] �e MT MQ} MR| MX MY0 N �] R �] MT MQ} MR| MX MY0 N �] O �] f MU ��MQ| MR MX N �] N �] N �] e q] + t ��i 8�/ cv 8�7 sp 8 j/ ax 8 / P 8 j/ P 8 / ix 8/ U g p_ 8 i s 8 `/ ip 4 �i P 4 O Swa �Z ��Slen � ��U �g P 4 b N �] N �] N �] O p� �g MU~ MT} N �] N �] N �\ N �] O �\ =h MT} N �� N �] O +] {h MT~ MQ��MR2 N �] N �] N �] O ] �h MTv MQv MR1 N �] O ] �h MTv MQv MR1 R �\ MU MT VF� 8 Fi QW� N �] N �] N �] O Q] �i MU MT N � . + � ��l 8��/ cv 8��7 sp 8� j/ ax 8� / P 8� j/ P 8� / ix 8�/ U {j p_ 8� 0l s 8�`/ ip 4��i P 4� O Swa � �Z ��Slen � � �� k P 4b N �] N �] N �] O p� =k MT} N �] N �] O �\ tk MT} MQ@ N �] O �\ �k MT} N �� N �] O +] �k MT~ MQ��MR2 N �] O ] l MTv MQv MR1 R �\ MU MT VF� 8� Xl QW� N �] N �] N �] O Q] �l MU MT N � + � � � q 8��/ cv 8��7 sp 8� j/ ax 8� / P 8� j/ P 8� / �p s 8�`/ ap 4��i P 4�. Swa � �Z ��Slen � � �� �m P 4�b N �] N �] U ,n P 4�b N �] N �] Y � 3 ��n Q � Z+� [8� ^ � & Q � [+� Z8� N �] O � �n MU~ MQ4 O � �n MU~ N �] O �� o MU~ N �] O �\ Ao MT~ $ & N �] O �\ fo MT~ N �] N �] N �] O �\ �o MTv � N �] O �\ �o MTv N �] O +] �o MTv MQ��MR2 N �] O ] .p MT MQ MR1 N �] O ] ^p MT| MQ| MR1 R �\ MU MT MR� VF� 8� �p QW� N �] N �] N �] N � R Q] MU~ MT + o � ��u 8o�/ cv 8o�7 sp 8q j/ ax 8q / P 8q j/ P 8q / ix 8r/ > � U �q p_ 8r u s 8x`/ Sn �;\ ��\ 4��Z ��~\ 4� �Z ��~cp 4��i P 4�. P 4� O Slen � � ��~`�r 4�b U �r P 4�b N �] N �] N �] N �] N �] N �] O y\ 3s MT| MQ2 N � O �� ]s MU| MT4 N �] N �] N �\ N �] O �\ �s MT| N �] O +] �s MT} MQ��~MR2 O ؏ �s MU} MQ�� N �] N �] N �] N �] O ] Pt MTv MQv MR1 N �] O ] �t MTv MQv MR1 O �\ �t MU MT MQ��~MX( O �\ �t MU MT R �\ MU MT VF� 8q 7u QW� N �] N �] N �] O Q] �u MUv MT N � + > ��y 8>�/ cv 8>�7 sp 8@ j/ ax 8@ / P 8@ j/ P 8@ / ix 8A/ U gv p_ 8A y s 8G`/ Sn u;\ ��cp 4v�i Slen w � ��~U �v P 4�b N �] N �] N �] N �] N �� N �] N �\ N �] O �\ `w MT} O �� ~w MU~ MT N �] N �] O +] �w MT~ MQ��~MR2 N �] O �� �w MU~ MT�� N �] N �] O ] %x MTv MQv MR1 N �] O ] Ux MTv MQv MR1 N �] O ] �x MTv MQv MR1 O �\ �x MU MT MR� O �\ �x MU MT MR� R �\ MU MT MR( VF� 8@ @y QW� N �] N �] N �] O Q] �y MU MT N � + ��| 8 �/ cv 8 �7 sp 8! j/ ax 8! / P 8! j/ P 8! / �{ s 8%`/ bp 4`�i P 4a O Slen b � ��P 8,� P 8-e/ { P 87 W N �] N �] R G\ MTv MQ| N �] N �] N �] N b\ N �� N �] N �] N �] N �] O +] �{ MT| MQ��MR2 R �\ MU MT MX� U | P 89b N �] N �] VF� 8! 9| QW� N �] N �] N �] N � R Q] MU} MT + � P �w� 8��/ cv 8��7 sp 8� j/ ax 8� / P 8� j/ P 8� / �� s 8�`/ P 8/ \ 4H�Z ��ap 4I�i Swa J �Z ��Swb J�Z ��Slen K � ��~ �} P 4Wb N �] N �] U )~ P 4Yb N �] N �] Y � 3 T�~ Q � Z+� [8� ^ � & Q � [+� Z8� N �] N �] N �] N �] O y\ �~ MTv MQ2 O � MUv MQ4 N �] O � R MUv MT��MQ~ MR N �] O �\ } MTv $ & N �] O �\ � MTv N �] O �� � MU~ MT4 N �] N �] O �\ � MT~ MQ@ N �] O �\ (� MTv N �] O +] Y� MT~ MQ��~MR2 N �] N �] O ] �� MT| MQ| MR1 N �] O ] ƀ MT| MQ| MR1 R �\ MU MT MR� VF� 8� � QW� N �] N �] N �] O Q] i� MU~ MT N � + � � � � 8��/ cv 8��7 sp 8� j/ ax 8� / P 8� j/ P 8� / ix 8�/ > & U \� p_ 8� �� as 8�`/ bs 8�`/ ap 4 �i bp 4 �i P 4 O Swa �Z ��Swb �Z ��\ 4!�Z ��Slen " � ��~ B� P 4?b N �] N �] U �� P 4Ab N �] N �] Y � 3 < � Q � Z+� [8� ^ � & Q � [+� Z8� N �] N �] O � A� MU} MQ4 O � d� MU MTv MQ4 N �] O �� �� MU} MT MQv N �] N �\ N �] O �\ Ԅ MT N �] O �� �� MUv MT4 N �] N �] O �\ 5� MTv MQ@ N �] O �\ Z� MTv N �] O +] �� MT MQ��~MR2 N �] O +] �� MTv MQ��~MR2 O 6� ԅ MU N �] N �] O ] � MT| MQ| MR1 N �] O ] A� MT} MQ} MR1 N �] O ] q� MT| MQ| MR1 R �\ MU MT MX� VF� 8� Ȇ QW� N �] N �] N �] N � R Q] MU MT + x � ��� 8x�/ cv 8x�7 sp 8z j/ ax 8z / 8z j/ P 8z / ix 8{/ U � p_ 8{ w� s 8�`/ ap 4��i P 4� O Swa � �Z ��Slen � � ��i 4�� `v� 4�b U �� P 4b N �] N �] Y�� �� Qޜ QҜ QƜ Y�� U� Qޜ QҜ QƜ N �] N �] N �] N �\ N �] O �\ �� MT| O 6� Ɖ MU} N �] O +] �� MT��MQ��MR2 N �] N �] N �] O y\ =� MT| MQ2 N �] N �] N �] O � �� MU} MQ4 O �� �� MU} O �� �� MU} MT4 N �] O ] � MTv MQv MR1 N �] O ] � MTv MQv MR1 O �\ H� MU MT MX� R �\ MU MT MQ| VF� 8z �� QW� N �] N �] N �] N � R Q] MUv MT 8 �� � ��� 4��i n 4�'�� bcd 4�. P 4� . i 4�� j 4� � ;\ 8 �� �� 4��i n 4�)�� tmp 4�� P 4� � P 4�"� P 4�(� P 4�.� P 4� � P 4�. c 4�� i 4� � j 4�� p 4�� V�� 4��� Q�� Q�� Q�� R �� MU��MT5 0 4i M �ӏ bp 4i 4i ӏ 4i+ӏ len 4i6� i 4k� P 4k� lo 4k � c 4l. cp 4l �i V�� 4n0� Q�� Q�� Q�� Y�� o}� Q�� Q�� Q�� O � �� MU��MT��MQ ���8$8& R � MU��MT��MQ} �Z 8 IT � �� str 4I len 4I � n 4I(�� i 4K� j 4K� lo 4K� c 4L. P 4L �i sp 4LC�i f�� 4QQ�� Q�� Q�� 0 4; > ��� 4;ӏ 4;%ӏ 4;1T ap 4=�� tp 4=)�� O �� �� MU| MTv ] �� MU�UMT�TMQ�UMR0 � 0 4* \ ��� 4*ӏ 4* ӏ ap 4,�� tp 4,)�� O �� D� MUv O �� \� MUv O �� t� MUv ] �� MU�UMT�TMQ�UMR0 0 4 E � � ap 4�� p 4�� P 4#� P 4)� - 4�. n ��� ap � p0 ��� p1 �0�� p2 �>�� p3 �L�� P 4 . R 6� MUs / � ! �� ap � len �� a ��� / � " �r� & 4� UWsrc �" T len �+� d ��� s �$�� - 4ˁ ��� Wbp � U p ��� - 4�� * �� Wbp � U p ��� - 4�� ��� aa � bb �!�� a �,ӏ con �;� tmp �� ] �� MU�UMT�TMQ�QMR0 - 4�� 6 �6� Waa � UWbb � T& 4�'ӏ Qa �2� i �� a �� b �� r � � / � �p� Waa � U a ��� / ~ ��� Waa ~ UWux ~ T a ��� / t ��� Waa t UWux t T a v�� / I � � � b IO c K� Td� R� Qs� R �� MU1 Td� Vė Qs� R �� MU1 Td� Z � Qs� R �� MU1 Td� ^N� Qs� R �� MU1 Td� b�� Qs� R �� MU1 Td� fؘ Qs� R �� MU1 Td� j � Qs� R �� MU1 Td� na� Qs� R �� MU: Td� P�� Qs� R �� MU0 Td� T� Qs� R �� MU0 Td� X0� Qs� R �� MU0 Td� \u� Qs� R �� MU0 Td� `�� Qs� R �� MU0 Td� d�� Qs� R �� MU0 Td� hD� Qs� R �� MU0 Td� l�� Qs� R �� MU0 Td� NΛ Qs� R �� MU1 gd� 4phs� � ] � MU J 9 �. F� i 9 �/ 9" / 9# �. K 9�/ d� X 9��/ b :T� �� X :T $ 3 b ;9 �� X ;9 X ;9� X ;9� L ; � X ; X ;� X ;� j _�1 c _�0 _� c : ; 9 I8 : ;9 I8 : ;9 I8 !I ( I 4 : ;9 I�B : ; 9 I : ;9 I 4 : ;9 I : ; 9 I : ; 9 I8 : ;9 I8 : ;9 I I : ; 9 ! I/ & I 7 I U : ; 9 I k : ;9 : ; 9 : ;9 I�B U : ;9 : ;9 I�B :!4; 9 I�B 4 :!4; 9 I�B < : ;9!I k 'I !$ > " :!;9 I # : ;9! $ : ; 9 %4 :!4; 9 I? & : ; 9 I '' ( : ; 9! ).?: ;9 'I< * : ; 9 I +.:!8;9!'@z , : ; 9 I -.?: ; 9!'I@z . : ; 9 I8 /.?:!4; 9!'@z 0.?: ;9!'@z 1 : ;9 I 2! I/ 3 4 : ;9! 5 :! ; 9!I8 6>! !I: ; 9 7 !:! ;9! 8.?:!4;9!'I@z 9 !: ; 9! : : ;9 ; : ; 9 <.?:!5;9!'< =.?:!5;9!'�< > :!4;9! ?% @$ > A B& C : ;9 I8 D : ;9 E5 I F : ;9 G> I: ;9 H4 : ; 9 I?< I.?: ; 9 'I< J.: ;9 'I K.: ; 9 'I L.?: ; 9 'I 4 MI ~ NH } OH} P4 : ;9 I�B Q 1�B RH} S4 :!4;9 I T 1R�B X!4Y W! U V 1R�B UX YW W :!4; 9 I X : ; 9 I Y 1R�B X!4YW Z4 1 [4 1�B \4 : ;9 I ]H}� ^ 1R�B X!9Y!�W! _6 ` a :!4; 9 I�B b.?: ; 9!'I !4 c. ?<n:!=;! d4 : ;9 I eH }� f 1R�B UX YW g 1R�B UX Y W h 1 i : ;9 I j. ?<n �! �G�GU�G�N�U� �G�GT�G�N�T� �G�GP�G�NV�N�NT �H�HP�H�HP�H�HP�I�IP�I�IP�J�JP�K�KP�K�KP�K�KP�L�LP�L�LP�M�MP�M�MP�N�NP�N�NP �H�HP �H�HP �H�HP �I�IP �I�IP �J�JP �K�KP �K�KP �K�KP �L�LP �L�LP �M�MP �M�MP �N�NP �N�NP ��U���U� ��T��_���T���_ ��V��v���V��V��V��V ��\��|���^��P��|� ��| $ &3$p"���| $ &3$p "� ��v | $ &3$ p 8� ��]��]��]��] �� �� ��^��^ ��^��U��^��U��^��^��^ ��Q��Q ��1���1� ��P ��U�� �U� ��T�� _� � �T�� � _ �� V� � v�� � V� � V� � V � � \� � |�� � ^� � P� � |� � � | $ &3$p"�� � | $ &3$p "� � � v | $ &3$ p 8� � � ]� � ]� � ]� � ] � � � � � � ^� � ^� � ^ � � U� � U� � U� � U � � Q� � Q � � 1�� � 1� �� P �"�#U�#�(�U� �"�#T�#�$^�$�&�T��&�'^�'�'�T��'�(^ �#�#\�#�%_�%�%��&�&��&�&\�&�&|��&�'_�'�'|x��'�'��'�(\�(�(_ �#�#V�#�#v��#�#]�#�#P�'�(v� �#�#v $ &3$p"��#�#v $ &3$p "� �#�#| v $ &3$ p 8� �#�$V�&�'V�(�(V �$�$T�(�(T �$�$P�$�%V�&�&V�'�'V �&�&2� �%�%1� �%�%P �%�%q 3��%�% p#"�3� �%�%P �%�%P�%�%q( �#�#P �5�6U�6�=�U� �5�6T�6�6V�6�;�T��;�;V�;�=�T� �6�6]�6�9V�9�9v��9�;V�;�;V�;�;]�;�<V�<�=V �6�6\�6�6|��6�7^�7�7P�7�7|��7�8|��9�:|��:�:|��:�;|��;�<|��<�=|� �6�6| $ &3$p"��6�6| $ &3$p "��6�6P �6�9_�9�=_ �6�6P�6�6v #(�6�9��~�9�;��~�;�;P�;�<��~�<�=��~ �6�6v �6�6�T�;�;v �7�7]�7�7 | $ &3$q "�9�:] �7�9]�:�;]�;�=] �:�:P�<�=P�=�=R�=�=P �<�<��~�<�<P�<�=Q�=�=P�=�=Q �9�91��<�<1� �6�6P �@�AU�A�F�U� �@�AT�A�B_�B�C�T��C�C_�C�D�T��D�E_�E�E�T��E�F_�F�F�T��F�F_ �A�CV�C�Cv��C�EV�E�EV�E�FV�F�FV�F�FV �A�A\�A�A|��A�B^�B�BP�F�F|� �A�A| $ &3$p"��A�A| $ &3$p "� �A�Av | $ &3$ p 8� �A�B]�C�D]�E�F]�F�F] �A�A �F�F �B�B^�D�D^ �B�C^�C�D^�D�F^�F�F^ �C�C1��F�F1� �A�AP ��U���U� ��T��]���T���] ��V��^��^ ��^��~���\��~���~���~���~� ��~ $ &3$p"���~ $ &3$p "� ��v ~ $ &3$ p 8� ��\��\��\ ��U��U �� ��Q ��\��\��\ ��V��V ��\��\��\ ��1���1� ��P ��U���U� ��T��^���T���^���T� ��\��|���|���\��|���\��\��\ ��V��v���]��P��v���v���v� ��v $ &3$p"���v $ &3$p "���Q��Q ��| v $ &3$ p 8� ��^��^��^ ��_��_��_��_ ��T��T ��2� ��1� ��P ��q 3��� p#"�3� ��P ��P��q( ��P ��U��!�U� ��T��_��!�T��!�!_�!�!�T� �� \� � ]� � ]� � }�� � \� � ]� � |�� �!\�!�!\�!�!\ ��V��v���^��P��v��!�!v� ��v $ &3$p"���v $ &3$p "���Q�!�!Q ��| v $ &3$ p 8� ��R�� ��~� � ��~� �!��~�!�!R�!�!��~ �� �!�! ��_� � _ ��V� � V �� _� � T� � _�!�!_�!�!_ �� V� � V� � V� �!V �!�!Q�!�!Q � � 2� � � 1� � � P � � q 3�� � p#"�3� � � P � � P� � q( ��P �)�)U�)�0�U� �)�)T�)�*V�*�/�T��/�/V�/�0�T� �)�*_�*�+V�+�+v��,�.V�.�/V�/�/V�/�/_�/�0V �)�)]�)�*Q�*�*���*�+}��,�,}��,�,���,�,}��,�-}��-�-}��-�.}��.�.}��/�/}��/�/Q�/�/���/�0}��0�0}� �)�+\�,�-\�-�-\�-�.\�/�/\�/�0\ �)�,^�,�/^�0�0^�0�0^ �)�*P�*�*v �/�/P �*�*T�,�,T�,�,�� �*�+X�,�,X�,�,X�,�-���-�-���-�.X�.�.���/�/���/�0X�0�0X �0�0Q�0�0Q�0�0Q �-�-\�.�.\�.�.|��.�/\�0�0\ �+�,1��/�/1� �*�+@� �*�+X �*�+����+�+] �-�-@� �-�-X �-�-����-�-] �)�)P �?�?U�?�@Z �?�?T�?�@[ �?�@p 4%��@�@Y�@�@p 4%��@�@p ?� �?�@P �?�?0��?�?R�?�?r��?�@R �?�?0��?�?U�?�@X�@�@U�@�@X �=�>U�>�?^�?�?�U� �=�>T�>�?]�?�?X��?�?��H � �>�>U�>�?Q �>�>Q �>�?R �>�>x } ( 2%# $ $} "#�>�>x } ( 2%# $ $} "#�>�>P�>�>Q�>�?P �=�>0��>�>Y�>�>Q�>�>Y�>�?Q�?�?Q �?�? ~ q "����?�?\ �=�=0��=�>[�?�?[�?�?0��?�? �� �=�=0��=�?V�?�?v��?�?V �>�>4��>�> x } ( 2%#��>�> x } ( 2%#��>�> x } $ 2%#��>�> x } ( 2%#� �>�>8t ��>�>9t ��>�?8t � �=�=0��=�>�s ��?�?�s ��?�?�s � �=�=D� �=�=0� �=�=P �3�3U�3�3^�3�5�U� �3�3T�3�3U�3�5�T� �3�3Q�3�3T�3�5�Q� �3�3R�3�5�R� �3�30��3�3v | "1 ��3�3V�3�3Q�4�4V�5�5Q �3�30��3�3_�3�31��3�4_�4�41��4�5_�5�5_ �3�3|��3�3\�3�40��4�4|��4�41��4�5|��5�5|� �3�4P �3�5^�5�5^ �3�3@� �3�30� �3�3T �3�3@� �3�30� �3�3Q �2�2U�2�3�U� �2�2T�2�2p��2�3�T� �2�2Q�2�3zh��3�3�Q� �2�2t��2�2P�2�2u �U ��2�2u �U � �2�2C��2�3X �2�21��2�2Y�2�2Y�2�31��3�3Y �2�2P�2�2P�2�2p 4$� �2�2q��2�3Z�3�3�Q#� �2�2U�2�3�U� �2�2D� �2�20� �2�2Z �1�1U�1�1\�1�1Q�1�1�U� �1�1T�1�1V�1�1T�1�1�T� �1�1Q�1�1�Q� �1�1U�1�1\�1�1Q�1�1�U� �1�1T�1�1V�1�1T�1�1�T� �0�0U�0�1V�1�1Q�1�1�U� �0�0T�0�1\�1�1T�1�1�T� �0�0U�0�1V�1�1Q�1�1�U� �0�0T�0�1\�1�1T�1�1�T� �(�(U�(�(u� �(�(P�(�(p��(�(P�(�(p��(�(P �(�(T�(�(r @K$ ��(�(T �(�(0��(�(T�(�(T �!�!U�!�"S�"�"�U� �!�!U�!�"S�"�"�U� �!�!u��!�"s��"�"�U#� �!�!u��!�"s��"�"�U#� �!�!u ��!�"s ��"�"�U# � �!�" ���"�"X�"�"x��"�"X ��U���U� ��T ��U��u|���U ��Q��r p ���p r "� ��U��p 2$u "��� p 2$u "#��� p2$u "#� ��T��p 2$t "��� p 2$t "#��� p2$t "#� ��U��u���u���u � � � U� � u�� � u�� � u �� � u� � � U� � �U� � � T� � �T� � � Q� � �Q� � � R� � P� � t � � �R� � � @K$ �� � P� � �RO&� � � R� � P� � P � � 3�� � xt2%#�� � xt2%#�� � xx2%#�� � xt2%#� � � u x "� � 0�� � t x "�y ����+��� � !t x "�t x "�u x "�" ����+��� � !t x "�t x "�u x "�" ����+�� � � t x "� � t x " � � Y� � t x "�u x "�"�� � t x "�u x "�"� � � U� � u�� � u�� � u �� � u� ��T��t���t���t � ��T��t���t���t � U��U� 0��V *� 3=� FP� Yc� lv� �� ��� �� � ��� ��� ��� ��� ��� ��� ��� ��� ��� , f' r ������ ���� �������� ���� � � � � � � � � � � � � ���� ���� ������ ���� �������� ���� ���� ������ � �!�!�! � � � � �#�#�#�# �#�#�#�%�&�'�(�( �&�&�&�& �)�)�)�)�)�) �*�*�*�*�*�+�,�/�/�0 �2�2�2�2�2�2�2�2 �3�3�3�3�3�3 �6�6�6�6 �6�6�6�9�9�;�;�<�<�= �=�=�=�=�=�=�=�=�=�> �A�A�A�A �A�A�A�C�C�F�F�F �G�G�G�N�N�N �H�H�H�H �H�H�H�H �H�H�H�H �I�I�I�I �I�I�I�I �J�J�J�J �K�K�K�K �K�K�K�K �K�K�K�K �L�L�L�L �L�L�L�L �M�M�M�M �M�M�M�M �N�N�N�N �N�N�N�N � r � > 4 � K #.]f", �: �4�: �4�:z �4�:v �4 �:r �4�:n �4�:j �4g:f �4 v <��: �4 �: �4�: �4�:x �4�:t �4 �:p �4�:l �4�:h X4x: �4:d4: e 4t : e.4 XKvu.=�Kvu.=8�� Ks� .XX9�yX#8 �9 �y. J �<8 �X ;KK tv �tL Xf J�4�}JJX � < K �� �=XeiY f J � � �8 �<�.4�}<X � � X � . � � � z � .8�$�4�}XJ1���8�� Ks� .XX9�yX#8 �9 �y. J �<8 �X ;KK tv �tL Xf J�4�~JJX � < J � �=X;iY f ' Y - K � �8 �<�.4�}�X v� � � X8� �4�}XJ1�tU��{�K>L`K2k�<+ .$ rJ Jf X�K 6 =w.A / = = X K =W X t t�8�t Ks� .XX9�{X#8 �9 �{. J �<8 �X JJ<K �f <` x.�4�~�8� J4 �~� � � J X � � 8�X4 �~.8�< X. � * t J L � � <� s�4 �~( �8 �� �4�~�<XX8�iX�4 �{K /- J t�AK � X < u J X�L � 0 J , > ^8�� Ks� .XX9�{X#8 �9 �{. J �.8 �X tJ� �f<L :Z ,f J�LX � � J4 �~< � � < J � �! f X 7 Y - Y 9 � X J L <) tKL�%�J<4�t]t8�"4�~J�JY f ' Y - Y t � v �8 � �4 �~� � � � Xy<�8� ��X Ks� .XX9�{X#8 �9 �{. J �.8 �X ;K ;tgK L �f <L :Z,f J�L X4�~�� � < J � �� � J J � ��WY�� f X . 2 � 9 � t J L <) tKL�%�J<4�t]t8�4�~$� f ' Y - K t � e � �� . X � � � � � y � Xpw�(8�NX4�~���}�K @V� ;/ � 0+= = � 0+= / � I=Jr. <JJ8�< Ks� .XX9�yX#8 �9 �z. J �<8 �X Jtu �fZ Xf J�4�~J<X � J J � �X� � -/X � - Y - K 9 � X J L <) tKL�%�J<4�u\��8�4�~& f t � Y - Y t � v � � J � "8�cX4�~�<�|XK 9L O E/ WgzX /g / @ Ej@Z8 � Ks� .XX9�|X#8 �9 �|.8 �J9 �|< �<8 �<u IKK� ,< vX> � J�4�~J� � < J � �� �2�;�|�X4� f J � � �8 �<�4�~��� [� t X � � XJX<X� t t � J ��;�|� X�4 � f JyXtXJ t � �XY�J/ ' � � e " X8�EX4�~� h J1��E�0�.�~�K�LY @8K � � �Y� H� ,X KXM 58Y =>z � �u ,X K WU =O;�} 4�J; �}�4�J; �}f<4��; �}.�4� wJ =Dw<KqJ <Y<[;] E=KL 9i K/^; �}f4�J�;�}4�; �}�<4�;�} <4 ��Xj[Y;f/ j� e JK <j:xf .Hx� <pJ f[YIk Jm���. ��s�8�/ us� .XX9�zX#8 �9 �z. J �<8 �X�J= I= ;KK �,<<Wv Xf J�4�~JJX � J J � ���� f< " � t Y�Y� f J � � �8 �<�J4 �}J � W <� ��JKX� . � k � � � � X8�4�~���%8�4�~XE s��.w�. dX ��X��}<Kz 4; �}J4�J9N*; �} 4�X; �}J4 �t;�}X4� ; �}4�f� K; = W V J Yf tZW�=Z = 7 <5/-g uo JKn xX < .xJY(>� dYX�� J..CK �� < xJ Jg Y ftfY 8< N8K ; <J�<= vJ JKv f �8�. Ks� .XX9�zX#8 �9 �z. J �<8 �X ;KK tv �tL Xf J�4�~JJX � < J � � �� f X f � � J � � �8 �<�4�~J� X� f � y � V < �� . � y � � � � y � X8�(�4�~X��8�&N .ft 2p j�X$Xt & -< uX � -< uX � �< uX � -< uX �0 q< uX # * & -< uX � -< uX � �< uX � -< uX � -< uX �/ r< uX # & -< uX � �< uX � -< uX � w.< tZH0 > HX Ilaststatval long long int old_parser subtr_ass_amg blku_oldsaveix Iorigargc Iorigargv si_errno keeper __pad0 tbl_arena_next _spent_size Iin_utf8_CTYPE_locale long unsigned int hostent ls_prev close_paren lex_stuff xpvgv Istatcache is_simple_pack Icompiling Idbargs new_perl blku_oldsp sub_error_count xpvhv PERL_CONTEXT _asctime_buffer Inumeric_standard prevcomppad Ie_script sv_u Ipreambleav XS_NetAddr__IP__Util_comp128 regmatch_slab IDBcontrol memset xpvio xpviv tbl_max si_tid Imy_cxt_size blku_old_tmpsfloor Imain_root xcv_outside blku_type _PerlIO __locales he_valu Iutf8_totitle REGEXP _spent_struct named_buff want_vtbl_hintselem extendipv4 h_length op_first Idoswitches _netent_size thrhook_proc_t next_branch Perl_POPMARK block_eval s_port __in6_u in_port_t gp_refcnt prev_mark Idef_layerlist saw_infix_sigil Irestartjmpenv save_lastloc Iwarn_locale _spent_buffer Icolors mg_obj je_old_delaymagic fallback_amg multi_end PerlIO_list_s PerlIO_list_t COPHH scream_pos Iargvgv puts despatch_signals_proc_t rshift_ass_amg xio_flags Isharehook tm_mday old_regmatch_state xcv_xsub nextword Iminus_E Icheckav uint32_t pad_1 pad_2 Imarkstack bor_amg Idump_re_max_len tm_zone Istatusvalue IDBsingle utf8_substr __u6_addr8 min_offset pmop st_atim sival_int Ilast_in_gv Ireg_curpm share_proc_t Ihash_rand_bits_enabled pw_gecos netswap_copy _call_addr long double op_private _isipv4 lex_formbrack SVt_LAST __ch sbu_dstr XS_NetAddr__IP__Util_bin2bcd Irunops Ipsig_pend _ctime_buffer Icomppad_name Imarkstack_max sbu_iters internal Ireentrant_retint saved_curcop max_amg_code dest input __blkcnt_t context PTR_TBL_t sig_seen xhv_max _protoent_size hent_hek _grent_ptr _getlogin_buffer time_t xivu_eval_seen __locale_data pos_flags Istack_base exec Imax_intro_pending poscache op_pmstashstartu to_gv_amg group sbu_strend smart_amg re_scream_pos_data_s cop_stashoff s_addr st_size sge_amg pthread_key_t Iperldb lastparen si_addr_lsb Iinplace __locale_t _pkey tm_min IDBline want_vtbl_nkeys sin_amg Isv_arenaroot jump gp_egv newval padname states xio_bottom_gv Iphase in6_addr yylen size_t lastloc subbeg cos_amg _asctime_size tp128 Iblockhooks end_shift sbu_oldsaveix _pwent_ptr Iosname n_addrtype lex_casemods lex_brackstack numbered_buff_STORE Iefloatsize PADLIST Ipeepp PADNAME __printf_chk Iregex_pad retop xcv_padlist_u minmod sp_pwdp Iutf8_foldclosures Ilocale_utf8ness Isv_yes carry parenfloor lt_amg branchlike JMPENV Imain_start qr_anoncv Istashpad _arch lex_state my_perl Ienvgv binary msk8 Iperlio Ipadname_const Perl_xs_boot_epilog __wchb pow_ass_amg mult_ass_amg Iregmatch_state prev_rex Iisarev Iutf8locale tm_mon XS_NetAddr__IP__Util_addconst op_opt c2_utf8 sa_family_t sockaddr_inarp subcoffset svu_fp yy_stack_frame Idebstash topword XS_NetAddr__IP__Util_add128 want_vtbl_ovrld reg_substr_datum si_stack xpadl_max Inomemok engine __uint8_t tm_hour firstpos want_vtbl_debugvar Imbrlen_ps Idiehook prev_recurse_locinput any_ptr Sighandler1_t CLONE_PARAMS Icompcv padnl concat_ass_amg _128x10 lex_repl timespec PerlInterpreter xpadnl_max_named ILatin1 branch Isighandler1p st_nlink Iminus_F re_eval_str Iscopestack_ix sp_max Iscopestack_max iter_amg Iminus_a any_pvp Iminus_c want_vtbl_arylen_p tbl_arena Iminus_l Iminus_n Iminus_p Iargvout_stack word Iinitav Perl_newSVpvn sin6_family tm_yday tbl_items Perl_ophook_t cache_mask ap128 firstchars xpvlenu_rx Imaxsysfd Ilocalizing Isighandler3p lex_shared servent _crypt_struct_buffer rxfree ncmp_amg pw_name sp_lstchg curly stackinfo _getlogin_size nomethod_amg add_amg Iunicode __fmt blku_sub qr_package neg_amg Irestartop ICCC_non0_non230 PL_thr_key gofs __mask_was_saved PERL_PHASE_CONSTRUCT Ilastgotoprobe cop_line Isecondgv __locale_struct Isavebegin want_vtbl_vec initialized XPVAV in_addr to_av_amg double STRLEN n128 exitlistentry abs_amg op_ppaddr xpadnl_alloc Icheckav_save Idebug_pad __jmp_buf_tag concat_amg lex_flags Iendav blku_oldscopesp Iutf8_idcont Icomppad_name_fill my_op IHasMultiCharFold __mbstate_t tmpXSoff XPVCV curpm add3 compl_amg regnode Iperl_destruct_level si_cxix mg_virtual padnamelist interpreter PMOP Istashpadix Perl_xs_handshake st_uid longfold sp_min xcv_xsubany PADOFFSET sbxor_amg sbu_rflags xpv_cur xpadn_flags Istderrgv xio_page_len perl_memory_debug_header printf Iin_clean_all si_type mark_name Istashpadmax old_regmatch_slab is_hasbits __ino_t fastcomp128 reg_substr_data lex_super_state _grent_struct xcv_root_u curlym setting curlyx Icustom_op_descs si_prev XPVGV _addr_bnd sp_namp lex_starts Isavestack Sighandler3_t si_code Imodcount prev_curlyx Isortstash loop Istdingv svt_local sp_warn Icustom_ops sbor_ass_amg CHECKPOINT XPVHV any_av _grent_buffer sne_amg XS_NetAddr__IP__Util_ipv4to6 last_uni XPVIO sp_expire XPVIV __uint16_t is_shiftleft minlenret Iofsgv cnst TARGi_iv Idelaymagic_gid xcv_gv_u Iunderlying_numeric_obj Icollxfrm_mult exp_amg tbl_arena_end Isavestack_ix want_vtbl_defelem sockaddr_x25 SVt_PVAV sin6_flowinfo have128 xmg_magic svu_gp error_count any_dptr intuit Ibody_roots si_sigval hek_len Icollation_ix tokenbuf band_ass_amg op_nextop line_t mgvtbl next XS_NetAddr__IP__Util_hasbits Iutf8_xidcont si_cxstack yyerrstatus Siginfo_t _hostent_ptr sbu_rx xcv_padlist n_name svt_get _Bool svu_iv magic sbu_rxtainted seq_amg div_ass_amg op_moresib c128 xpv_len_u Ipatchlevel badc _128x10plusbcd _pwent_struct nextval svu_pv any_gv memcpy not_amg Ihash_rand_bits sbu_orig _servent_struct __gid_t Iparser xpadlarr_dbg stack_max1 runops_proc_t any_hv Ipadlist_generation SVt_PVFM xpadnl_max Idefoutgv _lower Istatusvalue_posix _pwent_buffer Iutf8_tosimplefold __ctype_tolower siginfo_t Perl_newSViv any_iv mark sv_flags Ichopset Irpeepp oldcomppad sbu_rxres SVt_PVGV Iincgv si_markoff xpadnl_fill want_vtbl_arylen tv_nsec nexttype is_sub128 sig_slurpy want_vtbl_backref Icurpm_under SVt_PVHV lshift_ass_amg Sighandler_t pthread_getspecific svu_hash ISCX_invlist svu_nv sband_amg si_cxsubix lex_inpat last_lop tm_sec sockaddr_ax25 ptr_tbl_arena SVt_PVIO _pad SVt_PVIV filtered Ilastfd _bcd2txt want_vtbl_collxfrm Bail Ieval_start targ ls_linestr bxor_ass_amg PADNAMELIST SVt_PVCV PERL_PHASE_START __src xcv_hscxt any_u32 Perl_croak_nocontext _ctime_size repeat_ass_amg op_pmreplrootu Isavestack_max Ilocalpatches Isv_root SVt_PVLV _bcdn2bin p5rx op_next __saved_mask svu_rv copline sockaddr_eon any_op Icurstack SVt_PVMG Ipadix_floor si_status xpadl_arr h_addrtype _strerror_size Idelaymagic_euid bufend lex_inwhat any_pv atan2_amg xnv_nv sin_zero Iopfreehook ssize oldbufptr _protoent_ptr Iunitcheckav svu_uv PerlIOl sgt_amg to_hv_amg Isetlocale_bufsize recurse_locinput protoent mg_len Imemory_debug_header SVt_IV reserved Itop_env want_vtbl_sigelem netswap info_aux_eval __blksize_t bcdn short unsigned int _spent_ptr bool__amg Itmps_stack yy_lexshared offs any_sv want_vtbl_substr Isv_undef Ipsig_name LEXSHARED clone_params perl_drand48_t Igensym Iregmatch_slab op_redoop rsfp _hostent_struct start_tmp xio_fmt_name svt_len cop_hints __len h_name Ierrors xpvlenu_len h_aliases _hostent_size op_pmreplstart hent_refcount saved_copy lex_sub_inwhat any_uv Itmps_floor Istrxfrm_is_behaved __wch xpadl_id dec_amg int_amg uint8_t Ibasetime Iop_mask Isighandlerp unreferenced Isignalhook xpadnl_refcnt loceol IUpperLatin1 xio_ofp __value _hostent_buffer cop_seq multi_start op_pmreplroot SVt_NV IDBtrace maxlen pre_prefix op_targ Ibeginav je_ret resume_state is_ipv4to6 Isv_consts pw_dir lex_casestack op_lastop gimme Isub_generation blku_eval float want_vtbl_isaelem __count unsigned char si_cxmax multi_open Perl_gimme_V _kill st_rdev LOOP ILB_invlist SVt_PV PerlIO want_vtbl_dbline REENTR Imess_sv Iglobalstash bufptr Imin_intro_pending expect oldloc Icollxfrm_base want_vtbl_envelem copy_amg Iutf8_perl_idcont cx_blk Istatname RETVAL modulo_amg xnv_u __uid_t eq_amg sin6_scope_id blku_gimme XSUBADDR_t st_ctim recheck_utf8_validity Iutf8_tofold xcv_root ISB_invlist block_format in_addr_t op_sibparent XS_NetAddr__IP__Util_ipanyto6 old_namesv log_amg xpadn_type_u IAssigned_invlist peep_t Iinternal_random_state Isv_no minlen type locinput __off_t perl_phase Iin_clean_objs is_mask4to6 Isv_zero cp128 PERL_PHASE_DESTRUCT in_pod Perl_stack_grow gp_io Imultideref_pc Iors_sv string_amg xpadn_protocv Ievalseq Iunlockhook regexp_engine mg_flags subtr_amg Icurstash gr_passwd _gmtime_struct gr_gid want_vtbl_checkcall si_overrun __clock_t SVt_NULL ls_bufptr Ibeginav_save __uint32_t Iorigfilename xmg_hash_index last_lop_op cop_warnings Icop_seqmax op_pmtargetgv form_lex_state XS_NetAddr__IP__Util_bcd2bin Istatgv Idestroyhook st_blocks max_offset band_amg GNU C17 11.4.1 20231218 (Red Hat 11.4.1-3) -m64 -march=x86-64-v2 -mtune=generic -g -g -O2 -flto -ffat-lto-objects -fexceptions -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection=full -fwrapv -fno-strict-aliasing -fPIC -fplugin=annobin sbu_m sbu_s save_curlyx Icomppad sub_no_recover lex_dojoin xmg_u gp_cvgen stack xcv_file SVt_PVNV itervar_u gp_flags count xiou_dirp _servent_buffer paren_names Iregistered_mros substr si_uid pw_passwd is_ipanyto6 Iin_some_fold sqrt_amg lex_allbrackets opval Icurcopdb block_sub pos_magic gp_file_hek uid_t sv_refcnt sockaddr_in6 __nlink_t tbl_ary sband_ass_amg xav_alloc si_fd nparens xpadn_refcnt scmp_amg Ieval_root old_eval_root named_buff_iter st_gid Idowarn gt_amg yychar Ifirstgv rshift_amg _countbits mg_moremagic op_pmoffset op_pmstashoff Inumeric_underlying_is_standard PERL_SI MGVTBL op_static MAGIC Perl_sv_newmortal Itmps_max want_vtbl_pack sockaddr_ipx Ithreadhook Badigits blku_givwhen gr_name op_type Iutf8_perl_idstart sublen blku_oldmarksp xivu_iv _netent_ptr want_vtbl_regexp Ipadname_undef preambling adder128 Inumeric_underlying _upper cx_u output IDBcv trie Ilockhook __ctype_toupper _xnvu xio_lines_left compflags sockaddr_iso want_vtbl_utf8 Iin_load_module xio_page sigjmp_buf pow_amg info_aux want_vtbl_hints tm_isdst div_amg Ilaststype __ctype_b h_addr_list Iutf8_charname_continue in_my_stash locale_t want_vtbl_regdata xpadn_len _strerror_buffer add_ass_amg dummy Iunitcheckav_save si_stime u_int32_t lastcloseparen short int ifmatch Idumpindent Ioldname preambled op_code_list xhv_keys itersave sbxor_ass_amg IAboveLatin1 Iutf8_mark _servent_size si_signo _simple_pack IDBgv alen __names sv_any blk_u xcv_start accepted gvval IWB_invlist olddepth Iutf8cache putchar _localtime_struct _bounds prev_eval Ipadix defsv_save file want_vtbl_lvref _netent_buffer xcv_stash YYSTYPE xcv_gv cop_hints_hash Icustom_op_names lex_sub_repl sle_amg xpadn_high re_scream_pos_data hek_hash _ttyname_buffer Iknown_layers _netent_errno Itainting Icurcop Istack_sp __ssize_t any_bool regmatch_info_aux PERL_PHASE_END Icollation_standard __glibc_reserved long int want_vtbl_taint lex_defer xmg_stash Iorigalen sbu_maxiters sockaddr Idebug __int32_t refcounted_he Icurpad start printb128 __time_t st_mtim want_vtbl_uvar s_proto sbu_targ boot_NetAddr__IP__Util __dest logical Iforkprocess digit lex_brackets xio_top_gv Iutf8_tolower blku_oldcop Icurstackinfo Istart_env lex_fakeeof lex_sub_op cxix stashes state Istashcache xnv_lines mult_amg want_vtbl_packelem p_aliases _netent_struct in_my next_off xivu_uv sin_port Imodglobal sockaddr_at regmatch_info_aux_eval xcv_start_u want_vtbl_env basesp Igeneration IGCB_invlist Istrtab xpadl_outid xpadn_low block_givwhen regexp_paren_pair prev crypt_data pprivate cv_flags_t cur_top_env xpadn_typestash Iin_utf8_COLLATE_locale state_u PERL_PHASE_RUN _sigfault op_spare lex_op st_ino cop_features __pid_t parsed_sub op_last proto_perl want_vtbl_regdatum xio_type yylval sp_inact regmatch_state sockaddr_dl xav_fill hent_val Iorigenviron Idelaymagic_egid gp_av ftest_amg binmsk scream_olds mg_ptr regexp maxpos _bin2bcd sa_family savestack_ix ptr_tbl Inumeric_name lazyiv _sifields want_vtbl_pos SVt_REGEXP Ipsig_ptr gp_cv xgv_stash netent tv_sec tm_year blku_u16 Iprofiledata sbor_amg __sigset_t gp_line Imainstack Icurpm op_pmflags st_blksize xpadn_ourstash is_bcdn2bin ptr_tbl_ent _hostent_errno op_slabbed scompl_amg Isubline Iargvoutgv Iwatchaddr Idefgv hek_key PerlExitListEntry xio_bottom_name gp_form Perl_newXS_flags Ireentrant_buffer hent_next check_ix op_flags Iunsafe tm_wday Ihintgv compcv sockaddr_in signed char __jmp_buf IDBsignal Iutf8_charname_begin Ilanginfo_bufsize blku_format __dirstream sin_addr IXpv Iregex_padav blku_loop paren cache_offset wanted pw_uid _timer Istrxfrm_NUL_replacement IInMultiCharFold je_old_stack_hwm sig_elems bcd8 passwd padlist gr_mem Ixsubfilename gp_hv Ipad_reset_pending subname dfoutgv _sigchld xcv_depth comp Itaint_warn Imbrtowc_ps sigval pw_shell si_next want_vtbl_nonelem _syscall Iexitlist Ilanginfo_buf Isubname any_i32 Ihv_fetch_ent_mh UNOP_AUX_item svt_dup xcv_flags uint16_t Perl_sv_setiv_mg Inumeric_radix_sv bor_ass_amg globhook_t xcv_outside_seq Isplitstr xcv_hek svt_free sockaddr_ns long long unsigned int si_addr Ibody_arenas checkstr _grent_size addercon SVt_INVLIST want_vtbl_mglob Isortcop sin_family Isignals sbu_type si_pid mg_private dupe je_buf lazysv Iwcrtomb_ps Itoptarget Istrxfrm_max_cp Ierrgv le_amg Perl_sv_2pv_flags inc_amg _128x2 svt_clear PERL_PHASE_CHECK nexttoke Itmps_ix Isig_pending substrs any_svp intflags destroyable_proc_t Ifdpid xpadlarr_alloc ival any_dxptr n_net to_sv_amg Perl_croak_xs_usage op_pmtargetoff Icollation_name flags Iefloatbuf to_cv_amg extendmask4 magic_vtable_max _pwent_size oldval any_long xiou_any gid_t ITR_SPECIAL_HANDLING_UTF8 lshift_amg Iexit_flags c1_utf8 repeat_amg Icurlocales Iglobhook sin6_port dchar char xio_top_name IPrivate_Use modulo_ass_amg jmpenv Iptr_table Icolorset __jmpbuf Ifilemode __dev_t Iexitlistlen sockaddr_un numer_amg op_folded Idelaymagic Imarkstack_ptr block is_add128 pw_gid tm_gmtoff prev_yes_state pval s_name _protoent_struct op_comp gp_sv svu_array whilem ge_amg IInBitmap mother_re __val n_aliases _sigsys is_bcd2bin is_maskanyto6 is_comp128 a128 extflags xio_fmt_gv xpadn_gen cop_file Icurstname cx_subst __u6_addr16 Isv_count data svt_set Idefstash Itainted Ibodytarget oldoldbufptr xav_max xiv_u _protoent_buffer st_mode savearray _xivu leave_op Iutf8_xidstart is_ipv6to4 items re_eval_start perl_debug_pad Istack_max st_dev hasdigits __u6_addr32 je_prev want_vtbl_sv Iclocktick Perl_sv_2iv_flags __syscall_slong_t IXPosix_ptrs IDBsub spwd Iutf8_idstart je_mustcatch numbered_buff_LENGTH bcdstuff yy_parser block_loop op_savefree Iscopestack Iformtarget pad_offset s_aliases lastcp Iconstpadix multi_close stat herelines ne_amg Imy_cxt_list IPosix_ptrs xivu_namehek tmpc _ttyname_size sin6_addr Iwatchok __stack_chk_fail p_proto p_name Perl_sv_2mortal want_vtbl_isa svt_copy xnv_bm_tail linestr sival_ptr mark_loc si_utime xpvav Isrand_called regexp_amg ssize_t __mode_t sp_flag perl_key Ireplgv sa_data Ibreakable_sub_gen XS_NetAddr__IP__Util_notcontiguous rsfp_filters Iin_eval suboffset __sigval_t bxor_amg subst _servent_ptr lex_re_reparsing int32_t Iutf8_toupper linestart sig_optelems PERL_PHASE_INIT old_cxsubix Icv_has_eval mg_type xpvcv Isetlocale_buf numbered_buff_FETCH mbstate_t Irandom_state Iscopestack_name si_band xpadn_pv Icomppad_name_floor Idelaymagic_uid eval Iwarnhook _xmgu _sigpoll slt_amg unsigned int xio_dirpu bcd2p Iin_utf8_turkic_locale cur_text blku_oldpm Imain_cv Util.c /home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util /home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util /usr/include/bits /usr/include/sys /usr/include/bits/types /usr/lib/gcc/x86_64-redhat-linux/11/include /usr/include /usr/include/netinet /usr/lib64/perl5/CORE Util.c types.h types.h time_t.h stddef.h stdint-intn.h __sigset_t.h struct_timespec.h pthreadtypes.h __mbstate_t.h mbstate_t.h __locale_t.h locale_t.h stdint-uintn.h setjmp.h struct___jmp_buf_tag.h setjmp.h __sigval_t.h siginfo_t.h sockaddr.h socket.h in.h struct_stat.h struct_tm.h netdb.h netdb.h dirent.h perl.h op.h cop.h intrpvar.h sv.h gv.h mg.h av.h hv.h cv.h pad.h handy.h perlio.h iperlsys.h perly.h regexp.h util.h pwd.h grp.h crypt.h shadow.h reentr.h parser.h mg_vtable.h overload.h Util.xs proto.h pthread.h stdio2-decl.h Util.c inline.h stdio2.h string_fortified.h perlvars.h <built-in> GCC: (GNU) 11.4.1 20231218 (Red Hat 11.4.1-3) GNU � zR x � ( � F�G�C �aHB H \ H p t F�E�B �B(�A0�A8�DpN 8A0A(B BBBC H � F�E�B �B(�A0�A8�DpA 8A0A(B BBBH 6 0 D * H X F�B�B �E(�A0�A8�DPN 8A0A(B BBBC � � " � ! L � P F�B�E �B(�A0�A8�D�� 8A0A(B BBBD L 0 � F�E�B �B(�A0�A8�D�� 8A0A(B BBBB � n E�h H � � F�B�E �B(�A0�A8�Dp� 8A0A(B BBBD � E L � � F�B�B �B(�A0�D8�D�k 8A0A(B BBBF $ L \ F�D�G xLB ( t > F�D�D �QXB � � H � M F�F�H �B(�A0�A8�D`� 8A0A(B BBBG L � F�B�B �B(�A0�D8�G�� 8A0A(B BBBD D P F�M�M �E(�A0�C8�IP�8F0A(B BBB � � L � F�E�B �B(�A0�A8�D�O 8A0A(B BBBB < � � F�I�H �A(�D0�(C DBB � ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G � t & @ C ` � P ~ � � � ` � � � � � � � � p H J L M O Q R T U W X Y F F F # G ( G @ - G x 2 F 7 G � < F A F < F F C L F ` R F g X G � ^ G d F � j G h p G � v F � | F � � F � � G � � F � F � � F � � F � F � F & � F A � F D � F ^ � F x � F z � F � � G � G 8 � F � � F � � F � � F V � � * 2 7 � B � N Y m { � � � � � H � � H H H ` $ p 6 - � 6 � * > P a H 8 l t @ " � p ! � � � H @ � H H � � n � 0 E � H P � H ` � H X � ` \ � � > ! � � M H 0 H H ( � . � � 7 �# � N ` q Util.c XS_NetAddr__IP__Util_ipanyto6 XS_NetAddr__IP__Util_ipv4to6 XS_NetAddr__IP__Util_hasbits XS_NetAddr__IP__Util_addconst XS_NetAddr__IP__Util_add128 XS_NetAddr__IP__Util_notcontiguous XS_NetAddr__IP__Util_comp128 XS_NetAddr__IP__Util_bcd2bin XS_NetAddr__IP__Util_bin2bcd .LC0 .LC1 .LC2 .LC3 .LC4 .LC5 .LC7 .LC8 .LC6 .LC9 .LC10 .LC11 .LC12 .LC13 .LC14 .LC15 .LC16 .LC17 .LC18 .LC19 .LC20 .LC21 .LC24 .LC22 .LC23 .LC25 .LC26 .LC27 .LC28 .LC29 .LC30 .LC31 .LC32 .LC33 .LC34 .LC35 .LC36 .LC37 .LC38 .LC39 Util.c.e14dc308 printb128 _GLOBAL_OFFSET_TABLE_ putchar puts extendipv4 extendmask4 PL_thr_key pthread_getspecific Perl_newSVpvn Perl_sv_2mortal Perl_sv_2pv_flags Perl_stack_grow Perl_croak_xs_usage __stack_chk_fail is_ipanyto6 Perl_croak_nocontext is_maskanyto6 is_ipv4to6 is_mask4to6 fastcomp128 adder128 addercon have128 Perl_sv_newmortal Perl_sv_setiv_mg is_hasbits _isipv4 netswap_copy netswap Perl_sv_2iv_flags Perl_newSViv is_add128 is_sub128 _countbits _128x2 is_comp128 is_ipv6to4 is_shiftleft _128x10 _128x10plusbcd is_bcd2bin is_bcdn2bin is_simple_pack _bcd2txt boot_NetAddr__IP__Util Perl_xs_handshake Perl_newXS_flags Perl_xs_boot_epilog & � ��������9 � ��������L � ��������_ � ��������r � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � �������� � ��������* � ��������= � ��������P � ��������f � ��������t [ ��������� * � ��������� � ��������� � �������� � ��������A � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � ��������1 � ��������C � ��������X � ��������q � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� \ ��������� � ��������� � �������� * � �������� ] �������� ^ ��������$ � ��������+ * � ��������X * � ��������o � ��������y � ��������� � ��������� � �������� � ��������" � ��������9 � ��������I � ��������S � ��������^ � ��������i � ��������t � ��������� � ��������� � ��������� � ��������� � ��������� � �������� \ �������� � �������� � ��������' * � ��������9 ] ��������B _ ��������G � ��������N * � �������� * � ��������/ � ��������9 � ��������O � ��������u � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � ��������6 � ��������A � ��������q � ��������| � ��������� � ��������� � ��������� � ��������� � ��������� * � ��������� ] ��������� ` �������� � �������� � �������� \ �������� � ��������� * � ��������� � ��������� � ��������� � ��������! � ��������> � ��������` � ��������o � �������� � ��������� � ��������� � ��������� � ��������� � �������� � �������� � �������� � ��������& � ��������e � ��������p � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � ��������# � ��������8 � ��������Q � ��������s � ��������� � ��������� � ��������� � ��������� a ��������� b ��������� � ��������� c ��������� � ��������� � �������� * � �������� � ��������) � ��������> � ��������{ � ��������� � �������� � ��������& � ��������8 � ��������] � ��������g � ��������w � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � �������� � ��������7 � ��������G � ��������Q � ��������\ � ��������g � ��������r � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � ��������. � ��������C � ��������V � ��������k � ��������~ � ��������� * � ��������� ] ��������� ` ��������� � ��������� � ��������� d ��������� � ��������� * � ��������� � ��������x * � ��������� � ��������� � ��������� � ��������� � ��������0 � ��������8 � ��������A � ��������Y � ��������c � ��������n � ��������x � ��������� � ��������� � ��������� � ��������� � �������� � ��������" � ��������. � ��������8 � ��������C � ��������O � ��������Z � ��������s � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� \ �������� � �������� e �������� b ��������$ � ��������� * � ��������� � ��������� � ��������� � �������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������# � ��������8 � ��������O � ��������j � ��������� � ��������� � ��������� � ��������� � �������� � ��������) � ��������f � ��������t � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� f ��������� � �������� * � �������� ] ��������# ` ��������( � ��������/ * � ��������; * � ��������J g ��������Q h ��������X � ��������r � ��������� � ��������� � ��������� � ��������d � ��������� � ��������� * � �������� � �������� � ��������2 � ��������w � ��������� � �������� � �������� � ��������* � ��������G � ��������T � ��������[ � ��������r � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� � �������� � ��������S � ��������f � ��������� � ��������� � ��������� � ��������� � ��������� � ��������� f ��������� � �������� * � ��������( ] ��������/ i ��������4 � ��������9 � ��������@ j ��������G k ��������N � ��������U * � ��������u * � ��������� ] ��������� l ��������� � ��������� * � ��������� * � ��������� � ��������� * � ��������� � ��������� � ��������� � ��������� � ��������O! � ��������o! � ��������y! � ���������! � ���������! � ���������! � ���������! � ���������! � ���������! � ���������! � ��������#" � ��������8" � ��������]" � ��������v" � ���������" � ���������" � ���������" � ���������" � ���������" � ���������" � ���������" � �������� # \ ��������# � ��������# � ��������*# m ��������3# b ��������8# � ��������H# n ��������Q# b ��������V# � ��������e# o ��������n# p ��������s# � ���������# q ���������# * � ���������# � ���������# r ���������# s ���������# � ���������# � ���������# � ���������# � ���������# t ���������# u ���������# � �������� $ � �������� $ t ��������$$ v ��������,$ � ��������=$ � ��������M$ t ��������T$ g ��������\$ � ��������t$ � ���������$ w ���������$ x ���������$ � ���������$ � ���������$ w ���������$ y ���������$ � ���������$ � ���������$ w ���������$ a ���������$ � ��������% � ��������% z �������� % { ��������(% � ��������/% � ��������?% z ��������F% o ��������N% � ��������_% � ��������o% z ��������v% m ��������~% � ���������% � ���������% z ���������% n ���������% � ���������% � ���������% t ���������% | ���������% � ���������% � ��������& t �������� & j ��������& � ��������&& � ��������6& t ��������=& } ��������E& � ��������]& � ��������j& z ��������x& ~ ���������& � ���������& � ���������& z ���������& ���������& � ���������& � ���������& z ���������& � ���������& � ���������& � ���������& z ��������' � �������� ' � �������� ' � ��������.' � ��������8' z ��������=' � ��������N' � ��������| � ��������� � ��������� � ��������� � ��������b' � �������� w! 3 E ! = ( . 4 ; ; � B �/ G U j' Z o f !* ~ � � �) � $5 � T � � � � ]9 � �# � u � �, � � � Q* * ( t) 4 �7 G �4 Q W4 ] �# i U9 u � � � : � Q' � �5 � b. � � � 4. � ^ %2 V % 3 � ? � U 5 b G p y | �: � a � + � �& � � � & � ( � � � + �& 7 � C �1 O S [ �/ w � 5 � � y � l& � 1 � � � 9 � �9 �2 G# % � 2 � ? � V �2 c G# p � � �2 � G# � � � -9 � H' � � � �% � m � <2 % v 2 o( I �: V $ m 6 z H1 � � � M � l � P0 � �0 � �, � ; � 6 �' % W 2 � ? g L �- Z � � A � f � * � �- � 9 � �+ � ( ?- � 0 �/ = �2 J �+ W 0 d 2 � �# � � � �4 � 2 � �8 � c � r � % 7& ! 2 5 95 I � � � � � ? � � ' w6 3 _7 p } � � n8 � N7 � �, � � �6 � � O$ � g r F �. * Y! 7 � D Z* Q � ^ �) � ! � � � � � 2 � ;. � �/ � � � �& � �5 � -. $ @ 1 6 > � K �3 Y � f , s G � � � � � �& � O � �5 � E8 � � � q* � � � �8 b+ �8 C �/ p � w | � � q � � � � � � � S% � W � �. 8 �$ # O5 2 � A �, P w/ ] M � q � � � � � � � S% � W � �. � 8 � �$ O5 � % �, 4 w/ B M P N ^ 2 l Z6 z � _ � � � �( � �, � � � � � q � � � � � S% W - �. < 8 K �$ Z O5 i � x �, � w/ � M � � � �, � �$ � �. � $ � � � �' z � q + � 9 � G � U S% d W s �. � 8 � �$ � O5 � � � �, � w/ � M � � � �, � � ! � 0 � = � L j) f 9* s � � C7 � � � � � 3 � "8 � " � 8 � V � P3 � � % h ) e5 6 � C P � ] , j � w �. � � � X) � �6 � Y5 � * � �9 � / � V$ � R( � �6 I b) � - �* : u. G �6 U P c � q � � � � �" � = � � � Y � � � �% � � " 0+ 1 � ? D! M 2 g � u � � � � .8 � �6 � �2 � � � 4 � � � �* 3 z1 # ? 2 �2 A � P l$ _ W n 4 } � � |' � �4 � & � � � �, � =; � , � P k � " 1 ; @ �. O �8 ^ d m �2 | � � C � M � � � / � �/ � � � �0 � M �: � ! B 0 �1 ? b N � ] � l � { Q � � � � A � � � o � � � � � � Y3 � / � > j M � \ �. k � z w9 � �2 � ( � � � �7 � � � � � �/ � � � � . c6 = � L * [ e j J y � � �3 � � � h; � � o � &$ � � � �# 5 d �' - ~ < � K � Z �* i � x ^: � 1 � �& � � � � ,5 � Q1 � �+ � L. � � � � , N ; �: J �% Y �+ h � w � � � � � q � �: � � � � � j- � �9 � + �) : ]- I x X � g � v 6 � u � * � W � � � i1 � �. � � � � � �( V8 � * �4 9 �3 H � W � f � u W0 � � � �2 � �) � [1 � �/ � y: � � � �/ � 5 S& ) � 8 Q G �% V �$ e �- t �1 � � � �0 � <9 � . � � � �4 � � � D2 � � 0 � ( � 7 � F R/ U �( d N s � � <) � � � � 6' � �7 � � �% � � )% L! ' 6 /# E I T � c 0 r �: � � � �4 � �8 � � � � � � � �: � { � B ! ]4 ! �' &! ) 5! �+ D! g S! p0 b! � q! �! � �! � �! 2 �! d# �! �! A �! �7 �! �! [% " � " 7 %" =( 4" �7 C" �8 R" : a" = p" �* " � �" � �" �/ �" �& �" �' �" �5 �" � �" �4 �" B # 1 # �2 @# ( M# �# Z# � g# y �# ( �# �# �# � �# y �# ( �# �# �# � �# y &$ ( 3$ �# @$ � M$ y [$ K h$ l v$ ( �$ �# �$ � �$ y �$ �5 �$ � �$ . �$ �" �$ % �0 % {- % 9/ -% � :% m. I% �" X% �# |% ( �% �# �% � �% y �% ( �% �# �% � �% y �% 4 & 5 & �% & t5 .& <& q J& C. X& 4 f& t& u% �& �* �& ]; �& � �& 1 �& ( �& �$ �& \ �& �$ �& � �& �2 ' k: ' 6 $' � 1' s >' �- e' �) s' �" �' V �' � �' i �' � �' �) �' �" �' V �' � �' �6 ( � ( 69 ( �) '( �" 4( K- A( �6 N( �# \( i( . v( �) �( �" �( �' �( P �( g �( � �( �) �( �" �( V �( � �( �6 ) N ) � () s: 5) �) B) �" O) V \) � i) �( v) �+ �) - �) � �) �" �) � �) �) �1 �) �1 �) �0 �) Y �) � * �) * �" #* V 1* � ?* �6 M* ? [* -; i* c& w* t �* & �* �4 �* �* �* �* E6 �* )/ �* � �* - �* � + �$ + � + G ++ �6 8+ E+ ,3 R+ 2 _+ �8 l+ �1 y+ � �+ l �+ t �+ n3 �+ � �+ �+ P �+ � �+ , Z , r1 #, � 0, � =, � J, E4 W, ~) d, e q, �3 , �. �, � �, >4 �, � �, = �, �- �, �# �, � �, � �, ~ - n - � (- � 5- � C- "+ Q- �3 _- �, m- {- �- � �- �0 �- � �- � �- � �- , �- � �- � �- A . � . t &. � 3. A. � N. � [. �: h. �. u. �. , �. ) �. $ �. P6 �. ' �. ^ / � '/ D/ n9 {/ O �/ y �/ # �/ � �/ � �/ � �/ t �/ � 0 � !0 �( ,0 �3 80 �5 D0 �# P0 7( ]0 �( u0 � {0 � �0 � �0 � �0 o2 �0 R �0 �" �0 � �0 . �0 & �0 Y �0 ) �0 � �0 � �0 k �0 D �0 n �0 d/ �0 g 1 5 21 #) ?1 � L1 / c1 � o1 U {1 r �1 � �1 � �1 �5 �1 � �1 R �1 � �1 � �1 U 2 r 2 � 2 � )2 �5 52 � A2 R M2 � h2 � t2 U �2 r �2 � �2 � �2 �5 �2 � �2 R �2 � �2 � �2 U �2 r 3 � 3 � 3 �5 +3 � 73 R C3 � ^3 � j3 U v3 r �3 � �3 � �3 �5 �3 � �3 R �3 � �3 � �3 U �3 r 4 � 4 � 4 �5 '4 � 44 R A4 � ]4 � j4 U w4 r �4 � �4 � �4 �5 �4 � �4 R �4 � �4 �- �4 �) �4 �" �4 V 5 � 5 !5 �5 .5 ## ;5 <6 H5 $ U5 ` b5 � o5 |5 f3 �5 Q, �5 v3 �5 l �5 o �5 � �5 [' �5 � �5 -& �5 & 6 | 6 n% 6 �9 )6 � 66 � C6 { V6 & a6 + n6 #. {6 <+ �6 9 �6 �6 �6 �% �6 �+ �6 �8 �6 � �6 ; �6 H �6 � 7 ; 7 37 ; @7 W7 ; d7 r7 Z, �7 ; �7 �7 # �7 N4 �7 � �7 �3 8 g 8 �+ 8 � ,8 � 98 � F8 c! S8 @# `8 � m8 U {8 � �8 n/ �8 �6 �8 /, �8 A* �8 � �8 /, 9 ; 9 9 ( -9 1 :9 � G9 n T9 Q2 a9 l n9 �: {9 � �9 �7 �9 ` �9 ?$ �9 � �9 �2 �9 �5 �9 �- �9 : �- : � $: ) &< � 4< | B< & P< n% ^< �9 l< � �< �# �< � �< �+ �< �< �< � �< � = 0- = � -= l ;= + i= � x= � �= A, �= � �= �) �= �= �5 �= �5 �= l > [' )> �5 7> l E> [' `> � ~> �5 �> l �> [' �> .( �> �> � �> & �> ? 8 ? � 9? �5 G? � U? w( c? ~? O8 �? � �? V �? �5 �? B0 �? �* �? # �? A* +@ �5 9@ G@ � U@ $9 �@ �5 �@ � �@ �@ K �@ # �@ A �5 A �" 5A O8 CA C QA 50 _A � xA �5 �A l �A [' �A ( �A # �A B �4 &B ^ OB /0 jB l xB [' �B �- �B � �B # �B �4 C ^ $C & 1C KC ] XC � eC �% rC �: C t' �C � �C ` �C G �C �5 �C 8 �C � �C 0- �C � D � D 7 +D � 8D \ ED b fD �3 rD * �D q, �D �D ; �D �D $( �D + E � E / $E �( 0E 2 FE 4 RE � hE :8 �E G �E �1 �E s �E �3 �E ! F _ F �$ 'F �0 4F | AF N# NF I0 [F �5 hF uF � �F %1 �F �F K% �F S �F l �F �0 �F F, �F �% �F ? �F $ G � G � %G � xG �7 �G w �G �G � �G $ �G 1 �G � �G '- �G _ �G f9 H A H 5 "H W 0H � >H LH ZH hH Z2 vH p �H � �H O �H Q �H �H �. �H { �H � �H l+ �H �( I � I �% I J) ,I �5 :I �6 II X XI W gI � vI � �I 24 �I m �I �I # �I �' �I �9 �I R �I ] �I } J A J ] *J ]( 9J ' HJ � WJ ,) fJ �8 uJ 0' �J � �J T- �J n �J �4 �J k7 �J �2 K � K �7 K z *K �0 =K h IK � UK +* iK �# wK � �K R: �K c �K I( �K �6 �K � �K � �K R: �K c L �0 ,L � :L � HL R: VL dL 1$ rL T; �L e, �L �+ tM �" �M �- �M �2 �M 8 �M a �M �" �M �' �M �, �M �M !, N �6 N �( *N � 7N �/ DN QN %0 ^N >% qN �9 N �2 �N K �N b �N _ �N � �N * �N �N | �N y* �N �" O �" O 'O 5O - MO + ZO n6 hO � vO � �O � �O _ �O .1 �O � �O K �O �O � �O 6 �O �$ �P *+ �P �- �P �/ �P � �P b �P � �P � Q � Q &7 #Q 6Q � BQ 8 PQ ]Q - jQ e$ wQ �Q �" �Q 7 �Q �Q ` �Q �* �Q � �Q � �Q � �Q �) R �" R � R �' ,R �" 9R FR SR �, `R � mR zR � �R �R � �R g �R � �R T �R b8 �R : �R �R � �R {# S + S �( #S D 0S 9 =S � JS M WS �6 dS qS +: ~S P �S �S � �S {+ �S � �S Y �S �& �S � �S �9 �S � T f T G3 T ! .T + <T JT XT � fT s8 tT �% �T �0 �T 5: �T y �T G �T � �T � �T [ �T $ �T �, 4U 8 JU 6 TU � bU � pU A, ~U � �U B �U � �U � �U 3 V � %V } 8V * >V � DV 63 JV B: PV �, VV �) \V � cV 47 �V ; �V | �V � �V �1 �V � W / �W �W M �W k �W � �W s X u X � X / X X �+ #X � )X �& /X k 5X �8 ;X # AX �( GX {2 MX � SX 61 YX � _X % eX O+ kX �- qX �& wX - }X �% �X � �X { �X s7 �X �) �X D& �X b* �X | �X !4 �X � �X �3 �X � �X � �X � �X 4 �X 3 �X � �X L �X E5 �X � Y � Y Y � Y � Y H Y � &Y V ,Y 3 2Y ^$ 8Y �5 >Y \ DY }8 JY ; PY �( VY � \Y N bY p hY + nY � tY � zY $' �Y ? �Y & �Y F+ �Y � �Y �& �Y x �Y C �Y �4 �Y w& �Y � �Y w4 �Y � �Y u$ �Y � �Y n! �Y � �Y � �Y �# �Y s �Y �1 �Y Y. �Y � Z �9 Z � Z A Z �' Z s "Z $ (Z � .Z �. 4Z ! :Z - @Z � FZ � LZ RZ r# XZ �4 ^Z dZ jZ � pZ vZ �- |Z J9 �Z �Z � �Z 7 �Z z �Z ,6 �Z o �Z z5 [ � [ 6 [ � +[ �. 6[ � A[ � L[ 6 W[ X# b[ �7 �[ �1 �[ �$ �[ �7 \ � %\ � 7\ �8 S\ � t\ � �\ 3 �\ �3 �\ � �\ A/ &] H] � _] � {] �* �] � �] � �] 7 �] �( �^ � _ � 4_ � A_ 7 �_ �0 �_ � �_ 3 �_ � �_ � ` 7 L` �0 s` � �` �9 �` � �` � �` 7 �` # a � +a � ;a '! Fa � wa � �a 7 �a 5% �a � �a 76 �a � b �0 b � .b � >b � Ib � zb � �b 7 �b � �b � �b � /c � <c 7 ec �0 c < �c � �c � �c � �c 9 �c � �c � d 7 d � (d 76 kd � zd � �d � �d � �d � �d 7 �d � 6e �0 [e 76 ze � �e � �e � �e � �e � �e 7 %f �0 [f � jf � zf l �f 7; �f �4 �f �- �f � g � g � %g �0 2g E ?g � Lg �- �g b �g �g � �g U7 h �' gh ) �h � �h �h C �h �* �h � �h �h C i %3 4i �8 Ai E Oi �$ �i # �i �i ) �i j X )j @ Lj f2 oj �j �% �j �j E �j � k 4 8k `k G* }k _ �k � �k + �k � �k � �k � �k � �k � �k � �k �* l w l & $l � 0l �* <l � Hl & " E & � * ( . � 2 b 6 g : � > G H 3 M G R G W � \ � a � f � k t p � u � z � & � � � � � � � � � � � � � � � � � > � � � � � � ? � ? � � � � � � � � � � ] � : � Y � ! � � � � � t ^ : * � � $ � ) � . 3 � 8 = � B 2 G � L Q " V O [ ` 3 e � j � o s t | D ! D * D 5 D = D F ( D O 0 D [ 8 D c @ D k H D r P D y X D � ` D � Q V |! W W * U 1 V B 8 V 3 D V >; K V � R V �/ W V e V o' j V t v V .* � V � � V �) � V 15 � V Y � V � V � � V {9 � V �# � V z � V �, V � V ^* V " , V / 8 V �) D V �7 W V �4 a V d4 m V �# y V s9 � V � � V � V 3: � V V' � V 6 � V o. � V � � V A. V c V 22 ' V [ 5 V C V � O V � e V : r V L � V ~ � V �: � V f � V + � V �& � V � � V & � V ( � V � * V � ; V �& G V � S V �1 _ V X k V �/ � V � V 5 � V � V ~ � V q& � V +1 � V � � V 89 � V �9 V �2 V L# 5 V � B V � O V � f V �2 s V L# � V � � V �2 � V L# � V � � V K9 � V M' � V � � V �% V r V � ( V I2 5 V { B V |( Y V �: f V $ } V ; � V U1 � V � � V R � V q � V ]0 � V �0 � V �, � V -; V 6 ( V �' 5 V W B V � O V g \ V �- j V � � V F � V k � V * � V �- � V �9 � V �+ V - V L- , V � @ V �/ M V �2 Z V �+ g V 0 t V 7 � V �# � V � � V �4 � V 7 � V �8 � V h � V w V !% V <& 1 V &2 E V F5 Y V ! � V � � V � V D V � + V � 7 V �6 C V l7 � V � V � � V {8 � V [7 � V �, � V � V �6 � V � V T$ V g V w V K - V �. : V ^! G V � T V g* a V � n V �) � V & � V � � V # � V � V 7 � V H. � V �/ � V � � V �& V �5 V � ' V :. 4 V E A V 6 N V � [ V �3 i V � v V 1 � V L � V � � V � � V �& � V T � V �5 � V R8 � V � � V ~* � V � V �8 V o+ ( V �8 S V 0 � V � � V " � V � � V v � V � � V � � V � � V X% � V \ V �. V #8 $ V �$ 3 V \5 B V � Q V �, ` V �/ m V R � V v � V � � V � � V � � V X% � V \ � V �. � V #8 V �$ V \5 & V � 5 V �, D V �/ R V R ` V S n V 7 | V g6 � V ! � V d � V � � V �( � V �, � V � � V � � V v � V � V � V � V X% . V \ = V �. L V #8 [ V �$ j V \5 y V � � V �, � V �/ � V R � V � � V �, � V �$ � V �. � V ) � V � V �' V V � - V v ; V � I V � W V � e V X% t V \ � V �. � V #8 � V �$ � V \5 � V � � V �, � V �/ � V R � V � V �, V � # V � 1 V � @ V � M V � \ V w) v V F* � V � � V P7 � V � � V � V 8 � V /8 � V ' � V = � V [ � V ]3 V � V % V , V m 9 V r5 F V � S V ` V � m V , z V � � V �. � V � � V e) � V �6 � V f5 � V / � V �9 � V / � V [$ � V W( V �6 V N # V o) 0 V � = V �* J V �. W V �6 e V U s V � � V � � V � � V � V �" � V B � V � � V ^ � V � � V �% � V � V ' ' V =+ A V � O V I! ] V 7 w V � � V � � V � � V � V ;8 � V �6 � V �2 � V � � V 4 � V � V + V 8 $ V �1 3 V D B V �2 Q V � ` V q$ o V \ ~ V 4 � V � � V �' � V �4 � V + � V � � V �, � V [; � V 1 V P V k # V � 2 V A V @ P V / _ V �8 n V i } V �2 � V � � V C � V M � V � � V 4 � V �/ � V � � V �0 V R V ; " V � 1 V G @ V 2 O V g ^ V � m V � | V � � V V � V � V � � V F � V � � V o � V � � V % V � V � ! V f3 0 V � ? V � N V o ] V � l V �. { V � � V �9 � V 3 � V ( � V � � V �7 � V � � V � � V �/ V V � V � / V � > V p6 M V � \ V / k V j z V O � V � � V �3 � V � � V �; � V � V t � V +$ � V � V �# V '5 V i . V �' = V ~ L V � [ V � j V �* y V � � V |: � V 1 � V �& � V � V � � V 95 � V ^1 � V �+ V Y. V � V � - V � < V S K V �: Z V �% i V �+ x V � � V � � V � � V � V v � V ; � V � � V � � V w- V �9 V ! , V ; V * J V j- Y V } h V � w V � � V ; � V z � V '* � V \ � V � � V v1 � V �. � V � � V � V �( V c8 + V � : V �4 I V �3 X V � g V � v V � � V d0 � V � � V �2 � V �) � V h1 � V �/ � V �: � V � � V �/ V 5 V * V X& 9 V � H V Q W V �% f V �$ u V �- � V �1 � V � � V �0 � V Z9 � V . � V � � V 5 � V � � V Q2 V � V %0 ) V � 8 V � G V � V V _/ e V �( t V S � V � � V I) � V � V � � V ;' � V �7 � V � V & � V ! V .% V Q! ( V 7 V # F V 4# U V N d V � s V 0 � V �: � V � V �4 � V �8 � V � � V � � V � � V �: � V � ! V G ! V j4 '! V �' 6! V . E! V , T! V l c! V }0 r! V � �! V � �! V � �! V � �! V 7 �! V i# �! V �! V F �! V �7 �! V " V `% " V � &" V 7 5" V B( D" V �7 S" V �8 b" V ;: q" V = �" V �* �" V � �" V � �" V �/ �" V �& �" V �' �" V �5 �" V � �" V �4 # V G # V 1 %# V �2 P# V ( ]# V �# j# V � w# V y �# V ( �# V �# �# V � �# V y �# V ( �# V �# $ V � $ V y 6$ V ( C$ V �# P$ V � ]$ V y k$ V K x$ V q �$ V ( �$ V �# �$ V � �$ V y �$ V �5 �$ V � �$ V *. �$ V �" % V % V �0 #% V �- 0% V F/ =% V � J% V z. Y% V �" h% V �# �% V ( �% V �# �% V � �% V y �% V ( �% V �# �% V � �% V y & V 4 & V : !& V �% 0& V �5 >& V L& V v Z& V P. h& V 4 v& V �& V z% �& V �* �& V {; �& V � �& V 6 �& V #( �& V �$ �& V a �& V �$ ' V � ' V �2 ' V �: '' V ; 4' V � A' V s N' V �- u' V �) �' V �" �' V [ �' V � �' V n �' V � �' V �) �' V �" �' V [ �' V � ( V �6 ( V � ( V T9 *( V �) 7( V �" D( V X- Q( V �6 ^( V �# l( V y( V . �( V �) �( V �" �( V �' �( V U �( V l �( V � �( V �) �( V �" �( V [ ) V � ) V �6 ) V S +) V � 8) V �: E) V �) R) V �" _) V [ l) V � y) V �( �) V �+ �) V 2 �) V � �) V �" �) V �) V �) V �1 �) V �1 �) V 1 �) V ^ * V � * V �) %* V �" 3* V [ A* V � O* V �6 ]* V D k* V K; y* V h& �* V y �* V #& �* V �4 �* V �* �* V �* V R6 �* V 6/ �* V � �* V $- + V + V �$ !+ V � .+ V L ;+ V �6 H+ V U+ V 93 b+ V 2 o+ V 9 |+ V �1 �+ V � �+ V q �+ V y �+ V {3 �+ V � �+ V �+ V U �+ V � , V , V _ &, V 1 3, V � @, V � M, V � Z, V R4 g, V �) t, V j �, V �3 �, V �. �, V � �, V K4 �, V � �, V B �, V �- �, V �# �, V � �, V � - V � - V n )- V � 8- V � E- V � S- V /+ a- V 4 o- V - }- V �- V �- V � �- V �0 �- V � �- V � �- V � �- V , �- V � . V � . V F . V � ). V y 6. V � C. V " Q. V � ^. V � k. V �: x. V �. �. V ! �. V $, �. V ) �. V $ �. V ]6 �. V ' �. V c */ V � 7/ V T/ V �9 �/ V T �/ V ~ �/ V # �/ V � �/ V � �/ V � �/ V y �/ V � %0 V � 10 V �( <0 V �3 H0 V �5 T0 V �# `0 V <( m0 V �( �0 V � �0 V � �0 V � �0 V � �0 V |2 �0 V W �0 V �" �0 V � �0 V . �0 V + �0 V ^ �0 V . �0 V � �0 V � �0 V p �0 V I �0 V s 1 V q/ 1 V l 1 V 5 B1 V 0) O1 V � \1 V / s1 V � 1 V Z �1 V w �1 V � �1 V � �1 V �5 �1 V � �1 V W �1 V � �1 V � 2 V Z 2 V w !2 V � -2 V � 92 V �5 E2 V � Q2 V W ]2 V � x2 V � �2 V Z �2 V w �2 V � �2 V � �2 V �5 �2 V � �2 V W �2 V � �2 V � �2 V Z 3 V w 3 V � #3 V � /3 V �5 ;3 V � G3 V W S3 V � n3 V � z3 V Z �3 V w �3 V � �3 V � �3 V �5 �3 V � �3 V W �3 V � �3 V � �3 V Z 4 V w 4 V � 4 V � *4 V �5 74 V � D4 V W Q4 V � m4 V � z4 V Z �4 V w �4 V � �4 V � �4 V �5 �4 V � �4 V W �4 V � �4 V �- �4 V �) �4 V �" 5 V [ 5 V � $5 V 15 V �5 >5 V (# K5 V I6 X5 V $ e5 V e r5 V � 5 V �5 V s3 �5 V ^, �5 V �3 �5 V q �5 V t �5 V � �5 V `' �5 V � �5 V 2& 6 V + 6 V � 6 V s% ,6 V �9 96 V � F6 V � S6 V � f6 V & q6 V 0 ~6 V 0. �6 V I+ �6 V $9 �6 V 7 �6 V �% �6 V �+ �6 V �8 �6 V � �6 V '; �6 V M 7 V � 7 V @ ,7 V C7 V @ P7 V g7 V @ t7 V �7 V g, �7 V @ �7 V �7 V # �7 V [4 �7 V � 8 V 4 8 V l "8 V �+ 08 V � <8 V � I8 V � V8 V h! c8 V E# p8 V � }8 V Z �8 V �8 V {/ �8 V �6 �8 V <, �8 V N* �8 V �8 V <, 9 V @ #9 V 09 V - =9 V 1 J9 V � W9 V s d9 V ^2 q9 V q ~9 V �: �9 V � �9 V �7 �9 V ` �9 V D$ �9 V � �9 V �2 �9 V �5 �9 V �- : V " : V �- !: V � 4: V ) 6< V � D< V � R< V + `< V s% n< V �9 |< V � �< V �# �< V � �< V �+ �< V �< V ! �< V � = V � != V =- /= V � == V q K= V 0 y= V � �= V � �= V N, �= V � �= V �) �= V �= V �5 �= V �5 > V q > V `' 9> V �5 G> V q U> V `' p> V � �> V �5 �> V q �> V `' �> V 3( �> V �> V � �> V + ? V ? V = &? V � I? V �5 W? V � e? V �( s? V �? V \8 �? V � �? V [ �? V �5 �? V O0 �? V �* �? V # @ V N* ;@ V �5 I@ V W@ V � e@ V B9 �@ V �5 �@ V � �@ V �@ V P �@ V # A V # A V �5 *A V �" EA V \8 SA V C aA V B0 oA V � �A V �5 �A V q �A V `' �A V ( �A V # �A V (B V �4 6B V c _B V <0 zB V q �B V `' �B V �- �B V � �B V # C V �4 C V c 4C V �& AC V [C V b hC V � uC V �% �C V ; �C V y' �C V � �C V ` �C V L �C V �5 �C V = �C V � �C V =- D V � D V � &D V < ;D V � HD V a UD V g vD V �3 �D V / �D V ~, �D V �D V @ �D V �D V )( �D V 0 E V � E V 4 4E V �( @E V 2 VE V 9 bE V � xE V G8 �E V L �E V �1 �E V x �E V �3 F V ! F V d )F V �$ 7F V �0 DF V � QF V S# ^F V V0 kF V �5 xF V % �F V � �F V 21 �F V �F V P% �F V X �F V q �F V �0 �F V S, �F V �% �F V D G V ) G V � 'G V � 5G V � �G V �7 �G V | �G V �G V � �G V ) �G V 6 �G V � �G V 4- �G V d �G V �9 H V A $H V : 2H V \ @H V � NH V \H V $ jH V " xH V g2 �H V u �H V � �H V T �H V V �H V % �H V �. �H V � �H V � �H V y+ I V �( I V � I V �% .I V W) <I V �5 JI V �6 YI V ] hI V \ wI V � �I V � �I V ?4 �I V r �I V �I V # �I V �' �I V : �I V R �I V ] J V } J V F +J V b :J V j( IJ V ' XJ V � gJ V 9) vJ V �8 �J V 5' �J V � �J V a- �J V s �J V 5 �J V x7 K V �2 K V � K V �7 -K V z :K V �0 MK V m YK V � eK V 8* yK V �# �K V � �K V p: �K V c �K V N( �K V �6 �K V � �K V � �K V p: L V c -L V �0 <L V � JL V � XL V p: fL V tL V 6$ �L V r; �L V r, M V �+ �M V �" �M V �- �M V �2 �M V 8 �M V f �M V �" �M V �' �M V �, �M V N V ., N V 7 "N V �( :N V � GN V �/ TN V aN V 20 nN V C% �N V : �N V �2 �N V P �N V g �N V d �N V � �N V * �N V �N V � �N V �* O V �" O V �" )O V 7O V ! EO V 2 ]O V 0 jO V {6 xO V � �O V � �O V �O V d �O V ;1 �O V � �O V P �O V �O V � �O V ; P V �$ �P V 7+ �P V �- �P V �/ �P V � �P V g �P V � Q V � Q V � &Q V 37 3Q V FQ V � RQ V 8 `Q V mQ V -- zQ V j$ �Q V �Q V �" �Q V < �Q V �Q V e �Q V �* �Q V � �Q V � �Q V � R V �) R V �" "R V � /R V �' <R V �" IR V VR V cR V �, pR V � }R V �R V � �R V � �R V � �R V l �R V � �R V Y �R V o8 �R V ": �R V �R V � S V �# S V + &S V �( 3S V I @S V 09 MS V � ZS V R gS V �6 tS V �S V I: �S V U �S V �S V � �S V �+ �S V � �S V ^ �S V �& �S V � �S V �9 T V � T V k "T V T3 0T V ! >T V + LT V % ZT V hT V � vT V �8 �T V �% �T V �0 �T V S: �T V ~ �T V L �T V � �T V � �T V ` �T V $ U V �, DU V 8 ZU V ; dU V � rU V � �U V N, �U V � �U V G �U V �U V � �U V �3 V V � 5V V � HV V / NV V � TV V C3 ZV V `: `V V �, fV V �) lV V � sV V A7 �V V @ �V V � �V V � �V V �1 �V V � W V $/ �W V �W V R X V p X V � X V x X V z X V � !X V 4 'X V -X V �+ 3X V 9X V �& ?X V k EX V 9 KX V ( QX V �( WX V �2 ]X V � cX V C1 iX V � oX V % uX V \+ {X V . �X V �& �X V - �X V �% �X V � �X V � �X V �7 �X V �) �X V I& �X V o* �X V � �X V .4 �X V � �X V �3 �X V � �X V � �X V � �X V 4 �X V *3 �X V � Y V Q Y V R5 Y V � Y V � Y V Y V � $Y V � *Y V M 0Y V � 6Y V [ <Y V 3 BY V c$ HY V �5 NY V a TY V �8 ZY V 6; `Y V ) fY V � lY V S rY V u xY V 0 ~Y V � �Y V � �Y V )' �Y V D �Y V & �Y V S+ �Y V � �Y V �& �Y V } �Y V H �Y V �4 �Y V |& �Y V � �Y V �4 �Y V � �Y V z$ �Y V � �Y V s! �Y V � �Y V � �Y V �# �Y V x Z V �1 Z V f. Z V � Z V : Z V � Z V F &Z V �' ,Z V x 2Z V "$ 8Z V � >Z V �. DZ V & JZ V 2 PZ V � VZ V � \Z V bZ V w# hZ V �4 nZ V tZ V zZ V � �Z V �Z V �- �Z V h9 �Z V �Z V � �Z V "7 �Z � �Z V [ � [ V 96 [ � "[ V t .[ � 7[ V �5 C[ � L[ V � X[ � a[ V 6 m[ � v[ V � �[ � �[ V �. �[ � �[ V � �[ � �[ V � �[ � �[ V +6 �[ � �[ V ]# �[ � �[ V 8 H\ V �1 c\ V �$ z\ V �7 �\ V � �\ V � �\ V �8 �\ V � ] V � ,] V 3 R] V �3 r] V � �] V N/ �] V �] V � �] V � ^ V �* ^ �# +^ V � 7^ R ;^ R K^ R & O^ R " _^ R > c^ R 8 h^ V � �^ V -7 �^ V �( �^ D �^ T � �^ R r �^ R T �^ T � �^ R � �^ R � �^ T � �^ R � �^ R � �^ T � _ R � _ R � _ T � 1_ R � 5_ R � ;_ T � O_ R S_ R Y_ T m_ R q_ R w_ T �_ R �_ R �_ T �_ R $ �_ R " �_ T ) �_ R . �_ R , �_ T 4 �_ R 8 �_ R 6 �_ T ? ` R B ` R @ ` T J !` R L %` R J +` T U ?` R V C` R T I` T ` ]` R ` a` R ^ g` T k {` R j ` R h �` �# �` $ �` D �` D �` $ �` 0$ �` D & a D a A$ &a `$ ;a D g Ta D ca x$ pa �$ �a D D �a D A �a �$ �a �$ �a D ^ �a D A �a �$ b % b D &b � 9b D A Hb % Ub ,% jb D z wb �b D x �b 3% �b R% �b D � �b D x �b c% �b �% c D � c D x -c �% :c �% Oc D � hc D x wc �% �c �% �c D � �c D �c �% �c & �c D � �c D d *& d I& -d E Fd D Ud a& bd �& wd E 8 �d ` �d D x �d �& �d �& �d D � �d D x �d �& �d �& e D � +e D x :e �& Ge ' \e D � ue D x �e "' �e A' �e D �e D x �e �# �e �# �e D � f D � f �# f �# -f R' :f f' Hf V � Nf � ef V � qf R v uf R r �f R � �f R � �f R � �f R � �f R � �f R � �f V � �f R �f R �f V -7 �f R K �f R I �f R n �f R f �f g R � g R � g T ' 1g R � 5g R � Eg R � Ig R � Ng V �0 Zg R � ^g R � �g � �g V � �g R �g R �g � �g �g E �g � �g � �g � h � h � &h � >h 5 Kh G Xh \ |h u �h � �h � �h � �h � �h � �h ( i E i D #i � ,i T =i R Ai R Gi � Ti � ai ni � �i D �i � �i V 8 �i @ �i V � �i R ) �i R % �i R C �i R ; �i R m �i R c j R � j R � j V � j R � $j R � )j V -7 5j R � 9j R � Ij R Mj R Rj � rj R 9 vj R 5 |j T G �j R P �j R J �j R n �j R f �j V �0 �j R � �j R � �j T \ �j V � �j R � �j R � �j m k x k � &k >k & Kk = Xk M uk W �k b �k � �k � �k � �k � �k l K l E @ &l D 5l } >l T < Ol R � Sl R � Yl s fl } sl � �l �l D �l �l V �9 �l ` �l V � �l R � �l R � �l R � �l R � m R & m R m R � m R ~ !m V � -m R � 1m R � 6m V -7 Bm R � Fm R � Km T � ^m R bm R � rm R vm R {m V # �m R 2 �m R * �m T �m V � �m R Q �m R O �m S �m ^ �m � �m V � n R \ n R Z n � n � 1n � :n � Vn R g Zn R e hn R s ln R o un � ~n � �n R � �n R � �n R � �n R � �n � �n 4 �n < �n E �n ] o g $o r Bo | Oo � go � to �o & �o 2 �o < �o G �o w �o � �o � p � /p � <p � _p ( pp E � }p D C �p � �p T � �p R � �p R � �p � �p � �p � �p � �p q D q V ,! q � )q V � 5q R � 9q R � Iq R � Mq R � ]q R aq R qq R b uq R L zq V � �q R � �q R � �q V -7 �q R � �q R � �q R �q R �q V :% �q �q U �q R \ �q R V �q T m r R | r R v r V � ,r V D6 Hr R � Lr R � Qr V � ]r R � ar R � fr V �0 rr R � vr R � �r V � �r � �r V � �r R �r R �r � �r � �r { �r � �r s s . 4s K As X ^s _ ks v xs � �s � �s � �s � �s � �s �s W t j t � !t � .t � Qt � ^t � �t 8 �t E �t D �t R �t E h �t D � �t � �t E � u D u u T b .u R & 2u R $ 8u Eu Ru 6 _u � zu D ` �u = �u V � �u p �u V � �u R 2 �u R . �u R X �u R D �u R � �u R � �u R � �u R � v V � v R # v R v V -7 !v R O %v R M 5v R r 9v R j >v � ^v R � bv R � hv T � {v R � v R � �v R � �v R � �v �! �v V � �v R � �v R � �v �! �v �! �v � w S! w s! "w }! /w �! <w �! Iw �! aw �! w " �w '" �w <" �w a" �w z" �w �" �w �" x �" &x �" 3x �" Vx �" cx # �x <# �x E � �x D � �x Z# �x E � �x D � �x w# �x E � y D � y � &y T � 7y R � ;y R � Ay � Ny � [y � hy # �y D �y # �y V � �y �y V � �y R � �y R � �y R �y R �y R ? �y R 9 z R c z R U z V � z R � z R � z V -7 *z R � .z R � 3z T r Fz R � Jz R � Zz R ^z R cz V �0 oz R sz R �z V A �z R : �z R 4 �z V � �z R T �z R P �z T } �z V � �z R i �z R c �z �z � �z � { y { � { � ,{ � 9{ � F{ � S{ u `{ � m{ � z{ � �{ �{ E x �{ D �{ 3 �{ V � �{ R � �{ R �{ : | E | = | T g 0| R � 4| R � :| 3 G| = T| S a| n| �| D �| V > �| � �| V � �| R � �| R � �| R � �| R � �| R � �| R � �| R E �| R 7 �| V � } R � } R } V -7 } R � #} R � (} T � ;} R � ?} R � D} V � P} R T} R � Y} V D6 u} R ! y} R �} T � �} V � �} R 2 �} R 0 �} �} �} b �} V � ~ R = ~ R ; ~ i ~ t .~ * 7~ * S~ R H W~ R F e~ R T i~ R P r~ 7 {~ 7 �~ R r �~ R p �~ R ~ �~ R z �~ % �~ B �~ d �~ s �~ � �~ � � ( � S � ` ~ � � * � � � � � � � � � � � � )� ' 6� < Z� U g� w t� � �� � �� � ǀ � E � � D �� � � T � � R � � R � � � +� � 8� � E� � `� D j� � x� V � ~� � �� V � �� R � �� R � �� R � �� R � Ɂ R � ́ R � ݁ R M � R A � V � � R � �� R ~ �� V -7 � R � � R � � R � � R � $� V � *� � 3� B S� R W� R ]� T � q� R 3 u� R / �� R F �� R B �� R _ �� R U �� R � �� R � �� V �0 R � Ƃ R � � V D6 � T � � V � � R � #� R � (� k 5� v C� � X� V � d� R � h� R � m� � z� � �� � �� � �� R � �� R � à R � ǃ R � Ѓ � ك � � R � � R � �� R �� R � � � %� B� * e� < r� a �� k �� { �� � �� � Մ � � �� $ � ; � K 6� U C� ` [� � h� � �� � �� � �� � Յ � � � 2 � G � Z B� o O� � r� � �� E x �� D �� - �� T � �� R Æ R Ɇ # ֆ - � B � � �� � � D < � V � %� � <� V � H� R ' L� R # \� R C `� R 9 p� R } t� R m �� R � �� R � �� V � �� V -7 �� R o �� R c �� R � �� R � Ç � � R � � R � � T # � R � � R � � R � R � � V �0 )� R c -� R ] [� R � _� R y i� V � w� � �� V � �� R � �� R � �� � �� � �� z Ɉ z � R � � R � � R � �� R � �� R � � R � � � � � 2� R � 6� R � ?� R � C� R � L� R P� R � V� c� � p� � }� � �� � �� � �� ' lj < ԉ S �� n � � � � !� � >� � K� X� - e� j �� x �� � �� � Ċ � � � � � � , ,� E x 9� D I� \ Z� E � g� D g |� � �� T �� R �� R �� � �� � �� � Nj � ԋ � � D ` �� V q � � � V U; #� R " '� R 6� R 5 :� R 1 K� R L O� R D T� V �4 `� R w d� R u s� R � w� R �� R � �� R � �� V �- �� � �� V � R � ƌ R � Ռ R � ٌ R � � R & � R " � V � �� R 7 � R 5 � V � � R A � R ? � V �0 )� R S -� R I 2� V J >� R � B� R � G� V � S� R � W� R � \� V �- h� R l� R {� R : � R 2 �� R d �� R Z �� R � �� R � �� R � �� R � �� � ʍ T � ۍ R ߍ R � R # � R ! �� R . �� R , �� � � V g "� � D� R < H� R 6 M� V Y� R [ ]� R U b� V � n� R z r� R t �� R � �� R � �� R � �� R � �� V b7 �� R � �� R � �� R 9 Î R + Ҏ R w ֎ R u � R � � R � � �� T R � R � � R � � R � � R � '� R � +� R � 5� � >� � Z� R � ^� R � g� R � k� R � t� R � x� R � ~� h �� � ُ V �' � � R � � R � � R � � R � .� R 2� R A� R 2 E� R * T� R a X� R ] h� R { l� R q {� R � � R � �� V . �� R � �� R � �� R � �� R � �� �� T = ǐ R � ː R � Ԑ R ؐ R � R � R � V � � � � V � R " � R � V H +� R J /� R B 4� V �* @� R n D� R j T� R � X� R � h� R � l� R � q� � �� � �� V � đ ` ۑ V � R � � R � � V H �� R � R � � R ( � R $� R P (� R H -� v E� � ]� � u� � �� V 23 �� 0 ǒ R t ˒ R p ڒ R � ޒ R � � V �8 � R � � R � �� V J � R � � R � � V �$ � � 8� R � <� R � J� R N� R \� R ; `� R 5 n� R ` r� R Z �� R � �� R �� V # �� R � �� R � �� � �� V �� p ؓ R � ܓ R � � R � � R � �� R � � R � � V . � @ "� V $ G� R K� R X� R : \� R 2 i� R x m� R p s� V ] }� �� R � �� R � �� V E �� � � R � � R � � V s2 �� � � R � R -� R ) 1� R % 6� V @� R ? D� R ; S� R Y W� R Q f� R � j� R z o� � �� V �% �� p ѕ V ߕ V J � R � � R � �� R � �� R � � R � R � R � � R � -� R � 1� R � 7� V � <� ` g� R � k� R � q� V "4 v� � �� R �� R �� V �� � � R F �� R > �� V T* � !� R m %� R i 2� R � 6� R | ?� H� b� R � f� R � k� * �� 3 �� 3 �� R � �� R � �� = ɗ F җ F � R � � R � �� P � Y � Y 1� R � 5� R � :� c S� l \� l v� R � z� R � � v �� �� �� R � �� R � Ę � ݘ � � � � R � � R � � � "� � +� � E� R � I� R � N� � f� � o� � �� R ! �� R � �� � �� � �� � Ι R ! ҙ R ! י � � � �� � � R ! � R ! � � 5� � >� � X� R -! \� R +! a� z� �� �� R <! �� R :! �� �� $ Ț $ � R K! � R I! � . � 7 � 7 '� R Z! +� R X! 0� A I� J R� J l� R i! p� R g! u� T �� ` �� ` �� R x! �� R v! �� j ӛ p ܛ T � P � � � � D � V d � V � ,� V *+ 9� V G� V � X� V � e� V � t� V � �� V � �� V �* �� V | �� V + �� V � ǜ V �* Ӝ V � ߜ V + � V �8 � V �8 �� V b( �� V b( � V � � V � $ � � P � � P � � P � � P � � P � � P � � P � � D ! P � ! P � %! P � 4! P � C! P � R! P � a! P � p! P � ! P � P " W 6 & W e * W w . W � 2 W � 6 W � : W � > W � H W M W R W W W \ W $ a W - f W ; k W H p W Z u W i z W w W � � W � � W � � W � � W � � W � � W � � W � � W � � W � � W � W � W � W � W ' � W / � W 8 � W ? � W D � W J � W U � W Z � W _ � W d � W i � W n W s W y W � W � W � W � W � $ W � ) W � . W � 3 W � 8 W � = W � B W � G W � L W � Q W � V W [ W ` W e W " j W + o W 4 t W G y W R � � � � � � � L � ` � t � � @ ` p 4 � H � \ � � @ � p � � 4 � � � � ` � 0 � P ` x � � � � � T � � � � p �# .symtab .strtab .shstrtab .rela.text .data .bss .annobin.notes .rela.gnu.debuglto_.debug_info .gnu.debuglto_.debug_abbrev .rela.gnu.debuglto_.debug_line .gnu.debuglto_.debug_str .gnu.debuglto_.debug_line_str .gnu.lto_.profile.8e6ad34b73abaf18 .gnu.lto_.icf.8e6ad34b73abaf18 .gnu.lto_.ipa_sra.8e6ad34b73abaf18 .gnu.lto_.inline.8e6ad34b73abaf18 .gnu.lto_.jmpfuncs.8e6ad34b73abaf18 .gnu.lto_.pureconst.8e6ad34b73abaf18 .gnu.lto_.ipa_modref.8e6ad34b73abaf18 .gnu.lto_.lto.8e6ad34b73abaf18 .gnu.lto_Perl_gimme_V.166.8e6ad34b73abaf18 .gnu.lto_is_ipv6to4.193.8e6ad34b73abaf18 .gnu.lto_is_shiftleft.194.8e6ad34b73abaf18 .gnu.lto_is_comp128.195.8e6ad34b73abaf18 .gnu.lto_is_sub128.196.8e6ad34b73abaf18 .gnu.lto_is_add128.197.8e6ad34b73abaf18 .gnu.lto_is_hasbits.198.8e6ad34b73abaf18 .gnu.lto_is_bcd2bin.199.8e6ad34b73abaf18 .gnu.lto_is_simple_pack.200.8e6ad34b73abaf18 .gnu.lto_is_bcdn2bin.201.8e6ad34b73abaf18 .gnu.lto_is_mask4to6.202.8e6ad34b73abaf18 .gnu.lto_is_ipv4to6.203.8e6ad34b73abaf18 .gnu.lto_is_maskanyto6.204.8e6ad34b73abaf18 .gnu.lto_is_ipanyto6.205.8e6ad34b73abaf18 .gnu.lto_printb128.206.8e6ad34b73abaf18 .gnu.lto_extendipv4.207.8e6ad34b73abaf18 .gnu.lto_extendmask4.208.8e6ad34b73abaf18 .gnu.lto_fastcomp128.209.8e6ad34b73abaf18 .gnu.lto_adder128.210.8e6ad34b73abaf18 .gnu.lto_addercon.211.8e6ad34b73abaf18 .gnu.lto_have128.212.8e6ad34b73abaf18 .gnu.lto__isipv4.213.8e6ad34b73abaf18 .gnu.lto_netswap_copy.214.8e6ad34b73abaf18 .gnu.lto_netswap.215.8e6ad34b73abaf18 .gnu.lto__countbits.216.8e6ad34b73abaf18 .gnu.lto__128x2.217.8e6ad34b73abaf18 .gnu.lto__128x10.218.8e6ad34b73abaf18 .gnu.lto__128x10plusbcd.219.8e6ad34b73abaf18 .gnu.lto__simple_pack.220.8e6ad34b73abaf18 .gnu.lto__bcdn2bin.221.8e6ad34b73abaf18 .gnu.lto__bin2bcd.222.8e6ad34b73abaf18 .gnu.lto__bcd2txt.223.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_comp128.224.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_add128.225.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_addconst.226.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_hasbits.227.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_bin2bcd.228.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_bcd2bin.229.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_notcontiguous.230.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_ipv4to6.231.8e6ad34b73abaf18 .gnu.lto_XS_NetAddr__IP__Util_ipanyto6.232.8e6ad34b73abaf18 .gnu.lto_boot_NetAddr__IP__Util.233.8e6ad34b73abaf18 .gnu.lto_Perl_gimme_V.part.0.254.8e6ad34b73abaf18 .gnu.lto_.symbol_nodes.8e6ad34b73abaf18 .gnu.lto_.refs.8e6ad34b73abaf18 .gnu.lto_.decls.8e6ad34b73abaf18 .gnu.lto_.symtab.8e6ad34b73abaf18 .gnu.lto_.ext_symtab.8e6ad34b73abaf18 .gnu.lto_.opts .rodata.str1.1 .rodata.str1.8 .rela.data.rel.local .rela.debug_info .rela.debug_loclists .rela.debug_aranges .debug_rnglists .rela.debug_line .comment .note.GNU-stack .note.gnu.property .rela.eh_frame @ f' @ P� ) [ & �' , �' 1 0 �' � E � 9( Ul @ @ `� P� [ _ � �� � � � � y { @ �I x [ � 0 � �� q; � 0 � � � � � �� � � � 7 � D� � 6 � �� m X � 4� y | � �� V � � � � � � �� � � �� � � n : � z� p e � �� o � � Y� m � � �� m � � 3� n � �� n 0 � � r ] � �� p � � �� o � � `� n � � �� q � ?� o 0 � �� ( X � � � � � � � � � � � � � � � [ # � > p I � � K o � � " � � � � � � % � � � � � J 4 � K a � X � � p" w � � �) � � � o2 I � �6 � = � QH � w � �W ? � � 4e � � � 0p � ) � } � d � � D � � 7� s � � �� � � >� Q Q � �� - � � �� � � � �� � � � w� �m � � �6 ( � < _ 4 � < ~ C 2 �= � R 2 �@ Y f �B h a @ (P 8 [ H S XC � v @ `Q [ J m r� � � '� �! � @ hT � [ M � � 0 � @ V 0 [ O � � v � R � � @ HV [ R � 0 , �; � 0 �g ] � 0 �j / � +k � 0k Pk 8 � @ h] � [ Y �p @ \ � ȁ � ` Lite/Util/README 0000644 00000046575 15043770025 0007262 0 ustar 00 NAME NetAddr::IP::Util -- IPv4/6 and 128 bit number utilities SYNOPSIS use NetAddr::IP::Util qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode AF_INET AF_INET6 naip_gethostbyname ); use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) :inet => inet_aton, inet_ntoa, ipv6_aton ipv6_ntoa, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, inet_pton, inet_ntop, inet_4map6, ipv4to6, mask4to6, ipanyto6, packzeros maskanyto6, ipv6to4, naip_gethostbyname :ipv4 => inet_aton, inet_ntoa :ipv6 => ipv6_aton, ipv6_ntoa, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, inet_pton, inet_ntop, inet_4map6, ipv4to6, mask4to6, ipanyto6, maskanyto6, ipv6to4, packzeros, naip_gethostbyname :math => hasbits, isIPv4, isNewIPv4, isAnyIPv4, addconst, add128, sub128, notcontiguous, bin2bcd, bcd2bin, shiftleft $dotquad = inet_ntoa($netaddr); $netaddr = inet_aton($dotquad); $ipv6naddr = ipv6_aton($ipv6_text); $ipv6_text = ipvt_ntoa($ipv6naddr); $hex_text = ipv6_n2x($ipv6naddr); $dec_text = ipv6_n2d($ipv6naddr); $hex_text = packzeros($hex_text); $ipv6naddr = inet_any2n($dotquad or $ipv6_text); $ipv6naddr = inet_4map6($netaddr or $ipv6naddr); $rv = hasbits($bits128); $rv = isIPv4($bits128); $rv = isNewIPv4($bits128); $rv = isAnyIPv4($bits128); $dotquad or $hex_text = inet_n2dx($ipv6naddr); $dotquad or $dec_text = inet_n2ad($ipv6naddr); $netaddr = inet_pton($AF_family,$hex_text); $hex_text = inet_ntop($AF_family,$netaddr); $ipv6naddr = ipv4to6($netaddr); $ipv6naddr = mask4to6($netaddr); $ipv6naddr = ipanyto6($netaddr); $ipv6naddr = maskanyto6($netaddr); $netaddr = ipv6to4($pv6naddr); $bitsX2 = shiftleft($bits128,$n); $carry = addconst($ipv6naddr,$signed_32con); ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); $carry = add128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); $carry = sub128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); ($spurious,$cidr) = notcontiguous($mask128); $bcdtext = bin2bcd($bits128); $bits128 = bcd2bin($bcdtxt); $modetext = mode; ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); $trueif = havegethostbyname2(); NetAddr::IP::Util::lower(); NetAddr::IP::Util::upper(); INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install NetAddr::IP::Util installs by default with its primary functions compiled using Perl's XS extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install DESCRIPTION NetAddr::IP::Util provides a suite of tools for manipulating and converting IPv4 and IPv6 addresses into 128 bit string context and back to text. The strings can be manipulated with Perl's logical operators: and & or | xor ^ ~ compliment in the same manner as 'vec' strings. The IPv6 functions support all rfc1884 formats. i.e. x:x:x:x:x:x:x:x:x x:x:x:x:x:x:x:d.d.d.d ::x:x:x ::x:d.d.d.d and so on... * $dotquad = inet_ntoa($netaddr); Convert a packed IPv4 network address to a dot-quad IP address. input: packed network address returns: IP address i.e. 10.4.12.123 * $netaddr = inet_aton($dotquad); Convert a dot-quad IP address into an IPv4 packed network address. input: IP address i.e. 192.5.16.32 returns: packed network address * $ipv6addr = ipv6_aton($ipv6_text); Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary RDATA string. input: ipv6 text returns: 128 bit RDATA string * $ipv6_text = ipv6_ntoa($ipv6naddr); Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. input: 128 bit RDATA string returns: ipv6 text * $hex_text = ipv6_n2x($ipv6addr); Takes an IPv6 RDATA string and returns an 8 segment IPv6 hex address input: 128 bit RDATA string returns: x:x:x:x:x:x:x:x * $dec_text = ipv6_n2d($ipv6addr); Takes an IPv6 RDATA string and returns a mixed hex - decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. input: 128 bit RDATA string returns: x:x:x:x:x:x:d.d.d.d * $ipv6naddr = inet_any2n($dotquad or $ipv6_text); This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to ipv6_aton. input: dot-quad or rfc1844 address returns: 128 bit IPv6 string * $rv = hasbits($bits128); This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. i.e. if (hasbits($bits128)) { &do_something; } or if (hasbits($bits128 & $mask128) { &do_something; } This allows the implementation of logical functions of the form of: if ($bits128 & $mask128) { ... input: 128 bit IPv6 string returns: true if any bits are present * $ipv6naddr = inet_4map6($netaddr or $ipv6naddr This function returns an ipV6 network address with the first 80 bits set to zero and the next 16 bits set to one, while the last 32 bits are filled with the ipV4 address. input: ipV4 netaddr or ipV6 netaddr returns: ipV6 netaddr returns: undef on error An ipV6 network address must be in one of the two compatible ipV4 mapped address spaces. i.e. ::ffff::d.d.d.d or ::d.d.d.d * $rv = isIPv4($bits128); This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. i.e. the address must be of the form - ::d.d.d.d Note: this is an old and deprecated ipV4 compatible ipV6 address * $rv = isNewIPv4($bits128); This function return true if the IPv6 128 bit string is of the form ::ffff::d.d.d.d * $rv = isAnyIPv4($bits128); This function return true if the IPv6 bit string is of the form ::d.d.d.d or ::ffff::d.d.d.d * $dotquad or $hex_text = inet_n2dx($ipv6naddr); This function does the right thing and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:x:x * $dotquad or $dec_text = inet_n2ad($ipv6naddr); This function does the right thing and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:ddd.ddd.ddd.dd * $netaddr = inet_pton($AF_family,$hex_text); This function takes an IP address in IPv4 or IPv6 text format and converts it into binary format. The type of IP address conversion is controlled by the FAMILY argument. * $hex_text = inet_ntop($AF_family,$netaddr); This function takes and IP address in binary format and converts it into text format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_ntop ALWAYS returns lowercase characters. * $hex_text = packzeros($hex_text); This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting :: for the first occurence of the longest string of zeros in the address. * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an IPv6 network address. input: 32 bit network address returns: 128 bit network address * $ipv6naddr = mask4to6($netaddr); Convert an ipv4 network address/mask into an ipv6 network mask. input: 32 bit network/mask address returns: 128 bit network/mask address NOTE: returns the high 96 bits as one's * $ipv6naddr = ipanyto6($netaddr); Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. input: 32 or 128 bit network address returns: 128 bit network address * $ipv6naddr = maskanyto6($netaddr); Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. input: 32 or 128 bit network mask returns: 128 bit network mask * $netaddr = ipv6to4($pv6naddr); Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. input: 128 bit network address returns: 32 bit inet_aton network address * $bitsXn = shiftleft($bits128,$n); input: 128 bit string variable, number of shifts [optional] returns: bits X n shifts NOTE: a single shift is performed if $n is not specified * addconst($ipv6naddr,$signed_32con); Add a signed constant to a 128 bit string variable. input: 128 bit IPv6 string, signed 32 bit integer returns: scalar carry array (carry, result) * add128($ipv6naddr1,$ipv6naddr2); Add two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) * sub128($ipv6naddr1,$ipv6naddr2); Subtract two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) Note: The carry from this operation is the result of adding the one's complement of ARG2 +1 to the ARG1. It is logically NOT borrow. i.e. if ARG1 >= ARG2 then carry = 1 or if ARG1 < ARG2 then carry = 0 * ($spurious,$cidr) = notcontiguous($mask128); This function counts the bit positions remaining in the mask when the rightmost '0's are removed. input: 128 bit netmask returns true if there are spurious zero bits remaining in the mask, false if the mask is contiguous one's, 128 bit cidr number * $bcdtext = bin2bcd($bits128); Convert a 128 bit binary string into binary coded decimal text digits. input: 128 bit string variable returns: string of bcd text digits * $bits128 = bcd2bin($bcdtxt); Convert a bcd text string to 128 bit string variable input: string of bcd text digits returns: 128 bit string variable * $modetext = mode; Returns the operating mode of this module. input: none returns: "Pure Perl" or "CC XS" * ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); Replacement for Perl's gethostbyname if Socket6 is available In ARRAY context, returns a list of five elements, the hostname or NAME, a space separated list of C_NAMES, AF family, length of the address structure, and an array of one or more netaddr's In SCALAR context, returns the first netaddr. This function ALWAYS returns an IPv6 address, even on IPv4 only systems. IPv4 addresses are mapped into IPv6 space in the form: ::FFFF:FFFF:d.d.d.d This is NOT the expected result from Perl's gethostbyname2. It is instead equivalent to: On an IPv4 only system: $ipv6naddr = ipv4to6 scalar ( gethostbyname( name )); On a system with Socket6 and a working gethostbyname2: $ipv6naddr = gethostbyname2( name, AF_INET6 ); and if that fails, the IPv4 conversion above. For a gethostbyname2 emulator that behave like Socket6, see: the Net::DNS::Dig manpage * $trueif = havegethostbyname2(); This function returns TRUE if Socket6 has a functioning gethostbyname2, otherwise it returns FALSE. See the comments above about the behavior of naip_gethostbyname. * NetAddr::IP::Util::lower(); Return IPv6 strings in lowercase. * NetAddr::IP::Util::upper(); Return IPv6 strings in uppercase. This is the default. EXAMPLES # convert any textual IP address into a 128 bit vector # sub text2vec { my($anyIP,$anyMask) = @_; # not IPv4 bit mask my $notiv4 = ipv6_aton('FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::'); my $vecip = inet_any2n($anyIP); my $mask = inet_any2n($anyMask); # extend mask bits for IPv4 my $bits = 128; # default unless (hasbits($mask & $notiv4)) { $mask |= $notiv4; $bits = 32; } return ($vecip, $mask, $bits); } ... alternate implementation, a little faster sub text2vec { my($anyIP,$anyMask) = @_; # not IPv4 bit mask my $notiv4 = ipv6_aton('FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::'); my $vecip = inet_any2n($anyIP); my $mask = inet_any2n($anyMask); # extend mask bits for IPv4 my $bits = 128; # default if (isIPv4($mask)) { $mask |= $notiv4; $bits = 32; } return ($vecip, $mask, $bits); } ... elsewhere $nip = { addr => $vecip, mask => $mask, bits => $bits, }; # return network and broadcast addresses from IP and Mask # sub netbroad { my($nip) = shift; my $notmask = ~ $nip->{mask}; my $bcast = $nip->{addr} | $notmask; my $network = $nip->{addr} & $nip->{mask}; return ($network, $broadcast); } # check if address is within a network # sub within { my($nip,$net) = @_; my $addr = $nip->{addr} my($nw,$bc) = netbroad($net); # arg1 >= arg2, sub128 returns true return (sub128($addr,$nw) && sub128($bc,$addr)) ? 1 : 0; } # truely hard way to do $ip++ # add a constant, wrapping at netblock boundaries # to subtract the constant, negate it before calling # 'addwrap' since 'addconst' will extend the sign bits # sub addwrap { my($nip,$const) = @_; my $addr = $nip->{addr}; my $mask = $nip->{mask}; my $bits = $nip->{bits}; my $notmask = ~ $mask; my $hibits = $addr & $mask; $addr = addconst($addr,$const); my $wraponly = $addr & $notmask; my $newip = { addr => $hibits | $wraponly, mask => $mask, bits => $bits, }; # bless $newip as appropriate return $newip; } # something more useful # increment a /24 net to the NEXT net at the boundry my $nextnet = 256; # for /24 LOOP: while (...continuing) { your code.... ... my $lastip = $ip-copy(); $ip++; if ($ip < $lastip) { # host part wrapped? # discard carry (undef, $ip->{addr} = addconst($ip->{addr}, $nextnet); } next LOOP; } EXPORT_OK inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode naip_gethostbyname havegethostbyname2 AUTHOR Michael Robinton <michael@bizsystems.com> COPYRIGHT Copyright 2003 - 2014, Michael Robinton <michael@bizsystems.com> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA. or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. AUTHOR Michael Robinton <michael@bizsystems.com> SEE ALSO NetAddr::IP(3), NetAddr::IP::Lite(3), NetAddr::IP::InetBase(3) Lite/Util/config.h.in 0000644 00000007354 15043770025 0010415 0 ustar 00 /* config.h.in. Generated from configure.ac by autoheader. */ /* Define to 1 if you have the <arpa/inet.h> header file. */ #undef HAVE_ARPA_INET_H /* Define to 1 if function 'gethostbyname' is present */ #undef HAVE_GETHOSTBYNAME /* Define to 1 if function 'inet_addr' is present */ #undef HAVE_INET_ADDR /* Define to 1 if function 'inet_aton' is present */ #undef HAVE_INET_ATON /* Define to 1 if function 'inet_pton' is present */ #undef HAVE_INET_PTON /* Define to 1 if you have the <inttypes.h> header file. */ #undef HAVE_INTTYPES_H /* Define if library library 'nsl' is present */ #undef HAVE_LIBNSL /* Define to 1 if you have the <memory.h> header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the <netdb.h> header file. */ #undef HAVE_NETDB_H /* Define to 1 if you have the <netinet/in.h> header file. */ #undef HAVE_NETINET_IN_H /* Define to 1 if you have the <stdint.h> header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the <stdlib.h> header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the <strings.h> header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the <string.h> header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the <sys/socket.h> header file. */ #undef HAVE_SYS_SOCKET_H /* Define to 1 if you have the <sys/stat.h> header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the <sys/types.h> header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the <unistd.h> header file. */ #undef HAVE_UNISTD_H /* Extra libraries */ #undef LIBS /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the version of this package. */ #undef PACKAGE_VERSION /* The size of `uint16_t', as computed by sizeof. */ #undef SIZEOF_UINT16_T /* The size of `uint32_t', as computed by sizeof. */ #undef SIZEOF_UINT32_T /* The size of `uint8_t', as computed by sizeof. */ #undef SIZEOF_UINT8_T /* The size of `u_int16_t', as computed by sizeof. */ #undef SIZEOF_U_INT16_T /* The size of `u_int32_t', as computed by sizeof. */ #undef SIZEOF_U_INT32_T /* The size of `u_int8_t', as computed by sizeof. */ #undef SIZEOF_U_INT8_T /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define to 1 if your processor stores words with the most significant byte first (like Motorola and SPARC, unlike Intel and VAX). */ #undef WORDS_BIGENDIAN /* Define for Solaris 2.5.1 so the uint32_t typedef from <sys/synch.h>, <pthread.h>, or <semaphore.h> is not used. If the typedef was allowed, the #define below would cause a syntax error. */ #undef _UINT32_T /* Define for Solaris 2.5.1 so the uint8_t typedef from <sys/synch.h>, <pthread.h>, or <semaphore.h> is not used. If the typedef was allowed, the #define below would cause a syntax error. */ #undef _UINT8_T /* Define to empty if `const' does not conform to ANSI C. */ #undef const /* Define to the type of a signed integer type of width exactly 32 bits if such a type exists and the standard includes do not define it. */ #undef int32_t /* Define to the type of an unsigned integer type of width exactly 16 bits if such a type exists and the standard includes do not define it. */ #undef uint16_t /* Define to the type of an unsigned integer type of width exactly 32 bits if such a type exists and the standard includes do not define it. */ #undef uint32_t /* Define to the type of an unsigned integer type of width exactly 8 bits if such a type exists and the standard includes do not define it. */ #undef uint8_t Lite/MANIFEST 0000644 00000004017 15043770025 0006577 0 ustar 00 MANIFEST MANIFEST.SKIP Changes Lite.pm Makefile.PL README bug2742981 t/addr.t t/aton.t t/bigint.t t/bignums.t t/bin_ips.t t/bits.t t/broadcast.t t/bug62521.t t/bug75976.t t/cidr.t t/constants.t t/contains.t t/copy.t t/firstlast.t t/is_local.t t/ipv4FFFF.t t/lemasklen.t t/loops.t t/lower.t t/mask.t t/masklen.t t/netaddr.t t/network.t t/new-nth.t t/new-num.t t/nofqdn.t t/numeric.t t/old-nth.t t/old-num.t t/over-qq.t t/over_comp.t t/over_copy.t t/over_equal.t t/over_math.t t/overminus.t t/pathological.t t/range.t t/relops.t t/rfc_1918.t t/v4-aton.t t/v4-badnm.t t/v4-base.t t/v4-basem.t t/v4-cidr.t t/v4-cnew.t t/v4-contains.t t/v4-last.t t/v4-new-first.t t/v4-new_from_aton.t t/v4-new.t t/v4_new_cis.t t/v4-no_octal.t t/v4-num.t t/v4-numeric.t t/v4-old-first.t t/v4-range.t t/v4-snew.t t/v4-wnew.t t/v6-cnew.t t/v6-contains.t t/v6-inc.t t/v6-new_cis6_base.t t/v6-new_cis_base.t t/v6-new-base.t t/v6-num.t t/v6-numeric.t t/v6-old-base.t t/version.t t/within.t t/v6-cnew-uri.t t/v6-new-base-uri.t t/v6-numeric-uri.t t/v6-old-base-uri.t Util/MANIFEST Util/MANIFEST.SKIP Util/Changes Util/configure.cc Util/configure.gcc Util/configure.ac Util/config.h.in Util/lib/NetAddr/IP/UtilPP.pm Util/tlib/NetAddr/IP/Util_IS.pm Util/localconf.h Util/Makefile.PL Util/README Util/t/4to6.t Util/t/add128.t Util/t/addconst.t Util/t/af_inet6.t Util/t/anyto6.t Util/t/badd.t Util/t/bcd2bin.t Util/t/bcdn2bin.t Util/t/bin.t Util/t/comp128.t Util/t/croak.t Util/t/hasbits.t Util/t/inet_4map6.t Util/t/inet_n2ad.t Util/t/inet_n2dx.t Util/t/ipv4_inet.t Util/t/ipv6_any2n.t Util/t/ipv6func.t Util/t/ipv6to4.t Util/t/isIPv4.t Util/t/leftshift.t Util/t/mode.t Util/t/notcontiguous.t Util/t/simple_pack.t Util/t/sub128.t Util/typemap Util/Util.pm Util/Util.xs Util/lib/NetAddr/IP/InetBase.pm Util/t/binet_n2ad.t Util/t/binet_n2dx.t Util/t/binet_pton.t Util/t/bipv4_inet.t Util/t/bipv6_any2n.t Util/t/bipv6func.t Util/t/bisIPv4.t Util/t/bpackzeros.t Util/t/inet_pton.t Util/t/packzeros.t Util/t/binet_ntoa.t Util/t/ipv6_ntoa.t Util/t/naip_gethostbyname.t Util/t/no6_naip_gethostbyname.t Lite/MYMETA.json 0000644 00000001570 15043770025 0007336 0 ustar 00 { "abstract" : "unknown", "author" : [ "unknown" ], "dynamic_config" : 0, "generated_by" : "ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "NetAddr-IP-Lite", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Test::More" : "0" } } }, "release_status" : "stable", "version" : "1.57", "x_serialization_backend" : "JSON::PP version 4.06" } Lite/bug2742981 0000755 00000006234 15043770025 0006735 0 ustar 00 #!/usr/bin/perl use Math::BigInt; use NetAddr::IP::Util qw( bcd2bin ipv6_n2x ); my $data = q| got: '340282366920938963520000944000010176000' # expected: '340282366920938463463374607431768211455' # Failed test 'cafe:cafe::/64 Scalar numeric ok' # at t/v6-numeric.t line 57. # got: '269827015721314205120005577600083392000' # expected: '269827015721314068804783158349174669312' # Failed test 'cafe:cafe::/64 Array numeric ok for network' # at t/v6-numeric.t line 58. # got: '269827015721314205120005577600083392000' # expected: '269827015721314068804783158349174669312' # Failed test 'cafe:cafe::/64 Array numeric ok for mask' # at t/v6-numeric.t line 59. # got: '340282366920938963520000944000010176000' # expected: '340282366920938463444927863358058659840' # Failed test 'cafe:cafe::1/64 Scalar numeric ok' # at t/v6-numeric.t line 57. # got: '269827015721314205120005577600083392000' # expected: '269827015721314068804783158349174669313' # Failed test 'cafe:cafe::1/64 Array numeric ok for network' # at t/v6-numeric.t line 58. # got: '269827015721314205120005577600083392000' # expected: '269827015721314068804783158349174669313' # Failed test 'cafe:cafe::1/64 Array numeric ok for mask' # at t/v6-numeric.t line 59. # got: '340282366920938963520000944000010176000' # expected: '340282366920938463444927863358058659840' # Failed test 'dead:beef::/100 Scalar numeric ok' # at t/v6-numeric.t line 57. # got: '295990755014136299520006003200014752000' # expected: '295990755014133383690938178081940045824' # Failed test 'dead:beef::/100 Array numeric ok for network' # at t/v6-numeric.t line 58. # got: '295990755014136299520006003200014752000' # expected: '295990755014133383690938178081940045824' # Failed test 'dead:beef::/100 Array numeric ok for mask' # at t/v6-numeric.t line 59. # got: '340282366920938963520000944000010176000' # expected: '340282366920938463463374607431499776000' # Failed test 'dead:beef::1/100 Scalar numeric ok' # at t/v6-numeric.t line 57. # got: '295990755014136299520006003200014752000' # expected: '295990755014133383690938178081940045825' # Failed test 'dead:beef::1/100 Array numeric ok for network' # at t/v6-numeric.t line 58. # got: '295990755014136299520006003200014752000' # expected: '295990755014133383690938178081940045825' # Failed test 'dead:beef::1/100 Array numeric ok for mask' # at t/v6-numeric.t line 59. # got: '340282366920938963520000944000010176000' # expected: '340282366920938463463374607431499776000' |; my @trial = split("\n",$data); my @data; foreach(@trial) { if ($_ =~ /(?:got|expected)\:\s+\'(\d+)/) { push @data,$1; } } #for(my $i=0;$i <= $#data;$i +=2) { # print $data[$i]," -\n"; # print $data[$i +1]," =\n"; # my $x = Math::BigInt->new($data[$i]); # my $y = Math::BigInt->new($data[$i +1]); # $x->bsub($y); # print $x,"\n\n"; #} for(my $i=0;$i <= $#data;$i +=2) { my $x = ipv6_n2x(bcd2bin($data[$i])); print $data[$i],"\t=> $x\n"; my $y = ipv6_n2x(bcd2bin($data[$i +1])); print $data[$i +1],"\t=> $y\n"; } Lite/README 0000644 00000050245 15043770025 0006332 0 ustar 00 NAME NetAddr::IP::Lite - Manages IPv4 and IPv6 addresses and subnets SYNOPSIS use NetAddr::IP::Lite qw( Zeros Ones V4mask V4net :aton DEPRECATED ! :old_nth :upper :lower :nofqdn ); my $ip = new NetAddr::IP::Lite '127.0.0.1'; or if your prefer my $ip = NetAddr::IP::Lite->new('127.0.0.1); or from a packed IPv4 address my $ip = new_from_aton NetAddr::IP::Lite (inet_aton('127.0.0.1')); or from an octal filtered IPv4 address my $ip = new_no NetAddr::IP::Lite '127.012.0.0'; print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ; if ($ip->within(new NetAddr::IP::Lite "127.0.0.0", "255.0.0.0")) { print "Is a loopback address\n"; } # This prints 127.0.0.1/32 print "You can also say $ip...\n"; The following four functions return ipV6 representations of: :: = Zeros(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); ::FFFF:FFFF = V4net(); Will also return an ipV4 or ipV6 representation of a resolvable Fully Qualified Domanin Name (FQDN). INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install NetAddr::IP::Lite depends on NetAddr::IP::Util which installs by default with its primary functions compiled using Perl's XS extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install DESCRIPTION This module provides an object-oriented abstraction on top of IP addresses or IP subnets, that allows for easy manipulations. Most of the operations of NetAddr::IP are supported. This module will work with older versions of Perl and is compatible with Math::BigInt. * By default NetAddr::IP functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: NOTE: the AUGUST 2010 RFC5952 states: 4.3. Lowercase The characters "a", "b", "c", "d", "e", and "f" in an IPv6 address MUST be represented in lowercase. It is recommended that all NEW applications using NetAddr::IP::Lite be invoked as shown on the next line. use NetAddr::IP::Lite qw(:lower); * To ensure the current IPv6 string case behavior even if the default changes: use NetAddr::IP::Lite qw(:upper); The internal representation of all IP objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. The supported operations are described below: Overloaded Operators Assignment ("=") Has been optimized to copy one NetAddr::IP::Lite object to another very quickly. "->copy()" The assignment ("=") operation is only put in to operation when the copied object is further mutated by another overloaded operation. See the overload manpage SPECIAL SYMBOLS FOR "use overload" for details. "->copy()" actually creates a new object when called. Stringification An object can be used just as a string. For instance, the following code my $ip = new NetAddr::IP::Lite '192.168.1.123'; print "$ip\n"; Will print the string 192.168.1.123/32. my $ip = new6 NetAddr::IP::Lite '192.168.1.123'; print "$ip\n"; Will print the string 0:0:0:0:0:0:C0A8:17B/128 Equality You can test for equality with either "eq", "ne", "==" or "!=". "eq", "ne" allows the comparison with arbitrary strings as well as NetAddr::IP::Lite objects. The following example: if (NetAddr::IP::Lite->new('127.0.0.1','255.0.0.0') eq '127.0.0.1/8') { print "Yes\n"; } Will print out "Yes". Comparison with "==" and "!=" requires both operands to be NetAddr::IP::Lite objects. Comparison via >, <, >=, <=, <=> and "cmp" Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the NUMERIC cidr portion of the masks are compared. This leads to the counterintuitive result that /24 > /16 Comparison should not be done on netaddr objects with different CIDR as this may produce indeterminate - unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing $ip1->masklen <=> $ip2->masklen Addition of a constant ("+") Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: print NetAddr::IP::Lite->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: print NetAddr::IP::Lite->new('10.0.0.1/24') + 255; outputs 10.0.0.0/24. Returns the the unchanged object when the constant is missing or out of range. 2147483647 <= constant >= -2147483648 Subtraction of a constant ("-") The complement of the addition of a constant. Difference ("-") Returns the difference between the address parts of two NetAddr::IP::Lite objects address parts as a 32 bit signed number. Returns undef if the difference is out of range. Auto-increment Auto-incrementing a NetAddr::IP::Lite object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. Auto-decrement Auto-decrementing a NetAddr::IP::Lite object performs exactly the opposite of auto-incrementing it, as you would expect. Methods "->new([$addr, [ $mask|IPv6 ]])" "->new6([$addr, [ $mask]])" "->new6FFFF([$addr, [ $mask]])" "->new_no([$addr, [ $mask]])" "->new_from_aton($netaddr)" new_cis and new_cis6 are DEPRECATED "->new_cis("$addr $mask)" "->new_cis6("$addr $mask)" The first three methods create a new address with the supplied address in "$addr" and an optional netmask "$mask", which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. new6FFFF specifically returns an IPv4 address in IPv6 format according to RFC4291 new6 ::xxxx:xxxx new6FFFF ::FFFF:xxxx:xxxx The third method "new_no" is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. new_from_aton takes a packed IPv4 address and assumes a /32 mask. This function replaces the DEPRECATED :aton functionality which is fundamentally broken. The last two methods new_cis and new_cis6 differ from new and new6 only in that they except the common Cisco address notation for address/mask pairs with a space as a separator instead of a slash (/) These methods are DEPRECATED because the functionality is now included in the other "new" methods i.e. ->new_cis('1.2.3.0 24') or ->new_cis6('::1.2.3.0 120') "->new6" and "->new_cis6" mark the address as being in ipV6 address space even if the format would suggest otherwise. i.e. ->new6('1.2.3.4') will result in ::102:304 addresses submitted to ->new in ipV6 notation will remain in that notation permanently. i.e. ->new('::1.2.3.4') will result in ::102:304 whereas new('1.2.3.4') would print out as 1.2.3.4 See "STRINGIFICATION" below. "$addr" can be almost anything that can be resolved to an IP address in all the notations I have seen over time. It can optionally contain the mask in CIDR notation. If the OPTIONAL perl module Socket6 is available in the local library it will autoload and ipV6 host6 names will be resolved as well as ipV4 hostnames. prefix notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. Addresses in the same format returned by "inet_aton" or "gethostbyname" can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. ###### DEPRECATED, will be remove in version 5 ############ To accept addresses in that format, invoke the module as in use NetAddr::IP::Lite ':aton' ###### USE new_from_aton instead ########################## If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' "$addr" can be any of the following and possibly more... n.n n.n/mm n.n mm n.n.n n.n.n/mm n.n.n mm n.n.n.n n.n.n.n/mm 32 bit cidr notation n.n.n.n mm n.n.n.n/m.m.m.m n.n.n.n m.m.m.m loopback, localhost, broadcast, any, default x.x.x.x/host 0xABCDEF, 0b111111000101011110, (or a bcd number) a netaddr as returned by 'inet_aton' Any RFC1884 notation ::n.n.n.n ::n.n.n.n/mmm 128 bit cidr notation ::n.n.n.n/::m.m.m.m ::x:x ::x:x/mmm x:x:x:x:x:x:x:x x:x:x:x:x:x:x:x/mmm x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation loopback, localhost, unspecified, any, default ::x:x/host 0xABCDEF, 0b111111000101011110 within the limits of perl's number resolution 123456789012 a 'big' bcd number (bigger than perl likes) and Math::BigInt A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: use NetAddr::IP::Lite ':nofqdn'; If called with no arguments, 'default' is assumed. If called with and empty string as the argument, 'undef' is returned; "->broadcast()" Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. "->network()" Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. "->addr()" Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP::Lite object to other components that expect an IP address. If the object is an ipV6 address or was created using ->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. "->mask()" Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. "->masklen()" Returns a scalar the number of one bits in the mask. "->bits()" Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. "->version()" Returns the version of the address or subnet. Currently this can be either 4 or 6. "->cidr()" Returns a scalar with the address and mask in CIDR notation. A NetAddr::IP::Lite object *stringifies* to the result of this function. (see comments about ->new6() and ->addr() for output formats) "->aton()" Returns the address part of the NetAddr::IP::Lite object in the same format as the "inet_aton()" or "ipv6_aton" function respectively. If the object was created using ->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. "->range()" Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. "->numeric()" When called in a scalar context, will return a numeric representation of the address part of the IP address. When called in an array context, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. This method is essential for serializing the representation of a subnet. "->bigint()" When called in a scalar context, will return a Math::BigInt representation of the address part of the IP address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the Math::BigInt representation of the netmask. "$me->contains($other)" Returns true when "$me" completely contains "$other". False is returned otherwise and "undef" is returned if "$me" and "$other" are not both "NetAddr::IP::Lite" objects. "$me->within($other)" The complement of "->contains()". Returns true when "$me" is completely contained within "$other", undef if "$me" and "$other" are not both "NetAddr::IP::Lite" objects. C->is_rfc1918()> Returns true when "$me" is an RFC 1918 address. 10.0.0.0 - 10.255.255.255 (10/8 prefix) 172.16.0.0 - 172.31.255.255 (172.16/12 prefix) 192.168.0.0 - 192.168.255.255 (192.168/16 prefix) "->is_local()" Returns true when "$me" is a local network address. i.e. ipV4 127.0.0.0 - 127.255.255.255 or ipV6 === ::1 "->first()" Returns a new object representing the first usable IP address within the subnet (ie, the first host address). "->last()" Returns a new object representing the last usable IP address within the subnet (ie, one less than the broadcast address). "->nth($index)" Returns a new object representing the *n*-th usable IP address within the subnet (ie, the *n*-th host address). If no address is available (for example, when the network is too small for "$index" hosts), "undef" is returned. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements "->nth($index)" and "->num()" exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. To use the old behavior for "->nth($index)" and "->num()": use NetAddr::IP::Lite qw(:old_nth); old behavior: NetAddr::IP->new('10/32')->nth(0) == undef NetAddr::IP->new('10/32')->nth(1) == undef NetAddr::IP->new('10/31')->nth(0) == undef NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == undef NetAddr::IP->new('10/30')->nth(1) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(2) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(3) == 10.0.0.3/30 Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. new behavior: NetAddr::IP->new('10/32')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10.1/32'->nth(0) == 10.0.0.1/32 NetAddr::IP->new('10/31')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/32 NetAddr::IP->new('10/30')->nth(0) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(1) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(2) == undef Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. "->num()" As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net num value of 2 instead of 0 (zero) for point-to-point networks. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable IP addresses within the subnet, not counting the broadcast or network address. Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of IP addresses not counting the broadcast address. (one greater than the new behavior) To use the old behavior for "->nth($index)" and "->num()": use NetAddr::IP::Lite qw(:old_nth); WARNING: NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are TEXT strings and perl can treat them as integers for numeric calculations. Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. EXPORT_OK Zeros Ones V4mask V4net :aton DEPRECATED :old_nth :upper :lower :nofqdn AUTHORS Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <michael@bizsystems.com> WARRANTY This software comes with the same warranty as perl itself (ie, none), so by using it you accept any and all the liability. COPYRIGHT This software is (c) Luis E. Muñoz, 1999 - 2005 and (c) Michael Robinton, 2006 - 2014. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. SEE ALSO NetAddr::IP(3), NetAddr::IP::Util(3), NetAddr::IP::InetBase(3) Artistic 0000444 00000013737 15043770025 0006265 0 ustar 00 The "Artistic License" Preamble The intent of this document is to state the conditions under which a Package may be copied, such that the Copyright Holder maintains some semblance of artistic control over the development of the package, while giving the users of the package the right to use and distribute the Package in a more-or-less customary fashion, plus the right to make reasonable modifications. Definitions: "Package" refers to the collection of files distributed by the Copyright Holder, and derivatives of that collection of files created through textual modification. "Standard Version" refers to such a Package if it has not been modified, or has been modified in accordance with the wishes of the Copyright Holder as specified below. "Copyright Holder" is whoever is named in the copyright or copyrights for the package. "You" is you, if you're thinking about copying or distributing this Package. "Reasonable copying fee" is whatever you can justify on the basis of media cost, duplication charges, time of people involved, and so on. (You will not be required to justify it to the Copyright Holder, but only to the computing community at large as a market that must bear the fee.) "Freely Available" means that no fee is charged for the item itself, though there may be fees involved in handling the item. It also means that recipients of the item may redistribute it under the same conditions they received it. 1. You may make and give away verbatim copies of the source form of the Standard Version of this Package without restriction, provided that you duplicate all of the original copyright notices and associated disclaimers. 2. You may apply bug fixes, portability fixes and other modifications derived from the Public Domain or from the Copyright Holder. A Package modified in such a way shall still be considered the Standard Version. 3. You may otherwise modify your copy of this Package in any way, provided that you insert a prominent notice in each changed file stating how and when you changed that file, and provided that you do at least ONE of the following: a) place your modifications in the Public Domain or otherwise make them Freely Available, such as by posting said modifications to Usenet or an equivalent medium, or placing the modifications on a major archive site such as uunet.uu.net, or by allowing the Copyright Holder to include your modifications in the Standard Version of the Package. b) use the modified Package only within your corporation or organization. c) rename any non-standard executables so the names do not conflict with standard executables, which must also be provided, and provide a separate manual page for each non-standard executable that clearly documents how it differs from the Standard Version. d) make other distribution arrangements with the Copyright Holder. 4. You may distribute the programs of this Package in object code or executable form, provided that you do at least ONE of the following: a) distribute a Standard Version of the executables and library files, together with instructions (in the manual page or equivalent) on where to get the Standard Version. b) accompany the distribution with the machine-readable source of the Package with your modifications. c) give non-standard executables non-standard names, and clearly document the differences in manual pages (or equivalent), together with instructions on where to get the Standard Version. d) make other distribution arrangements with the Copyright Holder. 5. You may charge a reasonable copying fee for any distribution of this Package. You may charge any fee you choose for support of this Package. You may not charge a fee for this Package itself. However, you may distribute this Package in aggregate with other (possibly commercial) programs as part of a larger (possibly commercial) software distribution provided that you do not advertise this Package as a product of your own. You may embed this Package's interpreter within an executable of yours (by linking); this shall be construed as a mere form of aggregation, provided that the complete Standard Version of the interpreter is so embedded. 6. The scripts and library files supplied as input to or produced as output from the programs of this Package do not automatically fall under the copyright of this Package, but belong to whoever generated them, and may be sold commercially, and may be aggregated with this Package. If such scripts or library files are aggregated with this Package via the so-called "undump" or "unexec" methods of producing a binary executable image, then distribution of such an image shall neither be construed as a distribution of this Package nor shall it fall under the restrictions of Paragraphs 3 and 4, provided that you do not represent such an executable image as a Standard Version of this Package. 7. C subroutines (or comparably compiled subroutines in other languages) supplied by you and linked into this Package in order to emulate subroutines and variables of the language defined by this Package shall not be considered part of this Package, but are the equivalent of input as in Paragraph 6, provided these subroutines do not change the language in any way that would cause it to fail the regression tests for the language. 8. Aggregation of this Package with a commercial distribution is always permitted provided that the use of this Package is embedded; that is, when no overt attempt is made to make this Package's interfaces visible to the end user of the commercial distribution. Such use shall not be construed as a distribution of this Package. 9. The name of the Copyright Holder may not be used to endorse or promote products derived from this software without specific prior written permission. 10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. The End Makefile 0000644 00000075533 15043770025 0006224 0 ustar 00 # This Makefile is for the NetAddr::IP extension to perl. # # It was generated automatically by MakeMaker version # 7.60 (Revision: 76000) from the contents of # Makefile.PL. Don't edit this file, edit Makefile.PL instead. # # ANY CHANGES MADE HERE WILL BE LOST! # # MakeMaker ARGV: () # # MakeMaker Parameters: # ABSTRACT_FROM => q[IP.pm] # AUTHOR => [q[Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>]] # BUILD_REQUIRES => { } # CONFIGURE_REQUIRES => { } # NAME => q[NetAddr::IP] # PREREQ_PM => { Test::More=>q[0] } # TEST_REQUIRES => { } # VERSION_FROM => q[IP.pm] # clean => { FILES=>q[*~ tmp* META.yml] } # --- MakeMaker post_initialize section: # --- MakeMaker const_config section: # These definitions are from config.sh (via /usr/lib64/perl5/Config.pm). # They may have been overridden via Makefile.PL or on the command line. AR = ar CC = gcc CCCDLFLAGS = -fPIC CCDLFLAGS = -Wl,--enable-new-dtags -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 DLEXT = so DLSRC = dl_dlopen.xs EXE_EXT = FULL_AR = /usr/bin/ar LD = gcc LDDLFLAGS = -lpthread -shared -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -L/usr/local/lib -fstack-protector-strong LDFLAGS = -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fstack-protector-strong -L/usr/local/lib LIBC = /lib/../lib64/libc.so.6 LIB_EXT = .a OBJ_EXT = .o OSNAME = linux OSVERS = 4.18.0-513.18.1.el8_9.x86_64 RANLIB = : SITELIBEXP = /usr/local/share/perl5/5.32 SITEARCHEXP = /usr/local/lib64/perl5/5.32 SO = so VENDORARCHEXP = /usr/lib64/perl5/vendor_perl VENDORLIBEXP = /usr/share/perl5/vendor_perl # --- MakeMaker constants section: AR_STATIC_ARGS = cr DIRFILESEP = / DFSEP = $(DIRFILESEP) NAME = NetAddr::IP NAME_SYM = NetAddr_IP VERSION = 4.079 VERSION_MACRO = VERSION VERSION_SYM = 4_079 DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" XS_VERSION = 4.079 XS_VERSION_MACRO = XS_VERSION XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" INST_ARCHLIB = blib/arch INST_SCRIPT = blib/script INST_BIN = blib/bin INST_LIB = blib/lib INST_MAN1DIR = blib/man1 INST_MAN3DIR = blib/man3 MAN1EXT = 1 MAN3EXT = 3pm MAN1SECTION = 1 MAN3SECTION = 3 INSTALLDIRS = site DESTDIR = PREFIX = $(SITEPREFIX) PERLPREFIX = /usr SITEPREFIX = /usr/local VENDORPREFIX = /usr INSTALLPRIVLIB = /usr/share/perl5 DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) INSTALLSITELIB = /usr/local/share/perl5/5.32 DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) INSTALLVENDORLIB = /usr/share/perl5/vendor_perl DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) INSTALLARCHLIB = /usr/lib64/perl5 DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) INSTALLSITEARCH = /usr/local/lib64/perl5/5.32 DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) INSTALLVENDORARCH = /usr/lib64/perl5/vendor_perl DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) INSTALLBIN = /usr/bin DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) INSTALLSITEBIN = /usr/local/bin DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) INSTALLVENDORBIN = /usr/bin DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) INSTALLSCRIPT = /usr/bin DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) INSTALLSITESCRIPT = /usr/local/bin DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT) INSTALLVENDORSCRIPT = /usr/bin DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT) INSTALLMAN1DIR = /usr/share/man/man1 DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) INSTALLSITEMAN1DIR = /usr/local/share/man/man1 DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) INSTALLVENDORMAN1DIR = /usr/share/man/man1 DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) INSTALLMAN3DIR = /usr/share/man/man3 DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) INSTALLSITEMAN3DIR = /usr/local/share/man/man3 DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) INSTALLVENDORMAN3DIR = /usr/share/man/man3 DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) PERL_LIB = /usr/share/perl5 PERL_ARCHLIB = /usr/lib64/perl5 PERL_ARCHLIBDEP = /usr/lib64/perl5 LIBPERL_A = libperl.a FIRST_MAKEFILE = Makefile MAKEFILE_OLD = Makefile.old MAKE_APERL_FILE = Makefile.aperl PERLMAINCC = $(CC) PERL_INC = /usr/lib64/perl5/CORE PERL_INCDEP = /usr/lib64/perl5/CORE PERL = "/usr/bin/perl" FULLPERL = "/usr/bin/perl" ABSPERL = $(PERL) PERLRUN = $(PERL) FULLPERLRUN = $(FULLPERL) ABSPERLRUN = $(ABSPERL) PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" PERL_CORE = 0 PERM_DIR = 755 PERM_RW = 644 PERM_RWX = 755 MAKEMAKER = /usr/share/perl5/vendor_perl/ExtUtils/MakeMaker.pm MM_VERSION = 7.60 MM_REVISION = 76000 # FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) # DLBASE = Basename part of dynamic library. May be just equal BASEEXT. MAKE = make FULLEXT = NetAddr/IP BASEEXT = IP PARENT_NAME = NetAddr DLBASE = $(BASEEXT) VERSION_FROM = IP.pm OBJECT = LDFROM = $(OBJECT) LINKTYPE = dynamic BOOTDEP = # Handy lists of source code files: XS_FILES = C_FILES = O_FILES = H_FILES = MAN1PODS = MAN3PODS = IP.pm # Where is the Config information that we are using/depend on CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_INCDEP)$(DFSEP)config.h # Where to build things INST_LIBDIR = $(INST_LIB)/NetAddr INST_ARCHLIBDIR = $(INST_ARCHLIB)/NetAddr INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) INST_STATIC = INST_DYNAMIC = INST_BOOT = # Extra linker info EXPORT_LIST = PERL_ARCHIVE = PERL_ARCHIVEDEP = PERL_ARCHIVE_AFTER = TO_INST_PM = IP.pm # --- MakeMaker platform_constants section: MM_Unix_VERSION = 7.60 PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc # --- MakeMaker tool_autosplit section: # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' -- # --- MakeMaker tool_xsubpp section: XSUBPPDIR = /usr/share/perl5/vendor_perl/ExtUtils XSUBPP = "$(XSUBPPDIR)$(DFSEP)xsubpp" XSUBPPRUN = $(PERLRUN) $(XSUBPP) XSPROTOARG = XSUBPPDEPS = /usr/share/perl5/ExtUtils/typemap /usr/share/perl5/vendor_perl/ExtUtils$(DFSEP)xsubpp XSUBPPARGS = -typemap '/usr/share/perl5/ExtUtils/typemap' XSUBPP_EXTRA_ARGS = # --- MakeMaker tools_other section: SHELL = /bin/sh CHMOD = chmod CP = cp MV = mv NOOP = $(TRUE) NOECHO = @ RM_F = rm -f RM_RF = rm -rf TEST_F = test -f TOUCH = touch UMASK_NULL = umask 0 DEV_NULL = > /dev/null 2>&1 MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' -- EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' -- FALSE = false TRUE = true ECHO = echo ECHO_N = echo -n UNINST = 0 VERBINST = 0 MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' -- DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' -- UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' -- WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' -- MACROSTART = MACROEND = USEMAKEFILE = -f FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' -- CP_NONEMPTY = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'cp_nonempty' -- # --- MakeMaker makemakerdflt section: makemakerdflt : all $(NOECHO) $(NOOP) # --- MakeMaker dist section: TAR = tar TARFLAGS = cvf ZIP = zip ZIPFLAGS = -r COMPRESS = gzip --best SUFFIX = .gz SHAR = shar PREOP = $(NOECHO) $(NOOP) POSTOP = $(NOECHO) $(NOOP) TO_UNIX = $(NOECHO) $(NOOP) CI = ci -u RCS_LABEL = rcs -Nv$(VERSION_SYM): -q DIST_CP = best DIST_DEFAULT = tardist DISTNAME = NetAddr-IP DISTVNAME = NetAddr-IP-4.079 # --- MakeMaker macro section: # --- MakeMaker depend section: # --- MakeMaker cflags section: CCFLAGS = -D_REENTRANT -D_GNU_SOURCE -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 OPTIMIZE = -g PERLTYPE = MPOLLUTE = # --- MakeMaker const_loadlibs section: # NetAddr::IP might depend on some other libraries: # See ExtUtils::Liblist for details # # --- MakeMaker const_cccmd section: CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) # --- MakeMaker post_constants section: # --- MakeMaker pasthru section: PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ LINKTYPE="$(LINKTYPE)"\ OPTIMIZE="$(OPTIMIZE)"\ PREFIX="$(PREFIX)"\ PASTHRU_DEFINE='$(DEFINE) $(PASTHRU_DEFINE)'\ PASTHRU_INC='$(INC) $(PASTHRU_INC)' # --- MakeMaker special_targets section: .SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) .PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir pure_all subdirs clean_subdirs makemakerdflt manifypods realclean_subdirs subdirs_dynamic subdirs_pure_nolink subdirs_static subdirs-test_dynamic subdirs-test_static test_dynamic test_static # --- MakeMaker c_o section: .c.i: gcc -E -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i .c.s : $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .c$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .cpp$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp .cxx$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx .cc$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc .C$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C # --- MakeMaker xs_c section: .xs.c: $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c # --- MakeMaker xs_o section: .xs$(OBJ_EXT) : $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c # --- MakeMaker top_targets section: all :: pure_all manifypods $(NOECHO) $(NOOP) pure_all :: config pm_to_blib subdirs linkext $(NOECHO) $(NOOP) subdirs :: $(MYEXTLIB) $(NOECHO) $(NOOP) config :: $(FIRST_MAKEFILE) blibdirs $(NOECHO) $(NOOP) help : perldoc ExtUtils::MakeMaker # --- MakeMaker blibdirs section: blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists $(NOECHO) $(NOOP) # Backwards compat with 6.18 through 6.25 blibdirs.ts : blibdirs $(NOECHO) $(NOOP) $(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_LIBDIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR) $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHLIB) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB) $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_AUTODIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR) $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR) $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_BIN) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN) $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_SCRIPT) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT) $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN1DIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR) $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN3DIR) $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR) $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists # --- MakeMaker linkext section: linkext :: dynamic $(NOECHO) $(NOOP) # --- MakeMaker dlsyms section: # --- MakeMaker dynamic_bs section: BOOTSTRAP = # --- MakeMaker dynamic section: dynamic :: $(FIRST_MAKEFILE) config $(INST_BOOT) $(INST_DYNAMIC) $(NOECHO) $(NOOP) # --- MakeMaker dynamic_lib section: # --- MakeMaker static section: ## $(INST_PM) has been moved to the all: target. ## It remains here for awhile to allow for old usage: "make static" static :: $(FIRST_MAKEFILE) $(INST_STATIC) $(NOECHO) $(NOOP) # --- MakeMaker static_lib section: # --- MakeMaker manifypods section: POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" POD2MAN = $(POD2MAN_EXE) manifypods : pure_all config \ IP.pm $(NOECHO) $(POD2MAN) --section=$(MAN3SECTION) --perm_rw=$(PERM_RW) -u \ IP.pm $(INST_MAN3DIR)/NetAddr::IP.$(MAN3EXT) # --- MakeMaker processPL section: # --- MakeMaker installbin section: # --- MakeMaker subdirs section: # The default clean, realclean and test targets in this Makefile # have automatically been given entries for each subdir. subdirs :: $(NOECHO) cd Lite && $(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) all $(PASTHRU) # --- MakeMaker clean_subdirs section: clean_subdirs : $(ABSPERLRUN) -e 'exit 0 unless chdir '\''Lite'\''; system '\''$(MAKE) clean'\'' if -f '\''$(FIRST_MAKEFILE)'\'';' -- # --- MakeMaker clean section: # Delete temporary files but do not touch installed files. We don't delete # the Makefile here so a later make realclean still has a makefile to use. clean :: clean_subdirs - $(RM_F) \ $(BASEEXT).bso $(BASEEXT).def \ $(BASEEXT).exp $(BASEEXT).x \ $(BOOTSTRAP) $(INST_ARCHAUTODIR)/extralibs.all \ $(INST_ARCHAUTODIR)/extralibs.ld $(MAKE_APERL_FILE) \ *$(LIB_EXT) *$(OBJ_EXT) \ *perl.core MYMETA.json \ MYMETA.yml blibdirs.ts \ core core.*perl.*.? \ core.[0-9] core.[0-9][0-9] \ core.[0-9][0-9][0-9] core.[0-9][0-9][0-9][0-9] \ core.[0-9][0-9][0-9][0-9][0-9] lib$(BASEEXT).def \ mon.out perl \ perl$(EXE_EXT) perl.exe \ perlmain.c pm_to_blib \ pm_to_blib.ts so_locations \ tmon.out - $(RM_RF) \ *~ META.yml \ blib tmp* $(NOECHO) $(RM_F) $(MAKEFILE_OLD) - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) # --- MakeMaker realclean_subdirs section: # so clean is forced to complete before realclean_subdirs runs realclean_subdirs : clean - $(ABSPERLRUN) -e 'chdir '\''Lite'\''; system '\''$(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) realclean'\'' if -f '\''$(MAKEFILE_OLD)'\'';' -- - $(ABSPERLRUN) -e 'chdir '\''Lite'\''; system '\''$(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) realclean'\'' if -f '\''$(FIRST_MAKEFILE)'\'';' -- # --- MakeMaker realclean section: # Delete temporary files (via clean) and also delete dist files realclean purge :: realclean_subdirs - $(RM_F) \ $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(RM_RF) \ $(DISTVNAME) # --- MakeMaker metafile section: metafile : create_distdir $(NOECHO) $(ECHO) Generating META.yml $(NOECHO) $(ECHO) '---' > META_new.yml $(NOECHO) $(ECHO) 'abstract: '\''Manages IPv4 and IPv6 addresses and subnets'\''' >> META_new.yml $(NOECHO) $(ECHO) 'author:' >> META_new.yml $(NOECHO) $(ECHO) ' - '\''Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>'\''' >> META_new.yml $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml $(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010'\''' >> META_new.yml $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml $(NOECHO) $(ECHO) ' version: '\''1.4'\''' >> META_new.yml $(NOECHO) $(ECHO) 'name: NetAddr-IP' >> META_new.yml $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml $(NOECHO) $(ECHO) ' directory:' >> META_new.yml $(NOECHO) $(ECHO) ' - t' >> META_new.yml $(NOECHO) $(ECHO) ' - inc' >> META_new.yml $(NOECHO) $(ECHO) 'requires:' >> META_new.yml $(NOECHO) $(ECHO) ' Test::More: '\''0'\''' >> META_new.yml $(NOECHO) $(ECHO) 'version: '\''4.079'\''' >> META_new.yml $(NOECHO) $(ECHO) 'x_serialization_backend: '\''CPAN::Meta::YAML version 0.018'\''' >> META_new.yml -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml $(NOECHO) $(ECHO) Generating META.json $(NOECHO) $(ECHO) '{' > META_new.json $(NOECHO) $(ECHO) ' "abstract" : "Manages IPv4 and IPv6 addresses and subnets",' >> META_new.json $(NOECHO) $(ECHO) ' "author" : [' >> META_new.json $(NOECHO) $(ECHO) ' "Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>"' >> META_new.json $(NOECHO) $(ECHO) ' ],' >> META_new.json $(NOECHO) $(ECHO) ' "dynamic_config" : 1,' >> META_new.json $(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010",' >> META_new.json $(NOECHO) $(ECHO) ' "license" : [' >> META_new.json $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json $(NOECHO) $(ECHO) ' ],' >> META_new.json $(NOECHO) $(ECHO) ' "meta-spec" : {' >> META_new.json $(NOECHO) $(ECHO) ' "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",' >> META_new.json $(NOECHO) $(ECHO) ' "version" : 2' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "name" : "NetAddr-IP",' >> META_new.json $(NOECHO) $(ECHO) ' "no_index" : {' >> META_new.json $(NOECHO) $(ECHO) ' "directory" : [' >> META_new.json $(NOECHO) $(ECHO) ' "t",' >> META_new.json $(NOECHO) $(ECHO) ' "inc"' >> META_new.json $(NOECHO) $(ECHO) ' ]' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "prereqs" : {' >> META_new.json $(NOECHO) $(ECHO) ' "build" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "configure" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "runtime" : {' >> META_new.json $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json $(NOECHO) $(ECHO) ' "Test::More" : "0"' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' }' >> META_new.json $(NOECHO) $(ECHO) ' },' >> META_new.json $(NOECHO) $(ECHO) ' "release_status" : "stable",' >> META_new.json $(NOECHO) $(ECHO) ' "version" : "4.079",' >> META_new.json $(NOECHO) $(ECHO) ' "x_serialization_backend" : "JSON::PP version 4.06"' >> META_new.json $(NOECHO) $(ECHO) '}' >> META_new.json -$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json # --- MakeMaker signature section: signature : cpansign -s # --- MakeMaker dist_basics section: distclean :: realclean distcheck $(NOECHO) $(NOOP) distcheck : $(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck skipcheck : $(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck manifest : $(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest veryclean : realclean $(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old # --- MakeMaker dist_core section: dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE) $(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \ -e ' if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' -- tardist : $(DISTVNAME).tar$(SUFFIX) $(NOECHO) $(NOOP) uutardist : $(DISTVNAME).tar$(SUFFIX) uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu $(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)_uu' $(DISTVNAME).tar$(SUFFIX) : distdir $(PREOP) $(TO_UNIX) $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) $(RM_RF) $(DISTVNAME) $(COMPRESS) $(DISTVNAME).tar $(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)' $(POSTOP) zipdist : $(DISTVNAME).zip $(NOECHO) $(NOOP) $(DISTVNAME).zip : distdir $(PREOP) $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) $(RM_RF) $(DISTVNAME) $(NOECHO) $(ECHO) 'Created $(DISTVNAME).zip' $(POSTOP) shdist : distdir $(PREOP) $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar $(RM_RF) $(DISTVNAME) $(NOECHO) $(ECHO) 'Created $(DISTVNAME).shar' $(POSTOP) # --- MakeMaker distdir section: create_distdir : $(RM_RF) $(DISTVNAME) $(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \ -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" distdir : create_distdir distmeta $(NOECHO) $(NOOP) # --- MakeMaker dist_test section: disttest : distdir cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL cd $(DISTVNAME) && $(MAKE) $(PASTHRU) cd $(DISTVNAME) && $(MAKE) test $(PASTHRU) # --- MakeMaker dist_ci section: ci : $(ABSPERLRUN) -MExtUtils::Manifest=maniread -e '@all = sort keys %{ maniread() };' \ -e 'print(qq{Executing $(CI) @all\n});' \ -e 'system(qq{$(CI) @all}) == 0 or die $$!;' \ -e 'print(qq{Executing $(RCS_LABEL) ...\n});' \ -e 'system(qq{$(RCS_LABEL) @all}) == 0 or die $$!;' -- # --- MakeMaker distmeta section: distmeta : create_distdir metafile $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \ -e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \ -e ' or die "Could not add META.yml to MANIFEST: $${'\''@'\''}"' -- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \ -e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \ -e ' or die "Could not add META.json to MANIFEST: $${'\''@'\''}"' -- # --- MakeMaker distsignature section: distsignature : distmeta $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) }' \ -e ' or die "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}"' -- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE cd $(DISTVNAME) && cpansign -s # --- MakeMaker install section: install :: pure_install doc_install $(NOECHO) $(NOOP) install_perl :: pure_perl_install doc_perl_install $(NOECHO) $(NOOP) install_site :: pure_site_install doc_site_install $(NOECHO) $(NOOP) install_vendor :: pure_vendor_install doc_vendor_install $(NOECHO) $(NOOP) pure_install :: pure_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) doc_install :: doc_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) pure__install : pure_site_install $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site doc__install : doc_site_install $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site pure_perl_install :: all $(NOECHO) $(MOD_INSTALL) \ read "$(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist" \ write "$(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist" \ "$(INST_LIB)" "$(DESTINSTALLPRIVLIB)" \ "$(INST_ARCHLIB)" "$(DESTINSTALLARCHLIB)" \ "$(INST_BIN)" "$(DESTINSTALLBIN)" \ "$(INST_SCRIPT)" "$(DESTINSTALLSCRIPT)" \ "$(INST_MAN1DIR)" "$(DESTINSTALLMAN1DIR)" \ "$(INST_MAN3DIR)" "$(DESTINSTALLMAN3DIR)" $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ "$(SITEARCHEXP)/auto/$(FULLEXT)" pure_site_install :: all $(NOECHO) $(MOD_INSTALL) \ read "$(SITEARCHEXP)/auto/$(FULLEXT)/.packlist" \ write "$(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist" \ "$(INST_LIB)" "$(DESTINSTALLSITELIB)" \ "$(INST_ARCHLIB)" "$(DESTINSTALLSITEARCH)" \ "$(INST_BIN)" "$(DESTINSTALLSITEBIN)" \ "$(INST_SCRIPT)" "$(DESTINSTALLSITESCRIPT)" \ "$(INST_MAN1DIR)" "$(DESTINSTALLSITEMAN1DIR)" \ "$(INST_MAN3DIR)" "$(DESTINSTALLSITEMAN3DIR)" $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ "$(PERL_ARCHLIB)/auto/$(FULLEXT)" pure_vendor_install :: all $(NOECHO) $(MOD_INSTALL) \ read "$(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist" \ write "$(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist" \ "$(INST_LIB)" "$(DESTINSTALLVENDORLIB)" \ "$(INST_ARCHLIB)" "$(DESTINSTALLVENDORARCH)" \ "$(INST_BIN)" "$(DESTINSTALLVENDORBIN)" \ "$(INST_SCRIPT)" "$(DESTINSTALLVENDORSCRIPT)" \ "$(INST_MAN1DIR)" "$(DESTINSTALLVENDORMAN1DIR)" \ "$(INST_MAN3DIR)" "$(DESTINSTALLVENDORMAN3DIR)" doc_perl_install :: all $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" -$(NOECHO) $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLPRIVLIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> "$(DESTINSTALLARCHLIB)/perllocal.pod" doc_site_install :: all $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" -$(NOECHO) $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLSITELIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> "$(DESTINSTALLARCHLIB)/perllocal.pod" doc_vendor_install :: all $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" -$(NOECHO) $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLVENDORLIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> "$(DESTINSTALLARCHLIB)/perllocal.pod" uninstall :: uninstall_from_$(INSTALLDIRS)dirs $(NOECHO) $(NOOP) uninstall_from_perldirs :: $(NOECHO) $(UNINSTALL) "$(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist" uninstall_from_sitedirs :: $(NOECHO) $(UNINSTALL) "$(SITEARCHEXP)/auto/$(FULLEXT)/.packlist" uninstall_from_vendordirs :: $(NOECHO) $(UNINSTALL) "$(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist" # --- MakeMaker force section: # Phony target to force checking subdirectories. FORCE : $(NOECHO) $(NOOP) # --- MakeMaker perldepend section: # --- MakeMaker makefile section: # We take a very conservative approach here, but it's worth it. # We move Makefile to Makefile.old here to avoid gnu make looping. $(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) $(PERLRUN) Makefile.PL $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" $(FALSE) # --- MakeMaker staticmake section: # --- MakeMaker makeaperl section --- MAP_TARGET = perl FULLPERL = "/usr/bin/perl" MAP_PERLINC = "-Iblib/arch" "-Iblib/lib" "-I/usr/lib64/perl5" "-I/usr/share/perl5" $(MAP_TARGET) :: $(MAKE_APERL_FILE) $(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@ $(MAKE_APERL_FILE) : static $(FIRST_MAKEFILE) pm_to_blib $(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) $(NOECHO) $(PERLRUNINST) \ Makefile.PL DIR="Lite" \ MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= # --- MakeMaker test section: TEST_VERBOSE=0 TEST_TYPE=test_$(LINKTYPE) TEST_FILE = test.pl TEST_FILES = t/*.t TESTDB_SW = -d testdb :: testdb_$(LINKTYPE) $(NOECHO) $(NOOP) test :: $(TEST_TYPE) $(NOECHO) $(NOOP) # Occasionally we may face this degenerate target: test_ : test_dynamic $(NOECHO) $(NOOP) subdirs-test_dynamic :: dynamic pure_all $(NOECHO) cd Lite && $(MAKE) test_dynamic $(PASTHRU) test_dynamic :: subdirs-test_dynamic PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) testdb_dynamic :: dynamic pure_all PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) subdirs-test_static :: static pure_all $(NOECHO) cd Lite && $(MAKE) test_static $(PASTHRU) test_static :: subdirs-test_static $(MAP_TARGET) PERL_DL_NONLAZY=1 "/home/.cpan/build/NetAddr-IP-4.079-0/$(MAP_TARGET)" $(MAP_PERLINC) "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES) testdb_static :: static pure_all $(MAP_TARGET) PERL_DL_NONLAZY=1 "/home/.cpan/build/NetAddr-IP-4.079-0/$(MAP_TARGET)" $(MAP_PERLINC) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) # --- MakeMaker ppd section: # Creates a PPD (Perl Package Description) for a binary distribution. ppd : $(NOECHO) $(ECHO) '<SOFTPKG NAME="NetAddr-IP" VERSION="4.079">' > NetAddr-IP.ppd $(NOECHO) $(ECHO) ' <ABSTRACT>Manages IPv4 and IPv6 addresses and subnets</ABSTRACT>' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) ' <AUTHOR>Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org></AUTHOR>' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) ' <REQUIRE NAME="Test::More" />' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.32" />' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> NetAddr-IP.ppd $(NOECHO) $(ECHO) '</SOFTPKG>' >> NetAddr-IP.ppd # --- MakeMaker pm_to_blib section: pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \ 'IP.pm' '$(INST_LIB)/NetAddr/IP.pm' $(NOECHO) $(TOUCH) pm_to_blib # --- MakeMaker selfdocument section: # here so even if top_targets is overridden, these will still be defined # gmake will silently still work if any are .PHONY-ed but nmake won't static :: $(NOECHO) $(NOOP) dynamic :: $(NOECHO) $(NOOP) config :: $(NOECHO) $(NOOP) # --- MakeMaker postamble section: # End. t/v4-split-list.t 0000644 00000002251 15043770025 0007632 0 ustar 00 use NetAddr::IP; # $Id: v4-split-list.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my %addr = ( '10.0.0.10' => [ '255.255.252.0', 24, [ '10.0.0.0', '10.0.1.0', '10.0.2.0', '10.0.3.0' ]], '10.0.0.1' => [ '255.255.255.254', 32, [ '10.0.0.0', '10.0.0.1', ]], '10.0.0.2' => [ '255.255.255.255', 32, [ '10.0.0.2', ]], '10.0.0.3' => [ '255.255.255.252', 32, [ '10.0.0.0', '10.0.0.1', '10.0.0.2', '10.0.0.3', ]], ); my $count = $| = 1; print "1..", (2 * scalar keys %addr), "\n"; for my $a (keys %addr) { my $ip = new NetAddr::IP $a, $addr{$a}->[0]; my @r = $ip->split($addr{$a}->[1]); my @m = (); if (scalar @r == @{$addr{$a}->[2]}) { print "ok ", $count++, "\n"; } else { print "not ok ", $count++, " (number $a)\n"; } for my $r (@r) { push @m, grep { $_ eq $r->addr } @{$addr{$a}->[2]}; } if (scalar @m == scalar @r) { print "ok ", $count++, "\n"; } else { print "not ok ", $count++, " (match $a)\n"; print "split=", join(', ', (map { $_->addr } @r)), "\n"; print "match=", join(', ', @m), "\n"; } } t/full.t 0000644 00000001321 15043770025 0006136 0 ustar 00 use Test::More; # $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my %cases = ( '127.1' => '0000:0000:0000:0000:0000:0000:127.0.0.1', '123.23.4.210' => '0000:0000:0000:0000:0000:0000:123.23.4.210', 'DEAD:BEEF::1' => 'dead:beef:0000:0000:0000:0000:0000:0001', '1:2:3:4:5:6:7:8' => '0001:0002:0003:0004:0005:0006:0007:0008', '1234:5678:90AB:CDEF:0123:4567:890A:BCDE' => '1234:5678:90ab:cdef:0123:4567:890a:bcde', ); my $tests = keys %cases; plan tests => 1 + $tests; SKIP: { use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests; for my $c (sort keys %cases) { my $ip = new NetAddr::IP $c; my $rv = lc $ip->full; is($rv, $cases{$c}, "full($c) returns $rv"); } } t/v4-compplus.t 0000644 00000001023 15043770025 0007364 0 ustar 00 use NetAddr::IP; # $Id: v4-compplus.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ $| = 1; print "1..50\n"; my $count = 1; for my $bits (8 .. 32) { my $large = new NetAddr::IP '10.0.0.0/8'; my $small = new NetAddr::IP '10.0.0.0', $bits; my @c = NetAddr::IP::compact($large, $small); if (@c == 1) { print "ok $count\n"; } else { print "not ok $count\n"; } ++$count; if ($c[0]->cidr eq '10.0.0.0/8') { print "ok $count\n"; } else { print "not ok $count\n"; } ++$count; } t/v4-re.t 0000644 00000001472 15043770025 0006140 0 ustar 00 use Test::More; # $Id: v4-re.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @ips = qw! 10.11.12.13 10.11.12/24 10.11.0/27 !; plan tests => 299; die "# Cannot continue without NetAddr::IP\n" unless use_ok('NetAddr::IP'); my @addrs = map { new NetAddr::IP $_ } @ips; for my $a (@addrs) { isa_ok($a, 'NetAddr::IP'); my $re = $a->re; my $rx; eval { $rx = qr/$re/ }; diag "Compilation of the resulting regular expression failed: $@" unless ok(!$@, "Compilation of the resulting regular expression"); for (my $ip = $a->network; $ip < $a->broadcast && $a->masklen != 32; $ip ++) { ok($a->addr =~ m/$rx/, "Match of $ip in $a"); } ok($a->broadcast->addr =~ m/$rx/, "Match of broadcast of $a"); ok(NetAddr::IP->new('default') !~ m/$rx/, "0/0 does not match"); } t/masklen.t 0000644 00000000531 15043770025 0006630 0 ustar 00 use NetAddr::IP; # $Id: masklen.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @masks = 0 .. 32; $| = 1; print '1..', scalar @masks, "\n"; my $count = 1; for my $m (@masks) { my $ip = new NetAddr::IP '10.0.0.1', $m; if ($ip->masklen == $m) { print "ok ", $count ++, "\n"; } else { print "not ok ", $count ++, "\n"; } } t/full6.t 0000644 00000001321 15043770025 0006224 0 ustar 00 use Test::More; # $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my %cases = ( '127.1' => '0000:0000:0000:0000:0000:0000:7f00:0001', '123.23.4.210' => '0000:0000:0000:0000:0000:0000:7b17:04d2', 'DEAD:BEEF::1' => 'dead:beef:0000:0000:0000:0000:0000:0001', '1:2:3:4:5:6:7:8' => '0001:0002:0003:0004:0005:0006:0007:0008', '1234:5678:90AB:CDEF:0123:4567:890A:BCDE' => '1234:5678:90ab:cdef:0123:4567:890a:bcde', ); my $tests = keys %cases; plan tests => 1 + $tests; SKIP: { use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests; for my $c (sort keys %cases) { my $ip = new NetAddr::IP $c; my $rv = lc $ip->full6; is($rv, $cases{$c}, "full6($c ) returns $rv"); } } t/new-store.t 0000644 00000001454 15043770025 0007126 0 ustar 00 # t/new-store.t - test new Storable related - methods use Test::More; my $tests = 7; plan tests => $tests; SKIP: { skip "Failed to use Storable, module not found", $tests unless eval {require Storable && use_ok("Storable", 'freeze', 'thaw')}; skip "Failed to use NetAddr::IP", $tests unless use_ok("NetAddr::IP"); my $oip = new NetAddr::IP "localhost"; my $nip; isa_ok($oip, 'NetAddr::IP', 'Correct return type'); my $serialized; eval { $serialized = freeze($oip) }; unless (ok(!$@, "Freezing")) { diag $@; } # diag "Result is '$serialized'"; eval { $nip = thaw($serialized) }; unless (ok(!$@, "Thawing")) { diag $@; } isa_ok($nip, 'NetAddr::IP', 'Recovered correct type'); is("$nip", "$oip", "New object eq original object"); } t/v6-split-bulk.t 0000644 00000001001 15043770025 0007606 0 ustar 00 use Test::More; use NetAddr::IP; # $Id: v6-split-bulk.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @addr = ( [ 'dead:beef::1', 126, 127, 2 ], [ 'dead:beef::1', 127, 127, 1 ], [ 'dead:beef::1', 127, 128, 2 ], [ 'dead:beef::1', 128, 128, 1 ], [ 'dead:beef::1', 124, 128, 16 ], [ 'dead:beef::1', 124, 127, 8 ], ); plan tests => (scalar @addr); for my $a (@addr) { my $ip = new NetAddr::IP $a->[0], $a->[1]; my $r = $ip->splitref($a->[2]); is(@$r, $a->[3]); } t/v4-compact.t 0000644 00000004266 15043770025 0007164 0 ustar 00 use NetAddr::IP qw(Compact); # $Id: v4-compact.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @r = ( [ '10.0.0.0', '255.255.255.0'], [ '11.0.0.0', '255.255.255.0'], [ '12.0.0.0', '255.255.255.0'], [ '20.0.0.0', '255.255.0.0'], [ '30.0.0.0', '255.255.0.0'], [ '40.0.0.0', '255.255.0.0'], ); $| = 1; if (defined($ENV{LIGHTERIPTESTS}) and $ENV{LIGHTERIPTESTS} =~ /yes/i) { print "1..0 # Skipped: LIGHTERIPTESTS = yes\n"; exit 0; } print "1..9\n"; my @ips1; for my $ip ('10.0.0.0', '11.0.0.0', '12.0.0.0') { push @ips1, NetAddr::IP->new($ip, 24)->split(32); } for my $ip ('20.0.0.0', '30.0.0.0', '40.0.0.0') { push @ips1, NetAddr::IP->new($ip, 16)->split(28); } my @ips2; for my $num (0 .. 255) { push @ips2, NetAddr::IP->new("192.168.$num.0", 24); } my $ips2_compact = '192.168.0.0/16'; # Compact(@) # compact_ips1_check(1, Compact(@ips1)); compact_ips2_check(2, Compact(@ips2)); # ->compact(@) # compact_ips1_check(3, $ips1[0]->compact(@ips1[1..$#ips1])); compact_ips2_check(4, $ips2[0]->compact(@ips2[1..$#ips2])); # Compact([]) # compact_ips1_check(5, @{Compact(\@ips1)}); compact_ips2_check(6, @{Compact(\@ips2)}); # ->compactref([]) # compact_ips1_check(7, @{$ips1[0]->compactref([@ips1[1..$#ips1]])}); compact_ips2_check(8, @{$ips2[0]->compactref([@ips2[1..$#ips2]])}); # duplicate IP # @ips1 = (); for my $ip (qw(1.1.1.1 1.1.1.1 1.1.1.1 1.1.1.1)) { push(@ips1, NetAddr::IP->new($ip)); } @c = NetAddr::IP::compact(@ips1); if (@c == 1 and $c[0]->cidr() eq '1.1.1.1/32') { print "ok 9\n"; } else { print "not ok 9\n"; } ###################################################################### sub compact_ips1_check { my $num = shift; my @ips = shift; my @mips; for my $ip (@ips) { push @mips, grep { $ip->addr eq $_->[0] and $ip->mask eq $_->[1] } @r; } if (@mips == @ips) { print "ok $num\n"; } else { print "not ok $num\n"; } } ###################################################################### sub compact_ips2_check { my $num = shift; my @ips = shift; if (@ips == 1 and $ips[0] eq $ips2_compact) { print "ok $num\n"; } else { print "not ok $num\n"; } } t/constants.t 0000644 00000000750 15043770025 0007215 0 ustar 00 #use diagnostics; use Test::More tests => 15; use NetAddr::IP qw(Zeros Zero Ones V4mask V4net); my %const = ( '0::' => Zeros, '::' => Zero, 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF' => Ones, 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::' => V4mask, '::FFFF:FFFF' => V4net, ); my($ip,$rv); foreach (sort keys %const) { ok(($ip = new NetAddr::IP($_)),"netaddr $_"); ok($ip->{addr} eq $const{$_},"match $_"); ok(($rv = length($const{$_})) == 16, "length $_ is $rv"); } t/short.t 0000644 00000003310 15043770025 0006333 0 ustar 00 use Test::More; # $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my %cases = qw( 127.1 127.0.0.1 127.0.1.1 127.0.1.1 127.1.0.1 127.1.0.1 DEAD:BEEF::1 dead:beef::1 ::1 0:0::1 2001:620:600::1 2001:620:600::1 2001:620:600:0:1::1 2001:620:600:0:1::1 2001:620:601:0:1::1 2001:620:601::1:0:0:1 0:0:33:44::CC:DD 0:0:33:44:0:0:CC:DD 0:0:33:44::DD 0:0:33:44:0:0:0:DD 0:0:33:44:AA:: 0:0:33:44:AA:0:0:0 0:0:33::BB:0:0 0:0:33:0:0:BB:0:0 0:22:33:44:0:BB:CC:0 0:22:33:44:0:BB:CC:0 0:22:33:44:0:BB:CC:DD 0:22:33:44:0:BB:CC:DD 0:22:33:44:AA:BB:CC:0 0:22:33:44:AA:BB:CC:0 0:22:33:44:AA:BB:CC:DD 0:22:33:44:AA:BB:CC:DD 110:0:0:44:AA:: 110:0:0:44:AA:0:0:0 11:0:33:44:0:BB:CC:DD 11:0:33:44:0:BB:CC:DD 11:0:33:44:AA:BB:CC:DD 11:0:33:44:AA:BB:CC:DD 11:22:0:44:AA::DD 11:22:0:44:AA:0:0:DD 11:22:33:0:AA:BB:CC:0 11:22:33:0:AA:BB:CC:0 11:22:33:44:AA:: 11:22:33:44:AA:0:0:0 11:22::CC:DD 11:22:0:0:0:0:CC:DD 11::44:AA:0:0:DD 11:0:0:44:AA:0:0:DD 11::44:AA:BB:0:0 11:0:0:44:AA:BB:0:0 11::AA:0:0:DD 11:0:0:0:AA:0:0:DD 11::AA:BB:0:0 11:0:0:0:AA:BB:0:0 1:: 1:0:0:0:0:0:0:0 :: 0:0:0:0:0:0:0:0 ::33:44:AA:BB:0:0 0:0:33:44:AA:BB:0:0 ::44:0:0:CC:DD 0:0:0:44:0:0:CC:DD ::44:AA:BB:0:0 0:0:0:44:AA:BB:0:0 ::44:AA:BB:CC:DD 0:0:0:44:AA:BB:CC:DD ::A 0:0:0:0:0:0:0:A ); my $tests = 2 * keys %cases; plan tests => 1 + $tests; SKIP: { use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests; for my $c (sort keys %cases) { my $ip = new NetAddr::IP $cases{$c}; isa_ok($ip, 'NetAddr::IP', "$cases{$c}"); my $short = uc $ip->short; unless (is($short, $c, "short($cases{$c}) returns $short")) { diag "ip=$ip"; } } } t/wildcard.t 0000644 00000001042 15043770025 0006765 0 ustar 00 use NetAddr::IP; my @addr = ( [ 'localhost', '0.0.0.0' ], [ '10.0.0.0/24', '0.0.0.255' ], [ '192.168.0.0/16', '0.0.255.255' ], [ '10.128.0.1/17', '0.0.127.255' ] ); $| = 1; print "1..", 2 * scalar @addr, "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP $a->[0]; if ($ip->wildcard eq $a->[1]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++$count; if (($ip->wildcard)[1] eq $a->[1]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++$count; } t/rfc3021.t 0000644 00000001163 15043770025 0006260 0 ustar 00 use NetAddr::IP; $| = 1; print '1..4', "\n"; my $test = 1; my $ip = new NetAddr::IP('192.168.1.8/31'); my @hosts = $ip->hostenum; print scalar(@hosts)," found where none expected\nnot " if @hosts; print "ok ",$test++,"\n"; NetAddr::IP::import qw(:rfc3021); @hosts = $ip->hostenum; print scalar(@hosts)," found where 2 expected\nnot " unless @hosts == 2; print "ok ",$test++,"\n"; print "got: $hosts[0], exp: 192.168.1.8/32\nnot " unless "$hosts[0]" eq '192.168.1.8/32'; print "ok ",$test++,"\n"; print "got: $hosts[1], exp: 192.168.1.9/32\nnot " unless "$hosts[1]" eq '192.168.1.9/32'; print "ok ",$test++,"\n"; t/v6-re.t 0000644 00000002657 15043770025 0006150 0 ustar 00 #use diagnostics; use Test::More; use NetAddr::IP; use NetAddr::IP::Util qw(addconst); my @ips = qw! ::0:0f00 ::FF:1e10 ::ffFF:2d20 ::eFF:3c30 ::eeFF:4b40 ::FF:5a50 ::FF:6960 ::FF:7870 ::FF:8780 ::FF:9690 ::FF:a5a0 ::FF:b4b0 ::FF:c3c0 ::FF:d2d0 ::FF:e1e0 ::FF:f0f0 !; my @mask = qw! 127 126 125 124 123 122 121 120 !; if (defined($ENV{LIGHTERIPTESTS}) and $ENV{LIGHTERIPTESTS} =~ /yes/i) { pop @mask; pop @mask; } my $tests = 0; my @addrs; foreach(@mask) { foreach my $ip (@ips) { push @addrs, new NetAddr::IP($ip,$_); } $tests += ((2**(128 - $_)) * @ips) } $tests += (5 * @ips * @mask); plan tests => $tests; for my $a (@addrs) { isa_ok($a, 'NetAddr::IP'); my $re = $a->re6; my $rx; eval { $rx = qr/$re/ }; diag "Compilation of the resulting regular expression failed: $@" unless ok(!$@, "Compilation of the resulting regular expression"); for (my $ip = $a->network; $ip < $a->broadcast && $a->masklen != 128; $ip ++) { ok($a->addr =~ m/$rx/, "Match of $ip in $a"); } ok($a->broadcast->addr =~ m/$rx/, "Match of broadcast of $a"); my $under = $a->network->copy; $under->{addr} = (addconst($under->{addr},-1))[1]; my $over = $a->broadcast->copy; $over->{addr} = (addconst($over->{addr},1))[1]; ok($under !~ m/$rx/, "$under does not match"); ok($over !~ m/$rx/, "$over does not match"); ok(NetAddr::IP->new('::') !~ m/$rx/, ":: does not match"); } t/canon.t 0000644 00000000740 15043770025 0006276 0 ustar 00 use Test::More; my %cases = ( '127.1' => '127.0.0.1', 'DEAD:BEEF::1' => 'dead:beef::1', '1234:5678:90AB:CDEF:0123:4567:890A:BCDE' => '1234:5678:90ab:cdef:123:4567:890a:bcde', ); my $tests = keys %cases; plan tests => 1 + $tests; SKIP: { use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests; for my $c (sort keys %cases) { my $ip = new NetAddr::IP $c; my $rv = $ip->canon; is($rv, $cases{$c}, "canon($c ) returns $rv"); } } t/v4-coalesce.t 0000644 00000002735 15043770025 0007313 0 ustar 00 use Test::More; if (defined($ENV{LIGHTERIPTESTS}) and $ENV{LIGHTERIPTESTS} =~ /yes/i) { print "1..0 # Skipped: LIGHTERIPTESTS = yes\n"; exit 0; } plan tests => 21; die "# Cannot continue without NetAddr::IP\n" unless use_ok('NetAddr::IP', 'Coalesce'); # Test a rather large set... my @ips = (); for my $o (0 .. 255) { push @ips, new NetAddr::IP "10.0.$o.1"; push @ips, new NetAddr::IP "10.0.$o.10"; push @ips, new NetAddr::IP "10.0.$o.100"; } sub tst { # This should return the empty list... my $r = Coalesce(24, 4, @ips); diag "Coalesce returned $r" unless isa_ok($r, 'ARRAY', 'Return type from Coalesce'); is(@$r, 0, "Empty array returned as expected"); # This should produce a list with all the /24s $r = Coalesce(24, 2, @ips); diag "Coalesce returned $r" unless isa_ok($r, 'ARRAY', 'Return type from Coalesce'); is(@$r, 256, "Whole result set as expected"); my @c = NetAddr::IP::Compact(@$r); is(@c, 1, "Results are compactable"); ok($c[0] eq '10.0.0.0/16', "Correct results"); # This should produce the same result as before, with an added /23 $r = Coalesce(24, 2, @ips, NetAddr::IP->new('10.0.0.125/23')); diag "Coalesce returned $r" unless isa_ok($r, 'ARRAY', 'Return type from Coalesce'); ok((grep { $_ eq '10.0.0.0/23' } @$r), "/23 went through"); @c = NetAddr::IP::Compact(@$r); is(@c, 1, "Results are compactable"); ok($c[0] eq '10.0.0.0/16', "Correct results"); } tst(); import NetAddr::IP qw(:old_nth); tst(); t/imhoff.t 0000644 00000001551 15043770025 0006451 0 ustar 00 #!/usr/bin/perl # This code was provided by Brent Imhoff and adapted to become a real test. # What this excercises, is that ::compact() should provide the same result # without caring about the order of its arguments. -lem use strict; #use warnings; use Test::More tests => 3; use NetAddr::IP qw(Compact); my @temp = <DATA>; my @sortreg = sort @temp; my @sortdec = sort { $b cmp $a} @temp; my @sortnum = sort { $a cmp $b} @temp; my $sortnum = Compact(map { NetAddr::IP->new($_) } @sortnum); my $sorttag = Compact(map { NetAddr::IP->new($_) } @sortreg); my $sortdec = Compact(map { NetAddr::IP->new($_) } @sortdec); is($sortnum, $sorttag); is($sortnum, $sortdec); is($sortdec, $sorttag); # I know this one is redundant __END__ 205.170.190.0/24 216.175.9.0/24 205.170.188.0/24 206.175.9.0/24 205.170.0.0/20 205.170.0.0/19 205.170.0.0/18 205.170.0.0/17 205.170.0.0/16 t/v4-sprefix.t 0000644 00000001413 15043770025 0007205 0 ustar 00 use NetAddr::IP; # $Id: v4-sprefix.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @addr = ( [ '10.', '10.0.0.0/8' ], [ '11.11.', '11.11.0.0/16' ], [ '12.12.12.', '12.12.12.0/24' ], [ '13.13.13.13', '13.13.13.13/32' ], ); $| = 1; print "1..", (3 * scalar @addr), "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP $a->[0]; if ($ip->cidr eq $a->[1]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; my $p = new NetAddr::IP $ip->cidr; if ($p->prefix eq $a->[0]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($p->nprefix eq $a->[0]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } t/loops.t 0000644 00000001207 15043770025 0006333 0 ustar 00 # $Id: loops.t,v 1.2 2006/08/16 19:17:01 lem Exp $ use Test::More; my @deltas = (0, 1, 2, 3, 255); plan tests => 16 + @deltas; use_ok('NetAddr::IP'); my $count = 1; for (my $ip = new NetAddr::IP '10.0.0.1/28'; $ip < $ip->broadcast; $ip ++) { my $o = $ip->addr; $o =~ s/^.+\.(\d+)$/$1/; is($o, $count, "Correct octet for " . $ip); ++ $count; } my $ip = new NetAddr::IP '10.0.0.255/24'; $ip ++; is($ip, '10.0.0.0/24', "Correct mask wraparound"); $ip = new NetAddr::IP '10.0.0.0/24'; for my $v (@deltas) { my $target = '10.0.0.' . $v . '/24'; is($ip + $v, '10.0.0.' . $v . '/24', "$ip + $v vs $target"); } t/v4-hostenum.t 0000644 00000002020 15043770025 0007362 0 ustar 00 use NetAddr::IP; # $Id: v4-hostenum.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my %addr = ( '10.0.0.0' => [ '255.255.255.252', [ '10.0.0.1', '10.0.0.2', ]], '11.0.0.0' => [ '255.255.255.255', [ '11.0.0.0', ]], '12.0.0.0' => [ '255.255.255.0', []], ); for my $o (1..254) { push @{$addr{'12.0.0.0'}->[1]}, '12.0.0.' . $o; } my $count = $| = 1; print "1..", (2 * scalar keys %addr), "\n"; for my $a (keys %addr) { my $ip = new NetAddr::IP $a, $addr{$a}->[0]; my @r = $ip->hostenum; my @m = (); if (scalar @r == @{$addr{$a}->[1]}) { print "ok ", $count++, "\n"; } else { print "not ok ", $count++, " (number $a)\n"; } for my $r (@r) { push @m, grep { $_ eq $r->addr } @{$addr{$a}->[1]}; } if (scalar @m == scalar @r) { print "ok ", $count++, "\n"; } else { print "not ok ", $count++, " (match $a)\n"; print "henum=", join(', ', (map { $_->addr } @r)), "\n"; print "match=", join(', ', @m), "\n"; } } t/splitref.t 0000644 00000001355 15043770025 0007033 0 ustar 00 use Test::More qw(no_plan); #tests => 28; use_ok('NetAddr::IP'); my $ip = new NetAddr::IP('ffff:a123:b345:c789::/48'); my $rv; ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48"); my $nets = $ip->splitref(48); ok($nets,'there is a net'); ok(@$nets == 1,'one item net'); ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48"); $nets = $ip->splitref(49,50); ok($nets,'there are nets'); ok(($rv = @$nets) == 3,"$rv is 3 item net"); my @exp = qw( FFFF:A123:B345:0:0:0:0:0/49 FFFF:A123:B345:8000:0:0:0:0/50 FFFF:A123:B345:C000:0:0:0:0/50 ); foreach(0..$#{$nets}) { ok(($rv = sprintf("%s",$nets->[$_])) eq $exp[$_], "$rv eq $exp[$_]"); } t/lower.t 0000644 00000000334 15043770025 0006327 0 ustar 00 #use diagnostics; use Test::More tests => 2; use_ok ('NetAddr::IP', qw(:lower)); my $exp = 'ff:0:0:0:0:0:0:eeaa/128'; my $ip = new NetAddr::IP('FF::eeAA'); my $got = sprintf $ip; ok ($got eq $exp,"lower case $got"); t/v4-splitplan.t 0000644 00000004356 15043770025 0007544 0 ustar 00 use Test::More tests => 28; use_ok('NetAddr::IP'); my $ip = new NetAddr::IP('192.168.21.13/15'); my $rv; ok(($rv = sprintf("%s",$ip)) eq '192.168.21.13/15',"$rv eq 192.168.21.13/15"); my($plan,$masks) = $ip->_splitplan(15); ok($plan,'there is a plan'); ok(!$masks,'plan returns the orignal net'); ok(@$plan == 1,'one item plan'); ok(($rv = $plan->[0]) == 15,"plan $rv is original cidr 15"); my $cmask = new NetAddr::IP('255.126.0.0'); ok(($rv = sprintf("%s",$cmask)) eq '255.126.0.0/32',"$rv eq 255.126.0.0/32"); ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of bits in mask'); $cmask = new NetAddr::IP('255.254.0.0'); ok(($rv = sprintf("%s",$cmask)) eq '255.254.0.0/32',"$rv eq 255.254.0.0/32"); ($plan,$masks) = $ip->_splitplan($cmask); ok($plan,'there is a plan'); ok(!$masks,'plan returns the orignal net'); ok(@$plan == 1,'one item plan'); ok(($rv = $plan->[0]) == 15,"plan $rv is original cidr 15"); $cmask = '255.254.0.0'; # ipV4 text cmask ($plan,$masks) = $ip->_splitplan($cmask); ok($plan,'there is a plan'); ok(!$masks,'plan returns the orignal net'); ok(@$plan == 1,'one item plan'); ok(($rv = $plan->[0]) == 15,"plan $rv is original cidr 15"); $cmask = '255.126.0.0'; # ipV4 text cmask ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of bits in mask'); $cmask = 'garbage'; ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of garbage'); $cmask = 14; # cidr is bigger than requested ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of 15 overange'); # cidr makes more nets than 2**16 ($plan,$masks) = $ip->_splitplan(32); ok(!$plan,'failing to many nets 32 - 15 = 2**17'); ($plan,$masks) = $ip->_splitplan(16,16,16); ok(!$plan,'failing because of 3 * 16 overange'); # test for plan that just fits ($plan,$masks) = $ip->_splitplan(31); ok($plan,'there is a plan 31'); ok($masks,'plan has masks'); ok(($rv = @{$plan}) == 2 ** 16,"$rv should = 65536"); # set netlimit internal to 4 nets $NetAddr::IP::_netlimit = 4; ($plan,$masks) = $ip->_splitplan(17); # should fit ok($plan,"plan of 4 17's"); ($plan,$masks) = $ip->_splitplan(17,17,17,17,18); ok(!plan,"fail plan of 4 17's + 18"); ($plan,$masks) = $ip->_splitplan(18); ok(!plan,"fail plan of 8 18's"); t/over-arr.t 0000644 00000000764 15043770025 0006743 0 ustar 00 use NetAddr::IP; use Test::More; my @addr = ( [ '10.0.0.0/24', '10.0.0.1/32' ], [ '192.168.0.0/24', '192.168.0.1/32' ], [ '127.0.0.1/32', '127.0.0.1/32' ] ); $| = 1; $tests = @addr; plan tests => $tests; SKIP: { skip "overload dereferencing not supported in version $] of Perl", $tests, unless ($overload::ops{dereferencing} && $overload::ops{dereferencing} =~ /\@\{\}/); for my $a (@addr) { my $ip = new NetAddr::IP $a->[0]; ok(@$ip[0]->cidr eq $a->[1],$a->[0]); } }; t/over-qq.t 0000644 00000001440 15043770025 0006570 0 ustar 00 use NetAddr::IP; # $Id: over-qq.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @addr = ('10.0.0.0/8', '192.168.0.0/16', '127.0.0.1/32'); $| = 1; print "1..", 5 * scalar @addr, "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP $a; if ($a eq "$ip") { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($a eq $ip) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($ip eq $a) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($ip eq $ip) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; if ($ip == $ip) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } t/relops.t 0000644 00000003036 15043770025 0006505 0 ustar 00 use NetAddr::IP; BEGIN { @gt = ( [ '255.255.255.255/32', '0.0.0.0/0' ], [ 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff', '::/0' ], [ '10.0.1.0/16', '10.0.0.1/24' ], [ '10.0.0.1/24', '10.0.0.0/24' ], [ 'deaf:beef::1/64', 'dead:beef::/64' ], ); @ngt = ( [ '0.0.0.0/0', '255.255.255.255/32' ], [ '::/0', 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff' ], [ '10.0.0.0/24', '10.0.0.0/24' ], [ 'dead:beef::/60', 'dead:beef::/60' ], ); @cmp = ( [ '0.0.0.0/0', '255.255.255.255/32', -1 ], [ '::/0', 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff', -1 ], [ '10.0.0.0/16', '10.0.0.0/8', 1 ], [ 'dead:beef::/60', 'dead:beef::/40', 1 ], [ '10.0.0.0/24', '10.0.0.0/8', 1 ], [ '255.255.255.255/32', '0.0.0.0/0', 1 ], [ 'ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff', '::/0', 1 ], [ '142.52.5.87', '142.52.2.88', 1 ], [ '10.0.0.0/24', '10.0.0.0/24', 0 ], [ 'default', 'default', 0 ], [ 'broadcast', 'broadcast', 0], [ 'loopback', 'loopback', 0], ); }; use Test::More tests => @gt + @ngt + (2 * @cmp); for my $a (@gt) { $a_ip = new NetAddr::IP::Lite $a->[0]; $b_ip = new NetAddr::IP::Lite $a->[1]; ok($a_ip > $b_ip, "$a_ip > $b_ip"); } for my $a (@ngt) { $a_ip = new NetAddr::IP::Lite $a->[0]; $b_ip = new NetAddr::IP::Lite $a->[1]; ok(!($a_ip > $b_ip), "$a_ip !> $b_ip"); } for $a (@cmp) { $a_ip = new NetAddr::IP::Lite $a->[0]; $b_ip = new NetAddr::IP::Lite $a->[1]; is($a_ip <=> $b_ip, $a->[2], "$a_ip <=> $b_ip is $a->[2]"); is($a_ip cmp $b_ip, $a->[2], "$a_ip cmp $b_ip is $a->[2]"); } t/v6-splitplan.t 0000644 00000004545 15043770025 0007546 0 ustar 00 use Test::More tests => 28; use_ok('NetAddr::IP'); my $ip = new NetAddr::IP('ffff:a123:b345:c789::/48'); my $rv; ok(($rv = sprintf("%s",$ip)) eq 'FFFF:A123:B345:C789:0:0:0:0/48',"$rv eq FFFF:A123:B345:C789:0:0:0:0/48"); my($plan,$masks) = $ip->_splitplan(48); ok($plan,'there is a plan'); ok(!$masks,'plan returns the orignal net'); ok(@$plan == 1,'one item plan'); ok(($rv = $plan->[0]) == 48,"plan $rv is original cidr 48"); my $cmask = new NetAddr::IP('ffff:7fff:ffff:ffff::'); ok(($rv = sprintf("%s",$cmask)) eq 'FFFF:7FFF:FFFF:FFFF:0:0:0:0/128',"$rv eq FFFF:7FFF:FFFF:FFFF:0:0:0:0/128"); ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of bits in mask'); $cmask = new NetAddr::IP('FFFF:fFFF:FFFF::'); ok(($rv = sprintf("%s",$cmask)) eq 'FFFF:FFFF:FFFF:0:0:0:0:0/128',"$rv eq FFFF:fFFF:FFFF:0:0:0:0:0/128"); ($plan,$masks) = $ip->_splitplan($cmask); ok($plan,'there is a plan'); ok(!$masks,'plan returns the orignal net'); ok(@$plan == 1,'one item plan'); ok(($rv = $plan->[0]) == 48,"plan $rv is original cidr 48"); $cmask = 'FFFF:FFFF:FFFF::'; # ipV6 text cmask ($plan,$masks) = $ip->_splitplan($cmask); ok($plan,'there is a plan'); ok(!$masks,'plan returns the orignal net'); ok(@$plan == 1,'one item plan'); ok(($rv = $plan->[0]) == 48,"plan $rv is original cidr 48"); $cmask = 'FFFF:FFF:FFFF::'; # ipV6 text cmask ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of bits in mask'); $cmask = 'garbage'; ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of garbage'); $cmask = 47; # cidr is bigger than requested ($plan,$masks) = $ip->_splitplan($cmask); ok(!$plan,'failing because of 47 overange'); # cidr makes more nets than 2**16 ($plan,$masks) = $ip->_splitplan(65); ok(!$plan,'failing to many nets 65-48 = 2**17'); ($plan,$masks) = $ip->_splitplan(49,49,49); ok(!$plan,'failing because of 3 * 49 overange'); # test for plan that just fits ($plan,$masks) = $ip->_splitplan(64); ok($plan,'there is a plan 64'); ok($masks,'plan has masks'); ok(($rv = @{$plan}) == 2 ** 16,"$rv should = 65536"); # set netlimit internal to 4 nets $NetAddr::IP::_netlimit = 4; ($plan,$masks) = $ip->_splitplan(50); # should fit ok($plan,"plan of 4 50's"); ($plan,$masks) = $ip->_splitplan(50,50,50,50,51); ok(!plan,"fail plan of 4 50's + 51"); ($plan,$masks) = $ip->_splitplan(51); ok(!plan,"fail plan of 8 51's"); t/nofqdn.t 0000644 00000000665 15043770025 0006473 0 ustar 00 use NetAddr::IP; $| = 1; print "1..1\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $ip = new NetAddr::IP('arin.net'); if (defined $ip) { print "ok $test # Skipped, resolved $ip\n"; $test++; } else { print "ok $test # Skipped, resolver not working\n"; $test++; } #import NetAddr::IP qw(:nofqdn); # #$ip = new NetAddr::IP('arin.net'); #print "unexpected response with :nofqdn\nnot " # if defined $ip; #&ok; t/old-store.t 0000644 00000001511 15043770025 0007105 0 ustar 00 # t/old-store.t - test backwards compatible Storable interaction use Test::More; my $tests = 7; plan tests => $tests; SKIP: { skip "Failed to use Storable, module not found", $tests unless eval { require Storable && use_ok("Storable", 'freeze', 'thaw')}; skip "Failed to use NetAddr::IP", $tests unless use_ok("NetAddr::IP", ':old_storable'); my $oip = new NetAddr::IP "localhost"; my $nip; isa_ok($oip, 'NetAddr::IP', 'Correct return type'); my $serialized; eval { $serialized = freeze($oip) }; unless (ok(!$@, "Freezing")) { diag $@; } # diag "Result is '$serialized'"; eval { $nip = thaw($serialized) }; unless (ok(!$@, "Thawing")) { diag $@; } isa_ok($nip, 'NetAddr::IP', 'Recovered correct type'); is("$nip", "$oip", "New object eq original object"); } t/v4-xprefix.t 0000644 00000001405 15043770025 0007213 0 ustar 00 use NetAddr::IP; # $Id: v4-xprefix.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @addr = ( [ '0.0.0.0/1', '0-127' ], [ '128.0.0.0/1', '128-255' ], [ '0.0.0.0/2', '0-63' ], [ '128.0.0.0/2', '128-191' ], [ '10.128.0.0/17', '10.128.0-127.' ] ); $| = 1; print "1..", (2 * scalar @addr), "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP $a->[0]; # print "$a->[0] is ", $ip->prefix, "\n"; if ($ip->prefix eq $a->[1]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; my $p = new NetAddr::IP $ip->prefix; # print $ip->prefix, " is $p\n"; if ($p->cidr eq $a->[0]) { print "ok $count\n"; } else { print "not ok $count\n"; } ++ $count; } t/v4-split-bulk.t 0000644 00000001043 15043770025 0007612 0 ustar 00 use Test::More; use NetAddr::IP; # $Id: v4-split-bulk.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my @addr = ( [ '10.0.0.0', 20, 32, 4096 ], [ '10.0.0.0', 22, 32, 1024 ], [ '10.0.0.0', 22, 24, 4 ], [ '10.0.0.0', 22, 23, 2 ], [ '10.0.0.0', 24, 32, 256 ], [ '10.0.0.0', 19, 32, 8192 ], [ '10.0.0.0', 24, 24, 1 ], [ '10.0.0.0', 31, 32, 2 ] ); plan tests => (scalar @addr); for my $a (@addr) { my $ip = new NetAddr::IP $a->[0], $a->[1]; my $r = $ip->splitref($a->[2]); is(@$r, $a->[3]); } t/full6-uri.t 0000644 00000001327 15043770025 0007027 0 ustar 00 use Test::More; # $Id: short.t,v 1.1.1.1 2006/08/14 15:36:06 lem Exp $ my %cases = ( '127.1' => '0000:0000:0000:0000:0000:0000:7f00:0001', '123.23.4.210' => '0000:0000:0000:0000:0000:0000:7b17:04d2', '[DEAD:BEEF::1]' => 'dead:beef:0000:0000:0000:0000:0000:0001', '[1:2:3:4:5:6:7:8]' => '0001:0002:0003:0004:0005:0006:0007:0008', '[1234:5678:90AB:CDEF:0123:4567:890A:BCDE]' => '1234:5678:90ab:cdef:0123:4567:890a:bcde', ); my $tests = keys %cases; plan tests => 1 + $tests; SKIP: { use_ok('NetAddr::IP') or skip "Failed to load NetAddr::IP", $tests; for my $c (sort keys %cases) { my $ip = new NetAddr::IP $c; my $rv = lc $ip->full6; is($rv, $cases{$c}, "full6($c ) returns $rv"); } } TODO 0000644 00000000172 15043770025 0005237 0 ustar 00 o More tests for IPv6 functionality. This should be thoroughly tested. o Add support for other notations (when found). META.yml 0000644 00000000753 15043770025 0006025 0 ustar 00 --- #YAML:1.0 name: NetAddr-IP version: 4.079 abstract: Manages IPv4 and IPv6 addresses and subnets license: ~ author: - Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org> generated_by: ExtUtils::MakeMaker version 6.42 distribution_type: module requires: Test::More: 0 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.3.html version: 1.3 IP.pm 0000644 00000125103 15043770025 0005417 0 ustar 00 #!/usr/bin/perl -w package NetAddr::IP; use strict; #use diagnostics; use Carp; use NetAddr::IP::Lite 1.57 qw(Zero Zeros Ones V4mask V4net); use NetAddr::IP::Util 1.53 qw( sub128 inet_aton inet_any2n ipv6_aton isIPv4 ipv4to6 mask4to6 shiftleft addconst hasbits notcontiguous ); use AutoLoader qw(AUTOLOAD); use vars qw( @EXPORT_OK @EXPORT_FAIL @ISA $VERSION $_netlimit $rfc3021 ); require Exporter; @EXPORT_OK = qw(Compact Coalesce Zero Zeros Ones V4mask V4net netlimit); @EXPORT_FAIL = qw($_netlimit); @ISA = qw(Exporter NetAddr::IP::Lite); $VERSION = do { sprintf " %d.%03d", (q$Revision: 4.79 $ =~ /\d+/g) }; $rfc3021 = 0; =pod =encoding UTF-8 =head1 NAME NetAddr::IP - Manages IPv4 and IPv6 addresses and subnets =head1 SYNOPSIS use NetAddr::IP qw( Compact Coalesce Zeros Ones V4mask V4net netlimit :aton DEPRECATED :lower :upper :old_storable :old_nth :rfc3021 :nofqdn ); NOTE: NetAddr::IP::Util has a full complement of network address utilities to convert back and forth between binary and text. inet_aton, inet_ntoa, ipv6_aton, ipv6_ntoa ipv6_n2x, ipv6_n2d inet_any2d, inet_n2dx, inet_n2ad, inetanyto6, ipv6to4 See L<NetAddr::IP::Util> my $ip = new NetAddr::IP '127.0.0.1'; or if you prefer my $ip = NetAddr::IP->new('127.0.0.1); or from a packed IPv4 address my $ip = new_from_aton NetAddr::IP (inet_aton('127.0.0.1')); or from an octal filtered IPv4 address my $ip = new_no NetAddr::IP '127.012.0.0'; print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ; if ($ip->within(new NetAddr::IP "127.0.0.0", "255.0.0.0")) { print "Is a loopback address\n"; } # This prints 127.0.0.1/32 print "You can also say $ip...\n"; * The following four functions return ipV6 representations of: :: = Zeros(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); ::FFFF:FFFF = V4net(); Will also return an ipV4 or ipV6 representation of a resolvable Fully Qualified Domanin Name (FQDN). ###### DEPRECATED, will be remove in version 5 ############ * To accept addresses in the format as returned by inet_aton, invoke the module as: use NetAddr::IP qw(:aton); ###### USE new_from_aton instead ########################## * To enable usage of legacy data files containing NetAddr::IP objects stored using the L<Storable> module. use NetAddr::IP qw(:old_storable); * To compact many smaller subnets (see: C<$me-E<gt>compact($addr1,$addr2,...)> @compacted_object_list = Compact(@object_list) * Return a reference to list of C<NetAddr::IP> subnets of C<$masklen> mask length, when C<$number> or more addresses from C<@list_of_subnets> are found to be contained in said subnet. $arrayref = Coalesce($masklen, $number, @list_of_subnets) * By default B<NetAddr::IP> functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: NOTE: the AUGUST 2010 RFC5952 states: 4.3. Lowercase The characters "a", "b", "c", "d", "e", and "f" in an IPv6 address MUST be represented in lowercase. It is recommended that all NEW applications using NetAddr::IP be invoked as shown on the next line. use NetAddr::IP qw(:lower); * To ensure the current IPv6 string case behavior even if the default changes: use NetAddr::IP qw(:upper); * To set a limit on the size of B<nets> processed or returned by NetAddr::IP. Set the maximum number of nets beyond which NetAddr::IP will return an error as a power of 2 (default 16 or 65536 nets). Each 2**16 consumes approximately 4 megs of memory. A 2**20 consumes 64 megs of memory, A 2**24 consumes 1 gigabyte of memory. use NetAddr::IP qw(netlimit); netlimit 20; The maximum B<netlimit> allowed is 2**24. Attempts to set limits below the default of 16 or above the maximum of 24 are ignored. Returns true on success, otherwise C<undef>. =cut $_netlimit = 2 ** 16; # default sub netlimit($) { return undef unless $_[0]; return undef if $_[0] =~ /\D/; return undef if $_[0] < 16; return undef if $_[0] > 24; $_netlimit = 2 ** $_[0]; }; =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install B<NetAddr::IP> depends on B<NetAddr::IP::Util> which installs by default with its primary functions compiled using Perl's XS extensions to build a C library. If you do not have a C complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install =head1 DESCRIPTION This module provides an object-oriented abstraction on top of IP addresses or IP subnets that allows for easy manipulations. Version 4.xx of NetAddr::IP will work with older versions of Perl and is compatible with Math::BigInt. The internal representation of all IP objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. =head2 Overloaded Operators Many operators have been overloaded, as described below: =cut ############################################# # These are the overload methods, placed here # for convenience. ############################################# use overload '@{}' => sub { return [ $_[0]->hostenum ]; }; =pod =over =item B<Assignment (C<=>)> Has been optimized to copy one NetAddr::IP object to another very quickly. =item B<C<-E<gt>copy()>> The B<assignment (C<=>)> operation is only put in to operation when the copied object is further mutated by another overloaded operation. See L<overload> B<SPECIAL SYMBOLS FOR "use overload"> for details. B<C<-E<gt>copy()>> actually creates a new object when called. =item B<Stringification> An object can be used just as a string. For instance, the following code my $ip = new NetAddr::IP '192.168.1.123'; print "$ip\n"; Will print the string 192.168.1.123/32. =item B<Equality> You can test for equality with either C<eq> or C<==>. C<eq> allows comparison with arbitrary strings as well as NetAddr::IP objects. The following example: if (NetAddr::IP->new('127.0.0.1','255.0.0.0') eq '127.0.0.1/8') { print "Yes\n"; } will print out "Yes". Comparison with C<==> requires both operands to be NetAddr::IP objects. In both cases, a true value is returned if the CIDR representation of the operands is equal. =item B<Comparison via E<gt>, E<lt>, E<gt>=, E<lt>=, E<lt>=E<gt> and C<cmp>> Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the NUMERIC cidr portion of the masks are compared. This leads to the counterintuitive result that /24 > /16 Comparison should not be done on netaddr objects with different CIDR as this may produce indeterminate - unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing $ip1->masklen <=> $ip2->masklen =item B<Addition of a constant (C<+>)> Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: print NetAddr::IP->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: print NetAddr::IP->new('10.0.0.1/24') + 255; outputs 10.0.0.0/24. Returns the the unchanged object when the constant is missing or out of range. 2147483647 <= constant >= -2147483648 =item B<Subtraction of a constant (C<->)> The complement of the addition of a constant. =item B<Difference (C<->)> Returns the difference between the address parts of two NetAddr::IP objects address parts as a 32 bit signed number. Returns B<undef> if the difference is out of range. (See range restrictions on Addition above) =item B<Auto-increment> Auto-incrementing a NetAddr::IP object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. =item B<Auto-decrement> Auto-decrementing a NetAddr::IP object performs exactly the opposite of auto-incrementing it, as you would expect. =cut ############################################# # End of the overload methods. ############################################# # Preloaded methods go here. =pod =back =head2 Serializing and Deserializing This module defines hooks to collaborate with L<Storable> for serializing C<NetAddr::IP> objects, through compact and human readable strings. You can revert to the old format by invoking this module as use NetAddr::IP ':old_storable'; You must do this if you have legacy data files containing NetAddr::IP objects stored using the L<Storable> module. =cut my $full_format = "%04X:%04X:%04X:%04X:%04X:%04X:%D.%D.%D.%D"; my $full6_format = "%04X:%04X:%04X:%04X:%04X:%04X:%04X:%04X"; sub import { if (grep { $_ eq ':old_storable' } @_) { @_ = grep { $_ ne ':old_storable' } @_; } else { *{STORABLE_freeze} = sub { my $self = shift; return $self->cidr(); # use stringification }; *{STORABLE_thaw} = sub { my $self = shift; my $cloning = shift; # Not used my $serial = shift; my $ip = new NetAddr::IP $serial; $self->{addr} = $ip->{addr}; $self->{mask} = $ip->{mask}; $self->{isv6} = $ip->{isv6}; return; }; } if (grep { $_ eq ':aton' } @_) { $NetAddr::IP::Lite::Accept_Binary_IP = 1; @_ = grep { $_ ne ':aton' } @_; } if (grep { $_ eq ':old_nth' } @_) { $NetAddr::IP::Lite::Old_nth = 1; @_ = grep { $_ ne ':old_nth' } @_; } if (grep { $_ eq ':nofqdn'} @_) { $NetAddr::IP::NetAddr::IP::Lite::NoFQDN = 1; @_ = grep { $_ ne ':nofqdn' } @_; } if (grep { $_ eq ':lower' } @_) { $full_format = lc($full_format); $full6_format = lc($full6_format); NetAddr::IP::Util::lower(); @_ = grep { $_ ne ':lower' } @_; } if (grep { $_ eq ':upper' } @_) { $full_format = uc($full_format); $full6_format = uc($full6_format); NetAddr::IP::Util::upper(); @_ = grep { $_ ne ':upper' } @_; } if (grep { $_ eq ':rfc3021' } @_) { $rfc3021 = 1; @_ = grep { $_ ne ':rfc3021' } @_; } NetAddr::IP->export_to_level(1, @_); } sub compact { return (ref $_[0] eq 'ARRAY') ? compactref($_[0]) # Compact(\@list) : @{compactref(\@_)}; # Compact(@list) or ->compact(@list) } *Compact = \&compact; sub Coalesce { return &coalesce; } sub hostenumref($) { my $r = _splitref(0,$_[0]); unless ((notcontiguous($_[0]->{mask}))[1] == 128 || ($rfc3021 && $_[0]->masklen == 31) ) { splice(@$r, 0, 1); splice(@$r, scalar @$r - 1, 1); } return $r; } sub splitref { unshift @_, 0; # mark as no reverse # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_splitref; &_splitref; } sub rsplitref { unshift @_, 1; # mark as reversed # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_splitref; &_splitref; } sub split { unshift @_, 0; # mark as no reverse my $rv = &_splitref; return $rv ? @$rv : (); } sub rsplit { unshift @_, 1; # mark as reversed my $rv = &_splitref; return $rv ? @$rv : (); } sub full($) { if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { my @hex = (unpack("n8",$_[0]->{addr})); $hex[9] = $hex[7] & 0xff; $hex[8] = $hex[7] >> 8; $hex[7] = $hex[6] & 0xff; $hex[6] >>= 8; return sprintf($full_format,@hex); } else { &full6; } } sub full6($) { my @hex = (unpack("n8",$_[0]->{addr})); return sprintf($full6_format,@hex); } sub full6m($) { my @hex = (unpack("n8",$_[0]->{mask})); return sprintf($full6_format,@hex); } sub DESTROY {}; 1; __END__ sub do_prefix ($$$) { my $mask = shift; my $faddr = shift; my $laddr = shift; if ($mask > 24) { return "$faddr->[0].$faddr->[1].$faddr->[2].$faddr->[3]-$laddr->[3]"; } elsif ($mask == 24) { return "$faddr->[0].$faddr->[1].$faddr->[2]."; } elsif ($mask > 16) { return "$faddr->[0].$faddr->[1].$faddr->[2]-$laddr->[2]."; } elsif ($mask == 16) { return "$faddr->[0].$faddr->[1]."; } elsif ($mask > 8) { return "$faddr->[0].$faddr->[1]-$laddr->[1]."; } elsif ($mask == 8) { return "$faddr->[0]."; } else { return "$faddr->[0]-$laddr->[0]"; } } =pod =head2 Methods =over =item C<-E<gt>new([$addr, [ $mask|IPv6 ]])> =item C<-E<gt>new6([$addr, [ $mask]])> =item C<-E<gt>new_no([$addr, [ $mask]])> =item C<-E<gt>new_from_aton($netaddr)> =item new_cis and new_cis6 are DEPRECATED =item C<-E<gt>new_cis("$addr $mask)> =item C<-E<gt>new_cis6("$addr $mask)> The first two methods create a new address with the supplied address in C<$addr> and an optional netmask C<$mask>, which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. The third method C<new_no> is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. B<new_from_aton> takes a packed IPv4 address and assumes a /32 mask. This function replaces the DEPRECATED :aton functionality which is fundamentally broken. The last two methods B<new_cis> and B<new_cis6> differ from B<new> and B<new6> only in that they except the common Cisco address notation for address/mask pairs with a B<space> as a separator instead of a slash (/) These methods are DEPRECATED because the functionality is now included in the other "new" methods i.e. ->new_cis('1.2.3.0 24') or ->new_cis6('::1.2.3.0 120') C<-E<gt>new6> and C<-E<gt>new_cis6> mark the address as being in ipV6 address space even if the format would suggest otherwise. i.e. ->new6('1.2.3.4') will result in ::102:304 addresses submitted to ->new in ipV6 notation will remain in that notation permanently. i.e. ->new('::1.2.3.4') will result in ::102:304 whereas new('1.2.3.4') would print out as 1.2.3.4 See "STRINGIFICATION" below. C<$addr> can be almost anything that can be resolved to an IP address in all the notations I have seen over time. It can optionally contain the mask in CIDR notation. B<prefix> notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. Addresses in the same format returned by C<inet_aton> or C<gethostbyname> can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. To accept addresses in that format, invoke the module as in use NetAddr::IP ':aton' If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' C<$addr> can be any of the following and possibly more... n.n n.n/mm n.n.n n.n.n/mm n.n.n.n n.n.n.n/mm 32 bit cidr notation n.n.n.n/m.m.m.m loopback, localhost, broadcast, any, default x.x.x.x/host 0xABCDEF, 0b111111000101011110, (a bcd number) a netaddr as returned by 'inet_aton' Any RFC1884 notation ::n.n.n.n ::n.n.n.n/mmm 128 bit cidr notation ::n.n.n.n/::m.m.m.m ::x:x ::x:x/mmm x:x:x:x:x:x:x:x x:x:x:x:x:x:x:x/mmm x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation loopback, localhost, unspecified, any, default ::x:x/host 0xABCDEF, 0b111111000101011110 within the limits of perl's number resolution 123456789012 a 'big' bcd number (bigger than perl likes) and Math::BigInt A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: use NetAddr::IP::Lite ':nofqdn'; If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' =item C<-E<gt>broadcast()> Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. =item C<-E<gt>network()> Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. =item C<-E<gt>addr()> Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP object to other components that expect an IP address. If the object is an ipV6 address or was created using ->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. =item C<-E<gt>mask()> Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. =item C<-E<gt>masklen()> Returns a scalar the number of one bits in the mask. =item C<-E<gt>bits()> Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. =item C<-E<gt>version()> Returns the version of the address or subnet. Currently this can be either 4 or 6. =item C<-E<gt>cidr()> Returns a scalar with the address and mask in CIDR notation. A NetAddr::IP object I<stringifies> to the result of this function. (see comments about ->new6() and ->addr() for output formats) =item C<-E<gt>aton()> Returns the address part of the NetAddr::IP object in the same format as the C<inet_aton()> or C<ipv6_aton> function respectively. If the object was created using ->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. =item C<-E<gt>range()> Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. =item C<-E<gt>prefix()> Returns a scalar with the address and mask in ipV4 prefix representation. This is useful for some programs, which expect its input to be in this format. This method will include the broadcast address in the encoding. =cut # only applicable to ipV4 sub prefix($) { return undef if $_[0]->{isv6}; my $mask = (notcontiguous($_[0]->{mask}))[1]; return $_[0]->addr if $mask == 128; $mask -= 96; my @faddr = split (/\./, $_[0]->first->addr); my @laddr = split (/\./, $_[0]->broadcast->addr); return do_prefix $mask, \@faddr, \@laddr; } =item C<-E<gt>nprefix()> Just as C<-E<gt>prefix()>, but does not include the broadcast address. =cut # only applicable to ipV4 sub nprefix($) { return undef if $_[0]->{isv6}; my $mask = (notcontiguous($_[0]->{mask}))[1]; return $_[0]->addr if $mask == 128; $mask -= 96; my @faddr = split (/\./, $_[0]->first->addr); my @laddr = split (/\./, $_[0]->last->addr); return do_prefix $mask, \@faddr, \@laddr; } =pod =item C<-E<gt>numeric()> When called in a scalar context, will return a numeric representation of the address part of the IP address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. This method is essential for serializing the representation of a subnet. =item C<-E<gt>bigint()> When called in scalar context, will return a Math::BigInt representation of the address part of the IP address. When called in an array context, it returns a list of two elements, The first element is as described, the second element is the Math::BigInt representation of the netmask. =item C<-E<gt>wildcard()> When called in a scalar context, returns the wildcard bits corresponding to the mask, in dotted-quad or ipV6 format as applicable. When called in an array context, returns a two-element array. The first element, is the address part. The second element, is the wildcard translation of the mask. =cut sub wildcard($) { my $copy = $_[0]->copy; $copy->{addr} = ~ $copy->{mask}; $copy->{addr} &= V4net unless $copy->{isv6}; if (wantarray) { return ($_[0]->addr, $copy->addr); } return $copy->addr; } =pod =item C<-E<gt>short()> Returns the address part in a short or compact notation. (ie, 127.0.0.1 becomes 127.1). Works with both, V4 and V6. =cut sub _compact_v6 ($) { my $addr = shift; my @o = split /:/, $addr; return $addr unless @o and grep { $_ =~ m/^0+$/ } @o; my @candidates = (); my $start = undef; for my $i (0 .. $#o) { if (defined $start) { if ($o[$i] !~ m/^0+$/) { push @candidates, [ $start, $i - $start ]; $start = undef; } } else { $start = $i if $o[$i] =~ m/^0+$/; } } push @candidates, [$start, 8 - $start] if defined $start; my $l = (sort { $b->[1] <=> $a->[1] } @candidates)[0]; return $addr unless defined $l; $addr = $l->[0] == 0 ? '' : join ':', @o[0 .. $l->[0] - 1]; $addr .= '::'; $addr .= join ':', @o[$l->[0] + $l->[1] .. $#o]; $addr =~ s/(^|:)0{1,3}/$1/g; return $addr; } #sub _old_compV6 { # my @addr = split(':',shift); # my $found = 0; # my $v; # foreach(0..$#addr) { # ($v = $addr[$_]) =~ s/^0+//; # $addr[$_] = $v || 0; # } # @_ = reverse(1..$#addr); # foreach(@_) { # if ($addr[$_] || $addr[$_ -1]) { # last if $found; # next; # } # $addr[$_] = $addr[$_ -1] = ''; # $found = '1'; # } # (my $rv = join(':',@addr)) =~ s/:+:/::/; # return $rv; #} # thanks to Rob Riepel <riepel@networking.Stanford.EDU> # for this faster and more compact solution 11-17-08 sub _compV6 ($) { my $ip = shift; return $ip unless my @candidates = $ip =~ /((?:^|:)0(?::0)+(?::|$))/g; my $longest = (sort { length($b) <=> length($a) } @candidates)[0]; $ip =~ s/$longest/::/; return $ip; } sub short($) { my $addr = $_[0]->addr; if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { my @o = split(/\./, $addr, 4); splice(@o, 1, 2) if $o[1] == 0 and $o[2] == 0; return join '.', @o; } return _compV6($addr); } =item C<-E<gt>canon()> Returns the address part in canonical notation as a string. For ipV4, this is dotted quad, and is the same as the return value from "->addr()". For ipV6 it is as per RFC5952, and is the same as the LOWER CASE value returned by "->short()". =cut sub canon($) { my $addr = $_[0]->addr; return $_[0]->{isv6} ? lc _compV6($addr) : $addr; } =item C<-E<gt>full()> Returns the address part in FULL notation for ipV4 and ipV6 respectively. i.e. for ipV4 0000:0000:0000:0000:0000:0000:127.0.0.1 for ipV6 0000:0000:0000:0000:0000:0000:0000:0000 To force ipV4 addresses into full ipV6 format use: =item C<-E<gt>full6()> Returns the address part in FULL ipV6 notation =item C<-E<gt>full6m()> Returns the mask part in FULL ipV6 notation =item C<$me-E<gt>contains($other)> Returns true when C<$me> completely contains C<$other>. False is returned otherwise and C<undef> is returned if C<$me> and C<$other> are not both C<NetAddr::IP> objects. =item C<$me-E<gt>within($other)> The complement of C<-E<gt>contains()>. Returns true when C<$me> is completely contained within C<$other>. Note that C<$me> and C<$other> must be C<NetAddr::IP> objects. =item C-E<gt>is_rfc1918()> Returns true when C<$me> is an RFC 1918 address. 10.0.0.0 - 10.255.255.255 (10/8 prefix) 172.16.0.0 - 172.31.255.255 (172.16/12 prefix) 192.168.0.0 - 192.168.255.255 (192.168/16 prefix) =item C<-E<gt>is_local()> Returns true when C<$me> is a local network address. i.e. ipV4 127.0.0.0 - 127.255.255.255 or ipV6 === ::1 =item C<-E<gt>splitref($bits,[optional $bits1,$bits2,...])> Returns a reference to a list of objects, representing subnets of C<bits> mask produced by splitting the original object, which is left unchanged. Note that C<$bits> must be longer than the original mask in order for it to be splittable. ERROR conditions: ->splitref will DIE with the message 'netlimit exceeded' if the number of return objects exceeds 'netlimit'. See function 'netlimit' above (default 2**16 or 65536 nets). ->splitref returns undef when C<bits> or the (bits list) will not fit within the original object. ->splitref returns undef if a supplied ipV4, ipV6, or NetAddr mask in inappropriately formatted, B<bits> may be a CIDR mask, a dot quad or ipV6 string or a NetAddr::IP object. If C<bits> is missing, the object is split for into all available addresses within the ipV4 or ipV6 object ( auto-mask of CIDR 32, 128 respectively ). With optional additional C<bits> list, the original object is split into parts sized based on the list. NOTE: a short list will replicate the last item. If the last item is too large to for what remains of the object after splitting off the first parts of the list, a "best fits" list of remaining objects will be returned based on an increasing sort of the CIDR values of the C<bits> list. i.e. my $ip = new NetAddr::IP('192.168.0.0/24'); my $objptr = $ip->split(28, 29, 28, 29, 26); has split plan 28 29 28 29 26 26 26 28 and returns this list of objects 192.168.0.0/28 192.168.0.16/29 192.168.0.24/28 192.168.0.40/29 192.168.0.48/26 192.168.0.112/26 192.168.0.176/26 192.168.0.240/28 NOTE: that /26 replicates twice beyond the original request and /28 fills the remaining return object requirement. =item C<-E<gt>rsplitref($bits,[optional $bits1,$bits2,...])> C<-E<gt>rsplitref> is the same as C<-E<gt>splitref> above except that the split plan is applied to the original object in reverse order. i.e. my $ip = new NetAddr::IP('192.168.0.0/24'); my @objects = $ip->split(28, 29, 28, 29, 26); has split plan 28 26 26 26 29 28 29 28 and returns this list of objects 192.168.0.0/28 192.168.0.16/26 192.168.0.80/26 192.168.0.144/26 192.168.0.208/29 192.168.0.216/28 192.168.0.232/29 192.168.0.240/28 =item C<-E<gt>split($bits,[optional $bits1,$bits2,...])> Similar to C<-E<gt>splitref> above but returns the list rather than a list reference. You may not want to use this if a large number of objects is expected. =item C<-E<gt>rsplit($bits,[optional $bits1,$bits2,...])> Similar to C<-E<gt>rsplitref> above but returns the list rather than a list reference. You may not want to use this if a large number of objects is expected. =cut # input: $naip, # @bits, list of masks for splits # # returns: empty array request will not fit in submitted net # (\@bits,undef) if there is just one plan item i.e. return original net # (\@bits,\%masks) for a real plan # sub _splitplan { my($ip,@bits) = @_; my $addr = $ip->addr(); my $isV6 = $ip->{isv6}; unless (@bits) { $bits[0] = $isV6 ? 128 : 32; } my $basem = $ip->masklen(); my(%nets,$dif); my $denom = 0; my($x,$maddr); foreach(@bits) { if (ref $_) { # is a NetAddr::IP $x = $_->{isv6} ? $_->{addr} : $_->{addr} | V4mask; ($x,$maddr) = notcontiguous($x); return () if $x; # spurious bits $_ = $isV6 ? $maddr : $maddr - 96; } elsif ( $_ =~ /^d+$/ ) { # is a negative number of the form -nnnn ; } elsif ($_ = NetAddr::IP->new($addr,$_,$isV6)) { # will be undefined if bad mask and will fall into oops! $_ = $_->masklen(); } else { return (); # oops! } $dif = $_ - $basem; # for normalization return () if $dif < 0; # overange nets not allowed return (\@bits,undef) unless ($dif || $#bits); # return if original net = mask alone $denom = $dif if $dif > $denom; next if exists $nets{$_}; $nets{$_} = $_ - $basem; # for normalization } # $denom is the normalization denominator, since these are all exponents # normalization can use add/subtract to accomplish normalization # # keys of %nets are the masks used by this split # values of %nets are the normalized weighting for # calculating when the split is "full" or complete # %masks values contain the actual masks for each split subnet # @bits contains the masks in the order the user actually wants them # my %masks; # calculate masks my $maskbase = $isV6 ? 128 : 32; foreach( keys %nets ) { $nets{$_} = 2 ** ($denom - $nets{$_}); $masks{$_} = shiftleft(Ones, $maskbase - $_); } my @plan; my $idx = 0; $denom = 2 ** $denom; PLAN: while ($denom > 0) { # make a net plan my $nexmask = ($idx < $#bits) ? $bits[$idx] : $bits[$#bits]; ++$idx; unless (($denom -= $nets{$nexmask}) < 0) { return () if (push @plan, $nexmask) > $_netlimit; next; } # a fractional net is needed that is not in the mask list or the replicant $denom += $nets{$nexmask}; # restore mistake TRY: foreach (sort { $a <=> $b } keys %nets) { next TRY if $nexmask > $_; do { next TRY if $denom - $nets{$_} < 0; return () if (push @plan, $_) > $_netlimit; $denom -= $nets{$_}; } while $denom; } die 'ERROR: miscalculated weights' if $denom; } return () if $idx < @bits; # overrange original subnet request return (\@plan,\%masks); } # input: $rev, # t/f # $naip, # @bits # list of masks for split # sub _splitref { my $rev = shift; my($plan,$masks) = &_splitplan; # bug report 82719 croak("netmask error: overrange or spurious bits") unless defined $plan; # return undef unless $plan; my $net = $_[0]->network(); return [$net] unless $masks; my $addr = $net->{addr}; my $isV6 = $net->{isv6}; my @plan = $rev ? reverse @$plan : @$plan; # print "plan @plan\n"; # create splits my @ret; while ($_ = shift @plan) { my $mask = $masks->{$_}; push @ret, $net->_new($addr,$mask,$isV6); last unless @plan; $addr = (sub128($addr,$mask))[1]; } return \@ret; } =pod =item C<-E<gt>hostenum()> Returns the list of hosts within a subnet. ERROR conditions: ->hostenum will DIE with the message 'netlimit exceeded' if the number of return objects exceeds 'netlimit'. See function 'netlimit' above (default 2**16 or 65536 nets). =cut sub hostenum ($) { return @{$_[0]->hostenumref}; } =pod =item C<-E<gt>hostenumref()> Faster version of C<-E<gt>hostenum()>, returning a reference to a list. NOTE: hostenum and hostenumref report zero (0) useable hosts in a /31 network. This is the behavior expected prior to RFC 3021. To report 2 useable hosts for use in point-to-point networks, use B<:rfc3021> tag. use NetAddr::IP qw(:rfc3021); This will cause hostenum and hostenumref to return two (2) useable hosts in a /31 network. =item C<$me-E<gt>compact($addr1, $addr2, ...)> =item C<@compacted_object_list = Compact(@object_list)> Given a list of objects (including C<$me>), this method will compact all the addresses and subnets into the largest (ie, least specific) subnets possible that contain exactly all of the given objects. Note that in versions prior to 3.02, if fed with the same IP subnets multiple times, these subnets would be returned. From 3.02 on, a more "correct" approach has been adopted and only one address would be returned. Note that C<$me> and all C<$addr>'s must be C<NetAddr::IP> objects. =item C<$me-E<gt>compactref(\@list)> =item C<$compacted_object_list = Compact(\@list)> As usual, a faster version of C<-E<gt>compact()> that returns a reference to a list. Note that this method takes a reference to a list instead. Note that C<$me> must be a C<NetAddr::IP> object. =cut sub compactref($) { # my @r = sort { NetAddr::IP::Lite::comp_addr_mask($a,$b) } @{$_[0]} # use overload 'cmp' function # or return []; # return [] unless @r; my @r; { my $unr = []; my $args = $_[0]; if (ref $_[0] eq __PACKAGE__ and ref $_[1] eq 'ARRAY') { # ->compactref(\@list) # $unr = [$_[0], @{$_[1]}]; # keeping structures intact } else { # Compact(@list) or ->compact(@list) or Compact(\@list) # $unr = $args; } return [] unless @$unr; foreach(@$unr) { $_->{addr} = $_->network->{addr}; } @r = sort @$unr; } my $changed; do { $changed = 0; for(my $i=0; $i <= $#r -1;$i++) { if ($r[$i]->contains($r[$i +1])) { splice(@r,$i +1,1); ++$changed; --$i; } elsif ((notcontiguous($r[$i]->{mask}))[1] == (notcontiguous($r[$i +1]->{mask}))[1]) { # masks the same if (hasbits($r[$i]->{addr} ^ $r[$i +1]->{addr})) { # if not the same netblock my $upnet = $r[$i]->copy; $upnet->{mask} = shiftleft($upnet->{mask},1); if ($upnet->contains($r[$i +1])) { # adjacent nets in next net up $r[$i] = $upnet; splice(@r,$i +1,1); ++$changed; --$i; } } else { # identical nets splice(@r,$i +1,1); ++$changed; --$i; } } } } while $changed; return \@r; } =pod =item C<$me-E<gt>coalesce($masklen, $number, @list_of_subnets)> =item C<$arrayref = Coalesce($masklen,$number,@list_of_subnets)> Will return a reference to list of C<NetAddr::IP> subnets of C<$masklen> mask length, when C<$number> or more addresses from C<@list_of_subnets> are found to be contained in said subnet. Subnets from C<@list_of_subnets> with a mask shorter than C<$masklen> are passed "as is" to the return list. Subnets from C<@list_of_subnets> with a mask longer than C<$masklen> will be counted (actually, the number of IP addresses is counted) towards C<$number>. Called as a method, the array will include C<$me>. WARNING: the list of subnet must be the same type. i.e ipV4 or ipV6 =cut sub coalesce { my $masklen = shift; if (ref $masklen && ref $masklen eq __PACKAGE__ ) { # if called as a method push @_,$masklen; $masklen = shift; } my $number = shift; # Addresses are at @_ return [] unless @_; my %ret = (); my $type = $_[0]->{isv6}; return [] unless defined $type; for my $ip (@_) { return [] unless $ip->{isv6} == $type; $type = $ip->{isv6}; my $n = NetAddr::IP->new($ip->addr . '/' . $masklen)->network; if ($ip->masklen > $masklen) { $ret{$n} += $ip->num + $NetAddr::IP::Lite::Old_nth; } } my @ret = (); # Add to @ret any arguments with netmasks longer than our argument for my $c (sort { $a->masklen <=> $b->masklen } grep { $_->masklen <= $masklen } @_) { next if grep { $_->contains($c) } @ret; push @ret, $c->network; } # Now add to @ret all the subnets with more than $number hits for my $c (map { new NetAddr::IP $_ } grep { $ret{$_} >= $number } keys %ret) { next if grep { $_->contains($c) } @ret; push @ret, $c; } return \@ret; } =pod =item C<-E<gt>first()> Returns a new object representing the first usable IP address within the subnet (ie, the first host address). =item C<-E<gt>last()> Returns a new object representing the last usable IP address within the subnet (ie, one less than the broadcast address). =item C<-E<gt>nth($index)> Returns a new object representing the I<n>-th usable IP address within the subnet (ie, the I<n>-th host address). If no address is available (for example, when the network is too small for C<$index> hosts), C<undef> is returned. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements C<-E<gt>nth($index)> and C<-E<gt>num()> exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. See the README file for details. To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); old behavior: NetAddr::IP->new('10/32')->nth(0) == undef NetAddr::IP->new('10/32')->nth(1) == undef NetAddr::IP->new('10/31')->nth(0) == undef NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == undef NetAddr::IP->new('10/30')->nth(1) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(2) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(3) == 10.0.0.3/30 Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. new behavior: NetAddr::IP->new('10/32')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10.1/32'->nth(0) == 10.0.0.1/32 NetAddr::IP->new('10/31')->nth(0) == 10.0.0.0/31 NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(1) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(2) == undef Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. =item C<-E<gt>num()> As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net B<num> value of 2 instead of 0 (zero) for point-to-point networks. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable IP addresses within the subnet, not counting the broadcast or network address. Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of IP addresses not counting the broadcast address. (one greater than the new behavior) To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); WARNING: NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are TEXT strings and perl can treat them as integers for numeric calculations. Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. =item C<-E<gt>re()> Returns a Perl regular expression that will match an IP address within the given subnet. Defaults to ipV4 notation. Will return an ipV6 regex if the address in not in ipV4 space. =cut sub re ($) { return &re6 unless isIPv4($_[0]->{addr}); my $self = shift->network; # Insure a "zero" host part my ($addr, $mlen) = ($self->addr, $self->masklen); my @o = split('\.', $addr, 4); my $octet= '(?:[0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])'; my @r = @o; my $d; # for my $i (0 .. $#o) # { # warn "# $self: $r[$i] == $o[$i]\n"; # } if ($mlen != 32) { if ($mlen > 24) { $d = 2 ** (32 - $mlen) - 1; $r[3] = '(?:' . join('|', ($o[3]..$o[3] + $d)) . ')'; } else { $r[3] = $octet; if ($mlen > 16) { $d = 2 ** (24 - $mlen) - 1; $r[2] = '(?:' . join('|', ($o[2]..$o[2] + $d)) . ')'; } else { $r[2] = $octet; if ($mlen > 8) { $d = 2 ** (16 - $mlen) - 1; $r[1] = '(?:' . join('|', ($o[1]..$o[1] + $d)) . ')'; } else { $r[1] = $octet; if ($mlen > 0) { $d = 2 ** (8 - $mlen) - 1; $r[0] = '(?:' . join('|', ($o[0] .. $o[0] + $d)) . ')'; } else { $r[0] = $octet; } } } } } ### no digit before nor after (look-behind, look-ahead) return "(?:(?<![0-9])$r[0]\\.$r[1]\\.$r[2]\\.$r[3](?![0-9]))"; } =item C<-E<gt>re6()> Returns a Perl regular expression that will match an IP address within the given subnet. Always returns an ipV6 regex. =cut sub re6($) { my @net = split('',sprintf("%04X%04X%04X%04X%04X%04X%04X%04X",unpack('n8',$_[0]->network->{addr}))); my @brd = split('',sprintf("%04X%04X%04X%04X%04X%04X%04X%04X",unpack('n8',$_[0]->broadcast->{addr}))); my @dig; foreach(0..$#net) { my $n = $net[$_]; my $b = $brd[$_]; my $m; if ($n.'' eq $b.'') { if ($n =~ /\d/) { push @dig, $n; } else { push @dig, '['.(lc $n).$n.']'; } } else { my $n = $net[$_]; my $b = $brd[$_]; if ($n.'' eq 0 && $b =~ /F/) { push @dig, 'x'; } elsif ($n =~ /\d/ && $b =~ /\d/) { push @dig, '['.$n.'-'.$b.']'; } elsif ($n =~ /[A-F]/ && $b =~ /[A-F]/) { $n .= '-'.$b; push @dig, '['.(lc $n).$n.']'; } elsif ($n =~ /\d/ && $b =~ /[A-F]/) { $m = ($n == 9) ? 9 : $n .'-9'; if ($b =~ /A/) { $m .= 'aA'; } else { $b = 'A-'. $b; $m .= (lc $b). $b; } push @dig, '['.$m.']'; } elsif ($n =~ /[A-F]/ && $b =~ /\d/) { if ($n =~ /A/) { $m = 'aA'; } else { $n .= '-F'; $m = (lc $n).$n; } if ($b == 9) { $m .= 9; } else { $m .= $b .'-9'; } push @dig, '['.$m.']'; } } } my @grp; do { my $grp = join('',splice(@dig,0,4)); if ($grp =~ /^(0+)/) { my $l = length($1); if ($l == 4) { $grp = '0{1,4}'; } else { $grp =~ s/^${1}/0\{0,$l\}/; } } if ($grp =~ /(x+)$/) { my $l = length($1); if ($l == 4) { $grp = '[0-9a-fA-F]{1,4}'; } else { $grp =~ s/x+/\[0\-9a\-fA\-F\]\{$l\}/; } } push @grp, $grp; } while @dig > 0; return '('. join(':',@grp) .')'; } sub mod_version { return $VERSION; &Compact; # suppress warnings about these symbols &Coalesce; &STORABLE_freeze; &STORABLE_thaw; } =pod =back =head1 EXPORT_OK Compact Coalesce Zeros Ones V4mask V4net netlimit =head1 NOTES / BUGS ... FEATURES NetAddr::IP only runs in Pure Perl mode on Windows boxes because I don't have the resources or know how to get the "configure" stuff working in the Windows environment. Volunteers WELCOME to port the "C" portion of this module to Windows. =head1 HISTORY =over 4 See the Changes file =back =head1 AUTHORS Luis E. Muñoz E<lt>luismunoz@cpan.orgE<gt>, Michael Robinton E<lt>michael@bizsystems.comE<gt> =head1 WARRANTY This software comes with the same warranty as Perl itself (ie, none), so by using it you accept any and all the liability. =head1 COPYRIGHT This software is (c) Luis E. Muñoz, 1999 - 2007, and (c) Michael Robinton, 2006 - 2014. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA. or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 SEE ALSO perl(1) L<NetAddr::IP::Lite>, L<NetAddr::IP::Util>, L<NetAddr::IP::InetBase> =cut 1; Makefile.PL 0000644 00000005607 15043770025 0006531 0 ustar 00 use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. my $check0 = 0; my $check1 = 0; my $now = time; my $then = (stat('./Makefile.old'))[9]; # set number of seconds to view my $view = $then +86400 < $now ? 5:0; my $pv = sprintf "%vd", $^V; unless ($pv lt '5.8.0' || $pv gt '5.8.5') { print qq( ################################################################# ######################### WARNING ############################### # # # YOUR VERSION OF PERL = $pv HAS SERIOUS BUGS # # # # Early versions of perl 5.8.x contain bugs that cause certain # # \@_ operations to fail. See perl bug [ 23429] # # Please upgrade to at least perl 5.8.6 # # # ################################################################# ); sleep $view if $view; } unless (grep { m/-noxs/ } @ARGV) { print q{ This build requires a C compiler by default except on Windows where the Pure Perl version is mandatory. The Pure Perl version, which does not require compilation of XS code, can be used by invoking this as: perl Makefile.PL -noxs }; sleep $view if $view; } sleep $view if $view && ($check0 || $check1); print <<EOF; ====================================================================== W A R N I N G - Please do read below if you have legacy code ====================================================================== Versions 3.21 and above of NetAddr::IP, include hooks for the Storable class that are incompatible with the old (automatic) method of storing data. To regain backwards compatibility, the module must be use()d as use NetAddr::IP ':old_storable'; which will disable the new hooks and revert back to the old ways. If you do not use Storable along with NetAddr::IP, or just don't know what this all means, most likely you're safe to go ahead. Versions before 3.25 recognized by default IP addresses as returned by inet_aton. This is no longer the default. To enable this behavior again, the module must be use()d as use NetAddr::IP ':aton'; Versions before 4.008 recognized the above syntax. This behavior is fundamentally broken, is DEPRECATED and WILL BE REMOVED in version 5.0 Use this method to create new objects from 'aton's \$ip = new_from_aton NetAddr::IP(inet_aton('1.2.3.4')) EOF ; sleep $view if $view; my %makeparms = ( # (MM->can('signature_target') ? (SIGN => 1) : ()), 'NAME' => 'NetAddr::IP', 'VERSION_FROM' => 'IP.pm', # finds $VERSION 'PREREQ_PM' => { Test::More => 0, }, # e.g., Module::Name => 1.1 ($] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => 'IP.pm', AUTHOR => 'Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>') : ()), clean => { FILES => "*~ tmp* META.yml"}, ); WriteMakefile(%makeparms); blib/man3/NetAddr::IP::InetBase.3pm 0000644 00000031614 15043770025 0012500 0 ustar 00 .\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "NetAddr::IP::InetBase 3" .TH NetAddr::IP::InetBase 3 "2012-10-02" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" NetAddr::IP::InetBase \-\- IPv4 and IPV6 utilities .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 10 \& use NetAddr::IP::Base qw( \& :upper \& inet_aton \& inet_ntoa \& ipv6_aton \& ipv6_ntoa \& ipv6_n2x \& ipv6_n2d \& inet_any2n \& inet_n2dx \& inet_n2ad \& inet_pton \& inet_ntop \& packzeros \& isIPv4 \& isNewIPv4 \& isAnyIPv4 \& AF_INET \& AF_INET6 \& fake_AF_INET6 \& fillIPv4 \& ); \& \& use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) \& \& :ipv4 => inet_aton, inet_ntoa, fillIPv4 \& \& :ipv6 => ipv6_aton, ipv6_ntoa,ipv6_n2x, ipv6_n2d, \& inet_any2n, inet_n2dx, inet_n2ad \& inet_pton, inet_ntop, packzeros \& \& $dotquad = inet_ntoa($netaddr); \& $netaddr = inet_aton($dotquad); \& $ipv6naddr = ipv6_aton($ipv6_text); \& $ipv6_text = ipv6_ntoa($ipv6naddr); \& $hex_text = ipv6_n2x($ipv6naddr); \& $dec_text = ipv6_n2d($ipv6naddr); \& $ipv6naddr = inet_any2n($dotquad or $ipv6_text); \& $dotquad or $hex_text = inet_n2dx($ipv6naddr); \& $dotquad or $dec_text = inet_n2ad($ipv6naddr); \& $netaddr = inet_pton($AF_family,$text_addr); \& $text_addr = inet_ntop($AF_family,$netaddr); \& $hex_text = packzeros($hex_text); \& $rv = isIPv4($bits128); \& $rv = isNewIPv4($bits128); \& $rv = isAnyIPv4($bits128); \& $constant = AF_INET(); \& $constant = AF_INET6(); \& $trueif = fake_AF_INET6(); \& $ip_filled = fillIPv4($shortIP); \& \& NetAddr::IP::InetBase::lower(); \& NetAddr::IP::InetBase::upper(); .Ve .SH "INSTALLATION" .IX Header "INSTALLATION" Un-tar the distribution in an appropriate directory and type: .PP .Vb 4 \& perl Makefile.PL \& make \& make test \& make install .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" \&\fBNetAddr::IP::InetBase\fR provides a suite network of conversion functions written in pure Perl for converting both IPv4 and IPv6 addresses to and from network address format and text format. .PP The IPv6 functions support all rfc1884 formats. .PP .Vb 5 \& i.e. x:x:x:x:x:x:x:x:x \& x:x:x:x:x:x:x:d.d.d.d \& ::x:x:x \& ::x:d.d.d.d \& and so on... .Ve .IP "\(bu" 4 \&\f(CW$dotquad\fR = inet_ntoa($netaddr); .Sp Convert a packed IPv4 network address to a dot-quad \s-1IP\s0 address. .Sp .Vb 2 \& input: packed network address \& returns: IP address i.e. 10.4.12.123 .Ve .IP "\(bu" 4 \&\f(CW$netaddr\fR = inet_aton($dotquad); .Sp Convert a dot-quad \s-1IP\s0 address into an IPv4 packed network address. .Sp .Vb 2 \& input: IP address i.e. 192.5.16.32 \& returns: packed network address .Ve .IP "\(bu" 4 \&\f(CW$ipv6addr\fR = ipv6_aton($ipv6_text); .Sp Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary \s-1RDATA\s0 string. .Sp .Vb 2 \& input: ipv6 text \& returns: 128 bit RDATA string .Ve .IP "\(bu" 4 \&\f(CW$ipv6text\fR = ipv6_ntoa($ipv6naddr); .Sp Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. .Sp .Vb 2 \& input: 128 bit RDATA string \& returns: ipv6 text .Ve .IP "\(bu" 4 \&\f(CW$hex_text\fR = ipv6_n2x($ipv6addr); .Sp Takes an IPv6 \s-1RDATA\s0 string and returns an 8 segment IPv6 hex address .Sp .Vb 2 \& input: 128 bit RDATA string \& returns: x:x:x:x:x:x:x:x \& \& Note: this function does NOT compress adjacent \& strings of 0:0:0:0 into the :: format .Ve .IP "\(bu" 4 \&\f(CW$dec_text\fR = ipv6_n2d($ipv6addr); .Sp Takes an IPv6 \s-1RDATA\s0 string and returns a mixed hex \- decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. .Sp .Vb 2 \& input: 128 bit RDATA string \& returns: x:x:x:x:x:x:d.d.d.d \& \& Note: this function does NOT compress adjacent \& strings of 0:0:0:0 into the :: format .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = inet_any2n($dotquad or \f(CW$ipv6_text\fR); .Sp This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to \fBipv6_aton\fR. .Sp .Vb 2 \& input: dot\-quad or rfc1844 address \& returns: 128 bit IPv6 string .Ve .IP "\(bu" 4 \&\f(CW$dotquad\fR or \f(CW$hex_text\fR = inet_n2dx($ipv6naddr); .Sp This function \fBdoes the right thing\fR and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. .Sp .Vb 3 \& input: 128 bit IPv6 string \& returns: ddd.ddd.ddd.ddd \& or x:x:x:x:x:x:x:x \& \& Note: this function does NOT compress adjacent \& strings of 0:0:0:0 into the :: format .Ve .IP "\(bu" 4 \&\f(CW$dotquad\fR or \f(CW$dec_text\fR = inet_n2ad($ipv6naddr); .Sp This function \fBdoes the right thing\fR and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. .Sp .Vb 3 \& input: 128 bit IPv6 string \& returns: ddd.ddd.ddd.ddd \& or x:x:x:x:x:x:ddd.ddd.ddd.dd \& \& Note: this function does NOT compress adjacent \& strings of 0:0:0:0 into the :: format .Ve .IP "\(bu" 4 \&\f(CW$netaddr\fR = inet_pton($AF_family,$text_addr); .Sp This function takes an \s-1IP\s0 address in IPv4 or IPv6 text format and converts it into binary format. The type of \s-1IP\s0 address conversion is controlled by the \s-1FAMILY\s0 argument. .Sp \&\s-1NOTE:\s0 inet_pton, inet_ntop and \s-1AF_INET6\s0 come from the Socket6 library if it is present on this host. .IP "\(bu" 4 \&\f(CW$text_addr\fR = inet_ntop($AF_family,$netaddr); .Sp This function takes and \s-1IP\s0 address in binary format and converts it into text format. The type of \s-1IP\s0 address conversion is controlled by the \s-1FAMILY\s0 argument. .Sp \&\s-1NOTE:\s0 inet_ntop \s-1ALWAYS\s0 returns lowercase characters. .Sp \&\s-1NOTE:\s0 inet_pton, inet_ntop and \s-1AF_INET6\s0 come from the Socket6 library if it is present on this host. .IP "\(bu" 4 \&\f(CW$hex_text\fR = packzeros($hex_text); .Sp This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting \&\fB::\fR for the first occurence of the longest string of zeros in the address. .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = ipv4to6($netaddr); .Sp Convert an ipv4 network address into an ipv6 network address. .Sp .Vb 2 \& input: 32 bit network address \& returns: 128 bit network address .Ve .IP "\(bu" 4 \&\f(CW$rv\fR = isIPv4($bits128); .Sp This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. .Sp .Vb 1 \& i.e. the address must be of the form \- ::d.d.d.d .Ve .Sp Note: this is an old and deprecated ipV4 compatible ipV6 address .IP "\(bu" 4 \&\f(CW$rv\fR = isNewIPv4($bits128); .Sp This function return true if the IPv6 128 bit string is of the form .Sp .Vb 1 \& ::ffff:d.d.d.d .Ve .IP "\(bu" 4 \&\f(CW$rv\fR = isAnyIPv4($bits128); .Sp This function return true if the IPv6 bit string is of the form .Sp .Vb 1 \& ::d.d.d.d or ::ffff:d.d.d.d .Ve .IP "\(bu" 4 \&\fBNetAddr::IP::InetBase::lower()\fR; .Sp Return IPv6 strings in lowercase. This is the default. .IP "\(bu" 4 \&\fBNetAddr::IP::InetBase::upper()\fR; .Sp Return IPv6 strings in uppercase. .Sp The default may be set to uppercase when the module is loaded by invoking the \s-1TAG\s0 :upper. i.e. .Sp .Vb 1 \& use NetAddr::IP::InetBase qw( :upper ); .Ve .IP "\(bu" 4 \&\f(CW$constant\fR = \s-1AF_INET\s0; .Sp This function returns the system value for \s-1AF_INET.\s0 .IP "\(bu" 4 \&\f(CW$constant\fR = \s-1AF_INET6\s0; .Sp \&\s-1AF_INET6\s0 is sometimes present in the Socket library and always present in the Socket6 library. When the Socket library does not contain \s-1AF_INET6\s0 and when Socket6 is not present, a place holder value is \f(CW\*(C`guessed\*(C'\fR based on the underlying host operating system. See \fBfake_AF_INET6\fR below. .Sp \&\s-1NOTE:\s0 inet_pton, inet_ntop and \s-1AF_INET6\s0 come from the Socket6 library if it is present on this host. .IP "\(bu" 4 \&\f(CW$trueif\fR = fake_AF_INET6; .Sp This function return \s-1FALSE\s0 if \s-1AF_INET6\s0 is provided by Socket or Socket6. Otherwise, it returns the best guess value based on name of the host operating system. .IP "\(bu" 4 \&\f(CW$ip_filled\fR = fillIPv4($shortIP); .Sp This function converts IPv4 addresses of the form 127.1 to the long form 127.0.0.1 .Sp If the function is passed an argument that does not match the form of an \s-1IP\s0 address, the original argument is returned. i.e. pass it a hostname or a short \s-1IP\s0 and it will return a hostname or a filled \s-1IP.\s0 .SH "EXPORT_OK" .IX Header "EXPORT_OK" .Vb 10 \& :upper \& inet_aton \& inet_ntoa \& ipv6_aton \& ipv6_ntoa \& ipv6_n2x \& ipv6_n2d \& inet_any2n \& inet_n2dx \& inet_n2ad \& inet_pton \& inet_ntop \& packzeros \& isIPv4 \& isNewIPv4 \& isAnyIPv4 \& AF_INET \& AF_INET6 \& fake_AF_INET6 \& fillIPv4 .Ve .ie n .SH "%EXPORT_TAGS" .el .SH "\f(CW%EXPORT_TAGS\fP" .IX Header "%EXPORT_TAGS" .Vb 4 \& :all \& :ipv4 \& :ipv6 \& :upper .Ve .SH "AUTHOR" .IX Header "AUTHOR" Michael Robinton <michael@bizsystems.com> .SH "COPYRIGHT" .IX Header "COPYRIGHT" Copyright 2003 \- 2012, Michael Robinton <michael@bizsystems.com> .PP All rights reserved. .PP This program is free software; you can redistribute it and/or modify it under the terms of either: .PP .Vb 3 \& a) the GNU General Public License as published by the Free \& Software Foundation; either version 2, or (at your option) any \& later version, or \& \& b) the "Artistic License" which comes with this distribution. .Ve .PP This program is distributed in the hope that it will be useful, but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \&\s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0 See either the \s-1GNU\s0 General Public License or the Artistic License for more details. .PP You should have received a copy of the Artistic License with this distribution, in the file named \*(L"Artistic\*(R". If not, I'll be glad to provide one. .PP You should also have received a copy of the \s-1GNU\s0 General Public License along with this program in the file named \*(L"Copying\*(R". If not, write to the .PP .Vb 3 \& Free Software Foundation, Inc., \& 51 Franklin Street, Fifth Floor \& Boston, MA 02110\-1301 USA .Ve .PP or visit their web page on the internet at: .PP .Vb 1 \& http://www.gnu.org/copyleft/gpl.html. .Ve .SH "AUTHOR" .IX Header "AUTHOR" Michael Robinton <michael@bizsystems.com> .SH "SEE ALSO" .IX Header "SEE ALSO" \&\fBNetAddr::IP\fR\|(3), \fBNetAddr::IP::Lite\fR\|(3), \fBNetAddr::IP::Util\fR\|(3) blib/man3/NetAddr::IP::Util.3pm 0000644 00000053343 15043770025 0011726 0 ustar 00 .\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "Util 3" .TH Util 3 "2015-08-17" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" NetAddr::IP::Util \-\- IPv4/6 and 128 bit number utilities .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 10 \& use NetAddr::IP::Util qw( \& inet_aton \& inet_ntoa \& ipv6_aton \& ipv6_ntoa \& ipv6_n2x \& ipv6_n2d \& inet_any2n \& hasbits \& isIPv4 \& isNewIPv4 \& isAnyIPv4 \& inet_n2dx \& inet_n2ad \& inet_pton \& inet_ntop \& inet_4map6 \& ipv4to6 \& mask4to6 \& ipanyto6 \& maskanyto6 \& ipv6to4 \& packzeros \& shiftleft \& addconst \& add128 \& sub128 \& notcontiguous \& bin2bcd \& bcd2bin \& mode \& AF_INET \& AF_INET6 \& naip_gethostbyname \& ); \& \& use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) \& \& :inet => inet_aton, inet_ntoa, ipv6_aton \& ipv6_ntoa, ipv6_n2x, ipv6_n2d, \& inet_any2n, inet_n2dx, inet_n2ad, \& inet_pton, inet_ntop, inet_4map6, \& ipv4to6, mask4to6, ipanyto6, packzeros \& maskanyto6, ipv6to4, naip_gethostbyname \& \& :ipv4 => inet_aton, inet_ntoa \& \& :ipv6 => ipv6_aton, ipv6_ntoa, ipv6_n2x, \& ipv6_n2d, inet_any2n, inet_n2dx, \& inet_n2ad, inet_pton, inet_ntop, \& inet_4map6, ipv4to6, mask4to6, \& ipanyto6, maskanyto6, ipv6to4, \& packzeros, naip_gethostbyname \& \& :math => hasbits, isIPv4, isNewIPv4, isAnyIPv4, \& addconst, add128, sub128, notcontiguous, \& bin2bcd, bcd2bin, shiftleft \& \& $dotquad = inet_ntoa($netaddr); \& $netaddr = inet_aton($dotquad); \& $ipv6naddr = ipv6_aton($ipv6_text); \& $ipv6_text = ipvt_ntoa($ipv6naddr); \& $hex_text = ipv6_n2x($ipv6naddr); \& $dec_text = ipv6_n2d($ipv6naddr); \& $hex_text = packzeros($hex_text); \& $ipv6naddr = inet_any2n($dotquad or $ipv6_text); \& $ipv6naddr = inet_4map6($netaddr or $ipv6naddr); \& $rv = hasbits($bits128); \& $rv = isIPv4($bits128); \& $rv = isNewIPv4($bits128); \& $rv = isAnyIPv4($bits128); \& $dotquad or $hex_text = inet_n2dx($ipv6naddr); \& $dotquad or $dec_text = inet_n2ad($ipv6naddr); \& $netaddr = inet_pton($AF_family,$hex_text); \& $hex_text = inet_ntop($AF_family,$netaddr); \& $ipv6naddr = ipv4to6($netaddr); \& $ipv6naddr = mask4to6($netaddr); \& $ipv6naddr = ipanyto6($netaddr); \& $ipv6naddr = maskanyto6($netaddr); \& $netaddr = ipv6to4($pv6naddr); \& $bitsX2 = shiftleft($bits128,$n); \& $carry = addconst($ipv6naddr,$signed_32con); \& ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); \& $carry = add128($ipv6naddr1,$ipv6naddr2); \& ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); \& $carry = sub128($ipv6naddr1,$ipv6naddr2); \& ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); \& ($spurious,$cidr) = notcontiguous($mask128); \& $bcdtext = bin2bcd($bits128); \& $bits128 = bcd2bin($bcdtxt); \& $modetext = mode; \& ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); \& $trueif = havegethostbyname2(); \& \& NetAddr::IP::Util::lower(); \& NetAddr::IP::Util::upper(); .Ve .SH "INSTALLATION" .IX Header "INSTALLATION" Un-tar the distribution in an appropriate directory and type: .PP .Vb 4 \& perl Makefile.PL \& make \& make test \& make install .Ve .PP \&\fBNetAddr::IP::Util\fR installs by default with its primary functions compiled using Perl's \s-1XS\s0 extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: .PP .Vb 4 \& perl Makefile.PL \-noxs \& make \& make test \& make install .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" \&\fBNetAddr::IP::Util\fR provides a suite of tools for manipulating and converting IPv4 and IPv6 addresses into 128 bit string context and back to text. The strings can be manipulated with Perl's logical operators: .PP .Vb 4 \& and & \& or | \& xor ^ \& ~ compliment .Ve .PP in the same manner as 'vec' strings. .PP The IPv6 functions support all rfc1884 formats. .PP .Vb 5 \& i.e. x:x:x:x:x:x:x:x:x \& x:x:x:x:x:x:x:d.d.d.d \& ::x:x:x \& ::x:d.d.d.d \& and so on... .Ve .IP "\(bu" 4 \&\f(CW$dotquad\fR = inet_ntoa($netaddr); .Sp Convert a packed IPv4 network address to a dot-quad \s-1IP\s0 address. .Sp .Vb 2 \& input: packed network address \& returns: IP address i.e. 10.4.12.123 .Ve .IP "\(bu" 4 \&\f(CW$netaddr\fR = inet_aton($dotquad); .Sp Convert a dot-quad \s-1IP\s0 address into an IPv4 packed network address. .Sp .Vb 2 \& input: IP address i.e. 192.5.16.32 \& returns: packed network address .Ve .IP "\(bu" 4 \&\f(CW$ipv6addr\fR = ipv6_aton($ipv6_text); .Sp Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary \s-1RDATA\s0 string. .Sp .Vb 2 \& input: ipv6 text \& returns: 128 bit RDATA string .Ve .IP "\(bu" 4 \&\f(CW$ipv6_text\fR = ipv6_ntoa($ipv6naddr); .Sp Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. .Sp .Vb 2 \& input: 128 bit RDATA string \& returns: ipv6 text .Ve .IP "\(bu" 4 \&\f(CW$hex_text\fR = ipv6_n2x($ipv6addr); .Sp Takes an IPv6 \s-1RDATA\s0 string and returns an 8 segment IPv6 hex address .Sp .Vb 2 \& input: 128 bit RDATA string \& returns: x:x:x:x:x:x:x:x .Ve .IP "\(bu" 4 \&\f(CW$dec_text\fR = ipv6_n2d($ipv6addr); .Sp Takes an IPv6 \s-1RDATA\s0 string and returns a mixed hex \- decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. .Sp .Vb 2 \& input: 128 bit RDATA string \& returns: x:x:x:x:x:x:d.d.d.d .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = inet_any2n($dotquad or \f(CW$ipv6_text\fR); .Sp This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to \fBipv6_aton\fR. .Sp .Vb 2 \& input: dot\-quad or rfc1844 address \& returns: 128 bit IPv6 string .Ve .IP "\(bu" 4 \&\f(CW$rv\fR = hasbits($bits128); .Sp This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. .Sp .Vb 3 \& i.e. if (hasbits($bits128)) { \& &do_something; \& } \& \& or if (hasbits($bits128 & $mask128) { \& &do_something; \& } .Ve .Sp This allows the implementation of logical functions of the form of: .Sp .Vb 2 \& if ($bits128 & $mask128) { \& ... \& \& input: 128 bit IPv6 string \& returns: true if any bits are present .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = inet_4map6($netaddr or \f(CW$ipv6naddr\fR .Sp This function returns an ipV6 network address with the first 80 bits set to zero and the next 16 bits set to one, while the last 32 bits are filled with the ipV4 address. .Sp .Vb 3 \& input: ipV4 netaddr \& or ipV6 netaddr \& returns: ipV6 netaddr \& \& returns: undef on error .Ve .Sp An ipV6 network address must be in one of the two compatible ipV4 mapped address spaces. i.e. .Sp .Vb 1 \& ::ffff::d.d.d.d or ::d.d.d.d .Ve .IP "\(bu" 4 \&\f(CW$rv\fR = isIPv4($bits128); .Sp This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. .Sp .Vb 1 \& i.e. the address must be of the form \- ::d.d.d.d .Ve .Sp Note: this is an old and deprecated ipV4 compatible ipV6 address .IP "\(bu" 4 \&\f(CW$rv\fR = isNewIPv4($bits128); .Sp This function return true if the IPv6 128 bit string is of the form .Sp .Vb 1 \& ::ffff::d.d.d.d .Ve .IP "\(bu" 4 \&\f(CW$rv\fR = isAnyIPv4($bits128); .Sp This function return true if the IPv6 bit string is of the form .Sp .Vb 1 \& ::d.d.d.d or ::ffff::d.d.d.d .Ve .IP "\(bu" 4 \&\f(CW$dotquad\fR or \f(CW$hex_text\fR = inet_n2dx($ipv6naddr); .Sp This function \fBdoes the right thing\fR and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. .Sp .Vb 3 \& input: 128 bit IPv6 string \& returns: ddd.ddd.ddd.ddd \& or x:x:x:x:x:x:x:x .Ve .IP "\(bu" 4 \&\f(CW$dotquad\fR or \f(CW$dec_text\fR = inet_n2ad($ipv6naddr); .Sp This function \fBdoes the right thing\fR and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. .Sp .Vb 3 \& input: 128 bit IPv6 string \& returns: ddd.ddd.ddd.ddd \& or x:x:x:x:x:x:ddd.ddd.ddd.dd .Ve .IP "\(bu" 4 \&\f(CW$netaddr\fR = inet_pton($AF_family,$hex_text); .Sp This function takes an \s-1IP\s0 address in IPv4 or IPv6 text format and converts it into binary format. The type of \s-1IP\s0 address conversion is controlled by the \s-1FAMILY\s0 argument. .IP "\(bu" 4 \&\f(CW$hex_text\fR = inet_ntop($AF_family,$netaddr); .Sp This function takes and \s-1IP\s0 address in binary format and converts it into text format. The type of \s-1IP\s0 address conversion is controlled by the \s-1FAMILY\s0 argument. .Sp \&\s-1NOTE:\s0 inet_ntop \s-1ALWAYS\s0 returns lowercase characters. .IP "\(bu" 4 \&\f(CW$hex_text\fR = packzeros($hex_text); .Sp This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting \&\fB::\fR for the first occurence of the longest string of zeros in the address. .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = ipv4to6($netaddr); .Sp Convert an ipv4 network address into an IPv6 network address. .Sp .Vb 2 \& input: 32 bit network address \& returns: 128 bit network address .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = mask4to6($netaddr); .Sp Convert an ipv4 network address/mask into an ipv6 network mask. .Sp .Vb 2 \& input: 32 bit network/mask address \& returns: 128 bit network/mask address .Ve .Sp \&\s-1NOTE:\s0 returns the high 96 bits as one's .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = ipanyto6($netaddr); .Sp Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. .Sp .Vb 2 \& input: 32 or 128 bit network address \& returns: 128 bit network address .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = maskanyto6($netaddr); .Sp Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. .Sp .Vb 2 \& input: 32 or 128 bit network mask \& returns: 128 bit network mask .Ve .IP "\(bu" 4 \&\f(CW$netaddr\fR = ipv6to4($pv6naddr); .Sp Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. .Sp .Vb 2 \& input: 128 bit network address \& returns: 32 bit inet_aton network address .Ve .IP "\(bu" 4 \&\f(CW$bitsXn\fR = shiftleft($bits128,$n); .Sp .Vb 3 \& input: 128 bit string variable, \& number of shifts [optional] \& returns: bits X n shifts \& \& NOTE: a single shift is performed \& if $n is not specified .Ve .IP "\(bu" 4 addconst($ipv6naddr,$signed_32con); .Sp Add a signed constant to a 128 bit string variable. .Sp .Vb 4 \& input: 128 bit IPv6 string, \& signed 32 bit integer \& returns: scalar carry \& array (carry, result) .Ve .IP "\(bu" 4 add128($ipv6naddr1,$ipv6naddr2); .Sp Add two 128 bit string variables. .Sp .Vb 4 \& input: 128 bit string var1, \& 128 bit string var2 \& returns: scalar carry \& array (carry, result) .Ve .IP "\(bu" 4 sub128($ipv6naddr1,$ipv6naddr2); .Sp Subtract two 128 bit string variables. .Sp .Vb 4 \& input: 128 bit string var1, \& 128 bit string var2 \& returns: scalar carry \& array (carry, result) .Ve .Sp Note: The carry from this operation is the result of adding the one's complement of \s-1ARG2 +1\s0 to the \s-1ARG1.\s0 It is logically \&\fB\s-1NOT\s0 borrow\fR. .Sp .Vb 2 \& i.e. if ARG1 >= ARG2 then carry = 1 \& or if ARG1 < ARG2 then carry = 0 .Ve .IP "\(bu" 4 ($spurious,$cidr) = notcontiguous($mask128); .Sp This function counts the bit positions remaining in the mask when the rightmost '0's are removed. .Sp .Vb 6 \& input: 128 bit netmask \& returns true if there are spurious \& zero bits remaining in the \& mask, false if the mask is \& contiguous one\*(Aqs, \& 128 bit cidr number .Ve .IP "\(bu" 4 \&\f(CW$bcdtext\fR = bin2bcd($bits128); .Sp Convert a 128 bit binary string into binary coded decimal text digits. .Sp .Vb 2 \& input: 128 bit string variable \& returns: string of bcd text digits .Ve .IP "\(bu" 4 \&\f(CW$bits128\fR = bcd2bin($bcdtxt); .Sp Convert a bcd text string to 128 bit string variable .Sp .Vb 2 \& input: string of bcd text digits \& returns: 128 bit string variable .Ve .IP "\(bu" 4 \&\f(CW$modetext\fR = mode; .Sp Returns the operating mode of this module. .Sp .Vb 3 \& input: none \& returns: "Pure Perl" \& or "CC XS" .Ve .IP "\(bu" 4 ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(\s-1NAME\s0); .Sp Replacement for Perl's gethostbyname if Socket6 is available .Sp In \s-1ARRAY\s0 context, returns a list of five elements, the hostname or \s-1NAME,\s0 a space separated list of C_NAMES, \s-1AF\s0 family, length of the address structure, and an array of one or more netaddr's .Sp In \s-1SCALAR\s0 context, returns the first netaddr. .Sp This function \s-1ALWAYS\s0 returns an IPv6 address, even on IPv4 only systems. IPv4 addresses are mapped into IPv6 space in the form: .Sp .Vb 1 \& ::FFFF:FFFF:d.d.d.d .Ve .Sp This is \s-1NOT\s0 the expected result from Perl's gethostbyname2. It is instead equivalent to: .Sp .Vb 2 \& On an IPv4 only system: \& $ipv6naddr = ipv4to6 scalar ( gethostbyname( name )); \& \& On a system with Socket6 and a working gethostbyname2: \& $ipv6naddr = gethostbyname2( name, AF_INET6 ); \& and if that fails, the IPv4 conversion above. .Ve .Sp For a gethostbyname2 emulator that behave like Socket6, see: Net::DNS::Dig .IP "\(bu" 4 \&\f(CW$trueif\fR = \fBhavegethostbyname2()\fR; .Sp This function returns \s-1TRUE\s0 if Socket6 has a functioning \fBgethostbyname2\fR, otherwise it returns \s-1FALSE.\s0 See the comments above about the behavior of \&\fBnaip_gethostbyname\fR. .IP "\(bu" 4 \&\fBNetAddr::IP::Util::lower()\fR; .Sp Return IPv6 strings in lowercase. .IP "\(bu" 4 \&\fBNetAddr::IP::Util::upper()\fR; .Sp Return IPv6 strings in uppercase. This is the default. .SH "EXAMPLES" .IX Header "EXAMPLES" .Vb 4 \& # convert any textual IP address into a 128 bit vector \& # \& sub text2vec { \& my($anyIP,$anyMask) = @_; \& \& # not IPv4 bit mask \& my $notiv4 = ipv6_aton(\*(AqFFFF:FFFF:FFFF:FFFF:FFFF:FFFF::\*(Aq); \& \& my $vecip = inet_any2n($anyIP); \& my $mask = inet_any2n($anyMask); \& \& # extend mask bits for IPv4 \& my $bits = 128; # default \& unless (hasbits($mask & $notiv4)) { \& $mask |= $notiv4; \& $bits = 32; \& } \& return ($vecip, $mask, $bits); \& } \& \& ... alternate implementation, a little faster \& \& sub text2vec { \& my($anyIP,$anyMask) = @_; \& \& # not IPv4 bit mask \& my $notiv4 = ipv6_aton(\*(AqFFFF:FFFF:FFFF:FFFF:FFFF:FFFF::\*(Aq); \& \& my $vecip = inet_any2n($anyIP); \& my $mask = inet_any2n($anyMask); \& \& # extend mask bits for IPv4 \& my $bits = 128; # default \& if (isIPv4($mask)) { \& $mask |= $notiv4; \& $bits = 32; \& } \& return ($vecip, $mask, $bits); \& } \& \& \& ... elsewhere \& $nip = { \& addr => $vecip, \& mask => $mask, \& bits => $bits, \& }; \& \& # return network and broadcast addresses from IP and Mask \& # \& sub netbroad { \& my($nip) = shift; \& my $notmask = ~ $nip\->{mask}; \& my $bcast = $nip\->{addr} | $notmask; \& my $network = $nip\->{addr} & $nip\->{mask}; \& return ($network, $broadcast); \& } \& \& # check if address is within a network \& # \& sub within { \& my($nip,$net) = @_; \& my $addr = $nip\->{addr} \& my($nw,$bc) = netbroad($net); \& # arg1 >= arg2, sub128 returns true \& return (sub128($addr,$nw) && sub128($bc,$addr)) \& ? 1 : 0; \& } \& \& # truely hard way to do $ip++ \& # add a constant, wrapping at netblock boundaries \& # to subtract the constant, negate it before calling \& # \*(Aqaddwrap\*(Aq since \*(Aqaddconst\*(Aq will extend the sign bits \& # \& sub addwrap { \& my($nip,$const) = @_; \& my $addr = $nip\->{addr}; \& my $mask = $nip\->{mask}; \& my $bits = $nip\->{bits}; \& my $notmask = ~ $mask; \& my $hibits = $addr & $mask; \& $addr = addconst($addr,$const); \& my $wraponly = $addr & $notmask; \& my $newip = { \& addr => $hibits | $wraponly, \& mask => $mask, \& bits => $bits, \& }; \& # bless $newip as appropriate \& return $newip; \& } \& \& # something more useful \& # increment a /24 net to the NEXT net at the boundry \& \& my $nextnet = 256; # for /24 \& LOOP: \& while (...continuing) { \& your code.... \& ... \& my $lastip = $ip\-copy(); \& $ip++; \& if ($ip < $lastip) { # host part wrapped? \& # discard carry \& (undef, $ip\->{addr} = addconst($ip\->{addr}, $nextnet); \& } \& next LOOP; \& } .Ve .SH "EXPORT_OK" .IX Header "EXPORT_OK" .Vb 10 \& inet_aton \& inet_ntoa \& ipv6_aton \& ipv6_ntoa \& ipv6_n2x \& ipv6_n2d \& inet_any2n \& hasbits \& isIPv4 \& isNewIPv4 \& isAnyIPv4 \& inet_n2dx \& inet_n2ad \& inet_pton \& inet_ntop \& inet_4map6 \& ipv4to6 \& mask4to6 \& ipanyto6 \& maskanyto6 \& ipv6to4 \& packzeros \& shiftleft \& addconst \& add128 \& sub128 \& notcontiguous \& bin2bcd \& bcd2bin \& mode \& naip_gethostbyname \& havegethostbyname2 .Ve .SH "AUTHOR" .IX Header "AUTHOR" Michael Robinton <michael@bizsystems.com> .SH "COPYRIGHT" .IX Header "COPYRIGHT" Copyright 2003 \- 2014, Michael Robinton <michael@bizsystems.com> .PP All rights reserved. .PP This program is free software; you can redistribute it and/or modify it under the terms of either: .PP .Vb 3 \& a) the GNU General Public License as published by the Free \& Software Foundation; either version 2, or (at your option) any \& later version, or \& \& b) the "Artistic License" which comes with this distribution. .Ve .PP This program is distributed in the hope that it will be useful, but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \&\s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0 See either the \s-1GNU\s0 General Public License or the Artistic License for more details. .PP You should have received a copy of the Artistic License with this distribution, in the file named \*(L"Artistic\*(R". If not, I'll be glad to provide one. .PP You should also have received a copy of the \s-1GNU\s0 General Public License along with this program in the file named \*(L"Copying\*(R". If not, write to the .PP .Vb 3 \& Free Software Foundation, Inc. \& 51 Franklin Street, Fifth Floor \& Boston, MA 02110\-1301 USA. .Ve .PP or visit their web page on the internet at: .PP .Vb 1 \& http://www.gnu.org/copyleft/gpl.html. .Ve .SH "AUTHOR" .IX Header "AUTHOR" Michael Robinton <michael@bizsystems.com> .SH "SEE ALSO" .IX Header "SEE ALSO" \&\fBNetAddr::IP\fR\|(3), \fBNetAddr::IP::Lite\fR\|(3), \fBNetAddr::IP::InetBase\fR\|(3) blib/man3/NetAddr::IP::UtilPP.3pm 0000644 00000022431 15043770025 0012160 0 ustar 00 .\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "NetAddr::IP::UtilPP 3" .TH NetAddr::IP::UtilPP 3 "2012-08-10" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" NetAddr::IP::UtilPP \-\- pure Perl functions for NetAddr::IP::Util .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 10 \& use NetAddr::IP::UtilPP qw( \& hasbits \& shiftleft \& addconst \& add128 \& sub128 \& notcontiguous \& ipv4to6 \& mask4to6 \& ipanyto6 \& maskanyto6 \& ipv6to4 \& bin2bcd \& bcd2bin \& ); \& \& use NetAddr::IP::UtilPP qw(:all) \& \& $rv = hasbits($bits128); \& $bitsX2 = shiftleft($bits128,$n); \& $carry = addconst($ipv6naddr,$signed_32con); \& ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); \& $carry = add128($ipv6naddr1,$ipv6naddr2); \& ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); \& $carry = sub128($ipv6naddr1,$ipv6naddr2); \& ($spurious,$cidr) = notcontiguous($mask128); \& ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); \& $ipv6naddr = ipv4to6($netaddr); \& $ipv6naddr = mask4to6($netaddr); \& $ipv6naddr = ipanyto6($netaddr); \& $ipv6naddr = maskanyto6($netaddr); \& $netaddr = ipv6to4($pv6naddr); \& $bcdtext = bin2bcd($bits128); \& $bits128 = bcd2bin($bcdtxt); .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" \&\fBNetAddr::IP::UtilPP\fR provides pure Perl functions for \fBNetAddr::IP::Util\fR .IP "\(bu" 4 \&\f(CW$rv\fR = hasbits($bits128); .Sp This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. .Sp .Vb 3 \& i.e. if (hasbits($bits128)) { \& &do_something; \& } \& \& or if (hasbits($bits128 & $mask128) { \& &do_something; \& } .Ve .Sp This allows the implementation of logical functions of the form of: .Sp .Vb 2 \& if ($bits128 & $mask128) { \& ... \& \& input: 128 bit IPv6 string \& returns: true if any bits are present .Ve .IP "\(bu" 4 \&\f(CW$bitsXn\fR = shiftleft($bits128,$n); .Sp .Vb 3 \& input: 128 bit string variable, \& number of shifts [optional] \& returns: bits X n shifts \& \& NOTE: input bits are returned \& if $n is not specified .Ve .IP "\(bu" 4 addconst($ipv6naddr,$signed_32con); .Sp Add a signed constant to a 128 bit string variable. .Sp .Vb 4 \& input: 128 bit IPv6 string, \& signed 32 bit integer \& returns: scalar carry \& array (carry, result) .Ve .IP "\(bu" 4 add128($ipv6naddr1,$ipv6naddr2); .Sp Add two 128 bit string variables. .Sp .Vb 4 \& input: 128 bit string var1, \& 128 bit string var2 \& returns: scalar carry \& array (carry, result) .Ve .IP "\(bu" 4 sub128($ipv6naddr1,$ipv6naddr2); .Sp Subtract two 128 bit string variables. .Sp .Vb 4 \& input: 128 bit string var1, \& 128 bit string var2 \& returns: scalar carry \& array (carry, result) .Ve .Sp Note: The carry from this operation is the result of adding the one's complement of \s-1ARG2 +1\s0 to the \s-1ARG1.\s0 It is logically \&\fB\s-1NOT\s0 borrow\fR. .Sp .Vb 2 \& i.e. if ARG1 >= ARG2 then carry = 1 \& or if ARG1 < ARG2 then carry = 0 .Ve .IP "\(bu" 4 ($spurious,$cidr) = notcontiguous($mask128); .Sp This function counts the bit positions remaining in the mask when the rightmost '0's are removed. .Sp .Vb 6 \& input: 128 bit netmask \& returns true if there are spurious \& zero bits remaining in the \& mask, false if the mask is \& contiguous one\*(Aqs, \& 128 bit cidr .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = ipv4to6($netaddr); .Sp Convert an ipv4 network address into an ipv6 network address. .Sp .Vb 2 \& input: 32 bit network address \& returns: 128 bit network address .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = mask4to6($netaddr); .Sp Convert an ipv4 netowrk address into an ipv6 network mask. .Sp .Vb 2 \& input: 32 bit network/mask address \& returns: 128 bit network/mask address .Ve .Sp \&\s-1NOTE:\s0 returns the high 96 bits as one's .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = ipanyto6($netaddr); .Sp Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. .Sp .Vb 2 \& input: 32 or 128 bit network address \& returns: 128 bit network address .Ve .IP "\(bu" 4 \&\f(CW$ipv6naddr\fR = maskanyto6($netaddr); .Sp Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. .Sp .Vb 2 \& input: 32 or 128 bit network mask \& returns: 128 bit network mask .Ve .IP "\(bu" 4 \&\f(CW$netaddr\fR = ipv6to4($pv6naddr); .Sp Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. .Sp .Vb 2 \& input: 128 bit network address \& returns: 32 bit inet_aton network address .Ve .IP "\(bu" 4 \&\f(CW$bcdtext\fR = bin2bcd($bits128); .Sp Convert a 128 bit binary string into binary coded decimal text digits. .Sp .Vb 2 \& input: 128 bit string variable \& returns: string of bcd text digits .Ve .IP "\(bu" 4 \&\f(CW$bits128\fR = bcd2bin($bcdtxt); .Sp Convert a bcd text string to 128 bit string variable .Sp .Vb 2 \& input: string of bcd text digits \& returns: 128 bit string variable .Ve .SH "EXPORT_OK" .IX Header "EXPORT_OK" .Vb 10 \& hasbits \& shiftleft \& addconst \& add128 \& sub128 \& notcontiguous \& ipv4to6 \& mask4to6 \& ipanyto6 \& maskanyto6 \& ipv6to4 \& bin2bcd \& bcd2bin \& comp128 \& bin2bcdn \& bcdn2txt \& bcdn2bin \& simple_pack \& threads .Ve .SH "AUTHOR" .IX Header "AUTHOR" Michael Robinton <michael@bizsystems.com> .SH "COPYRIGHT" .IX Header "COPYRIGHT" Copyright 2003 \- 2012, Michael Robinton <michael@bizsystems.com> .PP All rights reserved. .PP This program is free software; you can redistribute it and/or modify it under the terms of either: .PP .Vb 3 \& a) the GNU General Public License as published by the Free \& Software Foundation; either version 2, or (at your option) any \& later version, or \& \& b) the "Artistic License" which comes with this distribution. .Ve .PP This program is distributed in the hope that it will be useful, but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \&\s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0 See either the \s-1GNU\s0 General Public License or the Artistic License for more details. .PP You should have received a copy of the Artistic License with this distribution, in the file named \*(L"Artistic\*(R". If not, I'll be glad to provide one. .PP You should also have received a copy of the \s-1GNU\s0 General Public License along with this program in the file named \*(L"Copying\*(R". If not, write to the .PP .Vb 3 \& Free Software Foundation, Inc., \& 51 Franklin Street, Fifth Floor \& Boston, MA 02110\-1301 USA .Ve .PP or visit their web page on the internet at: .PP .Vb 1 \& http://www.gnu.org/copyleft/gpl.html. .Ve .SH "AUTHOR" .IX Header "AUTHOR" Michael Robinton <michael@bizsystems.com> blib/man3/NetAddr::IP.3pm 0000644 00000110616 15043770025 0010701 0 ustar 00 .\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "IP 3" .TH IP 3 "2016-03-26" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" NetAddr::IP \- Manages IPv4 and IPv6 addresses and subnets .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 10 \& use NetAddr::IP qw( \& Compact \& Coalesce \& Zeros \& Ones \& V4mask \& V4net \& netlimit \& :aton DEPRECATED \& :lower \& :upper \& :old_storable \& :old_nth \& :rfc3021 \& :nofqdn \& ); \& \& NOTE: NetAddr::IP::Util has a full complement of network address \& utilities to convert back and forth between binary and text. \& \& inet_aton, inet_ntoa, ipv6_aton, ipv6_ntoa \& ipv6_n2x, ipv6_n2d inet_any2d, inet_n2dx, \& inet_n2ad, inetanyto6, ipv6to4 .Ve .PP See NetAddr::IP::Util .PP .Vb 7 \& my $ip = new NetAddr::IP \*(Aq127.0.0.1\*(Aq; \& or if you prefer \& my $ip = NetAddr::IP\->new(\*(Aq127.0.0.1); \& or from a packed IPv4 address \& my $ip = new_from_aton NetAddr::IP (inet_aton(\*(Aq127.0.0.1\*(Aq)); \& or from an octal filtered IPv4 address \& my $ip = new_no NetAddr::IP \*(Aq127.012.0.0\*(Aq; \& \& print "The address is ", $ip\->addr, " with mask ", $ip\->mask, "\en" ; \& \& if ($ip\->within(new NetAddr::IP "127.0.0.0", "255.0.0.0")) { \& print "Is a loopback address\en"; \& } \& \& # This prints 127.0.0.1/32 \& print "You can also say $ip...\en"; .Ve .PP * The following four functions return ipV6 representations of: .PP .Vb 4 \& :: = Zeros(); \& FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); \& FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); \& ::FFFF:FFFF = V4net(); \& \& Will also return an ipV4 or ipV6 representation of a \& resolvable Fully Qualified Domanin Name (FQDN). .Ve .PP ###### \s-1DEPRECATED,\s0 will be remove in version 5 ############ .PP .Vb 2 \& * To accept addresses in the format as returned by \& inet_aton, invoke the module as: \& \& use NetAddr::IP qw(:aton); .Ve .PP ###### \s-1USE\s0 new_from_aton instead ########################## .PP * To enable usage of legacy data files containing NetAddr::IP objects stored using the Storable module. .PP .Vb 1 \& use NetAddr::IP qw(:old_storable); .Ve .PP * To compact many smaller subnets (see: \f(CW\*(C`$me\->compact($addr1,$addr2,...)\*(C'\fR .PP .Vb 1 \& @compacted_object_list = Compact(@object_list) .Ve .PP * Return a reference to list of \f(CW\*(C`NetAddr::IP\*(C'\fR subnets of \&\f(CW$masklen\fR mask length, when \f(CW$number\fR or more addresses from \&\f(CW@list_of_subnets\fR are found to be contained in said subnet. .PP .Vb 1 \& $arrayref = Coalesce($masklen, $number, @list_of_subnets) .Ve .PP * By default \fBNetAddr::IP\fR functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: .PP \&\s-1NOTE:\s0 the \s-1AUGUST 2010 RFC5952\s0 states: .PP .Vb 1 \& 4.3. Lowercase \& \& The characters "a", "b", "c", "d", "e", and "f" in an IPv6 \& address MUST be represented in lowercase. .Ve .PP It is recommended that all \s-1NEW\s0 applications using NetAddr::IP be invoked as shown on the next line. .PP .Vb 1 \& use NetAddr::IP qw(:lower); .Ve .PP * To ensure the current IPv6 string case behavior even if the default changes: .PP .Vb 1 \& use NetAddr::IP qw(:upper); .Ve .PP * To set a limit on the size of \fBnets\fR processed or returned by NetAddr::IP. .PP Set the maximum number of nets beyond which NetAddr::IP will return an error as a power of 2 (default 16 or 65536 nets). Each 2**16 consumes approximately 4 megs of memory. A 2**20 consumes 64 megs of memory, A 2**24 consumes 1 gigabyte of memory. .PP .Vb 2 \& use NetAddr::IP qw(netlimit); \& netlimit 20; .Ve .PP The maximum \fBnetlimit\fR allowed is 2**24. Attempts to set limits below the default of 16 or above the maximum of 24 are ignored. .PP Returns true on success, otherwise \f(CW\*(C`undef\*(C'\fR. .SH "INSTALLATION" .IX Header "INSTALLATION" Un-tar the distribution in an appropriate directory and type: .PP .Vb 4 \& perl Makefile.PL \& make \& make test \& make install .Ve .PP \&\fBNetAddr::IP\fR depends on \fBNetAddr::IP::Util\fR which installs by default with its primary functions compiled using Perl's \s-1XS\s0 extensions to build a C library. If you do not have a C complier available or would like the slower Pure Perl version for some other reason, then type: .PP .Vb 4 \& perl Makefile.PL \-noxs \& make \& make test \& make install .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" This module provides an object-oriented abstraction on top of \s-1IP\s0 addresses or \s-1IP\s0 subnets that allows for easy manipulations. Version 4.xx of NetAddr::IP will work with older versions of Perl and is compatible with Math::BigInt. .PP The internal representation of all \s-1IP\s0 objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. .SS "Overloaded Operators" .IX Subsection "Overloaded Operators" Many operators have been overloaded, as described below: .ie n .IP "\fBAssignment (\f(CB""=""\fB)\fR" 4 .el .IP "\fBAssignment (\f(CB=\fB)\fR" 4 .IX Item "Assignment (=)" Has been optimized to copy one NetAddr::IP object to another very quickly. .ie n .IP "\fB\f(CB""\->copy()""\fB\fR" 4 .el .IP "\fB\f(CB\->copy()\fB\fR" 4 .IX Item "->copy()" The \fBassignment (\f(CB\*(C`=\*(C'\fB)\fR operation is only put in to operation when the copied object is further mutated by another overloaded operation. See overload \fB\s-1SPECIAL SYMBOLS FOR\s0 \*(L"use overload\*(R"\fR for details. .Sp \&\fB\f(CB\*(C`\->copy()\*(C'\fB\fR actually creates a new object when called. .IP "\fBStringification\fR" 4 .IX Item "Stringification" An object can be used just as a string. For instance, the following code .Sp .Vb 2 \& my $ip = new NetAddr::IP \*(Aq192.168.1.123\*(Aq; \& print "$ip\en"; .Ve .Sp Will print the string 192.168.1.123/32. .IP "\fBEquality\fR" 4 .IX Item "Equality" You can test for equality with either \f(CW\*(C`eq\*(C'\fR or \f(CW\*(C`==\*(C'\fR. \f(CW\*(C`eq\*(C'\fR allows comparison with arbitrary strings as well as NetAddr::IP objects. The following example: .Sp .Vb 2 \& if (NetAddr::IP\->new(\*(Aq127.0.0.1\*(Aq,\*(Aq255.0.0.0\*(Aq) eq \*(Aq127.0.0.1/8\*(Aq) \& { print "Yes\en"; } .Ve .Sp will print out \*(L"Yes\*(R". .Sp Comparison with \f(CW\*(C`==\*(C'\fR requires both operands to be NetAddr::IP objects. .Sp In both cases, a true value is returned if the \s-1CIDR\s0 representation of the operands is equal. .ie n .IP "\fBComparison via >, <, >=, <=, <=> and \f(CB""cmp""\fB\fR" 4 .el .IP "\fBComparison via >, <, >=, <=, <=> and \f(CBcmp\fB\fR" 4 .IX Item "Comparison via >, <, >=, <=, <=> and cmp" Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the \s-1NUMERIC\s0 cidr portion of the masks are compared. This leads to the counterintuitive result that .Sp .Vb 1 \& /24 > /16 .Ve .Sp Comparison should not be done on netaddr objects with different \s-1CIDR\s0 as this may produce indeterminate \- unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing .Sp .Vb 1 \& $ip1\->masklen <=> $ip2\->masklen .Ve .ie n .IP "\fBAddition of a constant (\f(CB""+""\fB)\fR" 4 .el .IP "\fBAddition of a constant (\f(CB+\fB)\fR" 4 .IX Item "Addition of a constant (+)" Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: .Sp .Vb 1 \& print NetAddr::IP\->new(\*(Aq127.0.0.1/8\*(Aq) + 5; .Ve .Sp will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: .Sp .Vb 1 \& print NetAddr::IP\->new(\*(Aq10.0.0.1/24\*(Aq) + 255; \& \& outputs 10.0.0.0/24. .Ve .Sp Returns the the unchanged object when the constant is missing or out of range. .Sp .Vb 1 \& 2147483647 <= constant >= \-2147483648 .Ve .ie n .IP "\fBSubtraction of a constant (\f(CB""\-""\fB)\fR" 4 .el .IP "\fBSubtraction of a constant (\f(CB\-\fB)\fR" 4 .IX Item "Subtraction of a constant (-)" The complement of the addition of a constant. .ie n .IP "\fBDifference (\f(CB""\-""\fB)\fR" 4 .el .IP "\fBDifference (\f(CB\-\fB)\fR" 4 .IX Item "Difference (-)" Returns the difference between the address parts of two NetAddr::IP objects address parts as a 32 bit signed number. .Sp Returns \fBundef\fR if the difference is out of range. .Sp (See range restrictions on Addition above) .IP "\fBAuto-increment\fR" 4 .IX Item "Auto-increment" Auto-incrementing a NetAddr::IP object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. .IP "\fBAuto-decrement\fR" 4 .IX Item "Auto-decrement" Auto-decrementing a NetAddr::IP object performs exactly the opposite of auto-incrementing it, as you would expect. .SS "Serializing and Deserializing" .IX Subsection "Serializing and Deserializing" This module defines hooks to collaborate with Storable for serializing \f(CW\*(C`NetAddr::IP\*(C'\fR objects, through compact and human readable strings. You can revert to the old format by invoking this module as .PP .Vb 1 \& use NetAddr::IP \*(Aq:old_storable\*(Aq; .Ve .PP You must do this if you have legacy data files containing NetAddr::IP objects stored using the Storable module. .SS "Methods" .IX Subsection "Methods" .ie n .IP """\->new([$addr, [ $mask|IPv6 ]])""" 4 .el .IP "\f(CW\->new([$addr, [ $mask|IPv6 ]])\fR" 4 .IX Item "->new([$addr, [ $mask|IPv6 ]])" .PD 0 .ie n .IP """\->new6([$addr, [ $mask]])""" 4 .el .IP "\f(CW\->new6([$addr, [ $mask]])\fR" 4 .IX Item "->new6([$addr, [ $mask]])" .ie n .IP """\->new_no([$addr, [ $mask]])""" 4 .el .IP "\f(CW\->new_no([$addr, [ $mask]])\fR" 4 .IX Item "->new_no([$addr, [ $mask]])" .ie n .IP """\->new_from_aton($netaddr)""" 4 .el .IP "\f(CW\->new_from_aton($netaddr)\fR" 4 .IX Item "->new_from_aton($netaddr)" .IP "new_cis and new_cis6 are \s-1DEPRECATED\s0" 4 .IX Item "new_cis and new_cis6 are DEPRECATED" .ie n .IP """\->new_cis(""$addr $mask)""" 4 .el .IP "\f(CW\->new_cis(""$addr $mask)\fR" 4 .IX Item "->new_cis(""$addr $mask)" .ie n .IP """\->new_cis6(""$addr $mask)""" 4 .el .IP "\f(CW\->new_cis6(""$addr $mask)\fR" 4 .IX Item "->new_cis6(""$addr $mask)" .PD The first two methods create a new address with the supplied address in \&\f(CW$addr\fR and an optional netmask \f(CW$mask\fR, which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. .Sp The third method \f(CW\*(C`new_no\*(C'\fR is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. .Sp \&\fBnew_from_aton\fR takes a packed IPv4 address and assumes a /32 mask. This function replaces the \s-1DEPRECATED\s0 :aton functionality which is fundamentally broken. .Sp The last two methods \fBnew_cis\fR and \fBnew_cis6\fR differ from \fBnew\fR and \&\fBnew6\fR only in that they except the common Cisco address notation for address/mask pairs with a \fBspace\fR as a separator instead of a slash (/) .Sp These methods are \s-1DEPRECATED\s0 because the functionality is now included in the other \*(L"new\*(R" methods .Sp .Vb 3 \& i.e. \->new_cis(\*(Aq1.2.3.0 24\*(Aq) \& or \& \->new_cis6(\*(Aq::1.2.3.0 120\*(Aq) .Ve .Sp \&\f(CW\*(C`\->new6\*(C'\fR and \&\f(CW\*(C`\->new_cis6\*(C'\fR mark the address as being in ipV6 address space even if the format would suggest otherwise. .Sp .Vb 1 \& i.e. \->new6(\*(Aq1.2.3.4\*(Aq) will result in ::102:304 \& \& addresses submitted to \->new in ipV6 notation will \& remain in that notation permanently. i.e. \& \->new(\*(Aq::1.2.3.4\*(Aq) will result in ::102:304 \& whereas new(\*(Aq1.2.3.4\*(Aq) would print out as 1.2.3.4 \& \& See "STRINGIFICATION" below. .Ve .Sp \&\f(CW$addr\fR can be almost anything that can be resolved to an \s-1IP\s0 address in all the notations I have seen over time. It can optionally contain the mask in \s-1CIDR\s0 notation. .Sp \&\fBprefix\fR notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. .Sp Addresses in the same format returned by \f(CW\*(C`inet_aton\*(C'\fR or \&\f(CW\*(C`gethostbyname\*(C'\fR can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. .Sp To accept addresses in that format, invoke the module as in .Sp .Vb 1 \& use NetAddr::IP \*(Aq:aton\*(Aq .Ve .Sp If called with no arguments, 'default' is assumed. .Sp If called with an empty string as the argument, returns 'undef' .Sp \&\f(CW$addr\fR can be any of the following and possibly more... .Sp .Vb 11 \& n.n \& n.n/mm \& n.n.n \& n.n.n/mm \& n.n.n.n \& n.n.n.n/mm 32 bit cidr notation \& n.n.n.n/m.m.m.m \& loopback, localhost, broadcast, any, default \& x.x.x.x/host \& 0xABCDEF, 0b111111000101011110, (a bcd number) \& a netaddr as returned by \*(Aqinet_aton\*(Aq .Ve .Sp Any \s-1RFC1884\s0 notation .Sp .Vb 10 \& ::n.n.n.n \& ::n.n.n.n/mmm 128 bit cidr notation \& ::n.n.n.n/::m.m.m.m \& ::x:x \& ::x:x/mmm \& x:x:x:x:x:x:x:x \& x:x:x:x:x:x:x:x/mmm \& x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation \& loopback, localhost, unspecified, any, default \& ::x:x/host \& 0xABCDEF, 0b111111000101011110 within the limits \& of perl\*(Aqs number resolution \& 123456789012 a \*(Aqbig\*(Aq bcd number (bigger than perl likes) \& and Math::BigInt .Ve .Sp A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: .Sp .Vb 1 \& use NetAddr::IP::Lite \*(Aq:nofqdn\*(Aq; .Ve .Sp If called with no arguments, 'default' is assumed. .Sp If called with an empty string as the argument, returns 'undef' .ie n .IP """\->broadcast()""" 4 .el .IP "\f(CW\->broadcast()\fR" 4 .IX Item "->broadcast()" Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. .ie n .IP """\->network()""" 4 .el .IP "\f(CW\->network()\fR" 4 .IX Item "->network()" Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. .ie n .IP """\->addr()""" 4 .el .IP "\f(CW\->addr()\fR" 4 .IX Item "->addr()" Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP object to other components that expect an \s-1IP\s0 address. If the object is an ipV6 address or was created using \->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. .ie n .IP """\->mask()""" 4 .el .IP "\f(CW\->mask()\fR" 4 .IX Item "->mask()" Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. .ie n .IP """\->masklen()""" 4 .el .IP "\f(CW\->masklen()\fR" 4 .IX Item "->masklen()" Returns a scalar the number of one bits in the mask. .ie n .IP """\->bits()""" 4 .el .IP "\f(CW\->bits()\fR" 4 .IX Item "->bits()" Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. .ie n .IP """\->version()""" 4 .el .IP "\f(CW\->version()\fR" 4 .IX Item "->version()" Returns the version of the address or subnet. Currently this can be either 4 or 6. .ie n .IP """\->cidr()""" 4 .el .IP "\f(CW\->cidr()\fR" 4 .IX Item "->cidr()" Returns a scalar with the address and mask in \s-1CIDR\s0 notation. A NetAddr::IP object \fIstringifies\fR to the result of this function. (see comments about \->\fBnew6()\fR and \->\fBaddr()\fR for output formats) .ie n .IP """\->aton()""" 4 .el .IP "\f(CW\->aton()\fR" 4 .IX Item "->aton()" Returns the address part of the NetAddr::IP object in the same format as the \f(CW\*(C`inet_aton()\*(C'\fR or \f(CW\*(C`ipv6_aton\*(C'\fR function respectively. If the object was created using \->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. .ie n .IP """\->range()""" 4 .el .IP "\f(CW\->range()\fR" 4 .IX Item "->range()" Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. .ie n .IP """\->prefix()""" 4 .el .IP "\f(CW\->prefix()\fR" 4 .IX Item "->prefix()" Returns a scalar with the address and mask in ipV4 prefix representation. This is useful for some programs, which expect its input to be in this format. This method will include the broadcast address in the encoding. .ie n .IP """\->nprefix()""" 4 .el .IP "\f(CW\->nprefix()\fR" 4 .IX Item "->nprefix()" Just as \f(CW\*(C`\->prefix()\*(C'\fR, but does not include the broadcast address. .ie n .IP """\->numeric()""" 4 .el .IP "\f(CW\->numeric()\fR" 4 .IX Item "->numeric()" When called in a scalar context, will return a numeric representation of the address part of the \s-1IP\s0 address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. .Sp This method is essential for serializing the representation of a subnet. .ie n .IP """\->bigint()""" 4 .el .IP "\f(CW\->bigint()\fR" 4 .IX Item "->bigint()" When called in scalar context, will return a Math::BigInt representation of the address part of the \s-1IP\s0 address. When called in an array context, it returns a list of two elements, The first element is as described, the second element is the Math::BigInt representation of the netmask. .ie n .IP """\->wildcard()""" 4 .el .IP "\f(CW\->wildcard()\fR" 4 .IX Item "->wildcard()" When called in a scalar context, returns the wildcard bits corresponding to the mask, in dotted-quad or ipV6 format as applicable. .Sp When called in an array context, returns a two-element array. The first element, is the address part. The second element, is the wildcard translation of the mask. .ie n .IP """\->short()""" 4 .el .IP "\f(CW\->short()\fR" 4 .IX Item "->short()" Returns the address part in a short or compact notation. .Sp .Vb 1 \& (ie, 127.0.0.1 becomes 127.1). .Ve .Sp Works with both, V4 and V6. .ie n .IP """\->canon()""" 4 .el .IP "\f(CW\->canon()\fR" 4 .IX Item "->canon()" Returns the address part in canonical notation as a string. For ipV4, this is dotted quad, and is the same as the return value from \&\*(L"\->\fBaddr()\fR\*(R". For ipV6 it is as per \s-1RFC5952,\s0 and is the same as the \s-1LOWER CASE\s0 value returned by \*(L"\->\fBshort()\fR\*(R". .ie n .IP """\->full()""" 4 .el .IP "\f(CW\->full()\fR" 4 .IX Item "->full()" Returns the address part in \s-1FULL\s0 notation for ipV4 and ipV6 respectively. .Sp .Vb 2 \& i.e. for ipV4 \& 0000:0000:0000:0000:0000:0000:127.0.0.1 \& \& for ipV6 \& 0000:0000:0000:0000:0000:0000:0000:0000 .Ve .Sp To force ipV4 addresses into full ipV6 format use: .ie n .IP """\->full6()""" 4 .el .IP "\f(CW\->full6()\fR" 4 .IX Item "->full6()" Returns the address part in \s-1FULL\s0 ipV6 notation .ie n .IP """\->full6m()""" 4 .el .IP "\f(CW\->full6m()\fR" 4 .IX Item "->full6m()" Returns the mask part in \s-1FULL\s0 ipV6 notation .ie n .IP """$me\->contains($other)""" 4 .el .IP "\f(CW$me\->contains($other)\fR" 4 .IX Item "$me->contains($other)" Returns true when \f(CW$me\fR completely contains \f(CW$other\fR. False is returned otherwise and \f(CW\*(C`undef\*(C'\fR is returned if \f(CW$me\fR and \f(CW$other\fR are not both \f(CW\*(C`NetAddr::IP\*(C'\fR objects. .ie n .IP """$me\->within($other)""" 4 .el .IP "\f(CW$me\->within($other)\fR" 4 .IX Item "$me->within($other)" The complement of \f(CW\*(C`\->contains()\*(C'\fR. Returns true when \f(CW$me\fR is completely contained within \f(CW$other\fR. .Sp Note that \f(CW$me\fR and \f(CW$other\fR must be \f(CW\*(C`NetAddr::IP\*(C'\fR objects. .IP "C\->\fBis_rfc1918()\fR>" 4 .IX Item "C->is_rfc1918()>" Returns true when \f(CW$me\fR is an \s-1RFC 1918\s0 address. .Sp .Vb 3 \& 10.0.0.0 \- 10.255.255.255 (10/8 prefix) \& 172.16.0.0 \- 172.31.255.255 (172.16/12 prefix) \& 192.168.0.0 \- 192.168.255.255 (192.168/16 prefix) .Ve .ie n .IP """\->is_local()""" 4 .el .IP "\f(CW\->is_local()\fR" 4 .IX Item "->is_local()" Returns true when \f(CW$me\fR is a local network address. .Sp .Vb 2 \& i.e. ipV4 127.0.0.0 \- 127.255.255.255 \& or ipV6 === ::1 .Ve .ie n .IP """\->splitref($bits,[optional $bits1,$bits2,...])""" 4 .el .IP "\f(CW\->splitref($bits,[optional $bits1,$bits2,...])\fR" 4 .IX Item "->splitref($bits,[optional $bits1,$bits2,...])" Returns a reference to a list of objects, representing subnets of \f(CW\*(C`bits\*(C'\fR mask produced by splitting the original object, which is left unchanged. Note that \f(CW$bits\fR must be longer than the original mask in order for it to be splittable. .Sp \&\s-1ERROR\s0 conditions: .Sp .Vb 3 \& \->splitref will DIE with the message \*(Aqnetlimit exceeded\*(Aq \& if the number of return objects exceeds \*(Aqnetlimit\*(Aq. \& See function \*(Aqnetlimit\*(Aq above (default 2**16 or 65536 nets). \& \& \->splitref returns undef when C<bits> or the (bits list) \& will not fit within the original object. \& \& \->splitref returns undef if a supplied ipV4, ipV6, or NetAddr \& mask in inappropriately formatted, .Ve .Sp \&\fBbits\fR may be a \s-1CIDR\s0 mask, a dot quad or ipV6 string or a NetAddr::IP object. If \f(CW\*(C`bits\*(C'\fR is missing, the object is split for into all available addresses within the ipV4 or ipV6 object ( auto-mask of \s-1CIDR 32, 128\s0 respectively ). .Sp With optional additional \f(CW\*(C`bits\*(C'\fR list, the original object is split into parts sized based on the list. \s-1NOTE:\s0 a short list will replicate the last item. If the last item is too large to for what remains of the object after splitting off the first parts of the list, a \*(L"best fits\*(R" list of remaining objects will be returned based on an increasing sort of the \s-1CIDR\s0 values of the \f(CW\*(C`bits\*(C'\fR list. .Sp .Vb 2 \& i.e. my $ip = new NetAddr::IP(\*(Aq192.168.0.0/24\*(Aq); \& my $objptr = $ip\->split(28, 29, 28, 29, 26); \& \& has split plan 28 29 28 29 26 26 26 28 \& and returns this list of objects \& \& 192.168.0.0/28 \& 192.168.0.16/29 \& 192.168.0.24/28 \& 192.168.0.40/29 \& 192.168.0.48/26 \& 192.168.0.112/26 \& 192.168.0.176/26 \& 192.168.0.240/28 .Ve .Sp \&\s-1NOTE:\s0 that /26 replicates twice beyond the original request and /28 fills the remaining return object requirement. .ie n .IP """\->rsplitref($bits,[optional $bits1,$bits2,...])""" 4 .el .IP "\f(CW\->rsplitref($bits,[optional $bits1,$bits2,...])\fR" 4 .IX Item "->rsplitref($bits,[optional $bits1,$bits2,...])" \&\f(CW\*(C`\->rsplitref\*(C'\fR is the same as \f(CW\*(C`\->splitref\*(C'\fR above except that the split plan is applied to the original object in reverse order. .Sp .Vb 2 \& i.e. my $ip = new NetAddr::IP(\*(Aq192.168.0.0/24\*(Aq); \& my @objects = $ip\->split(28, 29, 28, 29, 26); \& \& has split plan 28 26 26 26 29 28 29 28 \& and returns this list of objects \& \& 192.168.0.0/28 \& 192.168.0.16/26 \& 192.168.0.80/26 \& 192.168.0.144/26 \& 192.168.0.208/29 \& 192.168.0.216/28 \& 192.168.0.232/29 \& 192.168.0.240/28 .Ve .ie n .IP """\->split($bits,[optional $bits1,$bits2,...])""" 4 .el .IP "\f(CW\->split($bits,[optional $bits1,$bits2,...])\fR" 4 .IX Item "->split($bits,[optional $bits1,$bits2,...])" Similar to \f(CW\*(C`\->splitref\*(C'\fR above but returns the list rather than a list reference. You may not want to use this if a large number of objects is expected. .ie n .IP """\->rsplit($bits,[optional $bits1,$bits2,...])""" 4 .el .IP "\f(CW\->rsplit($bits,[optional $bits1,$bits2,...])\fR" 4 .IX Item "->rsplit($bits,[optional $bits1,$bits2,...])" Similar to \f(CW\*(C`\->rsplitref\*(C'\fR above but returns the list rather than a list reference. You may not want to use this if a large number of objects is expected. .ie n .IP """\->hostenum()""" 4 .el .IP "\f(CW\->hostenum()\fR" 4 .IX Item "->hostenum()" Returns the list of hosts within a subnet. .Sp \&\s-1ERROR\s0 conditions: .Sp .Vb 3 \& \->hostenum will DIE with the message \*(Aqnetlimit exceeded\*(Aq \& if the number of return objects exceeds \*(Aqnetlimit\*(Aq. \& See function \*(Aqnetlimit\*(Aq above (default 2**16 or 65536 nets). .Ve .ie n .IP """\->hostenumref()""" 4 .el .IP "\f(CW\->hostenumref()\fR" 4 .IX Item "->hostenumref()" Faster version of \f(CW\*(C`\->hostenum()\*(C'\fR, returning a reference to a list. .Sp \&\s-1NOTE:\s0 hostenum and hostenumref report zero (0) useable hosts in a /31 network. This is the behavior expected prior to \s-1RFC 3021.\s0 To report 2 useable hosts for use in point-to-point networks, use \fB:rfc3021\fR tag. .Sp .Vb 1 \& use NetAddr::IP qw(:rfc3021); .Ve .Sp This will cause hostenum and hostenumref to return two (2) useable hosts in a /31 network. .ie n .IP """$me\->compact($addr1, $addr2, ...)""" 4 .el .IP "\f(CW$me\->compact($addr1, $addr2, ...)\fR" 4 .IX Item "$me->compact($addr1, $addr2, ...)" .PD 0 .ie n .IP """@compacted_object_list = Compact(@object_list)""" 4 .el .IP "\f(CW@compacted_object_list = Compact(@object_list)\fR" 4 .IX Item "@compacted_object_list = Compact(@object_list)" .PD Given a list of objects (including \f(CW$me\fR), this method will compact all the addresses and subnets into the largest (ie, least specific) subnets possible that contain exactly all of the given objects. .Sp Note that in versions prior to 3.02, if fed with the same \s-1IP\s0 subnets multiple times, these subnets would be returned. From 3.02 on, a more \&\*(L"correct\*(R" approach has been adopted and only one address would be returned. .Sp Note that \f(CW$me\fR and all \f(CW$addr\fR's must be \f(CW\*(C`NetAddr::IP\*(C'\fR objects. .ie n .IP """$me\->compactref(\e@list)""" 4 .el .IP "\f(CW$me\->compactref(\e@list)\fR" 4 .IX Item "$me->compactref(@list)" .PD 0 .ie n .IP """$compacted_object_list = Compact(\e@list)""" 4 .el .IP "\f(CW$compacted_object_list = Compact(\e@list)\fR" 4 .IX Item "$compacted_object_list = Compact(@list)" .PD As usual, a faster version of \f(CW\*(C`\->compact()\*(C'\fR that returns a reference to a list. Note that this method takes a reference to a list instead. .Sp Note that \f(CW$me\fR must be a \f(CW\*(C`NetAddr::IP\*(C'\fR object. .ie n .IP """$me\->coalesce($masklen, $number, @list_of_subnets)""" 4 .el .IP "\f(CW$me\->coalesce($masklen, $number, @list_of_subnets)\fR" 4 .IX Item "$me->coalesce($masklen, $number, @list_of_subnets)" .PD 0 .ie n .IP """$arrayref = Coalesce($masklen,$number,@list_of_subnets)""" 4 .el .IP "\f(CW$arrayref = Coalesce($masklen,$number,@list_of_subnets)\fR" 4 .IX Item "$arrayref = Coalesce($masklen,$number,@list_of_subnets)" .PD Will return a reference to list of \f(CW\*(C`NetAddr::IP\*(C'\fR subnets of \&\f(CW$masklen\fR mask length, when \f(CW$number\fR or more addresses from \&\f(CW@list_of_subnets\fR are found to be contained in said subnet. .Sp Subnets from \f(CW@list_of_subnets\fR with a mask shorter than \f(CW$masklen\fR are passed \*(L"as is\*(R" to the return list. .Sp Subnets from \f(CW@list_of_subnets\fR with a mask longer than \f(CW$masklen\fR will be counted (actually, the number of \s-1IP\s0 addresses is counted) towards \f(CW$number\fR. .Sp Called as a method, the array will include \f(CW$me\fR. .Sp \&\s-1WARNING:\s0 the list of subnet must be the same type. i.e ipV4 or ipV6 .ie n .IP """\->first()""" 4 .el .IP "\f(CW\->first()\fR" 4 .IX Item "->first()" Returns a new object representing the first usable \s-1IP\s0 address within the subnet (ie, the first host address). .ie n .IP """\->last()""" 4 .el .IP "\f(CW\->last()\fR" 4 .IX Item "->last()" Returns a new object representing the last usable \s-1IP\s0 address within the subnet (ie, one less than the broadcast address). .ie n .IP """\->nth($index)""" 4 .el .IP "\f(CW\->nth($index)\fR" 4 .IX Item "->nth($index)" Returns a new object representing the \fIn\fR\-th usable \s-1IP\s0 address within the subnet (ie, the \fIn\fR\-th host address). If no address is available (for example, when the network is too small for \f(CW$index\fR hosts), \&\f(CW\*(C`undef\*(C'\fR is returned. .Sp Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements \&\f(CW\*(C`\->nth($index)\*(C'\fR and \f(CW\*(C`\->num()\*(C'\fR exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. See the \s-1README\s0 file for details. .Sp To use the old behavior for \f(CW\*(C`\->nth($index)\*(C'\fR and \f(CW\*(C`\->num()\*(C'\fR: .Sp .Vb 1 \& use NetAddr::IP::Lite qw(:old_nth); \& \& old behavior: \& NetAddr::IP\->new(\*(Aq10/32\*(Aq)\->nth(0) == undef \& NetAddr::IP\->new(\*(Aq10/32\*(Aq)\->nth(1) == undef \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(0) == undef \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(1) == 10.0.0.1/31 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(0) == undef \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(1) == 10.0.0.1/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(2) == 10.0.0.2/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(3) == 10.0.0.3/30 .Ve .Sp Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. .Sp .Vb 8 \& new behavior: \& NetAddr::IP\->new(\*(Aq10/32\*(Aq)\->nth(0) == 10.0.0.0/32 \& NetAddr::IP\->new(\*(Aq10.1/32\*(Aq\->nth(0) == 10.0.0.1/32 \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(0) == 10.0.0.0/31 \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(1) == 10.0.0.1/31 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(0) == 10.0.0.1/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(1) == 10.0.0.2/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(2) == undef .Ve .Sp Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. .ie n .IP """\->num()""" 4 .el .IP "\f(CW\->num()\fR" 4 .IX Item "->num()" As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net \fBnum\fR value of 2 instead of 0 (zero) for point-to-point networks. .Sp Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable \s-1IP\s0 addresses within the subnet, not counting the broadcast or network address. .Sp Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of \s-1IP\s0 addresses not counting the broadcast address. (one greater than the new behavior) .Sp To use the old behavior for \f(CW\*(C`\->nth($index)\*(C'\fR and \f(CW\*(C`\->num()\*(C'\fR: .Sp .Vb 1 \& use NetAddr::IP::Lite qw(:old_nth); .Ve .Sp \&\s-1WARNING:\s0 .Sp NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are \s-1TEXT\s0 strings and perl can treat them as integers for numeric calculations. .Sp Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. .Sp If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. .ie n .IP """\->re()""" 4 .el .IP "\f(CW\->re()\fR" 4 .IX Item "->re()" Returns a Perl regular expression that will match an \s-1IP\s0 address within the given subnet. Defaults to ipV4 notation. Will return an ipV6 regex if the address in not in ipV4 space. .ie n .IP """\->re6()""" 4 .el .IP "\f(CW\->re6()\fR" 4 .IX Item "->re6()" Returns a Perl regular expression that will match an \s-1IP\s0 address within the given subnet. Always returns an ipV6 regex. .SH "EXPORT_OK" .IX Header "EXPORT_OK" .Vb 7 \& Compact \& Coalesce \& Zeros \& Ones \& V4mask \& V4net \& netlimit .Ve .SH "NOTES / BUGS ... FEATURES" .IX Header "NOTES / BUGS ... FEATURES" NetAddr::IP only runs in Pure Perl mode on Windows boxes because I don't have the resources or know how to get the \*(L"configure\*(R" stuff working in the Windows environment. Volunteers \s-1WELCOME\s0 to port the \*(L"C\*(R" portion of this module to Windows. .SH "HISTORY" .IX Header "HISTORY" .RS 4 See the Changes file .RE .SH "AUTHORS" .IX Header "AUTHORS" Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <michael@bizsystems.com> .SH "WARRANTY" .IX Header "WARRANTY" This software comes with the same warranty as Perl itself (ie, none), so by using it you accept any and all the liability. .SH "COPYRIGHT" .IX Header "COPYRIGHT" This software is (c) Luis E. Muñoz, 1999 \- 2007, and (c) Michael Robinton, 2006 \- 2014. .PP All rights reserved. .PP This program is free software; you can redistribute it and/or modify it under the terms of either: .PP .Vb 3 \& a) the GNU General Public License as published by the Free \& Software Foundation; either version 2, or (at your option) any \& later version, or \& \& b) the "Artistic License" which comes with this distribution. .Ve .PP This program is distributed in the hope that it will be useful, but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \&\s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0 See either the \s-1GNU\s0 General Public License or the Artistic License for more details. .PP You should have received a copy of the Artistic License with this distribution, in the file named \*(L"Artistic\*(R". If not, I'll be glad to provide one. .PP You should also have received a copy of the \s-1GNU\s0 General Public License along with this program in the file named \*(L"Copying\*(R". If not, write to the .PP .Vb 3 \& Free Software Foundation, Inc. \& 51 Franklin Street, Fifth Floor \& Boston, MA 02110\-1301 USA. .Ve .PP or visit their web page on the internet at: .PP .Vb 1 \& http://www.gnu.org/copyleft/gpl.html. .Ve .SH "SEE ALSO" .IX Header "SEE ALSO" .Vb 2 \& perl(1) L<NetAddr::IP::Lite>, L<NetAddr::IP::Util>, \&L<NetAddr::IP::InetBase> .Ve blib/man3/.exists 0000644 00000000000 15043770025 0007623 0 ustar 00 blib/man3/NetAddr::IP::Lite.3pm 0000644 00000062214 15043770025 0011703 0 ustar 00 .\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "Lite 3" .TH Lite 3 "2016-03-26" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" NetAddr::IP::Lite \- Manages IPv4 and IPv6 addresses and subnets .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 11 \& use NetAddr::IP::Lite qw( \& Zeros \& Ones \& V4mask \& V4net \& :aton DEPRECATED ! \& :old_nth \& :upper \& :lower \& :nofqdn \& ); \& \& my $ip = new NetAddr::IP::Lite \*(Aq127.0.0.1\*(Aq; \& or if your prefer \& my $ip = NetAddr::IP::Lite\->new(\*(Aq127.0.0.1); \& or from a packed IPv4 address \& my $ip = new_from_aton NetAddr::IP::Lite (inet_aton(\*(Aq127.0.0.1\*(Aq)); \& or from an octal filtered IPv4 address \& my $ip = new_no NetAddr::IP::Lite \*(Aq127.012.0.0\*(Aq; \& \& print "The address is ", $ip\->addr, " with mask ", $ip\->mask, "\en" ; \& \& if ($ip\->within(new NetAddr::IP::Lite "127.0.0.0", "255.0.0.0")) { \& print "Is a loopback address\en"; \& } \& \& # This prints 127.0.0.1/32 \& print "You can also say $ip...\en"; \& \& The following four functions return ipV6 representations of: \& \& :: = Zeros(); \& FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); \& FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); \& ::FFFF:FFFF = V4net(); \& \& Will also return an ipV4 or ipV6 representation of a \& resolvable Fully Qualified Domanin Name (FQDN). .Ve .SH "INSTALLATION" .IX Header "INSTALLATION" Un-tar the distribution in an appropriate directory and type: .PP .Vb 4 \& perl Makefile.PL \& make \& make test \& make install .Ve .PP \&\fBNetAddr::IP::Lite\fR depends on \fBNetAddr::IP::Util\fR which installs by default with its primary functions compiled using Perl's \s-1XS\s0 extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: .PP .Vb 4 \& perl Makefile.PL \-noxs \& make \& make test \& make install .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" This module provides an object-oriented abstraction on top of \s-1IP\s0 addresses or \s-1IP\s0 subnets, that allows for easy manipulations. Most of the operations of NetAddr::IP are supported. This module will work with older versions of Perl and is compatible with Math::BigInt. .PP * By default \fBNetAddr::IP\fR functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: .PP \&\s-1NOTE:\s0 the \s-1AUGUST 2010 RFC5952\s0 states: .PP .Vb 1 \& 4.3. Lowercase \& \& The characters "a", "b", "c", "d", "e", and "f" in an IPv6 \& address MUST be represented in lowercase. .Ve .PP It is recommended that all \s-1NEW\s0 applications using NetAddr::IP::Lite be invoked as shown on the next line. .PP .Vb 1 \& use NetAddr::IP::Lite qw(:lower); .Ve .PP * To ensure the current IPv6 string case behavior even if the default changes: .PP .Vb 1 \& use NetAddr::IP::Lite qw(:upper); .Ve .PP The internal representation of all \s-1IP\s0 objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. .PP The supported operations are described below: .SS "Overloaded Operators" .IX Subsection "Overloaded Operators" .ie n .IP "\fBAssignment (\f(CB""=""\fB)\fR" 4 .el .IP "\fBAssignment (\f(CB=\fB)\fR" 4 .IX Item "Assignment (=)" Has been optimized to copy one NetAddr::IP::Lite object to another very quickly. .ie n .IP "\fB\f(CB""\->copy()""\fB\fR" 4 .el .IP "\fB\f(CB\->copy()\fB\fR" 4 .IX Item "->copy()" The \fBassignment (\f(CB\*(C`=\*(C'\fB)\fR operation is only put in to operation when the copied object is further mutated by another overloaded operation. See overload \fB\s-1SPECIAL SYMBOLS FOR\s0 \*(L"use overload\*(R"\fR for details. .Sp \&\fB\f(CB\*(C`\->copy()\*(C'\fB\fR actually creates a new object when called. .IP "\fBStringification\fR" 4 .IX Item "Stringification" An object can be used just as a string. For instance, the following code .Sp .Vb 2 \& my $ip = new NetAddr::IP::Lite \*(Aq192.168.1.123\*(Aq; \& print "$ip\en"; .Ve .Sp Will print the string 192.168.1.123/32. .Sp .Vb 2 \& my $ip = new6 NetAddr::IP::Lite \*(Aq192.168.1.123\*(Aq; \& print "$ip\en"; .Ve .Sp Will print the string 0:0:0:0:0:0:C0A8:17B/128 .IP "\fBEquality\fR" 4 .IX Item "Equality" You can test for equality with either \f(CW\*(C`eq\*(C'\fR, \f(CW\*(C`ne\*(C'\fR, \f(CW\*(C`==\*(C'\fR or \f(CW\*(C`!=\*(C'\fR. \f(CW\*(C`eq\*(C'\fR, \f(CW\*(C`ne\*(C'\fR allows the comparison with arbitrary strings as well as NetAddr::IP::Lite objects. The following example: .Sp .Vb 2 \& if (NetAddr::IP::Lite\->new(\*(Aq127.0.0.1\*(Aq,\*(Aq255.0.0.0\*(Aq) eq \*(Aq127.0.0.1/8\*(Aq) \& { print "Yes\en"; } .Ve .Sp Will print out \*(L"Yes\*(R". .Sp Comparison with \f(CW\*(C`==\*(C'\fR and \f(CW\*(C`!=\*(C'\fR requires both operands to be NetAddr::IP::Lite objects. .ie n .IP "\fBComparison via >, <, >=, <=, <=> and \f(CB""cmp""\fB\fR" 4 .el .IP "\fBComparison via >, <, >=, <=, <=> and \f(CBcmp\fB\fR" 4 .IX Item "Comparison via >, <, >=, <=, <=> and cmp" Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the \s-1NUMERIC\s0 cidr portion of the masks are compared. This leads to the counterintuitive result that .Sp .Vb 1 \& /24 > /16 .Ve .Sp Comparison should not be done on netaddr objects with different \s-1CIDR\s0 as this may produce indeterminate \- unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing .Sp .Vb 1 \& $ip1\->masklen <=> $ip2\->masklen .Ve .ie n .IP "\fBAddition of a constant (\f(CB""+""\fB)\fR" 4 .el .IP "\fBAddition of a constant (\f(CB+\fB)\fR" 4 .IX Item "Addition of a constant (+)" Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: .Sp .Vb 1 \& print NetAddr::IP::Lite\->new(\*(Aq127.0.0.1/8\*(Aq) + 5; .Ve .Sp will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: .Sp .Vb 1 \& print NetAddr::IP::Lite\->new(\*(Aq10.0.0.1/24\*(Aq) + 255; .Ve .Sp outputs 10.0.0.0/24. .Sp Returns the the unchanged object when the constant is missing or out of range. .Sp .Vb 1 \& 2147483647 <= constant >= \-2147483648 .Ve .ie n .IP "\fBSubtraction of a constant (\f(CB""\-""\fB)\fR" 4 .el .IP "\fBSubtraction of a constant (\f(CB\-\fB)\fR" 4 .IX Item "Subtraction of a constant (-)" The complement of the addition of a constant. .ie n .IP "\fBDifference (\f(CB""\-""\fB)\fR" 4 .el .IP "\fBDifference (\f(CB\-\fB)\fR" 4 .IX Item "Difference (-)" Returns the difference between the address parts of two NetAddr::IP::Lite objects address parts as a 32 bit signed number. .Sp Returns \fBundef\fR if the difference is out of range. .IP "\fBAuto-increment\fR" 4 .IX Item "Auto-increment" Auto-incrementing a NetAddr::IP::Lite object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. .IP "\fBAuto-decrement\fR" 4 .IX Item "Auto-decrement" Auto-decrementing a NetAddr::IP::Lite object performs exactly the opposite of auto-incrementing it, as you would expect. .SS "Methods" .IX Subsection "Methods" .ie n .IP """\->new([$addr, [ $mask|IPv6 ]])""" 4 .el .IP "\f(CW\->new([$addr, [ $mask|IPv6 ]])\fR" 4 .IX Item "->new([$addr, [ $mask|IPv6 ]])" .PD 0 .ie n .IP """\->new6([$addr, [ $mask]])""" 4 .el .IP "\f(CW\->new6([$addr, [ $mask]])\fR" 4 .IX Item "->new6([$addr, [ $mask]])" .ie n .IP """\->new6FFFF([$addr, [ $mask]])""" 4 .el .IP "\f(CW\->new6FFFF([$addr, [ $mask]])\fR" 4 .IX Item "->new6FFFF([$addr, [ $mask]])" .ie n .IP """\->new_no([$addr, [ $mask]])""" 4 .el .IP "\f(CW\->new_no([$addr, [ $mask]])\fR" 4 .IX Item "->new_no([$addr, [ $mask]])" .ie n .IP """\->new_from_aton($netaddr)""" 4 .el .IP "\f(CW\->new_from_aton($netaddr)\fR" 4 .IX Item "->new_from_aton($netaddr)" .IP "new_cis and new_cis6 are \s-1DEPRECATED\s0" 4 .IX Item "new_cis and new_cis6 are DEPRECATED" .ie n .IP """\->new_cis(""$addr $mask)""" 4 .el .IP "\f(CW\->new_cis(""$addr $mask)\fR" 4 .IX Item "->new_cis(""$addr $mask)" .ie n .IP """\->new_cis6(""$addr $mask)""" 4 .el .IP "\f(CW\->new_cis6(""$addr $mask)\fR" 4 .IX Item "->new_cis6(""$addr $mask)" .PD The first three methods create a new address with the supplied address in \&\f(CW$addr\fR and an optional netmask \f(CW$mask\fR, which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. .Sp new6FFFF specifically returns an IPv4 address in IPv6 format according to \s-1RFC4291\s0 .Sp .Vb 2 \& new6 ::xxxx:xxxx \& new6FFFF ::FFFF:xxxx:xxxx .Ve .Sp The third method \f(CW\*(C`new_no\*(C'\fR is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. .Sp \&\fBnew_from_aton\fR takes a packed IPv4 address and assumes a /32 mask. This function replaces the \s-1DEPRECATED\s0 :aton functionality which is fundamentally broken. .Sp The last two methods \fBnew_cis\fR and \fBnew_cis6\fR differ from \fBnew\fR and \&\fBnew6\fR only in that they except the common Cisco address notation for address/mask pairs with a \fBspace\fR as a separator instead of a slash (/) .Sp These methods are \s-1DEPRECATED\s0 because the functionality is now included in the other \*(L"new\*(R" methods .Sp .Vb 3 \& i.e. \->new_cis(\*(Aq1.2.3.0 24\*(Aq) \& or \& \->new_cis6(\*(Aq::1.2.3.0 120\*(Aq) .Ve .Sp \&\f(CW\*(C`\->new6\*(C'\fR and \&\f(CW\*(C`\->new_cis6\*(C'\fR mark the address as being in ipV6 address space even if the format would suggest otherwise. .Sp .Vb 1 \& i.e. \->new6(\*(Aq1.2.3.4\*(Aq) will result in ::102:304 \& \& addresses submitted to \->new in ipV6 notation will \& remain in that notation permanently. i.e. \& \->new(\*(Aq::1.2.3.4\*(Aq) will result in ::102:304 \& whereas new(\*(Aq1.2.3.4\*(Aq) would print out as 1.2.3.4 \& \& See "STRINGIFICATION" below. .Ve .Sp \&\f(CW$addr\fR can be almost anything that can be resolved to an \s-1IP\s0 address in all the notations I have seen over time. It can optionally contain the mask in \s-1CIDR\s0 notation. If the \s-1OPTIONAL\s0 perl module Socket6 is available in the local library it will autoload and ipV6 host6 names will be resolved as well as ipV4 hostnames. .Sp \&\fBprefix\fR notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. .Sp Addresses in the same format returned by \f(CW\*(C`inet_aton\*(C'\fR or \&\f(CW\*(C`gethostbyname\*(C'\fR can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. .Sp ###### \s-1DEPRECATED,\s0 will be remove in version 5 ############ To accept addresses in that format, invoke the module as in .Sp .Vb 1 \& use NetAddr::IP::Lite \*(Aq:aton\*(Aq .Ve .Sp ###### \s-1USE\s0 new_from_aton instead ########################## .Sp If called with no arguments, 'default' is assumed. .Sp If called with an empty string as the argument, returns 'undef' .Sp \&\f(CW$addr\fR can be any of the following and possibly more... .Sp .Vb 10 \& n.n \& n.n/mm \& n.n mm \& n.n.n \& n.n.n/mm \& n.n.n mm \& n.n.n.n \& n.n.n.n/mm 32 bit cidr notation \& n.n.n.n mm \& n.n.n.n/m.m.m.m \& n.n.n.n m.m.m.m \& loopback, localhost, broadcast, any, default \& x.x.x.x/host \& 0xABCDEF, 0b111111000101011110, (or a bcd number) \& a netaddr as returned by \*(Aqinet_aton\*(Aq .Ve .Sp Any \s-1RFC1884\s0 notation .Sp .Vb 10 \& ::n.n.n.n \& ::n.n.n.n/mmm 128 bit cidr notation \& ::n.n.n.n/::m.m.m.m \& ::x:x \& ::x:x/mmm \& x:x:x:x:x:x:x:x \& x:x:x:x:x:x:x:x/mmm \& x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation \& loopback, localhost, unspecified, any, default \& ::x:x/host \& 0xABCDEF, 0b111111000101011110 within the limits \& of perl\*(Aqs number resolution \& 123456789012 a \*(Aqbig\*(Aq bcd number (bigger than perl likes) \& and Math::BigInt .Ve .Sp A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: .Sp .Vb 1 \& use NetAddr::IP::Lite \*(Aq:nofqdn\*(Aq; .Ve .Sp If called with no arguments, 'default' is assumed. .Sp If called with and empty string as the argument, 'undef' is returned; .ie n .IP """\->broadcast()""" 4 .el .IP "\f(CW\->broadcast()\fR" 4 .IX Item "->broadcast()" Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. .ie n .IP """\->network()""" 4 .el .IP "\f(CW\->network()\fR" 4 .IX Item "->network()" Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. .ie n .IP """\->addr()""" 4 .el .IP "\f(CW\->addr()\fR" 4 .IX Item "->addr()" Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP::Lite object to other components that expect an \s-1IP\s0 address. If the object is an ipV6 address or was created using \->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. .ie n .IP """\->mask()""" 4 .el .IP "\f(CW\->mask()\fR" 4 .IX Item "->mask()" Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. .ie n .IP """\->masklen()""" 4 .el .IP "\f(CW\->masklen()\fR" 4 .IX Item "->masklen()" Returns a scalar the number of one bits in the mask. .ie n .IP """\->bits()""" 4 .el .IP "\f(CW\->bits()\fR" 4 .IX Item "->bits()" Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. .ie n .IP """\->version()""" 4 .el .IP "\f(CW\->version()\fR" 4 .IX Item "->version()" Returns the version of the address or subnet. Currently this can be either 4 or 6. .ie n .IP """\->cidr()""" 4 .el .IP "\f(CW\->cidr()\fR" 4 .IX Item "->cidr()" Returns a scalar with the address and mask in \s-1CIDR\s0 notation. A NetAddr::IP::Lite object \fIstringifies\fR to the result of this function. (see comments about \->\fBnew6()\fR and \->\fBaddr()\fR for output formats) .ie n .IP """\->aton()""" 4 .el .IP "\f(CW\->aton()\fR" 4 .IX Item "->aton()" Returns the address part of the NetAddr::IP::Lite object in the same format as the \f(CW\*(C`inet_aton()\*(C'\fR or \f(CW\*(C`ipv6_aton\*(C'\fR function respectively. If the object was created using \->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. .ie n .IP """\->range()""" 4 .el .IP "\f(CW\->range()\fR" 4 .IX Item "->range()" Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. .ie n .IP """\->numeric()""" 4 .el .IP "\f(CW\->numeric()\fR" 4 .IX Item "->numeric()" When called in a scalar context, will return a numeric representation of the address part of the \s-1IP\s0 address. When called in an array context, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. .Sp This method is essential for serializing the representation of a subnet. .ie n .IP """\->bigint()""" 4 .el .IP "\f(CW\->bigint()\fR" 4 .IX Item "->bigint()" When called in a scalar context, will return a Math::BigInt representation of the address part of the \s-1IP\s0 address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the Math::BigInt representation of the netmask. .ie n .IP """$me\->contains($other)""" 4 .el .IP "\f(CW$me\->contains($other)\fR" 4 .IX Item "$me->contains($other)" Returns true when \f(CW$me\fR completely contains \f(CW$other\fR. False is returned otherwise and \f(CW\*(C`undef\*(C'\fR is returned if \f(CW$me\fR and \f(CW$other\fR are not both \f(CW\*(C`NetAddr::IP::Lite\*(C'\fR objects. .ie n .IP """$me\->within($other)""" 4 .el .IP "\f(CW$me\->within($other)\fR" 4 .IX Item "$me->within($other)" The complement of \f(CW\*(C`\->contains()\*(C'\fR. Returns true when \f(CW$me\fR is completely contained within \f(CW$other\fR, undef if \f(CW$me\fR and \f(CW$other\fR are not both \f(CW\*(C`NetAddr::IP::Lite\*(C'\fR objects. .IP "C\->\fBis_rfc1918()\fR>" 4 .IX Item "C->is_rfc1918()>" Returns true when \f(CW$me\fR is an \s-1RFC 1918\s0 address. .Sp .Vb 3 \& 10.0.0.0 \- 10.255.255.255 (10/8 prefix) \& 172.16.0.0 \- 172.31.255.255 (172.16/12 prefix) \& 192.168.0.0 \- 192.168.255.255 (192.168/16 prefix) .Ve .ie n .IP """\->is_local()""" 4 .el .IP "\f(CW\->is_local()\fR" 4 .IX Item "->is_local()" Returns true when \f(CW$me\fR is a local network address. .Sp .Vb 2 \& i.e. ipV4 127.0.0.0 \- 127.255.255.255 \& or ipV6 === ::1 .Ve .ie n .IP """\->first()""" 4 .el .IP "\f(CW\->first()\fR" 4 .IX Item "->first()" Returns a new object representing the first usable \s-1IP\s0 address within the subnet (ie, the first host address). .ie n .IP """\->last()""" 4 .el .IP "\f(CW\->last()\fR" 4 .IX Item "->last()" Returns a new object representing the last usable \s-1IP\s0 address within the subnet (ie, one less than the broadcast address). .ie n .IP """\->nth($index)""" 4 .el .IP "\f(CW\->nth($index)\fR" 4 .IX Item "->nth($index)" Returns a new object representing the \fIn\fR\-th usable \s-1IP\s0 address within the subnet (ie, the \fIn\fR\-th host address). If no address is available (for example, when the network is too small for \f(CW$index\fR hosts), \&\f(CW\*(C`undef\*(C'\fR is returned. .Sp Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements \&\f(CW\*(C`\->nth($index)\*(C'\fR and \f(CW\*(C`\->num()\*(C'\fR exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. .Sp To use the old behavior for \f(CW\*(C`\->nth($index)\*(C'\fR and \f(CW\*(C`\->num()\*(C'\fR: .Sp .Vb 1 \& use NetAddr::IP::Lite qw(:old_nth); \& \& old behavior: \& NetAddr::IP\->new(\*(Aq10/32\*(Aq)\->nth(0) == undef \& NetAddr::IP\->new(\*(Aq10/32\*(Aq)\->nth(1) == undef \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(0) == undef \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(1) == 10.0.0.1/31 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(0) == undef \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(1) == 10.0.0.1/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(2) == 10.0.0.2/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(3) == 10.0.0.3/30 .Ve .Sp Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. .Sp .Vb 8 \& new behavior: \& NetAddr::IP\->new(\*(Aq10/32\*(Aq)\->nth(0) == 10.0.0.0/32 \& NetAddr::IP\->new(\*(Aq10.1/32\*(Aq\->nth(0) == 10.0.0.1/32 \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(0) == 10.0.0.0/32 \& NetAddr::IP\->new(\*(Aq10/31\*(Aq)\->nth(1) == 10.0.0.1/32 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(0) == 10.0.0.1/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(1) == 10.0.0.2/30 \& NetAddr::IP\->new(\*(Aq10/30\*(Aq)\->nth(2) == undef .Ve .Sp Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. .ie n .IP """\->num()""" 4 .el .IP "\f(CW\->num()\fR" 4 .IX Item "->num()" As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net \fBnum\fR value of 2 instead of 0 (zero) for point-to-point networks. .Sp Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable \s-1IP\s0 addresses within the subnet, not counting the broadcast or network address. .Sp Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of \s-1IP\s0 addresses not counting the broadcast address. (one greater than the new behavior) .Sp To use the old behavior for \f(CW\*(C`\->nth($index)\*(C'\fR and \f(CW\*(C`\->num()\*(C'\fR: .Sp .Vb 1 \& use NetAddr::IP::Lite qw(:old_nth); .Ve .Sp \&\s-1WARNING:\s0 .Sp NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are \s-1TEXT\s0 strings and perl can treat them as integers for numeric calculations. .Sp Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. .Sp If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. .SH "EXPORT_OK" .IX Header "EXPORT_OK" .Vb 9 \& Zeros \& Ones \& V4mask \& V4net \& :aton DEPRECATED \& :old_nth \& :upper \& :lower \& :nofqdn .Ve .SH "AUTHORS" .IX Header "AUTHORS" Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <michael@bizsystems.com> .SH "WARRANTY" .IX Header "WARRANTY" This software comes with the same warranty as perl itself (ie, none), so by using it you accept any and all the liability. .SH "COPYRIGHT" .IX Header "COPYRIGHT" .Vb 2 \& This software is (c) Luis E. Muñoz, 1999 \- 2005 \& and (c) Michael Robinton, 2006 \- 2014. .Ve .PP All rights reserved. .PP This program is free software; you can redistribute it and/or modify it under the terms of either: .PP .Vb 3 \& a) the GNU General Public License as published by the Free \& Software Foundation; either version 2, or (at your option) any \& later version, or \& \& b) the "Artistic License" which comes with this distribution. .Ve .PP This program is distributed in the hope that it will be useful, but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \&\s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0 See either the \s-1GNU\s0 General Public License or the Artistic License for more details. .PP You should have received a copy of the Artistic License with this distribution, in the file named \*(L"Artistic\*(R". If not, I'll be glad to provide one. .PP You should also have received a copy of the \s-1GNU\s0 General Public License along with this program in the file named \*(L"Copying\*(R". If not, write to the .PP .Vb 3 \& Free Software Foundation, Inc., \& 51 Franklin Street, Fifth Floor \& Boston, MA 02110\-1301 USA .Ve .PP or visit their web page on the internet at: .PP .Vb 1 \& http://www.gnu.org/copyleft/gpl.html. .Ve .SH "SEE ALSO" .IX Header "SEE ALSO" \&\fBNetAddr::IP\fR\|(3), \fBNetAddr::IP::Util\fR\|(3), \fBNetAddr::IP::InetBase\fR\|(3) blib/man1/.exists 0000644 00000000000 15043770025 0007621 0 ustar 00 blib/arch/.exists 0000644 00000000000 15043770025 0007702 0 ustar 00 blib/arch/auto/NetAddr/IP/Lite/.exists 0000644 00000000000 15043770025 0013400 0 ustar 00 blib/arch/auto/NetAddr/IP/.exists 0000644 00000000000 15043770025 0012503 0 ustar 00 blib/arch/auto/NetAddr/IP/Util/Util.so 0000755 00000333020 15043770025 0013376 0 ustar 00 ELF > p$ @ P� @ 8 @ ' & �, �, P P P @\ @l @l ( 0 X\ Xl Xl � � � � � � � � $ $ S�td � � � P�td �T �T �T � � Q�td R�td @\ @l @l � � GNU � GNU j�9��^������ ={@c��� ��1 00.Q �A� �*"�� $ ,B ` " # % & ' ( * , . / 0 5 �@D ��^< ��R %MG%�jS���8s� �o ��}��ܙ�%��5<4��i����Oɝ�ս������T�<��~�g'(�� �1Oւ�%�#UDS�|��~�q2 �-s�uh�� -UЉ � _ � g � � � � � � � � � � , � � F " s = 0p u �H � l E � � �. ! . �= > J �> M M �+ & �= \ b �+ H p l �& ' p k , * � 6 n Pp � 8p c �C Xp � P. `p 3 p Y �+ 6 � p. " U 0% � � @p � Hp p w �& � `9 E V 0> � T (p ? p __gmon_start__ _ITM_deregisterTMCloneTable _ITM_registerTMCloneTable __cxa_finalize printb128 putchar puts extendipv4 extendmask4 PL_thr_key pthread_getspecific Perl_newSVpvn Perl_sv_2mortal Perl_sv_2pv_flags Perl_stack_grow Perl_croak_xs_usage __stack_chk_fail is_ipv4to6 Perl_croak_nocontext is_mask4to6 is_ipanyto6 is_maskanyto6 fastcomp128 adder128 addercon have128 Perl_sv_newmortal Perl_sv_setiv_mg is_hasbits _isipv4 netswap_copy netswap Perl_newSViv is_add128 is_sub128 Perl_sv_2iv_flags _countbits _128x2 is_comp128 is_ipv6to4 is_shiftleft _128x10 _128x10plusbcd is_bcd2bin is_bcdn2bin is_simple_pack _bin2bcd _bcd2txt boot_NetAddr__IP__Util Perl_xs_handshake Perl_newXS_flags Perl_xs_boot_epilog libperl.so.5.32 libc.so.6 GLIBC_2.4 GLIBC_2.34 GLIBC_2.2.5 � ii � ��� � ui � @l % Hl �$ Pl Pl p �Q p R p �Q p �Q p �P (p R 0p �Q 8p �Q @p UQ Hp oQ Pp Q Xp xP `p 7Q po ( xo * �o �o " �o 5 �o / �o �o �o 0 �o �o 1 �o 6 �o % �o �o + �o & �o �o `n hn pn xn �n # �n �n �n �n �n �n �n �n �n ' �n , �n �n �n �n �n $ o - o o o o 2 (o 3 0o 8o @o 4 Ho Po Xo `o ho ! � �H��H��O H��t��H��� �5*N �%+N � �h ������ �h ������� �h ������ �h ������ �h ������ �h ������ �h ������ �h ��q����� �h ��a����� �h ��Q����� �h ��A����� �h ��1����� �h ��!����� �h ������� �h ������� �h ����� �h ������ �h ������� �h ������ �h ������ �h ������ �h ������ �h ������ �h ��q����� �h ��a����� �h ��Q����� �h ��A����� �h ��1����� �h ��!����� �h ������� �h ������� �h ����� �h ������ �h! ������� ��%L D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%�K D � ��%}K D � ��%uK D � ��%mK D � ��%eK D � ��%]K D � ��%UK D � ��%MK D � ��%EK D � ��%=K D � ��%5K D � ��%-K D � ��%%K D � ��% K D � ��%K D � ��% K D � ��%K D � ��%�J D H�=�K H��K H9�tH��J H��t �� � � � H�=�K H�5�K H)�H��H��?H��H�H�tH�%K H��t��f D � � � ��=}K u+UH�=K H��t H�=NG �9����d����UK ]� � � � ��w��� � � �ATA�� U1�SH��� � �1 ����� �� �1 ������� �1 ����� �1 ������� �1 ������� �1 ������ �1 ���I��s � �����H������ �; �� �0 �q����@�H����0 �^���� �H����0 �K�����H����0 �8�����H����0 �%�����H����0 ������H����0 �����H����0 ����C��� � �1 �����`����[H�=X) ]A\��� �H� �F ��F � � � �H������F������F � � � �AWI��AVAUATUSH��8H� �H dH�%( H�D$(1��;����;H�(����;H�PxH�J�H�HxLc"�m���I�H�@D�j(J��H��H)�H�����U �;E�t$H���;���I��Ic�I�PL�$� L�4�A�F % = �� I�I�~H�@H�D$H��� E��L�l$L���� �����;����H�@ H)�H���� �;����� L��H���3����;I�����L��H���^����;H�E����;H�h���L�H�(H�D$(dH+%( �� H��8[]A\A]A^A_� � �����m���f D �;�A���H�T$� L��H���\���H��H�D$� ��� � �;����H��H�� H������H���,���H�5Z' L���G�����A��t'H��F H�H� � H�5' 1�H�=:) �E���H��F H���f � � �AWI��AVAUATUSH��8H� tF dH�%( H�D$(1��;�m����;H�(�c����;H�PxH�J�H�HxLc"�M���I�H�@D�j(J��H��H)�H������ �;E�t$H������I��Ic�I�PL�$� L�4�A�F % = �� I�M�vH�@H�D$H���� H���h E��L�l$L��L���� �����;���H�@ H)�H���� �;���� L��H�������;I���|���L��H���1���H�E�;�f����;H�h�[���L�H�(H�D$(dH+%( �� H��8[]A\A]A^A_�f������r���f D �;����L��H�T$� H���4���I��H�D$H�������;���H�@ H)�H��~G�;����� L��H���=��� � �;���H��H�� H���v���H������f D �;���H��H�� H���N���H���H�5�$ L�������u���A��t'H��D H�H� � H�5�$ 1�H�=�& ����H�ID H���ff. � �� �H�H�W� @ � ���A� 1�F� F ��A�r��F� I��I���u�ø ��f. � � ��ȉN 1�� ��F�F�5��� D � �D�� E��u�w��u�O��u �W 1������f D � �AWAVAUI��ATUSH��H� TC dH�%( H�D$1��;�M����;H�(�C����;H�PxH�J�H�HxLc2�-���H�@J��H)�H������ �;E�fMc������;N�,� H�@N�$����;H�@�@#�� ����H���s���H��A�D$ % = �� I�$I�|$H�@H�$H���� �{����;Lc�����;H�@N�t(��E %�����A���r������ �� E���� �M L�eI�n�;�F����;H�h�;���L�H�(H�D$dH+%( �� H��[]A\A]A^A_�f�� ����;H�h� ���H�@H�@H�l� � ���f D �;���H�� L��H����H��H�$����f��;��L��H��H������U���H� � H��A A�� H�5�! H�={$ H�1�� �����H�5�! L����� D � ��71���u�O��u �W1������f�� �Hc�1���~ ��ʉ�H��H9�u��ff. � � �Hc�H����~��H��ȉG�H9�u��ff. � @ � �AWI��AVAUATUSH��hH� �@ dH�%( H�D$X1��;��;L� ��;H�PxH�J�H�Hx�*��I�H�@�J(Hc�H��L��H)ЉL$ H�����^ �;D�u��I��Hc��Q�;I��Ic�I�PL�4� L�<��4�H�@H�,�A�G % = �� I�M�H�@H�D$H���� �E % = �� H�E H�mH�@H�D$H���� L�l$@L��� L��L�|$0�� H��L����|$ �� �;��H�@ L)�H���� H�l$ 1�H��L��L�����;A���e�Ic�M�l$H����;I���K�L��H��� �I�D$�;�4�H�P�R"��u&H��� HcB(��x H� @H��H�JH���P����t<�;��;H�h���L�H�(H�D$XdH+%( �� H��h[]A\A]A^A_Ð� H�����;��H�@ L)�H��� �;�� H��H����;H���{�H��H���0�;I�E�e�;H�h�Z�J�T5H��i��� D �;�A�L��H�T$� H���\�I��H�D$���� � �;��H��H�T$� H���,�H��H�D$���� � L��� �;���H�@ L)�H��~eH�l$ � �A���f D �;��L��L�� H���n�I������f D �;��L��L�� H���F�I������f D �;�a�L��L�� H��� �I���y����|$ tFH� = H�H�D$A�� H�5u H�= H� � 1�����H�5g L���Y�H��< H��ff. � f�� �AWAVI��AUATUSH��XH� �< dH�%( H�D$H1��;���;L� ���;H�PxH�J�H�Hx�*��Hc�H�@H��L��H)�H������ �;D�m��I��Hc��[��;I��Ic�I�PL�,� L�4��>��;H�@H��@ % = �� � ��;H�@H�,�� �� H��H����A��A�F % = �� I�I�vH�@H�D$H��� H�l$ � H�����;��H�@ L)�H���� L�t$0D��H�t$H��L���+��;����Hc�H������;H���m�H��H���"��;I�D$�V�H�P�R"��u&H��� HcB(��x H� @H��H�JH���P����t>�;���;H�h� �L�H�(H�D$HdH+%( �] H��X[]A\A]A^A_� � L��I������;���H�@ L)�H���� �;��� L��H���!��;H����H��H���L��;I�D$���;H�h�u�J�T-H��b��� � �;�Y�L��H�T$� H���t�H��H�D$�a��� � �+�H�@H��H� D�x � ��� � �;� �L��L�� H�����I���K���f D �;���L��L�� H����I������H�� �� H�5' 1�H�=� �4�H�5 L������� �SH�����A������M �S���� ���E���щC �C�� ��E����S��� ���E����CA��t�C �u�D��[�f�� �AWAVI��AUATUSH��8H� �8 dH�%( H�D$(1��;����;L� ����;H�PxH�J�H�HxHc*���H�@H��L��H)�H�����) �;D�mM�|$���I��Ic�I�PL�,� H�,E % = �i H�E H�uH�@H�D$H���� L�t$� L���,�L�����;���;�H�@ L)�H���K L�����;A����Ic�H���^��;I����L��H�����;I�G���H�P�R"��u&H��� HcB(��x H� @H��H�JH���P����t>�;���;H�h��L�H�(H�D$(dH+%( �� H��8[]A\A]A^A_� �;�q�H�@ L)�H���� �;�Z�@��H�����;H���D�H��H�����;I�D$�-��;H�h�"�J�T-H��w��� D �;� �H��H�T$� H���$�H��H�D$���� � �;���L��L��� H����I��L�`���f. � �;��L��L�� H���f�I���-�����H�5� L�����H�� �� H�5� 1�H�=� ��� � � ��W H�G H��H����҉W�� �H9�t ���� ��H���� ��PH9�u��ff. � � �AWAVAUATUH��SH��HH� �5 dH�%( H�D$81��;����;L�8����;H�HxM��H�q�H�pxD�)��Ic�A�UH�@�T$H��I)�H�E I��D�p(E���� �;Ic�H��I)��n�L��I��HcD$I�PL�<� H�4F % = �� H�L�FH�@H�D$H���� A���� A���� �;A���� �AoL�l$ )L$ �;���H�@ H)�H���� �;���� L��H���I��;I����L��H���t�H�E�;���;H�h��L�H�(H�D$8dH+%( �� H��H[]A\A]A^A_� D �Ao L�l$ L��)D$ ���]��� @ �;H�t$�D�H�t$H�T$� H���]�I��H�D$��L�D$A����Mc�L�D$H�@J��@ % = tS�;L�D$����;H�@N�$����� L��H���x�L�D$A��E��� �AoL�l$ )T$ ��� �;��L�D$H�@J��H� D�` �� �;L�D$�t�L�D$H�@ H)�H���� �;L�D$�S�L�D$� H��I�p �o��� D A��� �� L�l$ � L��L����f D L���8�A��u� L��������;���H��H�� H����H�����f D �;��H��H�� H���~�L�D$H���B�����H�5C H�����A��t3A��t9H��2 H�H� � A�� H�5� 1�H�=Q ���H�2 H���H�2 H���D��H�5� H�=� 1��� @ � �ATI��UH��H���:��E H��A�$�EA�D$�EA�D$�E A�D$ ��H��� �H��H��L��H��1�]A\�D� @ � �ATI��UH��S�������] L��[H�E H��L��1��E ]A\��f�� ��* ��(}�F�L�Rf�A� H�BA� H�A�B )��f D H����E1ɍ>A� ��~4��Ѓ��HЀ� w&Ic�E��u�H����A A���>A� ���1�� @ � �AWf�AVI��H��AUATUSH��(���� H��E1�1��' @ E��u{E��t �_ A� ��9��� A��uMA�I���jA� A��A��A����A��A���A����E��A��u�E��u{E��t D�o A� 9�}S��A���� � A��D�L$ �L$D�D$H�t$H�<$���L$H�<$��H�t$D�D$D�L$ 9��Z���H��([]A\A]A^A_�f D D��D�D$ D�L$�L$H�t$H�<$�1�H�<$H�t$�L$D�L$D�D$ �W��� � �AWAVAUATUH��SH�� H� q/ dH�%( H�D$x1��;�j��;L�(�`��;H�PxH�r�H�pxD�"�J�Ic�M��H�@H��I)�H�E M�Nj@(I���D$E���� �;Ic�L��E�t$H��H)���I��Ic�I�QL�4� L�,�A�E % = �; I�E M�mH�pH�t$H��(�9 �|$�E H���} A���^ �;A��Mc����;H�@J��@ % = �v �q��;H�@N�$��b�� H��L����H��H�L$L�d$ H�T$0L��L���5�� L���8��;�!�H�@ H)�H���1 �;� �� L��H���z��;I�����L��H����H�E�;����;H�h���L�H�(H�D$xdH+%( �m H�Ĉ []A\A]A^A_� �;��L��H�T$� H����H�t$I����� � H�T$@L��������F �D$��u#L�d$ H�T$0�( H�|$XL����� � �;�)�H�@ H)�H��~e�;��H�t$X� H������ @ ���H�@J��H� H�H ��� � �;����H��H�� H�����H�����f D �;���H��H�� H���n��H���y���H�5= H�������|$ �� H�m, H� H�D$H�L$H�T$1�A�( H�5� H�=� �����S��H�5 H�= 1����H�O, H�H�t$H� H�D$먃|$tAH��+ H���H�5L H�= 1��|���|$�t���H��+ H� H�D$�`���H��+ H�뽐� �AWH�Ff�E1�AVL�~(I��L�VAUI��ATU1�S�� H���F( H�D$1�FE���� E��A��E!��M��D �uI��M9�tTA� A�щ�D �t� � � � �<��E������u����� �A����I��A�@M9�u���t%A�E(E��u�Hc�A�@ ��A�� E�$�l���H�|$� ����H��� []A\A]A^A_�f�� �I��I��1�E1�� � E1���uNH��H��t\A� E����A��A��@��1�@�tD��Ic�A��0��E� ��@�ƃ�A��D�t�Hc׃�0D�GH��A�H��u�Ic�A� D���ff. � @ � �AWI��AVAUATUSH��XH� �) dH�%( H�D$H1��;�����;H�(�����;H�PxH�J�H�HxLc"���I�H�@D�j(J��H��H)�H�����% �;E�t$H�����I��Ic�I�PL�$� L�4�A�F % = � I�M�vH�PH�T$E���� A��� H��� �;�-��H�@ H)�H���] L�|$L��L������;A�����Ic�L��H���u���;I������L��H�����H�E�;�����;H�h����L�H�(H�D$HdH+%( �I H��X[]A\A]A^A_ÐH���4 L�|$L��L������;���H�@ H)�H���� H�|$(L���P���f��;�Y��H�T$L��� H���t��H�T$I����� � H���� �;� ��H�@ H)�H��~{H�t$L���v���;A�����Ic�H�t$(H���� @ �;����H��H�� H�����H���W���f D �;���H��H�� H���v��H�����f D �;���H��H�� H���N��H���c���H�5� L�������r��H���� H�5@ 1�H�=y ����H���� H�5= 1�H�=[ ���Hҹ( H�5< 1�H�=f ���f � � �AUL�-��ATL�%8 USH��H� �& �;����L����L� H��H� 1�����;������;����;���E1�L��L��L�� H�5� H���0���;H� �@( �o��E1�L��L��L�� H�5� H��� ���;H� �@( �?��E1�L��L��L�� H�5� H�������;L�-7�H� �@( ���E1�L��L��L�� H�5� H������;H� �@( ����E1�L��L��L�W H�5m H���i���;L�-����H� �@( ���E1�L��L�# H���H�5� H���.���;�w��E1�L��L�� H���H�5" H������;�M��E1�L��L��L�� H�5[ H�������;H� �@( � ��L��L��E1�L�� H�5� H������;H� �@( ����L��L��E1�L�m H�5� H���~���;L�-%���H� �@( ���L��L��E1�L�� H�5� H���G���;H� �@( ���L��L��E1�L�� H�5A H������;H� �@( �V��L��L��E1�L�� H�5� H�������;L�-n��H� �@( � ��L��E1�L�� H���H�5� H������;���L��L��E1�L�u H�5� H������;H� �@( ����L��L��E1�L�E H�5� H���V���;L�-���H� �@( ���L��L��E1�L� H�5� H��� ���;H� �@( �^��L��L��E1�H�5� H��L�� �����;H� �@( �.��H����[H��]A\A]�Z�� � �H��H��� NetAddr::IP::Util:: as, bs s, cnst NetAddr::IP::Util::addconst NetAddr::IP::Util::countbits s, ... NetAddr::IP::Util::shiftleft NetAddr::IP::Util::bcdn2bin NetAddr::IP::Util::bin2bcd NetAddr::IP::Util::bin2bcdn NetAddr::IP::Util::bcdn2txt 1.53 v5.32.0 Util.c $;@ NetAddr::IP::Util::comp128 NetAddr::IP::Util::ipv6to4 $$ NetAddr::IP::Util::add128 NetAddr::IP::Util::sub128 NetAddr::IP::Util::hasbits NetAddr::IP::Util::bcd2bin NetAddr::IP::Util::ipv4to6 NetAddr::IP::Util::mask4to6 NetAddr::IP::Util::ipanyto6 NetAddr::IP::Util::maskanyto6 simple_pack Bad arg length for %s%s, length is %d, should be 32 Bad arg length for %s%s, length is %d, should be 32 or 128 Bad arg length for %s%s, length is %d, should be %d Bad arg length for %s, length is %d, should be %d Bad arg value for %s, is %d, should be 0 thru 128 Bad arg length for %s%s, length is %d, should be %d digits or less Bad usage, should have %s('packedbcd,length) Bad char in string for %s%s, character is '%c', allowed are 0-9 Bad arg length for %s, length is %d, should %d digits or less NetAddr::IP::Util::simple_pack NetAddr::IP::Util::notcontiguous ;� ��� ���< ���T $��� D��� d��� ���� ��@ ��T T��h t��| ���� ���� ���� �� D�� D��h ��� �� �� $�4 �� d�� ��� 4�� ��8 d�� t�� �� $�4 zR x � $ x��0 FJ w� ?:*3$" D ��� ( \ H��� F�G�C �aHB � ��� � ��� H � ��� F�E�B �B(�A0�A8�DpA 8A0A(B BBBH H � ���t F�E�B �B(�A0�A8�DpN 8A0A(B BBBC H ��� \ ���6 p ��� � ���* H � �� F�B�B �E(�A0�A8�DPN 8A0A(B BBBC � ��� � ���" ��! L $��� F�E�B �B(�A0�A8�D�� 8A0A(B BBBB L p ���P F�B�E �B(�A0�A8�D�� 8A0A(B BBBD � ���n E�h H � (��� F�B�E �B(�A0�A8�Dp� 8A0A(B BBBD ( ��E L < ��� F�B�B �B(�A0�D8�D�k 8A0A(B BBBF $ � x�\ F�D�G xLB ( � ��> F�D�D �QXB � ��� H � @�M F�F�H �B(�A0�A8�D`� 8A0A(B BBBG L @ D�� F�B�B �B(�A0�D8�G�� 8A0A(B BBBD D � �� F�M�M �E(�A0�C8�IP�8F0A(B BBB � ��� L � (� F�E�B �B(�A0�A8�D�O 8A0A(B BBBB 8 < ��� F�I�H �A(�D0�(C DBB % �$ Pl � � �L @l Hl ���o � � � Hn 0 � � 0 ���o ���o � ���o �o ���o Xl 0 @ P ` p � � � � � � � � ! ! ! 0! @! P! `! p! �! �! �! �! �! �! �! �! " " " 0" @" �Q R �Q �Q �P R �Q �Q UQ oQ Q xP 7Q GCC: (GNU) 11.4.1 20231218 (Red Hat 11.4.1-3) AV:4g1231 RV:running gcc 11.4.1 20231218 BV:annobin gcc 11.4.1 20231218 GW:0x3d1056a lto SP:3 SC:-1 lto CF:8 lto FL:-2 lto GA:1 PI:2 SE:0 GA$3a1 p$ p$ GA$3a1 GA$3a1 �L �L GA$3a1 p$ )% GA$3a1 �L �L GA$3a1 �L �L GA$3a1 GA$3a1 �L �L , 0% f' �8 0% f' :� 0% � �5 D� M� # �� P% P% R� �� 2 0 Z% �8 U1 �� c% c% V� �� ? = m% �8 U1 �� v% v% Z2 �� L J �% �8 U1 �� �% �% ^w �� Y W �% �8 U1 �� �% �% b� �� f d �% �8 U1 �� �% �% f �� s q �% �8 U1 �� �% �% jF �� � �% �8 U1 �� �% �% n� �� � � �% �8 U: �� �% �% P� �� � � �% �8 U0 �� & & T �� � � & �8 U0 �� & & XY �� � � %& �8 U0 �� .& .& \� �� � � 8& �8 U0 �� A& A& `� �� � � K& �8 U0 �� T& T& d( �� � � ^& �8 U0 �� g& g& hm �� � � q& �8 U0 �� z& z& l� �� �& �8 U0 �� �& �& N� �� �& �8 U1 �� �& p �� ��8 �& �8 U P � �& �l � U &� T0� 0 ( � �& �� � U �� T� [ S �� �& �U �� � ~ �� � � �� � � ʘ � � ֘ " � N L � q i �� -' � A �� � � �� C' h � � � � ' � � � � � � � &� � � 3� ��?� ��L� < � M� ( U (( U u' U �' l T} �' U �' U �' Z ? T} Q@ ( U ( _ d T} ]( 5 o( U �( d � T~ Q��R2 �( U �( i � Tv Qv R1 �( s U 0R T P #' U -' U C' U �( n G U T P �( �8 "� -� � t� N� �� �� җ ) t �v ݗ � 4 , �� ` T � � � � � � � � � (� �� M) G �� 1 / 4� c) = 9� = 9 F� R � G� R N R� o a ^� � � k� ��w� ���) U �) l � U~ T} * U * U ** Z 4* U ?* _ � T} �* 5 �* U �* d 8 T~ Q��R2 �* U �* U �* U + i � Tv Qv R1 + U 2+ i � Tv Qv R1 x+ s U hR T P �� C* �� � � J* U U* U C) U M) U c) U F+ n h U T P K+ �8 ̣ �+ �� ֣ U� � � l� �+ 6 � {� U �� T �� Q�� � �� % �� l b �� � � £ &� �+ �� 5� A = ?� W S I� m i U� � `� � � �+ � U�UT�TQ�QR0 � , * �� � U � � � ͛ 0, �c ؛ � ! � G A �� k ] � � � � � � �� m, g ! ^ �� � � #� r � (� � 3� ?� / + L� ��Y� L F f� f b s� } t� { u >- U �- U . h Tv Q| �, U �, U �, U �, c - � - U �- U �- U �- U �- d � T| Q��R2 7. s U �R T P X� �� c- �� � � j- U u- U c, U m, U �, U <. �8 K. n U} T P �� �� � P. �� � U�� � � �� p. " �� �� U �� T¢ � � ͢ � ֢ > 6 x� �. ! �1 �� x t �� � � �� � � d� �. � �Z o� � � |� � � �� � �� g [ �� � � �� � � �� � Ɲ j2 �� / � � � �� 6 4 ͝ "/ ҝ B > ߝ � � � W S � j f �� � y � � � � � � � ��)� ��5� ��B� ��~W� |0 |0 3 <� h� � � u� �� � � W� �0 �0 & h� u� �� O� � - T� ) ' K1 U V1 U _/ U |/ U �/ � d U} Q4 0 � � U Tv Q4 0 U A0 � � U} T Qv K0 U [0 Z e0 U p0 _ � T |0 U �0 � ! Uv T4 1 U 1 U +1 Z X Tv Q@ 51 U @1 _ } Tv o1 U �1 d � T Q��~R2 �1 U �1 d � Tv Q��~R2 �1 v � U �1 U �1 U 2 i 4 T| Q| R1 '2 U :2 i d T} Q} R1 O2 U b2 i � T| Q| R1 �2 s U �R T P X� b� �0 c� 4 2 �0 U �0 U / U / U "/ U �2 �8 �2 n U T P � �� �2 P �� �� A = �� ] S �� � � Ü � � Ϝ & ܜ ` ^ �� 3 � � � �� } { � � I � � � �� � � � ��� � � � ��'� ��3� ��~W� Z4 Z4 3 T� h� � � u� �� � � W� g4 g4 & h� u� �� @� � E� # ! 05 U ;5 U U3 U r3 U �3 U �3 U �3 � Q Tv Q2 �3 � n Uv Q4 �3 U %4 � Uv T��Q~ R .4 U 94 Z � Tv $ & C4 U N4 _ � Tv Z4 U �4 � U~ T4 �4 U �4 U 5 Z W T~ Q@ 5 U $5 _ | Tv W5 U l5 d � T~ Q��~R2 �5 U �5 U �5 i � T| Q| R1 �5 U �5 i T| Q| R1 6 s U �R T %P R� S� �4 � T� . , �4 U �4 U 3 U 3 U "3 U 6 n � U~ T P 6 �8 )� 6 n �g 8� = 7 B� \ V L� { u V� � � `� � � j� � � -6 v Us ]� �6 � �k h� u� / # �� v ` �� � � �� �� 0 . �� �6 � � � �� M K �� � � �� [ U �� u q ˙ � � ؙ ��� ��W� �7 �7 3 �� h� � � u� �� � � W� �7 �7 & h� � � u� � � �� � � �� � � �8 U �8 U 7 U d7 � U~ Q4 l7 � 8 U~ u7 U �7 � ] U~ �7 U �7 Z � T~ $ & �7 U �7 _ � T~ �7 U ?8 U V8 U b8 Z � Tv � l8 U w8 _ Tv �8 U �8 d E Tv Q��R2 �8 U �8 i u T Q R1 9 U 9 i � T| Q| R1 X9 s U �R T AP R� � �7 � � � 8 U 8 U �6 U �6 U �6 U '9 �8 69 n U~ T P � `9 E �� �� � & � T N � w q s� �9 � � # ~� � � �� � � �� � � �� C # �� �� � � ɞ �� �9 z Q �� , * ՞ $: x ڞ : 4 � # �" � W Q � � o �� � � � ��� ��%� � � �� �: �: � "� � + ) � 7 3 �� �; �; e "� K I � V T � b ^ B: U �: U �: U �: Z �: U �: _ � T| W; v � U} l; U �; d ! T��Q��R2 �; U �; U �; U �; � M! T| Q2 < U << U ]< U �< � �! U} Q4 �< k �! U} �< � �! U} T4 �< U �< i �! Tv Qv R1 �< U = i &" Tv Qv R1 \= s X" U �R T P X� �= s U S T eP Q| C� ; �" D� x t ; U ; U �9 U �9 U : U = �8 #= n Uv T ^P �� �= \ ��# �� � � š � � ҡ � � ޡ �= k �# Uv �= k �# Uv �= k �# Uv �= � U�UT�TQ�UR0 [� �= > ��$ g� 1 ) t� Y Q �� } y �� � � �� � � > # X$ U| Tv .> � U�UT�TQ�UR0 � 0> � �P% � � � �� � � � � ? 7 � n j *� � ~ 6� � � A� � � N� � � ʤ E> = Q� � ٤ `� �> M ��& l� - ' x� L F �� k e �� � � �� � � �� � � �� * à h f Π t p ʤ �> R n"& � � � � � � ٤ � � ʤ �> �> oo& � � � � � � ٤ � � �? �# �& U��T��Q ���8$8& �? �# U��T��Q} � @ � ��* � � � -� � � 9� E� n X Q� � � ^� k� $ w� CC �� P@ b q p' �� d b ~� �@ �' �� r l �� m )* �� � � �� ���� ��~�� ��~�� � � ͚ � � ښ � � � ��~�@ U A U ?A U NA U ^A � M( T| Q2 {A P% �A � w( U| T4 �A U �A U �A Z �A U �A _ �( T| B U ,B d �( T} Q��~R2 MB �$ ) U} Q�� �B U �B U �B U �B U �B i j) Tv Qv R1 �B U C i �) Tv Qv R1 hC s �) U PS T P Q��~X( �C s * U �S T �P �C s U �S T P � �A j* � ) % �A U �A U F@ U P@ U f@ U )C n �* Uv T ^P mC �8 �� �C ��+ �� @ : ͟ a Y ؟ � � � � � � � � �� � � � � K G &� n d 3� � � >� � � I� # T� M E ʤ .D � ��+ � | z � � � ٤ � � �D � U��T5 T� E � �P, c� � � p� � � {� � � �� � � �� � �� - # � �E �0 #� V R 0� | h <� � � H� T� G C a� s q n� � � �� �E � @ �, �� � � z� �E - � � � �� � l/ �� � � �� ���� � � �� ��~%F U �F U �F �+ �F U �F Z �F U �F _ �- T} *G �* �- U~ T 1G U WG U lG d . T~ Q��~R2 �G U �G �* <. U~ T�� �G U �G U �G i y. Tv Qv R1 �G U H i �. Tv Qv R1 H U 2H i �. Tv Qv R1 lH s / U �R T �P R� �H s =/ U �R T �P R� �H s U T T �P R( �� �F �/ �� �F U �F U �E U �E U �E U IH n �/ U T P NH �8 U� �H � ��7 a� # n� 9 5 z� Q K �� �� �� �� �P ��� � ]7 �� � g Ɩ � �0 ˖ � � ؖ � �0 ݖ � � � � �0 � ! ! �� � �0 � ! ! � � 1 � ! ! � $1 %� #! !! 2� ?1 7� -! +! D� Z1 I� 7! 5! V� ) u1 [� A! ?! h� 4 �1 m� K! I! z� ? �1 � U! S! �� J �1 �� _! ]! �� U �1 �� i! g! �� ` �1 �� s! q! k 2 × }! {! I U 0I �7 a2 T Q Q} R| X Q Y0 AI U `I �7 �2 T $Q Q} R| X Q Y0 qI U �I �7 �2 T eP Q} R| X Q Y0 �I U �I �7 ?3 T BQ Q} R| X ?Q Y0 �I U �I �7 �3 T \Q Q} R| X ?Q Y0 J U 2J �7 �3 T %P Q �2 R| X ?Q Y0 9J U \J �7 +4 T vQ Q 0, R| X @Q Y0 cJ U �J �7 u4 T �P Q} R| X @Q Y0 �J U �J �7 �4 T �P Q} R| X @Q Y0 �J U �J �7 5 T �P Q} R| X @Q Y0 �J U K �7 S5 T �Q Q} R| X Q Y0 *K U IK �7 �5 T �P Q} R| X Q Y0 ZK U yK �7 �5 T HT Q} R| X Q Y0 �K U �K �7 86 T hT Q �6 R| X @Q Y0 �K U �K �7 �6 T �Q Q} R| X @Q Y0 �K U L �7 �6 T �Q Q} R| X @Q Y0 "L U AL �7 7 T �Q Q} R| X @Q Y0 RL U qL �7 T �Q Q} R| X @Q Y0 �H U �H �7 �7 U ��Q| R �P X �P I U I U �L U �L �7 � Е �� 1� p &� p � p � p � p �� (p � 0p � 8p ٓ @p Γ Hp Ó Pp �� Xp �� `p �1 � � �0 � � � � � Ql n ?� u � !� !� % !�0 !�0 !� � & !�& � ( % 0) )q @int q ' *1 ! �3 �8 � �1 �1 �8 �7 �1 # �8 � �� �+ �q � �� Z) �� A � � � � � � �( �� �5 �!� D !� D @� � O� �( l' \) � � �8 2) e �& �} $� � L4 � 8 � 8 /- � . � - � L 3 !�0 D 8 � 11 ! K X 1 ] $ o � q � ) � K � o � � � � � �% " � h� #� pI% $� x,' '� � � � 8 � C , x 8 K , *!% � . � F � Y ) } q. f � v 8 I �� n3 Z j ! q @F "� H v � 8 �% F � 9� � � q J7 8 � $8 -1 :� �" ;� $?L � A q � B q � C� $G} -1 I� �" J� � K� $ O� -1 Q� �" R� � S q ]7 T� w& U� $a� | c !% d ^ � e� 7 g} $ Y? �0 [ ]R �' h � $lc �8 n� J# o q $t� � v �/ w q x1 p3� D 5� � <� / D ,_rt LL �/ V} �+ i 9 p? \4 yc q 8 $�$ Y ' & q J ( q � * q Z 0 q �, { � � | j 'u q ? � z B!� � % ) �� �, �� �7 � � � D � 8 � � �* � � � � � � ), b % e. �q 1 �� �* � �. �� � �� / / v # � ( � 3 P N �6 o � N � � � � � � � ]$ � � x% �0 * �3 4 4 > : H H R � \ � f � p z � q � � � � � � � � % � 9 � M � L N �. � !� � {B �? r � ? �4 � O �5 � _ 6 O 8 B _ 8 N o 8 �6 �� � � � 8 �6 �k �5 � �+ $ � n ,� 15 -� F / � �# 0 � Z 2 q $� 4 � (� 9 � 0_- = 8� ? @� J� Hc) K� X� L� h�( Yk x 3 { 8 (tm 8 q = q � q � q � q - q U. q 4 q �% q �3 � (G 0 �, X h2 ? R4 u q ,2 N � b� � d ? � e u � fq V gq �% h u � �� 4 ? �6 u � q z) ? i D& 63 F ? `* G u 7 Hq D 6 8 � *DIR B �. "IV o� G "UV p8 "NV �m ! !� � f � { "OP h � (op ( �j > �s/ V �s/ ��E 6 �D �$ ��. � ��. �- ��. \6 ��. "$ ��. �3 ��. w ��. �+ ��. D. ��. " ��. # "COP i v 4cop X �� > �s/ V �s/ ��E 6 �D �$ ��. � ��. �- ��. \6 ��. "$ ��. �3 ��. w ��. �+ ��. D. ��. " ��. #� �/ $� �D (�4 � ? 0� � / 8� � / <[ �YK @�' � cK H�+ � / P # o � � ` � > �s/ V �s/ ��E 6 �D �$ ��. � ��. �- ��. \6 ��. "$ ��. �3 ��. w ��. �+ ��. D. ��. " ��. #_ � s/ (�+ � s/ 0�# D 8T- / @� �E H� F P�& s/ X s W6 P �/ > �s/ V �s/ ��E 6 �D �$ ��. � ��. �- ��. \6 ��. "$ ��. �3 ��. w ��. �+ ��. D. ��. " ��. #_ � s/ (�+ � s/ 0y � s/ 8� � s/ @� � s/ H 7 ~ < : �r$# �( #Z/ .Iop $s/ H) %Z/ [ 'Z/ �5 (Z/ � *W ( ,�. 0 -�. 4h6 /W 8� 0�. @� 1�. D� 3Z/ H�1 4h P8 5h XD$ 6h `� 8/ h+ :W p�3 <W x� =W �� A�. �� CW �+ En/ �M H�E �M- K�< �� L�< �p( Nx/ ��4 Ox/ ��3 ^�. �� h�. ��7 i�. ��- jd/ ��# v�. �o' }�. ��4 �n/ �� �n/ �z( �kN �v �i/ ��) �W �B- �i/ � �4 �G ' �P/ d �P/ � ��< j � W } �#W ( " �WD 0 � �$# 8 ' �$# P � �$# h �$# � �$ �@. � : �@. �5ISv �P/ � �(W .* �n/ 5Ina �{ � �� � �d/ � � �P/ �5Irs �P/ � � �d/ � � �d/ � r �d/ � � � � t6 �P/ � �4 �P/ � ^1 �P/ �> s/ � �L � �L * <K � P/ � 0 �1 �� s/ 1 s/ � n/ �# d/ � d/ o2 ? (D { 0�& �. 8�2 ?�. :� Ax/ ;| Bx/ <z+ Cx/ =29 Dx/ >� H& ? KP/ @7 N-W HX e�V x� }�V � ��V ��- �u �7 �? � �/ �1 �/ �� �q �6 �q �@ �u � �d/ � �d/ �]. �d/ �2 �? �\/ � �� �P/ �9 �P/ �� �P/ � �=W �z0 � � �x/ � �x/ � �x/ � �x/ � �x/ w �x/ h �x/ �x/ # �? P �P/ w �t { ��. (O ��. ,� ��. 0�1 �q 4e �BW 8� �d/ @� �d/ H� �d/ P�- �d/ X �i/ `�7 �d/ hy1 �d/ p&' �d/ xD �d/ �6 �d/ �\ �P/ � �P/ �{. �P/ �� �i/ �� �GW � �n/ �@ �n/ ��4 �P/ �> �i/ �l �i/ �( �i/ � �i/ � �i/ 2 �i/ � �? ]9 �7 � s/ � s/ (n# s/ 0v s/ 8�" kN @w3 q HM q L�& ? P_ i/ X7 P/ `\ P/ h�) q pb �. to8 x/ x�/ x/ y�% �. z� q |� �. ��3 #�. ��/ $WW ��* 3n/ �- 6\W �� 8j � :�7 �~ ;RD � <D �8 =D 4% E�7 �* Fq I/ $� Kx/ (� Lx/ )| Mx/ *� Nx/ +�8 Q\ ,� R\ 0� SP 4T, TP 8CIan U/ <�7 X/ @h `/ D} c/ H ) d/ LG, eu P i? X� k0 `` n�/ h� o�/ p� qaW x)) s/ �J u/ �] �U �/ �P/ �- ��. M �D l �D �' �D ( �6 �D 0 � �D 8 3 �qW @ _2 �? � n �� � � �� � � �/ � / ��. � D �x/ � i1 ��. � �( �x/ � �/ �? � �. �� � �8 �? � V �� � M. �x/ � d3 �x/ � � �$V � �% �x/ � � �? � 2 �q � % �x/ � �# �x/ � �, �? � M0 �P/ � �* p/ �x/ l7 �x/ �, �Z/ 1 �Z/ Y3 ��W ( �i/ 0 �0 � 8 t Z/ @ �. i/ H �W P � D X ( D ` . �W h �' n/ p y n/ x 2 �/ � T( �W � � �W � 0 i/ � e& i/ � �5 � � � #�U � ?% $�U � � -�U � j$ 1�U � � 4�U � � 7V � � :n/ � �" @n/ � � Ci/ � En/ � �. G�W �8 K�W > MbV 3 P�V X �6 Y�W ` � Zq h y bSU p f o�W � �8 zD � 6 |{ � � �D � �2 ��W � �& �P/ � � �P/ � �* �P/ � � �P/ � $/ �P/ � X �P/ � �P/ � 3 �P/ � �P/ � �P/ �" �P/ � �P/ � �P/ ( 6 �P/ 0 � �P/ 8 �$ �P/ @ � �P/ H R5 �P/ P Z' �P/ X �5 ��W ` �6 ��W � .8 �P/ ` �P/ h�) �P/ p �P/ x� �P/ ��. �P/ �& �P/ �' �P/ �84 �P/ �I �P/ �=3 �P/ �� �{ ��/ �{ �R1 �{ � "SV � 4# $# (sv �t# 4' � # �/ � �/ Z �Y1 "AV � # (av ��# 4' �O3 # �/ � �/ Z ��2 "HV � �# (hv � $ 4' ��3 # �/ � �/ Z �T3 "CV � $ $ (cv �Z$ 4' ��2 # �/ � �/ Z �^2 �, � g$ 9 �$ 4' P6 # / � / Z S4 "GP � �$ (gp P e% !4 P/ G D �, �7 0" / � / j/ n/ e, i/ (. �7 0w d/ 8:- / U" / �" �6 H "GV � p% (gv �% 4' �Y2 # �/ � �/ Z ��1 4io �% 4' N4 # / � / Z �3 � & � h n & (% rCO �3 h ��& � � �. � � �. - � �. ' � �. � �. �$ �. �) kN R9 �< � h s �. (;' N 0 ,$ � �& j 0!K' �# ! 7 ! �P 41 ! �. |8 ! D � ! �. r ! h ? ! P/ �, ! ? ( "XPV � W' 4xpv ��' �( �n/ *" ��6 � �{ � �7 � � �' � ( �' �( n/ *" �6 � { � )7 5 �6 � � ( f7 (" [( �( " n/ *" " �6 5, " h 5 " h @# " Z/ 6 � h( #��( �( #� n/ *" #��6 �& #�{ � #�{ � � �( � 0 ;) �( <n/ *" <�6 � <{ � <M7 5 =�6 � >U6 ( � � ') �8 h$ �) �( $n/ *" $�6 � ${ � $�D �' $n/ �* $�D (_ $�D 0� $E 89" $? @� $<E H� $�7 Pj0 $/ X20 $q7 \�/ $�. ` � �) � � e+ �( fn/ *" f�6 � f{ � f�7 5 g�6 � i�1 ("9 v�7 0�% x G 8� y G @_% z G H03 { ? P�) | d/ X� } ? `�4 ~ d/ h�- ? p� � d/ x, � D �� � �. � $ � + � @! �+ @ ! $P �4 ! $P � ! BP �1 ! $P �0 ! $P 57 ! oP (*0 ! �P 0 ! $P 8 "ANY � �+ Dany �~, � � �P/ �1 �Z/ � �d/ < �i/ C �n/ o �s/ � �? � �u 0 � �. � � / � � G 1 � W �2 � � �( � x/ w � >/ "2 � �/ �- y�, k z?U �2 {z ~ | � � �, �, 0'- *# �DU � � W < � W ( �NU a �?U �?U ( � � 4- F ( ��- &* �i/ . �W �+ ��/ � ��/ � �i/ P � �- 8 % �- r % h � %&\D ^ %' / + %( / "PAD � t# � � �- (%+@. / %, h # %-�D g %. h G %/D � %0 / _ � M. � 0%L�. �8 %M? j- %Mn/ � %M�D + %M/ ( %M/ X# %M/ �4 %Mq $8& %M�. (� %M�. ) *I8 &�? *U8 &� *U16 &�% *I32 &�q �. *U32 &�1 / E/ � &� / � Y '>/ 3/ �7 � $# P/ P/ Z/ e% t# �# � !H '�/ �/ / / D �/ 8 < '<�/ � � '>�/ �/ } 'Q �/ o � (4e � (5�/ �/ '0 q 0 &/ � (;�/ 9�' )�\0 2 )� �. �" )� ? �" )� s/ T' )� d/ �' )� 0 61 ��0 � �0 ; B" � �, 0 G � � ^ 2 ) *HE ��0 (he # 1 1. #$ �1 #% �6 #)�J *HEK �%1 (hek #-Y1 ;( #./ � #/�. �- #5�/ ��1 � �? N �G 5 �W � �b S �P/ '4 �Z/ � ��1 p ��1 ��1 �1 �0 �$ �/ �Y2 � �? N �G 5 �W � �b S �P/ '4 �Z/ � ��1 p ��1 ��1 �( ��2 � �? N �G 5 �W � �b S �P/ '4 �Z/ � ��1 p ��1 ��1 ) �O3 � �? N �G 5 �W � �b S �P/ '4 �Z/ � ��1 p ��1 ��1 �' ��3 � �? N �G 5 �W � �b S �P/ '4 �Z/ � ��1 p ��1 ��1 [( # N4 � ? N G 5 W � b S P/ '4 Z/ � �1 p �1 �1 �) # �4 � ? N G 5 W � b S P/ '4 Z/ � �1 p �1 �1 �$ �*nP6 �( *on/ *" *o�6 � *o{ � *o�8 � *p!�9 B4 *q �8 (x" *r n/ 0�4 *x / 8P# *y / <� *z h @� *{ h He *| { P�1 * �9 XJ+ *� `�1 *� / h *� / l *��9 p� *� u x�& *� / �+ *�/ n% *�/ $� *� ? � *�P/ ��$ *� h ��7 *� h �� *� h �$ *� h �� *� �7 � �4 7Y% ��6 � � b �, � n/ :* � / >7 � x/ 7C5 ��6 �$ � G �* � W �6 � �6 4 � x/ 1 7 9 � 7 f � 7 @ � { �& # �)7 � �{ p �P6 # M7 � { p P6 # <q7 � <{ p <P6 S+ A / '�7 �/ �7 $ ~7 �- # f�7 � f{ p fP6 # s�7 ^" t�7 �2 u 6 � * 8 . *�. 8 * �. * * �. � * �7 X (*(z8 } *) h � ** h k *+ P/ f *, P/ � *- h 1 �*/�8 ;. *0 �. �7 *1 �8 +8 �8 8 -+ *<�8 *= h .end *> h � *E h -+ *F�8 Z$ �8 *o 9 � *o{ p *oP6 � h*��9 4 *�H: g *��: � *��: �0 *��: � *��: �8 *� ; (0 *�6; 0)6 *�Y; 8, *��; @�# *��; H+ *��: P?1 *��; X4 *�< ` 9 �9 z8 �8 �$ *��4 � *� : |, *� u � *� : h (( *��9 �8 H: �/ U/ / /: �. �: �/ �8 ? ? ? h P/ / M: ? �: �/ �8 P/ ? ? / �: #: �: P/ �: �/ �8 �: '�: �/ �8 �: ' ; �/ �8 �. U/ �: ',; �/ �8 �. 1; /# ,; ; �. Y; �/ �8 1; �. ;; P/ �; �/ �8 U/ U/ / ^; P/ �; �/ �8 1; / �; �; �/ �8 �; '- �; �8 < �/ _/ q s/ �9 �8 < / / x/ �; X*� �< rex *� �< N- *��< *�P/ � *�? �$ *� { �7 *� { (� *� { 0 sv *�P/ 8�" *� 7 @ pos *� h HQ *� �. P �9 � �* *� < *� = �* *� = � *� c= *� �= *� ? �< ~ �*�c= N *� q � *� ? � *� ? sr0 *� )? u *wC = :k x*��= � *��C �5 *��= hk *�"�= p h= �( *��< + *� �. *��= �3 *� c= *� > �3 *� c= *� / �& *� / cp *��= *�n> �3 *� c= *� / �& *� / cp * �= � *n> 8 @*$? �3 * c= * / �& * / cp * �= K' * / M * x/ r *$? me *n> (� * )? 0e * / 8 * �. <$ * �. > �. �. @*�? �3 * c= � * c= �' * $c= � * �8 cp * �= �6 * �= $� * / ( B *!n> 0� *"? 8 0*% @ �3 *' c= �. *( �. �) *) �. � **�. *+? end *,? me *-n> ( *0c@ �3 *2 c= � *3 c= � *4 P/ T7 *5 ? *8|@ val *9 q 8*>A �3 *@ c= � *A c= me *Bn> B *Cn> cp *D�= � *E x/ $� *F q (� *I q , *J ? 0 (*MmA �3 *O c= �! *P c= cp *Q�= �6 *R�= *S ? �. *T �. T *U �. $ `*X4B �3 *Z c= c1 *[ q c2 *[q cp *\�= *] / �& *^ / ) *_ �. � *` �. � *a x/ $ A *bn> ( B *bn> 0 me *cn> 8�2 *d4B @� *e4B N �. DB 8 h*hC � *i / cp *j�= *k / �& *l / c1 *m q c2 *mq �, *n ? g *o ? � *p q ( min *q q , max *qq 0 A *rn> 8 B *rn> @�2 *s4B H� *t4B V #h*��C �( *��= �* *� �< 1yes *��= � *� �= � * > :% *s> � *#.? �& *.�? ' *6 @ S *:c@ " *K|@ 14 *VA j *fmA � *uDB ~ *x= �C �C 8 k *�h= S +D8 �% i %h $%!RD %"RD %# WD % %$ WD �- �- % ~D 2 % ~D %%�D WD !D �D @. %M�D j+ %Mn/ o %M�7 $�D � ${ p $P6 $�D A' $s/ ] $�+ $E * $s/ � $�7 $<E �' $d/ �0 $�6 $^E 4 $�7 � $ � �E �6 �D ,sv �P/ ,iv �G ,uv �W ,pv �? �h 0 �^E s/ �E �/ �E �E # F s/ P2 D t d/ # &F � s/ �# D � 0,1�F � ,3 ? �" ,4 ? �. ,6 � �3 ,7 � � ,8 ? q ,9 ? �/ ,: ? ( � -*�F �$ -, ? � -- ? � -. � U/ -/ u ;?+ �.H3G -% .M3G q .V3G � � .[DG �( .bUG � .iD � � .nfG D DG 28 D UG 28 � D fG 28 � D wG 28 �w 6 H/+�G � /- ? � /. ? � //� V /0� � /1� /2� ( , /4� 0� /6� 8�7 /88 @ F�0� �J " 0�? � 0� � � 0��J p 0�? � 0� � Q 0��F (C 0�? H�0 0� � P 0��J X� 0�X `� 0�? �� 0� � � 0��J ��- 0�q �# 0�? �� 0� � �j* 0� ��' 0�? �t 0� � ��$ 0��J �b( 0�q �4 0�� � 5 0�? 0� � 0��J � 0�&F � 0�? H�2 0� � P� 0��J X� 0�� `h" 0�? �' 0� � �8 0��J � 0�wG �) 0�? �p 0� � �� 0��J �� 0 { �z' 0 { 0B& 0"? h� 0# � pD( 0'? x�6 0( � �_& 0, q � �F �F X � &F � wG 0 0-�G #&�J >, #'P/ #( � � 7K �5 !7K D1 "� G # q � 6 $ x/ �F %�. �5/ &h � �J � )�J � � TK :) { YK HK �" 0 S�K T s/ c8 U�. D W WD cv X �7 f' Z �. 95 [ i/ ( ? 0 `+L a s/ c8 b�. D d WD cv e �7 gv g d/ �/ h d/ ( � 8 ��L � s/ c8 ��. � � P/ y# � s/ I9 � P/ cv � �7 (^+ ��L 0 <K # ��L 1svp � Z/ 1gv � d/ ��L ary � i/ ix � G �M �* � �. ix � G �6M cur � G end � G �]M cur � P/ end � P/ # ��M 1ary ��L l ��L �, �M K1 �6M Q6 0 ��M � � �M K" ��L �& �P/ �+ �]M � � WD ( + � N I5 �s/ �' � P/ #8 kN " hK �. �K � +L �. �M $ �M j �4 X .CO $1 / �. } 0 �. U 1 �. � 2 �. � 4 h ) 5 h � 6 ? 7 7 P/ �) 8 P/ (�! 9 ? 0�! : ? 8� ; ? @ < H- =�8 P #h ogO � p & �4 qpN �) 8 �O i i/ � �O � �O �/ �O � �. � �. $� �. (� �. ,$ �. 0 �% gO $ !gO q $P �/ P/ 7 P / BP �/ P/ 7 )P q oP �/ P/ 7 P/ �. GP q �P �/ 7 �; tP + $1 �P .val 1 \0 U 1 R 1 �. 1 �7 1�P � (10Q � 10Q � 1 P/ 1 ? l5 1 ? � 1 P/ �P < 1 �P ;G6 �1"U 1&U , 1'\0 �# 1(q 1+q l 1- U * 1. U .ps 1/ U (� 10q 0 14 �. 4�) 15 �. 8 16 �. <! 17 ? @x 18 ? H�( 19 �. P " 1: �. Q` 1< �. R�& 1= x/ S" 1>x/ T� 1? �. U� 1@ s/ X�+ 1A s/ `% 1B P/ h� 1C �. pO 1D �. r� 1E �. t� 1F P/ x� 1G �. �e 1H �. �� 1I W ��6 1J W � 8 1Kx/ �A 1L �. �" 1M �. ��" 1N �. �* 1O s/ �( 1P P/ �� 1QU �� 1R P/ � 1S ? �5 1V ? �5 1W ? �� 1X ? �<8 1Y ? �v 1Z ? � 1[ ? �Z 1` / �y* 1a �. �� 1b �. � 1c �. � & 1d n/ � 1e �1 �7 1f i/ � 1h U T 1i #U @ �1 1j �. T � 1k �. U * 1l �. V b 1m �. W � 1n kN X � 1o & ` �6 1p / ` �$ 1q / d F/ 1tW h F8 1uW p g 1vD x � 1wx/ y 1yx/ z0 1{�. �D 1|�. �� 1}�. ��+ 1~�. � AQ �P 5Q \0 #U 8 �. 3U 8 G6 1AQ ~, ?U $ IU � ��U ��/ �5 �$�U k �$�U SU 5 &�U �U q �U �/ � '�U �U '�U �/ P/ � (�U �1 *�U �U x/ V �/ P/ � +V V '$V �/ G� 1 ybV { � �1 S8 �+ �( z5 H V pad V $# �V 8 � &�V �V '�V �/ s/ � :�7 F >�V _0 BV IW fn J �/ ptr K �- L�V �+ �. �O �C �C 3U ? =W 8 q G WW 8 W / qW 8 ? �W 8 �, n/ �J �/ K' P/ �W 8 " D �W 8 P/ �W 8 HZ <-C/ 61 2>�X ; � r � ^ � ( �* } �% 7 '7 � �' �0 L �/ H N$ M* �, && �+ �$ � �5 �( �% k) � �2 61 3�Z X 22 � L � z2 �1 g � �3 d � � 6 � o 9 ( E � d R 9 ( D � c Q � S& � !D* "p #�% $k %� &J3 '�% (d )�2 *� +�# ,� -� .3# /� 02# 1'- 2 3&- 4 5t 6�& 7s 8�& 9� :e# ;�- <�- =� >� ?\ @}7 A� B�" C�2 D� EW F G� Hk, Iz7 J� K 41 �Z ,u 43�Z ,c 44�Z � �Z 8 �Z 8 � 45�Z %a5 7? %� 7"? %}4 7@? %] 8? %�3 8 ? % 9? %d4 ;? %� ;"? %y- ;D? % <? %[ <$? %o4 =? %�" =(? >6 ,4?�[ .txt 4A �[ .bcd 4B �[ D �[ 8 � �[ 8 *BCD 4Ca[ <<0 K�[ �/ U/ R )2$ 5� P/ �[ �/ )�5 5� G \ �/ U/ �. )� 5k P/ $\ �/ R =� �6\ 3 )7 5� P/ R\ �/ U/ ) 5� P/ s\ �/ � )7 5} Z/ �\ �/ Z/ Z/ h )�1 5� ? �\ �/ U/ ^K �. =<2 ��\ �\ $ �\ <I &�\ �/ �. ). 5� �7 %] �/ �V / )4 5(�. G] / 3 )� 6 ^] Ig 73 q z] q 3 0�) 83�^ 83�/ cv 83�7 ax 88 �. ' 88 Z/ sp 88 Z/ @ 88 �. �4 8= cv 8L�7 �] p_ 8O ^ p_ 8Q !^ p_ 8S 3^ p_ 8U E^ p_ 8W W^ p_ 8[ i^ p_ 8] {^ p_ 8_ �^ p_ 8a �^ p_ 8c �^ p_ 8e �^ p_ 8h �^ p_ 8j �^ p_ 8l p_ 8n +c �_ 8�/ cv 8�7 sp 8 Z/ ax 8 �. ' 8 Z/ @ 8 �. ix 8�. k_ p_ 8 s 8 P/ ip 4 �_ �/ 4 ? wa 4 �Z len 4 { � 4 R +Y ��` 8��/ cv 8��7 sp 8� Z/ ax 8� �. ' 8� Z/ @ 8� �. ix 8��. 3` p_ 8� s 8�P/ ip 4��_ �/ 4� ? wa 4� �Z len 4� { � 4R +�7 �:a 8��/ cv 8��7 sp 8� Z/ ax 8� �. ' 8� Z/ @ 8� �. s 8�P/ ap 4��_ � 4� wa 4� �Z len 4� { )a � 4�R � 4�R +� o=b 8o�/ cv 8o�7 sp 8q Z/ ax 8q �. ' 8q Z/ @ 8q �. ix 8r�. >v$ ��a p_ 8r s 8xP/ n 4��[ � 4��Z �4 4� �Z cp 4��_ � 4� �/ 4� ? len 4� { ,b � 4�R � 4�R +@ >�b 8>�/ cv 8>�7 sp 8@ Z/ ax 8@ �. ' 8@ Z/ @ 8@ �. ix 8A�. �b p_ 8A s 8GP/ n 4u�[ cp 4v�_ len 4w { � 4�R +� �c 8 �/ cv 8 �7 sp 8! Z/ ax 8! �. ' 8! Z/ @ 8! �. �c s 8%P/ bp 4`�_ �/ 4a ? len 4b { � 8,q 9 8-U/ � 87 G � 89R +� ��d 8��/ cv 8��7 sp 8� Z/ ax 8� �. ' 8� Z/ @ 8� �. s 8�P/ � 8�. �4 4H�Z ap 4I�_ wa 4J �Z wb 4J�Z len 4K { xd � 4WR � 4YR +, ��e 8��/ cv 8��7 sp 8� Z/ ax 8� �. ' 8� Z/ @ 8� �. ix 8��. >q &e p_ 8� as 8�P/ bs 8�P/ ap 4 �_ bp 4 �_ �/ 4 ? wa 4 �Z wb 4 �Z �4 4!�Z len 4" { �e � 4?R � 4AR +k xyf 8x�/ cv 8x�7 sp 8z Z/ ax 8z �. ' 8z Z/ @ 8z �. ix 8{�. f p_ 8{ s 8�P/ ap 4��_ �/ 4� ? wa 4� �Z len 4� { i 4�q hf � 4�R � 4R 8U �q �f ,9 4��_ n 4�'�f bcd 4� *3 4� i 4�q j 4� q �[ 8T �q �g & 4��_ n 4�)�f tmp 4�� � 4� � - 4�"� P/ 4�(� � 4�.� ' 4� � u, 4� c 4�q i 4� q j 4�q p 4�q 0{- 4i h bp 4i _ 4i h 4i+ h len 4i6q i 4kq �5 4kq lo 4k q c 4l cp 4l �_ �Z 8� ID �h str 4I len 4I q n 4I(�f i 4Kq j 4Kq lo 4Kq c 4L � 4L �_ sp 4LC�_ 0� 4;�h _ 4; h � 4;% h �) 4;1D ap 4=�h tp 4=)�h � 0 4*i _ 4* h � 4* h ap 4,�h tp 4,)�h 0�1 4Ni ap 4�h p 4�h �6 4#� � 4)� -�# 4� �i ap � p0 ��h p1 �0�h p2 �>�h p3 �L�h � 4 /� ��i ap � len �q a ��h /� �j &�) 4� src �" len �+q d ��h s �$�h - 4�q (j bp � p ��h -^ 4�q Kj bp � p ��h -�0 4�q �j aa � bb �!�h &_ 4�, h con �;� tmp �� -% 4�q �j aa � bb � &_ 4�' h &� 4�2q i �q a �� b �� r � � /% �k aa � a ��h /�2 ~7k aa ~ ux ~ a ��h /K t_k aa t ux t a v�h /P) I|k b I? c Kq J� 9 �. �k 9 �/ � 9" �. � 9# �. K� 9��. �k & 9��/ -� :Tq �k & :T 3 -� ;9 #l &�) ;9 &2 ;9q &� ;9� L� ; &�) ; &� ; &� ;� I ~ H } 4 1�B H} 1�B 4 1 H} 1U .1@z 1R�B X!Y W! 1 . 1 1 1R�B UX YW 4 1 1R�B X!YW H}� 1R�B X!Y!�W! 6 1 . ?<n:!;! % 1R�B UX Y W 1R�B UX YW H }� . ?<n : ; 9 I8 : ;9 I8 : ;9 I8 !I ( I 4 : ;9 I : ; 9 I : ;9 I 4 : ;9 I : ; 9 I : ; 9 I8 : ;9 I8 : ;9 I I : ; 9 ! I/ & I 7 I : ; 9 I k : ;9 : ; 9 : ;9 I : ;9 : ;9 I :!4; 9 I 4 :!4; 9 I < : ;9!I k 'I !$ > " :!;9 I # : ;9! $ : ; 9 %4 :!4; 9 I? & : ; 9 I '' ( : ; 9! ).?: ;9 'I< * : ; 9 I +.:!8;9!' , : ; 9 I -.?: ; 9!'I . : ; 9 I8 /.?:!4; 9!' 0.?: ;9!' 1 : ;9 I 2! I/ 3 4 : ;9! 5 :! ; 9!I8 6>! !I: ; 9 7 !:! ;9! 8.?:!4;9!'I 9 !: ; 9! : : ;9 ; : ; 9 <.?:!5;9!'< =.?:!5;9!'�< > :!4;9! ?% @$ > A B& C : ;9 I8 D : ;9 E5 I F : ;9 G> I: ;9 H4 : ; 9 I?< I.?: ; 9 'I< J.: ;9 'I K.: ; 9 'I L.?: ; 9 'I � K � < N d l u | � � 0% � K #.]f", � �� ��z ��v � �r ��n ��j �gf � v <�� � � �� ��x ��t � �p ��l ��h Xx �d e t e. XKvu.=�Kvu.=�� Ks� .XX�yX# � �y. J �< �X ;KK tv �tL Xf J��~JJX � < J � �=X;iY f ' Y - K � � �<�.�}�X v� � � X� ��}XJ1�tU��� Ks� .XX�yX# � �y. J �< �X ;KK tv �tL Xf J��}JJX � < K �� �=XeiY f J � � � �<�.�}<X � � X � . � � � z � .�$��}XJ1����z�K>L`K2k�<+ .$ rJ Jf X�K 6 =w.A / = = X , K =W X t t��t Ks� .XX�{X# � �{. J �< �X JJ<K �f <` x.��~�� J �~� � � J X � � �X �~.�< X. � * t J L � � <� s� �~( � �� ��~�<XX�iX� P. �{K /- J t�AK � X < u J X�L � 0 J , > ^�� Ks� .XX�{X# � �{. J �. �X ;K ;tgK L �f <L :Z,f J�L X�~�� � < J � �� � J J � ��WY�� f X . 2 � � t J L <) tKL�%�J<�t]t��~$� f ' Y - K t � e � �� . X � � � � � y � Xpw�(�NX�~���� Ks� .XX�{X# � �{. J �. �X tJ� �f<L :Z ,f J�LX � � J �~< � � < J � �! f X 7 Y - Y � X J L <) tKL�%�J<�t]t�"�~J�JY f ' Y - Y t � v � � � �~� � � � Xy<�� ��{XK @V� ;/ � 0+= = � 0+= / � I=Jr. <JJ�< Ks� .XX�yX# � �z. J �< �X Jtu �fZ Xf J��~J<X � J J � �X� � -/X � - Y - K � X J L <) tKL�%�J<�u\����~& f t � Y - Y t � v � � J � "�cX�~�<�|XK 9L O E/ WgzX /g / @ Ej@Z�� Ks� .XX�|X# � �|. �J �|< �< �<u IKK� ,< vX> � J��~J� � < J � �� �2��|�X� f J � � � �<��~��� [� t X � � XJX<X� t t � J ���|� X� � f JyXtXJ t � �XY�J/ ' � � e " X�EX�~� h J1��E�0�.�~�K�LY @8K � � �Y� H� ,X �= KXM 58Y =>z � �u ,X 0> K WU =O�} �J �}��J �}f<�� �}.�� wJ =Dw<KqJ <Y<[;] E=KL 9i K/^ �}f�J��}� �}�<��} < ��Xj[Y;f/ j� e JK <j:xf .Hx� <pJ f[YIk Jm���. ��s��/ us� .XX�zX# � �z. J �< �X�J= I= ;KK �,<<Wv Xf J��~JJX � J J � ���� f< " � t Y�Y� f J � � � �<�J �}J � W <� ��JKX� . � k � � � � X��~���%��~XE s��.w�. dX ��X��}<Kz 4 �}J�J9N* �} �X �}J �t�}X� �}�f� K; = W V J Yf tZW�=Z = 7 <5/-g uo JKn xX < .xJY(>� dYX�� J..CK �� < xJ Jg Y ftfY 8< N8K ; <J�<= vJ JKv f ��. Ks� .XX�zX# � �z. J �< �X ;KK tv �tL Xf J��~JJX � < J � � �� f X f � � J � � � �<��~J� X� f � y � V < �� . � y � � � � y � X�(��~X���&N .ft 2p j�X$Xt & -< uX � -< uX � �< uX � -< uX �0 q< uX # * & -< uX � -< uX � �< uX � -< uX � -< uX �/ r< uX # & -< uX � �< uX � -< uX � w.< tZH0 > HX u m �� � < z � P N =u � � � � , � � � � � � � � � � + � � l � � � � � " � � � � u � � � � � � � � X � 8 J � | � 9 ` ? d P � B u | l � � GNU GIMPLE 11.4.1 20231218 (Red Hat 11.4.1-3) -m64 -mtune=generic -march=x86-64-v2 -g -O2 -fno-openmp -fno-openacc -fcf-protection=full -fPIC -fstack-protector-strong -fltrans -fplugin=annobin __builtin_puts __stack_chk_fail __builtin_putchar Ilaststatval long long int old_parser subtr_ass_amg blku_oldsaveix Iorigargc Iorigargv si_errno keeper __pad0 tbl_arena_next _spent_size Iin_utf8_CTYPE_locale hostent ls_prev close_paren lex_stuff xpvgv Istatcache is_simple_pack Icompiling Idbargs new_perl blku_oldsp sub_error_count xpvhv PERL_CONTEXT _asctime_buffer Inumeric_standard prevcomppad Ie_script sv_u Ipreambleav XS_NetAddr__IP__Util_comp128 IDBcontrol memset xpvio xpviv tbl_max si_tid Imy_cxt_size blku_old_tmpsfloor Imain_root xcv_outside blku_type _PerlIO __locales he_valu Iutf8_totitle _spent_struct named_buff want_vtbl_hintselem extendipv4 h_length op_first Idoswitches _netent_size thrhook_proc_t next_branch Perl_POPMARK block_eval s_port __in6_u in_port_t gp_refcnt prev_mark Idef_layerlist saw_infix_sigil Irestartjmpenv save_lastloc Iwarn_locale _spent_buffer Icolors mg_obj je_old_delaymagic fallback_amg multi_end PerlIO_list_s PerlIO_list_t COPHH scream_pos Iargvgv despatch_signals_proc_t rshift_ass_amg xio_flags Isharehook tm_mday old_regmatch_state xcv_xsub nextword Iminus_E Icheckav pad_1 pad_2 Imarkstack Idump_re_max_len tm_zone Istatusvalue IDBsingle utf8_substr __u6_addr8 min_offset pmop st_atim sival_int Ilast_in_gv Ireg_curpm share_proc_t Ihash_rand_bits_enabled pw_gecos netswap_copy _call_addr long double op_private _isipv4 lex_formbrack SVt_LAST __ch sbu_dstr XS_NetAddr__IP__Util_bin2bcd Irunops Ipsig_pend _ctime_buffer Icomppad_name Imarkstack_max sbu_iters internal Ireentrant_retint saved_curcop max_amg_code __blkcnt_t PTR_TBL_t sig_seen xhv_max _protoent_size hent_hek _grent_ptr _getlogin_buffer xivu_eval_seen __locale_data pos_flags Istack_base exec Imax_intro_pending poscache op_pmstashstartu to_gv_amg group sbu_strend smart_amg re_scream_pos_data_s cop_stashoff s_addr st_size sge_amg pthread_key_t Iperldb lastparen si_addr_lsb Iinplace __locale_t _pkey tm_min IDBline want_vtbl_nkeys sin_amg Isv_arenaroot jump gp_egv newval padname states xio_bottom_gv Iphase yylen subbeg cos_amg _asctime_size tp128 Iblockhooks end_shift sbu_oldsaveix _pwent_ptr Iosname n_addrtype lex_casemods lex_brackstack numbered_buff_STORE Iefloatsize PADLIST Ipeepp PADNAME __printf_chk Iregex_pad retop xcv_padlist_u minmod sp_pwdp Iutf8_foldclosures Ilocale_utf8ness Isv_yes carry parenfloor branchlike JMPENV Imain_start qr_anoncv Istashpad _arch my_perl Ienvgv binary msk8 Iperlio Ipadname_const Perl_xs_boot_epilog __wchb pow_ass_amg mult_ass_amg Iregmatch_state prev_rex Iisarev Iutf8locale tm_mon XS_NetAddr__IP__Util_addconst op_opt c2_utf8 sa_family_t sockaddr_inarp subcoffset svu_fp yy_stack_frame Idebstash topword XS_NetAddr__IP__Util_add128 want_vtbl_ovrld reg_substr_datum si_stack xpadl_max Inomemok __uint8_t tm_hour firstpos want_vtbl_debugvar Imbrlen_ps Idiehook prev_recurse_locinput any_ptr Sighandler1_t CLONE_PARAMS Icompcv padnl concat_ass_amg _128x10 lex_repl timespec PerlInterpreter xpadnl_max_named ILatin1 Isighandler1p st_nlink Iminus_F re_eval_str Iscopestack_ix sp_max Iscopestack_max iter_amg Iminus_a any_pvp Iminus_c want_vtbl_arylen_p Iminus_l Iminus_n Iminus_p Iargvout_stack Iinitav Perl_newSVpvn sin6_family tm_yday tbl_items Perl_ophook_t cache_mask ap128 firstchars xpvlenu_rx Imaxsysfd Ilocalizing Isighandler3p lex_shared servent _crypt_struct_buffer rxfree ncmp_amg pw_name sp_lstchg curly _getlogin_size nomethod_amg add_amg Iunicode __fmt blku_sub qr_package neg_amg Irestartop ICCC_non0_non230 PL_thr_key gofs __mask_was_saved PERL_PHASE_CONSTRUCT Ilastgotoprobe cop_line Isecondgv __locale_struct Isavebegin want_vtbl_vec initialized XPVAV to_av_amg STRLEN n128 exitlistentry abs_amg op_ppaddr xpadnl_alloc Icheckav_save Idebug_pad __jmp_buf_tag concat_amg lex_flags Iendav blku_oldscopesp Iutf8_idcont Icomppad_name_fill my_op IHasMultiCharFold __mbstate_t tmpXSoff XPVCV add3 regnode Iperl_destruct_level si_cxix mg_virtual padnamelist interpreter PMOP Istashpadix Perl_xs_handshake st_uid longfold sp_min xcv_xsubany PADOFFSET sbxor_amg sbu_rflags xpv_cur xpadn_flags Istderrgv xio_page_len perl_memory_debug_header printf Iin_clean_all si_type mark_name Istashpadmax old_regmatch_slab is_hasbits __ino_t fastcomp128 reg_substr_data lex_super_state _grent_struct xcv_root_u curlym setting Icustom_op_descs si_prev XPVGV _addr_bnd sp_namp lex_starts Isavestack Sighandler3_t si_code Imodcount prev_curlyx Isortstash Istdingv svt_local sp_warn Icustom_ops sbor_ass_amg CHECKPOINT XPVHV any_av _grent_buffer sne_amg XS_NetAddr__IP__Util_ipv4to6 last_uni XPVIO sp_expire XPVIV __uint16_t is_shiftleft minlenret Iofsgv cnst TARGi_iv Idelaymagic_gid xcv_gv_u Iunderlying_numeric_obj Icollxfrm_mult tbl_arena_end Isavestack_ix want_vtbl_defelem sockaddr_x25 SVt_PVAV sin6_flowinfo have128 xmg_magic svu_gp any_dptr intuit Ibody_roots si_sigval hek_len Icollation_ix tokenbuf op_nextop line_t mgvtbl XS_NetAddr__IP__Util_hasbits Iutf8_xidcont si_cxstack yyerrstatus Siginfo_t _hostent_ptr sbu_rx xcv_padlist svt_get _Bool svu_iv sbu_rxtainted seq_amg div_ass_amg op_moresib c128 xpv_len_u Ipatchlevel badc _128x10plusbcd _pwent_struct nextval svu_pv any_gv memcpy not_amg Ihash_rand_bits sbu_orig _servent_struct __gid_t Iparser xpadlarr_dbg stack_max1 runops_proc_t any_hv Ipadlist_generation SVt_PVFM xpadnl_max Idefoutgv _lower Istatusvalue_posix _pwent_buffer Iutf8_tosimplefold __ctype_tolower siginfo_t Perl_newSViv any_iv sv_flags Ichopset Irpeepp oldcomppad sbu_rxres SVt_PVGV Iincgv si_markoff xpadnl_fill want_vtbl_arylen tv_nsec nexttype is_sub128 sig_slurpy want_vtbl_backref Icurpm_under SVt_PVHV lshift_ass_amg Sighandler_t pthread_getspecific svu_hash ISCX_invlist svu_nv sband_amg si_cxsubix lex_inpat last_lop tm_sec sockaddr_ax25 ptr_tbl_arena SVt_PVIO SVt_PVIV filtered Ilastfd _bcd2txt want_vtbl_collxfrm Bail Ieval_start ls_linestr PADNAMELIST SVt_PVCV PERL_PHASE_START __src xcv_hscxt any_u32 Perl_croak_nocontext _ctime_size repeat_ass_amg op_pmreplrootu Isavestack_max Ilocalpatches Isv_root SVt_PVLV p5rx op_next __saved_mask svu_rv copline sockaddr_eon any_op Icurstack SVt_PVMG Ipadix_floor si_status xpadl_arr h_addrtype _strerror_size Idelaymagic_euid bufend lex_inwhat any_pv atan2_amg xnv_nv sin_zero Iopfreehook ssize _protoent_ptr Iunitcheckav svu_uv PerlIOl sgt_amg to_hv_amg Isetlocale_bufsize protoent mg_len Imemory_debug_header SVt_IV Itop_env want_vtbl_sigelem netswap __blksize_t bcdn short unsigned int _spent_ptr bool__amg Itmps_stack yy_lexshared offs any_sv want_vtbl_substr Isv_undef Ipsig_name LEXSHARED clone_params perl_drand48_t Igensym Iregmatch_slab op_redoop rsfp _hostent_struct start_tmp xio_fmt_name svt_len cop_hints __len h_name Ierrors xpvlenu_len h_aliases _hostent_size op_pmreplstart hent_refcount saved_copy lex_sub_inwhat any_uv Itmps_floor Istrxfrm_is_behaved __wch xpadl_id dec_amg int_amg Ibasetime Iop_mask Isighandlerp unreferenced Isignalhook xpadnl_refcnt loceol IUpperLatin1 xio_ofp __value _hostent_buffer cop_seq multi_start op_pmreplroot SVt_NV IDBtrace maxlen pre_prefix op_targ Ibeginav je_ret resume_state is_ipv4to6 Isv_consts pw_dir lex_casestack op_lastop Isub_generation blku_eval float want_vtbl_isaelem __count unsigned char si_cxmax multi_open Perl_gimme_V _kill st_rdev LOOP ILB_invlist SVt_PV want_vtbl_dbline REENTR Imess_sv Iglobalstash Imin_intro_pending expect oldloc Icollxfrm_base want_vtbl_envelem copy_amg Iutf8_perl_idcont cx_blk Istatname RETVAL modulo_amg xnv_u __uid_t sin6_scope_id blku_gimme XSUBADDR_t st_ctim recheck_utf8_validity Iutf8_tofold xcv_root ISB_invlist block_format in_addr_t op_sibparent XS_NetAddr__IP__Util_ipanyto6 old_namesv log_amg xpadn_type_u IAssigned_invlist peep_t Iinternal_random_state Isv_no minlen __off_t perl_phase Iin_clean_objs is_mask4to6 Isv_zero cp128 PERL_PHASE_DESTRUCT in_pod Perl_stack_grow gp_io Imultideref_pc Iors_sv string_amg xpadn_protocv Ievalseq Iunlockhook regexp_engine mg_flags subtr_amg Icurstash gr_passwd _gmtime_struct gr_gid want_vtbl_checkcall si_overrun __clock_t SVt_NULL ls_bufptr Ibeginav_save __uint32_t Iorigfilename xmg_hash_index last_lop_op cop_warnings Icop_seqmax op_pmtargetgv form_lex_state XS_NetAddr__IP__Util_bcd2bin Istatgv Idestroyhook st_blocks max_offset GNU C17 11.4.1 20231218 (Red Hat 11.4.1-3) -m64 -march=x86-64-v2 -mtune=generic -g -g -O2 -flto -ffat-lto-objects -fexceptions -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection=full -fwrapv -fno-strict-aliasing -fPIC -fplugin=annobin sbu_m sbu_s save_curlyx Icomppad sub_no_recover lex_dojoin xmg_u gp_cvgen xcv_file SVt_PVNV itervar_u gp_flags xiou_dirp _servent_buffer paren_names Iregistered_mros si_uid pw_passwd is_ipanyto6 Iin_some_fold sqrt_amg lex_allbrackets opval Icurcopdb block_sub pos_magic gp_file_hek sv_refcnt sockaddr_in6 __nlink_t tbl_ary sband_ass_amg xav_alloc si_fd nparens xpadn_refcnt scmp_amg Ieval_root old_eval_root named_buff_iter st_gid Idowarn yychar Ifirstgv rshift_amg _countbits mg_moremagic op_pmoffset op_pmstashoff Inumeric_underlying_is_standard PERL_SI MGVTBL op_static MAGIC Perl_sv_newmortal Itmps_max want_vtbl_pack sockaddr_ipx Ithreadhook Badigits blku_givwhen gr_name op_type Iutf8_perl_idstart sublen blku_oldmarksp xivu_iv _netent_ptr want_vtbl_regexp Ipadname_undef preambling adder128 Inumeric_underlying _upper cx_u output IDBcv trie Ilockhook __ctype_toupper _xnvu xio_lines_left compflags sockaddr_iso want_vtbl_utf8 Iin_load_module xio_page sigjmp_buf pow_amg want_vtbl_hints tm_isdst div_amg Ilaststype __ctype_b h_addr_list Iutf8_charname_continue in_my_stash want_vtbl_regdata xpadn_len _strerror_buffer add_ass_amg dummy Iunitcheckav_save si_stime u_int32_t lastcloseparen short int ifmatch Idumpindent Ioldname preambled op_code_list xhv_keys itersave sbxor_ass_amg IAboveLatin1 Iutf8_mark _servent_size si_signo IDBgv __names sv_any blk_u xcv_start accepted gvval IWB_invlist olddepth Iutf8cache _localtime_struct _bounds prev_eval Ipadix defsv_save want_vtbl_lvref _netent_buffer xcv_stash YYSTYPE xcv_gv cop_hints_hash Icustom_op_names lex_sub_repl sle_amg xpadn_high re_scream_pos_data hek_hash _ttyname_buffer Iknown_layers _netent_errno Itainting Icurcop Istack_sp __ssize_t any_bool regmatch_info_aux PERL_PHASE_END Icollation_standard __glibc_reserved want_vtbl_taint lex_defer xmg_stash Iorigalen sbu_maxiters sockaddr Idebug __int32_t refcounted_he Icurpad printb128 __time_t st_mtim want_vtbl_uvar s_proto sbu_targ boot_NetAddr__IP__Util __dest logical Iforkprocess digit lex_brackets xio_top_gv Iutf8_tolower blku_oldcop Icurstackinfo Istart_env lex_fakeeof lex_sub_op stashes Istashcache xnv_lines mult_amg want_vtbl_packelem p_aliases _netent_struct in_my next_off xivu_uv sin_port Imodglobal sockaddr_at regmatch_info_aux_eval xcv_start_u want_vtbl_env basesp Igeneration IGCB_invlist Istrtab xpadl_outid xpadn_low block_givwhen regexp_paren_pair crypt_data pprivate cv_flags_t cur_top_env xpadn_typestash Iin_utf8_COLLATE_locale state_u PERL_PHASE_RUN _sigfault op_spare lex_op st_ino cop_features __pid_t parsed_sub op_last proto_perl want_vtbl_regdatum xio_type yylval sp_inact sockaddr_dl xav_fill hent_val Iorigenviron Idelaymagic_egid gp_av ftest_amg binmsk scream_olds mg_ptr maxpos sa_family ptr_tbl Inumeric_name lazyiv _sifields want_vtbl_pos SVt_REGEXP Ipsig_ptr gp_cv xgv_stash netent tv_sec tm_year blku_u16 Iprofiledata sbor_amg __sigset_t gp_line Imainstack Icurpm op_pmflags st_blksize xpadn_ourstash is_bcdn2bin ptr_tbl_ent _hostent_errno op_slabbed scompl_amg Isubline Iargvoutgv Iwatchaddr Idefgv hek_key PerlExitListEntry xio_bottom_name gp_form Perl_newXS_flags Ireentrant_buffer hent_next check_ix op_flags Iunsafe tm_wday Ihintgv sockaddr_in __jmp_buf IDBsignal Iutf8_charname_begin Ilanginfo_bufsize blku_format __dirstream sin_addr IXpv Iregex_padav blku_loop cache_offset wanted pw_uid _timer Istrxfrm_NUL_replacement IInMultiCharFold je_old_stack_hwm sig_elems bcd8 gr_mem Ixsubfilename gp_hv Ipad_reset_pending dfoutgv _sigchld xcv_depth Itaint_warn Imbrtowc_ps pw_shell si_next want_vtbl_nonelem _syscall Iexitlist Ilanginfo_buf Isubname any_i32 Ihv_fetch_ent_mh UNOP_AUX_item svt_dup xcv_flags Perl_sv_setiv_mg Inumeric_radix_sv globhook_t xcv_outside_seq Isplitstr xcv_hek svt_free sockaddr_ns long long unsigned int si_addr Ibody_arenas checkstr _grent_size addercon SVt_INVLIST want_vtbl_mglob Isortcop sin_family Isignals sbu_type si_pid mg_private dupe je_buf lazysv Iwcrtomb_ps Itoptarget Istrxfrm_max_cp Ierrgv Perl_sv_2pv_flags inc_amg _128x2 svt_clear PERL_PHASE_CHECK nexttoke Itmps_ix Isig_pending substrs any_svp intflags destroyable_proc_t Ifdpid xpadlarr_alloc ival any_dxptr n_net to_sv_amg Perl_croak_xs_usage op_pmtargetoff Icollation_name Iefloatbuf to_cv_amg extendmask4 magic_vtable_max _pwent_size oldval any_long xiou_any ITR_SPECIAL_HANDLING_UTF8 lshift_amg Iexit_flags c1_utf8 repeat_amg Icurlocales Iglobhook sin6_port dchar xio_top_name IPrivate_Use modulo_ass_amg Iptr_table Icolorset __jmpbuf Ifilemode __dev_t Iexitlistlen sockaddr_un numer_amg op_folded Idelaymagic Imarkstack_ptr block is_add128 pw_gid tm_gmtoff prev_yes_state s_name _protoent_struct op_comp gp_sv svu_array whilem IInBitmap mother_re __val n_aliases _sigsys is_bcd2bin is_maskanyto6 is_comp128 a128 extflags xio_fmt_gv xpadn_gen cop_file Icurstname cx_subst __u6_addr16 Isv_count svt_set Idefstash Itainted Ibodytarget oldoldbufptr xav_max xiv_u _protoent_buffer st_mode savearray _xivu leave_op Iutf8_xidstart is_ipv6to4 re_eval_start perl_debug_pad Istack_max st_dev hasdigits __u6_addr32 je_prev want_vtbl_sv Iclocktick Perl_sv_2iv_flags __syscall_slong_t IXPosix_ptrs IDBsub spwd Iutf8_idstart je_mustcatch numbered_buff_LENGTH bcdstuff yy_parser block_loop op_savefree Iscopestack Iformtarget pad_offset s_aliases lastcp Iconstpadix multi_close stat herelines Imy_cxt_list IPosix_ptrs xivu_namehek tmpc _ttyname_size sin6_addr Iwatchok p_proto Perl_sv_2mortal want_vtbl_isa svt_copy xnv_bm_tail sival_ptr mark_loc si_utime xpvav Isrand_called regexp_amg __mode_t sp_flag perl_key Ireplgv sa_data Ibreakable_sub_gen XS_NetAddr__IP__Util_notcontiguous rsfp_filters Iin_eval suboffset __sigval_t _servent_ptr lex_re_reparsing Iutf8_toupper linestart sig_optelems PERL_PHASE_INIT old_cxsubix Icv_has_eval mg_type xpvcv Isetlocale_buf numbered_buff_FETCH Irandom_state Iscopestack_name si_band xpadn_pv Icomppad_name_floor Idelaymagic_uid Iwarnhook _xmgu _sigpoll slt_amg xio_dirpu bcd2p Iin_utf8_turkic_locale cur_text blku_oldpm Imain_cv <artificial> /home/.cpan/build/NetAddr-IP-4.079-0/Lite/Util /usr/include/bits /usr/lib64/perl5/CORE Util.xs stdio2.h Util.c inline.h string_fortified.h <built-in> struct_stat.h intrpvar.h av.h __locale_t.h iperlsys.h handy.h perlvars.h sockaddr.h grp.h struct___jmp_buf_tag.h stdint-intn.h dirent.h __sigval_t.h util.h overload.h pwd.h /usr/lib/gcc/x86_64-redhat-linux/11/include crypt.h gv.h netdb.h pthread.h mg.h perlio.h /usr/include struct_timespec.h time_t.h regexp.h cv.h pthreadtypes.h cop.h hv.h stdint-uintn.h pad.h parser.h /usr/include/netinet __sigset_t.h reentr.h stdio2-decl.h proto.h perly.h mg_vtable.h socket.h sv.h /usr/include/sys __mbstate_t.h siginfo_t.h /usr/include/bits/types stddef.h struct_tm.h perl.h setjmp.h shadow.h in.h �! U��U� 0��V *��8 3=��8 FP��8 Yc��8 lv��8 ���8 ����8 �� P � ����8 ����8 ����8 ����8 ����8 ����8 ����8 ����8 ����8 ��T��t���t���t � ��T��t���t���t � ��U���U� ��T��_���T���_ ��V��v���V��V��V ��\��|���^��P��|� ��| $ &3$p"���| $ &3$p "� ��v | $ &3$ p 8� ��]��]��]��] ��P �� �� ��^��^��^ ��U��U��U��U ��Q��Q ��1���1� ��U�� �U� ��T�� _� � �T�� � _ �� V� � v�� � V� � V� � V� � V ��\��|���^��P� � |� ��| $ &3$p"���| $ &3$p "� ��v | $ &3$ p 8� �� ]� � ]� � ]� � ] ��P �� � � �� ^� � ^ � � ^� � U� � ^� � U� � ^� � ^� � ^ � � Q� � Q � � 1�� � 1� � � U� � u�� � u�� � u �� � u� � � R� � P� � P � � 3�� � xt2%#�� � xt2%#�� � xx2%#�� � xt2%#� � � u x "� � 0�� � t x "�y ����+��� � !t x "�t x "�u x "�" ����+��� � !t x "�t x "�u x "�" ����+�� � � t x "� � t x " � � Y� � t x "�u x "�"�� � t x "�u x "�"� � � U� � �U� � � T� � �T� � � Q� � �Q� � � R� � P� � t � � �R� � � @K$ �� � P� � �RO&� � � U� � u�� � u�� � u �� � u� ��U���U� ��T��]���T���] ��V��^��^ ��^��~���\��~���~���~���~� ��~ $ &3$p"���~ $ &3$p "� ��v ~ $ &3$ p 8� ��P ��\��\��\ ��U��U �� 8p ��Q ��\��\��\ ��V��V ��\��\��\ ��1���1� ��U��u���u���u � ��Q��r p ���p r "� ��U��p 2$u "��� p 2$u "#��� p2$u "#� ��T��p 2$t "��� p 2$t "#��� p2$t "#� ��U���U� ��T ��U��u|���U ��U���U� ��T��_���T���_���T� ��\��]��]��}���\��]��|���\��\��\ ��V��v���^��P��v���v� ��v $ &3$p"���v $ &3$p "���Q��Q ��| v $ &3$ p 8� ��R����~����~����~��R����~ ��P �� �� ��_��_ ��V��V ��_��T��_��_��_ ��V��V��V��V ��Q��Q ��P ��q 3��� p#"�3� ��P ��P��q( ��2� ��1� ��U��!�U� ��T�� ^� �!�T��!�!^�!�!�T� �� \� � |�� � |�� � \� � |�� �!\�!�!\�!�!\ ��V�� v�� � ]� � P� � v�� � v��!�!v� ��v $ &3$p"���v $ &3$p "��� Q�!�!Q ��| v $ &3$ p 8� ��P � � ^� �!^�!�!^ � � _� � _� �!_�!�!_ � � T�!�!T � � P � � q 3�� � p#"�3� � � P � � P� � q( � � 2� � � 1� �!�!U�!�"S�"�"�U� �!�!U�!�"S�"�"�U� �!�!u��!�"s��"�"�U#� �!�!u��!�"s��"�"�U#� �!�!u ��!�"s ��"�"�U# � �!�" ���"�"X�"�"x��"�"X �"�#U�#�(�U� �"�#T�#�$^�$�&�T��&�'^�'�'�T��'�(^ �#�#\�#�%_�%�%��&�&��&�&\�&�&|��&�'_�'�'|x��'�'��'�(\�(�(_ �#�#V�#�#v��#�#]�#�#P�'�(v� �#�#v $ &3$p"��#�#v $ &3$p "� �#�#| v $ &3$ p 8� �#�#P �#�$V�&�'V�(�(V �$�$T�(�(T �$�$P�$�%V�&�&V�'�'V �%�%P �%�%q 3��%�% p#"�3� �%�%P �%�%P�%�%q( �&�&2� �%�%1� �(�(U�(�(u� �(�(P�(�(p��(�(P�(�(p��(�(P �(�(T�(�(r @K$ ��(�(T �(�(0��(�(T�(�(T �)�)U�)�0�U� �)�)T�)�*V�*�/�T��/�/V�/�0�T� �)�*_�*�+V�+�+v��,�.V�.�/V�/�/V�/�/_�/�0V �)�)]�)�*Q�*�*���*�+}��,�,}��,�,���,�,}��,�-}��-�-}��-�.}��.�.}��/�/}��/�/Q�/�/���/�0}��0�0}� �)�+\�,�-\�-�-\�-�.\�/�/\�/�0\ �)�,^�,�/^�0�0^�0�0^ �)�)P �)�*P�*�*v �/�/P �*�*T�,�,T�,�,�� �*�+X�,�,X�,�,X�,�-���-�-���-�.X�.�.���/�/���/�0X�0�0X �0�0Q�0�0Q�0�0Q �-�-\�.�.\�.�.|��.�/\�0�0\ �*�+@� �*�+X �*�+����+�+] �-�-@� �-�-X �-�-����-�-] �+�,1��/�/1� �0�0U�0�1V�1�1Q�1�1�U� �0�0T�0�1\�1�1T�1�1�T� �0�0U�0�1V�1�1Q�1�1�U� �0�0T�0�1\�1�1T�1�1�T� �1�1U�1�1\�1�1Q�1�1�U� �1�1T�1�1V�1�1T�1�1�T� �1�1Q�1�1�Q� �1�1U�1�1\�1�1Q�1�1�U� �1�1T�1�1V�1�1T�1�1�T� �2�2U�2�3�U� �2�2T�2�2p��2�3�T� �2�2Q�2�3zh��3�3�Q� �2�2t��2�2P�2�2u �U ��2�2u �U � �2�2C��2�3X �2�21��2�2Y�2�2Y�2�31��3�3Y �2�2P�2�2P�2�2p 4$� �2�2q��2�3Z�3�3�Q#� �2�2U�2�3�U� �2�2D� �2�20� �2�2Z �3�3U�3�3^�3�5�U� �3�3T�3�3U�3�5�T� �3�3Q�3�3T�3�5�Q� �3�3R�3�5�R� �3�30��3�3v | "1 ��3�3V�3�3Q�4�4V�5�5Q �3�30��3�3_�3�31��3�4_�4�41��4�5_�5�5_ �3�3|��3�3\�3�40��4�4|��4�41��4�5|��5�5|� �3�4P �3�5^�5�5^ �3�3@� �3�30� �3�3T �3�3@� �3�30� �3�3Q �5�6U�6�=�U� �5�6T�6�6V�6�;�T��;�;V�;�=�T� �6�6]�6�9V�9�9v��9�;V�;�;V�;�;]�;�<V�<�=V �6�6\�6�6|��6�7^�7�7P�7�7|��7�8|��9�:|��:�:|��:�;|��;�<|��<�=|� �6�6| $ &3$p"��6�6| $ &3$p "��6�6P �6�9_�9�=_ �6�6P�6�6v #(�6�9��~�9�;��~�;�;P�;�<��~�<�=��~ �6�6P �6�6v �6�6�T�;�;v �7�7]�7�7 | $ &3$q "�9�:] �7�9]�:�;]�;�=] �:�:P�<�=P�=�=R�=�=P �<�<��~�<�<P�<�=Q�=�=P�=�=Q �9�91��<�<1� �=�>U�>�?^�?�?�U� �=�>T�>�?]�?�?X��?�?��H � �>�>U�>�?Q �>�>Q �>�?R �>�>x } ( 2%# $ $} "#�>�>x } ( 2%# $ $} "#�>�>P�>�>Q�>�?P �=�>0��>�>Y�>�>Q�>�>Y�>�?Q�?�?Q �?�? ~ q "����?�?\ �=�=0��=�>[�?�?[�?�?0��?�? �� �=�=0��=�?V�?�?v��?�?V �>�>4��>�> x } ( 2%#��>�> x } ( 2%#��>�> x } $ 2%#��>�> x } ( 2%#� �>�>8t ��>�>9t ��>�?8t � �=�=0��=�>�s ��?�?�s ��?�?�s � �=�=D� �=�=0� �=�=P �?�?U�?�@Z �?�?T�?�@[ �?�@p 4%��@�@Y�@�@p 4%��@�@p ?� �?�@P �?�?0��?�?R�?�?r��?�@R �?�?0��?�?U�?�@X�@�@U�@�@X �@�AU�A�F�U� �@�AT�A�B_�B�C�T��C�C_�C�D�T��D�E_�E�E�T��E�F_�F�F�T��F�F_ �A�CV�C�Cv��C�EV�E�EV�E�FV�F�FV�F�FV �A�A\�A�A|��A�B^�B�BP�F�F|� �A�A| $ &3$p"��A�A| $ &3$p "� �A�Av | $ &3$ p 8� �A�B]�C�D]�E�F]�F�F] �A�AP �A�A �F�F �B�B^�D�D^ �B�C^�C�D^�D�F^�F�F^ �C�C1��F�F1� �G�GU�G�N�U� �G�GT�G�N�T� �G�GP�G�NV�N�NT �H�HP�H�HP�H�HP�I�IP�I�IP�J�JP�K�KP�K�KP�K�KP�L�LP�L�LP�M�MP�M�MP�N�NP�N�NP �H�HP �H�HP �H�HP �I�IP �I�IP �J�JP �K�KP �K�KP �K�KP �L�LP �L�LP �M�MP �M�MP �N�NP �N�NP r ������ ���� �������� ���� ���� ���� � � � � ���� ���� ������ ���� ���������� ���� ���� � � � � � � � �! � � � � �#�#�#�# �#�#�#�%�&�'�(�( �&�&�&�& �)�)�)�)�)�) �*�*�*�*�*�+�,�/�/�0 �2�2�2�2�2�2�2�2 �3�3�3�3�3�3 �6�6�6�6 �6�6�6�9�9�;�;�<�<�= �=�=�=�=�=�=�=�=�=�> �A�A�A�A �A�A�A�C�C�F�F�F �G�G�G�N�N�N �H�H�H�H �H�H�H�H �H�H�H�H �I�I�I�I �I�I�I�I �J�J�J�J �K�K�K�K �K�K�K�K �K�K�K�K �L�L�L�L �L�L�L�L �M�M�M�M �M�M�M�M �N�N�N�N �N�N�N�N � � � � � � � P" p$ �L P �T �U @l Hl Pl Xl Hn p hp p� ! " # � p$ �$ ! �$ 7 hp C Hl j % v @l � � �& � ) t � 0, � �. � �2 P ' �6 � J �9 � g @ � � �E � � �Z � �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 �8 � � �L � Pl � �8 � Xl � �T � hp � Hn E � 1 E Xp R `p ] P. e u � , * � � 0% � � � p � (p � @p $ / 0p : Hp D V j �= \ r � � �H � � p � �C � p � �+ 6 � � �+ � � 6 n p. " % 7 Pp B p D �> M N �. ! V �& b `9 E i �+ u p � 8p � � � 0> � � �= > � � " � � �& crtstuff.c deregister_tm_clones __do_global_dtors_aux completed.0 __do_global_dtors_aux_fini_array_entry frame_dummy __frame_dummy_init_array_entry XS_NetAddr__IP__Util_ipv4to6 XS_NetAddr__IP__Util_ipanyto6 XS_NetAddr__IP__Util_hasbits XS_NetAddr__IP__Util_add128 XS_NetAddr__IP__Util_addconst XS_NetAddr__IP__Util_notcontiguous XS_NetAddr__IP__Util_comp128 XS_NetAddr__IP__Util_bcd2bin XS_NetAddr__IP__Util_bin2bcd __FRAME_END__ _fini __dso_handle Util.c.e14dc308 _DYNAMIC __GNU_EH_FRAME_HDR __TMC_END__ _GLOBAL_OFFSET_TABLE_ _init _bcd2txt Perl_sv_2iv_flags putchar@GLIBC_2.2.5 is_shiftleft is_ipv6to4 _isipv4 Perl_stack_grow _ITM_deregisterTMCloneTable have128 puts@GLIBC_2.2.5 printb128 pthread_getspecific@GLIBC_2.34 is_mask4to6 is_simple_pack __stack_chk_fail@GLIBC_2.4 is_add128 Perl_sv_setiv_mg PL_thr_key is_bcd2bin is_sub128 Perl_sv_2pv_flags Perl_xs_boot_epilog _128x10 __gmon_start__ Perl_croak_xs_usage boot_NetAddr__IP__Util is_ipv4to6 is_maskanyto6 adder128 Perl_croak_nocontext addercon Perl_newXS_flags Perl_sv_2mortal _countbits netswap_copy Perl_xs_handshake is_comp128 is_bcdn2bin netswap extendmask4 _128x2 fastcomp128 is_ipanyto6 is_hasbits _ITM_registerTMCloneTable Perl_newSViv _128x10plusbcd Perl_newSVpvn __cxa_finalize@GLIBC_2.2.5 Perl_sv_newmortal extendipv4 .symtab .strtab .shstrtab .note.gnu.property .note.gnu.build-id .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .plt.sec .text .fini .rodata .eh_frame_hdr .eh_frame .init_array .fini_array .data.rel.ro .dynamic .got .data .bss .comment .annobin.notes .gnu.build.attributes .debug_aranges .debug_info .debug_abbrev .debug_line .debug_str .debug_line_str .debug_loclists .debug_rnglists � � . � � $ A ���o � � � K � � ( S � [ ���o n h ���o � � @ w � � 0 � B � � 0 � � 0 � P" P" � p$ p$ &( � �L �L � 2 P P � � �T �T � � �U �U x � @l @\ � Hl H\ � Pl P\ � Xl X\ � � Hn H^ � � p ` h � hp h` 0 h` . 0 �` � p� a 2 @b 0 A pb 0� M � � [ � ! g 0 �. f9 r 0 h � � �j �! � z� v � � % � �� �� � blib/arch/auto/NetAddr/IP/Util/.exists 0000644 00000000000 15043770025 0013420 0 ustar 00 blib/bin/.exists 0000644 00000000000 15043770025 0007535 0 ustar 00 blib/script/.exists 0000644 00000000000 15043770025 0010271 0 ustar 00 blib/lib/NetAddr/IP/UtilPP.pm 0000444 00000036551 15043770025 0011601 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::UtilPP; use strict; #use diagnostics; #use lib qw(blib lib); use AutoLoader qw(AUTOLOAD); use vars qw($VERSION @EXPORT_OK @ISA %EXPORT_TAGS); require Exporter; @ISA = qw(Exporter); $VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( hasbits shiftleft addconst add128 sub128 notcontiguous ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcd bcd2bin comp128 bin2bcdn bcdn2txt bcdn2bin simple_pack ); %EXPORT_TAGS = ( all => [@EXPORT_OK], ); sub DESTROY {}; 1; __END__ =head1 NAME NetAddr::IP::UtilPP -- pure Perl functions for NetAddr::IP::Util =head1 SYNOPSIS use NetAddr::IP::UtilPP qw( hasbits shiftleft addconst add128 sub128 notcontiguous ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcd bcd2bin ); use NetAddr::IP::UtilPP qw(:all) $rv = hasbits($bits128); $bitsX2 = shiftleft($bits128,$n); $carry = addconst($ipv6naddr,$signed_32con); ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); $carry = add128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); $carry = sub128($ipv6naddr1,$ipv6naddr2); ($spurious,$cidr) = notcontiguous($mask128); ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); $ipv6naddr = ipv4to6($netaddr); $ipv6naddr = mask4to6($netaddr); $ipv6naddr = ipanyto6($netaddr); $ipv6naddr = maskanyto6($netaddr); $netaddr = ipv6to4($pv6naddr); $bcdtext = bin2bcd($bits128); $bits128 = bcd2bin($bcdtxt); =head1 DESCRIPTION B<NetAddr::IP::UtilPP> provides pure Perl functions for B<NetAddr::IP::Util> =over 4 =item * $rv = hasbits($bits128); This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. i.e. if (hasbits($bits128)) { &do_something; } or if (hasbits($bits128 & $mask128) { &do_something; } This allows the implementation of logical functions of the form of: if ($bits128 & $mask128) { ... input: 128 bit IPv6 string returns: true if any bits are present =cut sub _deadlen { my($len,$should) = @_; $len *= 8; $should = 128 unless $should; my $sub = (caller(1))[3]; die "Bad argument length for $sub, is $len, should be $should"; } sub hasbits { _deadlen(length($_[0])) if length($_[0]) != 16; return 1 if vec($_[0],0,32); return 1 if vec($_[0],1,32); return 1 if vec($_[0],2,32); return 1 if vec($_[0],3,32); return 0; } #=item * $rv = isIPv4($bits128); # #This function returns true if there are no on bits present in the IPv6 #portion of the 128 bit string and false otherwise. # #=cut # #sub xisIPv4 { # _deadlen(length($_[0])) # if length($_[0]) != 16; # return 0 if vec($_[0],0,32); # return 0 if vec($_[0],1,32); # return 0 if vec($_[0],2,32); # return 1; #} =item * $bitsXn = shiftleft($bits128,$n); input: 128 bit string variable, number of shifts [optional] returns: bits X n shifts NOTE: input bits are returned if $n is not specified =cut # multiply x 2 # sub _128x2 { my $inp = shift; $$inp[0] = ($$inp[0] << 1 & 0xffffffff) + (($$inp[1] & 0x80000000) ? 1:0); $$inp[1] = ($$inp[1] << 1 & 0xffffffff) + (($$inp[2] & 0x80000000) ? 1:0); $$inp[2] = ($$inp[2] << 1 & 0xffffffff) + (($$inp[3] & 0x80000000) ? 1:0); $$inp[3] = $$inp[3] << 1 & 0xffffffff; } # multiply x 10 # sub _128x10 { my($a128p) = @_; _128x2($a128p); # x2 my @x2 = @$a128p; # save the x2 value _128x2($a128p); _128x2($a128p); # x8 _sa128($a128p,\@x2,0); # add for x10 } sub shiftleft { _deadlen(length($_[0])) if length($_[0]) != 16; my($bits,$shifts) = @_; return $bits unless $shifts; die "Bad arg value for ".__PACKAGE__.":shiftleft, length should be 0 thru 128" if $shifts < 0 || $shifts > 128; my @uint32t = unpack('N4',$bits); do { $bits = _128x2(\@uint32t); $shifts-- } while $shifts > 0; pack('N4',@uint32t); } sub slowadd128 { my @ua = unpack('N4',$_[0]); my @ub = unpack('N4',$_[1]); my $carry = _sa128(\@ua,\@ub,$_[2]); return ($carry,pack('N4',@ua)) if wantarray; return $carry; } sub _sa128 { my($uap,$ubp,$carry) = @_; if (($$uap[3] += $$ubp[3] + $carry) > 0xffffffff) { $$uap[3] -= 4294967296; # 0x1_00000000 $carry = 1; } else { $carry = 0; } if (($$uap[2] += $$ubp[2] + $carry) > 0xffffffff) { $$uap[2] -= 4294967296; $carry = 1; } else { $carry = 0; } if (($$uap[1] += $$ubp[1] + $carry) > 0xffffffff) { $$uap[1] -= 4294967296; $carry = 1; } else { $carry = 0; } if (($$uap[0] += $$ubp[0] + $carry) > 0xffffffff) { $$uap[0] -= 4294967296; $carry = 1; } else { $carry = 0; } $carry; } =item * addconst($ipv6naddr,$signed_32con); Add a signed constant to a 128 bit string variable. input: 128 bit IPv6 string, signed 32 bit integer returns: scalar carry array (carry, result) =cut sub addconst { my($a128,$const) = @_; _deadlen(length($a128)) if length($a128) != 16; unless ($const) { return (wantarray) ? ($const,$a128) : $const; } my $sign = ($const < 0) ? 0xffffffff : 0; my $b128 = pack('N4',$sign,$sign,$sign,$const); @_ = ($a128,$b128,0); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } =item * add128($ipv6naddr1,$ipv6naddr2); Add two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) =cut sub add128 { my($a128,$b128) = @_; _deadlen(length($a128)) if length($a128) != 16; _deadlen(length($b128)) if length($b128) != 16; @_ = ($a128,$b128,0); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } =item * sub128($ipv6naddr1,$ipv6naddr2); Subtract two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) Note: The carry from this operation is the result of adding the one's complement of ARG2 +1 to the ARG1. It is logically B<NOT borrow>. i.e. if ARG1 >= ARG2 then carry = 1 or if ARG1 < ARG2 then carry = 0 =cut sub sub128 { _deadlen(length($_[0])) if length($_[0]) != 16; _deadlen(length($_[1])) if length($_[1]) != 16; my $a128 = $_[0]; my $b128 = ~$_[1]; @_ = ($a128,$b128,1); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } =item * ($spurious,$cidr) = notcontiguous($mask128); This function counts the bit positions remaining in the mask when the rightmost '0's are removed. input: 128 bit netmask returns true if there are spurious zero bits remaining in the mask, false if the mask is contiguous one's, 128 bit cidr =cut sub notcontiguous { _deadlen(length($_[0])) if length($_[0]) != 16; my @ua = unpack('N4', ~$_[0]); my $count; for ($count = 128;$count > 0; $count--) { last unless $ua[3] & 1; $ua[3] >>= 1; $ua[3] |= 0x80000000 if $ua[2] & 1; $ua[2] >>= 1; $ua[2] |= 0x80000000 if $ua[1] & 1; $ua[1] >>= 1; $ua[1] |= 0x80000000 if $ua[0] & 1; $ua[0] >>= 1; } my $spurious = $ua[0] | $ua[1] | $ua[2] | $ua[3]; return $spurious unless wantarray; return ($spurious,$count); } =item * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an ipv6 network address. input: 32 bit network address returns: 128 bit network address =cut sub ipv4to6 { _deadlen(length($_[0]),32) if length($_[0]) != 4; # return pack('L3H8',0,0,0,unpack('H8',$_[0])); return pack('L3a4',0,0,0,$_[0]); } =item * $ipv6naddr = mask4to6($netaddr); Convert an ipv4 netowrk address into an ipv6 network mask. input: 32 bit network/mask address returns: 128 bit network/mask address NOTE: returns the high 96 bits as one's =cut sub mask4to6 { _deadlen(length($_[0]),32) if length($_[0]) != 4; # return pack('L3H8',0xffffffff,0xffffffff,0xffffffff,unpack('H8',$_[0])); return pack('L3a4',0xffffffff,0xffffffff,0xffffffff,$_[0]); } =item * $ipv6naddr = ipanyto6($netaddr); Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. input: 32 or 128 bit network address returns: 128 bit network address =cut sub ipanyto6 { my $naddr = shift; my $len = length($naddr); return $naddr if $len == 16; # return pack('L3H8',0,0,0,unpack('H8',$naddr)) return pack('L3a4',0,0,0,$naddr) if $len == 4; _deadlen($len,'32 or 128'); } =item * $ipv6naddr = maskanyto6($netaddr); Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. input: 32 or 128 bit network mask returns: 128 bit network mask =cut sub maskanyto6 { my $naddr = shift; my $len = length($naddr); return $naddr if $len == 16; # return pack('L3H8',0xffffffff,0xffffffff,0xffffffff,unpack('H8',$naddr)) return pack('L3a4',0xffffffff,0xffffffff,0xffffffff,$naddr) if $len == 4; _deadlen($len,'32 or 128'); } =item * $netaddr = ipv6to4($pv6naddr); Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. input: 128 bit network address returns: 32 bit inet_aton network address =cut sub ipv6to4 { my $naddr = shift; _deadlen(length($naddr)) if length($naddr) != 16; @_ = unpack('L3H8',$naddr); return pack('H8',@{_}[3..10]); } =item * $bcdtext = bin2bcd($bits128); Convert a 128 bit binary string into binary coded decimal text digits. input: 128 bit string variable returns: string of bcd text digits =cut sub bin2bcd { _deadlen(length($_[0])) if length($_[0]) != 16; unpack("H40",&_bin2bcdn) =~ /^0*(.+)/; $1; } =item * $bits128 = bcd2bin($bcdtxt); Convert a bcd text string to 128 bit string variable input: string of bcd text digits returns: 128 bit string variable =cut sub bcd2bin { &_bcdcheck; # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_bcd2bin; &_bcd2bin; } =pod =back =cut #=item * $onescomp = comp128($ipv6addr); # #This function is for testing, it is more efficient to use perl " ~ " #on the bit string directly. This interface to the B<C> routine is published for #module testing purposes because it is used internally in the B<sub128> routine. The #function is very fast, but calling if from perl directly is very slow. It is almost #33% faster to use B<sub128> than to do a 1's comp with perl and then call #B<add128>. In the PurePerl version, it is a call to # # sub {return ~ $_[0]}; # #=cut sub comp128 { _deadlen(length($_[0])) if length($_[0]) != 16; return ~ $_[0]; } #=item * $bcdpacked = bin2bcdn($bits128); # #Convert a 128 bit binary string into binary coded decimal digits. #This function is for testing only. # # input: 128 bit string variable # returns: string of packed decimal digits # # i.e. text = unpack("H*", $bcd); # #=cut sub bin2bcdn { _deadlen(length($_[0])) if length($_[0]) != 16; # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_bin2bcdn; &_bin2bcdn; } sub _bin2bcdn { my($b128) = @_; my @binary = unpack('N4',$b128); my @nbcd = (0,0,0,0,0); # 5 - 32 bit registers my ($add3, $msk8, $bcd8, $carry, $tmp); my $j = 0; my $k = -1; my $binmsk = 0; foreach(0..127) { unless ($binmsk) { $binmsk = 0x80000000; $k++; } $carry = $binary[$k] & $binmsk; $binmsk >>= 1; next unless $carry || $j; # skip leading zeros foreach(4,3,2,1,0) { $bcd8 = $nbcd[$_]; $add3 = 3; $msk8 = 8; $j = 0; while ($j < 8) { $tmp = $bcd8 + $add3; if ($tmp & $msk8) { $bcd8 = $tmp; } $add3 <<= 4; $msk8 <<= 4; $j++; } $tmp = $bcd8 & 0x80000000; # propagate carry $bcd8 <<= 1; # x2 if ($carry) { $bcd8 += 1; } $nbcd[$_] = $bcd8; $carry = $tmp; } } pack('N5',@nbcd); } #=item * $bcdtext = bcdn2txt($bcdpacked); # #Convert a packed bcd string into text digits, suppress the leading zeros. #This function is for testing only. # # input: string of packed decimal digits # consisting of exactly 40 digits # returns: hexdecimal digits # #Similar to unpack("H*", $bcd); # #=cut sub bcdn2txt { die "Bad argument length for ".__PACKAGE__.":bcdn2txt, is ".(2 * length($_[0])).", should be exactly 40 digits" if length($_[0]) != 20; (unpack('H40',$_[0])) =~ /^0*(.+)/; $1; } #=item * $bits128 = bcdn2bin($bcdpacked,$ndigits); # # Convert a packed bcd string into a 128 bit string variable # # input: packed bcd string # number of digits in string # returns: 128 bit string variable # sub bcdn2bin { my($bcd,$dc) = @_; $dc = 0 unless $dc; die "Bad argument length for ".__PACKAGE__.":bcdn2txt, is ".(2 * length($bcd)).", should be 1 to 40 digits" if length($bcd) > 20; die "Bad digit count for ".__PACKAGE__.":bcdn2bin, is $dc, should be 1 to 40 digits" if $dc < 1 || $dc > 40; return _bcd2bin(unpack("H$dc",$bcd)); } sub _bcd2bin { my @bcd = split('',$_[0]); my @hbits = (0,0,0,0); my @digit = (0,0,0,0); my $found = 0; foreach(@bcd) { my $bcd = $_ & 0xf; # just the nibble unless ($found) { next unless $bcd; # skip leading zeros $found = 1; $hbits[3] = $bcd; # set the first digit, no x10 necessary next; } _128x10(\@hbits); $digit[3] = $bcd; _sa128(\@hbits,\@digit,0); } return pack('N4',@hbits); } #=item * $bcdpacked = simple_pack($bcdtext); # #Convert a numeric string into a packed bcd string, left fill with zeros #This function is for testing only. # # input: string of decimal digits # returns: string of packed decimal digits # #Similar to pack("H*", $bcdtext); # sub _bcdcheck { my($bcd) = @_;; my $sub = (caller(1))[3]; my $len = length($bcd); die "Bad bcd number length $_ ".__PACKAGE__.":simple_pack, should be 1 to 40 digits" if $len > 40 || $len < 1; die "Bad character in decimal input string '$1' for ".__PACKAGE__.":simple_pack" if $bcd =~ /(\D)/; } sub simple_pack { &_bcdcheck; my($bcd) = @_; while (length($bcd) < 40) { $bcd = '0'. $bcd; } return pack('H40',$bcd); } =head1 EXPORT_OK hasbits shiftleft addconst add128 sub128 notcontiguous ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcd bcd2bin comp128 bin2bcdn bcdn2txt bcdn2bin simple_pack threads =head1 AUTHOR Michael Robinton E<lt>michael@bizsystems.comE<gt> =head1 COPYRIGHT Copyright 2003 - 2012, Michael Robinton E<lt>michael@bizsystems.comE<gt> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =cut 1; blib/lib/NetAddr/IP/Lite.pm 0000444 00000125630 15043770025 0011316 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::Lite; use Carp; use strict; #use diagnostics; #use warnings; use NetAddr::IP::InetBase qw( inet_any2n isIPv4 inet_n2dx inet_aton ipv6_aton ipv6_n2x fillIPv4 ); use NetAddr::IP::Util qw( addconst sub128 ipv6to4 notcontiguous shiftleft hasbits bin2bcd bcd2bin mask4to6 ipv4to6 naip_gethostbyname havegethostbyname2 ); use vars qw(@ISA @EXPORT_OK $VERSION $Accept_Binary_IP $Old_nth $NoFQDN $AUTOLOAD *Zero); $VERSION = do { my @r = (q$Revision: 1.57 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(Zeros Zero Ones V4mask V4net); # Set to true, to enable recognizing of ipV4 && ipV6 binary notation IP # addresses. Thanks to Steve Snodgrass for reporting. This can be done # at the time of use-ing the module. See docs for details. $Accept_Binary_IP = 0; $Old_nth = 0; *Zero = \&Zeros; =pod =encoding UTF-8 =head1 NAME NetAddr::IP::Lite - Manages IPv4 and IPv6 addresses and subnets =head1 SYNOPSIS use NetAddr::IP::Lite qw( Zeros Ones V4mask V4net :aton DEPRECATED ! :old_nth :upper :lower :nofqdn ); my $ip = new NetAddr::IP::Lite '127.0.0.1'; or if your prefer my $ip = NetAddr::IP::Lite->new('127.0.0.1); or from a packed IPv4 address my $ip = new_from_aton NetAddr::IP::Lite (inet_aton('127.0.0.1')); or from an octal filtered IPv4 address my $ip = new_no NetAddr::IP::Lite '127.012.0.0'; print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ; if ($ip->within(new NetAddr::IP::Lite "127.0.0.0", "255.0.0.0")) { print "Is a loopback address\n"; } # This prints 127.0.0.1/32 print "You can also say $ip...\n"; The following four functions return ipV6 representations of: :: = Zeros(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); ::FFFF:FFFF = V4net(); Will also return an ipV4 or ipV6 representation of a resolvable Fully Qualified Domanin Name (FQDN). =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install B<NetAddr::IP::Lite> depends on B<NetAddr::IP::Util> which installs by default with its primary functions compiled using Perl's XS extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install =head1 DESCRIPTION This module provides an object-oriented abstraction on top of IP addresses or IP subnets, that allows for easy manipulations. Most of the operations of NetAddr::IP are supported. This module will work with older versions of Perl and is compatible with Math::BigInt. * By default B<NetAddr::IP> functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: NOTE: the AUGUST 2010 RFC5952 states: 4.3. Lowercase The characters "a", "b", "c", "d", "e", and "f" in an IPv6 address MUST be represented in lowercase. It is recommended that all NEW applications using NetAddr::IP::Lite be invoked as shown on the next line. use NetAddr::IP::Lite qw(:lower); * To ensure the current IPv6 string case behavior even if the default changes: use NetAddr::IP::Lite qw(:upper); The internal representation of all IP objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. The supported operations are described below: =cut # in the off chance that NetAddr::IP::Lite objects are created # and the caller later loads NetAddr::IP and expects to use # those objects, let the AUTOLOAD routine find and redirect # NetAddr::IP::Lite method and subroutine calls to NetAddr::IP. # my $parent = 'NetAddr::IP'; # test function # # input: subroutine name in NetAddr::IP # output: t/f if sub name exists in NetAddr::IP namespace # #sub sub_exists { # my $other = $parent .'::'; # return exists ${$other}{$_[0]}; #} sub DESTROY {}; sub AUTOLOAD { no strict; my ($pkg,$func) = ($AUTOLOAD =~ /(.*)::([^:]+)$/); my $other = $parent .'::'; if ($pkg =~ /^$other/o && exists ${$other}{$func}) { $other .= $func; goto &{$other}; } my @stack = caller(0); if ( $pkg eq ref $_[0] ) { $other = qq|Can't locate object method "$func" via|; } else { $other = qq|Undefined subroutine \&$AUTOLOAD not found in|; } die $other . qq| package "$parent" or "$pkg" (did you forgot to load a module?) at $stack[1] line $stack[2].\n|; } =head2 Overloaded Operators =cut # these really should be packed in Network Long order but since they are # symmetrical, that extra internal processing can be skipped my $_v4zero = pack('L',0); my $_zero = pack('L4',0,0,0,0); my $_ones = ~$_zero; my $_v4mask = pack('L4',0xffffffff,0xffffffff,0xffffffff,0); my $_v4net = ~ $_v4mask; my $_ipv4FFFF = pack('N4',0,0,0xffff,0); sub Zeros() { return $_zero; } sub Ones() { return $_ones; } sub V4mask() { return $_v4mask; } sub V4net() { return $_v4net; } ############################################# # These are the overload methods, placed here # for convenience. ############################################# use overload '+' => \&plus, '-' => \&minus, '++' => \&plusplus, '--' => \&minusminus, "=" => \©, '""' => sub { $_[0]->cidr(); }, 'eq' => sub { my $a = (UNIVERSAL::isa($_[0],__PACKAGE__)) ? $_[0]->cidr : $_[0]; my $b = (UNIVERSAL::isa($_[1],__PACKAGE__)) ? $_[1]->cidr : $_[1]; $a eq $b; }, 'ne' => sub { my $a = (UNIVERSAL::isa($_[0],__PACKAGE__)) ? $_[0]->cidr : $_[0]; my $b = (UNIVERSAL::isa($_[1],__PACKAGE__)) ? $_[1]->cidr : $_[1]; $a ne $b; }, '==' => sub { return 0 unless UNIVERSAL::isa($_[0],__PACKAGE__) && UNIVERSAL::isa($_[1],__PACKAGE__); $_[0]->cidr eq $_[1]->cidr; }, '!=' => sub { return 1 unless UNIVERSAL::isa($_[0],__PACKAGE__) && UNIVERSAL::isa($_[1],__PACKAGE__); $_[0]->cidr ne $_[1]->cidr; }, '>' => sub { return &comp_addr_mask > 0 ? 1 : 0; }, '<' => sub { return &comp_addr_mask < 0 ? 1 : 0; }, '>=' => sub { return &comp_addr_mask < 0 ? 0 : 1; }, '<=' => sub { return &comp_addr_mask > 0 ? 0 : 1; }, '<=>' => \&comp_addr_mask, 'cmp' => \&comp_addr_mask; sub comp_addr_mask { my($c,$rv) = sub128($_[0]->{addr},$_[1]->{addr}); return -1 unless $c; return 1 if hasbits($rv); ($c,$rv) = sub128($_[0]->{mask},$_[1]->{mask}); return -1 unless $c; return hasbits($rv) ? 1 : 0; } #sub comp_addr { # my($c,$rv) = sub128($_[0]->{addr},$_[1]->{addr}); # return -1 unless $c; # return hasbits($rv) ? 1 : 0; #} =pod =over =item B<Assignment (C<=>)> Has been optimized to copy one NetAddr::IP::Lite object to another very quickly. =item B<C<-E<gt>copy()>> The B<assignment (C<=>)> operation is only put in to operation when the copied object is further mutated by another overloaded operation. See L<overload> B<SPECIAL SYMBOLS FOR "use overload"> for details. B<C<-E<gt>copy()>> actually creates a new object when called. =cut sub copy { return _new($_[0],$_[0]->{addr}, $_[0]->{mask}); } =item B<Stringification> An object can be used just as a string. For instance, the following code my $ip = new NetAddr::IP::Lite '192.168.1.123'; print "$ip\n"; Will print the string 192.168.1.123/32. my $ip = new6 NetAddr::IP::Lite '192.168.1.123'; print "$ip\n"; Will print the string 0:0:0:0:0:0:C0A8:17B/128 =item B<Equality> You can test for equality with either C<eq>, C<ne>, C<==> or C<!=>. C<eq>, C<ne> allows the comparison with arbitrary strings as well as NetAddr::IP::Lite objects. The following example: if (NetAddr::IP::Lite->new('127.0.0.1','255.0.0.0') eq '127.0.0.1/8') { print "Yes\n"; } Will print out "Yes". Comparison with C<==> and C<!=> requires both operands to be NetAddr::IP::Lite objects. =item B<Comparison via E<gt>, E<lt>, E<gt>=, E<lt>=, E<lt>=E<gt> and C<cmp>> Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the NUMERIC cidr portion of the masks are compared. This leads to the counterintuitive result that /24 > /16 Comparison should not be done on netaddr objects with different CIDR as this may produce indeterminate - unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing $ip1->masklen <=> $ip2->masklen =item B<Addition of a constant (C<+>)> Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: print NetAddr::IP::Lite->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: print NetAddr::IP::Lite->new('10.0.0.1/24') + 255; outputs 10.0.0.0/24. Returns the the unchanged object when the constant is missing or out of range. 2147483647 <= constant >= -2147483648 =cut sub plus { my $ip = shift; my $const = shift; return $ip unless $const && $const < 2147483648 && $const > -2147483649; my $a = $ip->{addr}; my $m = $ip->{mask}; my $lo = $a & ~$m; my $hi = $a & $m; my $new = ((addconst($lo,$const))[1] & ~$m) | $hi; return _new($ip,$new,$m); } =item B<Subtraction of a constant (C<->)> The complement of the addition of a constant. =item B<Difference (C<->)> Returns the difference between the address parts of two NetAddr::IP::Lite objects address parts as a 32 bit signed number. Returns B<undef> if the difference is out of range. =cut my $_smsk = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0x80000000); sub minus { my $ip = shift; my $arg = shift; unless (ref $arg) { return plus($ip, -$arg); } my($carry,$dif) = sub128($ip->{addr},$arg->{addr}); if ($carry) { # value is positive return undef if hasbits($dif & $_smsk); # all sign bits should be 0's return (unpack('L3N',$dif))[3]; } else { return undef if hasbits(($dif & $_smsk) ^ $_smsk); # sign is 1's return (unpack('L3N',$dif))[3] - 4294967296; } } # Auto-increment an object =item B<Auto-increment> Auto-incrementing a NetAddr::IP::Lite object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. =cut sub plusplus { my $ip = shift; my $a = $ip->{addr}; my $m = $ip->{mask}; my $lo = $a & ~ $m; my $hi = $a & $m; $ip->{addr} = ((addconst($lo,1))[1] & ~ $m) | $hi; return $ip; } =item B<Auto-decrement> Auto-decrementing a NetAddr::IP::Lite object performs exactly the opposite of auto-incrementing it, as you would expect. =cut sub minusminus { my $ip = shift; my $a = $ip->{addr}; my $m = $ip->{mask}; my $lo = $a & ~$m; my $hi = $a & $m; $ip->{addr} = ((addconst($lo,-1))[1] & ~$m) | $hi; return $ip; } ############################################# # End of the overload methods. ############################################# # Preloaded methods go here. # This is a variant to ->new() that # creates and blesses a new object # without the fancy parsing of # IP formats and shorthands. # return a blessed IP object without parsing # input: prototype, naddr, nmask # returns: blessed IP object # sub _new ($$$) { my $proto = shift; my $class = ref($proto) || die "reference required"; $proto = $proto->{isv6}; my $self = { addr => $_[0], mask => $_[1], isv6 => $proto, }; return bless $self, $class; } =pod =back =head2 Methods =over =item C<-E<gt>new([$addr, [ $mask|IPv6 ]])> =item C<-E<gt>new6([$addr, [ $mask]])> =item C<-E<gt>new6FFFF([$addr, [ $mask]])> =item C<-E<gt>new_no([$addr, [ $mask]])> =item C<-E<gt>new_from_aton($netaddr)> =item new_cis and new_cis6 are DEPRECATED =item C<-E<gt>new_cis("$addr $mask)> =item C<-E<gt>new_cis6("$addr $mask)> The first three methods create a new address with the supplied address in C<$addr> and an optional netmask C<$mask>, which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. new6FFFF specifically returns an IPv4 address in IPv6 format according to RFC4291 new6 ::xxxx:xxxx new6FFFF ::FFFF:xxxx:xxxx The third method C<new_no> is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. B<new_from_aton> takes a packed IPv4 address and assumes a /32 mask. This function replaces the DEPRECATED :aton functionality which is fundamentally broken. The last two methods B<new_cis> and B<new_cis6> differ from B<new> and B<new6> only in that they except the common Cisco address notation for address/mask pairs with a B<space> as a separator instead of a slash (/) These methods are DEPRECATED because the functionality is now included in the other "new" methods i.e. ->new_cis('1.2.3.0 24') or ->new_cis6('::1.2.3.0 120') C<-E<gt>new6> and C<-E<gt>new_cis6> mark the address as being in ipV6 address space even if the format would suggest otherwise. i.e. ->new6('1.2.3.4') will result in ::102:304 addresses submitted to ->new in ipV6 notation will remain in that notation permanently. i.e. ->new('::1.2.3.4') will result in ::102:304 whereas new('1.2.3.4') would print out as 1.2.3.4 See "STRINGIFICATION" below. C<$addr> can be almost anything that can be resolved to an IP address in all the notations I have seen over time. It can optionally contain the mask in CIDR notation. If the OPTIONAL perl module Socket6 is available in the local library it will autoload and ipV6 host6 names will be resolved as well as ipV4 hostnames. B<prefix> notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. Addresses in the same format returned by C<inet_aton> or C<gethostbyname> can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. ###### DEPRECATED, will be remove in version 5 ############ To accept addresses in that format, invoke the module as in use NetAddr::IP::Lite ':aton' ###### USE new_from_aton instead ########################## If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' C<$addr> can be any of the following and possibly more... n.n n.n/mm n.n mm n.n.n n.n.n/mm n.n.n mm n.n.n.n n.n.n.n/mm 32 bit cidr notation n.n.n.n mm n.n.n.n/m.m.m.m n.n.n.n m.m.m.m loopback, localhost, broadcast, any, default x.x.x.x/host 0xABCDEF, 0b111111000101011110, (or a bcd number) a netaddr as returned by 'inet_aton' Any RFC1884 notation ::n.n.n.n ::n.n.n.n/mmm 128 bit cidr notation ::n.n.n.n/::m.m.m.m ::x:x ::x:x/mmm x:x:x:x:x:x:x:x x:x:x:x:x:x:x:x/mmm x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation loopback, localhost, unspecified, any, default ::x:x/host 0xABCDEF, 0b111111000101011110 within the limits of perl's number resolution 123456789012 a 'big' bcd number (bigger than perl likes) and Math::BigInt A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: use NetAddr::IP::Lite ':nofqdn'; If called with no arguments, 'default' is assumed. If called with and empty string as the argument, 'undef' is returned; =cut my $lbmask = inet_aton('255.0.0.0'); my $_p4broad = inet_any2n('255.255.255.255'); my $_p4loop = inet_any2n('127.0.0.1'); my $_p4mloop = inet_aton('255.0.0.0'); $_p4mloop = mask4to6($_p4mloop); my $_p6loop = inet_any2n('::1'); my %fip4 = ( default => Zeros, any => Zeros, broadcast => $_p4broad, loopback => $_p4loop, unspecified => undef, ); my %fip4m = ( default => Zeros, any => Zeros, broadcast => Ones, loopback => $_p4mloop, unspecified => undef, # not applicable for ipV4 host => Ones, ); my %fip6 = ( default => Zeros, any => Zeros, broadcast => undef, # not applicable for ipV6 loopback => $_p6loop, unspecified => Zeros, ); my %fip6m = ( default => Zeros, any => Zeros, broadcast => undef, # not applicable for ipV6 loopback => Ones, unspecified => Ones, host => Ones, ); my $ff000000 = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0xFF000000); my $ffff0000 = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0xFFFF0000); my $ffffff00 = pack('L3N',0xffffffff,0xffffffff,0xffffffff,0xFFFFFF00); sub _obits ($$) { my($lo,$hi) = @_; return 0xFF if $lo == $hi; return (~ ($hi ^ $lo)) & 0xFF; } sub new_no($;$$) { unshift @_, -1; goto &_xnew; } sub new($;$$) { unshift @_, 0; goto &_xnew; } sub new_from_aton($$) { my $proto = shift; my $class = ref $proto || $proto || __PACKAGE__; my $ip = shift; return undef unless defined $ip; my $addrlen = length($ip); return undef unless $addrlen == 4; my $self = { addr => ipv4to6($ip), mask => &Ones, isv6 => 0, }; return bless $self, $class; } sub new6($;$$) { unshift @_, 1; goto &_xnew; } sub new6FFFF($;$$) { my $ip = _xnew(1,@_); $ip->{addr} |= $_ipv4FFFF; return $ip; } sub new_cis($;$$) { my @in = @_; if ( $in[1] && $in[1] =~ m!^(.+)\s+(.+)$! ) { $in[1] = $1 .'/'. $2; } @_ = (0,@in); goto &_xnew; } sub new_cis6($;$$) { my @in = @_; if ( $in[1] && $in[1] =~ m!^(.+)\s+(.+)$! ) { $in[1] = $1 .'/'. $2; } @_ = (1,@in); goto &_xnew; } sub _no_octal { # $_[0] =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; # return sprintf("%d.%d.%d.%d",$1,$2,$3,$4); (my $rv = $_[0]) =~ s#\b0*([1-9]\d*/?|0/?)#$1#g; # suppress leading zeros $rv; } sub _xnew($$;$$) { my $noctal = 0; my $isV6 = shift; if ($isV6 < 0) { # flag for no octal? $isV6 = 0; $noctal = 1; } my $proto = shift; my $class = ref $proto || $proto || __PACKAGE__; my $ip = shift; if ($ip && $noctal && $ip !~ m|(?:[^\s0123456789/. -])|) { # octal suppression required if not an IPv4 address $ip = _no_octal($ip); } # fix for bug #75976 return undef if defined $ip && $ip eq ''; $ip = 'default' unless defined $ip; $ip = _retMBIstring($ip) # treat as big bcd string if ref $ip && ref $ip eq 'Math::BigInt'; # can /CIDR notation my $hasmask = 1; my($mask,$tmp); # IP to lower case AFTER ref test for Math::BigInt. 'lc' strips blessing $ip = lc $ip; while (1) { # process IP's with no CIDR or that have the CIDR as part of the IP argument string unless (@_) { # if ($ip =~ m!^(.+)/(.+)$!) { if ($ip !~ /\D/) { # binary number notation $ip = bcd2bin($ip); $mask = Ones; last; } elsif ($ip =~ m!^([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)$! || $ip =~ m!^[\[]{1}([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)[\]]{1}$!) { $ip = $1; $mask = $2; } elsif (grep($ip eq $_,(qw(default any broadcast loopback unspecified)))) { $isV6 = 1 if $ip eq 'unspecified'; if ($isV6) { $mask = $fip6m{$ip}; return undef unless defined ($ip = $fip6{$ip}); } else { $mask = $fip4m{$ip}; return undef unless defined ($ip = $fip4{$ip}); } last; } } # process "ipv6" token and default IP's elsif (defined $_[0]) { if ($_[0] =~ /ipv6/i || $isV6) { if (grep($ip eq $_,(qw(default any loopback unspecified)))) { $mask = $fip6m{$ip}; $ip = $fip6{$ip}; last; } else { return undef unless $isV6; # add for ipv6 notation "12345, 1" } # $mask = lc $_[0]; # } else { # $mask = lc $_[0]; } # extract mask $mask = $_[0]; } ### ### process mask unless (defined $mask) { $hasmask = 0; $mask = 'host'; } # two kinds of IP's can turn on the isV6 flag # 1) big digits that are over the IPv4 boundry # 2) IPv6 IP syntax # # check these conditions and set isV6 as appropriate # my $try; $isV6 = 1 if # check big bcd and IPv6 rfc1884 ( $ip !~ /\D/ && # ip is all decimal (length($ip) > 3 || $ip > 255) && # exclude a single digit in the range of zero to 255, could be funny IPv4 ($try = bcd2bin($ip)) && ! isIPv4($try)) || # precedence so $try is not corrupted (index($ip,':') >= 0 && ($try = ipv6_aton($ip))); # fails if not an rfc1884 address # if either of the above conditions is true, $try contains the NetAddr 128 bit address # checkfor Math::BigInt mask $mask = _retMBIstring($mask) # treat as big bcd string if ref $mask && ref $mask eq 'Math::BigInt'; # MASK to lower case AFTER ref test for Math::BigInt, 'lc' strips blessing $mask = lc $mask; if ($mask !~ /\D/) { # bcd or CIDR notation my $isCIDR = length($mask) < 4 && $mask < 129; if ($isV6) { if ($isCIDR) { my($dq1,$dq2,$dq3,$dq4); if ($ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ && do {$dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1; } && $dq1 >= 0 && $dq1 < 256 && $dq2 >= 0 && $dq2 < 256 && $dq3 >= 0 && $dq3 < 256 && $dq4 >= 0 && $dq4 < 256 ) { # corner condition of IPv4 with isV6 $ip = join('.',$dq1,$dq2,$dq3,$dq4); $try = ipv4to6(inet_aton($ip)); if ($mask < 32) { $mask = shiftleft(Ones,32 -$mask); } elsif ($mask == 32) { $mask = Ones; } else { return undef; # undoubtably an error } } elsif ($mask < 128) { $mask = shiftleft(Ones,128 -$mask); # small cidr } else { $mask = Ones(); } } else { $mask = bcd2bin($mask); } } elsif ($isCIDR && $mask < 33) { # is V4 # if ($ip && $noctal && $ip !~ m|(?:[^\s0123456789.])|) { # octal suppression required if not an IPv4 address # $mask = _no_octal($mask); # } if ($mask < 32) { $mask = shiftleft(Ones,32 -$mask); } elsif ( $mask == 32) { $mask = Ones; } else { $mask = bcd2bin($mask); $mask |= $_v4mask; # v4 always } } else { # also V4 $mask = bcd2bin($mask); $mask |= $_v4mask; } if ($try) { # is a big number $ip = $try; last; } } elsif ($mask =~ m/^\d+\.\d+\.\d+\.\d+$/) { # ipv4 form of mask $mask = _no_octal($mask) if $noctal; # filter for octal return undef unless defined ($mask = inet_aton($mask)); $mask = mask4to6($mask); } elsif (grep($mask eq $_,qw(default any broadcast loopback unspecified host))) { if (index($ip,':') < 0 && ! $isV6) { return undef unless defined ($mask = $fip4m{$mask}); } else { return undef unless defined ($mask = $fip6m{$mask}); } } else { return undef unless defined ($mask = ipv6_aton($mask)); # try ipv6 form of mask } # process remaining IP's if (index($ip,':') < 0) { # ipv4 address if ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) { ; # the common case } elsif (grep($ip eq $_,(qw(default any broadcast loopback)))) { return undef unless defined ($ip = $fip4{$ip}); last; } elsif ($ip =~ m/^(\d+)\.(\d+)$/) { $ip = ($hasmask) ? "${1}.${2}.0.0" : "${1}.0.0.${2}"; } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)$/) { $ip = ($hasmask) ? "${1}.${2}.${3}.0" : "${1}.${2}.0.${3}"; } elsif ($ip =~ /^(\d+)$/ && $hasmask && $1 >= 0 and $1 < 256) { # pure numeric $ip = sprintf("%d.0.0.0",$1); } # elsif ($ip =~ /^\d+$/ && !$hasmask) { # a big integer elsif ($ip =~ /^\d+$/ ) { # a big integer $ip = bcd2bin($ip); last; } # these next three might be broken??? but they have been in the code a long time and no one has complained elsif ($ip =~ /^0[xb]\d+$/ && $hasmask && (($tmp = eval "$ip") || 1) && $tmp >= 0 && $tmp < 256) { $ip = sprintf("%d.0.0.0",$tmp); } elsif ($ip =~ /^-?\d+$/) { $ip += 2 ** 32 if $ip < 0; $ip = pack('L3N',0,0,0,$ip); last; } elsif ($ip =~ /^-?0[xb]\d+$/) { $ip = eval "$ip"; $ip = pack('L3N',0,0,0,$ip); last; } # notations below include an implicit mask specification elsif ($ip =~ m/^(\d+)\.$/) { $ip = "${1}.0.0.0"; $mask = $ff000000; } elsif ($ip =~ m/^(\d+)\.(\d+)-(\d+)\.?$/ && $2 <= $3 && $3 < 256) { $ip = "${1}.${2}.0.0"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,255,_obits($2,$3),0,0); } elsif ($ip =~ m/^(\d+)-(\d+)\.?$/ and $1 <= $2 && $2 < 256) { $ip = "${1}.0.0.0"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,_obits($1,$2),0,0,0) } elsif ($ip =~ m/^(\d+)\.(\d+)\.$/) { $ip = "${1}.${2}.0.0"; $mask = $ffff0000; } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)-(\d+)\.?$/ && $3 <= $4 && $4 < 256) { $ip = "${1}.${2}.${3}.0"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,255,255,_obits($3,$4),0); } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.$/) { $ip = "${1}.${2}.${3}.0"; $mask = $ffffff00; } elsif ($ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)-(\d+)$/ && $4 <= $5 && $5 < 256) { $ip = "${1}.${2}.${3}.${4}"; $mask = pack('L3C4',0xffffffff,0xffffffff,0xffffffff,255,255,255,_obits($4,$5)); } elsif ($ip =~ m/^(\d+\.\d+\.\d+\.\d+) \s*-\s*(\d+\.\d+\.\d+\.\d+)$/x) { # if ($noctal) { # return undef unless ($ip = inet_aton(_no_octal($1))); # return undef unless ($tmp = inet_aton(_no_octal($2))); # } else { return undef unless ($ip = inet_aton($1)); return undef unless ($tmp = inet_aton($2)); # } # check for left side greater than right side # save numeric difference in $mask return undef if ($tmp = unpack('N',$tmp) - unpack('N',$ip)) < 0; $ip = ipv4to6($ip); $tmp = pack('L3N',0,0,0,$tmp); $mask = ~$tmp; return undef if notcontiguous($mask); # check for non-aligned left side return undef if hasbits($ip & $tmp); last; } # check for resolvable IPv4 hosts elsif (! $NoFQDN && $ip !~ /[^a-zA-Z0-9\._-]/ && ($tmp = gethostbyname(fillIPv4($ip))) && $tmp ne $_v4zero && $tmp ne $_zero ) { $ip = ipv4to6($tmp); last; } # check for resolvable IPv6 hosts elsif (! $NoFQDN && $ip !~ /[^a-zA-Z0-9\._-]/ && havegethostbyname2() && ($tmp = naip_gethostbyname($ip))) { $ip = $tmp; $isV6 = 1; last; } elsif ($Accept_Binary_IP && ! $hasmask) { if (length($ip) == 4) { $ip = ipv4to6($ip); } elsif (length($ip) == 16) { $isV6 = 1; } else { return undef; } last; } else { return undef; } return undef unless defined ($ip = inet_aton($ip)); $ip = ipv4to6($ip); last; } ########## continuing else { # ipv6 address $isV6 = 1; $ip = $1 if $ip =~ /\[([^\]]+)\]/; # transform URI notation if (defined ($tmp = ipv6_aton($ip))) { $ip = $tmp; last; } last if grep($ip eq $_,(qw(default any loopback unspecified))) && defined ($ip = $fip6{$ip}); return undef; } } # end while (1) return undef if notcontiguous($mask); # invalid if not contiguous my $self = { addr => $ip, mask => $mask, isv6 => $isV6, }; return bless $self, $class; } =item C<-E<gt>broadcast()> Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. =cut sub broadcast ($) { my $ip = _new($_[0],$_[0]->{addr} | ~$_[0]->{mask},$_[0]->{mask}); $ip->{addr} &= V4net unless $ip->{isv6}; return $ip; } =item C<-E<gt>network()> Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. =cut sub network ($) { return _new($_[0],$_[0]->{addr} & $_[0]->{mask},$_[0]->{mask}); } =item C<-E<gt>addr()> Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP::Lite object to other components that expect an IP address. If the object is an ipV6 address or was created using ->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. =cut sub addr ($) { return ($_[0]->{isv6}) ? ipv6_n2x($_[0]->{addr}) : inet_n2dx($_[0]->{addr}); } =item C<-E<gt>mask()> Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. =cut sub mask ($) { return ipv6_n2x($_[0]->{mask}) if $_[0]->{isv6}; my $mask = isIPv4($_[0]->{addr}) ? $_[0]->{mask} & V4net : $_[0]->{mask}; return inet_n2dx($mask); } =item C<-E<gt>masklen()> Returns a scalar the number of one bits in the mask. =cut sub masklen ($) { my $len = (notcontiguous($_[0]->{mask}))[1]; return 0 unless $len; return $len if $_[0]->{isv6}; return isIPv4($_[0]->{addr}) ? $len -96 : $len; } =item C<-E<gt>bits()> Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. =cut sub bits { return $_[0]->{isv6} ? 128 : 32; } =item C<-E<gt>version()> Returns the version of the address or subnet. Currently this can be either 4 or 6. =cut sub version { my $self = shift; return $self->{isv6} ? 6 : 4; } =item C<-E<gt>cidr()> Returns a scalar with the address and mask in CIDR notation. A NetAddr::IP::Lite object I<stringifies> to the result of this function. (see comments about ->new6() and ->addr() for output formats) =cut sub cidr ($) { return $_[0]->addr . '/' . $_[0]->masklen; } =item C<-E<gt>aton()> Returns the address part of the NetAddr::IP::Lite object in the same format as the C<inet_aton()> or C<ipv6_aton> function respectively. If the object was created using ->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. =cut sub aton { return $_[0]->{addr} if $_[0]->{isv6}; return isIPv4($_[0]->{addr}) ? ipv6to4($_[0]->{addr}) : $_[0]->{addr}; } =item C<-E<gt>range()> Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. =cut sub range ($) { return $_[0]->network->addr . ' - ' . $_[0]->broadcast->addr; } =item C<-E<gt>numeric()> When called in a scalar context, will return a numeric representation of the address part of the IP address. When called in an array context, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. This method is essential for serializing the representation of a subnet. =cut sub numeric ($) { if (wantarray) { if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { return ( sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))), sprintf("%u",unpack('N',ipv6to4($_[0]->{mask})))); } else { return ( bin2bcd($_[0]->{addr}), bin2bcd($_[0]->{mask})); } } return (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) ? sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))) : bin2bcd($_[0]->{addr}); } =item C<-E<gt>bigint()> When called in a scalar context, will return a Math::BigInt representation of the address part of the IP address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the Math::BigInt representation of the netmask. =cut my $biloaded; my $bi2strng; my $no_mbi_emu = 1; # function to force into test development mode # sub _force_bi_emu { undef $biloaded; undef $bi2strng; $no_mbi_emu = 0; print STDERR "\n\n\tWARNING: test development mode, this \tmessage SHOULD NEVER BE SEEN IN PRODUCTION! set my \$no_mbi_emu = 1 in t/bigint.t to remove this warning\n\n"; } # function to stringify various flavors of Math::BigInt objects # tests to see if the object is a hash or a signed scalar sub _bi_stfy { "$_[0]" =~ /(\d+)/; # stringify and remove '+' if present $1; } sub _fakebi2strg { ${$_[0]} =~ /(\d+)/; $1; } # fake new from bi string Math::BigInt 0.01 # sub _bi_fake { bless \('+'. $_[1]), 'Math::BigInt'; } # as of this writing there are three known flavors of Math::BigInt # v0.01 MBI::new returns a scalar ref # v1.?? - 1.69 CALC::_new takes a reference to a scalar, returns an array, MBI returns a hash ref # v1.70 and up CALC::_new takes a scalar, returns and array, MBI returns a hash ref sub _loadMBI { # load Math::BigInt on demand if (eval {$no_mbi_emu && require Math::BigInt}) { # any version should work, three known import Math::BigInt; $biloaded = \&Math::BigInt::new; $bi2strng = \&_bi_stfy; } else { $biloaded = \&_bi_fake; $bi2strng = \&_fakebi2strg; } } sub _retMBIstring { _loadMBI unless $biloaded; # load Math::BigInt on demand $bi2strng->(@_); } sub _biRef { _loadMBI unless $biloaded; # load Math::BigInt on demand $biloaded->('Math::BigInt',$_[0]); } sub bigint($) { my($addr,$mask); if (wantarray) { if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { $addr = $_[0]->{addr} ? sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))) : 0; $mask = $_[0]->{mask} ? sprintf("%u",unpack('N',ipv6to4($_[0]->{mask}))) : 0; } else { $addr = $_[0]->{addr} ? bin2bcd($_[0]->{addr}) : 0; $mask = $_[0]->{mask} ? bin2bcd($_[0]->{mask}) : 0; } (_biRef($addr),_biRef($mask)); } else { # not wantarray if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { $addr = $_[0]->{addr} ? sprintf("%u",unpack('N',ipv6to4($_[0]->{addr}))) : 0; } else { $addr = $_[0]->{addr} ? bin2bcd($_[0]->{addr}) : 0; } _biRef($addr); } } =item C<$me-E<gt>contains($other)> Returns true when C<$me> completely contains C<$other>. False is returned otherwise and C<undef> is returned if C<$me> and C<$other> are not both C<NetAddr::IP::Lite> objects. =cut sub contains ($$) { return within(@_[1,0]); } =item C<$me-E<gt>within($other)> The complement of C<-E<gt>contains()>. Returns true when C<$me> is completely contained within C<$other>, undef if C<$me> and C<$other> are not both C<NetAddr::IP::Lite> objects. =cut sub within ($$) { return 1 unless hasbits($_[1]->{mask}); # 0x0 contains everything my $netme = $_[0]->{addr} & $_[0]->{mask}; my $brdme = $_[0]->{addr} | ~ $_[0]->{mask}; my $neto = $_[1]->{addr} & $_[1]->{mask}; my $brdo = $_[1]->{addr} | ~ $_[1]->{mask}; return (sub128($netme,$neto) && sub128($brdo,$brdme)) ? 1 : 0; } =item C-E<gt>is_rfc1918()> Returns true when C<$me> is an RFC 1918 address. 10.0.0.0 - 10.255.255.255 (10/8 prefix) 172.16.0.0 - 172.31.255.255 (172.16/12 prefix) 192.168.0.0 - 192.168.255.255 (192.168/16 prefix) =cut my $ip_10 = NetAddr::IP::Lite->new('10.0.0.0/8'); my $ip_10n = $ip_10->{addr}; # already the right value my $ip_10b = $ip_10n | ~ $ip_10->{mask}; my $ip_172 = NetAddr::IP::Lite->new('172.16.0.0/12'); my $ip_172n = $ip_172->{addr}; # already the right value my $ip_172b = $ip_172n | ~ $ip_172->{mask}; my $ip_192 = NetAddr::IP::Lite->new('192.168.0.0/16'); my $ip_192n = $ip_192->{addr}; # already the right value my $ip_192b = $ip_192n | ~ $ip_192->{mask}; sub is_rfc1918 ($) { my $netme = $_[0]->{addr} & $_[0]->{mask}; my $brdme = $_[0]->{addr} | ~ $_[0]->{mask}; return 1 if (sub128($netme,$ip_10n) && sub128($ip_10b,$brdme)); return 1 if (sub128($netme,$ip_192n) && sub128($ip_192b,$brdme)); return (sub128($netme,$ip_172n) && sub128($ip_172b,$brdme)) ? 1 : 0; } =item C<-E<gt>is_local()> Returns true when C<$me> is a local network address. i.e. ipV4 127.0.0.0 - 127.255.255.255 or ipV6 === ::1 =cut my $_lclhost6 = NetAddr::IP::Lite->new('::1'); my $_lclnet = NetAddr::IP::Lite->new('127/8'); sub is_local ($) { return ($_[0]->{isv6}) ? $_[0] == $_lclhost6 : $_[0]->within($_lclnet); } =item C<-E<gt>first()> Returns a new object representing the first usable IP address within the subnet (ie, the first host address). =cut my $_cidr127 = pack('N4',0xffffffff,0xffffffff,0xffffffff,0xfffffffe); sub first ($) { if (hasbits($_[0]->{mask} ^ $_cidr127)) { return $_[0]->network + 1; } else { return $_[0]->network; } # return $_[0]->network + 1; } =item C<-E<gt>last()> Returns a new object representing the last usable IP address within the subnet (ie, one less than the broadcast address). =cut sub last ($) { if (hasbits($_[0]->{mask} ^ $_cidr127)) { return $_[0]->broadcast - 1; } else { return $_[0]->broadcast; } # return $_[0]->broadcast - 1; } =item C<-E<gt>nth($index)> Returns a new object representing the I<n>-th usable IP address within the subnet (ie, the I<n>-th host address). If no address is available (for example, when the network is too small for C<$index> hosts), C<undef> is returned. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements C<-E<gt>nth($index)> and C<-E<gt>num()> exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); old behavior: NetAddr::IP->new('10/32')->nth(0) == undef NetAddr::IP->new('10/32')->nth(1) == undef NetAddr::IP->new('10/31')->nth(0) == undef NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == undef NetAddr::IP->new('10/30')->nth(1) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(2) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(3) == 10.0.0.3/30 Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. new behavior: NetAddr::IP->new('10/32')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10.1/32'->nth(0) == 10.0.0.1/32 NetAddr::IP->new('10/31')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/32 NetAddr::IP->new('10/30')->nth(0) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(1) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(2) == undef Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. =cut sub nth ($$) { my $self = shift; my $count = shift; my $slash31 = ! hasbits($self->{mask} ^ $_cidr127); if ($Old_nth) { return undef if $slash31 && $count != 1; return undef if ($count < 1 or $count > $self->num ()); } elsif ($slash31) { return undef if ($count && $count != 1); # only index 0, 1 allowed for /31 } else { ++$count; return undef if ($count < 1 or $count > $self->num ()); } return $self->network + $count; } =item C<-E<gt>num()> As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net B<num> value of 2 instead of 0 (zero) for point-to-point networks. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable IP addresses within the subnet, not counting the broadcast or network address. Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of IP addresses not counting the broadcast address. (one greater than the new behavior) To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); WARNING: NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are TEXT strings and perl can treat them as integers for numeric calculations. Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. =cut sub num ($) { if ($Old_nth) { my @net = unpack('L3N',$_[0]->{mask} ^ Ones); # number of ip's less broadcast return 0xfffffffe if $net[0] || $net[1] || $net[2]; # 2**32 -1 return $net[3] if $net[3]; } else { # returns 1 for /32 /128, 2 for /31 /127 else n-2 up to 2**32 (undef, my $net) = addconst($_[0]->{mask},1); return 1 unless hasbits($net); # ipV4/32 or ipV6/128 $net = $net ^ Ones; return 2 unless hasbits($net); # ipV4/31 or ipV6/127 $net &= $_v4net unless $_[0]->{isv6}; return bin2bcd($net); } } # deprecated #sub num ($) { # my @net = unpack('L3N',$_[0]->{mask} ^ Ones); # if ($Old_nth) { ## number of ip's less broadcast # return 0xfffffffe if $net[0] || $net[1] || $net[2]; # 2**32 -1 # return $net[3] if $net[3]; # } else { # returns 1 for /32 /128, 0 for /31 /127 else n-2 up to 2**32 ## number of usable IP's === number of ip's less broadcast & network addys # return 0xfffffffd if $net[0] || $net[1] || $net[2]; # 2**32 -2 # return 1 unless $net[3]; # $net[3]--; # } # return $net[3]; #} =pod =back =cut sub import { if (grep { $_ eq ':aton' } @_) { $Accept_Binary_IP = 1; @_ = grep { $_ ne ':aton' } @_; } if (grep { $_ eq ':old_nth' } @_) { $Old_nth = 1; @_ = grep { $_ ne ':old_nth' } @_; } if (grep { $_ eq ':lower' } @_) { NetAddr::IP::Util::lower(); @_ = grep { $_ ne ':lower' } @_; } if (grep { $_ eq ':upper' } @_) { NetAddr::IP::Util::upper(); @_ = grep { $_ ne ':upper' } @_; } if (grep { $_ eq ':nofqdn' } @_) { $NoFQDN = 1; @_ = grep { $_ ne ':nofqdn' } @_; } NetAddr::IP::Lite->export_to_level(1, @_); } =head1 EXPORT_OK Zeros Ones V4mask V4net :aton DEPRECATED :old_nth :upper :lower :nofqdn =head1 AUTHORS Luis E. Muñoz E<lt>luismunoz@cpan.orgE<gt>, Michael Robinton E<lt>michael@bizsystems.comE<gt> =head1 WARRANTY This software comes with the same warranty as perl itself (ie, none), so by using it you accept any and all the liability. =head1 COPYRIGHT This software is (c) Luis E. Muñoz, 1999 - 2005 and (c) Michael Robinton, 2006 - 2014. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 SEE ALSO NetAddr::IP(3), NetAddr::IP::Util(3), NetAddr::IP::InetBase(3) =cut 1; blib/lib/NetAddr/IP/Util.pm 0000444 00000053776 15043770025 0011351 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::Util; use strict; #use diagnostics; #use lib qw(blib/lib); use vars qw($VERSION @EXPORT_OK @ISA %EXPORT_TAGS $Mode); use AutoLoader qw(AUTOLOAD); use NetAddr::IP::Util_IS; use NetAddr::IP::InetBase qw( :upper :all ); *NetAddr::IP::Util::upper = \&NetAddr::IP::InetBase::upper; *NetAddr::IP::Util::lower = \&NetAddr::IP::InetBase::lower; require DynaLoader; require Exporter; @ISA = qw(Exporter DynaLoader); $VERSION = do { my @r = (q$Revision: 1.53 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcdn bcdn2txt bcdn2bin simple_pack comp128 packzeros AF_INET AF_INET6 naip_gethostbyname havegethostbyname2 ); %EXPORT_TAGS = ( all => [@EXPORT_OK], inet => [qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros naip_gethostbyname )], math => [qw( shiftleft hasbits isIPv4 isNewIPv4 isAnyIPv4 addconst add128 sub128 notcontiguous bin2bcd bcd2bin )], ipv4 => [qw( inet_aton inet_ntoa )], ipv6 => [qw( ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros naip_gethostbyname )], ); if (NetAddr::IP::Util_IS->not_pure) { eval { ## attempt to load 'C' version of utilities bootstrap NetAddr::IP::Util $VERSION; }; } if (NetAddr::IP::Util_IS->pure || $@) { ## load the pure perl version if 'C' lib missing require NetAddr::IP::UtilPP; import NetAddr::IP::UtilPP qw( :all ); # require Socket; # import Socket qw(inet_ntoa); # *yinet_aton = \&Socket::inet_aton; $Mode = 'Pure Perl'; } else { $Mode = 'CC XS'; } # if Socket lib is broken in some way, check for overange values # #my $overange = yinet_aton('256.1') ? 1:0; #my $overange = gethostbyname('256.1') ? 1:0; sub mode() { $Mode }; my $_newV4compat = pack('N4',0,0,0xffff,0); sub inet_4map6 { my $naddr = shift; if (length($naddr) == 4) { $naddr = ipv4to6($naddr); } elsif (length($naddr) == 16) { ; # is OK return undef unless isAnyIPv4($naddr); } else { return undef; } $naddr |= $_newV4compat; return $naddr; } sub DESTROY {}; my $havegethostbyname2 = 0; my $mygethostbyname; my $_Sock6ok = 1; # for testing gethostbyname sub havegethostbyname2 { return $_Sock6ok ? $havegethostbyname2 : 0; } sub import { if (grep { $_ eq ':noSock6' } @_) { $_Sock6ok = 0; @_ = grep { $_ ne ':noSock6' } @_; } NetAddr::IP::Util->export_to_level(1,@_); } package NetAddr::IP::UtilPolluted; # Socket pollutes the name space with all of its symbols. Since # we don't want them all, confine them to this name space. use strict; use Socket; my $_v4zero = pack('L',0); my $_zero = pack('L4',0,0,0,0); # invoke replacement subroutine for Perl's "gethostbyname" # if Socket6 is available. # # NOTE: in certain BSD implementations, Perl's gethostbyname is broken # we will use our own InetBase::inet_aton instead sub _end_gethostbyname { # my ($name,$aliases,$addrtype,$length,@addrs) = @_; my @rv = @_; # first ip address = rv[4] my $tip = $rv[4]; unless ($tip && $tip ne $_v4zero && $tip ne $_zero) { @rv = (); } # length = rv[3] elsif ($rv[3] && $rv[3] == 4) { foreach (4..$#rv) { $rv[$_] = NetAddr::IP::Util::inet_4map6(NetAddr::IP::Util::ipv4to6($rv[$_])); } $rv[3] = 16; # unconditionally set length to 16 } elsif ($rv[3] == 16) { ; # is ok } else { @rv = (); } return @rv; } unless ( eval { require Socket6 }) { $mygethostbyname = sub { # SEE NOTE above about broken BSD my @tip = gethostbyname(NetAddr::IP::InetBase::fillIPv4($_[0])); return &_end_gethostbyname(@tip); }; } else { import Socket6 qw( gethostbyname2 getipnodebyname ); my $try = eval { my @try = gethostbyname2('127.0.0.1',NetAddr::IP::Util::AF_INET()); $try[4] }; if (! $@ && $try && $try eq INADDR_LOOPBACK()) { *_ghbn2 = \&Socket6::gethostbyname2; $havegethostbyname2 = 1; } else { *_ghbn2 = sub { return () }; # use failure branch below } $mygethostbyname = sub { my @tip; unless ($_Sock6ok && (@tip = _ghbn2($_[0],NetAddr::IP::Util::AF_INET6())) && @tip > 1) { # SEE NOTE above about broken BSD @tip = gethostbyname(NetAddr::IP::InetBase::fillIPv4($_[0])); } return &_end_gethostbyname(@tip); }; } package NetAddr::IP::Util; sub naip_gethostbyname { # turn off complaint from Socket6 about missing numeric argument undef local $^W; my @rv = &$mygethostbyname($_[0]); return wantarray ? @rv : $rv[4]; } 1; __END__ =head1 NAME NetAddr::IP::Util -- IPv4/6 and 128 bit number utilities =head1 SYNOPSIS use NetAddr::IP::Util qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode AF_INET AF_INET6 naip_gethostbyname ); use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) :inet => inet_aton, inet_ntoa, ipv6_aton ipv6_ntoa, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, inet_pton, inet_ntop, inet_4map6, ipv4to6, mask4to6, ipanyto6, packzeros maskanyto6, ipv6to4, naip_gethostbyname :ipv4 => inet_aton, inet_ntoa :ipv6 => ipv6_aton, ipv6_ntoa, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, inet_pton, inet_ntop, inet_4map6, ipv4to6, mask4to6, ipanyto6, maskanyto6, ipv6to4, packzeros, naip_gethostbyname :math => hasbits, isIPv4, isNewIPv4, isAnyIPv4, addconst, add128, sub128, notcontiguous, bin2bcd, bcd2bin, shiftleft $dotquad = inet_ntoa($netaddr); $netaddr = inet_aton($dotquad); $ipv6naddr = ipv6_aton($ipv6_text); $ipv6_text = ipvt_ntoa($ipv6naddr); $hex_text = ipv6_n2x($ipv6naddr); $dec_text = ipv6_n2d($ipv6naddr); $hex_text = packzeros($hex_text); $ipv6naddr = inet_any2n($dotquad or $ipv6_text); $ipv6naddr = inet_4map6($netaddr or $ipv6naddr); $rv = hasbits($bits128); $rv = isIPv4($bits128); $rv = isNewIPv4($bits128); $rv = isAnyIPv4($bits128); $dotquad or $hex_text = inet_n2dx($ipv6naddr); $dotquad or $dec_text = inet_n2ad($ipv6naddr); $netaddr = inet_pton($AF_family,$hex_text); $hex_text = inet_ntop($AF_family,$netaddr); $ipv6naddr = ipv4to6($netaddr); $ipv6naddr = mask4to6($netaddr); $ipv6naddr = ipanyto6($netaddr); $ipv6naddr = maskanyto6($netaddr); $netaddr = ipv6to4($pv6naddr); $bitsX2 = shiftleft($bits128,$n); $carry = addconst($ipv6naddr,$signed_32con); ($carry,$ipv6naddr)=addconst($ipv6naddr,$signed_32con); $carry = add128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=add128($ipv6naddr1,$ipv6naddr2); $carry = sub128($ipv6naddr1,$ipv6naddr2); ($carry,$ipv6naddr)=sub128($ipv6naddr1,$ipv6naddr2); ($spurious,$cidr) = notcontiguous($mask128); $bcdtext = bin2bcd($bits128); $bits128 = bcd2bin($bcdtxt); $modetext = mode; ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); $trueif = havegethostbyname2(); NetAddr::IP::Util::lower(); NetAddr::IP::Util::upper(); =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install B<NetAddr::IP::Util> installs by default with its primary functions compiled using Perl's XS extensions to build a 'C' library. If you do not have a 'C' complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install =head1 DESCRIPTION B<NetAddr::IP::Util> provides a suite of tools for manipulating and converting IPv4 and IPv6 addresses into 128 bit string context and back to text. The strings can be manipulated with Perl's logical operators: and & or | xor ^ ~ compliment in the same manner as 'vec' strings. The IPv6 functions support all rfc1884 formats. i.e. x:x:x:x:x:x:x:x:x x:x:x:x:x:x:x:d.d.d.d ::x:x:x ::x:d.d.d.d and so on... =over 4 =item * $dotquad = inet_ntoa($netaddr); Convert a packed IPv4 network address to a dot-quad IP address. input: packed network address returns: IP address i.e. 10.4.12.123 =item * $netaddr = inet_aton($dotquad); Convert a dot-quad IP address into an IPv4 packed network address. input: IP address i.e. 192.5.16.32 returns: packed network address =item * $ipv6addr = ipv6_aton($ipv6_text); Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary RDATA string. input: ipv6 text returns: 128 bit RDATA string =item * $ipv6_text = ipv6_ntoa($ipv6naddr); Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. input: 128 bit RDATA string returns: ipv6 text =item * $hex_text = ipv6_n2x($ipv6addr); Takes an IPv6 RDATA string and returns an 8 segment IPv6 hex address input: 128 bit RDATA string returns: x:x:x:x:x:x:x:x =item * $dec_text = ipv6_n2d($ipv6addr); Takes an IPv6 RDATA string and returns a mixed hex - decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. input: 128 bit RDATA string returns: x:x:x:x:x:x:d.d.d.d =item * $ipv6naddr = inet_any2n($dotquad or $ipv6_text); This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to B<ipv6_aton>. input: dot-quad or rfc1844 address returns: 128 bit IPv6 string =item * $rv = hasbits($bits128); This function returns true if there are one's present in the 128 bit string and false if all the bits are zero. i.e. if (hasbits($bits128)) { &do_something; } or if (hasbits($bits128 & $mask128) { &do_something; } This allows the implementation of logical functions of the form of: if ($bits128 & $mask128) { ... input: 128 bit IPv6 string returns: true if any bits are present =item * $ipv6naddr = inet_4map6($netaddr or $ipv6naddr This function returns an ipV6 network address with the first 80 bits set to zero and the next 16 bits set to one, while the last 32 bits are filled with the ipV4 address. input: ipV4 netaddr or ipV6 netaddr returns: ipV6 netaddr returns: undef on error An ipV6 network address must be in one of the two compatible ipV4 mapped address spaces. i.e. ::ffff::d.d.d.d or ::d.d.d.d =item * $rv = isIPv4($bits128); This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. i.e. the address must be of the form - ::d.d.d.d Note: this is an old and deprecated ipV4 compatible ipV6 address =item * $rv = isNewIPv4($bits128); This function return true if the IPv6 128 bit string is of the form ::ffff::d.d.d.d =item * $rv = isAnyIPv4($bits128); This function return true if the IPv6 bit string is of the form ::d.d.d.d or ::ffff::d.d.d.d =item * $dotquad or $hex_text = inet_n2dx($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:x:x =item * $dotquad or $dec_text = inet_n2ad($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:ddd.ddd.ddd.dd =item * $netaddr = inet_pton($AF_family,$hex_text); This function takes an IP address in IPv4 or IPv6 text format and converts it into binary format. The type of IP address conversion is controlled by the FAMILY argument. =item * $hex_text = inet_ntop($AF_family,$netaddr); This function takes and IP address in binary format and converts it into text format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_ntop ALWAYS returns lowercase characters. =item * $hex_text = packzeros($hex_text); This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting B<::> for the first occurence of the longest string of zeros in the address. =item * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an IPv6 network address. input: 32 bit network address returns: 128 bit network address =item * $ipv6naddr = mask4to6($netaddr); Convert an ipv4 network address/mask into an ipv6 network mask. input: 32 bit network/mask address returns: 128 bit network/mask address NOTE: returns the high 96 bits as one's =item * $ipv6naddr = ipanyto6($netaddr); Similar to ipv4to6 except that this function takes either an IPv4 or IPv6 input and always returns a 128 bit IPv6 network address. input: 32 or 128 bit network address returns: 128 bit network address =item * $ipv6naddr = maskanyto6($netaddr); Similar to mask4to6 except that this function takes either an IPv4 or IPv6 netmask and always returns a 128 bit IPv6 netmask. input: 32 or 128 bit network mask returns: 128 bit network mask =item * $netaddr = ipv6to4($pv6naddr); Truncate the upper 96 bits of a 128 bit address and return the lower 32 bits. Returns an IPv4 address as returned by inet_aton. input: 128 bit network address returns: 32 bit inet_aton network address =item * $bitsXn = shiftleft($bits128,$n); input: 128 bit string variable, number of shifts [optional] returns: bits X n shifts NOTE: a single shift is performed if $n is not specified =item * addconst($ipv6naddr,$signed_32con); Add a signed constant to a 128 bit string variable. input: 128 bit IPv6 string, signed 32 bit integer returns: scalar carry array (carry, result) =item * add128($ipv6naddr1,$ipv6naddr2); Add two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) =item * sub128($ipv6naddr1,$ipv6naddr2); Subtract two 128 bit string variables. input: 128 bit string var1, 128 bit string var2 returns: scalar carry array (carry, result) Note: The carry from this operation is the result of adding the one's complement of ARG2 +1 to the ARG1. It is logically B<NOT borrow>. i.e. if ARG1 >= ARG2 then carry = 1 or if ARG1 < ARG2 then carry = 0 =item * ($spurious,$cidr) = notcontiguous($mask128); This function counts the bit positions remaining in the mask when the rightmost '0's are removed. input: 128 bit netmask returns true if there are spurious zero bits remaining in the mask, false if the mask is contiguous one's, 128 bit cidr number =item * $bcdtext = bin2bcd($bits128); Convert a 128 bit binary string into binary coded decimal text digits. input: 128 bit string variable returns: string of bcd text digits =item * $bits128 = bcd2bin($bcdtxt); Convert a bcd text string to 128 bit string variable input: string of bcd text digits returns: 128 bit string variable =cut #=item * $onescomp=NetAddr::IP::Util::comp128($ipv6addr); # #This function is not exported because it is more efficient to use perl " ~ " #on the bit string directly. This interface to the B<C> routine is published for #module testing purposes because it is used internally in the B<sub128> routine. The #function is very fast, but calling if from perl directly is very slow. It is almost #33% faster to use B<sub128> than to do a 1's comp with perl and then call #B<add128>. # #=item * $bcdpacked = NetAddr::IP::Util::bin2bcdn($bits128); # #Convert a 128 bit binary string into binary coded decimal digits. #This function is not exported. # # input: 128 bit string variable # returns: string of packed decimal digits # # i.e. text = unpack("H*", $bcd); # #=item * $bcdtext = NetAddr::IP::Util::bcdn2txt($bcdpacked); # #Convert a packed bcd string into text digits, suppress the leading zeros. #This function is not exported. # # input: string of packed decimal digits # returns: hexadecimal digits # #Similar to unpack("H*", $bcd); # #=item * $bcdpacked = NetAddr::IP::Util::simple_pack($bcdtext); # #Convert a numeric string into a packed bcd string, left fill with zeros # # input: string of decimal digits # returns: string of packed decimal digits # #Similar to pack("H*", $bcdtext); =item * $modetext = mode; Returns the operating mode of this module. input: none returns: "Pure Perl" or "CC XS" =item * ($name,$aliases,$addrtype,$length,@addrs)=naip_gethostbyname(NAME); Replacement for Perl's gethostbyname if Socket6 is available In ARRAY context, returns a list of five elements, the hostname or NAME, a space separated list of C_NAMES, AF family, length of the address structure, and an array of one or more netaddr's In SCALAR context, returns the first netaddr. This function ALWAYS returns an IPv6 address, even on IPv4 only systems. IPv4 addresses are mapped into IPv6 space in the form: ::FFFF:FFFF:d.d.d.d This is NOT the expected result from Perl's gethostbyname2. It is instead equivalent to: On an IPv4 only system: $ipv6naddr = ipv4to6 scalar ( gethostbyname( name )); On a system with Socket6 and a working gethostbyname2: $ipv6naddr = gethostbyname2( name, AF_INET6 ); and if that fails, the IPv4 conversion above. For a gethostbyname2 emulator that behave like Socket6, see: L<Net::DNS::Dig> =item * $trueif = havegethostbyname2(); This function returns TRUE if Socket6 has a functioning B<gethostbyname2>, otherwise it returns FALSE. See the comments above about the behavior of B<naip_gethostbyname>. =item * NetAddr::IP::Util::lower(); Return IPv6 strings in lowercase. =item * NetAddr::IP::Util::upper(); Return IPv6 strings in uppercase. This is the default. =back =head1 EXAMPLES # convert any textual IP address into a 128 bit vector # sub text2vec { my($anyIP,$anyMask) = @_; # not IPv4 bit mask my $notiv4 = ipv6_aton('FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::'); my $vecip = inet_any2n($anyIP); my $mask = inet_any2n($anyMask); # extend mask bits for IPv4 my $bits = 128; # default unless (hasbits($mask & $notiv4)) { $mask |= $notiv4; $bits = 32; } return ($vecip, $mask, $bits); } ... alternate implementation, a little faster sub text2vec { my($anyIP,$anyMask) = @_; # not IPv4 bit mask my $notiv4 = ipv6_aton('FFFF:FFFF:FFFF:FFFF:FFFF:FFFF::'); my $vecip = inet_any2n($anyIP); my $mask = inet_any2n($anyMask); # extend mask bits for IPv4 my $bits = 128; # default if (isIPv4($mask)) { $mask |= $notiv4; $bits = 32; } return ($vecip, $mask, $bits); } ... elsewhere $nip = { addr => $vecip, mask => $mask, bits => $bits, }; # return network and broadcast addresses from IP and Mask # sub netbroad { my($nip) = shift; my $notmask = ~ $nip->{mask}; my $bcast = $nip->{addr} | $notmask; my $network = $nip->{addr} & $nip->{mask}; return ($network, $broadcast); } # check if address is within a network # sub within { my($nip,$net) = @_; my $addr = $nip->{addr} my($nw,$bc) = netbroad($net); # arg1 >= arg2, sub128 returns true return (sub128($addr,$nw) && sub128($bc,$addr)) ? 1 : 0; } # truely hard way to do $ip++ # add a constant, wrapping at netblock boundaries # to subtract the constant, negate it before calling # 'addwrap' since 'addconst' will extend the sign bits # sub addwrap { my($nip,$const) = @_; my $addr = $nip->{addr}; my $mask = $nip->{mask}; my $bits = $nip->{bits}; my $notmask = ~ $mask; my $hibits = $addr & $mask; $addr = addconst($addr,$const); my $wraponly = $addr & $notmask; my $newip = { addr => $hibits | $wraponly, mask => $mask, bits => $bits, }; # bless $newip as appropriate return $newip; } # something more useful # increment a /24 net to the NEXT net at the boundry my $nextnet = 256; # for /24 LOOP: while (...continuing) { your code.... ... my $lastip = $ip-copy(); $ip++; if ($ip < $lastip) { # host part wrapped? # discard carry (undef, $ip->{addr} = addconst($ip->{addr}, $nextnet); } next LOOP; } =head1 EXPORT_OK inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n hasbits isIPv4 isNewIPv4 isAnyIPv4 inet_n2dx inet_n2ad inet_pton inet_ntop inet_4map6 ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 packzeros shiftleft addconst add128 sub128 notcontiguous bin2bcd bcd2bin mode naip_gethostbyname havegethostbyname2 =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 COPYRIGHT Copyright 2003 - 2014, Michael Robinton E<lt>michael@bizsystems.comE<gt> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA. or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 SEE ALSO NetAddr::IP(3), NetAddr::IP::Lite(3), NetAddr::IP::InetBase(3) =cut 1; blib/lib/NetAddr/IP/Util_IS.pm 0000444 00000001330 15043770025 0011717 0 ustar 00 #!/usr/bin/perl # # DO NOT ALTER THIS FILE # IT IS WRITTEN BY Makefile.PL # EDIT THAT INSTEAD # package NetAddr::IP::Util_IS; use vars qw($VERSION); $VERSION = 1.00; sub pure { return 0; } sub not_pure { return 1; } 1; __END__ =head1 NAME NetAddr::IP::Util_IS - Tell about Pure Perl =head1 SYNOPSIS use NetAddr::IP::Util_IS; $rv = NetAddr::IP::Util_IS->pure; $rv = NetAddr::IP::Util_IS->not_pure; =head1 DESCRIPTION Util_IS indicates whether or not B<NetAddr::IP::Util> was compiled in Pure Perl mode. =over 4 =item * $rv = NetAddr::IP::Util_IS->pure; Returns true if PurePerl mode, else false. =item * $rv = NetAddr::IP::Util_IS->not_pure; Returns true if NOT PurePerl mode, else false =back =cut 1; blib/lib/NetAddr/IP/.exists 0000644 00000000000 15043770025 0011364 0 ustar 00 blib/lib/NetAddr/IP/InetBase.pm 0000444 00000045421 15043770025 0012112 0 ustar 00 #!/usr/bin/perl package NetAddr::IP::InetBase; use strict; #use diagnostics; #use lib qw(blib lib); use vars qw($VERSION @EXPORT_OK @ISA %EXPORT_TAGS $Mode); use AutoLoader qw(AUTOLOAD); require Exporter; @ISA = qw(Exporter); $VERSION = do { my @r = (q$Revision: 0.08 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_ntop inet_pton packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 fake_AF_INET6 fillIPv4 ); %EXPORT_TAGS = ( all => [@EXPORT_OK], ipv4 => [qw( inet_aton inet_ntoa fillIPv4 )], ipv6 => [qw( ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop packzeros )], ); # prototypes sub inet_ntoa; sub ipv6_aton; sub ipv6_ntoa; sub inet_any2n($); sub inet_n2dx($); sub inet_n2ad($); sub _inet_ntop; sub _inet_pton; my $emulateAF_INET6 = 0; { no warnings 'once'; *packzeros = \&_packzeros; ## dynamic configuraton for IPv6 require Socket; *AF_INET = \&Socket::AF_INET; if (eval { AF_INET6() } ) { *AF_INET6 = \&Socket::AF_INET6; $emulateAF_INET6 = -1; # have it, remind below } if (eval{ require Socket6 } ) { import Socket6 qw( inet_pton inet_ntop ); unless ($emulateAF_INET6) { *AF_INET6 = \&Socket6::AF_INET6; } $emulateAF_INET6 = 0; # clear, have it from elsewhere or here } else { unless ($emulateAF_INET6) { # unlikely at this point if ($^O =~ /(?:free|dragon.+)bsd/i) { # FreeBSD, DragonFlyBSD $emulateAF_INET6 = 28; } elsif ($^O =~ /bsd/i) { # other BSD flavors like NetBDS, OpenBSD, BSD $emulateAF_INET6 = 24; } elsif ($^O =~ /(?:darwin|mac)/i) { # Mac OS X $emulateAF_INET6 = 30; } elsif ($^O =~ /win/i) { # Windows $emulateAF_INET6 = 23; } elsif ($^O =~ /(?:solaris|sun)/i) { # Sun box $emulateAF_INET6 = 26; } else { # use linux default $emulateAF_INET6 = 10; } *AF_INET6 = sub { $emulateAF_INET6; }; } else { $emulateAF_INET6 = 0; # clear, have it from elsewhere } *inet_pton = \&_inet_pton; *inet_ntop = \&_inet_ntop; } } # end no warnings 'once' sub fake_AF_INET6 { return $emulateAF_INET6; } # allow user to choose upper or lower case BEGIN { use vars qw($n2x_format $n2d_format); $n2x_format = "%x:%x:%x:%x:%x:%x:%x:%x"; $n2d_format = "%x:%x:%x:%x:%x:%x:%d.%d.%d.%d"; } my $case = 0; # default lower case sub upper { $n2x_format = uc($n2x_format); $n2d_format = uc($n2d_format); $case = 1; } sub lower { $n2x_format = lc($n2x_format); $n2d_format = lc($n2d_format); $case = 0; } sub ipv6_n2x { die "Bad arg length for 'ipv6_n2x', length is ". length($_[0]) ." should be 16" unless length($_[0]) == 16; return sprintf($n2x_format,unpack("n8",$_[0])); } sub ipv6_n2d { die "Bad arg length for 'ipv6_n2d', length is ". length($_[0]) ." should be 16" unless length($_[0]) == 16; my @hex = (unpack("n8",$_[0])); $hex[9] = $hex[7] & 0xff; $hex[8] = $hex[7] >> 8; $hex[7] = $hex[6] & 0xff; $hex[6] >>= 8; return sprintf($n2d_format,@hex); } # if Socket lib is broken in some way, check for overange values # #my $overange = yinet_aton('256.1') ? 1:0; #my $overange = gethostbyname('256.1') ? 1:0; #sub inet_aton { # unless (! $overange || $_[0] =~ /[^0-9\.]/) { # hostname # my @dq = split(/\./,$_[0]); # foreach (@dq) { # return undef if $_ > 255; # } # } # scalar gethostbyname($_[0]); #} sub fillIPv4 { my $host = $_[0]; return undef unless defined $host; if ($host =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/) { if (defined $4) { return undef unless $1 >= 0 && $1 < 256 && $2 >= 0 && $2 < 256 && $3 >= 0 && $3 < 256 && $4 >= 0 && $4 < 256; $host = $1.'.'.$2.'.'.$3.'.'.$4; # return pack('C4',$1,$2,$3,$4); # $host = ($1 << 24) + ($2 << 16) + ($3 << 8) + $4; } elsif (defined $3) { return undef unless $1 >= 0 && $1 < 256 && $2 >= 0 && $2 < 256 && $3 >= 0 && $3 < 256; $host = $1.'.'.$2.'.0.'.$3 # return pack('C4',$1,$2,0,$3); # $host = ($1 << 24) + ($2 << 16) + $3; } elsif (defined $2) { return undef unless $1 >= 0 && $1 < 256 && $2 >= 0 && $2 < 256; $host = $1.'.0.0.'.$2; # return pack('C4',$1,0,0,$2); # $host = ($1 << 24) + $2; } else { $host = '0.0.0.'.$1; # return pack('C4',0,0,0,$1); # $host = $1; } # return pack('N',$host); } $host; } sub inet_aton { my $host = fillIPv4($_[0]); return $host ? scalar gethostbyname($host) : undef; } #sub inet_aton { # my $host = $_[0]; # return undef unless defined $host; # if ($host =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/) { # if (defined $4) { # return undef unless # $1 >= 0 && $1 < 256 && # $2 >= 0 && $2 < 256 && # $3 >= 0 && $3 < 256 && # $4 >= 0 && $4 < 256; # return pack('C4',$1,$2,$3,$4); ## $host = ($1 << 24) + ($2 << 16) + ($3 << 8) + $4; # } elsif (defined $3) { # return undef unless # $1 >= 0 && $1 < 256 && # $2 >= 0 && $2 < 256 && # $3 >= 0 && $3 < 256; # return pack('C4',$1,$2,0,$3); ## $host = ($1 << 24) + ($2 << 16) + $3; # } elsif (defined $2) { # return undef unless # $1 >= 0 && $1 < 256 && # $2 >= 0 && $2 < 256; # return pack('C4',$1,0,0,$2); ## $host = ($1 << 24) + $2; # } else { # return pack('C4',0,0,0,$1); ## $host = $1; # } ## return pack('N',$host); # } # scalar gethostbyname($host); #} my $_zero = pack('L4',0,0,0,0); my $_ipv4mask = pack('L4',0xffffffff,0xffffffff,0xffffffff,0); sub isIPv4 { if (length($_[0]) != 16) { my $sub = (caller(1))[3] || (caller(0))[3]; die "Bad arg length for $sub, length is ". (length($_[0]) *8) .", should be 128"; } return ($_[0] & $_ipv4mask) eq $_zero ? 1 : 0; } my $_newV4compat = pack('N4',0,0,0xffff,0); sub isNewIPv4 { my $naddr = $_[0] ^ $_newV4compat; return isIPv4($naddr); } sub isAnyIPv4 { my $naddr = $_[0]; my $rv = isIPv4($_[0]); return $rv if $rv; return isNewIPv4($naddr); } sub DESTROY {}; sub import { if (grep { $_ eq ':upper' } @_) { upper(); @_ = grep { $_ ne ':upper' } @_; } NetAddr::IP::InetBase->export_to_level(1,@_); } 1; __END__ =head1 NAME NetAddr::IP::InetBase -- IPv4 and IPV6 utilities =head1 SYNOPSIS use NetAddr::IP::Base qw( :upper inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 fake_AF_INET6 fillIPv4 ); use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) :ipv4 => inet_aton, inet_ntoa, fillIPv4 :ipv6 => ipv6_aton, ipv6_ntoa,ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad inet_pton, inet_ntop, packzeros $dotquad = inet_ntoa($netaddr); $netaddr = inet_aton($dotquad); $ipv6naddr = ipv6_aton($ipv6_text); $ipv6_text = ipv6_ntoa($ipv6naddr); $hex_text = ipv6_n2x($ipv6naddr); $dec_text = ipv6_n2d($ipv6naddr); $ipv6naddr = inet_any2n($dotquad or $ipv6_text); $dotquad or $hex_text = inet_n2dx($ipv6naddr); $dotquad or $dec_text = inet_n2ad($ipv6naddr); $netaddr = inet_pton($AF_family,$text_addr); $text_addr = inet_ntop($AF_family,$netaddr); $hex_text = packzeros($hex_text); $rv = isIPv4($bits128); $rv = isNewIPv4($bits128); $rv = isAnyIPv4($bits128); $constant = AF_INET(); $constant = AF_INET6(); $trueif = fake_AF_INET6(); $ip_filled = fillIPv4($shortIP); NetAddr::IP::InetBase::lower(); NetAddr::IP::InetBase::upper(); =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install =head1 DESCRIPTION B<NetAddr::IP::InetBase> provides a suite network of conversion functions written in pure Perl for converting both IPv4 and IPv6 addresses to and from network address format and text format. The IPv6 functions support all rfc1884 formats. i.e. x:x:x:x:x:x:x:x:x x:x:x:x:x:x:x:d.d.d.d ::x:x:x ::x:d.d.d.d and so on... =over 4 =item * $dotquad = inet_ntoa($netaddr); Convert a packed IPv4 network address to a dot-quad IP address. input: packed network address returns: IP address i.e. 10.4.12.123 =cut sub inet_ntoa { die 'Bad arg length for '. __PACKAGE__ ."::inet_ntoa, length is ". length($_[0]) ." should be 4" unless length($_[0]) == 4; my @hex = (unpack("n2",$_[0])); $hex[3] = $hex[1] & 0xff; $hex[2] = $hex[1] >> 8; $hex[1] = $hex[0] & 0xff; $hex[0] >>= 8; return sprintf("%d.%d.%d.%d",@hex); } =item * $netaddr = inet_aton($dotquad); Convert a dot-quad IP address into an IPv4 packed network address. input: IP address i.e. 192.5.16.32 returns: packed network address =item * $ipv6addr = ipv6_aton($ipv6_text); Takes an IPv6 address of the form described in rfc1884 and returns a 128 bit binary RDATA string. input: ipv6 text returns: 128 bit RDATA string =cut sub ipv6_aton { my($ipv6) = @_; return undef unless $ipv6; local($1,$2,$3,$4,$5); if ($ipv6 =~ /^(.*:)(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) { # mixed hex, dot-quad return undef if $2 > 255 || $3 > 255 || $4 > 255 || $5 > 255; $ipv6 = sprintf("%s%X%02X:%X%02X",$1,$2,$3,$4,$5); # convert to pure hex } my $c; return undef if $ipv6 =~ /[^:0-9a-fA-F]/ || # non-hex character (($c = $ipv6) =~ s/::/x/ && $c =~ /(?:x|:):/) || # double :: ::? $ipv6 =~ /[0-9a-fA-F]{5,}/; # more than 4 digits $c = $ipv6 =~ tr/:/:/; # count the colons return undef if $c < 7 && $ipv6 !~ /::/; if ($c > 7) { # strip leading or trailing :: return undef unless $ipv6 =~ s/^::/:/ || $ipv6 =~ s/::$/:/; return undef if --$c > 7; } while ($c++ < 7) { # expand compressed fields $ipv6 =~ s/::/:::/; } $ipv6 .= 0 if $ipv6 =~ /:$/; my @hex = split(/:/,$ipv6); foreach(0..$#hex) { $hex[$_] = hex($hex[$_] || 0); } pack("n8",@hex); } =item * $ipv6text = ipv6_ntoa($ipv6naddr); Convert a 128 bit binary IPv6 address to compressed rfc 1884 text representation. input: 128 bit RDATA string returns: ipv6 text =cut sub ipv6_ntoa { return inet_ntop(AF_INET6(),$_[0]); } =item * $hex_text = ipv6_n2x($ipv6addr); Takes an IPv6 RDATA string and returns an 8 segment IPv6 hex address input: 128 bit RDATA string returns: x:x:x:x:x:x:x:x Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =item * $dec_text = ipv6_n2d($ipv6addr); Takes an IPv6 RDATA string and returns a mixed hex - decimal IPv6 address with the 6 uppermost chunks in hex and the lower 32 bits in dot-quad representation. input: 128 bit RDATA string returns: x:x:x:x:x:x:d.d.d.d Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =item * $ipv6naddr = inet_any2n($dotquad or $ipv6_text); This function converts a text IPv4 or IPv6 address in text format in any standard notation into a 128 bit IPv6 string address. It prefixes any dot-quad address (if found) with '::' and passes it to B<ipv6_aton>. input: dot-quad or rfc1844 address returns: 128 bit IPv6 string =cut sub inet_any2n($) { my($addr) = @_; $addr = '' unless $addr; $addr = '::' . $addr unless $addr =~ /:/; return ipv6_aton($addr); } =item * $dotquad or $hex_text = inet_n2dx($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:x:x Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =cut sub inet_n2dx($) { my($nadr) = @_; if (isAnyIPv4($nadr)) { local $1; ipv6_n2d($nadr) =~ /([^:]+)$/; return $1; } return ipv6_n2x($nadr); } =item * $dotquad or $dec_text = inet_n2ad($ipv6naddr); This function B<does the right thing> and returns the text for either a dot-quad IPv4 or a hex::decimal notation IPv6 address. input: 128 bit IPv6 string returns: ddd.ddd.ddd.ddd or x:x:x:x:x:x:ddd.ddd.ddd.dd Note: this function does NOT compress adjacent strings of 0:0:0:0 into the :: format =cut sub inet_n2ad($) { my($nadr) = @_; my $addr = ipv6_n2d($nadr); return $addr unless isAnyIPv4($nadr); local $1; $addr =~ /([^:]+)$/; return $1; } =item * $netaddr = inet_pton($AF_family,$text_addr); This function takes an IP address in IPv4 or IPv6 text format and converts it into binary format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_pton, inet_ntop and AF_INET6 come from the Socket6 library if it is present on this host. =cut sub _inet_pton { my($af,$ip) = @_; die 'Bad address family for '. __PACKAGE__ ."::inet_pton, got $af" unless $af == AF_INET6() || $af == AF_INET(); if ($af == AF_INET()) { inet_aton($ip); } else { ipv6_aton($ip); } } =item * $text_addr = inet_ntop($AF_family,$netaddr); This function takes and IP address in binary format and converts it into text format. The type of IP address conversion is controlled by the FAMILY argument. NOTE: inet_ntop ALWAYS returns lowercase characters. NOTE: inet_pton, inet_ntop and AF_INET6 come from the Socket6 library if it is present on this host. =cut sub _inet_ntop { my($af,$naddr) = @_; die 'Unsupported address family for '. __PACKAGE__ ."::inet_ntop, af is $af" unless $af == AF_INET6() || $af == AF_INET(); if ($af == AF_INET()) { inet_ntoa($naddr); } else { return ($case) ? lc packzeros(ipv6_n2x($naddr)) : _packzeros(ipv6_n2x($naddr)); } } =item * $hex_text = packzeros($hex_text); This function optimizes and rfc 1884 IPv6 hex address to reduce the number of long strings of zero bits as specified in rfc 1884, 2.2 (2) by substituting B<::> for the first occurence of the longest string of zeros in the address. =cut sub _packzeros { my $x6 = shift; if ($x6 =~ /\:\:/) { # already contains :: # then re-optimize $x6 = ($x6 =~ /\:\d+\.\d+\.\d+\.\d+/) # ipv4 notation ? ? ipv6_n2d(ipv6_aton($x6)) : ipv6_n2x(ipv6_aton($x6)); } $x6 = ':'. lc $x6; # prefix : & always lower case my $d = ''; if ($x6 =~ /(.+\:)(\d+\.\d+\.\d+\.\d+)/) { # if contains dot quad $x6 = $1; # save hex piece $d = $2; # and dot quad piece } $x6 .= ':'; # suffix : $x6 =~ s/\:0+/\:0/g; # compress strings of 0's to single '0' $x6 =~ s/\:0([1-9a-f]+)/\:$1/g; # eliminate leading 0's in hex strings my @x = $x6 =~ /(?:\:0)*/g; # split only strings of :0:0..." my $m = 0; my $i = 0; for (0..$#x) { # find next longest pattern :0:0:0... my $len = length($x[$_]); next unless $len > $m; $m = $len; $i = $_; # index to first longest pattern } if ($m > 2) { # there was a string of 2 or more zeros $x6 =~ s/$x[$i]/\:/; # replace first longest :0:0:0... with "::" unless ($i) { # if it is the first match, $i = 0 $x6 = substr($x6,0,-1); # keep the leading ::, remove trailing ':' } else { $x6 = substr($x6,1,-1); # else remove leading & trailing ':' } $x6 .= ':' unless $x6 =~ /\:\:/; # restore ':' if match and we can't see it, implies trailing '::' } else { # there was no match $x6 = substr($x6,1,-1); # remove leading & trailing ':' } $x6 .= $d; # append digits if any return $case ? uc $x6 : $x6; } =item * $ipv6naddr = ipv4to6($netaddr); Convert an ipv4 network address into an ipv6 network address. input: 32 bit network address returns: 128 bit network address =item * $rv = isIPv4($bits128); This function returns true if there are no on bits present in the IPv6 portion of the 128 bit string and false otherwise. i.e. the address must be of the form - ::d.d.d.d Note: this is an old and deprecated ipV4 compatible ipV6 address =item * $rv = isNewIPv4($bits128); This function return true if the IPv6 128 bit string is of the form ::ffff:d.d.d.d =item * $rv = isAnyIPv4($bits128); This function return true if the IPv6 bit string is of the form ::d.d.d.d or ::ffff:d.d.d.d =item * NetAddr::IP::InetBase::lower(); Return IPv6 strings in lowercase. This is the default. =item * NetAddr::IP::InetBase::upper(); Return IPv6 strings in uppercase. The default may be set to uppercase when the module is loaded by invoking the TAG :upper. i.e. use NetAddr::IP::InetBase qw( :upper ); =item * $constant = AF_INET; This function returns the system value for AF_INET. =item * $constant = AF_INET6; AF_INET6 is sometimes present in the Socket library and always present in the Socket6 library. When the Socket library does not contain AF_INET6 and when Socket6 is not present, a place holder value is C<guessed> based on the underlying host operating system. See B<fake_AF_INET6> below. NOTE: inet_pton, inet_ntop and AF_INET6 come from the Socket6 library if it is present on this host. =item * $trueif = fake_AF_INET6; This function return FALSE if AF_INET6 is provided by Socket or Socket6. Otherwise, it returns the best guess value based on name of the host operating system. =item * $ip_filled = fillIPv4($shortIP); This function converts IPv4 addresses of the form 127.1 to the long form 127.0.0.1 If the function is passed an argument that does not match the form of an IP address, the original argument is returned. i.e. pass it a hostname or a short IP and it will return a hostname or a filled IP. =back =head1 EXPORT_OK :upper inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_pton inet_ntop packzeros isIPv4 isNewIPv4 isAnyIPv4 AF_INET AF_INET6 fake_AF_INET6 fillIPv4 =head1 %EXPORT_TAGS :all :ipv4 :ipv6 :upper =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 COPYRIGHT Copyright 2003 - 2012, Michael Robinton E<lt>michael@bizsystems.comE<gt> All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 AUTHOR Michael Robinton <michael@bizsystems.com> =head1 SEE ALSO NetAddr::IP(3), NetAddr::IP::Lite(3), NetAddr::IP::Util(3) =cut 1; blib/lib/NetAddr/IP.pm 0000444 00000125103 15043770025 0010414 0 ustar 00 #!/usr/bin/perl -w package NetAddr::IP; use strict; #use diagnostics; use Carp; use NetAddr::IP::Lite 1.57 qw(Zero Zeros Ones V4mask V4net); use NetAddr::IP::Util 1.53 qw( sub128 inet_aton inet_any2n ipv6_aton isIPv4 ipv4to6 mask4to6 shiftleft addconst hasbits notcontiguous ); use AutoLoader qw(AUTOLOAD); use vars qw( @EXPORT_OK @EXPORT_FAIL @ISA $VERSION $_netlimit $rfc3021 ); require Exporter; @EXPORT_OK = qw(Compact Coalesce Zero Zeros Ones V4mask V4net netlimit); @EXPORT_FAIL = qw($_netlimit); @ISA = qw(Exporter NetAddr::IP::Lite); $VERSION = do { sprintf " %d.%03d", (q$Revision: 4.79 $ =~ /\d+/g) }; $rfc3021 = 0; =pod =encoding UTF-8 =head1 NAME NetAddr::IP - Manages IPv4 and IPv6 addresses and subnets =head1 SYNOPSIS use NetAddr::IP qw( Compact Coalesce Zeros Ones V4mask V4net netlimit :aton DEPRECATED :lower :upper :old_storable :old_nth :rfc3021 :nofqdn ); NOTE: NetAddr::IP::Util has a full complement of network address utilities to convert back and forth between binary and text. inet_aton, inet_ntoa, ipv6_aton, ipv6_ntoa ipv6_n2x, ipv6_n2d inet_any2d, inet_n2dx, inet_n2ad, inetanyto6, ipv6to4 See L<NetAddr::IP::Util> my $ip = new NetAddr::IP '127.0.0.1'; or if you prefer my $ip = NetAddr::IP->new('127.0.0.1); or from a packed IPv4 address my $ip = new_from_aton NetAddr::IP (inet_aton('127.0.0.1')); or from an octal filtered IPv4 address my $ip = new_no NetAddr::IP '127.012.0.0'; print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ; if ($ip->within(new NetAddr::IP "127.0.0.0", "255.0.0.0")) { print "Is a loopback address\n"; } # This prints 127.0.0.1/32 print "You can also say $ip...\n"; * The following four functions return ipV6 representations of: :: = Zeros(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF = Ones(); FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:: = V4mask(); ::FFFF:FFFF = V4net(); Will also return an ipV4 or ipV6 representation of a resolvable Fully Qualified Domanin Name (FQDN). ###### DEPRECATED, will be remove in version 5 ############ * To accept addresses in the format as returned by inet_aton, invoke the module as: use NetAddr::IP qw(:aton); ###### USE new_from_aton instead ########################## * To enable usage of legacy data files containing NetAddr::IP objects stored using the L<Storable> module. use NetAddr::IP qw(:old_storable); * To compact many smaller subnets (see: C<$me-E<gt>compact($addr1,$addr2,...)> @compacted_object_list = Compact(@object_list) * Return a reference to list of C<NetAddr::IP> subnets of C<$masklen> mask length, when C<$number> or more addresses from C<@list_of_subnets> are found to be contained in said subnet. $arrayref = Coalesce($masklen, $number, @list_of_subnets) * By default B<NetAddr::IP> functions and methods return string IPv6 addresses in uppercase. To change that to lowercase: NOTE: the AUGUST 2010 RFC5952 states: 4.3. Lowercase The characters "a", "b", "c", "d", "e", and "f" in an IPv6 address MUST be represented in lowercase. It is recommended that all NEW applications using NetAddr::IP be invoked as shown on the next line. use NetAddr::IP qw(:lower); * To ensure the current IPv6 string case behavior even if the default changes: use NetAddr::IP qw(:upper); * To set a limit on the size of B<nets> processed or returned by NetAddr::IP. Set the maximum number of nets beyond which NetAddr::IP will return an error as a power of 2 (default 16 or 65536 nets). Each 2**16 consumes approximately 4 megs of memory. A 2**20 consumes 64 megs of memory, A 2**24 consumes 1 gigabyte of memory. use NetAddr::IP qw(netlimit); netlimit 20; The maximum B<netlimit> allowed is 2**24. Attempts to set limits below the default of 16 or above the maximum of 24 are ignored. Returns true on success, otherwise C<undef>. =cut $_netlimit = 2 ** 16; # default sub netlimit($) { return undef unless $_[0]; return undef if $_[0] =~ /\D/; return undef if $_[0] < 16; return undef if $_[0] > 24; $_netlimit = 2 ** $_[0]; }; =head1 INSTALLATION Un-tar the distribution in an appropriate directory and type: perl Makefile.PL make make test make install B<NetAddr::IP> depends on B<NetAddr::IP::Util> which installs by default with its primary functions compiled using Perl's XS extensions to build a C library. If you do not have a C complier available or would like the slower Pure Perl version for some other reason, then type: perl Makefile.PL -noxs make make test make install =head1 DESCRIPTION This module provides an object-oriented abstraction on top of IP addresses or IP subnets that allows for easy manipulations. Version 4.xx of NetAddr::IP will work with older versions of Perl and is compatible with Math::BigInt. The internal representation of all IP objects is in 128 bit IPv6 notation. IPv4 and IPv6 objects may be freely mixed. =head2 Overloaded Operators Many operators have been overloaded, as described below: =cut ############################################# # These are the overload methods, placed here # for convenience. ############################################# use overload '@{}' => sub { return [ $_[0]->hostenum ]; }; =pod =over =item B<Assignment (C<=>)> Has been optimized to copy one NetAddr::IP object to another very quickly. =item B<C<-E<gt>copy()>> The B<assignment (C<=>)> operation is only put in to operation when the copied object is further mutated by another overloaded operation. See L<overload> B<SPECIAL SYMBOLS FOR "use overload"> for details. B<C<-E<gt>copy()>> actually creates a new object when called. =item B<Stringification> An object can be used just as a string. For instance, the following code my $ip = new NetAddr::IP '192.168.1.123'; print "$ip\n"; Will print the string 192.168.1.123/32. =item B<Equality> You can test for equality with either C<eq> or C<==>. C<eq> allows comparison with arbitrary strings as well as NetAddr::IP objects. The following example: if (NetAddr::IP->new('127.0.0.1','255.0.0.0') eq '127.0.0.1/8') { print "Yes\n"; } will print out "Yes". Comparison with C<==> requires both operands to be NetAddr::IP objects. In both cases, a true value is returned if the CIDR representation of the operands is equal. =item B<Comparison via E<gt>, E<lt>, E<gt>=, E<lt>=, E<lt>=E<gt> and C<cmp>> Internally, all network objects are represented in 128 bit format. The numeric representation of the network is compared through the corresponding operation. Comparisons are tried first on the address portion of the object and if that is equal then the NUMERIC cidr portion of the masks are compared. This leads to the counterintuitive result that /24 > /16 Comparison should not be done on netaddr objects with different CIDR as this may produce indeterminate - unexpected results, rather the determination of which netblock is larger or smaller should be done by comparing $ip1->masklen <=> $ip2->masklen =item B<Addition of a constant (C<+>)> Add a 32 bit signed constant to the address part of a NetAddr object. This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: print NetAddr::IP->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: print NetAddr::IP->new('10.0.0.1/24') + 255; outputs 10.0.0.0/24. Returns the the unchanged object when the constant is missing or out of range. 2147483647 <= constant >= -2147483648 =item B<Subtraction of a constant (C<->)> The complement of the addition of a constant. =item B<Difference (C<->)> Returns the difference between the address parts of two NetAddr::IP objects address parts as a 32 bit signed number. Returns B<undef> if the difference is out of range. (See range restrictions on Addition above) =item B<Auto-increment> Auto-incrementing a NetAddr::IP object causes the address part to be adjusted to the next host address within the subnet. It will wrap at the broadcast address and start again from the network address. =item B<Auto-decrement> Auto-decrementing a NetAddr::IP object performs exactly the opposite of auto-incrementing it, as you would expect. =cut ############################################# # End of the overload methods. ############################################# # Preloaded methods go here. =pod =back =head2 Serializing and Deserializing This module defines hooks to collaborate with L<Storable> for serializing C<NetAddr::IP> objects, through compact and human readable strings. You can revert to the old format by invoking this module as use NetAddr::IP ':old_storable'; You must do this if you have legacy data files containing NetAddr::IP objects stored using the L<Storable> module. =cut my $full_format = "%04X:%04X:%04X:%04X:%04X:%04X:%D.%D.%D.%D"; my $full6_format = "%04X:%04X:%04X:%04X:%04X:%04X:%04X:%04X"; sub import { if (grep { $_ eq ':old_storable' } @_) { @_ = grep { $_ ne ':old_storable' } @_; } else { *{STORABLE_freeze} = sub { my $self = shift; return $self->cidr(); # use stringification }; *{STORABLE_thaw} = sub { my $self = shift; my $cloning = shift; # Not used my $serial = shift; my $ip = new NetAddr::IP $serial; $self->{addr} = $ip->{addr}; $self->{mask} = $ip->{mask}; $self->{isv6} = $ip->{isv6}; return; }; } if (grep { $_ eq ':aton' } @_) { $NetAddr::IP::Lite::Accept_Binary_IP = 1; @_ = grep { $_ ne ':aton' } @_; } if (grep { $_ eq ':old_nth' } @_) { $NetAddr::IP::Lite::Old_nth = 1; @_ = grep { $_ ne ':old_nth' } @_; } if (grep { $_ eq ':nofqdn'} @_) { $NetAddr::IP::NetAddr::IP::Lite::NoFQDN = 1; @_ = grep { $_ ne ':nofqdn' } @_; } if (grep { $_ eq ':lower' } @_) { $full_format = lc($full_format); $full6_format = lc($full6_format); NetAddr::IP::Util::lower(); @_ = grep { $_ ne ':lower' } @_; } if (grep { $_ eq ':upper' } @_) { $full_format = uc($full_format); $full6_format = uc($full6_format); NetAddr::IP::Util::upper(); @_ = grep { $_ ne ':upper' } @_; } if (grep { $_ eq ':rfc3021' } @_) { $rfc3021 = 1; @_ = grep { $_ ne ':rfc3021' } @_; } NetAddr::IP->export_to_level(1, @_); } sub compact { return (ref $_[0] eq 'ARRAY') ? compactref($_[0]) # Compact(\@list) : @{compactref(\@_)}; # Compact(@list) or ->compact(@list) } *Compact = \&compact; sub Coalesce { return &coalesce; } sub hostenumref($) { my $r = _splitref(0,$_[0]); unless ((notcontiguous($_[0]->{mask}))[1] == 128 || ($rfc3021 && $_[0]->masklen == 31) ) { splice(@$r, 0, 1); splice(@$r, scalar @$r - 1, 1); } return $r; } sub splitref { unshift @_, 0; # mark as no reverse # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_splitref; &_splitref; } sub rsplitref { unshift @_, 1; # mark as reversed # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_splitref; &_splitref; } sub split { unshift @_, 0; # mark as no reverse my $rv = &_splitref; return $rv ? @$rv : (); } sub rsplit { unshift @_, 1; # mark as reversed my $rv = &_splitref; return $rv ? @$rv : (); } sub full($) { if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { my @hex = (unpack("n8",$_[0]->{addr})); $hex[9] = $hex[7] & 0xff; $hex[8] = $hex[7] >> 8; $hex[7] = $hex[6] & 0xff; $hex[6] >>= 8; return sprintf($full_format,@hex); } else { &full6; } } sub full6($) { my @hex = (unpack("n8",$_[0]->{addr})); return sprintf($full6_format,@hex); } sub full6m($) { my @hex = (unpack("n8",$_[0]->{mask})); return sprintf($full6_format,@hex); } sub DESTROY {}; 1; __END__ sub do_prefix ($$$) { my $mask = shift; my $faddr = shift; my $laddr = shift; if ($mask > 24) { return "$faddr->[0].$faddr->[1].$faddr->[2].$faddr->[3]-$laddr->[3]"; } elsif ($mask == 24) { return "$faddr->[0].$faddr->[1].$faddr->[2]."; } elsif ($mask > 16) { return "$faddr->[0].$faddr->[1].$faddr->[2]-$laddr->[2]."; } elsif ($mask == 16) { return "$faddr->[0].$faddr->[1]."; } elsif ($mask > 8) { return "$faddr->[0].$faddr->[1]-$laddr->[1]."; } elsif ($mask == 8) { return "$faddr->[0]."; } else { return "$faddr->[0]-$laddr->[0]"; } } =pod =head2 Methods =over =item C<-E<gt>new([$addr, [ $mask|IPv6 ]])> =item C<-E<gt>new6([$addr, [ $mask]])> =item C<-E<gt>new_no([$addr, [ $mask]])> =item C<-E<gt>new_from_aton($netaddr)> =item new_cis and new_cis6 are DEPRECATED =item C<-E<gt>new_cis("$addr $mask)> =item C<-E<gt>new_cis6("$addr $mask)> The first two methods create a new address with the supplied address in C<$addr> and an optional netmask C<$mask>, which can be omitted to get a /32 or /128 netmask for IPv4 / IPv6 addresses respectively. The third method C<new_no> is exclusively for IPv4 addresses and filters improperly formatted dot quad strings for leading 0's that would normally be interpreted as octal format by NetAddr per the specifications for inet_aton. B<new_from_aton> takes a packed IPv4 address and assumes a /32 mask. This function replaces the DEPRECATED :aton functionality which is fundamentally broken. The last two methods B<new_cis> and B<new_cis6> differ from B<new> and B<new6> only in that they except the common Cisco address notation for address/mask pairs with a B<space> as a separator instead of a slash (/) These methods are DEPRECATED because the functionality is now included in the other "new" methods i.e. ->new_cis('1.2.3.0 24') or ->new_cis6('::1.2.3.0 120') C<-E<gt>new6> and C<-E<gt>new_cis6> mark the address as being in ipV6 address space even if the format would suggest otherwise. i.e. ->new6('1.2.3.4') will result in ::102:304 addresses submitted to ->new in ipV6 notation will remain in that notation permanently. i.e. ->new('::1.2.3.4') will result in ::102:304 whereas new('1.2.3.4') would print out as 1.2.3.4 See "STRINGIFICATION" below. C<$addr> can be almost anything that can be resolved to an IP address in all the notations I have seen over time. It can optionally contain the mask in CIDR notation. B<prefix> notation is understood, with the limitation that the range specified by the prefix must match with a valid subnet. Addresses in the same format returned by C<inet_aton> or C<gethostbyname> can also be understood, although no mask can be specified for them. The default is to not attempt to recognize this format, as it seems to be seldom used. To accept addresses in that format, invoke the module as in use NetAddr::IP ':aton' If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' C<$addr> can be any of the following and possibly more... n.n n.n/mm n.n.n n.n.n/mm n.n.n.n n.n.n.n/mm 32 bit cidr notation n.n.n.n/m.m.m.m loopback, localhost, broadcast, any, default x.x.x.x/host 0xABCDEF, 0b111111000101011110, (a bcd number) a netaddr as returned by 'inet_aton' Any RFC1884 notation ::n.n.n.n ::n.n.n.n/mmm 128 bit cidr notation ::n.n.n.n/::m.m.m.m ::x:x ::x:x/mmm x:x:x:x:x:x:x:x x:x:x:x:x:x:x:x/mmm x:x:x:x:x:x:x:x/m:m:m:m:m:m:m:m any RFC1884 notation loopback, localhost, unspecified, any, default ::x:x/host 0xABCDEF, 0b111111000101011110 within the limits of perl's number resolution 123456789012 a 'big' bcd number (bigger than perl likes) and Math::BigInt A Fully Qualified Domain Name which returns an ipV4 address or an ipV6 address, embodied in that order. This previously undocumented feature may be disabled with: use NetAddr::IP::Lite ':nofqdn'; If called with no arguments, 'default' is assumed. If called with an empty string as the argument, returns 'undef' =item C<-E<gt>broadcast()> Returns a new object referring to the broadcast address of a given subnet. The broadcast address has all ones in all the bit positions where the netmask has zero bits. This is normally used to address all the hosts in a given subnet. =item C<-E<gt>network()> Returns a new object referring to the network address of a given subnet. A network address has all zero bits where the bits of the netmask are zero. Normally this is used to refer to a subnet. =item C<-E<gt>addr()> Returns a scalar with the address part of the object as an IPv4 or IPv6 text string as appropriate. This is useful for printing or for passing the address part of the NetAddr::IP object to other components that expect an IP address. If the object is an ipV6 address or was created using ->new6($ip) it will be reported in ipV6 hex format otherwise it will be reported in dot quad format only if it resides in ipV4 address space. =item C<-E<gt>mask()> Returns a scalar with the mask as an IPv4 or IPv6 text string as described above. =item C<-E<gt>masklen()> Returns a scalar the number of one bits in the mask. =item C<-E<gt>bits()> Returns the width of the address in bits. Normally 32 for v4 and 128 for v6. =item C<-E<gt>version()> Returns the version of the address or subnet. Currently this can be either 4 or 6. =item C<-E<gt>cidr()> Returns a scalar with the address and mask in CIDR notation. A NetAddr::IP object I<stringifies> to the result of this function. (see comments about ->new6() and ->addr() for output formats) =item C<-E<gt>aton()> Returns the address part of the NetAddr::IP object in the same format as the C<inet_aton()> or C<ipv6_aton> function respectively. If the object was created using ->new6($ip), the address returned will always be in ipV6 format, even for addresses in ipV4 address space. =item C<-E<gt>range()> Returns a scalar with the base address and the broadcast address separated by a dash and spaces. This is called range notation. =item C<-E<gt>prefix()> Returns a scalar with the address and mask in ipV4 prefix representation. This is useful for some programs, which expect its input to be in this format. This method will include the broadcast address in the encoding. =cut # only applicable to ipV4 sub prefix($) { return undef if $_[0]->{isv6}; my $mask = (notcontiguous($_[0]->{mask}))[1]; return $_[0]->addr if $mask == 128; $mask -= 96; my @faddr = split (/\./, $_[0]->first->addr); my @laddr = split (/\./, $_[0]->broadcast->addr); return do_prefix $mask, \@faddr, \@laddr; } =item C<-E<gt>nprefix()> Just as C<-E<gt>prefix()>, but does not include the broadcast address. =cut # only applicable to ipV4 sub nprefix($) { return undef if $_[0]->{isv6}; my $mask = (notcontiguous($_[0]->{mask}))[1]; return $_[0]->addr if $mask == 128; $mask -= 96; my @faddr = split (/\./, $_[0]->first->addr); my @laddr = split (/\./, $_[0]->last->addr); return do_prefix $mask, \@faddr, \@laddr; } =pod =item C<-E<gt>numeric()> When called in a scalar context, will return a numeric representation of the address part of the IP address. When called in an array contest, it returns a list of two elements. The first element is as described, the second element is the numeric representation of the netmask. This method is essential for serializing the representation of a subnet. =item C<-E<gt>bigint()> When called in scalar context, will return a Math::BigInt representation of the address part of the IP address. When called in an array context, it returns a list of two elements, The first element is as described, the second element is the Math::BigInt representation of the netmask. =item C<-E<gt>wildcard()> When called in a scalar context, returns the wildcard bits corresponding to the mask, in dotted-quad or ipV6 format as applicable. When called in an array context, returns a two-element array. The first element, is the address part. The second element, is the wildcard translation of the mask. =cut sub wildcard($) { my $copy = $_[0]->copy; $copy->{addr} = ~ $copy->{mask}; $copy->{addr} &= V4net unless $copy->{isv6}; if (wantarray) { return ($_[0]->addr, $copy->addr); } return $copy->addr; } =pod =item C<-E<gt>short()> Returns the address part in a short or compact notation. (ie, 127.0.0.1 becomes 127.1). Works with both, V4 and V6. =cut sub _compact_v6 ($) { my $addr = shift; my @o = split /:/, $addr; return $addr unless @o and grep { $_ =~ m/^0+$/ } @o; my @candidates = (); my $start = undef; for my $i (0 .. $#o) { if (defined $start) { if ($o[$i] !~ m/^0+$/) { push @candidates, [ $start, $i - $start ]; $start = undef; } } else { $start = $i if $o[$i] =~ m/^0+$/; } } push @candidates, [$start, 8 - $start] if defined $start; my $l = (sort { $b->[1] <=> $a->[1] } @candidates)[0]; return $addr unless defined $l; $addr = $l->[0] == 0 ? '' : join ':', @o[0 .. $l->[0] - 1]; $addr .= '::'; $addr .= join ':', @o[$l->[0] + $l->[1] .. $#o]; $addr =~ s/(^|:)0{1,3}/$1/g; return $addr; } #sub _old_compV6 { # my @addr = split(':',shift); # my $found = 0; # my $v; # foreach(0..$#addr) { # ($v = $addr[$_]) =~ s/^0+//; # $addr[$_] = $v || 0; # } # @_ = reverse(1..$#addr); # foreach(@_) { # if ($addr[$_] || $addr[$_ -1]) { # last if $found; # next; # } # $addr[$_] = $addr[$_ -1] = ''; # $found = '1'; # } # (my $rv = join(':',@addr)) =~ s/:+:/::/; # return $rv; #} # thanks to Rob Riepel <riepel@networking.Stanford.EDU> # for this faster and more compact solution 11-17-08 sub _compV6 ($) { my $ip = shift; return $ip unless my @candidates = $ip =~ /((?:^|:)0(?::0)+(?::|$))/g; my $longest = (sort { length($b) <=> length($a) } @candidates)[0]; $ip =~ s/$longest/::/; return $ip; } sub short($) { my $addr = $_[0]->addr; if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { my @o = split(/\./, $addr, 4); splice(@o, 1, 2) if $o[1] == 0 and $o[2] == 0; return join '.', @o; } return _compV6($addr); } =item C<-E<gt>canon()> Returns the address part in canonical notation as a string. For ipV4, this is dotted quad, and is the same as the return value from "->addr()". For ipV6 it is as per RFC5952, and is the same as the LOWER CASE value returned by "->short()". =cut sub canon($) { my $addr = $_[0]->addr; return $_[0]->{isv6} ? lc _compV6($addr) : $addr; } =item C<-E<gt>full()> Returns the address part in FULL notation for ipV4 and ipV6 respectively. i.e. for ipV4 0000:0000:0000:0000:0000:0000:127.0.0.1 for ipV6 0000:0000:0000:0000:0000:0000:0000:0000 To force ipV4 addresses into full ipV6 format use: =item C<-E<gt>full6()> Returns the address part in FULL ipV6 notation =item C<-E<gt>full6m()> Returns the mask part in FULL ipV6 notation =item C<$me-E<gt>contains($other)> Returns true when C<$me> completely contains C<$other>. False is returned otherwise and C<undef> is returned if C<$me> and C<$other> are not both C<NetAddr::IP> objects. =item C<$me-E<gt>within($other)> The complement of C<-E<gt>contains()>. Returns true when C<$me> is completely contained within C<$other>. Note that C<$me> and C<$other> must be C<NetAddr::IP> objects. =item C-E<gt>is_rfc1918()> Returns true when C<$me> is an RFC 1918 address. 10.0.0.0 - 10.255.255.255 (10/8 prefix) 172.16.0.0 - 172.31.255.255 (172.16/12 prefix) 192.168.0.0 - 192.168.255.255 (192.168/16 prefix) =item C<-E<gt>is_local()> Returns true when C<$me> is a local network address. i.e. ipV4 127.0.0.0 - 127.255.255.255 or ipV6 === ::1 =item C<-E<gt>splitref($bits,[optional $bits1,$bits2,...])> Returns a reference to a list of objects, representing subnets of C<bits> mask produced by splitting the original object, which is left unchanged. Note that C<$bits> must be longer than the original mask in order for it to be splittable. ERROR conditions: ->splitref will DIE with the message 'netlimit exceeded' if the number of return objects exceeds 'netlimit'. See function 'netlimit' above (default 2**16 or 65536 nets). ->splitref returns undef when C<bits> or the (bits list) will not fit within the original object. ->splitref returns undef if a supplied ipV4, ipV6, or NetAddr mask in inappropriately formatted, B<bits> may be a CIDR mask, a dot quad or ipV6 string or a NetAddr::IP object. If C<bits> is missing, the object is split for into all available addresses within the ipV4 or ipV6 object ( auto-mask of CIDR 32, 128 respectively ). With optional additional C<bits> list, the original object is split into parts sized based on the list. NOTE: a short list will replicate the last item. If the last item is too large to for what remains of the object after splitting off the first parts of the list, a "best fits" list of remaining objects will be returned based on an increasing sort of the CIDR values of the C<bits> list. i.e. my $ip = new NetAddr::IP('192.168.0.0/24'); my $objptr = $ip->split(28, 29, 28, 29, 26); has split plan 28 29 28 29 26 26 26 28 and returns this list of objects 192.168.0.0/28 192.168.0.16/29 192.168.0.24/28 192.168.0.40/29 192.168.0.48/26 192.168.0.112/26 192.168.0.176/26 192.168.0.240/28 NOTE: that /26 replicates twice beyond the original request and /28 fills the remaining return object requirement. =item C<-E<gt>rsplitref($bits,[optional $bits1,$bits2,...])> C<-E<gt>rsplitref> is the same as C<-E<gt>splitref> above except that the split plan is applied to the original object in reverse order. i.e. my $ip = new NetAddr::IP('192.168.0.0/24'); my @objects = $ip->split(28, 29, 28, 29, 26); has split plan 28 26 26 26 29 28 29 28 and returns this list of objects 192.168.0.0/28 192.168.0.16/26 192.168.0.80/26 192.168.0.144/26 192.168.0.208/29 192.168.0.216/28 192.168.0.232/29 192.168.0.240/28 =item C<-E<gt>split($bits,[optional $bits1,$bits2,...])> Similar to C<-E<gt>splitref> above but returns the list rather than a list reference. You may not want to use this if a large number of objects is expected. =item C<-E<gt>rsplit($bits,[optional $bits1,$bits2,...])> Similar to C<-E<gt>rsplitref> above but returns the list rather than a list reference. You may not want to use this if a large number of objects is expected. =cut # input: $naip, # @bits, list of masks for splits # # returns: empty array request will not fit in submitted net # (\@bits,undef) if there is just one plan item i.e. return original net # (\@bits,\%masks) for a real plan # sub _splitplan { my($ip,@bits) = @_; my $addr = $ip->addr(); my $isV6 = $ip->{isv6}; unless (@bits) { $bits[0] = $isV6 ? 128 : 32; } my $basem = $ip->masklen(); my(%nets,$dif); my $denom = 0; my($x,$maddr); foreach(@bits) { if (ref $_) { # is a NetAddr::IP $x = $_->{isv6} ? $_->{addr} : $_->{addr} | V4mask; ($x,$maddr) = notcontiguous($x); return () if $x; # spurious bits $_ = $isV6 ? $maddr : $maddr - 96; } elsif ( $_ =~ /^d+$/ ) { # is a negative number of the form -nnnn ; } elsif ($_ = NetAddr::IP->new($addr,$_,$isV6)) { # will be undefined if bad mask and will fall into oops! $_ = $_->masklen(); } else { return (); # oops! } $dif = $_ - $basem; # for normalization return () if $dif < 0; # overange nets not allowed return (\@bits,undef) unless ($dif || $#bits); # return if original net = mask alone $denom = $dif if $dif > $denom; next if exists $nets{$_}; $nets{$_} = $_ - $basem; # for normalization } # $denom is the normalization denominator, since these are all exponents # normalization can use add/subtract to accomplish normalization # # keys of %nets are the masks used by this split # values of %nets are the normalized weighting for # calculating when the split is "full" or complete # %masks values contain the actual masks for each split subnet # @bits contains the masks in the order the user actually wants them # my %masks; # calculate masks my $maskbase = $isV6 ? 128 : 32; foreach( keys %nets ) { $nets{$_} = 2 ** ($denom - $nets{$_}); $masks{$_} = shiftleft(Ones, $maskbase - $_); } my @plan; my $idx = 0; $denom = 2 ** $denom; PLAN: while ($denom > 0) { # make a net plan my $nexmask = ($idx < $#bits) ? $bits[$idx] : $bits[$#bits]; ++$idx; unless (($denom -= $nets{$nexmask}) < 0) { return () if (push @plan, $nexmask) > $_netlimit; next; } # a fractional net is needed that is not in the mask list or the replicant $denom += $nets{$nexmask}; # restore mistake TRY: foreach (sort { $a <=> $b } keys %nets) { next TRY if $nexmask > $_; do { next TRY if $denom - $nets{$_} < 0; return () if (push @plan, $_) > $_netlimit; $denom -= $nets{$_}; } while $denom; } die 'ERROR: miscalculated weights' if $denom; } return () if $idx < @bits; # overrange original subnet request return (\@plan,\%masks); } # input: $rev, # t/f # $naip, # @bits # list of masks for split # sub _splitref { my $rev = shift; my($plan,$masks) = &_splitplan; # bug report 82719 croak("netmask error: overrange or spurious bits") unless defined $plan; # return undef unless $plan; my $net = $_[0]->network(); return [$net] unless $masks; my $addr = $net->{addr}; my $isV6 = $net->{isv6}; my @plan = $rev ? reverse @$plan : @$plan; # print "plan @plan\n"; # create splits my @ret; while ($_ = shift @plan) { my $mask = $masks->{$_}; push @ret, $net->_new($addr,$mask,$isV6); last unless @plan; $addr = (sub128($addr,$mask))[1]; } return \@ret; } =pod =item C<-E<gt>hostenum()> Returns the list of hosts within a subnet. ERROR conditions: ->hostenum will DIE with the message 'netlimit exceeded' if the number of return objects exceeds 'netlimit'. See function 'netlimit' above (default 2**16 or 65536 nets). =cut sub hostenum ($) { return @{$_[0]->hostenumref}; } =pod =item C<-E<gt>hostenumref()> Faster version of C<-E<gt>hostenum()>, returning a reference to a list. NOTE: hostenum and hostenumref report zero (0) useable hosts in a /31 network. This is the behavior expected prior to RFC 3021. To report 2 useable hosts for use in point-to-point networks, use B<:rfc3021> tag. use NetAddr::IP qw(:rfc3021); This will cause hostenum and hostenumref to return two (2) useable hosts in a /31 network. =item C<$me-E<gt>compact($addr1, $addr2, ...)> =item C<@compacted_object_list = Compact(@object_list)> Given a list of objects (including C<$me>), this method will compact all the addresses and subnets into the largest (ie, least specific) subnets possible that contain exactly all of the given objects. Note that in versions prior to 3.02, if fed with the same IP subnets multiple times, these subnets would be returned. From 3.02 on, a more "correct" approach has been adopted and only one address would be returned. Note that C<$me> and all C<$addr>'s must be C<NetAddr::IP> objects. =item C<$me-E<gt>compactref(\@list)> =item C<$compacted_object_list = Compact(\@list)> As usual, a faster version of C<-E<gt>compact()> that returns a reference to a list. Note that this method takes a reference to a list instead. Note that C<$me> must be a C<NetAddr::IP> object. =cut sub compactref($) { # my @r = sort { NetAddr::IP::Lite::comp_addr_mask($a,$b) } @{$_[0]} # use overload 'cmp' function # or return []; # return [] unless @r; my @r; { my $unr = []; my $args = $_[0]; if (ref $_[0] eq __PACKAGE__ and ref $_[1] eq 'ARRAY') { # ->compactref(\@list) # $unr = [$_[0], @{$_[1]}]; # keeping structures intact } else { # Compact(@list) or ->compact(@list) or Compact(\@list) # $unr = $args; } return [] unless @$unr; foreach(@$unr) { $_->{addr} = $_->network->{addr}; } @r = sort @$unr; } my $changed; do { $changed = 0; for(my $i=0; $i <= $#r -1;$i++) { if ($r[$i]->contains($r[$i +1])) { splice(@r,$i +1,1); ++$changed; --$i; } elsif ((notcontiguous($r[$i]->{mask}))[1] == (notcontiguous($r[$i +1]->{mask}))[1]) { # masks the same if (hasbits($r[$i]->{addr} ^ $r[$i +1]->{addr})) { # if not the same netblock my $upnet = $r[$i]->copy; $upnet->{mask} = shiftleft($upnet->{mask},1); if ($upnet->contains($r[$i +1])) { # adjacent nets in next net up $r[$i] = $upnet; splice(@r,$i +1,1); ++$changed; --$i; } } else { # identical nets splice(@r,$i +1,1); ++$changed; --$i; } } } } while $changed; return \@r; } =pod =item C<$me-E<gt>coalesce($masklen, $number, @list_of_subnets)> =item C<$arrayref = Coalesce($masklen,$number,@list_of_subnets)> Will return a reference to list of C<NetAddr::IP> subnets of C<$masklen> mask length, when C<$number> or more addresses from C<@list_of_subnets> are found to be contained in said subnet. Subnets from C<@list_of_subnets> with a mask shorter than C<$masklen> are passed "as is" to the return list. Subnets from C<@list_of_subnets> with a mask longer than C<$masklen> will be counted (actually, the number of IP addresses is counted) towards C<$number>. Called as a method, the array will include C<$me>. WARNING: the list of subnet must be the same type. i.e ipV4 or ipV6 =cut sub coalesce { my $masklen = shift; if (ref $masklen && ref $masklen eq __PACKAGE__ ) { # if called as a method push @_,$masklen; $masklen = shift; } my $number = shift; # Addresses are at @_ return [] unless @_; my %ret = (); my $type = $_[0]->{isv6}; return [] unless defined $type; for my $ip (@_) { return [] unless $ip->{isv6} == $type; $type = $ip->{isv6}; my $n = NetAddr::IP->new($ip->addr . '/' . $masklen)->network; if ($ip->masklen > $masklen) { $ret{$n} += $ip->num + $NetAddr::IP::Lite::Old_nth; } } my @ret = (); # Add to @ret any arguments with netmasks longer than our argument for my $c (sort { $a->masklen <=> $b->masklen } grep { $_->masklen <= $masklen } @_) { next if grep { $_->contains($c) } @ret; push @ret, $c->network; } # Now add to @ret all the subnets with more than $number hits for my $c (map { new NetAddr::IP $_ } grep { $ret{$_} >= $number } keys %ret) { next if grep { $_->contains($c) } @ret; push @ret, $c; } return \@ret; } =pod =item C<-E<gt>first()> Returns a new object representing the first usable IP address within the subnet (ie, the first host address). =item C<-E<gt>last()> Returns a new object representing the last usable IP address within the subnet (ie, one less than the broadcast address). =item C<-E<gt>nth($index)> Returns a new object representing the I<n>-th usable IP address within the subnet (ie, the I<n>-th host address). If no address is available (for example, when the network is too small for C<$index> hosts), C<undef> is returned. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite implements C<-E<gt>nth($index)> and C<-E<gt>num()> exactly as the documentation states. Previous versions behaved slightly differently and not in a consistent manner. See the README file for details. To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); old behavior: NetAddr::IP->new('10/32')->nth(0) == undef NetAddr::IP->new('10/32')->nth(1) == undef NetAddr::IP->new('10/31')->nth(0) == undef NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == undef NetAddr::IP->new('10/30')->nth(1) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(2) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(3) == 10.0.0.3/30 Note that in each case, the broadcast address is represented in the output set and that the 'zero'th index is alway undef except for a point-to-point /31 or /127 network where there are exactly two addresses in the network. new behavior: NetAddr::IP->new('10/32')->nth(0) == 10.0.0.0/32 NetAddr::IP->new('10.1/32'->nth(0) == 10.0.0.1/32 NetAddr::IP->new('10/31')->nth(0) == 10.0.0.0/31 NetAddr::IP->new('10/31')->nth(1) == 10.0.0.1/31 NetAddr::IP->new('10/30')->nth(0) == 10.0.0.1/30 NetAddr::IP->new('10/30')->nth(1) == 10.0.0.2/30 NetAddr::IP->new('10/30')->nth(2) == undef Note that a /32 net always has 1 usable address while a /31 has exactly two usable addresses for point-to-point addressing. The first index (0) returns the address immediately following the network address except for a /31 or /127 when it return the network address. =item C<-E<gt>num()> As of version 4.42 of NetAddr::IP and version 1.27 of NetAddr::IP::Lite a /31 and /127 with return a net B<num> value of 2 instead of 0 (zero) for point-to-point networks. Version 4.00 of NetAddr::IP and version 1.00 of NetAddr::IP::Lite return the number of usable IP addresses within the subnet, not counting the broadcast or network address. Previous versions worked only for ipV4 addresses, returned a maximum span of 2**32 and returned the number of IP addresses not counting the broadcast address. (one greater than the new behavior) To use the old behavior for C<-E<gt>nth($index)> and C<-E<gt>num()>: use NetAddr::IP::Lite qw(:old_nth); WARNING: NetAddr::IP will calculate and return a numeric string for network ranges as large as 2**128. These values are TEXT strings and perl can treat them as integers for numeric calculations. Perl on 32 bit platforms only handles integer numbers up to 2**32 and on 64 bit platforms to 2**64. If you wish to manipulate numeric strings returned by NetAddr::IP that are larger than 2**32 or 2**64, respectively, you must load additional modules such as Math::BigInt, bignum or some similar package to do the integer math. =item C<-E<gt>re()> Returns a Perl regular expression that will match an IP address within the given subnet. Defaults to ipV4 notation. Will return an ipV6 regex if the address in not in ipV4 space. =cut sub re ($) { return &re6 unless isIPv4($_[0]->{addr}); my $self = shift->network; # Insure a "zero" host part my ($addr, $mlen) = ($self->addr, $self->masklen); my @o = split('\.', $addr, 4); my $octet= '(?:[0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])'; my @r = @o; my $d; # for my $i (0 .. $#o) # { # warn "# $self: $r[$i] == $o[$i]\n"; # } if ($mlen != 32) { if ($mlen > 24) { $d = 2 ** (32 - $mlen) - 1; $r[3] = '(?:' . join('|', ($o[3]..$o[3] + $d)) . ')'; } else { $r[3] = $octet; if ($mlen > 16) { $d = 2 ** (24 - $mlen) - 1; $r[2] = '(?:' . join('|', ($o[2]..$o[2] + $d)) . ')'; } else { $r[2] = $octet; if ($mlen > 8) { $d = 2 ** (16 - $mlen) - 1; $r[1] = '(?:' . join('|', ($o[1]..$o[1] + $d)) . ')'; } else { $r[1] = $octet; if ($mlen > 0) { $d = 2 ** (8 - $mlen) - 1; $r[0] = '(?:' . join('|', ($o[0] .. $o[0] + $d)) . ')'; } else { $r[0] = $octet; } } } } } ### no digit before nor after (look-behind, look-ahead) return "(?:(?<![0-9])$r[0]\\.$r[1]\\.$r[2]\\.$r[3](?![0-9]))"; } =item C<-E<gt>re6()> Returns a Perl regular expression that will match an IP address within the given subnet. Always returns an ipV6 regex. =cut sub re6($) { my @net = split('',sprintf("%04X%04X%04X%04X%04X%04X%04X%04X",unpack('n8',$_[0]->network->{addr}))); my @brd = split('',sprintf("%04X%04X%04X%04X%04X%04X%04X%04X",unpack('n8',$_[0]->broadcast->{addr}))); my @dig; foreach(0..$#net) { my $n = $net[$_]; my $b = $brd[$_]; my $m; if ($n.'' eq $b.'') { if ($n =~ /\d/) { push @dig, $n; } else { push @dig, '['.(lc $n).$n.']'; } } else { my $n = $net[$_]; my $b = $brd[$_]; if ($n.'' eq 0 && $b =~ /F/) { push @dig, 'x'; } elsif ($n =~ /\d/ && $b =~ /\d/) { push @dig, '['.$n.'-'.$b.']'; } elsif ($n =~ /[A-F]/ && $b =~ /[A-F]/) { $n .= '-'.$b; push @dig, '['.(lc $n).$n.']'; } elsif ($n =~ /\d/ && $b =~ /[A-F]/) { $m = ($n == 9) ? 9 : $n .'-9'; if ($b =~ /A/) { $m .= 'aA'; } else { $b = 'A-'. $b; $m .= (lc $b). $b; } push @dig, '['.$m.']'; } elsif ($n =~ /[A-F]/ && $b =~ /\d/) { if ($n =~ /A/) { $m = 'aA'; } else { $n .= '-F'; $m = (lc $n).$n; } if ($b == 9) { $m .= 9; } else { $m .= $b .'-9'; } push @dig, '['.$m.']'; } } } my @grp; do { my $grp = join('',splice(@dig,0,4)); if ($grp =~ /^(0+)/) { my $l = length($1); if ($l == 4) { $grp = '0{1,4}'; } else { $grp =~ s/^${1}/0\{0,$l\}/; } } if ($grp =~ /(x+)$/) { my $l = length($1); if ($l == 4) { $grp = '[0-9a-fA-F]{1,4}'; } else { $grp =~ s/x+/\[0\-9a\-fA\-F\]\{$l\}/; } } push @grp, $grp; } while @dig > 0; return '('. join(':',@grp) .')'; } sub mod_version { return $VERSION; &Compact; # suppress warnings about these symbols &Coalesce; &STORABLE_freeze; &STORABLE_thaw; } =pod =back =head1 EXPORT_OK Compact Coalesce Zeros Ones V4mask V4net netlimit =head1 NOTES / BUGS ... FEATURES NetAddr::IP only runs in Pure Perl mode on Windows boxes because I don't have the resources or know how to get the "configure" stuff working in the Windows environment. Volunteers WELCOME to port the "C" portion of this module to Windows. =head1 HISTORY =over 4 See the Changes file =back =head1 AUTHORS Luis E. Muñoz E<lt>luismunoz@cpan.orgE<gt>, Michael Robinton E<lt>michael@bizsystems.comE<gt> =head1 WARRANTY This software comes with the same warranty as Perl itself (ie, none), so by using it you accept any and all the liability. =head1 COPYRIGHT This software is (c) Luis E. Muñoz, 1999 - 2007, and (c) Michael Robinton, 2006 - 2014. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version, or b) the "Artistic License" which comes with this distribution. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor Boston, MA 02110-1301 USA. or visit their web page on the internet at: http://www.gnu.org/copyleft/gpl.html. =head1 SEE ALSO perl(1) L<NetAddr::IP::Lite>, L<NetAddr::IP::Util>, L<NetAddr::IP::InetBase> =cut 1; blib/lib/NetAddr/.exists 0000644 00000000000 15043770025 0011054 0 ustar 00 blib/lib/auto/NetAddr/IP/compactref.al 0000644 00000003254 15043770025 0013473 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1191 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/compactref.al)" sub compactref($) { # my @r = sort { NetAddr::IP::Lite::comp_addr_mask($a,$b) } @{$_[0]} # use overload 'cmp' function # or return []; # return [] unless @r; my @r; { my $unr = []; my $args = $_[0]; if (ref $_[0] eq __PACKAGE__ and ref $_[1] eq 'ARRAY') { # ->compactref(\@list) # $unr = [$_[0], @{$_[1]}]; # keeping structures intact } else { # Compact(@list) or ->compact(@list) or Compact(\@list) # $unr = $args; } return [] unless @$unr; foreach(@$unr) { $_->{addr} = $_->network->{addr}; } @r = sort @$unr; } my $changed; do { $changed = 0; for(my $i=0; $i <= $#r -1;$i++) { if ($r[$i]->contains($r[$i +1])) { splice(@r,$i +1,1); ++$changed; --$i; } elsif ((notcontiguous($r[$i]->{mask}))[1] == (notcontiguous($r[$i +1]->{mask}))[1]) { # masks the same if (hasbits($r[$i]->{addr} ^ $r[$i +1]->{addr})) { # if not the same netblock my $upnet = $r[$i]->copy; $upnet->{mask} = shiftleft($upnet->{mask},1); if ($upnet->contains($r[$i +1])) { # adjacent nets in next net up $r[$i] = $upnet; splice(@r,$i +1,1); ++$changed; --$i; } } else { # identical nets splice(@r,$i +1,1); ++$changed; --$i; } } } } while $changed; return \@r; } # end of NetAddr::IP::compactref 1; blib/lib/auto/NetAddr/IP/hostenum.al 0000644 00000000511 15043770025 0013203 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1145 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/hostenum.al)" sub hostenum ($) { return @{$_[0]->hostenumref}; } # end of NetAddr::IP::hostenum 1; blib/lib/auto/NetAddr/IP/Lite/.exists 0000644 00000000000 15043770025 0013231 0 ustar 00 blib/lib/auto/NetAddr/IP/_splitref.al 0000644 00000001650 15043770025 0013335 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1103 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/_splitref.al)" # input: $rev, # t/f # $naip, # @bits # list of masks for split # sub _splitref { my $rev = shift; my($plan,$masks) = &_splitplan; # bug report 82719 croak("netmask error: overrange or spurious bits") unless defined $plan; # return undef unless $plan; my $net = $_[0]->network(); return [$net] unless $masks; my $addr = $net->{addr}; my $isV6 = $net->{isv6}; my @plan = $rev ? reverse @$plan : @$plan; # print "plan @plan\n"; # create splits my @ret; while ($_ = shift @plan) { my $mask = $masks->{$_}; push @ret, $net->_new($addr,$mask,$isV6); last unless @plan; $addr = (sub128($addr,$mask))[1]; } return \@ret; } # end of NetAddr::IP::_splitref 1; blib/lib/auto/NetAddr/IP/re6.al 0000644 00000003526 15043770025 0012046 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1485 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/re6.al)" sub re6($) { my @net = split('',sprintf("%04X%04X%04X%04X%04X%04X%04X%04X",unpack('n8',$_[0]->network->{addr}))); my @brd = split('',sprintf("%04X%04X%04X%04X%04X%04X%04X%04X",unpack('n8',$_[0]->broadcast->{addr}))); my @dig; foreach(0..$#net) { my $n = $net[$_]; my $b = $brd[$_]; my $m; if ($n.'' eq $b.'') { if ($n =~ /\d/) { push @dig, $n; } else { push @dig, '['.(lc $n).$n.']'; } } else { my $n = $net[$_]; my $b = $brd[$_]; if ($n.'' eq 0 && $b =~ /F/) { push @dig, 'x'; } elsif ($n =~ /\d/ && $b =~ /\d/) { push @dig, '['.$n.'-'.$b.']'; } elsif ($n =~ /[A-F]/ && $b =~ /[A-F]/) { $n .= '-'.$b; push @dig, '['.(lc $n).$n.']'; } elsif ($n =~ /\d/ && $b =~ /[A-F]/) { $m = ($n == 9) ? 9 : $n .'-9'; if ($b =~ /A/) { $m .= 'aA'; } else { $b = 'A-'. $b; $m .= (lc $b). $b; } push @dig, '['.$m.']'; } elsif ($n =~ /[A-F]/ && $b =~ /\d/) { if ($n =~ /A/) { $m = 'aA'; } else { $n .= '-F'; $m = (lc $n).$n; } if ($b == 9) { $m .= 9; } else { $m .= $b .'-9'; } push @dig, '['.$m.']'; } } } my @grp; do { my $grp = join('',splice(@dig,0,4)); if ($grp =~ /^(0+)/) { my $l = length($1); if ($l == 4) { $grp = '0{1,4}'; } else { $grp =~ s/^${1}/0\{0,$l\}/; } } if ($grp =~ /(x+)$/) { my $l = length($1); if ($l == 4) { $grp = '[0-9a-fA-F]{1,4}'; } else { $grp =~ s/x+/\[0\-9a\-fA\-F\]\{$l\}/; } } push @grp, $grp; } while @dig > 0; return '('. join(':',@grp) .')'; } # end of NetAddr::IP::re6 1; blib/lib/auto/NetAddr/IP/coalesce.al 0000644 00000002546 15043770025 0013131 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1274 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/coalesce.al)" sub coalesce { my $masklen = shift; if (ref $masklen && ref $masklen eq __PACKAGE__ ) { # if called as a method push @_,$masklen; $masklen = shift; } my $number = shift; # Addresses are at @_ return [] unless @_; my %ret = (); my $type = $_[0]->{isv6}; return [] unless defined $type; for my $ip (@_) { return [] unless $ip->{isv6} == $type; $type = $ip->{isv6}; my $n = NetAddr::IP->new($ip->addr . '/' . $masklen)->network; if ($ip->masklen > $masklen) { $ret{$n} += $ip->num + $NetAddr::IP::Lite::Old_nth; } } my @ret = (); # Add to @ret any arguments with netmasks longer than our argument for my $c (sort { $a->masklen <=> $b->masklen } grep { $_->masklen <= $masklen } @_) { next if grep { $_->contains($c) } @ret; push @ret, $c->network; } # Now add to @ret all the subnets with more than $number hits for my $c (map { new NetAddr::IP $_ } grep { $ret{$_} >= $number } keys %ret) { next if grep { $_->contains($c) } @ret; push @ret, $c; } return \@ret; } # end of NetAddr::IP::coalesce 1; blib/lib/auto/NetAddr/IP/mod_version.al 0000644 00000000653 15043770025 0013674 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1564 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/mod_version.al)" sub mod_version { return $VERSION; &Compact; # suppress warnings about these symbols &Coalesce; &STORABLE_freeze; &STORABLE_thaw; } 1; 1; # end of NetAddr::IP::mod_version blib/lib/auto/NetAddr/IP/_splitplan.al 0000644 00000005642 15043770025 0013520 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1015 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/_splitplan.al)" # input: $naip, # @bits, list of masks for splits # # returns: empty array request will not fit in submitted net # (\@bits,undef) if there is just one plan item i.e. return original net # (\@bits,\%masks) for a real plan # sub _splitplan { my($ip,@bits) = @_; my $addr = $ip->addr(); my $isV6 = $ip->{isv6}; unless (@bits) { $bits[0] = $isV6 ? 128 : 32; } my $basem = $ip->masklen(); my(%nets,$dif); my $denom = 0; my($x,$maddr); foreach(@bits) { if (ref $_) { # is a NetAddr::IP $x = $_->{isv6} ? $_->{addr} : $_->{addr} | V4mask; ($x,$maddr) = notcontiguous($x); return () if $x; # spurious bits $_ = $isV6 ? $maddr : $maddr - 96; } elsif ( $_ =~ /^d+$/ ) { # is a negative number of the form -nnnn ; } elsif ($_ = NetAddr::IP->new($addr,$_,$isV6)) { # will be undefined if bad mask and will fall into oops! $_ = $_->masklen(); } else { return (); # oops! } $dif = $_ - $basem; # for normalization return () if $dif < 0; # overange nets not allowed return (\@bits,undef) unless ($dif || $#bits); # return if original net = mask alone $denom = $dif if $dif > $denom; next if exists $nets{$_}; $nets{$_} = $_ - $basem; # for normalization } # $denom is the normalization denominator, since these are all exponents # normalization can use add/subtract to accomplish normalization # # keys of %nets are the masks used by this split # values of %nets are the normalized weighting for # calculating when the split is "full" or complete # %masks values contain the actual masks for each split subnet # @bits contains the masks in the order the user actually wants them # my %masks; # calculate masks my $maskbase = $isV6 ? 128 : 32; foreach( keys %nets ) { $nets{$_} = 2 ** ($denom - $nets{$_}); $masks{$_} = shiftleft(Ones, $maskbase - $_); } my @plan; my $idx = 0; $denom = 2 ** $denom; PLAN: while ($denom > 0) { # make a net plan my $nexmask = ($idx < $#bits) ? $bits[$idx] : $bits[$#bits]; ++$idx; unless (($denom -= $nets{$nexmask}) < 0) { return () if (push @plan, $nexmask) > $_netlimit; next; } # a fractional net is needed that is not in the mask list or the replicant $denom += $nets{$nexmask}; # restore mistake TRY: foreach (sort { $a <=> $b } keys %nets) { next TRY if $nexmask > $_; do { next TRY if $denom - $nets{$_} < 0; return () if (push @plan, $_) > $_netlimit; $denom -= $nets{$_}; } while $denom; } die 'ERROR: miscalculated weights' if $denom; } return () if $idx < @bits; # overrange original subnet request return (\@plan,\%masks); } # end of NetAddr::IP::_splitplan 1; blib/lib/auto/NetAddr/IP/wildcard.al 0000644 00000000745 15043770025 0013143 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 767 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/wildcard.al)" sub wildcard($) { my $copy = $_[0]->copy; $copy->{addr} = ~ $copy->{mask}; $copy->{addr} &= V4net unless $copy->{isv6}; if (wantarray) { return ($_[0]->addr, $copy->addr); } return $copy->addr; } # end of NetAddr::IP::wildcard 1; blib/lib/auto/NetAddr/IP/InetBase/inet_any2n.al 0000644 00000000741 15043770025 0015106 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 485 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/inet_any2n.al)" sub inet_any2n($) { my($addr) = @_; $addr = '' unless $addr; $addr = '::' . $addr unless $addr =~ /:/; return ipv6_aton($addr); } # end of NetAddr::IP::InetBase::inet_any2n 1; blib/lib/auto/NetAddr/IP/InetBase/inet_ntoa.al 0000644 00000001227 15043770025 0015020 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 378 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/inet_ntoa.al)" sub inet_ntoa { die 'Bad arg length for '. __PACKAGE__ ."::inet_ntoa, length is ". length($_[0]) ." should be 4" unless length($_[0]) == 4; my @hex = (unpack("n2",$_[0])); $hex[3] = $hex[1] & 0xff; $hex[2] = $hex[1] >> 8; $hex[1] = $hex[0] & 0xff; $hex[0] >>= 8; return sprintf("%d.%d.%d.%d",@hex); } # end of NetAddr::IP::InetBase::inet_ntoa 1; blib/lib/auto/NetAddr/IP/InetBase/_inet_pton.al 0000644 00000001102 15043770025 0015166 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 551 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/_inet_pton.al)" sub _inet_pton { my($af,$ip) = @_; die 'Bad address family for '. __PACKAGE__ ."::inet_pton, got $af" unless $af == AF_INET6() || $af == AF_INET(); if ($af == AF_INET()) { inet_aton($ip); } else { ipv6_aton($ip); } } # end of NetAddr::IP::InetBase::_inet_pton 1; blib/lib/auto/NetAddr/IP/InetBase/inet_n2dx.al 0000644 00000000763 15043770025 0014736 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 507 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/inet_n2dx.al)" sub inet_n2dx($) { my($nadr) = @_; if (isAnyIPv4($nadr)) { local $1; ipv6_n2d($nadr) =~ /([^:]+)$/; return $1; } return ipv6_n2x($nadr); } # end of NetAddr::IP::InetBase::inet_n2dx 1; blib/lib/auto/NetAddr/IP/InetBase/_inet_ntop.al 0000644 00000001224 15043770025 0015173 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 575 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/_inet_ntop.al)" sub _inet_ntop { my($af,$naddr) = @_; die 'Unsupported address family for '. __PACKAGE__ ."::inet_ntop, af is $af" unless $af == AF_INET6() || $af == AF_INET(); if ($af == AF_INET()) { inet_ntoa($naddr); } else { return ($case) ? lc packzeros(ipv6_n2x($naddr)) : _packzeros(ipv6_n2x($naddr)); } } # end of NetAddr::IP::InetBase::_inet_ntop 1; blib/lib/auto/NetAddr/IP/InetBase/_packzeros.al 0000644 00000003506 15043770025 0015202 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 596 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/_packzeros.al)" sub _packzeros { my $x6 = shift; if ($x6 =~ /\:\:/) { # already contains :: # then re-optimize $x6 = ($x6 =~ /\:\d+\.\d+\.\d+\.\d+/) # ipv4 notation ? ? ipv6_n2d(ipv6_aton($x6)) : ipv6_n2x(ipv6_aton($x6)); } $x6 = ':'. lc $x6; # prefix : & always lower case my $d = ''; if ($x6 =~ /(.+\:)(\d+\.\d+\.\d+\.\d+)/) { # if contains dot quad $x6 = $1; # save hex piece $d = $2; # and dot quad piece } $x6 .= ':'; # suffix : $x6 =~ s/\:0+/\:0/g; # compress strings of 0's to single '0' $x6 =~ s/\:0([1-9a-f]+)/\:$1/g; # eliminate leading 0's in hex strings my @x = $x6 =~ /(?:\:0)*/g; # split only strings of :0:0..." my $m = 0; my $i = 0; for (0..$#x) { # find next longest pattern :0:0:0... my $len = length($x[$_]); next unless $len > $m; $m = $len; $i = $_; # index to first longest pattern } if ($m > 2) { # there was a string of 2 or more zeros $x6 =~ s/$x[$i]/\:/; # replace first longest :0:0:0... with "::" unless ($i) { # if it is the first match, $i = 0 $x6 = substr($x6,0,-1); # keep the leading ::, remove trailing ':' } else { $x6 = substr($x6,1,-1); # else remove leading & trailing ':' } $x6 .= ':' unless $x6 =~ /\:\:/; # restore ':' if match and we can't see it, implies trailing '::' } else { # there was no match $x6 = substr($x6,1,-1); # remove leading & trailing ':' } $x6 .= $d; # append digits if any return $case ? uc $x6 : $x6; } 1; 1; # end of NetAddr::IP::InetBase::_packzeros blib/lib/auto/NetAddr/IP/InetBase/inet_n2ad.al 0000644 00000000761 15043770025 0014705 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 531 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/inet_n2ad.al)" sub inet_n2ad($) { my($nadr) = @_; my $addr = ipv6_n2d($nadr); return $addr unless isAnyIPv4($nadr); local $1; $addr =~ /([^:]+)$/; return $1; } # end of NetAddr::IP::InetBase::inet_n2ad 1; blib/lib/auto/NetAddr/IP/InetBase/ipv6_ntoa.al 0000644 00000000614 15043770025 0014744 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 448 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/ipv6_ntoa.al)" sub ipv6_ntoa { return inet_ntop(AF_INET6(),$_[0]); } # end of NetAddr::IP::InetBase::ipv6_ntoa 1; blib/lib/auto/NetAddr/IP/InetBase/ipv6_aton.al 0000644 00000002462 15043770025 0014747 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/InetBase.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::InetBase; #line 406 "../../blib/lib/NetAddr/IP/InetBase.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/InetBase/ipv6_aton.al)" sub ipv6_aton { my($ipv6) = @_; return undef unless $ipv6; local($1,$2,$3,$4,$5); if ($ipv6 =~ /^(.*:)(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) { # mixed hex, dot-quad return undef if $2 > 255 || $3 > 255 || $4 > 255 || $5 > 255; $ipv6 = sprintf("%s%X%02X:%X%02X",$1,$2,$3,$4,$5); # convert to pure hex } my $c; return undef if $ipv6 =~ /[^:0-9a-fA-F]/ || # non-hex character (($c = $ipv6) =~ s/::/x/ && $c =~ /(?:x|:):/) || # double :: ::? $ipv6 =~ /[0-9a-fA-F]{5,}/; # more than 4 digits $c = $ipv6 =~ tr/:/:/; # count the colons return undef if $c < 7 && $ipv6 !~ /::/; if ($c > 7) { # strip leading or trailing :: return undef unless $ipv6 =~ s/^::/:/ || $ipv6 =~ s/::$/:/; return undef if --$c > 7; } while ($c++ < 7) { # expand compressed fields $ipv6 =~ s/::/:::/; } $ipv6 .= 0 if $ipv6 =~ /:$/; my @hex = split(/:/,$ipv6); foreach(0..$#hex) { $hex[$_] = hex($hex[$_] || 0); } pack("n8",@hex); } # end of NetAddr::IP::InetBase::ipv6_aton 1; blib/lib/auto/NetAddr/IP/InetBase/autosplit.ix 0000644 00000000452 15043770025 0015107 0 ustar 00 # Index created by AutoSplit for ../../blib/lib/NetAddr/IP/InetBase.pm # (file acts as timestamp) package NetAddr::IP::InetBase; sub inet_ntoa ; sub ipv6_aton ; sub ipv6_ntoa ; sub inet_any2n ($); sub inet_n2dx ($); sub inet_n2ad ($); sub _inet_pton ; sub _inet_ntop ; sub _packzeros ; 1; blib/lib/auto/NetAddr/IP/UtilPP/_bcdcheck.al 0000644 00000001620 15043770025 0014405 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 625 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_bcdcheck.al)" #=item * $bcdpacked = simple_pack($bcdtext); # #Convert a numeric string into a packed bcd string, left fill with zeros #This function is for testing only. # # input: string of decimal digits # returns: string of packed decimal digits # #Similar to pack("H*", $bcdtext); # sub _bcdcheck { my($bcd) = @_;; my $sub = (caller(1))[3]; my $len = length($bcd); die "Bad bcd number length $_ ".__PACKAGE__.":simple_pack, should be 1 to 40 digits" if $len > 40 || $len < 1; die "Bad character in decimal input string '$1' for ".__PACKAGE__.":simple_pack" if $bcd =~ /(\D)/; } # end of NetAddr::IP::UtilPP::_bcdcheck 1; blib/lib/auto/NetAddr/IP/UtilPP/_sa128.al 0000644 00000001620 15043770025 0013515 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 207 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_sa128.al)" sub _sa128 { my($uap,$ubp,$carry) = @_; if (($$uap[3] += $$ubp[3] + $carry) > 0xffffffff) { $$uap[3] -= 4294967296; # 0x1_00000000 $carry = 1; } else { $carry = 0; } if (($$uap[2] += $$ubp[2] + $carry) > 0xffffffff) { $$uap[2] -= 4294967296; $carry = 1; } else { $carry = 0; } if (($$uap[1] += $$ubp[1] + $carry) > 0xffffffff) { $$uap[1] -= 4294967296; $carry = 1; } else { $carry = 0; } if (($$uap[0] += $$ubp[0] + $carry) > 0xffffffff) { $$uap[0] -= 4294967296; $carry = 1; } else { $carry = 0; } $carry; } # end of NetAddr::IP::UtilPP::_sa128 1; blib/lib/auto/NetAddr/IP/UtilPP/mask4to6.al 0000644 00000001037 15043770025 0014172 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 381 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/mask4to6.al)" sub mask4to6 { _deadlen(length($_[0]),32) if length($_[0]) != 4; # return pack('L3H8',0xffffffff,0xffffffff,0xffffffff,unpack('H8',$_[0])); return pack('L3a4',0xffffffff,0xffffffff,0xffffffff,$_[0]); } # end of NetAddr::IP::UtilPP::mask4to6 1; blib/lib/auto/NetAddr/IP/UtilPP/maskanyto6.al 0000644 00000001146 15043770025 0014617 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 418 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/maskanyto6.al)" sub maskanyto6 { my $naddr = shift; my $len = length($naddr); return $naddr if $len == 16; # return pack('L3H8',0xffffffff,0xffffffff,0xffffffff,unpack('H8',$naddr)) return pack('L3a4',0xffffffff,0xffffffff,0xffffffff,$naddr) if $len == 4; _deadlen($len,'32 or 128'); } # end of NetAddr::IP::UtilPP::maskanyto6 1; blib/lib/auto/NetAddr/IP/UtilPP/_128x2.al 0000644 00000001746 15043770025 0013454 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 145 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_128x2.al)" #=item * $rv = isIPv4($bits128); # #This function returns true if there are no on bits present in the IPv6 #portion of the 128 bit string and false otherwise. # #=cut # #sub xisIPv4 { # _deadlen(length($_[0])) # if length($_[0]) != 16; # return 0 if vec($_[0],0,32); # return 0 if vec($_[0],1,32); # return 0 if vec($_[0],2,32); # return 1; #} # multiply x 2 # sub _128x2 { my $inp = shift; $$inp[0] = ($$inp[0] << 1 & 0xffffffff) + (($$inp[1] & 0x80000000) ? 1:0); $$inp[1] = ($$inp[1] << 1 & 0xffffffff) + (($$inp[2] & 0x80000000) ? 1:0); $$inp[2] = ($$inp[2] << 1 & 0xffffffff) + (($$inp[3] & 0x80000000) ? 1:0); $$inp[3] = $$inp[3] << 1 & 0xffffffff; } # end of NetAddr::IP::UtilPP::_128x2 1; blib/lib/auto/NetAddr/IP/UtilPP/slowadd128.al 0000644 00000001014 15043770025 0014405 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 198 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/slowadd128.al)" sub slowadd128 { my @ua = unpack('N4',$_[0]); my @ub = unpack('N4',$_[1]); my $carry = _sa128(\@ua,\@ub,$_[2]); return ($carry,pack('N4',@ua)) if wantarray; return $carry; } # end of NetAddr::IP::UtilPP::slowadd128 1; blib/lib/auto/NetAddr/IP/UtilPP/_128x10.al 0000644 00000001015 15043770025 0013520 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 172 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_128x10.al)" # multiply x 10 # sub _128x10 { my($a128p) = @_; _128x2($a128p); # x2 my @x2 = @$a128p; # save the x2 value _128x2($a128p); _128x2($a128p); # x8 _sa128($a128p,\@x2,0); # add for x10 } # end of NetAddr::IP::UtilPP::_128x10 1; blib/lib/auto/NetAddr/IP/UtilPP/notcontiguous.al 0000644 00000001464 15043770025 0015446 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 333 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/notcontiguous.al)" sub notcontiguous { _deadlen(length($_[0])) if length($_[0]) != 16; my @ua = unpack('N4', ~$_[0]); my $count; for ($count = 128;$count > 0; $count--) { last unless $ua[3] & 1; $ua[3] >>= 1; $ua[3] |= 0x80000000 if $ua[2] & 1; $ua[2] >>= 1; $ua[2] |= 0x80000000 if $ua[1] & 1; $ua[1] >>= 1; $ua[1] |= 0x80000000 if $ua[0] & 1; $ua[0] >>= 1; } my $spurious = $ua[0] | $ua[1] | $ua[2] | $ua[3]; return $spurious unless wantarray; return ($spurious,$count); } # end of NetAddr::IP::UtilPP::notcontiguous 1; blib/lib/auto/NetAddr/IP/UtilPP/ipv4to6.al 0000644 00000000746 15043770025 0014043 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 363 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/ipv4to6.al)" sub ipv4to6 { _deadlen(length($_[0]),32) if length($_[0]) != 4; # return pack('L3H8',0,0,0,unpack('H8',$_[0])); return pack('L3a4',0,0,0,$_[0]); } # end of NetAddr::IP::UtilPP::ipv4to6 1; blib/lib/auto/NetAddr/IP/UtilPP/addconst.al 0000644 00000001312 15043770025 0014315 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 250 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/addconst.al)" sub addconst { my($a128,$const) = @_; _deadlen(length($a128)) if length($a128) != 16; unless ($const) { return (wantarray) ? ($const,$a128) : $const; } my $sign = ($const < 0) ? 0xffffffff : 0; my $b128 = pack('N4',$sign,$sign,$sign,$const); @_ = ($a128,$b128,0); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } # end of NetAddr::IP::UtilPP::addconst 1; blib/lib/auto/NetAddr/IP/UtilPP/_deadlen.al 0000644 00000000775 15043770025 0014265 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 117 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_deadlen.al)" sub _deadlen { my($len,$should) = @_; $len *= 8; $should = 128 unless $should; my $sub = (caller(1))[3]; die "Bad argument length for $sub, is $len, should be $should"; } # end of NetAddr::IP::UtilPP::_deadlen 1; blib/lib/auto/NetAddr/IP/UtilPP/comp128.al 0000644 00000001653 15043770025 0013717 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 484 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/comp128.al)" #=item * $onescomp = comp128($ipv6addr); # #This function is for testing, it is more efficient to use perl " ~ " #on the bit string directly. This interface to the B<C> routine is published for #module testing purposes because it is used internally in the B<sub128> routine. The #function is very fast, but calling if from perl directly is very slow. It is almost #33% faster to use B<sub128> than to do a 1's comp with perl and then call #B<add128>. In the PurePerl version, it is a call to # # sub {return ~ $_[0]}; # #=cut sub comp128 { _deadlen(length($_[0])) if length($_[0]) != 16; return ~ $_[0]; } # end of NetAddr::IP::UtilPP::comp128 1; blib/lib/auto/NetAddr/IP/UtilPP/ipv6to4.al 0000644 00000000735 15043770025 0014041 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 438 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/ipv6to4.al)" sub ipv6to4 { my $naddr = shift; _deadlen(length($naddr)) if length($naddr) != 16; @_ = unpack('L3H8',$naddr); return pack('H8',@{_}[3..10]); } # end of NetAddr::IP::UtilPP::ipv6to4 1; blib/lib/auto/NetAddr/IP/UtilPP/simple_pack.al 0000644 00000000727 15043770025 0015016 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 645 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/simple_pack.al)" sub simple_pack { &_bcdcheck; my($bcd) = @_; while (length($bcd) < 40) { $bcd = '0'. $bcd; } return pack('H40',$bcd); } 1; 1; # end of NetAddr::IP::UtilPP::simple_pack blib/lib/auto/NetAddr/IP/UtilPP/_bin2bcdn.al 0000644 00000002206 15043770025 0014341 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 523 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_bin2bcdn.al)" sub _bin2bcdn { my($b128) = @_; my @binary = unpack('N4',$b128); my @nbcd = (0,0,0,0,0); # 5 - 32 bit registers my ($add3, $msk8, $bcd8, $carry, $tmp); my $j = 0; my $k = -1; my $binmsk = 0; foreach(0..127) { unless ($binmsk) { $binmsk = 0x80000000; $k++; } $carry = $binary[$k] & $binmsk; $binmsk >>= 1; next unless $carry || $j; # skip leading zeros foreach(4,3,2,1,0) { $bcd8 = $nbcd[$_]; $add3 = 3; $msk8 = 8; $j = 0; while ($j < 8) { $tmp = $bcd8 + $add3; if ($tmp & $msk8) { $bcd8 = $tmp; } $add3 <<= 4; $msk8 <<= 4; $j++; } $tmp = $bcd8 & 0x80000000; # propagate carry $bcd8 <<= 1; # x2 if ($carry) { $bcd8 += 1; } $nbcd[$_] = $bcd8; $carry = $tmp; } } pack('N5',@nbcd); } # end of NetAddr::IP::UtilPP::_bin2bcdn 1; blib/lib/auto/NetAddr/IP/UtilPP/shiftleft.al 0000644 00000001302 15043770025 0014505 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 183 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/shiftleft.al)" sub shiftleft { _deadlen(length($_[0])) if length($_[0]) != 16; my($bits,$shifts) = @_; return $bits unless $shifts; die "Bad arg value for ".__PACKAGE__.":shiftleft, length should be 0 thru 128" if $shifts < 0 || $shifts > 128; my @uint32t = unpack('N4',$bits); do { $bits = _128x2(\@uint32t); $shifts-- } while $shifts > 0; pack('N4',@uint32t); } # end of NetAddr::IP::UtilPP::shiftleft 1; blib/lib/auto/NetAddr/IP/UtilPP/_bcd2bin.al 0000644 00000001412 15043770025 0014161 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 605 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_bcd2bin.al)" sub _bcd2bin { my @bcd = split('',$_[0]); my @hbits = (0,0,0,0); my @digit = (0,0,0,0); my $found = 0; foreach(@bcd) { my $bcd = $_ & 0xf; # just the nibble unless ($found) { next unless $bcd; # skip leading zeros $found = 1; $hbits[3] = $bcd; # set the first digit, no x10 necessary next; } _128x10(\@hbits); $digit[3] = $bcd; _sa128(\@hbits,\@digit,0); } return pack('N4',@hbits); } # end of NetAddr::IP::UtilPP::_bcd2bin 1; blib/lib/auto/NetAddr/IP/UtilPP/ipanyto6.al 0000644 00000001052 15043770025 0014270 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 398 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/ipanyto6.al)" sub ipanyto6 { my $naddr = shift; my $len = length($naddr); return $naddr if $len == 16; # return pack('L3H8',0,0,0,unpack('H8',$naddr)) return pack('L3a4',0,0,0,$naddr) if $len == 4; _deadlen($len,'32 or 128'); } # end of NetAddr::IP::UtilPP::ipanyto6 1; blib/lib/auto/NetAddr/IP/UtilPP/hasbits.al 0000644 00000001021 15043770025 0014150 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 125 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/hasbits.al)" sub hasbits { _deadlen(length($_[0])) if length($_[0]) != 16; return 1 if vec($_[0],0,32); return 1 if vec($_[0],1,32); return 1 if vec($_[0],2,32); return 1 if vec($_[0],3,32); return 0; } # end of NetAddr::IP::UtilPP::hasbits 1; blib/lib/auto/NetAddr/IP/UtilPP/bin2bcdn.al 0000644 00000001375 15043770025 0014210 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 503 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/bin2bcdn.al)" #=item * $bcdpacked = bin2bcdn($bits128); # #Convert a 128 bit binary string into binary coded decimal digits. #This function is for testing only. # # input: 128 bit string variable # returns: string of packed decimal digits # # i.e. text = unpack("H*", $bcd); # #=cut sub bin2bcdn { _deadlen(length($_[0])) if length($_[0]) != 16; # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_bin2bcdn; &_bin2bcdn; } # end of NetAddr::IP::UtilPP::bin2bcdn 1; blib/lib/auto/NetAddr/IP/UtilPP/add128.al 0000644 00000001116 15043770025 0013503 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 276 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/add128.al)" sub add128 { my($a128,$b128) = @_; _deadlen(length($a128)) if length($a128) != 16; _deadlen(length($b128)) if length($b128) != 16; @_ = ($a128,$b128,0); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } # end of NetAddr::IP::UtilPP::add128 1; blib/lib/auto/NetAddr/IP/UtilPP/bcdn2bin.al 0000644 00000001564 15043770025 0014210 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 586 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/bcdn2bin.al)" #=item * $bits128 = bcdn2bin($bcdpacked,$ndigits); # # Convert a packed bcd string into a 128 bit string variable # # input: packed bcd string # number of digits in string # returns: 128 bit string variable # sub bcdn2bin { my($bcd,$dc) = @_; $dc = 0 unless $dc; die "Bad argument length for ".__PACKAGE__.":bcdn2txt, is ".(2 * length($bcd)).", should be 1 to 40 digits" if length($bcd) > 20; die "Bad digit count for ".__PACKAGE__.":bcdn2bin, is $dc, should be 1 to 40 digits" if $dc < 1 || $dc > 40; return _bcd2bin(unpack("H$dc",$bcd)); } # end of NetAddr::IP::UtilPP::bcdn2bin 1; blib/lib/auto/NetAddr/IP/UtilPP/bin2bcd.al 0000644 00000000670 15043770025 0014027 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 455 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/bin2bcd.al)" sub bin2bcd { _deadlen(length($_[0])) if length($_[0]) != 16; unpack("H40",&_bin2bcdn) =~ /^0*(.+)/; $1; } # end of NetAddr::IP::UtilPP::bin2bcd 1; blib/lib/auto/NetAddr/IP/UtilPP/autosplit.ix 0000644 00000001043 15043770025 0014567 0 ustar 00 # Index created by AutoSplit for ../../blib/lib/NetAddr/IP/UtilPP.pm # (file acts as timestamp) package NetAddr::IP::UtilPP; sub _deadlen ; sub hasbits ; sub _128x2 ; sub _128x10 ; sub shiftleft ; sub slowadd128 ; sub _sa128 ; sub addconst ; sub add128 ; sub sub128 ; sub notcontiguous ; sub ipv4to6 ; sub mask4to6 ; sub ipanyto6 ; sub maskanyto6 ; sub ipv6to4 ; sub bin2bcd ; sub bcd2bin ; sub comp128 ; sub bin2bcdn ; sub _bin2bcdn ; sub bcdn2txt ; sub bcdn2bin ; sub _bcd2bin ; sub _bcdcheck ; sub simple_pack ; 1; blib/lib/auto/NetAddr/IP/UtilPP/sub128.al 0000644 00000001137 15043770025 0013547 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 306 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/sub128.al)" sub sub128 { _deadlen(length($_[0])) if length($_[0]) != 16; _deadlen(length($_[1])) if length($_[1]) != 16; my $a128 = $_[0]; my $b128 = ~$_[1]; @_ = ($a128,$b128,1); # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &slowadd128; slowadd128(@_); } # end of NetAddr::IP::UtilPP::sub128 1; blib/lib/auto/NetAddr/IP/UtilPP/bcdn2txt.al 0000644 00000001503 15043770025 0014250 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 566 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/bcdn2txt.al)" #=item * $bcdtext = bcdn2txt($bcdpacked); # #Convert a packed bcd string into text digits, suppress the leading zeros. #This function is for testing only. # # input: string of packed decimal digits # consisting of exactly 40 digits # returns: hexdecimal digits # #Similar to unpack("H*", $bcd); # #=cut sub bcdn2txt { die "Bad argument length for ".__PACKAGE__.":bcdn2txt, is ".(2 * length($_[0])).", should be exactly 40 digits" if length($_[0]) != 20; (unpack('H40',$_[0])) =~ /^0*(.+)/; $1; } # end of NetAddr::IP::UtilPP::bcdn2txt 1; blib/lib/auto/NetAddr/IP/UtilPP/bcd2bin.al 0000644 00000000702 15043770025 0014023 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 471 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/bcd2bin.al)" sub bcd2bin { &_bcdcheck; # perl 5.8.4 fails with this operation. see perl bug [ 23429] # goto &_bcd2bin; &_bcd2bin; } # end of NetAddr::IP::UtilPP::bcd2bin 1; blib/lib/auto/NetAddr/IP/_compact_v6.al 0000644 00000002012 15043770025 0013537 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 789 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/_compact_v6.al)" sub _compact_v6 ($) { my $addr = shift; my @o = split /:/, $addr; return $addr unless @o and grep { $_ =~ m/^0+$/ } @o; my @candidates = (); my $start = undef; for my $i (0 .. $#o) { if (defined $start) { if ($o[$i] !~ m/^0+$/) { push @candidates, [ $start, $i - $start ]; $start = undef; } } else { $start = $i if $o[$i] =~ m/^0+$/; } } push @candidates, [$start, 8 - $start] if defined $start; my $l = (sort { $b->[1] <=> $a->[1] } @candidates)[0]; return $addr unless defined $l; $addr = $l->[0] == 0 ? '' : join ':', @o[0 .. $l->[0] - 1]; $addr .= '::'; $addr .= join ':', @o[$l->[0] + $l->[1] .. $#o]; $addr =~ s/(^|:)0{1,3}/$1/g; return $addr; } # end of NetAddr::IP::_compact_v6 1; blib/lib/auto/NetAddr/IP/nprefix.al 0000644 00000001133 15043770025 0013015 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 724 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/nprefix.al)" # only applicable to ipV4 sub nprefix($) { return undef if $_[0]->{isv6}; my $mask = (notcontiguous($_[0]->{mask}))[1]; return $_[0]->addr if $mask == 128; $mask -= 96; my @faddr = split (/\./, $_[0]->first->addr); my @laddr = split (/\./, $_[0]->last->addr); return do_prefix $mask, \@faddr, \@laddr; } # end of NetAddr::IP::nprefix 1; blib/lib/auto/NetAddr/IP/.exists 0000644 00000000000 15043770025 0012334 0 ustar 00 blib/lib/auto/NetAddr/IP/re.al 0000644 00000002636 15043770025 0011761 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 1421 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/re.al)" sub re ($) { return &re6 unless isIPv4($_[0]->{addr}); my $self = shift->network; # Insure a "zero" host part my ($addr, $mlen) = ($self->addr, $self->masklen); my @o = split('\.', $addr, 4); my $octet= '(?:[0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])'; my @r = @o; my $d; # for my $i (0 .. $#o) # { # warn "# $self: $r[$i] == $o[$i]\n"; # } if ($mlen != 32) { if ($mlen > 24) { $d = 2 ** (32 - $mlen) - 1; $r[3] = '(?:' . join('|', ($o[3]..$o[3] + $d)) . ')'; } else { $r[3] = $octet; if ($mlen > 16) { $d = 2 ** (24 - $mlen) - 1; $r[2] = '(?:' . join('|', ($o[2]..$o[2] + $d)) . ')'; } else { $r[2] = $octet; if ($mlen > 8) { $d = 2 ** (16 - $mlen) - 1; $r[1] = '(?:' . join('|', ($o[1]..$o[1] + $d)) . ')'; } else { $r[1] = $octet; if ($mlen > 0) { $d = 2 ** (8 - $mlen) - 1; $r[0] = '(?:' . join('|', ($o[0] .. $o[0] + $d)) . ')'; } else { $r[0] = $octet; } } } } } ### no digit before nor after (look-behind, look-ahead) return "(?:(?<![0-9])$r[0]\\.$r[1]\\.$r[2]\\.$r[3](?![0-9]))"; } # end of NetAddr::IP::re 1; blib/lib/auto/NetAddr/IP/canon.al 0000644 00000000552 15043770025 0012444 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 879 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/canon.al)" sub canon($) { my $addr = $_[0]->addr; return $_[0]->{isv6} ? lc _compV6($addr) : $addr; } # end of NetAddr::IP::canon 1; blib/lib/auto/NetAddr/IP/prefix.al 0000644 00000001135 15043770025 0012641 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 707 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/prefix.al)" # only applicable to ipV4 sub prefix($) { return undef if $_[0]->{isv6}; my $mask = (notcontiguous($_[0]->{mask}))[1]; return $_[0]->addr if $mask == 128; $mask -= 96; my @faddr = split (/\./, $_[0]->first->addr); my @laddr = split (/\./, $_[0]->broadcast->addr); return do_prefix $mask, \@faddr, \@laddr; } # end of NetAddr::IP::prefix 1; blib/lib/auto/NetAddr/IP/Util/.exists 0000644 00000000000 15043770025 0013251 0 ustar 00 blib/lib/auto/NetAddr/IP/Util/autosplit.ix 0000644 00000000144 15043770025 0014330 0 ustar 00 # Index created by AutoSplit for ../../blib/lib/NetAddr/IP/Util.pm # (file acts as timestamp) 1; blib/lib/auto/NetAddr/IP/short.al 0000644 00000000764 15043770025 0012512 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 860 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/short.al)" sub short($) { my $addr = $_[0]->addr; if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { my @o = split(/\./, $addr, 4); splice(@o, 1, 2) if $o[1] == 0 and $o[2] == 0; return join '.', @o; } return _compV6($addr); } # end of NetAddr::IP::short 1; blib/lib/auto/NetAddr/IP/autosplit.ix 0000644 00000000604 15043770025 0013414 0 ustar 00 # Index created by AutoSplit for blib/lib/NetAddr/IP.pm # (file acts as timestamp) package NetAddr::IP; sub do_prefix ($$$); sub prefix ($); sub nprefix ($); sub wildcard ($); sub _compact_v6 ($); sub _compV6 ($); sub short ($); sub canon ($); sub _splitplan ; sub _splitref ; sub hostenum ($); sub compactref ($); sub coalesce ; sub re ($); sub re6 ($); sub mod_version ; 1; blib/lib/auto/NetAddr/IP/do_prefix.al 0000644 00000001573 15043770025 0013331 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 493 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/do_prefix.al)" sub do_prefix ($$$) { my $mask = shift; my $faddr = shift; my $laddr = shift; if ($mask > 24) { return "$faddr->[0].$faddr->[1].$faddr->[2].$faddr->[3]-$laddr->[3]"; } elsif ($mask == 24) { return "$faddr->[0].$faddr->[1].$faddr->[2]."; } elsif ($mask > 16) { return "$faddr->[0].$faddr->[1].$faddr->[2]-$laddr->[2]."; } elsif ($mask == 16) { return "$faddr->[0].$faddr->[1]."; } elsif ($mask > 8) { return "$faddr->[0].$faddr->[1]-$laddr->[1]."; } elsif ($mask == 8) { return "$faddr->[0]."; } else { return "$faddr->[0]-$laddr->[0]"; } } # end of NetAddr::IP::do_prefix 1; blib/lib/auto/NetAddr/IP/_compV6.al 0000644 00000002002 15043770025 0012647 0 ustar 00 # NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 829 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/_compV6.al)" #sub _old_compV6 { # my @addr = split(':',shift); # my $found = 0; # my $v; # foreach(0..$#addr) { # ($v = $addr[$_]) =~ s/^0+//; # $addr[$_] = $v || 0; # } # @_ = reverse(1..$#addr); # foreach(@_) { # if ($addr[$_] || $addr[$_ -1]) { # last if $found; # next; # } # $addr[$_] = $addr[$_ -1] = ''; # $found = '1'; # } # (my $rv = join(':',@addr)) =~ s/:+:/::/; # return $rv; #} # thanks to Rob Riepel <riepel@networking.Stanford.EDU> # for this faster and more compact solution 11-17-08 sub _compV6 ($) { my $ip = shift; return $ip unless my @candidates = $ip =~ /((?:^|:)0(?::0)+(?::|$))/g; my $longest = (sort { length($b) <=> length($a) } @candidates)[0]; $ip =~ s/$longest/::/; return $ip; } # end of NetAddr::IP::_compV6 1; MYMETA.yml 0000644 00000001072 15043770025 0006266 0 ustar 00 --- abstract: 'Manages IPv4 and IPv6 addresses and subnets' author: - 'Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>' build_requires: ExtUtils::MakeMaker: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 generated_by: 'ExtUtils::MakeMaker version 6.42, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: NetAddr-IP requires: Test::More: '0' version: '4.079' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' About-NetAddr-IP.txt 0000644 00000004403 15043770025 0010210 0 ustar 00 About NetAddr::IP At some point a user wrote and asked the difference between NetAddr::IP and NetAddr::IP::Lite NetAddr::IP::Lite contains only "basic" IP address operations to create IP objects, print or return their characteristics, do basic IP arithmetic, etc... a lot of which is implemented in XS in its sub-classes, whereas NetAddr::IP contains complex operations on nets, net ranges , etc... all implemented in perl. If you don't use those, you don't need the overhead of loading them, the autoloader, etc... Likewise, NetAddr::IP::Utilities and NetAddr::IP::InetBase exist to provide "very basic" ipv4 and ipv6 utilities without the overhead of their superclasses for module writers need to work with ipv4 & ipv6 "numbers" but do not need object oriented overhead or functionality. Take a brief look at the SRC of each to see what is supported in each without having to wade through the man pages to figure out where the overlap is. Basically the modules are broken down into these functional areas that cover various aspects of manipulating IP numbers. NetAddr::IP::InetBase mostly XS net to text conversion routines inet_aton inet_ntoa ipv6_aton ipv6_ntoa ipv6_n2x ipv6_n2d inet_any2n inet_n2dx inet_n2ad inet_ntop inet_pton etc... NetAddr::IP::Util adds to above, mostly XS above + ip arithmetic addconst add128 sub128 bin2bcd bcd2bin ipv4to6 mask4to6 ipanyto6 maskanyto6 ipv6to4 bin2bcdn bcdn2txt bcdn2bin comp128 naip_gethostbyname (platform/socket independent) etc... NetAddr::IP::Lite adds to above mostly 1 or 2 line functions and/or calls to sub classes all the "new" functions all overload functions ( + - ++ -- = print eq ne == > >= < <= cmp) "copy" (clone rather than reference) return of IP parameters such as broadcast network addr mask masklen bits version cidr aton range numeric bigint contains within first last nth num NetAddr::IP adds to above wildcard short full full6 splitref split rsplit hostenum compact compactref coalesce re re6 enjoy... MANIFEST 0000644 00000006427 15043770025 0005711 0 ustar 00 About-NetAddr-IP.txt Artistic Changes Copying IP.pm MANIFEST MANIFEST.SKIP Makefile.PL TODO docs/rfc1884.txt t/canon.t t/constants.t t/full.t t/full6.t t/imhoff.t t/loops.t t/lower.t t/masklen.t t/new-store.t t/nofqdn.t t/old-store.t t/over-arr.t t/over-qq.t t/relops.t t/rfc3021.t t/short.t t/splitref.t t/v4-coalesce.t t/v4-compact.t t/v4-compplus.t t/v4-hostenum.t t/v4-re.t t/v4-split-bulk.t t/v4-split-list.t t/v4-splitplan.t t/v4-sprefix.t t/v4-xprefix.t t/v6-re.t t/v6-split-bulk.t t/v6-splitplan.t t/wildcard.t t/full6-uri.t Lite/Changes Lite/Lite.pm Lite/MANIFEST Lite/MANIFEST.SKIP Lite/Makefile.PL Lite/README Lite/bug2742981 Lite/t/addr.t Lite/t/aton.t Lite/t/bigint.t Lite/t/bignums.t Lite/t/bin_ips.t Lite/t/bits.t Lite/t/broadcast.t Lite/t/bug62521.t Lite/t/bug75976.t Lite/t/cidr.t Lite/t/constants.t Lite/t/contains.t Lite/t/copy.t Lite/t/firstlast.t Lite/t/ipv4FFFF.t Lite/t/is_local.t Lite/t/lemasklen.t Lite/t/loops.t Lite/t/lower.t Lite/t/mask.t Lite/t/masklen.t Lite/t/netaddr.t Lite/t/network.t Lite/t/new-nth.t Lite/t/new-num.t Lite/t/nofqdn.t Lite/t/numeric.t Lite/t/old-nth.t Lite/t/old-num.t Lite/t/over-qq.t Lite/t/over_comp.t Lite/t/over_copy.t Lite/t/over_equal.t Lite/t/over_math.t Lite/t/overminus.t Lite/t/pathological.t Lite/t/range.t Lite/t/relops.t Lite/t/rfc_1918.t Lite/t/v4-aton.t Lite/t/v4-badnm.t Lite/t/v4-base.t Lite/t/v4-basem.t Lite/t/v4-cidr.t Lite/t/v4-cnew.t Lite/t/v4-contains.t Lite/t/v4-last.t Lite/t/v4-new-first.t Lite/t/v4-new.t Lite/t/v4-new_from_aton.t Lite/t/v4-no_octal.t Lite/t/v4-num.t Lite/t/v4-numeric.t Lite/t/v4-old-first.t Lite/t/v4-range.t Lite/t/v4-snew.t Lite/t/v4-wnew.t Lite/t/v4_new_cis.t Lite/t/v6-cnew.t Lite/t/v6-contains.t Lite/t/v6-inc.t Lite/t/v6-new-base.t Lite/t/v6-new_cis6_base.t Lite/t/v6-new_cis_base.t Lite/t/v6-num.t Lite/t/v6-numeric.t Lite/t/v6-old-base.t Lite/t/version.t Lite/t/within.t Lite/t/v6-cnew-uri.t Lite/t/v6-new-base-uri.t Lite/t/v6-numeric-uri.t Lite/t/v6-old-base-uri.t Lite/Util/Changes Lite/Util/MANIFEST Lite/Util/MANIFEST.SKIP Lite/Util/Makefile.PL Lite/Util/README Lite/Util/Util.pm Lite/Util/Util.xs Lite/Util/config.h.in Lite/Util/configure.cc Lite/Util/configure.gcc Lite/Util/configure.ac Lite/Util/lib/NetAddr/IP/InetBase.pm Lite/Util/lib/NetAddr/IP/UtilPP.pm Lite/Util/localconf.h Lite/Util/t/4to6.t Lite/Util/t/add128.t Lite/Util/t/addconst.t Lite/Util/t/af_inet6.t Lite/Util/t/anyto6.t Lite/Util/t/badd.t Lite/Util/t/bcd2bin.t Lite/Util/t/bcdn2bin.t Lite/Util/t/bin.t Lite/Util/t/binet_n2ad.t Lite/Util/t/binet_n2dx.t Lite/Util/t/binet_pton.t Lite/Util/t/bipv4_inet.t Lite/Util/t/bipv6_any2n.t Lite/Util/t/bipv6func.t Lite/Util/t/bisIPv4.t Lite/Util/t/bpackzeros.t Lite/Util/t/comp128.t Lite/Util/t/croak.t Lite/Util/t/hasbits.t Lite/Util/t/inet_4map6.t Lite/Util/t/inet_n2ad.t Lite/Util/t/inet_n2dx.t Lite/Util/t/inet_pton.t Lite/Util/t/ipv4_inet.t Lite/Util/t/ipv6_any2n.t Lite/Util/t/ipv6func.t Lite/Util/t/ipv6to4.t Lite/Util/t/isIPv4.t Lite/Util/t/leftshift.t Lite/Util/t/mode.t Lite/Util/t/notcontiguous.t Lite/Util/t/packzeros.t Lite/Util/t/simple_pack.t Lite/Util/t/sub128.t Lite/Util/tlib/NetAddr/IP/Util_IS.pm Lite/Util/t/binet_ntoa.t Lite/Util/t/ipv6_ntoa.t Lite/Util/t/naip_gethostbyname.t Lite/Util/t/no6_naip_gethostbyname.t Lite/Util/typemap META.yml Module meta-data (added by MakeMaker) Copying 0000644 00000043245 15043770025 0006112 0 ustar 00 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Lesser General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. <one line to give the program's name and a brief idea of what it does.> Copyright (C) <year> <name of author> This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type how w'. This is free software, and you are welcome to redistribute it under certain conditions; type how c' for details. The hypothetical commands how w' and how c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than how w' and how c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program nomovision' (which makes passes at compilers) written by James Hacker. <signature of Ty Coon>, 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. docs/rfc1884.txt 0000644 00000111736 15043770025 0007350 0 ustar 00 Network Working Group R. Hinden, Ipsilon Networks Request for Comments: 1884 S. Deering, Xerox PARC Category: Standards Track Editors December 1995 IP Version 6 Addressing Architecture Status of this Memo This document specifies an Internet standards track protocol for the Internet community, and requests discussion and suggestions for improvements. Please refer to the current edition of the "Internet Official Protocol Standards" (STD 1) for the standardization state and status of this protocol. Distribution of this memo is unlimited. Abstract This specification defines the addressing architecture of the IP Version 6 protocol [IPV6]. The document includes the IPv6 addressing model, text representations of IPv6 addresses, definition of IPv6 unicast addresses, anycast addresses, and multicast addresses, and an IPv6 nodes required addresses. Hinden & Deering Standards Track [Page 1] RFC 1884 IPv6 Addressing Architecture December 1995 Table of Contents 1. Introduction................................................3 2. IPv6 Addressing.............................................3 2.1 Addressing Model........................................4 2.2 Text Representation of Addresses........................4 2.3 Address Type Representation.............................5 2.4 Unicast Addresses.......................................7 2.4.1 Unicast Address Example.............................8 2.4.2 The Unspecified Address.............................9 2.4.3 The Loopback Address................................9 2.4.4 IPv6 Addresses with Embedded IPv4 Addresses.........9 2.4.5 NSAP Addresses......................................10 2.4.6 IPX Addresses.......................................10 2.4.7 Provider-Based Global Unicast Addresses.............10 2.4.8 Local-use IPv6 Unicast Addresses....................11 2.5 Anycast Addresses.......................................12 2.5.1 Required Anycast Address............................13 2.6 Multicast Addresses.....................................14 2.6.1 Pre-Defined Multicast Addresses.....................15 2.7 A Node's Required Addresses.............................17 REFERENCES.....................................................18 SECURITY CONSIDERATIONS........................................18 DOCUMENT EDITOR'S ADDRESSES....................................18 Hinden & Deering Standards Track [Page 2] RFC 1884 IPv6 Addressing Architecture December 1995 1.0 INTRODUCTION This specification defines the addressing architecture of the IP Version 6 protocol. It includes a detailed description of the currently defined address formats for IPv6 [IPV6]. The editors would like to acknowledge the contributions of Paul Francis, Jim Bound, Brian Carpenter, Deborah Estrin, Peter Ford, Bob Gilligan, Christian Huitema, Tony Li, Greg Minshall, Erik Nordmark, Yakov Rekhter, Bill Simpson, and Sue Thomson. 2.0 IPv6 ADDRESSING IPv6 addresses are 128-bit identifiers for interfaces and sets of interfaces. There are three types of addresses: Unicast: An identifier for a single interface. A packet sent to a unicast address is delivered to the interface identified by that address. Anycast: An identifier for a set of interfaces (typically belonging to different nodes). A packet sent to an anycast address is delivered to one of the interfaces identified by that address (the "nearest" one, according to the routing protocols' measure of distance). Multicast: An identifier for a set of interfaces (typically belonging to different nodes). A packet sent to a multicast address is delivered to all interfaces identified by that address. There are no broadcast addresses in IPv6, their function being superseded by multicast addresses. In this document, fields in addresses are given a specific name, for example "subscriber". When this name is used with the term "ID" for identifier after the name (e.g., "subscriber ID"), it refers to the contents of the named field. When it is used with the term "prefix" (e.g., "subscriber prefix") it refers to all of the address up to and including this field. In IPv6, all zeros and all ones are legal values for any field, unless specifically excluded. Specifically, prefixes may contain zero-valued fields or end in zeros. Hinden & Deering Standards Track [Page 3] RFC 1884 IPv6 Addressing Architecture December 1995 2.1 Addressing Model IPv6 Addresses of all types are assigned to interfaces, not nodes. Since each interface belongs to a single node, any of that node's interfaces' unicast addresses may be used as an identifier for the node. An IPv6 unicast address refers to a single interface. A single interface may be assigned multiple IPv6 addresses of any type (unicast, anycast, and multicast). There are two exceptions to this model. These are: 1) A single address may be assigned to multiple physical interfaces if the implementation treats the multiple physical interfaces as one interface when presenting it to the internet layer. This is useful for load-sharing over multiple physical interfaces. 2) Routers may have unnumbered interfaces (i.e., no IPv6 address assigned to the interface) on point-to-point links to eliminate the necessity to manually configure and advertise the addresses. Addresses are not needed for point-to-point interfaces on routers if those interfaces are not to be used as the origins or destinations of any IPv6 datagrams. IPv6 continues the IPv4 model that a subnet is associated with one link. Multiple subnets may be assigned to the same link. 2.2 Text Representation of Addresses There are three conventional forms for representing IPv6 addresses as text strings: 1. The preferred form is x:x:x:x:x:x:x:x, where the 'x's are the hexadecimal values of the eight 16-bit pieces of the address. Examples: FEDC:BA98:7654:3210:FEDC:BA98:7654:3210 1080:0:0:0:8:800:200C:417A Note that it is not necessary to write the leading zeros in an individual field, but there must be at least one numeral in every field (except for the case described in 2.). 2. Due to the method of allocating certain styles of IPv6 addresses, it will be common for addresses to contain long strings of zero bits. In order to make writing addresses Hinden & Deering Standards Track [Page 4] RFC 1884 IPv6 Addressing Architecture December 1995 containing zero bits easier a special syntax is available to compress the zeros. The use of "::" indicates multiple groups of 16-bits of zeros. The "::" can only appear once in an address. The "::" can also be used to compress the leading and/or trailing zeros in an address. For example the following addresses: 1080:0:0:0:8:800:200C:417A a unicast address FF01:0:0:0:0:0:0:43 a multicast address 0:0:0:0:0:0:0:1 the loopback address 0:0:0:0:0:0:0:0 the unspecified addresses may be represented as: 1080::8:800:200C:417A a unicast address FF01::43 a multicast address ::1 the loopback address :: the unspecified addresses 3. An alternative form that is sometimes more convenient when dealing with a mixed environment of IPv4 and IPv6 nodes is x:x:x:x:x:x:d.d.d.d, where the 'x's are the hexadecimal values of the six high-order 16-bit pieces of the address, and the 'd's are the decimal values of the four low-order 8-bit pieces of the address (standard IPv4 representation). Examples: 0:0:0:0:0:0:13.1.68.3 0:0:0:0:0:FFFF:129.144.52.38 or in compressed form: ::13.1.68.3 ::FFFF:129.144.52.38 2.3 Address Type Representation The specific type of an IPv6 address is indicated by the leading bits in the address. The variable-length field comprising these leading bits is called the Format Prefix (FP). The initial allocation of these prefixes is as follows: Hinden & Deering Standards Track [Page 5] RFC 1884 IPv6 Addressing Architecture December 1995 Allocation Prefix Fraction of (binary) Address Space ------------------------------- -------- ------------- Reserved 0000 0000 1/256 Unassigned 0000 0001 1/256 Reserved for NSAP Allocation 0000 001 1/128 Reserved for IPX Allocation 0000 010 1/128 Unassigned 0000 011 1/128 Unassigned 0000 1 1/32 Unassigned 0001 1/16 Unassigned 001 1/8 Provider-Based Unicast Address 010 1/8 Unassigned 011 1/8 Reserved for Geographic- Based Unicast Addresses 100 1/8 Unassigned 101 1/8 Unassigned 110 1/8 Unassigned 1110 1/16 Unassigned 1111 0 1/32 Unassigned 1111 10 1/64 Unassigned 1111 110 1/128 Unassigned 1111 1110 0 1/512 Link Local Use Addresses 1111 1110 10 1/1024 Site Local Use Addresses 1111 1110 11 1/1024 Multicast Addresses 1111 1111 1/256 Note: The "unspecified address" (see section 2.4.2), the loopback address (see section 2.4.3), and the IPv6 Addresses with Embedded IPv4 Addresses (see section 2.4.4), are assigned out of the 0000 0000 format prefix space. This allocation supports the direct allocation of provider addresses, local use addresses, and multicast addresses. Space is reserved for NSAP addresses, IPX addresses, and geographic addresses. The remainder of the address space is unassigned for future use. This can be used for expansion of existing use (e.g., additional provider addresses, etc.) or new uses (e.g., separate locators and identifiers). Fifteen percent of the address space is initially Hinden & Deering Standards Track [Page 6] RFC 1884 IPv6 Addressing Architecture December 1995 allocated. The remaining 85% is reserved for future use. Unicast addresses are distinguished from multicast addresses by the value of the high-order octet of the addresses: a value of FF (11111111) identifies an address as a multicast address; any other value identifies an address as a unicast address. Anycast addresses are taken from the unicast address space, and are not syntactically distinguishable from unicast addresses. 2.4 Unicast Addresses The IPv6 unicast address is contiguous bit-wise maskable, similar to IPv4 addresses under Class-less Interdomain Routing [CIDR]. There are several forms of unicast address assignment in IPv6, including the global provider based unicast address, the geographic based unicast address, the NSAP address, the IPX hierarchical address, the site-local-use address, the link-local-use address, and the IPv4-capable host address. Additional address types can be defined in the future. IPv6 nodes may have considerable or little knowledge of the internal structure of the IPv6 address, depending on the role the node plays (for instance, host versus router). At a minimum, a node may consider that unicast addresses (including its own) have no internal structure: | 128 bits | +-----------------------------------------------------------------+ | node address | +-----------------------------------------------------------------+ A slightly sophisticated host (but still rather simple) may additionally be aware of subnet prefix(es) for the link(s) it is attached to, where different addresses may have different values for n: | n bits | 128-n bits | +------------------------------------------------+----------------+ | subnet prefix | interface ID | +------------------------------------------------+----------------+ Still more sophisticated hosts may be aware of other hierarchical boundaries in the unicast address. Though a very simple router may have no knowledge of the internal structure of IPv6 unicast Hinden & Deering Standards Track [Page 7] RFC 1884 IPv6 Addressing Architecture December 1995 addresses, routers will more generally have knowledge of one or more of the hierarchical boundaries for the operation of routing protocols. The known boundaries will differ from router to router, depending on what positions the router holds in the routing hierarchy. 2.4.1 Unicast Address Examples An example of a Unicast address format which will likely be common on LANs and other environments where IEEE 802 MAC addresses are available is: | n bits | 80-n bits | 48 bits | +--------------------------------+-----------+--------------------+ | subscriber prefix | subnet ID | interface ID | +--------------------------------+-----------+--------------------+ Where the 48-bit Interface ID is an IEEE-802 MAC address. The use of IEEE 802 MAC addresses as a interface ID is expected to be very common in environments where nodes have an IEEE 802 MAC address. In other environments, where IEEE 802 MAC addresses are not available, other types of link layer addresses can be used, such as E.164 addresses, for the interface ID. The inclusion of a unique global interface identifier, such as an IEEE MAC address, makes possible a very simple form of auto- configuration of addresses. A node may discover a subnet ID by listening to Router Advertisement messages sent by a router on its attached link(s), and then fabricating an IPv6 address for itself by using its IEEE MAC address as the interface ID on that subnet. Another unicast address format example is where a site or organization requires additional layers of internal hierarchy. In this example the subnet ID is divided into an area ID and a subnet ID. Its format is: | s bits | n bits | m bits | 128-s-n-m bits | +----------------------+---------+--------------+-----------------+ | subscriber prefix | area ID | subnet ID | interface ID | +----------------------+---------+--------------+-----------------+ This technique can be continued to allow a site or organization to add additional layers of internal hierarchy. It may be desirable to use an interface ID smaller than a 48-bit IEEE 802 MAC address to allow more space for the additional layers of internal hierarchy. These could be interface IDs which are administratively created by Hinden & Deering Standards Track [Page 8] RFC 1884 IPv6 Addressing Architecture December 1995 the site or organization. 2.4.2 The Unspecified Address The address 0:0:0:0:0:0:0:0 is called the unspecified address. It must never be assigned to any node. It indicates the absence of an address. One example of its use is in the Source Address field of any IPv6 datagrams sent by an initializing host before it has learned its own address. The unspecified address must not be used as the destination address of IPv6 datagrams or in IPv6 Routing Headers. 2.4.3 The Loopback Address The unicast address 0:0:0:0:0:0:0:1 is called the loopback address. It may be used by a node to send an IPv6 datagram to itself. It may never be assigned to any interface. The loopback address must not be used as the source address in IPv6 datagrams that are sent outside of a single node. An IPv6 datagram with a destination address of loopback must never be sent outside of a single node. 2.4.4 IPv6 Addresses with Embedded IPv4 Addresses The IPv6 transition mechanisms include a technique for hosts and routers to dynamically tunnel IPv6 packets over IPv4 routing infrastructure. IPv6 nodes that utilize this technique are assigned special IPv6 unicast addresses that carry an IPv4 address in the low-order 32-bits. This type of address is termed an "IPv4- compatible IPv6 address" and has the format: | 80 bits | 16 | 32 bits | +--------------------------------------+--------------------------+ |0000..............................0000|0000| IPv4 address | +--------------------------------------+----+---------------------+ A second type of IPv6 address which holds an embedded IPv4 address is also defined. This address is used to represent the addresses of IPv4-only nodes (those that *do not* support IPv6) as IPv6 addresses. This type of address is termed an "IPv4-mapped IPv6 address" and has the format: Hinden & Deering Standards Track [Page 9] RFC 1884 IPv6 Addressing Architecture December 1995 | 80 bits | 16 | 32 bits | +--------------------------------------+--------------------------+ |0000..............................0000|FFFF| IPv4 address | +--------------------------------------+----+---------------------+ 2.4.5 NSAP Addresses This mapping of NSAP address into IPv6 addresses is as follows: | 7 | 121 bits | +-------+---------------------------------------------------------+ |0000001| to be defined | +-------+---------------------------------------------------------+ The draft definition, motivation, and usage are under study [NSAP]. 2.4.6 IPX Addresses This mapping of IPX address into IPv6 addresses is as follows: | 7 | 121 bits | +-------+---------------------------------------------------------+ |0000010| to be defined | +-------+---------------------------------------------------------+ The draft definition, motivation, and usage are under study. 2.4.7 Provider-Based Global Unicast Addresses The global provider-based unicast address is assigned as described in [ALLOC]. This initial assignment plan for these unicast addresses is similar to assignment of IPv4 addresses under the CIDR scheme [CIDR]. The IPv6 global provider-based unicast address format is as follows: | 3 | n bits | m bits | o bits | 125-n-m-o bits | +---+-----------+-----------+-------------+--------------------+ |010|registry ID|provider ID|subscriber ID| intra-subscriber | +---+-----------+-----------+-------------+--------------------+ Hinden & Deering Standards Track [Page 10] RFC 1884 IPv6 Addressing Architecture December 1995 The high-order part of the address is assigned to registries, who then assign portions of the address space to providers, who then assign portions of the address space to subscribers, etc. The registry ID identifies the registry which assigns the provider portion of the address. The term "registry prefix" refers to the high-order part of the address up to and including the registry ID. The provider ID identifies a specific provider which assigns the subscriber portion of the address. The term "provider prefix" refers to the high-order part of the address up to and including the provider ID. The subscriber ID distinguishes among multiple subscribers attached to the provider identified by the provider ID. The term "subscriber prefix" refers to the high-order part of the address up to and including the subscriber ID. The intra-subscriber portion of the address is defined by an individual subscriber and is organized according to the subscribers local internet topology. It is likely that many subscribers will choose to divide the intra-subscriber portion of the address into a subnet ID and an interface ID. In this case the subnet ID identifies a specific physical link and the interface ID identifies a single interface on that subnet. 2.4.8 Local-use IPv6 Unicast Addresses There are two types of local-use unicast addresses defined. These are Link-Local and Site-Local. The Link-Local is for use on a single link and the Site-Local is for use in a single site. Link-Local addresses have the following format: | 10 | | bits | n bits | 118-n bits | +----------+-------------------------+----------------------------+ |1111111010| 0 | interface ID | +----------+-------------------------+----------------------------+ Link-Local addresses are designed to be used for addressing on a single link for purposes such as auto-address configuration, neighbor discovery, or when no routers are present. Routers MUST not forward any packets with link-local source addresses. Hinden & Deering Standards Track [Page 11] RFC 1884 IPv6 Addressing Architecture December 1995 Site-Local addresses have the following format: | 10 | | bits | n bits | m bits | 118-n-m bits | +----------+---------+---------------+----------------------------+ |1111111011| 0 | subnet ID | interface ID | +----------+---------+---------------+----------------------------+ Site-Local addresses may be used for sites or organizations that are not (yet) connected to the global Internet. They do not need to request or "steal" an address prefix from the global Internet address space. IPv6 site-local addresses can be used instead. When the organization connects to the global Internet, it can then form global addresses by replacing the site-local prefix with a subscriber prefix. Routers MUST not forward any packets with site-local source addresses outside of the site. 2.5 Anycast Addresses An IPv6 anycast address is an address that is assigned to more than one interface (typically belonging to different nodes), with the property that a packet sent to an anycast address is routed to the "nearest" interface having that address, according to the routing protocols' measure of distance. Anycast addresses are allocated from the unicast address space, using any of the defined unicast address formats. Thus, anycast addresses are syntactically indistinguishable from unicast addresses. When a unicast address is assigned to more than one interface, thus turning it into an anycast address, the nodes to which the address is assigned must be explicitly configured to know that it is an anycast address. For any assigned anycast address, there is a longest address prefix P that identifies the topological region in which all interfaces belonging to that anycast address reside. Within the region identified by P, each member of the anycast set must be advertised as a separate entry in the routing system (commonly referred to as a "host route"); outside the region identified by P, the anycast address may be aggregated into the routing advertisement for prefix P. Note that in, the worst case, the prefix P of an anycast set may be the null prefix, i.e., the members of the set may have no topological locality. In that case, the anycast address must be advertised as a Hinden & Deering Standards Track [Page 12] RFC 1884 IPv6 Addressing Architecture December 1995 separate routing entry throughout the entire internet, which presents a severe scaling limit on how many such "global" anycast sets may be supported. Therefore, it is expected that support for global anycast sets may be unavailable or very restricted. One expected use of anycast addresses is to identify the set of routers belonging to an internet service provider. Such addresses could be used as intermediate addresses in an IPv6 Routing header, to cause a packet to be delivered via a particular provider or sequence of providers. Some other possible uses are to identify the set of routers attached to a particular subnet, or the set of routers providing entry into a particular routing domain. There is little experience with widespread, arbitrary use of internet anycast addresses, and some known complications and hazards when using them in their full generality [ANYCST]. Until more experience has been gained and solutions agreed upon for those problems, the following restrictions are imposed on IPv6 anycast addresses: o An anycast address MUST NOT be used as the source address of an IPv6 packet. o An anycast address MUST NOT be assigned to an IPv6 host, that is, it may be assigned to an IPv6 router only. 2.5.1 Required Anycast Address The Subnet-Router anycast address is predefined. It's format is as follows: | n bits | 128-n bits | +------------------------------------------------+----------------+ | subnet prefix | 00000000000000 | +------------------------------------------------+----------------+ The "subnet prefix" in an anycast address is the prefix which identifies a specific link. This anycast address is syntactically the same as a unicast address for an interface on the link with the interface identifier set to zero. Packets sent to the Subnet-Router anycast address will be delivered to one router on the subnet. All routers are required to support the Subnet-Router anycast addresses for the subnets which they have interfaces. Hinden & Deering Standards Track [Page 13] RFC 1884 IPv6 Addressing Architecture December 1995 The subnet-router anycast address is intended to be used for applications where a node needs to communicate with one of a set of routers on a remote subnet. For example when a mobile host needs to communicate with one of the mobile agents on it's "home" subnet. 2.6 Multicast Addresses An IPv6 multicast address is an identifier for a group of nodes. A node may belong to any number of multicast groups. Multicast addresses have the following format: | 8 | 4 | 4 | 112 bits | +------ -+----+----+---------------------------------------------+ |11111111|flgs|scop| group ID | +--------+----+----+---------------------------------------------+ 11111111 at the start of the address identifies the address as being a multicast address. +-+-+-+-+ flgs is a set of 4 flags: |0|0|0|T| +-+-+-+-+ The high-order 3 flags are reserved, and must be initialized to 0. T = 0 indicates a permanently-assigned ("well-known") multicast address, assigned by the global internet numbering authority. T = 1 indicates a non-permanently-assigned ("transient") multicast address. scop is a 4-bit multicast scope value used to limit the scope of the multicast group. The values are: 0 reserved 1 node-local scope 2 link-local scope 3 (unassigned) 4 (unassigned) 5 site-local scope 6 (unassigned) 7 (unassigned) 8 organization-local scope 9 (unassigned) A (unassigned) Hinden & Deering Standards Track [Page 14] RFC 1884 IPv6 Addressing Architecture December 1995 B (unassigned) C (unassigned) D (unassigned) E global scope F reserved group ID identifies the multicast group, either permanent or transient, within the given scope. The "meaning" of a permanently-assigned multicast address is independent of the scope value. For example, if the "NTP servers group" is assigned a permanent multicast address with a group ID of 43 (hex), then: FF01:0:0:0:0:0:0:43 means all NTP servers on the same node as the sender. FF02:0:0:0:0:0:0:43 means all NTP servers on the same link as the sender. FF05:0:0:0:0:0:0:43 means all NTP servers at the same site as the sender. FF0E:0:0:0:0:0:0:43 means all NTP servers in the internet. Non-permanently-assigned multicast addresses are meaningful only within a given scope. For example, a group identified by the non- permanent, site-local multicast address FF15:0:0:0:0:0:0:43 at one site bears no relationship to a group using the same address at a different site, nor to a non-permanent group using the same group ID with different scope, nor to a permanent group with the same group ID. Multicast addresses must not be used as source addresses in IPv6 datagrams or appear in any routing header. 2.6.1 Pre-Defined Multicast Addresses The following well-known multicast addresses are pre-defined: Reserved Multicast Addresses: FF00:0:0:0:0:0:0:0 FF01:0:0:0:0:0:0:0 FF02:0:0:0:0:0:0:0 FF03:0:0:0:0:0:0:0 FF04:0:0:0:0:0:0:0 FF05:0:0:0:0:0:0:0 FF06:0:0:0:0:0:0:0 Hinden & Deering Standards Track [Page 15] RFC 1884 IPv6 Addressing Architecture December 1995 FF07:0:0:0:0:0:0:0 FF08:0:0:0:0:0:0:0 FF09:0:0:0:0:0:0:0 FF0A:0:0:0:0:0:0:0 FF0B:0:0:0:0:0:0:0 FF0C:0:0:0:0:0:0:0 FF0D:0:0:0:0:0:0:0 FF0E:0:0:0:0:0:0:0 FF0F:0:0:0:0:0:0:0 The above multicast addresses are reserved and shall never be assigned to any multicast group. All Nodes Addresses: FF01:0:0:0:0:0:0:1 FF02:0:0:0:0:0:0:1 The above multicast addresses identify the group of all IPv6 nodes, within scope 1 (node-local) or 2 (link-local). All Routers Addresses: FF01:0:0:0:0:0:0:2 FF02:0:0:0:0:0:0:2 The above multicast addresses identify the group of all IPv6 routers, within scope 1 (node-local) or 2 (link-local). DHCP Server/Relay-Agent: FF02:0:0:0:0:0:0:C The above multicast addresses identify the group of all IPv6 DHCP Servers and Relay Agents within scope 2 (link-local). Solicited-Node Address: FF02:0:0:0:0:1:XXXX:XXXX The above multicast address is computed as a function of a node's unicast and anycast addresses. The solicited-node multicast address is formed by taking the low-order 32 bits of the address (unicast or anycast) and appending those bits to the 96-bit prefix FF02:0:0:0:0:1 resulting in a multicast address in the range FF02:0:0:0:0:1:0000:0000 to FF02:0:0:0:0:1:FFFF:FFFF For example, the solicited node multicast address corresponding to the IPv6 address 4037::01:800:200E:8C6C is FF02::1:200E:8C6C. IPv6 addresses that differ only in the high-order bits, e.g., due to multiple high-order prefixes associated with different providers, Hinden & Deering Standards Track [Page 16] RFC 1884 IPv6 Addressing Architecture December 1995 will map to the same solicited-node address thereby reducing the number of multicast addresses a node must join. A node is required to compute and support a Solicited-Node multicast addresses for every unicast and anycast address it is assigned. 2.7 A Node's Required Addresses A host is required to recognize the following addresses as identifying itself: o Its Link-Local Address for each interface o Assigned Unicast Addresses o Loopback Address o All-Nodes Multicast Address o Solicited-Node Multicast Address for each of its assigned unicast and anycast addresses o Multicast Addresses of all other groups which the host belongs. A router is required to recognize the following addresses as identifying itself: o Its Link-Local Address for each interface o Assigned Unicast Addresses o Loopback Address o The Subnet-Router anycast addresses for the links it has interfaces. o All other Anycast addresses with which the router has been configured. o All-Nodes Multicast Address o All-Router Multicast Address o Solicited-Node Multicast Address for each of its assigned unicast and anycast addresses o Multicast Addresses of all other groups which the router belongs. The only address prefixes which should be predefined in an implementation are the: o Unspecified Address o Loopback Address o Multicast Prefix (FF) o Local-Use Prefixes (Link-Local and Site-Local) o Pre-Defined Multicast Addresses o IPv4-Compatible Prefixes Implementations should assume all other addresses are unicast unless specifically configured (e.g., anycast addresses). Hinden & Deering Standards Track [Page 17] RFC 1884 IPv6 Addressing Architecture December 1995 REFERENCES [ALLOC] Rekhter, Y., and T. Li, "An Architecture for IPv6 Unicast Address Allocation", RFC 1887, cisco Systems, December 1995. [ANYCST] Partridge, C., Mendez, T., and W. Milliken, "Host Anycasting Service", RFC 1546, BBN, November 1993. [CIDR] Fuller, V., Li, T., Varadhan, K., and J. Yu, "Supernetting: an Address Assignment and Aggregation Strategy", RFC 1338, BARRNet, cisco, Merit, OARnet, June 1992. [IPV6] Deering, S., and R. Hinden, Editors, "Internet Protocol, Version 6 (IPv6) Specification", RFC 1883, Xerox PARC, Ipsilon Networks, December 1995. [MULT] Deering, S., "Host Extensions for IP multicasting", STD 5, RFC 1112, Stanford University, August 1989. [NSAP] Carpenter, B., Editor, "Mechanisms for OSIN SAPs, CLNP and TP over IPv6", Work in Progress. SECURITY CONSIDERATIONS Security issues are not discussed in this document. DOCUMENT EDITOR'S ADDRESSES Robert M. Hinden Stephen E. Deering Ipsilon Networks, Inc. Xerox Palo Alto Research Center 2191 E. Bayshore Road, Suite 100 3333 Coyote Hill Road Palo Alto, CA 94303 Palo Alto, CA 94304 USA USA Phone: +1 415 846 4604 Phone: +1 415 812 4839 Fax: +1 415 855 1414 Fax: +1 415 812 4471 EMail: hinden@ipsilon.com EMail: deering@parc.xerox.com Hinden & Deering Standards Track [Page 18] MYMETA.json 0000644 00000001604 15043770025 0006437 0 ustar 00 { "abstract" : "Manages IPv4 and IPv6 addresses and subnets", "author" : [ "Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>" ], "dynamic_config" : 0, "generated_by" : "ExtUtils::MakeMaker version 6.42, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "NetAddr-IP", "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Test::More" : "0" } } }, "release_status" : "stable", "version" : "4.079", "x_serialization_backend" : "JSON::PP version 4.06" }
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0.02 |
proxy
|
phpinfo
|
�а�тройка