fxri 0.3.2 → 0.3.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (15) hide show
  1. data/fxri +260 -258
  2. data/fxri.gemspec +16 -16
  3. data/fxri.kpf +66 -0
  4. data/lib/Empty_Text_Field_Handler.rb +57 -57
  5. data/lib/FoxDisplayer.rb +146 -146
  6. data/lib/FoxTextFormatter.rb +270 -260
  7. data/lib/Globals.rb +3 -2
  8. data/lib/Icon_Loader.rb +30 -30
  9. data/lib/Packet_Item.rb +167 -167
  10. data/lib/Packet_List.rb +187 -187
  11. data/lib/Recursive_Open_Struct.rb +205 -205
  12. data/lib/RiManager.rb +133 -133
  13. data/lib/Search_Engine.rb +159 -159
  14. data/lib/fxirb.rb +321 -332
  15. metadata +51 -42
data/lib/Search_Engine.rb CHANGED
@@ -1,165 +1,165 @@
1
1
  # Copyright (c) 2005 Martin Ankerl
2
2
  class Search_Engine
3
- def initialize(gui, data)
4
- @gui = gui
5
- @data = data
6
- @search_thread = nil
7
- end
8
-
9
- # Executed whenever a search criteria changes to update the packet list.
10
- def on_search
11
- # restart current search
12
- @end_time = Time.now + $cfg.search_delay
13
- @restart_search = true
14
- @gui.search_label.enabled = false
15
- return if @search_thread && @search_thread.status
16
-
17
- @search_thread = Thread.new(@search_thread) do
18
- begin
19
- @gui.search_label.enabled = false
20
- # wait untill deadline
21
- while (t = (@end_time - Time.now)) > 0
22
- sleep(t)
23
- end
24
-
25
- @data.gui_mutex.synchronize do
26
- # the thread has to use the gui mutex inside
27
- @restart_search = false
28
-
29
- match_data = get_match_data
30
-
31
- # remove all items
32
- @gui.packet_list.dirty_clear
33
-
34
- # add all items that match the search criteria
35
- status_text_deadline = Time.now + $cfg.status_line_update_interval
36
- @data.items.each do |item|
37
- #item.parent = @gui.packet_list if match?(item, match_data)
38
- if match?(item, match_data)
39
- item.show
40
- now = Time.now
41
- if now > status_text_deadline
42
- update_search_status_text
43
- status_text_deadline = now + $cfg.status_line_update_interval
44
- end
45
- end
46
- break if @restart_search
47
- end
48
- update_search_status_text
49
-
50
- if (@gui.packet_list.numItems > 0)
51
- @gui.packet_list.setCurrentItem(0)
52
- @gui.packet_list.selectItem(0)
53
- @gui.main.show_info(@gui.packet_list.getItem(0).packet_item.data)
54
- end
55
- @gui.search_label.enabled = true
56
-
57
- end # synchronize
58
- end while @restart_search# || match_data != @gui.search_field.text.downcase.split
59
- end #thread.new
60
- end
61
-
62
- def get_match_data
63
- str_to_match_data(@gui.search_field.text)
64
- end
65
-
66
- # Converts a string into a match_data representation.
67
- def str_to_match_data(str, index=0)
68
- words = [ ]
69
- exclude = [ ]
70
- is_exclude = false
71
-
72
- while str[index]
73
- case str[index]
74
- when ?", ?'
75
- word, index = get_word(str, index+1, str[index])
76
- unless word.empty?
77
- if is_exclude
78
- exclude.push word
79
- is_exclude = false
80
- else
81
- words.push word
82
- end
83
- end
84
-
85
- when 32 # space
86
- is_exclude = false
3
+ def initialize(gui, data)
4
+ @gui = gui
5
+ @data = data
6
+ @search_thread = nil
7
+ end
8
+
9
+ # Executed whenever a search criteria changes to update the packet list.
10
+ def on_search
11
+ # restart current search
12
+ @end_time = Time.now + $cfg.search_delay
13
+ @restart_search = true
14
+ @gui.search_label.enabled = false
15
+ return if @search_thread && @search_thread.status
16
+
17
+ @search_thread = Thread.new(@search_thread) do
18
+ begin
19
+ @gui.search_label.enabled = false
20
+ # wait untill deadline
21
+ while (t = (@end_time - Time.now)) > 0
22
+ sleep(t)
23
+ end
24
+
25
+ @data.gui_mutex.synchronize do
26
+ # the thread has to use the gui mutex inside
27
+ @restart_search = false
28
+
29
+ match_data = get_match_data
30
+
31
+ # remove all items
32
+ @gui.packet_list.dirty_clear
33
+
34
+ # add all items that match the search criteria
35
+ status_text_deadline = Time.now + $cfg.status_line_update_interval
36
+ @data.items.each do |item|
37
+ #item.parent = @gui.packet_list if match?(item, match_data)
38
+ if match?(item, match_data)
39
+ item.show
40
+ now = Time.now
41
+ if now > status_text_deadline
42
+ update_search_status_text
43
+ status_text_deadline = now + $cfg.status_line_update_interval
44
+ end
45
+ end
46
+ break if @restart_search
47
+ end
48
+ update_search_status_text
49
+
50
+ if (@gui.packet_list.numItems > 0)
51
+ @gui.packet_list.setCurrentItem(0)
52
+ @gui.packet_list.selectItem(0)
53
+ @gui.main.show_info(@gui.packet_list.getItem(0).packet_item.data)
54
+ end
55
+ @gui.search_label.enabled = true
56
+
57
+ end # synchronize
58
+ end while @restart_search# || match_data != @gui.search_field.text.downcase.split
59
+ end #thread.new
60
+ end
61
+
62
+ def get_match_data
63
+ str_to_match_data(@gui.search_field.text)
64
+ end
65
+
66
+ # Converts a string into a match_data representation.
67
+ def str_to_match_data(str, index=0)
68
+ words = [ ]
69
+ exclude = [ ]
70
+ is_exclude = false
71
+
72
+ while str[index]
73
+ case str[index]
74
+ when ?", ?'
75
+ word, index = get_word(str, index+1, str[index])
76
+ unless word.empty?
77
+ if is_exclude
78
+ exclude.push word
79
+ is_exclude = false
80
+ else
81
+ words.push word
82
+ end
83
+ end
84
+
85
+ when 32 # space
86
+ is_exclude = false
87
87
 
