Initial commit.

lib/php/monica/spltline.inc.php

@@ -0,0 +1,46 @@
+<?php
+// File name:	spltline.inc.php
+// Description:	PHP subroutine to split long lines
+// Date:	2004-07-04
+// Author:	imacat <imacat@pristine.com.tw>
+// Copyright:	Copyright (C) 2004-2007 Pristine Communications
+
+// split_long_lines: Split long lines (English only)
+function split_long_lines($source, $line_width)
+{
+    $pos = 0;
+    $result = "";
+    while (preg_match("/^(\S+[^\n\S]*|[^\n\S]+|\n+)/s", $source, $m)) {
+        $piece = $m[1];
+        // Text token
+        if (preg_match("/^\S/", $piece)) {
+            // Split line
+            if ($pos + strlen($piece) > $line_width) {
+                $result .= "\n";
+                $pos = 0;
+            }
+            $result .= $piece;
+            $pos += strlen($piece);
+        
+        // Space token -- skip if over $line_width
+        } elseif (preg_match("/^[^\n\S]/", $piece)) {
+            // Split line
+            if ($pos + strlen($piece) > $line_width) {
+                $result .= "\n";
+                $pos = 0;
+            } else {
+                $result .= $piece;
+                $pos += strlen($piece);
+            }
+        
+        // New-line token -- add it and reset the position
+        } else {
+            $result .= $piece;
+            $pos = 0;
+        }
+        $source = substr($source, strlen($piece));
+    }
+    return $result;
+}
+
+?>