Class: Fraggel::Decoder

Inherits:
Object
  • Object
show all
Defined in:
lib/fraggel/decoder.rb

Defined Under Namespace

Classes: Poisioned

Instance Method Summary collapse

Constructor Details

#initialize(&blk) ⇒ Decoder

Returns a new instance of Decoder.



7
8
9
 
# File 'lib/fraggel/decoder.rb', line 7

def initialize(&blk)
  @receiver = blk
end

Instance Method Details

#dcs(&blk) ⇒ Object 



22
23
24
25
 
# File 'lib/fraggel/decoder.rb', line 22

def dcs(&blk)
  @dcs = blk
  @dcs.call
end

#finish(&blk) ⇒ Object 



67
68
69
70
71
72
73
74
75
76
77
78
79
 
# File 'lib/fraggel/decoder.rb', line 67

def finish(&blk)
  dcs do
    c = @buf.slice!(0)
    case c
    when nil
      # Wait for next byte
    when ?\n
      blk.call
    else
      raise Poisioned
    end
  end
end

#read_integer(&blk) ⇒ Object 



81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
# File 'lib/fraggel/decoder.rb', line 81

def read_integer(&blk)
  @int = ""
  dcs do
    while c = @buf.slice!(0)
      case c
      when ?0..?9
        @int << c.chr
      when ?\r
        finish do
          blk.call(Integer(@int))
        end
      else
        raise Poisioned
      end
    end
  end
end

#read_line(&blk) ⇒ Object 



121
122
123
124
125
126
127
128
129
 
# File 'lib/fraggel/decoder.rb', line 121

def read_line(&blk)
  dcs do
    if line = @buf.slice!(/.*\r/)
      finish do
        blk.call(line.chomp)
      end
    end
  end
end

#read_string(&blk) ⇒ Object 



99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
 
# File 'lib/fraggel/decoder.rb', line 99

def read_string(&blk)
  read_integer do |count|
    dcs do
      if @buf.length >= count
        string = @buf.slice!(0, count)
        dcs do
          case @buf.slice!(0)
          when nil
            # Wait for next byte
          when ?\r
            finish do
              blk.call(string)
            end
          else
            raise Poisioned
          end
        end
      end
    end
  end
end

#read_type ⇒ Object 



27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
# File 'lib/fraggel/decoder.rb', line 27

def read_type
  dcs do
    case @buf.slice!(0)
    when nil
      # Wait for next byte
    when ?\r
      finish do
        read_type
      end
    when ?:
      read_integer do |i|
        @receiver.call(:value, i)
        read_type
      end
    when ?$
      read_string do |s|
        @receiver.call(:value, s)
        read_type
      end
    when ?+
      read_line do |msg|
        @receiver.call(:status, msg)
        read_type
      end
    when ?-
      read_line do |msg|
        @receiver.call(:error, msg)
        read_type
      end
    when ?*
      read_integer do |count|
        @receiver.call(:array, count)
        read_type
      end
    else
      raise Poisioned
    end
  end
end

#receive_data(data) ⇒ Object 



11
12
13
14
15
16
17
18
19
20
 
# File 'lib/fraggel/decoder.rb', line 11

def receive_data(data)
  @buf ||= ""
  @buf << data

  if ! @dcs
    read_type
  else
    @dcs.call
  end
end