diff options
| author | Francis Irving <francis@mysociety.org> | 2010-07-13 23:54:46 +0100 |
|---|---|---|
| committer | Francis Irving <francis@mysociety.org> | 2010-07-13 23:54:46 +0100 |
| commit | 59395b3bdf19aed7bf5f77656afa6c31dad7e138 (patch) | |
| tree | b6e4c9f9e5b4a9f792a550ce3af727ae32b1cba1 /vendor/ruby-msg/lib/rtf.rb | |
| parent | 452ac41f05f655a9fd23c8df4796f26632c23050 (diff) | |
| parent | da2c0aaf5f0d07baa3a355033a92d5dd295f2f13 (diff) | |
Merge branch 'master' into francis-profile-photo
Conflicts:
app/views/user/show.rhtml
commonlib
spec/controllers/user_controller_spec.rb
Diffstat (limited to 'vendor/ruby-msg/lib/rtf.rb')
| -rwxr-xr-x | vendor/ruby-msg/lib/rtf.rb | 109 |
1 files changed, 109 insertions, 0 deletions
diff --git a/vendor/ruby-msg/lib/rtf.rb b/vendor/ruby-msg/lib/rtf.rb new file mode 100755 index 000000000..3afac68a8 --- /dev/null +++ b/vendor/ruby-msg/lib/rtf.rb @@ -0,0 +1,109 @@ +require 'stringio' + +# this file is pretty crap, its just to ensure there is always something readable if +# there is an rtf only body, with no html encapsulation. + +module RTF + class Tokenizer + def self.process io + while true do + case c = io.getc + when ?{; yield :open_group + when ?}; yield :close_group + when ?\\ + case c = io.getc + when ?{, ?}, ?\\; yield :text, c.chr + when ?'; yield :text, [io.read(2)].pack('H*') + when ?a..?z, ?A..?Z + # read control word + str = c.chr + str << c while c = io.read(1) and c =~ /[a-zA-Z]/ + neg = 1 + neg = -1 and c = io.read(1) if c == '-' + num = if c =~ /[0-9]/ + num = c + num << c while c = io.read(1) and c =~ /[0-9]/ + num.to_i * neg + end + raise "invalid rtf stream" if neg == -1 and !num # ???? \blahblah- some text + io.seek(-1, IO::SEEK_CUR) if c != ' ' + yield :control_word, str, num + when nil + raise "invalid rtf stream" # \EOF + else + # other kind of control symbol + yield :control_symbol, c.chr + end + when nil + return + when ?\r, ?\n + # ignore + else yield :text, c.chr + end + end + end + end + + class Converter + # crappy + def self.rtf2text str, format=:text + group = 0 + text = '' + text << "<html>\n<body>" if format == :html + group_type = [] + group_tags = [] + RTF::Tokenizer.process(StringIO.new(str)) do |a, b, c| + add_text = '' + case a + when :open_group; group += 1; group_type[group] = nil; group_tags[group] = [] + when :close_group; group_tags[group].reverse.each { |t| text << "</#{t}>" }; group -= 1; + when :control_word; # ignore + group_type[group] ||= b + # maybe change this to use utf8 where possible + add_text = if b == 'par' || b == 'line' || b == 'page'; "\n" + elsif b == 'tab' || b == 'cell'; "\t" + elsif b == 'endash' || b == 'emdash'; "-" + elsif b == 'emspace' || b == 'enspace' || b == 'qmspace'; " " + elsif b == 'ldblquote'; '"' + else '' + end + if b == 'b' || b == 'i' and format == :html + close = c == 0 ? '/' : '' + text << "<#{close}#{b}>" + if c == 0 + group_tags[group].delete b + else + group_tags[group] << b + end + end + # lot of other ones belong in here.\ +=begin +\bullet Bullet character. +\lquote Left single quotation mark. +\rquote Right single quotation mark. +\ldblquote Left double quotation mark. +\rdblquote +=end + when :control_symbol; # ignore + group_type[group] ||= b + add_text = ' ' if b == '~' # non-breakable space + add_text = '-' if b == '_' # non-breakable hypen + when :text + add_text = b if group <= 1 or group_type[group] == 'rtlch' && !group_type[0...group].include?('*') + end + if format == :html + text << add_text.gsub(/([<>&"'])/) do + ent = { '<' => 'lt', '>' => 'gt', '&' => 'amp', '"' => 'quot', "'" => 'apos' }[$1] + "&#{ent};" + end + text << '<br>' if add_text == "\n" + else + text << add_text + end + end + text << "</body>\n</html>\n" if format == :html + text + end + end +end + |