rumbster 1.0.0 → 1.0.1

data/vendor/tmail/parser.y

@@ -1,372 +0,0 @@
-#
-# parser.y
-#
-# Copyright (c) 1998-2004 Minero Aoki
-#
-# This program is free software.
-# You can distribute/modify this program under the terms of
-# the GNU Lesser General Public License version 2.1.
-#
-
-class TMail::Parser
-
-  options no_result_var
-
-rule
-
-  content   : DATETIME      datetime   { val[1] }
-            | RECEIVED      received   { val[1] }
-            | MADDRESS      addrs_TOP  { val[1] }
-            | RETPATH       retpath    { val[1] }
-            | KEYWORDS      keys       { val[1] }
-            | ENCRYPTED     enc        { val[1] }
-            | MIMEVERSION   version    { val[1] }
-            | CTYPE         ctype      { val[1] }
-            | CENCODING     cencode    { val[1] }
-            | CDISPOSITION  cdisp      { val[1] }
-            | ADDRESS       addr_TOP   { val[1] }
-            | MAILBOX       mbox       { val[1] }
-  
-  datetime  : day DIGIT ATOM DIGIT hour zone
-            # 0   1     2    3     4    5
-            #     date month year
-                {
-                  t = Time.gm(val[3].to_i, val[2], val[1].to_i, 0, 0, 0)
-                  (t + val[4] - val[5]).localtime
-                }
-  
-  day       :  /* none */
-            | ATOM ','
-  
-  hour      : DIGIT ':' DIGIT
-                {
-                  (val[0].to_i * 60 * 60) +
-                  (val[2].to_i * 60)
-                }
-            | DIGIT ':' DIGIT ':' DIGIT
-                {
-                  (val[0].to_i * 60 * 60) +
-                  (val[2].to_i * 60) +
-                  (val[4].to_i)
-                }
-  
-  zone      : ATOM
-                {
-                  timezone_string_to_unixtime(val[0])
-                }
-  
-  received  : from by via with id for received_datetime
-                {
-                  val
-                }
-  
-  from      : /* none */
-            | FROM received_domain
-                {
-                  val[1]
-                }
-  
-  by        :  /* none */
-            | BY received_domain
-                {
-                  val[1]
-                }
-  
-  received_domain
-            : domain
-                {
-                  join_domain(val[0])
-                }
-            | domain '@' domain
-                {
-                  join_domain(val[2])
-                }
-            | domain DOMLIT
-                {
-                  join_domain(val[0])
-                }
-  
-  via       :  /* none */
-            | VIA ATOM
-                {
-                  val[1]
-                }
-  
-  with      : /* none */
-                {
-                  []
-                }
-            | with WITH ATOM
-                {
-                  val[0].push val[2]
-                  val[0]
-                }
-  
-  id        :  /* none */
-            | ID msgid
-                {
-                  val[1]
-                }
-            | ID ATOM
-                {
-                  val[1]
-                }
-  
-  for       :  /* none */
-            | FOR received_addrspec
-                {
-                  val[1]
-                }
-
-  received_addrspec
-            : routeaddr
-                {
-                  val[0].spec
-                }
-            | spec
-                {
-                  val[0].spec
-                }
-  
-  received_datetime
-            :  /* none */
-            | ';' datetime
-                {
-                  val[1]
-                }
-  
-  addrs_TOP : addrs
-            | group_bare
-            | addrs commas group_bare
-
-  addr_TOP  : mbox
-            | group
-            | group_bare
-
-  retpath   : addrs_TOP
-            | '<' '>' { [ Address.new(nil, nil) ] }
-
-  addrs     : addr           { val }
-            | addrs commas addr { val[0].push val[2]; val[0] }
-
-  addr      : mbox
-            | group
-
-  mboxes    : mbox
-                {
-                  val
-                }
-            | mboxes commas mbox
-                {
-                  val[0].push val[2]
-                  val[0]
-                }
-
-  mbox      : spec
-            | routeaddr
-            | addr_phrase routeaddr
-                {
-                  val[1].phrase = Decoder.decode(val[0])
-                  val[1]
-                }
-
-  group     : group_bare ';'
-
-  group_bare: addr_phrase ':' mboxes
-                {
-                  AddressGroup.new(val[0], val[2])
-                }
-            | addr_phrase ':' { AddressGroup.new(val[0], []) }
-  
-  addr_phrase
-            : local_head             { val[0].join('.') }
-            | addr_phrase local_head { val[0] << ' ' << val[1].join('.') }
-
-  routeaddr : '<' routes spec '>'
-                {
-                  val[2].routes.replace val[1]
-                  val[2]
-                }
-            | '<' spec '>'
-                {
-                  val[1]
-                }
-  
-  routes    : at_domains ':'
-  
-  at_domains: '@' domain                { [ val[1].join('.') ] }
-            | at_domains ',' '@' domain { val[0].push val[3].join('.'); val[0] }
-  
-  spec      : local '@' domain { Address.new( val[0], val[2] ) }
-            | local            { Address.new( val[0], nil ) }
-  
-  local: local_head
-       | local_head '.' { val[0].push ''; val[0] }
-
-  local_head: word
-                { val }
-            | local_head dots word
-                {
-                  val[1].times do
-                    val[0].push ''
-                  end
-                  val[0].push val[2]
-                  val[0]
-                }
-  
-  domain    : domword
-                { val }
-            | domain dots domword
-                {
-                  val[1].times do
-                    val[0].push ''
-                  end
-                  val[0].push val[2]
-                  val[0]
-                }
-
-  dots      : '.'     { 0 }
-            | '.' '.' { 1 }
-
-  word      : atom
-            | QUOTED
-            | DIGIT
-
-  domword   : atom
-            | DOMLIT
-            | DIGIT
-
-  commas    : ','
-            | commas ','
-
-  msgid     : '<' spec '>'
-                {
-                  val[1] = val[1].spec
-                  val.join('')
-                }
-
-  keys      : phrase          { val }
-            | keys ',' phrase { val[0].push val[2]; val[0] }
-  
-  phrase    : word
-            | phrase word { val[0] << ' ' << val[1] }
-  
-  enc       : word
-                {
-                  val.push nil
-                  val
-                }
-            | word word
-                {
-                  val
-                }
-
-  version   : DIGIT '.' DIGIT
-                {
-                  [ val[0].to_i, val[2].to_i ]
-                }
-
-  ctype     : TOKEN '/' TOKEN params opt_semicolon
-                {
-                  [ val[0].downcase, val[2].downcase, decode_params(val[3]) ]
-                }
-            | TOKEN params opt_semicolon
-                {
-                  [ val[0].downcase, nil, decode_params(val[1]) ]
-                }
-  
-  params    : /* none */
-                {
-                  {}
-                }
-            | params ';' TOKEN '=' value
-                {
-                  val[0][ val[2].downcase ] = val[4]
-                  val[0]
-                }
-
-  value     : TOKEN
-            | QUOTED
-
-  cencode   : TOKEN
-                {
-                  val[0].downcase
-                }
-
-  cdisp     : TOKEN params opt_semicolon
-                {
-                  [ val[0].downcase, decode_params(val[1]) ]
-                }
-  
-  opt_semicolon
-            :
-            | ';'
-              
-  atom      : ATOM
-            | FROM
-            | BY
-            | VIA
-            | WITH
-            | ID
-            | FOR
-  
-end
-
-
----- header
-#
-# parser.rb
-#
-# Copyright (c) 1998-2004 Minero Aoki
-#
-# This program is free software.
-# You can distribute/modify this program under the terms of
-# the GNU Lesser General Public License version 2.1.
-#
-
-require 'tmail/scanner'
-require 'tmail/textutils'
-
----- inner
-
-  include TextUtils
-
-  def self.parse( ident, str, cmt = nil )
-    new.parse(ident, str, cmt)
-  end
-
-  MAILP_DEBUG = false
-
-  def initialize
-    self.debug = MAILP_DEBUG
-  end
-
-  def debug=( flag )
-    @yydebug = flag && Racc_debug_parser
-    @scanner_debug = flag
-  end
-
-  def debug
-    @yydebug
-  end
-
-  def parse( ident, str, comments = nil )
-    @scanner = Scanner.new(str, ident, comments)
-    @scanner.debug = @scanner_debug
-    @first = [ident, ident]
-    result = yyparse(self, :parse_in)
-    comments.map! {|c| to_kcode(c) } if comments
-    result
-  end
-
-  private
-
-  def parse_in( &block )
-    yield @first
-    @scanner.scan(&block)
-  end
-  
-  def on_error( t, val, vstack )
-    raise SyntaxError, "parse error on token #{racc_token2str t}"
-  end
-

