xrpn 1.1

data/cmd/sqr

@@ -0,0 +1,8 @@
+class XRPN
+  def sqr
+    @l = @x
+    @x = @x ** 2
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sqrt

@@ -0,0 +1,8 @@
+class XRPN
+  def sqrt
+    @l = @x
+    @x = Math::sqrt(@x)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sreg

@@ -0,0 +1,7 @@
+class XRPN
+  def sreg (r)
+    @srg = r
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sregq

@@ -0,0 +1,7 @@
+class XRPN
+  def sreg?
+    return "ΣREG = " + @sreg
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stdivide

@@ -0,0 +1,22 @@
+class XRPN
+  def stdivide (r)
+    case r.downcase
+    when "x"
+      @l = @x
+      @x /= @x
+    when "y"
+      @y /= @x
+    when "z"
+      @z /= @x
+    when "t"
+      @t /= @x
+    when "l"
+      @l /= @x
+   else
+      @reg[r]  = 0 if @reg[r] == nil
+      @reg[r] /= @x
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stmultiply

@@ -0,0 +1,22 @@
+class XRPN
+  def stmultiply (r)
+    case r.downcase
+    when "x"
+      @l = @x
+      @x *= @x
+    when "y"
+      @y *= @x
+    when "z"
+      @z *= @x
+    when "t"
+      @t *= @x
+    when "l"
+      @l *= @x
+    else
+      @reg[r]  = 0 if @reg[r] == nil
+      @reg[r] *= @x
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sto

@@ -0,0 +1,21 @@
+class XRPN
+  def sto (r)
+    case r.downcase
+    when "x"
+      @l = @x
+      @x = @x
+    when "y"
+      @y = @x
+    when "z"
+      @z = @x
+    when "t"
+      @t = @x
+    when "l"
+      @l = @x
+    else
+      @reg[r] = @x
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stoflag

@@ -0,0 +1,13 @@
+class XRPN
+  def stoflag
+    flags = @x.split(" ")
+    flags.each do |fv|
+      f = fv.sub(/:.*/, '')
+      v = fv.sub(/\d\d:(\d)/, '\1')
+      v == "1" ? v = true : v = false
+      @flg["#{f}"] = v
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stop

@@ -0,0 +1,7 @@
+class XRPN
+  def stop
+    $debug = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stopsw

@@ -0,0 +1,7 @@
+class XRPN
+  def stopsw
+    return "STOPSW: No clock, alarm or stopwatch functions are implemented"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stplus

@@ -0,0 +1,22 @@
+class XRPN
+  def stplus (r)
+    case r.downcase
+    when "x"
+      @l = @x
+      @x += @x
+    when "y"
+      @y += @x
+    when "z"
+      @z += @x
+    when "t"
+      @t += @x
+    when "l"
+      @l += @x
+    else
+	  @reg[r]  = 0 if @reg[r] == nil
+      @reg[r] += @x
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/stsubtract

@@ -0,0 +1,22 @@
+class XRPN
+  def stsubtract (r)
+    case r.downcase
+    when "x"
+      @l = @x
+      @x -= @x
+    when "y"
+      @y -= @x
+    when "z"
+      @z -= @x
+    when "t"
+      @t -= @x
+    when "l"
+      @l -= @x
+    else
+      @reg[r]  = 0 if @reg[r] == nil
+      @reg[r] -= @x
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/subtract

@@ -0,0 +1,9 @@
+class XRPN
+  def -
+    @l = @x
+    @x = @y - @x
+    dropy
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sw

@@ -0,0 +1,7 @@
+class XRPN
+  def sw
+    return "SW: No clock, alarm or stopwatch functions are implemented"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/swap

@@ -0,0 +1,7 @@
+class XRPN
+  def swap
+    @x, @y = @y, @x
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/swpt

@@ -0,0 +1,7 @@
+class XRPN
+  def swpt
+    return "SWPT: No clock, alarm or stopwatch functions are implemented"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/tan

@@ -0,0 +1,10 @@
+class XRPN
+  def tan
+    @l = @x
+    @x = @x.to_rad  if @deg == "deg"
+    @x = @x.to_radg if @deg == "grad"
+    @x = Math::tan(@x)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/tenx

@@ -0,0 +1,8 @@
+class XRPN
+  def tenx
+    @l = @x
+    @x = 10 ** @x
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/time

@@ -0,0 +1,8 @@
+class XRPN
+  def time
+    lift
+    @x = Time.now.strftime("%H.%M%s").to_f
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/tx

@@ -0,0 +1,7 @@
+class XRPN
+  def tx # T+X
+    return "T+X: No clock, alarm or stopwatch functions are implemented"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/version

@@ -0,0 +1,7 @@
+class XRPN
+  def version
+    xrpn_version
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/view

@@ -0,0 +1,7 @@
+class XRPN
+  def view (r)
+    puts @reg[r]
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/writefile

@@ -0,0 +1,12 @@
+class XRPN
+  def writefile
+    begin
+      @x = File.write(@a)
+      File.write(@a, @x)
+    rescue
+      return "Cannot write to the file '#{a}'"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xeq

@@ -0,0 +1,21 @@
+class XRPN
+  def xeq (l)
+    page, pos = locate_prg (l)
+    if pos == nil
+      if l.match(/".*"/)
+        return "Error: No such global label: #{l}"
+      else
+        return "Error: No such label: #{l}"
+      end
+    else
+      if @page != @pg
+        @pg  = page
+      end
+      @rtn.push(@pc) unless $debug
+      @pc  = pos
+      $debug = false
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xeq0

@@ -0,0 +1,7 @@
+class XRPN
+  def xeq0?
+    @x == 0 ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xeqnn

@@ -0,0 +1,9 @@
+class XRPN
+  def xeqnn?
+    r = @x.to_i
+    r = "%02d" % [r] if r == r.to_i.to_s
+    @x == @reg[r] ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xeqy

@@ -0,0 +1,7 @@
+class XRPN
+  def xeqy?
+    @x == @y ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xf

@@ -0,0 +1,20 @@
+class XRPN
+  def xf # X<>F
+    fsumx = 0
+	  7.times do |f|
+      fl     = "%02d" % [f]
+      fsumx += 2 ** f if @flg[fl]
+      fl     = "%02d" % [7 - f]
+      fx     = 2 ** (7 - f)
+      if @x / fx >= 1
+        @flg[fl] = true
+        @x -= fx
+      else
+        @flg[fl] = false
+      end
+	  end
+    @x = fsumx
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xgt0

@@ -0,0 +1,7 @@
+class XRPN
+  def xgt0?
+    @x > 0 ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xgteq0

@@ -0,0 +1,7 @@
+class XRPN
+  def xgteq0?
+    @x >= 0 ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xgteqnn

@@ -0,0 +1,9 @@
+class XRPN
+  def xgteqnn?
+    r = @x.to_i
+    r = "%02d" % [r] if r == r.to_i.to_s
+    @x >= @reg[r] ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xgteqy

@@ -0,0 +1,7 @@
+class XRPN
+  def xgteqy?
+    @x >= @y ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xgtnn

@@ -0,0 +1,9 @@
+class XRPN
+  def xgtnn?
+    r = @x.to_i
+    r = "%02d" % [r] if r == r.to_i.to_s
+    @x > @reg[r] ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xgty

@@ -0,0 +1,7 @@
+class XRPN
+  def xgty?
+    @x > @y ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xlt0

@@ -0,0 +1,7 @@
+class XRPN
+  def xlt0?
+    @x < 0 ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xlteq0

@@ -0,0 +1,7 @@
+class XRPN
+  def xlteq0?
+    @x <= 0 ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xlteqnn

@@ -0,0 +1,9 @@
+class XRPN
+  def xlteqnn?
+    r = @x.to_i
+    r = "%02d" % [r] if r == r.to_i.to_s
+    @x <= @reg[r] ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xlteqy

@@ -0,0 +1,7 @@
+class XRPN
+  def xlteqy?
+    @x <= @y ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xltnn

@@ -0,0 +1,9 @@
+class XRPN
+  def xltnn?
+    r = @x.to_i
+    r = "%02d" % [r] if r == r.to_i.to_s
+    @x < @reg[r] ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xlty

@@ -0,0 +1,7 @@
+class XRPN
+  def xlty?
+    @x < @y ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xmexistq

