Initial data commit

Task/Word-wrap/AppleScript/word-wrap-3.applescript

@@ -0,0 +1,32 @@
+on wrapParagraph(para, lineWidth)
+    set theLines to {}
+    set spaceTab to space & tab
+    set len to (count para)
+    set i to 1
+    repeat until (i > len)
+        set j to i + lineWidth - 1
+        if (j < len) then
+            repeat with j from j to i by -1
+                if (character j of para is in spaceTab) then exit repeat
+            end repeat
+            -- The "greedy" algorithm keeps words which are longer than or
+            -- the same length as the line width intact. Do the same here.
+            if (j = i) then
+                repeat with j from (i + lineWidth) to len
+                    if (character j of para is in spaceTab) then exit repeat
+                end repeat
+            end if
+        else
+            set j to len
+        end if
+        set end of theLines to text i thru j of para
+        set i to j + 1
+    end repeat
+
+    set astid to AppleScript's text item delimiters
+    set AppleScript's text item delimiters to character id 8232 -- U+2028 (LINE SEPARATOR).
+    set output to theLines as text
+    set AppleScript's text item delimiters to astid
+
+    return output
+end wrapParagraph