PluginProbe
Hover Effects – easily create any hover effect / 2.1.2
Hover Effects – easily create any hover effect v2.1.2
trunk 2.1.1 2.1.2 2.1.3
hover-effects / include / class / packer.php

packer.php in Hover Effects – easily create any hover effect 2.1.2, at include/class/packer.php

744 lines 23.1 KB
No matching file
Up and down to move Enter to open Esc to close
Raw Download Zip
1 <?php
2 /* 9 April 2008. version 1.1
3 *
4 * This is the php version of the Dean Edwards JavaScript's Packer,
5 * Based on :
6 *
7 * ParseMaster, version 1.0.2 (2005-08-19) Copyright 2005, Dean Edwards
8 * a multi-pattern parser.
9 * KNOWN BUG: erroneous behavior when using escapeChar with a replacement
10 * value that is a function
11 *
12 * packer, version 2.0.2 (2005-08-19) Copyright 2004-2005, Dean Edwards
13 *
14 * License: http://creativecommons.org/licenses/LGPL/2.1/
15 *
16 * Ported to PHP by Nicolas Martin.
17 *
18 * ----------------------------------------------------------------------
19 * changelog:
20 * 1.1 : correct a bug, '\0' packed then unpacked becomes '\'.
21 * ----------------------------------------------------------------------
22 *
23 * examples of usage :
24 * $myPacker = new JavaScriptPacker($script, 62, true, false);
25 * $packed = $myPacker->pack();
26 *
27 * or
28 *
29 * $myPacker = new JavaScriptPacker($script, 'Normal', true, false);
30 * $packed = $myPacker->pack();
31 *
32 * or (default values)
33 *
34 * $myPacker = new JavaScriptPacker($script);
35 * $packed = $myPacker->pack();
36 *
37 *
38 * params of the constructor :
39 * $script: the JavaScript to pack, string.
40 * $encoding: level of encoding, int or string :
41 * 0,10,62,95 or 'None', 'Numeric', 'Normal', 'High ASCII'.
42 * default: 62.
43 * $fastDecode: include the fast decoder in the packed result, boolean.
44 * default : true.
45 * $specialChars: if you are flagged your private and local variables
46 * in the script, boolean.
47 * default: false.
48 *
49 * The pack() method return the compressed JavasScript, as a string.
50 *
51 * see http://dean.edwards.name/packer/usage/ for more information.
52 *
53 * Notes :
54 * # need PHP 5 . Tested with PHP 5.1.2, 5.1.3, 5.1.4, 5.2.3
55 *
56 * # The packed result may be different than with the Dean Edwards
57 * version, but with the same length. The reason is that the PHP
58 * function usort to sort array don't necessarily preserve the
59 * original order of two equal member. The Javascript sort function
60 * in fact preserve this order (but that's not require by the
61 * ECMAScript standard). So the encoded keywords order can be
62 * different in the two results.
63 *
64 * # Be careful with the 'High ASCII' Level encoding if you use
65 * UTF-8 in your files...
66 */
67
68
69 class JavaScriptPacker {
70 // constants
71 const IGNORE = '$1';
72
73 // validate parameters
74 private $_script = '';
75 private $_encoding = 62;
76 private $_fastDecode = true;
77 private $_specialChars = false;
78
79 private $LITERAL_ENCODING = array(
80 'None' => 0,
81 'Numeric' => 10,
82 'Normal' => 62,
83 'High ASCII' => 95
84 );
85
86 public function __construct($_script, $_encoding = 62, $_fastDecode = true, $_specialChars = false)
87 {
88 $this->_script = $_script . "\n";
89 if (array_key_exists($_encoding, $this->LITERAL_ENCODING))
90 $_encoding = $this->LITERAL_ENCODING[$_encoding];
91 $this->_encoding = min((int)$_encoding, 95);
92 $this->_fastDecode = $_fastDecode;
93 $this->_specialChars = $_specialChars;
94 }
95
96 public function pack() {
97 $this->_addParser('_basicCompression');
98 if ($this->_specialChars)
99 $this->_addParser('_encodeSpecialChars');
100 if ($this->_encoding)
101 $this->_addParser('_encodeKeywords');
102
103 // go!
104 return $this->_pack($this->_script);
105 }
106
107 // apply all parsing routines
108 private function _pack($script) {
109 for ($i = 0; isset($this->_parsers[$i]); $i++) {
110 $script = call_user_func(array(&$this,$this->_parsers[$i]), $script);
111 }
112 return $script;
113 }
114
115 // keep a list of parsing functions, they'll be executed all at once
116 private $_parsers = array();
117 private function _addParser($parser) {
118 $this->_parsers[] = $parser;
119 }
120
121 // zero encoding - just removal of white space and comments
122 private function _basicCompression($script) {
123 $parser = new ParseMaster();
124 // make safe
125 $parser->escapeChar = '\\';
126 // protect strings
127 $parser->add('/\'[^\'\\n\\r]*\'/', self::IGNORE);
128 $parser->add('/"[^"\\n\\r]*"/', self::IGNORE);
129 // remove comments
130 $parser->add('/\\/\\/[^\\n\\r]*[\\n\\r]/', ' ');
131 $parser->add('/\\/\\*[^*]*\\*+([^\\/][^*]*\\*+)*\\//', ' ');
132 // protect regular expressions
133 $parser->add('/\\s+(\\/[^\\/\\n\\r\\*][^\\/\\n\\r]*\\/g?i?)/', '$2'); // IGNORE
134 $parser->add('/[^\\w\\x24\\/\'"*)\\?:]\\/[^\\/\\n\\r\\*][^\\/\\n\\r]*\\/g?i?/', self::IGNORE);
135 // remove: ;;; doSomething();
136 if ($this->_specialChars) $parser->add('/;;;[^\\n\\r]+[\\n\\r]/');
137 // remove redundant semi-colons
138 $parser->add('/\\(;;\\)/', self::IGNORE); // protect for (;;) loops
139 $parser->add('/;+\\s*([};])/', '$2');
140 // apply the above
141 $script = $parser->exec($script);
142
143 // remove white-space
144 $parser->add('/(\\b|\\x24)\\s+(\\b|\\x24)/', '$2 $3');
145 $parser->add('/([+\\-])\\s+([+\\-])/', '$2 $3');
146 $parser->add('/\\s+/', '');
147 // done
148 return $parser->exec($script);
149 }
150
151 private function _encodeSpecialChars($script) {
152 $parser = new ParseMaster();
153 // replace: $name -> n, $$name -> na
154 $parser->add('/((\\x24+)([a-zA-Z$_]+))(\\d*)/',
155 array('fn' => '_replace_name')
156 );
157 // replace: _name -> _0, double-underscore (__name) is ignored
158 $regexp = '/\\b_[A-Za-z\\d]\\w*/';
159 // build the word list
160 $keywords = $this->_analyze($script, $regexp, '_encodePrivate');
161 // quick ref
162 $encoded = $keywords['encoded'];
163
164 $parser->add($regexp,
165 array(
166 'fn' => '_replace_encoded',
167 'data' => $encoded
168 )
169 );
170 return $parser->exec($script);
171 }
172
173 private function _encodeKeywords($script) {
174 // escape high-ascii values already in the script (i.e. in strings)
175 if ($this->_encoding > 62)
176 $script = $this->_escape95($script);
177 // create the parser
178 $parser = new ParseMaster();
179 $encode = $this->_getEncoder($this->_encoding);
180 // for high-ascii, don't encode single character low-ascii
181 $regexp = ($this->_encoding > 62) ? '/\\w\\w+/' : '/\\w+/';
182 // build the word list
183 $keywords = $this->_analyze($script, $regexp, $encode);
184 $encoded = $keywords['encoded'];
185
186 // encode
187 $parser->add($regexp,
188 array(
189 'fn' => '_replace_encoded',
190 'data' => $encoded
191 )
192 );
193 if (empty($script)) return $script;
194 else {
195 //$res = $parser->exec($script);
196 //$res = $this->_bootStrap($res, $keywords);
197 //return $res;
198 return $this->_bootStrap($parser->exec($script), $keywords);
199 }
200 }
201
202 private function _analyze($script, $regexp, $encode) {
203 // analyse
204 // retreive all words in the script
205 $all = array();
206 preg_match_all($regexp, $script, $all);
207 $_sorted = array(); // list of words sorted by frequency
208 $_encoded = array(); // dictionary of word->encoding
209 $_protected = array(); // instances of "protected" words
210 $all = $all[0]; // simulate the javascript comportement of global match
211 if (!empty($all)) {
212 $unsorted = array(); // same list, not sorted
213 $protected = array(); // "protected" words (dictionary of word->"word")
214 $value = array(); // dictionary of charCode->encoding (eg. 256->ff)
215 $this->_count = array(); // word->count
216 $i = count($all); $j = 0; //$word = null;
217 // count the occurrences - used for sorting later
218 do {
219 --$i;
220 $word = '$' . $all[$i];
221 if (!isset($this->_count[$word])) {
222 $this->_count[$word] = 0;
223 $unsorted[$j] = $word;
224 // make a dictionary of all of the protected words in this script
225 // these are words that might be mistaken for encoding
226 //if (is_string($encode) && method_exists($this, $encode))
227 $values[$j] = call_user_func(array(&$this, $encode), $j);
228 $protected['$' . $values[$j]] = $j++;
229 }
230 // increment the word counter
231 $this->_count[$word]++;
232 } while ($i > 0);
233 // prepare to sort the word list, first we must protect
234 // words that are also used as codes. we assign them a code
235 // equivalent to the word itself.
236 // e.g. if "do" falls within our encoding range
237 // then we store keywords["do"] = "do";
238 // this avoids problems when decoding
239 $i = count($unsorted);
240 do {
241 $word = $unsorted[--$i];
242 if (isset($protected[$word]) /*!= null*/) {
243 $_sorted[$protected[$word]] = substr($word, 1);
244 $_protected[$protected[$word]] = true;
245 $this->_count[$word] = 0;
246 }
247 } while ($i);
248
249 // sort the words by frequency
250 // Note: the javascript and php version of sort can be different :
251 // in php manual, usort :
252 // " If two members compare as equal,
253 // their order in the sorted array is undefined."
254 // so the final packed script is different of the Dean's javascript version
255 // but equivalent.
256 // the ECMAscript standard does not guarantee this behaviour,
257 // and thus not all browsers (e.g. Mozilla versions dating back to at
258 // least 2003) respect this.
259 usort($unsorted, array(&$this, '_sortWords'));
260 $j = 0;
261 // because there are "protected" words in the list
262 // we must add the sorted words around them
263 do {
264 if (!isset($_sorted[$i]))
265 $_sorted[$i] = substr($unsorted[$j++], 1);
266 $_encoded[$_sorted[$i]] = $values[$i];
267 } while (++$i < count($unsorted));
268 }
269 return array(
270 'sorted' => $_sorted,
271 'encoded' => $_encoded,
272 'protected' => $_protected);
273 }
274
275 private $_count = array();
276 private function _sortWords($match1, $match2) {
277 return $this->_count[$match2] - $this->_count[$match1];
278 }
279
280 // build the boot function used for loading and decoding
281 private function _bootStrap($packed, $keywords) {
282 $ENCODE = $this->_safeRegExp('$encode\\($count\\)');
283
284 // $packed: the packed script
285 $packed = "'" . $this->_escape($packed) . "'";
286
287 // $ascii: base for encoding
288 $ascii = min(count($keywords['sorted']), $this->_encoding);
289 if ($ascii == 0) $ascii = 1;
290
291 // $count: number of words contained in the script
292 $count = count($keywords['sorted']);
293
294 // $keywords: list of words contained in the script
295 foreach ($keywords['protected'] as $i=>$value) {
296 $keywords['sorted'][$i] = '';
297 }
298 // convert from a string to an array
299 ksort($keywords['sorted']);
300 $keywords = "'" . implode('|',$keywords['sorted']) . "'.split('|')";
301
302 $encode = ($this->_encoding > 62) ? '_encode95' : $this->_getEncoder($ascii);
303 $encode = $this->_getJSFunction($encode);
304 $encode = preg_replace('/_encoding/','$ascii', $encode);
305 $encode = preg_replace('/arguments\\.callee/','$encode', $encode);
306 $inline = '\\$count' . ($ascii > 10 ? '.toString(\\$ascii)' : '');
307
308 // $decode: code snippet to speed up decoding
309 if ($this->_fastDecode) {
310 // create the decoder
311 $decode = $this->_getJSFunction('_decodeBody');
312 if ($this->_encoding > 62)
313 $decode = preg_replace('/\\\\w/', '[\\xa1-\\xff]', $decode);
314 // perform the encoding inline for lower ascii values
315 elseif ($ascii < 36)
316 $decode = preg_replace($ENCODE, $inline, $decode);
317 // special case: when $count==0 there are no keywords. I want to keep
318 // the basic shape of the unpacking funcion so i'll frig the code...
319 if ($count == 0)
320 $decode = preg_replace($this->_safeRegExp('($count)\\s*=\\s*1'), '$1=0', $decode, 1);
321 }
322
323 // boot function
324 $unpack = $this->_getJSFunction('_unpack');
325 if ($this->_fastDecode) {
326 // insert the decoder
327 $this->buffer = $decode;
328 $unpack = preg_replace_callback('/\\{/', array(&$this, '_insertFastDecode'), $unpack, 1);
329 }
330 $unpack = preg_replace('/"/', "'", $unpack);
331 if ($this->_encoding > 62) { // high-ascii
332 // get rid of the word-boundaries for regexp matches
333 $unpack = preg_replace('/\'\\\\\\\\b\'\s*\\+|\\+\s*\'\\\\\\\\b\'/', '', $unpack);
334 }
335 if ($ascii > 36 || $this->_encoding > 62 || $this->_fastDecode) {
336 // insert the encode function
337 $this->buffer = $encode;
338 $unpack = preg_replace_callback('/\\{/', array(&$this, '_insertFastEncode'), $unpack, 1);
339 } else {
340 // perform the encoding inline
341 $unpack = preg_replace($ENCODE, $inline, $unpack);
342 }
343 // pack the boot function too
344 $unpackPacker = new JavaScriptPacker($unpack, 0, false, true);
345 $unpack = $unpackPacker->pack();
346
347 // arguments
348 $params = array($packed, $ascii, $count, $keywords);
349 if ($this->_fastDecode) {
350 $params[] = 0;
351 $params[] = '{}';
352 }
353 $params = implode(',', $params);
354
355 // the whole thing
356 return 'eval(' . $unpack . '(' . $params . "))\n";
357 }
358
359 private $buffer;
360 private function _insertFastDecode($match) {
361 return '{' . $this->buffer . ';';
362 }
363 private function _insertFastEncode($match) {
364 return '{$encode=' . $this->buffer . ';';
365 }
366
367 // mmm.. ..which one do i need ??
368 private function _getEncoder($ascii) {
369 return $ascii > 10 ? $ascii > 36 ? $ascii > 62 ?
370 '_encode95' : '_encode62' : '_encode36' : '_encode10';
371 }
372
373 // zero encoding
374 // characters: 0123456789
375 private function _encode10($charCode) {
376 return $charCode;
377 }
378
379 // inherent base36 support
380 // characters: 0123456789abcdefghijklmnopqrstuvwxyz
381 private function _encode36($charCode) {
382 return base_convert($charCode, 10, 36);
383 }
384
385 // hitch a ride on base36 and add the upper case alpha characters
386 // characters: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
387 private function _encode62($charCode) {
388 $res = '';
389 if ($charCode >= $this->_encoding) {
390 $res = $this->_encode62((int)($charCode / $this->_encoding));
391 }
392 $charCode = $charCode % $this->_encoding;
393
394 if ($charCode > 35)
395 return $res . chr($charCode + 29);
396 else
397 return $res . base_convert($charCode, 10, 36);
398 }
399
400 // use high-ascii values
401 // characters: ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄ�
402 ÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþ
403 private function _encode95($charCode) {
404 $res = '';
405 if ($charCode >= $this->_encoding)
406 $res = $this->_encode95($charCode / $this->_encoding);
407
408 return $res . chr(($charCode % $this->_encoding) + 161);
409 }
410
411 private function _safeRegExp($string) {
412 return '/'.preg_replace('/\$/', '\\\$', $string).'/';
413 }
414
415 private function _encodePrivate($charCode) {
416 return "_" . $charCode;
417 }
418
419 // protect characters used by the parser
420 private function _escape($script) {
421 return preg_replace('/([\\\\\'])/', '\\\$1', $script);
422 }
423
424 // protect high-ascii characters already in the script
425 private function _escape95($script) {
426 return preg_replace_callback(
427 '/[\\xa1-\\xff]/',
428 array(&$this, '_escape95Bis'),
429 $script
430 );
431 }
432 private function _escape95Bis($match) {
433 return '\x'.((string)dechex(ord($match)));
434 }
435
436
437 private function _getJSFunction($aName) {
438 if (defined('self::JSFUNCTION'.$aName))
439 return constant('self::JSFUNCTION'.$aName);
440 else
441 return '';
442 }
443
444 // JavaScript Functions used.
445 // Note : In Dean's version, these functions are converted
446 // with 'String(aFunctionName);'.
447 // This internal conversion complete the original code, ex :
448 // 'while (aBool) anAction();' is converted to
449 // 'while (aBool) { anAction(); }'.
450 // The JavaScript functions below are corrected.
451
452 // unpacking function - this is the boot strap function
453 // data extracted from this packing routine is passed to
454 // this function when decoded in the target
455 // NOTE ! : without the ';' final.
456 const JSFUNCTION_unpack =
457
458 'function($packed, $ascii, $count, $keywords, $encode, $decode) {
459 while ($count--) {
460 if ($keywords[$count]) {
461 $packed = $packed.replace(new RegExp(\'\\\\b\' + $encode($count) + \'\\\\b\', \'g\'), $keywords[$count]);
462 }
463 }
464 return $packed;
465 }';
466 /*
467 'function($packed, $ascii, $count, $keywords, $encode, $decode) {
468 while ($count--)
469 if ($keywords[$count])
470 $packed = $packed.replace(new RegExp(\'\\\\b\' + $encode($count) + \'\\\\b\', \'g\'), $keywords[$count]);
471 return $packed;
472 }';
473 */
474
475 // code-snippet inserted into the unpacker to speed up decoding
476 const JSFUNCTION_decodeBody =
477 //_decode = function() {
478 // does the browser support String.replace where the
479 // replacement value is a function?
480
481 ' if (!\'\'.replace(/^/, String)) {
482 // decode all the values we need
483 while ($count--) {
484 $decode[$encode($count)] = $keywords[$count] || $encode($count);
485 }
486 // global replacement function
487 $keywords = [function ($encoded) {return $decode[$encoded]}];
488 // generic match
489 $encode = function () {return \'\\\\w+\'};
490 // reset the loop counter - we are now doing a global replace
491 $count = 1;
492 }
493 ';
494 //};
495 /*
496 ' if (!\'\'.replace(/^/, String)) {
497 // decode all the values we need
498 while ($count--) $decode[$encode($count)] = $keywords[$count] || $encode($count);
499 // global replacement function
500 $keywords = [function ($encoded) {return $decode[$encoded]}];
501 // generic match
502 $encode = function () {return\'\\\\w+\'};
503 // reset the loop counter - we are now doing a global replace
504 $count = 1;
505 }';
506 */
507
508 // zero encoding
509 // characters: 0123456789
510 const JSFUNCTION_encode10 =
511 'function($charCode) {
512 return $charCode;
513 }';//;';
514
515 // inherent base36 support
516 // characters: 0123456789abcdefghijklmnopqrstuvwxyz
517 const JSFUNCTION_encode36 =
518 'function($charCode) {
519 return $charCode.toString(36);
520 }';//;';
521
522 // hitch a ride on base36 and add the upper case alpha characters
523 // characters: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
524 const JSFUNCTION_encode62 =
525 'function($charCode) {
526 return ($charCode < _encoding ? \'\' : arguments.callee(parseInt($charCode / _encoding))) +
527 (($charCode = $charCode % _encoding) > 35 ? String.fromCharCode($charCode + 29) : $charCode.toString(36));
528 }';
529
530 // use high-ascii values
531 // characters: ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄ�
532 ÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþ
533 const JSFUNCTION_encode95 =
534 'function($charCode) {
535 return ($charCode < _encoding ? \'\' : arguments.callee($charCode / _encoding)) +
536 String.fromCharCode($charCode % _encoding + 161);
537 }';
538
539 }
540
541
542 class ParseMaster {
543 public $ignoreCase = false;
544 public $escapeChar = '';
545
546 // constants
547 const EXPRESSION = 0;
548 const REPLACEMENT = 1;
549 const LENGTH = 2;
550
551 // used to determine nesting levels
552 private $GROUPS = '/\\(/';//g
553 private $SUB_REPLACE = '/\\$\\d/';
554 private $INDEXED = '/^\\$\\d+$/';
555 private $TRIM = '/([\'"])\\1\\.(.*)\\.\\1\\1$/';
556 private $ESCAPE = '/\\\./';//g
557 private $QUOTE = '/\'/';
558 private $DELETED = '/\\x01[^\\x01]*\\x01/';//g
559
560 public function add($expression, $replacement = '') {
561 // count the number of sub-expressions
562 // - add one because each pattern is itself a sub-expression
563 $length = 1 + preg_match_all($this->GROUPS, $this->_internalEscape((string)$expression), $out);
564
565 // treat only strings $replacement
566 if (is_string($replacement)) {
567 // does the pattern deal with sub-expressions?
568 if (preg_match($this->SUB_REPLACE, $replacement)) {
569 // a simple lookup? (e.g. "$2")
570 if (preg_match($this->INDEXED, $replacement)) {
571 // store the index (used for fast retrieval of matched strings)
572 $replacement = (int)(substr($replacement, 1)) - 1;
573 } else { // a complicated lookup (e.g. "Hello $2 $1")
574 // build a function to do the lookup
575 $quote = preg_match($this->QUOTE, $this->_internalEscape($replacement))
576 ? '"' : "'";
577 $replacement = array(
578 'fn' => '_backReferences',
579 'data' => array(
580 'replacement' => $replacement,
581 'length' => $length,
582 'quote' => $quote
583 )
584 );
585 }
586 }
587 }
588 // pass the modified arguments
589 if (!empty($expression)) $this->_add($expression, $replacement, $length);
590 else $this->_add('/^$/', $replacement, $length);
591 }
592
593 public function exec($string) {
594 // execute the global replacement
595 $this->_escaped = array();
596
597 // simulate the _patterns.toSTring of Dean
598 $regexp = '/';
599 foreach ($this->_patterns as $reg) {
600 $regexp .= '(' . substr($reg[self::EXPRESSION], 1, -1) . ')|';
601 }
602 $regexp = substr($regexp, 0, -1) . '/';
603 $regexp .= ($this->ignoreCase) ? 'i' : '';
604
605 $string = $this->_escape($string, $this->escapeChar);
606 $string = preg_replace_callback(
607 $regexp,
608 array(
609 &$this,
610 '_replacement'
611 ),
612 $string
613 );
614 $string = $this->_unescape($string, $this->escapeChar);
615
616 return preg_replace($this->DELETED, '', $string);
617 }
618
619 public function reset() {
620 // clear the patterns collection so that this object may be re-used
621 $this->_patterns = array();
622 }
623
624 // private
625 private $_escaped = array(); // escaped characters
626 private $_patterns = array(); // patterns stored by index
627
628 // create and add a new pattern to the patterns collection
629 private function _add() {
630 $arguments = func_get_args();
631 $this->_patterns[] = $arguments;
632 }
633
634 // this is the global replace function (it's quite complicated)
635 private function _replacement($arguments) {
636 if (empty($arguments)) return '';
637
638 $i = 1; $j = 0;
639 // loop through the patterns
640 while (isset($this->_patterns[$j])) {
641 $pattern = $this->_patterns[$j++];
642 // do we have a result?
643 if (isset($arguments[$i]) && ($arguments[$i] != '')) {
644 $replacement = $pattern[self::REPLACEMENT];
645
646 if (is_array($replacement) && isset($replacement['fn'])) {
647
648 if (isset($replacement['data'])) $this->buffer = $replacement['data'];
649 return call_user_func(array(&$this, $replacement['fn']), $arguments, $i);
650
651 } elseif (is_int($replacement)) {
652 return $arguments[$replacement + $i];
653
654 }
655 $delete = ($this->escapeChar == '' ||
656 strpos($arguments[$i], $this->escapeChar) === false)
657 ? '' : "\x01" . $arguments[$i] . "\x01";
658 return $delete . $replacement;
659
660 // skip over references to sub-expressions
661 } else {
662 $i += $pattern[self::LENGTH];
663 }
664 }
665 }
666
667 private function _backReferences($match, $offset) {
668 $replacement = $this->buffer['replacement'];
669 $quote = $this->buffer['quote'];
670 $i = $this->buffer['length'];
671 while ($i) {
672 $replacement = str_replace('$'.$i--, $match[$offset + $i], $replacement);
673 }
674 return $replacement;
675 }
676
677 private function _replace_name($match, $offset){
678 $length = strlen($match[$offset + 2]);
679 $start = $length - max($length - strlen($match[$offset + 3]), 0);
680 return substr($match[$offset + 1], $start, $length) . $match[$offset + 4];
681 }
682
683 private function _replace_encoded($match, $offset) {
684 return $this->buffer[$match[$offset]];
685 }
686
687
688 // php : we cannot pass additional data to preg_replace_callback,
689 // and we cannot use &$this in create_function, so let's go to lower level
690 private $buffer;
691
692 // encode escaped characters
693 private function _escape($string, $escapeChar) {
694 if ($escapeChar) {
695 $this->buffer = $escapeChar;
696 return preg_replace_callback(
697 '/\\' . $escapeChar . '(.)' .'/',
698 array(&$this, '_escapeBis'),
699 $string
700 );
701
702 } else {
703 return $string;
704 }
705 }
706 private function _escapeBis($match) {
707 $this->_escaped[] = $match[1];
708 return $this->buffer;
709 }
710
711 // decode escaped characters
712 private function _unescape($string, $escapeChar) {
713 if ($escapeChar) {
714 $regexp = '/'.'\\'.$escapeChar.'/';
715 $this->buffer = array('escapeChar'=> $escapeChar, 'i' => 0);
716 return preg_replace_callback
717 (
718 $regexp,
719 array(&$this, '_unescapeBis'),
720 $string
721 );
722
723 } else {
724 return $string;
725 }
726 }
727 private function _unescapeBis() {
728 if (isset($this->_escaped[$this->buffer['i']])
729 && $this->_escaped[$this->buffer['i']] != '')
730 {
731 $temp = $this->_escaped[$this->buffer['i']];
732 } else {
733 $temp = '';
734 }
735 $this->buffer['i']++;
736 return $this->buffer['escapeChar'] . $temp;
737 }
738
739 private function _internalEscape($string) {
740 return preg_replace($this->ESCAPE, '', $string);
741 }
742 }
743 ?>
744