mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
7945cd5978
safe-level value argument git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6899 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
61 lines
2 KiB
Ruby
61 lines
2 KiB
Ruby
#!/usr/bin/env ruby
|
|
|
|
require 'multi-tk'
|
|
|
|
TkMessage.new(:text => <<EOM).pack
|
|
This is a sample of the safe-Tk slave interpreter. \
|
|
On the slave interpreter, 'tkoptdb.rb' demo is running.
|
|
( NOTE:: a safe-Tk interpreter can't read options \
|
|
from a file. Options are given by the master interpreter \
|
|
in this script. )
|
|
The window shown this message is a root widget of \
|
|
the default master interpreter. The other window \
|
|
is a toplevel widget of the master interpreter, and it \
|
|
has a container frame of the safe-Tk slave interpreter.
|
|
'exit' on the slave interpreter exits the slave only. \
|
|
You can also delete the slave by the button on the toplevel widget.
|
|
EOM
|
|
|
|
if ENV['LANG'] =~ /^ja/
|
|
# read Japanese resource
|
|
ent = TkOptionDB.read_entries(File.expand_path('resource.ja',
|
|
File.dirname(__FILE__)),
|
|
'euc-jp')
|
|
else
|
|
# read English resource
|
|
ent = TkOptionDB.read_entries(File.expand_path('resource.en',
|
|
File.dirname(__FILE__)))
|
|
end
|
|
file = File.expand_path('tkoptdb.rb', File.dirname(__FILE__))
|
|
|
|
ip = MultiTkIp.new_safeTk{
|
|
# When a block is given to 'new_safeTk' method,
|
|
# the block is evaluated on $SAFE==4.
|
|
ent.each{|pat, val| Tk.tk_call('option', 'add', pat, val)}
|
|
}
|
|
|
|
print "ip.eval_proc{$SAFE} ==> ", ip.eval_proc{$SAFE}, "\n"
|
|
|
|
ret = ip.eval_proc{
|
|
# When a block is given to 'eval_proc' method,
|
|
# the block is evaluated on the IP's current safe level.
|
|
# So, the followings raises an exception.
|
|
# An Exception object of the exception is returned as a
|
|
# return value of this method.
|
|
|
|
load file
|
|
}
|
|
print "ip.eval_proc{}, which includes insecure operiation in the given block, returns an exception object: ", ret.inspect, "\n"
|
|
|
|
print "If a proc object is given, the proc is evaluated on the safe-level which is kept on the proc :: ip.eval_proc( proc{$SAFE} ) ==> ", ip.eval_proc(proc{$SAFE}), "\n"
|
|
|
|
safe0_cmd = Proc.new{
|
|
# This proc object keeps current safe-level ($SAFE==0).
|
|
load file
|
|
}
|
|
ip.eval_proc(safe0_cmd)
|
|
|
|
|
|
# Tk.mainloop is ignored on the slave-IP
|
|
|
|
Tk.mainloop
|