80 lines
2.6 KiB
Ruby
80 lines
2.6 KiB
Ruby
|
# frozen_string_literal: true
|
||
|
|
|
||
|
|
require 'tempfile'
|
||
|
|
|
||
|
|
module RplLang
|
||
|
|
module Words
|
||
|
|
module REPL
|
||
|
|
include Types
|
||
|
|
|
||
|
|
def populate_dictionary
|
||
|
|
super
|
||
|
|
|
||
|
|
category = 'REPL'
|
||
|
|
|
||
|
|
@dictionary.add_word( ['words'],
|
||
|
|
category,
|
||
|
|
'DEBUG',
|
||
|
|
proc do
|
||
|
|
@dictionary.words
|
||
|
|
.to_a
|
||
|
|
.group_by { |word| word.last[:category] }
|
||
|
|
.each do |cat, words|
|
||
|
|
puts cat
|
||
|
|
puts " #{words.map(&:first).join(', ')}"
|
||
|
|
end
|
||
|
|
end )
|
||
|
|
|
||
|
|
@dictionary.add_word( ['history'],
|
||
|
|
category,
|
||
|
|
'',
|
||
|
|
proc {} )
|
||
|
|
|
||
|
|
@dictionary.add_word( ['edit'],
|
||
|
|
category,
|
||
|
|
'( -- s ) Pop the interpreter\'s complete indentification string',
|
||
|
|
proc do
|
||
|
|
args = stack_extract( [:any] )
|
||
|
|
|
||
|
|
value = args[0].to_s
|
||
|
|
tempfile = Tempfile.new('rpl')
|
||
|
|
|
||
|
|
begin
|
||
|
|
tempfile.write( value )
|
||
|
|
tempfile.rewind
|
||
|
|
|
||
|
|
`$EDITOR #{tempfile.path}`
|
||
|
|
|
||
|
|
edited_value = tempfile.read
|
||
|
|
ensure
|
||
|
|
tempfile.close
|
||
|
|
tempfile.unlink
|
||
|
|
end
|
||
|
|
|
||
|
|
@stack << Types.new_object( args[0].class, edited_value )
|
||
|
|
end )
|
||
|
|
|
||
|
|
@dictionary.add_word( ['.s'],
|
||
|
|
category,
|
||
|
|
'DEBUG',
|
||
|
|
proc { pp @stack } )
|
||
|
|
|
||
|
|
@dictionary.add_word( ['.d'],
|
||
|
|
category,
|
||
|
|
'DEBUG',
|
||
|
|
proc { pp @dictionary } )
|
||
|
|
|
||
|
|
@dictionary.add_word( ['.v'],
|
||
|
|
category,
|
||
|
|
'DEBUG',
|
||
|
|
proc { pp @dictionary.vars } )
|
||
|
|
|
||
|
|
@dictionary.add_word( ['.lv'],
|
||
|
|
category,
|
||
|
|
'DEBUG',
|
||
|
|
proc { pp @dictionary.local_vars_layers } )
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|