Class: Object

Inherits:
BasicObject
Defined in:
lib/R4rb/R4rb.rb

Instance Method Summary collapse

Instance Method Details

#R2rb_running? ⇒ Boolean

Returns:

  • (Boolean) 


30
31
32
 
# File 'lib/R4rb/R4rb.rb', line 30

def R2rb_running?
  Object.const_get(:R4rb)==R2rb
end

#R4rb_is(mode) ⇒ Object 



4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
# File 'lib/R4rb/R4rb.rb', line 4

def R4rb_is(mode)
  unless [R2rb,Rserve,"R2rb","Rserve",:R2rb,:Rserve].include? mode
    puts "Improper value for R4rb_is function!"
    return 
  end
  unless mode.is_a? Module
    mode=mode.to_s.to_sym
    ##puts "R4rb_is: mode=#{mode}"
    mode= case mode
        when :R2rb
          R2rb
        when :Rserve
          Rserve
        end
  end
  if mode==Rserve and !Rserve.running?
    puts "Rserve is not running and R4rb_is method cannot be set to :Rserve!"
    mode=R2rb
  end
  ##p mode
  ## trick to avoid warning when modifying constant!
  con=Object #( self.is_a?(Module) ? self : self.class )
  con.send(:remove_const, :R4rb) if con.const_defined?(:R4rb)
  con.const_set(:R4rb, mode)
end

#R4rb_status? ⇒ Boolean

Returns:

  • (Boolean) 


38
39
40
 
# File 'lib/R4rb/R4rb.rb', line 38

def R4rb_status?
  puts "R is now in "+ ( R2rb_running? ? "local" : "server" )+" use!"
end

#Rserve_running? ⇒ Boolean

Returns:

  • (Boolean) 


34
35
36
 
# File 'lib/R4rb/R4rb.rb', line 34

def Rserve_running?
  Object.const_get(:R4rb)==Rserve
end