@@ -0,0 +1,15 @@
+class XRPN
+  def xmexist?
+    f  = Dir.home + "/.xrpn/data/" + @a
+    if File.exist?(f + ".da")
+      return "YES (DA)"
+    elsif File.exist?(f + ".as")
+      return "YES (AS)"
+    elsif File.exist?(f + ".pr")
+      return "YES (PR)"
+    else return "NO"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xmfileq

@@ -0,0 +1,7 @@
+class XRPN
+  def xmfile?
+    return "XMFILE = #{@xmfile}"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xneq0

@@ -0,0 +1,7 @@
+class XRPN
+  def xneq0?
+    @x != 0 ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xneqnn

@@ -0,0 +1,9 @@
+class XRPN
+  def xneqnn?
+    r = @x.to_i
+    r = "%02d" % [r] if r == r.to_i.to_s
+    @x != @reg[r] ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xneqy

@@ -0,0 +1,7 @@
+class XRPN
+  def xneqy?
+    @x != @y ? conditional(true) : conditional(false)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xnn

@@ -0,0 +1,21 @@
+class XRPN
+  def xnn (r) # X<> r
+	case r.downcase
+    when "x"
+      @l = @x
+    when "y"
+      @x, @y = @y, @x
+    when "z"
+      @x, @z = @z, @x
+    when "t"
+      @x, @t = @t, @x
+    when "l"
+      @x, @l = @l, @x
+    else
+      @reg[r] = 0 if @reg[r] == nil
+      @x, @reg[r] = @reg[r], @x
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xtoa

@@ -0,0 +1,7 @@
+class XRPN
+  def xtoa
+    @a += @x.to_i.chr
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xy

@@ -0,0 +1,7 @@
+class XRPN
+  def xy
+    @x, @y = @y, @x
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/xyzalm

@@ -0,0 +1,7 @@
+class XRPN
+  def xyzalm
+    return "XYZALM: No clock, alarm or stopwatch functions are implemented"
+  end
+end
+ 
+# vim:ft=ruby:

data/lib/_xrpn_version

@@ -0,0 +1,5 @@
+def xrpn_version
+  puts "XRPN version: 0.95"
+end
+ 
+# vim:ft=ruby:

data/lib/bei

@@ -0,0 +1,18 @@
+def x2bei (x)
+  b = x.to_i
+  e = (1000 * (x - b)).to_i
+  i = (((1000 * x) - (1000 * x).to_i) * 100).round()
+  i = 1 if i == 0
+  return b, e, i
+end
+
+def bei2x (b, e, i)
+  b = b.to_i
+  e = e.to_i
+  i = 1 if i == 0
+  i = i.to_i
+  x = b.to_f + (e.to_f / 1000) + (i.to_f / 100000)
+  return x
+end
+ 
+# vim:ft=ruby:

data/lib/check

@@ -0,0 +1,26 @@
+def check(file)
+  load Dir.home+"/.xrpn/lib/read_cmd"
+  read_cmd
+  errors = 0
+  if File.exist?(file) 
+    cfile = File.read(file).split("\n")
+  else
+    puts "No such file: #{file}"
+    exit
+  end
+  cfile41 = hp_41(cfile.dup)
+  cfile41.each_with_index do |line, i|
+    if line.match(/^-*[\d\.,e]+$/)
+    elsif line.match(/^>?".*"/)
+    else
+      l1 = line.split[0]
+      if not $cmd.include?(l1.downcase)
+        puts "Line #{i + 1}: No such command: #{cfile[i]}"
+        errors += 1
+      end
+    end
+  end
+  puts "Errors = #{errors}"
+end
+ 
+# vim:ft=ruby:

data/lib/conditional

@@ -0,0 +1,10 @@
+def conditional(t)
+  if t
+    return "YES"
+  else
+    @pc += 1 unless $debug and not $sst
+    return "NO"
+  end
+end
+ 
+# vim:ft=ruby:

data/lib/convert_base

@@ -0,0 +1,8 @@
+class String
+  # works up-to base 36
+  def convert_base(from, to)
+    self.to_i(from).to_s(to)
+  end
+end
+ 
+# vim:ft=ruby: