Ignore:
Timestamp:
01/14/12 16:18:10 (4 months ago)
Author:
bogdan2412
Message:

Make infoarena compatible with HPHP.

  • Implemented APC caching support since eaccelerator is not compatible with HPHP and although we support memcached, we do not use it on live.
  • Replaced instances of create_function_cached with php anonymous functions. This bumps the PHP version requirement to 5.3, but it allows the code to work with HPHP, since dynamic function generation is replaced with staticly analyzable functions. This also removes a horrible, terrible hack in Textile.php which was storing the current instance of the Textile class being processed as a static variable so that it could be accessed by anonymous functions.
  • Replaced occurrences of assert with log_assert.
  • When running under HPHP, IA_HPHP_ENV is defined and is used to bypass some incompatible code (redundant ini configuration checks).
  • Fixed some includes that were dependent on the working directory being www/
  • Included a sample HPHP configuration file and a Makefile with compilation commands.

REVIEW URL: ​http://reviewboard.infoarena.ro/r/182/

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/www/wiki/Textile.php

    r918 r1164  
    773773 
    774774    // preserve contents of the '==', 'pre', 'blockcode' sections 
     775    $me =& $this; 
    775776    $str = preg_replace_callback('/( (?<=\n\n)== | (?<=^)== )  (.+?)  ( ==(?=\n\n) | ==(?=$) )  /sx', 
    776                                  $this->_cb('$me->_repl($me->repl[0], $me->format_block(array("text" => $m[2])))'), $str); 
     777                                 function($m) use ($me) { 
     778                                   return $me->_repl($me->repl[0], $me->format_block(array("text" => $m[2]))); 
     779                                 }, $str); 
    777780 
    778781    if (!$this->disable_html()) { 
    779782      // preserve style, script tag contents 
    780       $str = preg_replace_callback('!(<(style|script)(?:>| .+?>).*?</\2>)!s', $this->_cb('$me->_repl($me->repl[0], $m[1])'), $str); 
     783      $str = preg_replace_callback('!(<(style|script)(?:>| .+?>).*?</\2>)!s', 
     784                                   function($m) use ($me) { 
     785                                     return $me->_repl($me->repl[0], $m[1]); 
     786                                   }, $str); 
    781787 
    782788      // preserve HTML comments 
    783       $str = preg_replace_callback('|(<!--.+?-->)|s', $this->_cb('$me->_repl($me->repl[0], $m[1])'), $str); 
     789      $str = preg_replace_callback('|(<!--.+?-->)|s', 
     790                                   function($m) use ($me) { 
     791                                     return $me->_repl($me->repl[0], $m[1]); 
     792                                   }, $str); 
    784793 
    785794      // preserve pre block contents, encode contents by default 
    786795      $pre_start = count($this->repl[0]); 
    787796      $str = preg_replace_callback('{(<pre(?: [^>]*)?>)(.+?)(</pre>)}s', 
    788                                    $this->_cb('"\n\n" . $me->_repl($me->repl[0], $m[1] . $me->encode_html($m[2], 1) . $m[3]) . "\n\n"'), $str); 
     797                                   function($m) use ($me) { 
     798                                     return "\n\n" . $me->_repl($me->repl[0], $m[1] . $me->encode_html($m[2], 1) . $m[3]) . "\n\n"; 
     799                                   }, $str); 
    789800      // fix code tags within pre blocks we just saved. 
    790801      for ($i = $pre_start; $i < count($this->repl[0]); $i++) { 
    … …  
    794805      // preserve code blocks by default, encode contents 
    795806      $str = preg_replace_callback('{(<code(?: [^>]+)?>)(.+?)(</code>)}s', 
    796                                    $this->_cb('$me->_repl($me->repl[0], $m[1] . $me->encode_html($m[2], 1) . $m[3])'), $str); 
     807                                   function($m) use ($me) { 
     808                                     return $me->_repl($me->repl[0], $m[1] . $me->encode_html($m[2], 1) . $m[3]); 
     809                                   }, $str); 
    797810 
    798811      // encode blockcode tag (an XHTML 2 tag) and encode it's 
    799812      // content by default 
    800813      $str = preg_replace_callback('{(<blockcode(?: [^>]+)?>)(.+?)(</blockcode>)}s', 
    801                                    $this->_cb('"\n\n" . $me->_repl($me->repl[0], $m[1] . $me->encode_html($m[2], 1) . $m[3]) . "\n\n"'), $str); 
     814                                   function($m) use ($me) { 
     815                                     return "\n\n" . $me->_repl($me->repl[0], $m[1] . $me->encode_html($m[2], 1) . $m[3]) . "\n\n"; 
     816                                   }, $str); 
    802817    } 
    803818 
    804819    // LaTeX code 
    805     $str = preg_replace_callback('!((<tex>)(.*?)(<\/tex>))!s', $this->_cb('$me->_repl($me->repl[0], $me->format_latex(array("text" => $m[3])))'), $str); 
     820    $str = preg_replace_callback('!((<tex>)(.*?)(<\/tex>))!s', 
     821                                 function($m) use ($me) { 
     822                                   return $me->_repl($me->repl[0], $me->format_latex(array("text" => $m[3]))); 
     823                                 }, $str); 
    806824 
    807825    // pass through and remove links that follow this format 
    … …  
    811829    //$links = array(); 
    812830    $str = preg_replace_callback('{(?:\n|^) [ ]* \[ ([^ ]+?) [ ]*? (?:\( (.+?) \) )?  \] ((?:(?:ftp|https?|telnet|nntp)://|/)[^ ]+?) [ ]* (\n|$)}mx', 
    813                                  $this->_cb('($me->links[$m[1]] = array("url" => $m[3], "title" => $m[2])) ? $m[4] : $m[4]'), $str); 
     831                                 function($m) use ($me) { 
     832                                   return ($me->links[$m[1]] = array("url" => $m[3], "title" => $m[2])) ? $m[4] : $m[4]; 
     833                                 }, $str); 
    814834    //$this->links = $links; 
    815835 
    … …  
    10321052        //                                ==(.+?)== 
    10331053        //                                (?:$|([\]}])|(?=' . $this->punct . '{1,2}|\s))}sx', 
    1034         //                              $this->_cb('$me->_repl($me->repl[0], $me->format_block(array("text" => $m[2], "inline" => 1, "pre" => $m[1], "post" => $m[3])))'), $para); 
     1054        //                              function($m) use ($me) { 
     1055        //                                return $me->_repl($me->repl[0], $me->format_block(array("text" => $m[2], "inline" => 1, "pre" => $m[1], "post" => $m[3]))); 
     1056        //                              }, $para); 
    10351057        $buffer .= $this->encode_html_basic($para, 1); 
    10361058        $buffer = preg_replace('/&lt;textile#(\d+)&gt;/', '<textile#$1>', $buffer); 
    … …  
    12091231 
    12101232    array_unshift($this->repl, array()); 
     1233    $me =& $this; 
    12111234    $buffer = preg_replace_callback('{(?:^|(?<=[\s>])|([{[])) 
    12121235                                      ==(.+?)== 
    12131236                                      (?:$|([\]}])|(?=' . $this->punct . '{1,2}|\s))}sx', 
    1214                                     $this->_cb('$me->_repl($me->repl[0], $me->format_block(array("text" => $m[2], "inline" => 1, "pre" => $m[1], "post" => $m[3])))'), $buffer); 
     1237                                    function($m) use ($me) { 
     1238                                      return $me->_repl($me->repl[0], $me->format_block(array("text" => $m[2], "inline" => 1, "pre" => $m[1], "post" => $m[3]))); 
     1239                                    }, $buffer); 
    12151240 
    12161241    unset($tokens); 
    … …  
    13171342    array_unshift($this->repl, array()); 
    13181343 
    1319     $text = preg_replace_callback('{' . $this->codere . '}mx', $this->_cb('$me->_repl($me->repl[0], $me->format_code(array("text" => $m[2] . $m[4], "lang" => $m[1] . $m[3])))'), $text); 
     1344    $me =& $this; 
     1345    $text = preg_replace_callback('{' . $this->codere . '}mx', 
     1346                                  function($m) use ($me) { 
     1347                                    return $me->_repl($me->repl[0], $me->format_code(array("text" => $m[2] . $m[4], "lang" => $m[1] . $m[3]))); 
     1348                                  }, $text); 
    13201349 
    13211350    // images must be processed before encoding the text since they might 
    … …  
    13341363                                    (?::(\d+|' . $this->urlre . '))? # $7: optional URL 
    13351364                                    (?:$|([\]}])|(?=' . $this->punct . '{1,2}|\s)) # $8: closing brace/bracket 
    1336                                    }mx', $this->_cb('$me->_repl($me->repl[0], $me->format_image(array("pre" => $m[1], "src" => $m[5], "align" => ($m[2] ? $m[2] : $m[4]), "extra" => $m[6], "url" => $m[7], "clsty" => $m[3], "post" => $m[8])))'), $text); 
     1365                                   }mx', 
     1366                                  function($m) use ($me) { 
     1367                                    return $me->_repl($me->repl[0], $me->format_image(array("pre" => $m[1], "src" => $m[5], "align" => ($m[2] ? $m[2] : $m[4]), "extra" => $m[6], "url" => $m[7], "clsty" => $m[3], "post" => $m[8]))); 
     1368                                  }, $text); 
    13371369 
    13381370    $text = preg_replace_callback('{(?:^|(?<=[\s>])|([{[]))     # $1: open brace/bracket 
    … …  
    13461378                                    (?::(\d+|' . $this->urlre . '))? # $6: optional URL 
    13471379                                    (?:$|([]}])|(?=' . $this->punct . '{1,2}|\s)) # $7: closing brace/bracket 
    1348                                    }mx', $this->_cb('$me->_repl($me->repl[0], $me->format_span(array("pre" => $m[1], "text" => $m[5], "align" => ($m[2] ? $m[2] : $m[4]), "cite" => $m[6], "clsty" => $m[3], "post" => $m[7])))'), $text); 
     1380                                   }mx', 
     1381                                  function($m) use ($me) { 
     1382                                    return $me->_repl($me->repl[0], $me->format_span(array("pre" => $m[1], "text" => $m[5], "align" => ($m[2] ? $m[2] : $m[4]), "cite" => $m[6], "clsty" => $m[3], "post" => $m[7]))); 
     1383                                  }, $text); 
    13491384 
    13501385    $text = $this->encode_html($text); 
    … …  
    13781413                                    [\]}] 
    13791414                                   ) 
    1380                                    }mx', $this->_cb('$me->_repl($me->repl[0], $me->format_link(array("text" => $m[1], "linktext" => $m[3] . $m[6], "title" => $me->encode_html_basic($m[4] . $m[7]), "url" => $m[8], "clsty" => $m[2] . $m[5])))'), $text); 
     1415                                   }mx', 
     1416                                  function($m) use ($me) { 
     1417                                    return $me->_repl($me->repl[0], $me->format_link(array("text" => $m[1], "linktext" => $m[3] . $m[6], "title" => $me->encode_html_basic($m[4] . $m[7]), "url" => $m[8], "clsty" => $m[2] . $m[5]))); 
     1418                                  }, $text); 
    13811419 
    13821420    $text = preg_replace_callback('{((?:^|(?<=[\s>\(]))                              # $1: open brace/bracket 
    … …  
    13971435                                    :(\d+|' . $this->urlre . ')                      # $8: URL suffix 
    13981436                                    (?:$|(?=' . $this->punct . '{1,2}|\s)))          # $9: closing brace/bracket 
    1399                                    }mx', $this->_cb('$me->_repl($me->repl[0], $me->format_link(array("text" => $m[1], "linktext" => $m[3] . $m[6], "title" => $me->encode_html_basic($m[4] . $m[7]), "url" => $m[8], "clsty" => $m[2] . $m[5])))'), $text); 
     1437                                   }mx', 
     1438                                  function($m) use ($me) { 
     1439                                    return $me->_repl($me->repl[0], $me->format_link(array("text" => $m[1], "linktext" => $m[3] . $m[6], "title" => $me->encode_html_basic($m[4] . $m[7]), "url" => $m[8], "clsty" => $m[2] . $m[5]))); 
     1440                                  }, $text); 
    14001441 
    14011442    if (preg_match('/^xhtml2/', $this->flavor())) { 
    … …  
    14071448                                      :(\d+|' . $this->urlre . ')                    # $3: optional citation URL 
    14081449                                      (?:$|([\]}])|(?=' . $this->punct . '{1,2}|\s)) # $4: closing brace/bracket 
    1409                                      }mx', $this->_cb('$me->_repl($me->repl[0], $me->format_cite(array("pre" => $m[1], "text" => $m[2], "cite" => $m[3], "post" => $m[4])))'), $text); 
     1450                                     }mx', 
     1451                                    function($m) use ($me) { 
     1452                                      return $me->_repl($me->repl[0], $me->format_cite(array("pre" => $m[1], "text" => $m[2], "cite" => $m[3], "post" => $m[4]))); 
     1453                                    }, $text); 
    14101454    } 
    14111455 
    … …  
    14201464    // translate macros: 
    14211465    $text = preg_replace_callback('{(\{)(.+?)(\})}x', 
    1422                                   $this->_cb('$me->format_macro(array("pre" => $m[1], "post" => $m[3], "macro" => $m[2]))'), $text); 
     1466                                  function($m) use ($me) { 
     1467                                    return $me->format_macro(array("pre" => $m[1], "post" => $m[3], "macro" => $m[2])); 
     1468                                  }, $text); 
    14231469 
    14241470    // these were present with textile 1 and are common enough 
    … …  
    14501496                                                      (?<=\S)' . $qf . '                             # 
    14511497                                                      (?:$|([\]}])|(?=' . $this->punct . '{1,2}|\s)) # $4 - post 
    1452                                                      }mx', $this->_cb('$me->format_tag(array("tag" => end($me->tmp["r"]), "marker" => end($me->tmp["f"]), "pre" => $m[1], "text" => $m[3], "clsty" => $m[2], "post" => $m[4]))'), $text))) { 
     1498                                                     }mx', 
     1499                                                    function($m) use ($me) { 
     1500                                                      return $me->format_tag(array("tag" => end($me->tmp["r"]), "marker" => end($me->tmp["f"]), "pre" => $m[1], "text" => $m[3], "clsty" => $m[2], "post" => $m[4])); 
     1501                                                    }, $text))) { 
    14531502          $redo = ($redo || ($last != $text)); 
    14541503          $last = $text; 
    … …  
    14631512    // ABC(Aye Bee Cee) -> acronym 
    14641513    $text = preg_replace_callback('{\b([A-Z][A-Za-z0-9]*?[A-Z0-9]+?)\b(?:[(]([^)]*)[)])}', 
    1465                                   $this->_cb('$me->_repl($me->repl[0],"<acronym title=\"" . $me->encode_html_basic($m[2]) . "\">$m[1]</acronym>")'), $text); 
     1514                                  function($m) use ($me) { 
     1515                                    return $me->_repl($me->repl[0],"<acronym title=\"" . $me->encode_html_basic($m[2]) . "\">$m[1]</acronym>"); 
     1516                                  }, $text); 
    14661517 
    14671518    // ABC -> 'capped' span 
    … …  
    14701521                                      ((?:[A-Z](?:[A-Z0-9\.,\']|\&amp;){2,}\ *)+?) # \' 
    14711522                                      (?=[^A-Z\.0-9]|$) 
    1472                                      /mx', $this->_cb('$m[1] . $me->_repl($me->repl[0], "<span class=\"" . end($me->tmp["caps"]) . "\">$m[2]</span>")'), $text); 
     1523                                     /mx', 
     1524                                    function($m) use ($me) { 
     1525                                      return $m[1] . $me->_repl($me->repl[0], "<span class=\"" . end($me->tmp["caps"]) . "\">$m[2]</span>"); 
     1526                                    }, $text); 
    14731527    } 
    14741528    array_pop($this->tmp['caps']); 
    … …  
    21022156    $url = preg_replace('/&(?!amp;)/', '&amp;', $url); 
    21032157    $url = preg_replace('/\ /', '+', $url); 
    2104     $url = preg_replace_callback('/^((?:.+?)\?)(.+)$/', $this->_cb('$m[1] . $me->encode_url($m[2])'), $url); 
     2158    $me =& $this; 
     2159    $url = preg_replace_callback('/^((?:.+?)\?)(.+)$/', 
     2160                                 function($m) use ($me) { 
     2161                                   return $m[1] . $me->encode_url($m[2]); 
     2162                                 }, $url); 
    21052163    return $url; 
    21062164  } // function format_url 
    … …  
    26292687   */ 
    26302688  function apply_filters($args) { 
     2689    log_error("Filters are not supported in infoarena's fork of Textile.php " . 
     2690              "because they use old-style anonymous functions."); 
    26312691    $text = $args['text']; 
    26322692    if (!$text) { return ''; } 
    … …  
    26392699      if (!isset($filters[$filter])) { continue; } 
    26402700      if (is_string($filters[$filter])) { 
    2641         $text = (($f = create_function_cached('$text, $param', $filters[$filter])) ? $f($text, $param) : $text); 
     2701        $text = (($f = create_function('$text, $param', $filters[$filter])) ? $f($text, $param) : $text); 
    26422702      } 
    26432703    } 
    … …  
    27692829   */ 
    27702830  function encode_url($str) { 
     2831    $me =& $this; 
    27712832    $str = preg_replace_callback('!([^A-Za-z0-9_\.\-\+\&=%;])!x', 
    2772                             $this->_cb('ord($m[1]) > 255 ? \'%u\' . sprintf("%04X", ord($m[1])) 
    2773                                                        : \'%\'  . sprintf("%02X", ord($m[1]))'), $str); 
     2833                                 function($m) use ($me) { 
     2834                                   return ord($m[1]) > 255 ? '%u' . sprintf("%04X", ord($m[1])) : '%'  . sprintf("%02X", ord($m[1])); 
     2835                                 }, $str); 
    27742836    return $str; 
    27752837  } // function encode_url 
    … …  
    27862848  function mail_encode($addr) { 
    27872849    // granted, this is simple, but it gives off warm fuzzies 
     2850    $me =& $this; 
    27882851    $addr = preg_replace_callback('!([^\$])!x', 
    2789                              $this->_cb('ord($m[1]) > 255 ? \'%u\' . sprintf("%04X", ord($m[1])) 
    2790                                                         : \'%\'  . sprintf("%02X", ord($m[1]))'), $addr); 
     2852                                  function($m) use ($me) { 
     2853                                    return ord($m[1]) > 255 ? '%u' . sprintf("%04X", ord($m[1])) : '%'  . sprintf("%02X", ord($m[1])); 
     2854                                  }, $addr); 
    27912855    return $addr; 
    27922856  } // function mail_encode 
    … …  
    32413305    return array("text" => "2.0.8", "build" => 2005032100); 
    32423306  } // function version 
    3243  
    3244 /** 
    3245    * Creates a custom callback function from the provided PHP 
    3246    * code. The result is used as the callback in 
    3247    * @c preg_replace_callback calls. *JHR* 
    3248    * 
    3249    * @param $function A @c string specifying the PHP code for the 
    3250    *        function body. 
    3251    * 
    3252    * @return A @c function to be used for the callback. 
    3253    * 
    3254    * @private 
    3255    */ 
    3256   function _cb($function) { 
    3257     $current =& Textile::_current_store($this); 
    3258     return create_function_cached('$m', 
    3259             '$me =& Textile::_current(); return '.$function .';'); 
    3260   } // function _cb 
    3261  
    3262   /** 
    3263    * Stores a static variable for the Textile class. This helper 
    3264    * function is used by @c _current to simulate a static 
    3265    * class variable in PHP. *JHR* 
    3266    * 
    3267    * @param $new If a non-@c NULL object reference, the Textile object 
    3268    *        to be set as the current object. 
    3269    * 
    3270    * @return The @c array containing a reference to the current 
    3271    *         Textile object at index 0. An array is used because PHP 
    3272    *         does not allow static variables to be references. 
    3273    * 
    3274    * @static 
    3275    * @private 
    3276    */ 
    3277  /* static */ function &_current_store(&$new) { 
    3278    static $current = array(); 
    3279  
    3280    if ($new != NULL) { 
    3281      $current = array(&$new); 
    3282    } 
    3283  
    3284    return $current; 
    3285  } // function _current_store 
    3286  
    3287   /** 
    3288    * Returns the "current" Textile object. This is used within 
    3289    * anonymous callback functions which cannot have the scope of a 
    3290    * specific object. *JHR* 
    3291    * 
    3292    * @return An @c object reference to the current Textile object. 
    3293    * 
    3294    * @static 
    3295    * @private 
    3296    */ 
    3297  /* static */ function &_current() { 
    3298    $current =& Textile::_current_store($null = NULL); 
    3299    return $current[0]; 
    3300  } // function _current 
    33013307} // class Textile 
    33023308 
    … …  
    34643470 * A pre-formatted block of text. Textile will not add any 
    34653471 * HTML tags for individual lines. Whitespace is also preserved. 
    3466  *  
     3472 * 
    34673473 * Note that within a "pre" block, \< and \> are 
    34683474 * translated into HTML entities automatically.</li> 
    … …  
    34743480 * gets a \<code\> tag (or for XHTML 2, a \<blockcode\> 
    34753481 * tag is used instead). 
    3476  *  
     3482 * 
    34773483 * Note that within a "bc" block, \< and \> are 
    34783484 * translated into HTML entities automatically.</li> 
Note: See TracChangeset for help on using the changeset viewer.