/[LeafOK_CVS]/fenglin/lib/str_process.inc.php
ViewVC logotype

Diff of /fenglin/lib/str_process.inc.php

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1.4 by sysadm, Mon Jun 28 22:55:35 2004 UTC Revision 1.15 by sysadm, Mon Apr 7 06:26:44 2025 UTC
# Line 1  Line 1 
1  <?  <?
2    function str_length(string $str) : string
 function split_line($str,$prefix="",$width=75)  
3  {  {
         $lines = array();  
         $lines_count = 0;  
4          $len = strlen($str);          $len = strlen($str);
5            $ret = 0;
6    
7          $hz_ok = true;          for ($i = 0; $i < $len; $i++)
8                    {
9          if ($width<=0)                  $c = $str[$i];
10    
11                    // Process UTF-8 Chinese characters
12                    $v1 = ord($c);
13                    if (($v1 & 0b10000000) == 0b10000000) //head of multi-byte character
14                    {
15                            $v2 = ($v1 & 0b01111000) << 1;
16                            while ($v2 & 0b10000000)
17                            {
18                                    $i++;
19                                    $v3 = $str[$i];
20                                    $c .= $v3;
21                                    $v2 = ($v2 & 0b01111111 ) << 1;
22                            }
23    
24                            $ret += 2;
25                    }
26                    else
27                    {
28                            $ret++;
29                    }
30            }
31    
32            return $ret;
33    }
34    
35    function split_line(string $str, string $prefix = "", int $width = 76, int $lines_limit = PHP_INT_MAX, string $end_of_line = "\n") : string
36    {
37            if ($width <= 0)
38            {
39                  return $str;                  return $str;
40            }
41                    
42            $result = "";
43            $len = strlen($str);
44            $prefix_len = str_length($prefix);
45    
46            $lines_count = 0;
47    
48          $line = $prefix;          $line = $prefix;
49          $line_count = strlen($line);          $line_len = $prefix_len;
50          for($i=0;$i<$len;$i++)          for ($i = 0; $i < $len && $lines_count < $lines_limit; $i++)
51          {          {
52                  $line.=$str[$i];                  $c = $str[$i];
53                  $line_count++;  
54                  if (ord($str[$i])>127)                  // Skip special characters
55                    if ($c == "\r" || $c == "\7")
56                    {
57                            continue;
58                    }
59                                    
60                    if ($c == "\n")
61                  {                  {
62                          $hz_ok = (!$hz_ok);                          if ($lines_count + 1 >= $lines_limit)
63                            {
64                                    break;
65                            }
66    
67                            $result .= ($line . $end_of_line);
68                            $lines_count++;
69                            $line = $prefix;
70                            $line_len = $prefix_len;
71                            continue;
72                  }                  }
73                  if (ord($str[$i])<=127)  
74                    // Process UTF-8 Chinese characters
75                    $v1 = ord($c);
76                    if (($v1 & 0b10000000) == 0b10000000) //head of multi-byte character
77                  {                  {
78                          $hz_ok = true;                          $v2 = ($v1 & 0b01111000) << 1;
79                            while ($v2 & 0b10000000)
80                            {
81                                    $i++;
82                                    $v3 = $str[$i];
83                                    $c .= $v3;
84                                    $v2 = ($v2 & 0b01111111 ) << 1;
85                            }
86    
87                            // Each UTF-8 CJK character should use two character length for display
88                            if ($line_len + 2 > $width)
89                            {
90                                    if ($lines_count + 1 >= $lines_limit)
91                                    {
92                                            break;
93                                    }
94    
95                                    $result .= ($line . $end_of_line);
96                                    $lines_count++;
97                                    $line = $prefix;
98                                    $line_len = $prefix_len;
99                            }
100                            $line_len += 2;
101                  }                  }
102                  if ($line_count >= $width && $hz_ok)                  else
103                  {                  {
104                          $lines[$lines_count++] = $line;                          $line_len++;
105                    }
106    
107                    if ($line_len > $width)
108                    {
109                            if ($lines_count + 1 >= $lines_limit)
110                            {
111                                    break;
112                            }
113    
114                            $result .= ($line . $end_of_line);
115                            $lines_count++;
116                          $line = $prefix;                          $line = $prefix;
117                          $line_count = strlen($line);                          $line_len = $prefix_len + 1;
118                  }                  }
         }  
         $lines[$lines_count++] = $line;  
119    
120          $result = "";                  $line .= $c;
         for($i=0;$i<$lines_count;$i++)  
         {  
                 $result.=($lines[$i]."\r\n");  
121          }          }
         return $result;  
 }  
122    
123  function str_process($str,$prefix="",$width=75)          if ($lines_count < $lines_limit)
 {  
         $result = "";  
           
         $lines = explode("\n",str_replace("\r\n","\n",$str));  
   
         foreach($lines as $line)  
124          {          {
125                  $result .= split_line($line,$prefix,$width);                  $result .= $line;
126          }          }
127            
128          return $result;          return $result;
129  }  }
   
130  ?>  ?>

Legend:
Removed lines/characters  
Changed lines/characters
  Added lines/characters
webmaster@leafok.com
 ViewVC Help
Powered by ViewVC 1.3.0-beta1