88
88
  =begin
89
- when ?>
90
- min, index = get_word(str, index+1)
91
- min = @gui.logic.size_to_nr(min)
92
-
93
- when ?<
94
- max, index = get_word(str, index+1)
95
- max = @gui.logic.size_to_nr(max)
89
+ when ?>
90
+ min, index = get_word(str, index+1)
91
+ min = @gui.logic.size_to_nr(min)
92
+
93
+ when ?<
94
+ max, index = get_word(str, index+1)
95
+ max = @gui.logic.size_to_nr(max)
96
96
  =end
97
- when ?-
98
- is_exclude = true
99
-
100
- else
101
- word, index = get_word(str, index)
102
- if is_exclude
103
- exclude.push word
104
- is_exclude = false
105
- else
106
- words.push word
107
- end
108
- end
109
-
110
- index += 1
111
- end
112
-
113
- # check if word has upcase letters
114
- words.collect! do |w|
115
- [w, /[A-Z]/.match(w)!=nil]
116
- end
117
- exclude.collect! do |w|
118
- [w, /[A-Z]/.match(w)!=nil]
119
- end
120
- [words, exclude]
121
- end
122
-
123
- def get_word(str, index, delim=32) # 32==space
124
- word = ""
125
- c = str[index]
126
- while (c && c != delim)
127
- word += c.chr
128
- index += 1
129
- c = str[index]
130
- end
131
- [word, index]
132
- end
133
-
134
- # Update the text for the number of displayed packs.
135
- def update_search_status_text
136
- @gui.search_label.text = sprintf($cfg.text.search, @gui.packet_list.numItems, @data.items.size)
137
- end
138
-
139
- # Find out if item is matched by current search criteria.
140
- def match?(item, match_data)
141
- words, exclude, min, max = match_data
142
-
143
- # check text that has to be there
144
- searchable, sortable_downcase, sortable_normal = item.sortable(0)
145
- words.each do |match_str, is_sensitive|
146
- if is_sensitive
147
- return false unless sortable_normal.include?(match_str)
148
- else
149
- return false unless sortable_downcase.include?(match_str)
150
- end
151
- end
152
-
153
- # check text not allowed to be there
154
- exclude.each do |match_str, is_sensitive|
155
- if is_sensitive
156
- return false if sortable_normal.include?(match_str)
157
- else
158
- return false if sortable_downcase.include?(match_str)
159
- end
160
- end
161
-
162
- # each check ok
163
- true
164
- end
97
+ when ?-
98
+ is_exclude = true
99
+
100
+ else
101
+ word, index = get_word(str, index)
102
+ if is_exclude
103
+ exclude.push word
104
+ is_exclude = false
105
+ else
106
+ words.push word
107
+ end
108
+ end
109
+
110
+ index += 1
111
+ end
112
+
113
+ # check if word has upcase letters
114
+ words.collect! do |w|
115
+ [w, /[A-Z]/.match(w)!=nil]
116
+ end
117
+ exclude.collect! do |w|
118
+ [w, /[A-Z]/.match(w)!=nil]
119
+ end
120
+ [words, exclude]
121
+ end
122
+
123
+ def get_word(str, index, delim=32) # 32==space
124
+ word = ""
125
+ c = str[index]
126
+ while (c && c != delim)
127
+ word += c.chr
128
+ index += 1
129
+ c = str[index]
130
+ end
131
+ [word, index]
132
+ end
133
+
134
+ # Update the text for the number of displayed packs.
135
+ def update_search_status_text
136
+ @gui.search_label.text = sprintf($cfg.text.search, @gui.packet_list.numItems, @data.items.size)
137
+ end
138
+
139
+ # Find out if item is matched by current search criteria.
140
+ def match?(item, match_data)
141
+ words, exclude, min, max = match_data
142
+
143
+ # check text that has to be there
144
+ searchable, sortable_downcase, sortable_normal = item.sortable(0)
145
+ words.each do |match_str, is_sensitive|
146
+ if is_sensitive
147
+ return false unless sortable_normal.include?(match_str)
148
+ else
149
+ return false unless sortable_downcase.include?(match_str)
150
+ end
151
+ end
152
+
153
+ # check text not allowed to be there
154
+ exclude.each do |match_str, is_sensitive|
155
+ if is_sensitive
156
+ return false if sortable_normal.include?(match_str)
157
+ else
158
+ return false if sortable_downcase.include?(match_str)
159
+ end
160
+ end
161
+
162
+ # each check ok
163
+ true
164
+ end
165
165
  end
