File: fold.rb

package info (click to toggle)
haskell-text 1.2.0.6-1~bpo8%2B1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-backports
  • size: 900 kB
  • sloc: haskell: 9,299; ansic: 238; python: 87; ruby: 84; sh: 49; makefile: 29
file content (50 lines) | stat: -rw-r--r-- 1,095 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/env ruby

require './utils.rb'

def fold(filename, max_width)
  File.open(filename, 'r:utf-8') do |file|
    # Words in this paragraph
    paragraph = []

    file.each_line do |line|
      # If we encounter an empty line, we reformat and dump the current
      # paragraph
      if line.strip.empty?
        puts fold_paragraph(paragraph, max_width)
        puts
        paragraph = []
      # Otherwise, we append the words found in the line to the paragraph
      else
        paragraph.concat line.split
      end
    end

    # Last paragraph
    puts fold_paragraph(paragraph, max_width) unless paragraph.empty?
  end
end

# Fold a single paragraph to the desired width
def fold_paragraph(paragraph, max_width)
  # Gradually build our output
  str, *rest = paragraph
  width = str.length

  rest.each do |word|
    if width + word.length + 1 <= max_width
      str << ' ' << word
      width += word.length + 1
    else
      str << "\n" << word
      width = word.length
    end
  end

  str
end

ARGV.each do |f|
  t = benchmark { fold(f, 80) }
  STDERR.puts "#{f}: #{t}"
end