[xiph-commits] r14689 - branches/dir.xiph.org/inc

[balbinus at svn.xiph.org]

Author: balbinus
Date: 2008-04-10 05:45:02 -0700 (Thu, 10 Apr 2008)
New Revision: 14689

Added:
   branches/dir.xiph.org/inc/lib.utils.php
Log:
Quickfixes bis.

Added: branches/dir.xiph.org/inc/lib.utils.php
===================================================================
--- branches/dir.xiph.org/inc/lib.utils.php	                        (rev 0)
+++ branches/dir.xiph.org/inc/lib.utils.php	2008-04-10 12:45:02 UTC (rev 14689)
@@ -0,0 +1,30 @@
+<?php
+
+class utils
+{
+    /**
+     * Détecte si une chaîne est en UTF8
+     */
+    public static function is_utf8($str)
+    {
+        if (preg_match('%^(?:
+             [\x09\x0A\x0D\x20-\x7E]            # ASCII
+           | [\xC2-\xDF][\x80-\xBF]            # non-overlong 2-byte
+           |  \xE0[\xA0-\xBF][\x80-\xBF]        # excluding overlongs
+           | [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}  # straight 3-byte
+           |  \xED[\x80-\x9F][\x80-\xBF]        # excluding surrogates
+           |  \xF0[\x90-\xBF][\x80-\xBF]{2}    # planes 1-3
+           | [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
+           |  \xF4[\x80-\x8F][\x80-\xBF]{2}    # plane 16
+            )*$%xs', $str))
+        {
+            return true;
+        }
+        else
+        {
+            return false;
+        }
+    }
+}
+
+?>