data/lib/fxirb.rb CHANGED
@@ -7,7 +7,7 @@
7
7
  # Credits:
8
8
  # - Initial linux version: Gilles Filippini
9
9
  # - Initial windows port : Marco Frailis
10
- # - Currently maintained and developed by
10
+ # - Currently maintained and developed by
11
11
  # Martin DeMello <martindemello@gmail.com>
12
12
 
13
13
  require "fox12"
@@ -21,64 +21,64 @@ STDOUT.sync = true
21
21
 
22
22
  class FXIRBInputMethod < IRB::StdioInputMethod
23
23
 
24
- attr_accessor :print_prompt, :gets_mode
24
+ attr_accessor :print_prompt, :gets_mode
25
25
 
26
26
  def initialize
27
- super
27
+ super
28
28
  @history = 1
29
- @begin = nil
30
- @print_prompt = true
31
- @end = nil
32
- @continued_from = nil
33
- @gets_mode = false
29
+ @begin = nil
30
+ @print_prompt = true
31
+ @end = nil
32
+ @continued_from = nil
33
+ @gets_mode = false
34
34
  end
35
35
 
36
- def gets
37
- if @gets_mode
38
- return FXIrb.instance.get_line
39
- end
40
-
41
- if (a = @prompt.match(/(\d+)[>*]/))
42
- level = a[1].to_i
43
- else
44
- level = 0
45
- end
46
-
47
- if level > 0
48
- @continued_from ||= @line_no
49
- elsif @continued_from
50
- merge_last(@line_no-@continued_from+1)
51
- @continued_from = nil
52
- end
53
-
54
- if @print_prompt
55
- print @prompt
56
-
57
- #indentation
58
- print " "*level
59
- end
36
+ def gets
37
+ if @gets_mode
38
+ return FXIrb.instance.get_line
39
+ end
40
+
41
+ if (a = @prompt.match(/(\d+)[>*]/))
42
+ level = a[1].to_i
43
+ else
44
+ level = 0
45
+ end
46
+
47
+ if level > 0
48
+ @continued_from ||= @line_no
49
+ elsif @continued_from
50
+ merge_last(@line_no-@continued_from+1)
51
+ @continued_from = nil
52
+ end
53
+
54
+ if @print_prompt
55
+ print @prompt
56
+
57
+ #indentation
58
+ print " "*level
59
+ end
60
60
 
