crm.fsf.org/20131203/files/sites/all/modules-new/ctools/includes/uuid.inc

   1 <?php
   2
   3 /**
   4  * @file
   5  * Enables ctools generated modules to use UUIDs without the UUID module enabled.
   6  * Per the ctools.module, this file only gets included if UUID doesn't exist.
   7  */
   8
   9 /**
  10  * Pattern for detecting a valid UUID.
  11  */
  12 define('UUID_PATTERN', '[0-9a-f]{8}-([0-9a-f]{4}-){3}[0-9a-f]{12}');
  13
  14 /**
  15  * Generates a UUID using the Windows internal GUID generator.
  16  *
  17  * @see http://php.net/com_create_guid
  18  */
  19 function _ctools_uuid_generate_com() {
  20   // Remove {} wrapper and make lower case to keep result consistent.
  21   return drupal_strtolower(trim(com_create_guid(), '{}'));
  22 }
  23
  24 /**
  25  * Generates an universally unique identifier using the PECL extension.
  26  */
  27 function _ctools_uuid_generate_pecl() {
  28   $uuid_type = UUID_TYPE_DEFAULT;
  29   return uuid_create($uuid_type);
  30 }
  31
  32 /**
  33  * Generates a UUID v4 using PHP code.
  34  *
  35  * Based on code from @see http://php.net/uniqid#65879 , but corrected.
  36  */
  37 function _ctools_uuid_generate_php() {
  38   // The field names refer to RFC 4122 section 4.1.2.
  39   return sprintf('%04x%04x-%04x-4%03x-%04x-%04x%04x%04x',
  40     // 32 bits for "time_low".
  41     mt_rand(0, 65535), mt_rand(0, 65535),
  42     // 16 bits for "time_mid".
  43     mt_rand(0, 65535),
  44     // 12 bits after the 0100 of (version) 4 for "time_hi_and_version".
  45     mt_rand(0, 4095),
  46     bindec(substr_replace(sprintf('%016b', mt_rand(0, 65535)), '10', 0, 2)),
  47     // 8 bits, the last two of which (positions 6 and 7) are 01, for "clk_seq_hi_res"
  48     // (hence, the 2nd hex digit after the 3rd hyphen can only be 1, 5, 9 or d)
  49     // 8 bits for "clk_seq_low" 48 bits for "node".
  50     mt_rand(0, 65535), mt_rand(0, 65535), mt_rand(0, 65535)
  51   );
  52 }
  53
  54 // This is wrapped in an if block to avoid conflicts with PECL's uuid_is_valid().
  55 /**
  56  * Check that a string appears to be in the format of a UUID.
  57  *
  58  * @param $uuid
  59  *  The string to test.
  60  *
  61  * @return
  62  *   TRUE if the string is well formed.
  63  */
  64 if (!function_exists('uuid_is_valid')) {
  65   function uuid_is_valid($uuid) {
  66     return preg_match('/^' . UUID_PATTERN . '$/', $uuid);
  67   }
  68 }