使用PHP重新实现PHP脚本引擎内置函数

1. // {{{ strlen() 
2. /** 
3. * Count string length 
4. * 
5. * @param string $str need count length string variable 
6. * @return int return count result 
7. */ 
8. function strlen1($str) 
9. { 
10. if ($str == '') 
11. return 0; 
12.  
13. $count = 0; 
14. while (1) 
15. { 
16. if ($str[$count] != NULL) 
17. { 
18. $count ; 
19. continue; 
20. } 
21. else 
22. break; 
23. } 
24. return $count; 
25. } 
26. // }}} 
27.  
28.  
29. // {{{ substr() 
30. /** 
31. * Get sub string 
32. * 
33. * @param string $str need get sub string variable 
34. * @param int $start start get sub string 
35. * @param int $length need get string length 
36. * @return string return sub string 
37. */ 
38. function substr1($str, $start, $length=0) 
39. { 
40. if ($str == '') 
41. return; 
42. if ($start > strlen($str)) 
43. return; 
44. if (($length != NULL) && ($start > 0) && ($length > strlen($str)-$start)) 
45. return; 
46. if (($length != NULL) && ($start < 0) && ($length > strlen($str) $start)) 
47. return; 
48.  
49. if ($length == NULL) 
50. $length = (strlen($str) - $start); 
51.  
52. if ($start < 0) 
53. { 
54. for ($i=(strlen($str) $start); $i<(strlen($str) $start $length); $i ) 
55. { 
56. $substr .= $str[$i]; 
57. } 
58. } 
59.  
60. if ($length > 0) 
61. { 
62. for ($i=$start; $i<($start $length); $i ) 
63. { 
64. $substr .= $str[$i]; 
65. } 
66. } 
67.  
68. if ($length < 0) 
69. { 
70. for ($i=$start; $i<(strlen($str) $length); $i )