data/vendor/tmail/port.rb

@@ -1,356 +0,0 @@
-#
-# port.rb
-#
-# Copyright (c) 1998-2004 Minero Aoki
-#
-# This program is free software.
-# You can distribute/modify this program under the terms of
-# the GNU Lesser General Public License version 2.1.
-#
-
-require 'tmail/stringio'
-
-module TMail
-
-  class Port
-    def reproducible?
-      false
-    end
-  end
-
-
-  ###
-  ### FilePort
-  ###
-
-  class FilePort < Port
-
-    def initialize(fname)
-      @path = File.expand_path(fname)
-      super()
-    end
-
-    attr_reader :path
-    alias filename path
-
-    alias ident path
-
-    def ==(other)
-      other.respond_to?(:path) and @path == other.path
-    end
-
-    alias eql? ==
-
-    def hash
-      @path.hash
-    end
-
-    def inspect
-      "#<#{self.class} #{@path}>"
-    end
-
-    def reproducible?
-      true
-    end
-
-    def size
-      File.size(@path)
-    end
-
-
-    def ropen(&block)
-      File.open(@path, &block)
-    end
-
-    def wopen(&block)
-      File.open(@path, 'w', &block)
-    end
-
-    def aopen(&block)
-      File.open(@path, 'a', &block)
-    end
-
-
-    def read_all
-      ropen {|f|
-        return f.read
-      }
-    end
-
-
-    def remove
-      File.unlink @path
-    end
-
-    def move_to(port)
-      begin
-        File.link @path, port.path
-      rescue Errno::EXDEV
-        copy_to port
-      end
-      File.unlink @path
-    end
-
-    alias mv move_to
-
-    def copy_to(port)
-      if port.is_a?(FilePort)
-        copy_file @path, port.path
-      else
-        File.open(@path) {|r|
-          port.wopen {|w|
-            while s = r.sysread(4096)
-              w.write << s
-            end
-          }
-        }
-      end
-    end
-
-    alias cp copy_to
-
-    private
-
-    def copy_file(src, dest)
-      File.open(src,  'rb') {|r|
-        File.open(dest, 'wb') {|w|
-          while str = r.read(2048)
-            w.write str
-          end
-        }
-      }
-    end
-
-  end
-
-
-  module MailFlags
-
-    def seen=(b)
-      set_status 'S', b
-    end
-
-    def seen?
-      get_status 'S'
-    end
-
-    def replied=(b)
-      set_status 'R', b
-    end
-
-    def replied?
-      get_status 'R'
-    end
-
-    def flagged=(b)
-      set_status 'F', b
-    end
-
-    def flagged?
-      get_status 'F'
-    end
-
-    private
-
-    def procinfostr(str, tag, true_p)
-      a = str.upcase.split(//)
-      a.push true_p ? tag : nil
-      a.delete tag unless true_p
-      a.compact.sort.join('').squeeze
-    end
-  
-  end
-
-
-  class MhPort < FilePort
-
-    include MailFlags
-
-    private
-    
-    def set_status(tag, flag)
-      begin
-        tmpfile = "#{@path}.tmailtmp.#{$$}"
-        File.open(tmpfile, 'w') {|f|
-          write_status f, tag, flag
-        }
-        File.unlink @path
-        File.link tmpfile, @path
-      ensure
-        File.unlink tmpfile
-      end
-    end
-
-    def write_status(f, tag, flag)
-      stat = ''
-      File.open(@path) {|r|
-        while line = r.gets
-          if line.strip.empty?
-            break
-          elsif m = /\AX-TMail-Status:/i.match(line)
-            stat = m.post_match.strip
-          else
-            f.print line
-          end
-        end
-
-        s = procinfostr(stat, tag, flag)
-        f.puts 'X-TMail-Status: ' + s unless s.empty?
-        f.puts
-
-        while s = r.read(2048)
-          f.write s
-        end
-      }
-    end
-
-    def get_status(tag)
-      File.foreach(@path) {|line|
-        return false if line.strip.empty?
-        if m = /\AX-TMail-Status:/i.match(line)
-          return m.post_match.strip.include?(tag[0])
-        end
-      }
-      false
-    end
-  
-  end
-
-
-  class MaildirPort < FilePort
-
-    def move_to_new
-      new = replace_dir(@path, 'new')
-      File.rename @path, new
-      @path = new
-    end
-
-    def move_to_cur
-      new = replace_dir(@path, 'cur')
-      File.rename @path, new
-      @path = new
-    end
-
-    def replace_dir(path, dir)
-      "#{File.dirname File.dirname(path)}/#{dir}/#{File.basename path}"
-    end
-    private :replace_dir
-
-
-    include MailFlags
-
-    private
-
-    MAIL_FILE = /\A(\d+\.[\d_]+\.[^:]+)(?:\:(\d),(\w+)?)?\z/
-
-    def set_status(tag, flag)
-      if m = MAIL_FILE.match(File.basename(@path))
-        s, uniq, type, info, = m.to_a
-        return if type and type != '2'  # do not change anything
-        newname = File.dirname(@path) + '/' +
-                  uniq + ':2,' + procinfostr(info.to_s, tag, flag)
-      else
-        newname = @path + ':2,' + tag
-      end
-
-      File.link @path, newname
-      File.unlink @path
-      @path = newname
-    end
-
-    def get_status(tag)
-      m = MAIL_FILE.match(File.basename(@path)) or return false
-      m[2] == '2' and m[3].to_s.include?(tag[0])
-    end
-  
-  end
-
-
-  ###
-  ###  StringPort
-  ###
-
-  class StringPort < Port
-
-    def initialize(str = '')
-      @buffer = str
-      super()
-    end
-
-    def string
-      @buffer
-    end
-
-    def to_s
-      @buffer.dup
-    end
-
-    alias read_all to_s
-
-    def size
-      @buffer.size
-    end
-
-    def ==(other)
-      other.is_a?(StringPort) and @buffer.equal?(other.string)
-    end
-
-    alias eql? ==
-
-    def hash
-      @buffer.object_id.hash
-    end
-
-    def inspect
-      "#<#{self.class}:id=#{sprintf '0x%x', @buffer.object_id}>"
-    end
-
-    def reproducible?
-      true
-    end
-
-    def ropen(&block)
-      # FIXME: Should we raise ENOENT?
-      raise Errno::ENOENT, "#{inspect} is already removed" unless @buffer
-      StringInput.open(@buffer, &block)
-    end
-
-    def wopen(&block)
-      @buffer = ''
-      StringOutput.new(@buffer, &block)
-    end
-
-    def aopen(&block)
-      @buffer ||= ''
-      StringOutput.new(@buffer, &block)
-    end
-
-    def remove
-      @buffer = nil
-    end
-
-    alias rm remove
-
-    def copy_to(port)
-      port.wopen {|f|
-        f.write @buffer
-      }
-    end
-
-    alias cp copy_to
-
-    def move_to(port)
-      if port.is_a?(StringPort)
-        tmp = @buffer
-        port.instance_eval {
-          @buffer = tmp
-        }
-      else
-        copy_to port
-      end
-      remove
-    end
-
-  end
-
-end   # module TMail