xrpn 1.1.3 → 1.1.4

data/lib/optparse.rb

@@ -1,23 +0,0 @@
-# Handle the command line options
-options = {}
-optparse = OptionParser.new do |opts|
-  # Set a banner, displayed at the top of the help screen.
-  opts.banner = "Usage: xrpn [options]"
-
-  # Define the options, and what they do
-  opts.on('-f', '--file program', 'Specify the file to process')             { |f| $rfile = f  }
-  opts.on('-l', '--load program(s)', Array, 'File(s) to load, but not run')  { |l| $lfile = l  }
-  opts.on('-s', '--state STATE', 'Load a State file')                        { |s| $sfile = s  }
-  opts.on('-c', '--check program', 'Program file to check for errors')       { |c| check(c); exit }
-  opts.on('-x', '--X X-value', 'Set initial value in the X register')        { |x| @x = x.to_f }
-  opts.on('-y', '--Y Y-value', 'Set initial value in the Y register')        { |y| @y = y.to_f }
-  opts.on('-z', '--Z Z-value', 'Set initial value in the Z register')        { |z| @z = z.to_f }
-  opts.on('-t', '--T T-value', 'Set initial value in the T register')        { |t| @t = t.to_f }
-  opts.on('-a', '--Alpha Alpha-string', 'Set initial string in Alpha')       { |a| @a = a.to_s }
-  opts.on('-h', 'Display SHORT help text')                                   { puts opts; exit }
-  opts.on('--help', 'Display LONG help text')                     { help; puts; puts opts; exit}
-  opts.on('-v', '--version', 'Display the XRPN version number')              { xrpn_version; exit }
-end
-optparse.parse!
- 
-# vim:ft=ruby:

data/lib/read_cmd.rb

@@ -1,12 +0,0 @@
-def read_cmd
-  $cmd = []
-  Dir[Dir.home+"/.xrpn/cmd/*"].each do |file|
-    load file
-    l = IO.readlines(file)[1]
-    c = l.sub(/\s*def (\S+).*/, '\1').chomp
-    $cmd.push(c)
-  end
-  $cmd.sort!
-end
- 
-# vim:ft=ruby:

data/lib/read_state.rb

@@ -1,6 +0,0 @@
-def read_state (fn = "conf")
-  @p.flg["23"] = false
-  load (Dir.home + "/.xrpn/" + fn)
-end
- 
-# vim:ft=ruby:

data/lib/save_state.rb

@@ -1,18 +0,0 @@
-def save_state (fn = "conf")
-  @p.flg["23"] = false
-  cont    = "@p.x   = #{@p.x}\n"
-  cont   += "@p.y   = #{@p.y}\n"
-  cont   += "@p.z   = #{@p.z}\n"
-  cont   += "@p.t   = #{@p.t}\n"
-  cont   += "@p.l   = #{@p.l}\n"
-  cont   += "@p.a   = \"#{@p.a}\"\n"
-  cont   += "@p.i   = #{@p.i}\n"
-  cont   += "@p.s   = #{@p.s}\n"
-  cont   += "@p.srg = #{@p.srg}\n"
-  cont   += "@p.reg = #{@p.reg}\n"
-  cont   += "@p.flg = #{@p.flg}\n"
-  cont   += "@p.prg = #{@p.prg}\n"
-  File.write(Dir.home + "/.xrpn/" + fn, cont)
-end
-
-# vim:ft=ruby:

data/lib/save_xm.rb

@@ -1,5 +0,0 @@
-def save_xm
-  File.write(@xmcont[0][0], @xmcont) if File.exist?(@xmcont[0][0])
-end
- 
-# vim:ft=ruby:

data/lib/setpt.rb

@@ -1,5 +0,0 @@
-def setpt(r, c)
-  @xmcont[0][3] = r - 1 + (0.001 * c).round(4)
-end
- 
-# vim:ft=ruby:

data/lib/string.rb

@@ -1,28 +0,0 @@
-class String
-
-  def color (color_code, bold=false)
-    bold ? "\e[38;5;#{color_code};1m#{self}\e[0m" : "\e[38;5;#{color_code}m#{self}\e[0m"
-  end
-
-  def c_x(bold=false)
-    color($colors["X"], bold)
-  end
-  def c_y(bold=false)
-    color($colors["Y"], bold)
-  end
-  def c_z(bold=false)
-    color($colors["Z"], bold)
-  end
-  def c_t(bold=false)
-    color($colors["T"], bold)
-  end
-  def c_l(bold=false)
-    color($colors["L"], bold)
-  end
-  def c_a(bold=false)
-    color($colors["A"], bold)
-  end
-
-end
- 
-# vim:ft=ruby:

data/lib/theme_dark.rb

@@ -1,10 +0,0 @@
-$colors = {
-  "X" => 255,
-  "Y" => 246,
-  "Z" => 243,
-  "T" => 240,
-  "L" => 130,
-  "A" =>  39
-}
- 
-# vim:ft=ruby:

data/lib/theme_light.rb

@@ -1,10 +0,0 @@
-$colors = {
-  "X" => 232,
-  "Y" => 241,
-  "Z" => 244,
-  "T" => 247,
-  "L" => 130,
-  "A" =>  39
-}
- 
-# vim:ft=ruby:

data/lib/xrpn_class.rb

@@ -1,34 +0,0 @@
-# Define the basis for the RPN class
-class XRPN
-  attr_accessor :nolift, :x, :y, :z, :t, :l, :a, :i, :s, :g, :deg, :srg, :reg, :flg, :clk24, :pg, :prg, :pc, :rtn, :xmfile, :xmcont
-  def initialize(file)
-    @nolift    = false  # Disable stacklift
-    @x         = 0.0	  # X register
-    @y         = 0.0	  # Y register
-    @z         = 0.0    # Z register
-    @t         = 0.0    # T register
-    @l         = 0.0    # Last X register
-    @a         = ""     # Alpha register
-    @i         = 4      # Fix (and Sci/Eng) nu,ber of digiet after period
-    @s         = 9      # Threshold for when exponents kick in
-    @g         = 1      # Exponent grouping (set to 3 when ENG mode is set)
-    @deg       = "deg"  # Degree mode (or "rad" for Radians or "grad" for 400°
-    @srg       = 11     # Statistics registers start
-    @reg       = {}     # Registers are stored in a Hash
-    @flg       = {}     # Flags are stored in a Hash
-    @flg["28"] = true   # Radix mark
-    @flg["29"] = true   # Digit separator mark
-    @flg["31"] = false  # Date format (MDY). "true" for DMY
-    @flg["44"] = false  # Continuous ON
-    @clk24     = false  # 24 hour time
-    @pg        = 0      # Active Page
-    @prg       = []     # Active Program
-    @prg[0]    = File.read(file).split("\n") if $rfile
-    @pc        = 0      # Active Program Counter (current step in the active program)
-    @rtn       = []     # Return stack
-    @xmfile    = ""     # Current eXtended Memory file
-    @xmcont    = [["", "", 0, 0.0]]
-  end
-end
- 
-# vim:ft=ruby: