source: branches/version-2_5-dev/data/module/Compat/Compat/Function/inet_pton.php @ 20764

Revision 20764, 2.2 KB checked in by nanasess, 13 years ago (diff)

#601 (コピーライトの更新)

  • Property svn:eol-style set to LF
  • Property svn:mime-type set to text/x-httpd-php; charset=UTF-8
Line 
1<?php
2// +----------------------------------------------------------------------+
3// | PHP Version 4                                                        |
4// +----------------------------------------------------------------------+
5// | Copyright (c) 1997-2004 The PHP Group                                |
6// +----------------------------------------------------------------------+
7// | This source file is subject to version 3.0 of the PHP license,       |
8// | that is bundled with this package in the file LICENSE, and is        |
9// | available at through the world-wide-web at                           |
10// | http://www.php.net/license/3_0.txt.                                  |
11// | If you did not receive a copy of the PHP license and are unable to   |
12// | obtain it through the world-wide-web, please send a note to          |
13// | license@php.net so we can mail you a copy immediately.               |
14// +----------------------------------------------------------------------+
15// | Authors: Arpad Ray <arpad@php.net>                                   |
16// +----------------------------------------------------------------------+
17//
18// $Id: inet_pton.php,v 1.2 2005/12/05 14:49:40 aidan Exp $
19
20
21/**
22 * Replace inet_pton()
23 *
24 * @category    PHP
25 * @package     PHP_Compat
26 * @link        http://php.net/inet_pton
27 * @author      Arpad Ray <arpad@php.net>
28 * @version     $Revision: 1.2 $
29 * @since       PHP 5.1.0
30 * @require     PHP 4.2.0 (array_fill)
31 */
32if (!function_exists('inet_pton')) { 
33    function inet_pton($address)
34    {
35        $r = ip2long($address);
36        if ($r !== false && $r != -1) {
37            return pack('N', $r);
38        }
39
40        $delim_count = substr_count($address, ':');
41        if ($delim_count < 1 || $delim_count > 7) {
42            return false;
43        }
44
45        $r = explode(':', $address);
46        $rcount = count($r);
47        if (($doub = array_search('', $r, 1)) !== false) {
48            $length = (!$doub || $doub == $rcount - 1 ? 2 : 1);
49            array_splice($r, $doub, $length, array_fill(0, 8 + $length - $rcount, 0));
50        }
51
52        $r = array_map('hexdec', $r);
53        array_unshift($r, 'n*');
54        $r = call_user_func_array('pack', $r);
55
56        return $r;
57    }
58}
59
60?>
Note: See TracBrowser for help on using the repository browser.