git.m6w6.name Git - m6w6/ext-http/blob - scripts/gen_curlinfo.php

   1 #!/usr/bin/env php
   2 <?php
   3 // $Id$
   4
   5 error_reporting(0);
   6
   7 function failure() {
   8         // this is why error_get_last() should return a stdClass object
   9         $error = error_get_last();
  10         fprintf(STDERR, "FAILURE: %s\n", $error["message"]);
  11         exit(-1);
  12 }
  13
  14 function file_re($file, $pattern, $all = true) {
  15         static $path;
  16
  17         $path or $path = isset($_SERVER['argv'][1]) ? $_SERVER['argv'][1].'/include/curl/' : "/usr/local/include/curl/";
  18
  19         if ($content = file_get_contents($path . $file)) {
  20                 if ($all) {
  21                         if (preg_match_all($pattern, $content, $matches, PREG_SET_ORDER)) {
  22                                 return $matches;
  23                         }
  24                 } else {
  25                         if (preg_match($pattern, $content, $matches)) {
  26                                 return $matches;
  27                         }
  28                 }
  29                 trigger_error("no match in $file for $pattern");
  30         }
  31         failure();
  32 }
  33
  34 $ifdefs = array(
  35         'COOKIELIST' => 'HTTP_CURL_VERSION(7,14,1)',
  36         'PRIMARY_IP' => 'HTTP_CURL_VERSION(7,19,0)',
  37         'APPCONNECT_TIME' => 'HTTP_CURL_VERSION(7,19,0)',
  38         'REDIRECT_URL' => 'HTTP_CURL_VERSION(7,18,2)',
  39 );
  40 $exclude = array(
  41         'PRIVATE', 'LASTSOCKET', 'FTP_ENTRY_PATH', 'CERTINFO',
  42 );
  43 $translate = array(
  44         'HTTP_CONNECTCODE' => "connect_code",
  45         'COOKIELIST' => 'cookies',
  46 );
  47
  48 $templates = array(
  49 'STRING' =>
  50 '       if (CURLE_OK == curl_easy_getinfo(request->ch, %s, &c)) {
  51                 add_assoc_string_ex(&array, "%s", sizeof("%2$s"), c ? c : "", 1);
  52         }
  53 ',
  54 'DOUBLE' =>
  55 '       if (CURLE_OK == curl_easy_getinfo(request->ch, %s, &d)) {
  56                 add_assoc_double_ex(&array, "%s", sizeof("%2$s"), d);
  57         }
  58 ',
  59 'LONG' =>
  60 '       if (CURLE_OK == curl_easy_getinfo(request->ch, %s, &l)) {
  61                 add_assoc_long_ex(&array, "%s", sizeof("%2$s"), l);
  62         }
  63 ',
  64 'SLIST' =>
  65 '       if (CURLE_OK == curl_easy_getinfo(request->ch, %s, &s)) {
  66                 MAKE_STD_ZVAL(subarray);
  67                 array_init(subarray);
  68                 for (p = s; p; p = p->next) {
  69                         if (p->data) {
  70                                 add_next_index_string(subarray, p->data, 1);
  71                         }
  72                 }
  73                 add_assoc_zval_ex(&array, "%s", sizeof("%2$s"), subarray);
  74                 curl_slist_free_all(s);
  75         }
  76 ',
  77 );
  78
  79 $infos = file_re('curl.h', '/^\s*(CURLINFO_(\w+))\s*=\s*CURLINFO_(STRING|LONG|DOUBLE|SLIST)\s*\+\s*\d+\s*,?\s*$/m');
  80
  81 ob_start();
  82 foreach ($infos as $info) {
  83         list(, $full, $short, $type) = $info;
  84         if (in_array($short, $exclude)) continue;
  85         if (isset($ifdefs[$short])) printf("#if %s\n", $ifdefs[$short]);
  86         printf($templates[$type], $full, strtolower((isset($translate[$short])) ? $translate[$short] : $short));
  87         if (isset($ifdefs[$short])) printf("#endif\n");
  88 }
  89
  90 file_put_contents("http_request_info.c",
  91         preg_replace('/(\/\* BEGIN \*\/\n).*(\/\* END \*\/)/s', '$1'. ob_get_contents() .'$2',
  92                 file_get_contents("http_request_info.c")));
  93
  94 ?>