61
61
  str = FXIrb.instance.get_line
62
62
 
63
- @line_no += 1
64
- @history = @line_no + 1
65
- @line[@line_no] = str
63
+ @line_no += 1
64
+ @history = @line_no + 1
65
+ @line[@line_no] = str
66
66
 
67
- str
67
+ str
68
68
  end
69
69
 
70
- # merge a block spanning several lines into one \n-separated line
71
- def merge_last(i)
72
- return unless i > 1
73
- range = -i..-1
74
- @line[range] = @line[range].map {|l| l.chomp}.join("\n")
75
- @line_no -= (i-1)
76
- @history -= (i-1)
77
- end
70
+ # merge a block spanning several lines into one \n-separated line
71
+ def merge_last(i)
72
+ return unless i > 1
73
+ range = -i..-1
74
+ @line[range] = @line[range].map {|l| l.chomp}.join("\n")
75
+ @line_no -= (i-1)
76
+ @history -= (i-1)
77
+ end
78
78
 
79
79
  def prevCmd
80
- return "" if @gets_mode
81
-
80
+ return "" if @gets_mode
81
+
82
82
  if @line_no > 0
83
83
  @history -= 1 unless @history <= 1
84
84
  return line(@history)
@@ -87,7 +87,7 @@ class FXIRBInputMethod < IRB::StdioInputMethod
87
87
  end
88
88
 
89
89
  def nextCmd
90
- return "" if @gets_mode
90
+ return "" if @gets_mode
91
91
 
92
92
  if (@line_no > 0) && (@history < @line_no)
93
93
  @history += 1
@@ -102,37 +102,34 @@ module IRB
102
102
 
103
103
  def IRB.start_in_fxirb(im)
104
104
  if RUBY_VERSION < "1.7.3"
105
- IRB.initialize(nil)
106
- IRB.parse_opts
107
- IRB.load_modules
108
- else
109
- IRB.setup(nil)
110
- end
111
- IRB.restart(im)
112
- end
113
-
114
- def IRB.restart(im)
115
- irb = Irb.new(nil, im)
116
-
117
- @CONF[:IRB_RC].call(irb.context) if @CONF[:IRB_RC]
118
- @CONF[:MAIN_CONTEXT] = irb.context
119
- trap("SIGINT") do
120
- irb.signal_handle
121
- end
105
+ IRB.initialize(nil)
106
+ IRB.parse_opts
107
+ IRB.load_modules
108
+ else
109
+ IRB.setup(nil)
110
+ end
111
+
112
+ irb = Irb.new(nil, im)
113
+
114
+ @CONF[:IRB_RC].call(irb.context) if @CONF[:IRB_RC]
115
+ @CONF[:MAIN_CONTEXT] = irb.context
116
+ trap("SIGINT") do
117
+ irb.signal_handle
118
+ end
122
119
 
123
120
  class << irb.context.workspace.main
124
- def gets
125
- inp = IRB.conf[:MAIN_CONTEXT].io
126
- inp.gets_mode = true
127
- retval = IRB.conf[:MAIN_CONTEXT].io.gets
128
- inp.gets_mode = false
129
- retval
130
- end
131
- end
132
-
121
+ def gets
122
+ inp = IRB.conf[:MAIN_CONTEXT].io
123
+ inp.gets_mode = true
124
+ retval = IRB.conf[:MAIN_CONTEXT].io.gets
125
+ inp.gets_mode = false
126
+ retval
127
+ end
128
+ end
129
+
133
130
  catch(:IRB_EXIT) do
134
131
  irb.eval_input
135
- end
132
+ end
136
133
  print "\n"
137
134
 
138
135
  end
@@ -141,266 +138,258 @@ end
141
138
 
142
139
 
143
140
  class FXIrb < FXText
144
- include Singleton
145
- include Responder
146
-
147
- attr_reader :input
148
-
149
- def FXIrb.init(p, tgt, sel, opts)
150
- unless @__instance__
151
- Thread.critical = true
152
- begin
153
- @__instance__ ||= new(p, tgt, sel, opts)
154
- ensure
155
- Thread.critical = false
156
- end
157
- end
158
- return @__instance__
159
- end
160
-
161
- def initialize(p, tgt, sel, opts)
162
- @parent = p
163
- FXMAPFUNC(SEL_KEYRELEASE, 0, "onKeyRelease")
164
- FXMAPFUNC(SEL_KEYPRESS, 0, "onKeyPress")
165
- FXMAPFUNC(SEL_LEFTBUTTONPRESS,0,"onLeftBtnPress")
166
- FXMAPFUNC(SEL_MIDDLEBUTTONPRESS,0,"onMiddleBtnPress")
167
- FXMAPFUNC(SEL_LEFTBUTTONRELEASE,0,"onLeftBtnRelease")
168
-
169
- super
170
- setFont(FXFont.new(FXApp.instance, "lucida console", 9))
171
- @anchor = 0
172
- end
173
-
174
- def create
175
- super
176
- restart
177
- end
178
-
179
- def restart
180
- setFocus
181
- setText("")
182
- # IRB initialization
183
- @inputAdded = 0
184
- @input = IO.pipe
185
- $DEFAULT_OUTPUT = self
186
-
187
- @im = FXIRBInputMethod.new
188
- if @irb
189
- @irb.kill
190
- @irb = Thread.new {
191
- IRB.restart(@im)
192
- }
193
- else
194
- @irb = Thread.new {
195
- IRB.start_in_fxirb(@im)
196
- }
197
- end
198
- end
199
-
200
-
201
- def onKeyRelease(sender, sel, event)
202
- case event.code
203
- when Fox::KEY_Return, Fox::KEY_KP_Enter
204
- newLineEntered
205
- end
206
- return 1
207
- end
208
-
209
- def onKeyPress(sender,sel,event)
210
- case event.code
211
- when Fox::KEY_Return, Fox::KEY_KP_Enter
212
- setCursorPos(getLength)
213
- super
214
- when Fox::KEY_Up,Fox::KEY_KP_Up
215
- str = extractText(@anchor, getCursorPos-@anchor)
216
- if str =~ /\n/
217
- @multiline = true
218
- super
219
- setCursorPos(@anchor+1) if getCursorPos < @anchor
220
- else
221
- history(:prev) unless @multiline
222
- end
223
- when Fox::KEY_Down,Fox::KEY_KP_Down
224
- str = extractText(getCursorPos, getLength - getCursorPos)
225
- if str =~ /\n/
226
- @multiline = true
227
- super
228
- else
229
- history(:next) unless @multiline
230
- end
231
- when Fox::KEY_Left,Fox::KEY_KP_Left
232
- if getCursorPos > @anchor
233
- super
234
- end
235
- when Fox::KEY_Delete,Fox::KEY_KP_Delete,Fox::KEY_BackSpace
236
- if getCursorPos > @anchor
237
- super
238
- end
239
- when Fox::KEY_Home, Fox::KEY_KP_Home
240
- setCursorPos(@anchor)
241
- when Fox::KEY_End, Fox::KEY_KP_End
242
- setCursorPos(getLength)
243
- when Fox::KEY_Page_Up, Fox::KEY_KP_Page_Up
244
- history(:prev)
245
- when Fox::KEY_Page_Down, Fox::KEY_KP_Page_Down
246
- history(:next)
247
- when Fox::KEY_bracketright
248
- #auto-dedent if the } or ] is on a line by itself
249
- if (emptyline? or (getline == "en")) and indented?
250
- dedent
251
- end
252
- super
253
- when Fox::KEY_u
254
- if (event.state & CONTROLMASK) != 0
255
- str = extractText(getCursorPos, getLength - getCursorPos)
256
- rmline
257
- appendText(str)
258
- setCursorPos(@anchor)
259
- end
260
- super
261
- when Fox::KEY_k
262
- if (event.state & CONTROLMASK) != 0
263
- str = extractText(@anchor, getCursorPos-@anchor)
264
- rmline
265
- appendText(str)
266
- setCursorPos(getLength)
267
- end
268
- super
269
- when Fox::KEY_d
270
- if (event.state & CONTROLMASK) != 0
271
- restart
272
- =begin
273
- #Ctrl - D
274
- rmline
275
- appendText(exit)
276
- sendCommand("exit")
277
- newLineEntered
278
- =end
279
- else
280
- # test for 'end' so we can dedent
281
- if (getline == "en") and indented?
282
- str = getline
283
- @anchor -= 2
284
- rmline
285
- appendText(str)
286
- setCursorPos(getLength)
287
- end
288
- end
289
- super
290
- else
291
- super
292
- end
293
- end
294
-
295
- def dedent
296
- str = getline
297
- @anchor -= 2
298
- rmline
299
- appendText(str)
300
- setCursorPos(getLength)
301
- end
302
-
303
- def history(dir)
304
- str = (dir == :prev) ? @im.prevCmd.chomp : @im.nextCmd.chomp
305
- if str != ""
306
- removeText(@anchor, getLength-@anchor)
307
- write(str)
308
- end
309
- end
310
-
311
- def getline
312
- extractText(@anchor, getLength-@anchor)
313
- end
314
-
315
- def rmline
316
- str = getline
317
- removeText(@anchor, getLength-@anchor)
318
- str
319
- end
320
-
321
- def emptyline?
322
- getline == ""
323
- end
324
-
325
- def indented?
326
- extractText(@anchor-2, 2) == " "
327
- end
328
-
329
- def onLeftBtnPress(sender,sel,event)
330
- @store_anchor = @anchor
331
- setFocus
332
- super
333
- end
334
-
335
- def onLeftBtnRelease(sender,sel,event)
336
- super
337
- @anchor = @store_anchor
338
- setCursorPos(@anchor)
339
- setCursorPos(getLength)
340
- end
341
-
342
- def onMiddleBtnPress(sender,sel,event)
343
- pos=getPosAt(event.win_x,event.win_y)
344
- if pos >= @anchor
345
- super
346
- end
347
- end
348
-
349
- def newLineEntered
350
- processCommandLine(extractText(@anchor, getLength-@anchor))
351
- end
352
-
353
- def processCommandLine(cmd)
354
- @multiline = false
355
- lines = cmd.split(/\n/)
356
- lines.each {|i|
357
- @input[1].puts i
358
- @inputAdded += 1
359
- }
360
- @im.print_prompt = false
361
- while (@inputAdded > 0) do
362
- @irb.run
363
- end
364
- @im.merge_last(lines.length)
365
- @im.print_prompt = true
366
- end
367
-
368
- def sendCommand(cmd)
369
- setCursorPos(getLength)
370
- makePositionVisible(getLength) unless isPosVisible(getLength)
371
- cmd += "\n"
372
- appendText(cmd)
373
- processCommandLine(cmd)
374
- end
375
-
376
- def write(obj)
377
- str = obj.to_s
378
- appendText(str)
379
- setCursorPos(getLength)
380
- makePositionVisible(getLength) unless isPosVisible(getLength)
381
- return str.length
382
- end
383
-
384
- def get_line
385
- @anchor = getLength
386
- if @inputAdded == 0
387
- Thread.stop
388
- end
389
- @inputAdded -= 1
390
- return @input[0].gets
391
- end
141
+ include Singleton
142
+ include Responder
143
+
144
+ attr_reader :input
145
+
146
+ def FXIrb.init(p, tgt, sel, opts)
147
+ unless @__instance__
148
+ Thread.critical = true
149
+ begin
150
+ @__instance__ ||= new(p, tgt, sel, opts)
151
+ ensure
152
+ Thread.critical = false
153
+ end
154
+ end
155
+ return @__instance__
156
+ end
157
+
158
+ def initialize(p, tgt, sel, opts)
159
+ FXMAPFUNC(SEL_KEYRELEASE, 0, "onKeyRelease")
160
+ FXMAPFUNC(SEL_KEYPRESS, 0, "onKeyPress")
161
+ FXMAPFUNC(SEL_LEFTBUTTONPRESS,0,"onLeftBtnPress")
162
+ FXMAPFUNC(SEL_MIDDLEBUTTONPRESS,0,"onMiddleBtnPress")
163
+ FXMAPFUNC(SEL_LEFTBUTTONRELEASE,0,"onLeftBtnRelease")
164
+
165
+ super
166
+ setFont(FXFont.new(FXApp.instance, "lucida console", 9))
167
+ @anchor = 0
168
+ end
169
+
170
+ def create
171
+ super
172
+ setFocus
173
+ # IRB initialization
174
+ @inputAdded = 0
175
+ @input = IO.pipe
176
+ $DEFAULT_OUTPUT = self
177
+
178
+ @im = FXIRBInputMethod.new
179
+ @irb = Thread.new {
180
+ IRB.start_in_fxirb(@im)
181
+ self.crash
182
+ }
183
+
184
+
185
+ @multiline = false
186
+
187
+ @exit_proc = lambda {exit}
188
+ end
189
+
190
+ def on_exit(&block)
191
+ @exit_proc = block
192
+ end
193
+
194
+ def crash
195
+ instance_eval(&@exit_proc)
196
+ end
197
+
198
+ def onKeyRelease(sender, sel, event)
199
+ case event.code
200
+ when Fox::KEY_Return, Fox::KEY_KP_Enter
201
+ newLineEntered
202
+ end
203
+ return 1
204
+ end
205
+
206
+ def onKeyPress(sender,sel,event)
207
+ case event.code
208
+ when Fox::KEY_Return, Fox::KEY_KP_Enter
209
+ setCursorPos(getLength)
210
+ super
211
+ when Fox::KEY_Up,Fox::KEY_KP_Up
212
+ str = extractText(@anchor, getCursorPos-@anchor)
213
+ if str =~ /\n/
214
+ @multiline = true
215
+ super
216
+ setCursorPos(@anchor+1) if getCursorPos < @anchor
217
+ else
218
+ history(:prev) unless @multiline
219
+ end
220
+ when Fox::KEY_Down,Fox::KEY_KP_Down
221
+ str = extractText(getCursorPos, getLength - getCursorPos)
222
+ if str =~ /\n/
223
+ @multiline = true
224
+ super
225
+ else
226
+ history(:next) unless @multiline
227
+ end
228
+ when Fox::KEY_Left,Fox::KEY_KP_Left
229
+ if getCursorPos > @anchor
230
+ super
231
+ end
232
+ when Fox::KEY_Delete,Fox::KEY_KP_Delete,Fox::KEY_BackSpace
233
+ if getCursorPos > @anchor
234
+ super
235
+ end
236
+ when Fox::KEY_Home, Fox::KEY_KP_Home
237
+ setCursorPos(@anchor)
238
+ when Fox::KEY_End, Fox::KEY_KP_End
239
+ setCursorPos(getLength)
240
+ when Fox::KEY_Page_Up, Fox::KEY_KP_Page_Up
241
+ history(:prev)
242
+ when Fox::KEY_Page_Down, Fox::KEY_KP_Page_Down
243
+ history(:next)
244
+ when Fox::KEY_bracketright
245
+ #auto-dedent if the } or ] is on a line by itself
246
+ if (emptyline? or (getline == "en")) and indented?
247
+ dedent
248
+ end
249
+ super
250
+ when Fox::KEY_u
251
+ if (event.state & CONTROLMASK) != 0
252
+ str = extractText(getCursorPos, getLength - getCursorPos)
253
+ rmline
254
+ appendText(str)
255
+ setCursorPos(@anchor)
256
+ end
257
+ super
258
+ when Fox::KEY_k
259
+ if (event.state & CONTROLMASK) != 0
260
+ str = extractText(@anchor, getCursorPos-@anchor)
261
+ rmline
262
+ appendText(str)
263
+ setCursorPos(getLength)
264
+ end
265
+ super
266
+ when Fox::KEY_d
267
+ if (event.state & CONTROLMASK) != 0
268
+ #Ctrl - D
269
+ rmline
270
+ appendText("exit")
271
+ newLineEntered
272
+ else
273
+ # test for 'end' so we can dedent
274
+ if (getline == "en") and indented?
275
+ dedent
276
+ end
277
+ end
278
+ super
279
+ else
280
+ super
281
+ end
282
+ end
283
+
284
+ def dedent
285
+ str = getline
286
+ @anchor -= 2
287
+ rmline
288
+ appendText(str)
289
+ setCursorPos(getLength)
290
+ end
291
+
292
+ def history(dir)
293
+ str = (dir == :prev) ? @im.prevCmd.chomp : @im.nextCmd.chomp
294
+ if str != ""
295
+ removeText(@anchor, getLength-@anchor)
296
+ write(str)
297
+ end
298
+ end
299
+
300
+ def getline
301
+ extractText(@anchor, getLength-@anchor)
302
+ end
303
+
304
+ def rmline
305
+ str = getline
306
+ removeText(@anchor, getLength-@anchor)
307
+ str
308
+ end
309
+
310
+ def emptyline?
311
+ getline == ""
312
+ end
313
+
314
+ def indented?
315
+ extractText(@anchor-2, 2) == " "
316
+ end
317
+
318
+ def onLeftBtnPress(sender,sel,event)
319
+ @store_anchor = @anchor
320
+ setFocus
321
+ super
322
+ end
323
+
324
+ def onLeftBtnRelease(sender,sel,event)
325
+ super
326
+ @anchor = @store_anchor
327
+ setCursorPos(@anchor)
328
+ setCursorPos(getLength)
329
+ end
330
+
331
+ def onMiddleBtnPress(sender,sel,event)
332
+ pos=getPosAt(event.win_x,event.win_y)
333
+ if pos >= @anchor
334
+ super
335
+ end
336
+ end
337
+
338
+ def newLineEntered
339
+ processCommandLine(extractText(@anchor, getLength-@anchor))
340
+ end
341
+
342
+ def processCommandLine(cmd)
343
+ @multiline = false
344
+ lines = cmd.split(/\n/)
345
+ lines.each {|i|
346
+ @input[1].puts i
347
+ @inputAdded += 1
348
+ }
349
+ @im.print_prompt = false
350
+ while (@inputAdded > 0) do
351
+ @irb.run
352
+ end
353
+ @im.merge_last(lines.length)
354
+ @im.print_prompt = true
355
+ end
356
+
357
+ def sendCommand(cmd)
358
+ setCursorPos(getLength)
359
+ makePositionVisible(getLength) unless isPosVisible(getLength)
360
+ cmd += "\n"
361
+ appendText(cmd)
362
+ processCommandLine(cmd)
363
+ end
364
+
365
+ def write(obj)
366
+ str = obj.to_s
367
+ appendText(str)
368
+ setCursorPos(getLength)
369
+ makePositionVisible(getLength) unless isPosVisible(getLength)
370
+ return str.length
371
+ end
372
+
373
+ def get_line
374
+ @anchor = getLength
375
+ if @inputAdded == 0
376
+ Thread.stop
377
+ end
378
+ @inputAdded -= 1
379
+ return @input[0].gets
380
+ end
392
381
  end
393
382
 
394
383
  # Stand alone run
395
384
  if __FILE__ == $0
396
- application = FXApp.new("FXIrb", "ruby")
397
- application.threadsEnabled = true
398
- Thread.abort_on_exception = true
399
- application.init(ARGV)
400
- window = FXMainWindow.new(application, "FXIrb", nil, nil, DECOR_ALL, 0, 0, 580, 500)
401
- fxirb = FXIrb.init(window, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP|TEXT_SHOWACTIVE)
402
- application.create
403
- window.show(PLACEMENT_SCREEN)
404
- application.run
385
+ application = FXApp.new("FXIrb", "ruby")
386
+ application.threadsEnabled = true
387
+ Thread.abort_on_exception = true
388
+ application.init(ARGV)
389
+ window = FXMainWindow.new(application, "FXIrb", nil, nil, DECOR_ALL, 0, 0, 580, 500)
390
+ fxirb = FXIrb.init(window, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP|TEXT_SHOWACTIVE)
391
+ application.create
392
+ window.show(PLACEMENT_SCREEN)
393
+ fxirb.on_exit {exit}
394
+ application.run
405
395
  end
406
-