xrpn 1.1

data/cmd/pra

@@ -0,0 +1,7 @@
+class XRPN
+  def pra
+	  puts "α = \"#{@a}\""
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/prflags

@@ -0,0 +1,8 @@
+class XRPN
+  def prflags
+    @flg = @flg.sort.to_h
+    @flg.each_pair {|key, value| puts "#{key}: #{value}"}
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/prompt

@@ -0,0 +1,8 @@
+class XRPN
+  def prompt
+    puts @a.c_a(1)
+    $prompt = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/prp

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

data/cmd/prregs

@@ -0,0 +1,8 @@
+class XRPN
+  def prregs
+    @reg = @reg.sort.to_h
+    @reg.each_pair {|key, value| puts "#{key}: #{numformat(value)}"}
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/prstk

@@ -0,0 +1,10 @@
+class XRPN
+  def prstk
+    puts "T = ".c_t + numformat(@t).c_t(1) + "   α = ".c_a + @a.to_s.c_a(1)
+    puts "Z = ".c_z + numformat(@z).c_z(1)
+    puts "Y = ".c_y + numformat(@y).c_y(1)
+    puts "X = ".c_x + numformat(@x).c_x(1) + "   L = ".c_l + numformat(@l).c_l(1)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/prx

@@ -0,0 +1,7 @@
+class XRPN
+  def prx
+	  puts "X = " + numformat(@x)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/prxm

@@ -0,0 +1,21 @@
+class XRPN
+  def prxm
+    # Print content of current XM file
+    out = ""
+    @xmcont.each_index do |i|
+      if i == 0
+        out += "File    = #{@xmcont[0][0]}\n"
+        out += "Type    = #{@xmcont[0][1]}\n"
+        out += "Pointer = #{@xmcont[0][3].to_s}\n" 
+        next
+      end
+      out += "#{format('%03d', i - 1)}"
+      out += " "
+      out += "#{@xmcont[i].to_s}\n"
+    end
+    puts out
+    File.write(Dir.home + "/.xrpn/print/" + @a, out) if @a != ""
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/pse

@@ -0,0 +1,7 @@
+class XRPN
+  def pse
+    sleep(1)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/psize

@@ -0,0 +1,7 @@
+class XRPN
+  def psize
+    return "PSIZE: No need for that function"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/purfl

@@ -0,0 +1,14 @@
+class XRPN
+  def purfl
+    f = Dir.home + "/.xrpn/data/" + @a
+    fl = [f + ".pr", f + ".as", f + ".da"]
+    fl.each do |file|
+      if File.exist?(file)
+        File.delete(file) 
+        @xmfile = "" if @xmfile == @a
+      end
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/r_d

@@ -0,0 +1,8 @@
+class XRPN
+  def r_d
+    @l = @x
+	@x = @x * 180 / Math::PI
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/r_p

@@ -0,0 +1,18 @@
+class XRPN
+  def r_p
+    @l = @x
+    x = @x
+    y = @y
+    @x = Math::sqrt(x*x + y*y)
+    @y = Math::atan(y/x)
+    if x < 0  # Q2 & Q3
+      @y += Math::PI
+    elsif x >= 0 and y < 0 # Q4
+      @y += 2 * Math::PI
+    end
+    @y = @y * 180 / Math::PI if @deg == "deg"
+    @y = @y * 200 / Math::PI if @deg == "grad"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rad

@@ -0,0 +1,7 @@
+class XRPN
+  def rad
+    @deg = "rad"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rand

@@ -0,0 +1,10 @@
+class XRPN
+  def rand
+    @l = @x
+    lift
+    r = Random.new
+    @x = r.rand()
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rcl

@@ -0,0 +1,23 @@
+class XRPN
+  def rcl (r)
+    x = false
+    case r.downcase
+    when "x"
+      x = @x
+    when "y"
+      x = @y
+    when "z"
+      x = @z
+    when "t"
+      x = @t
+    end
+    lift
+    x ? @x = x : @x = @reg[r]
+	  if @x == nil
+      @reg[r] = 0.0
+      @x = 0.0 
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rclaf

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

data/cmd/rclflag

@@ -0,0 +1,16 @@
+class XRPN
+  def rclflag
+    lift
+    f = ""
+    @flg.each do |key, value| 
+      if key.match(/\d\d/)
+        value == true ? v = 1 : v = 0
+        f += "#{key}:#{v} " 
+      end
+    end
+    f.chop
+    @x = f.to_s
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rclpt

@@ -0,0 +1,8 @@
+class XRPN
+  def rclpt
+    lift
+    @x = @xmcont[0][3]
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rclpta

@@ -0,0 +1,16 @@
+class XRPN
+  def rclpta
+    f = Dir.home + "/.xrpn/data/" + @a
+    if File.exist?(f + ".as")
+      @xmcont = JSON.parse(File.read(f + ".as")) 
+      @x      = @xmcont[0][3]
+    elsif File.exist?(f + ".da")
+      @xmcont = JSON.parse(File.read(f + ".da")) 
+      @x      = @xmcont[0][3]
+    else
+      return "No such file: #{@a}"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rclsw

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

data/cmd/rdn

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

data/cmd/recip

@@ -0,0 +1,8 @@
+class XRPN
+  def recip
+    @l = @x
+    @x = 1 / @x
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/regmove

@@ -0,0 +1,18 @@
+class XRPN
+  def regmove
+    c = @x
+    b = c.to_i
+    e = (1000 * (c - b)).to_i
+    n = ((1000 * c).modulo(1).round(3) * 1000).to_i
+    n.times do |i|
+      f = (b + i).to_s
+      f = "%02d" % [f] if f == f.to_i.to_s
+      t = (e + i).to_s
+      t = "%02d" % [t] if t == t.to_i.to_s
+      @reg[f] = 0 if @reg[f] == nil
+      @reg[t] = @reg[f]
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/regswap

@@ -0,0 +1,19 @@
+class XRPN
+  def regswap
+    c = @x
+    b = c.to_i
+    e = (1000 * (c - b)).to_i
+    n = ((1000 * c).modulo(1).round(3) * 1000).to_i
+    n.times do |i|
+      f = (b + i).to_s
+      f = "%02d" % [f] if f == f.to_i.to_s
+      t = (e + i).to_s
+      t = "%02d" % [t] if t == t.to_i.to_s
+      @reg[f] = 0 if @reg[f] == nil
+      @reg[t] = 0 if @reg[t] == nil
+      @reg[t], @reg[f] = @reg[f], @reg[t]
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/reload

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

data/cmd/reszfl

@@ -0,0 +1,7 @@
+class XRPN
+  def reszfl
+    return "RESZFL: No need to resize files. Plenty of room here."
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rnd

@@ -0,0 +1,8 @@
+class XRPN
+  def rnd
+    @l = @x
+    @x = @x.round(@i)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/root

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

data/cmd/rtn

@@ -0,0 +1,12 @@
+class XRPN
+  def rtn
+    r = @rtn.pop
+    if r == nil
+      stop
+    else
+      @pc = r
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/rubycmd

@@ -0,0 +1,7 @@
+class XRPN
+  def rubycmd
+    eval(@a)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/runsw

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

data/cmd/rup

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

data/cmd/saveas

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

data/cmd/savep

@@ -0,0 +1,7 @@
+class XRPN
+  def savep
+    File.write(Dir.home + "/.xrpn/data/" + @a + ".pr", @prg[@pg])
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/saver

@@ -0,0 +1,24 @@
+class XRPN
+  def saver
+    if @a != ""
+      if File.exist?(Dir.home + "/.xrpn/data/" + @a + ".da")
+        load_xm(@a)
+      else
+        crfld
+      end
+    end
+    if @xmcont[0][1] != "DA"
+      return "Not a data file"
+    end
+    @reg.each do |key, value|
+      next unless key.match(/\d\d\d*/)
+      r = key.to_i
+      value = 0.0 if value == nil
+      @xmcont[r + 1] = value
+    end
+    @xmcont.map! { |x| x || 0.0 }
+    savexm
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/saverx

@@ -0,0 +1,31 @@
+class XRPN
+  def saverx
+    b = @x.to_i
+    e = (@x.frc * 1000).to_i
+    n = e - b
+    if @a != ""
+      if File.exist?(Dir.home + "/.xrpn/data/" + @a + ".da")
+        load_xm(@a)
+      else
+        crfld
+      end
+    end
+    if @xmcont[0][1] != "DA"
+      return "Not a data file"
+    end
+    @reg.each do |key, value|
+      next unless key.match(/\d\d\d*/)
+      r = key.to_i
+      next  if r < b
+      break if r > e
+      break if @xmcont[0][3] > @xmcont.length - 2
+      value = 0.0 if value == nil
+      @xmcont[@xmcont[0][3]] = value
+      @xmcont[0][3] += 1
+    end
+    @xmcont.map! { |x| x || 0.0 }
+    savexm
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/savex

@@ -0,0 +1,10 @@
+class XRPN
+  def savex
+    @xmcont[@xmcont[0][3] + 1] = @x
+    @xmcont[0][3] += 1
+    @xmcont[0][3] = @xmcont.length.to_f - 2 if @xmcont[0][3] > @xmcont.length - 2
+    save_xm
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/savexm

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

data/cmd/sci

@@ -0,0 +1,9 @@
+class XRPN
+  def sci (n)
+    @i = n.to_i
+    @s = 6
+    @g = 1
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sdev

@@ -0,0 +1,11 @@
+class XRPN
+  def sdev
+    @l = @x
+    lift
+    lift
+    @x = Math::sqrt(((@reg[@srg + 5] * @reg[@srg + 1]) - (@reg[@srg] * @reg[@srg])) / (@reg[@srg + 5] * (@reg[@srg + 5] - 1)))
+    @y = Math::sqrt(((@reg[@srg + 5] * @reg[@srg + 3]) - (@reg[@srg + 2] * @reg[@srg + 2])) / (@reg[@srg + 5] * (@reg[@srg + 5] - 1)))
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/seekpt

@@ -0,0 +1,10 @@
+class XRPN
+  def seekpt
+    @xmcont[0][3] = @x
+    @xmcont[0][3] = @xmcont.length.to_f - 2 if @xmcont[0][3] > @xmcont.length - 2
+    @xmcont[0][3] = 0.0 if @xmcont[0][3] < 0
+    save_xm
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/seekpta

@@ -0,0 +1,7 @@
+class XRPN
+  def seekpta
+    load_xm(@a, @x)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sep

@@ -0,0 +1,7 @@
+class XRPN
+  def sep
+    @flg["29"] = !@flg["29"]
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/setaf

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

data/cmd/setsw

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

data/cmd/sf

@@ -0,0 +1,7 @@
+class XRPN
+  def sf (r)
+    @flg[r] = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/shellcmd

@@ -0,0 +1,7 @@
+class XRPN
+  def shellcmd
+    system(@a)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sign

@@ -0,0 +1,19 @@
+class XRPN
+  def sign
+    @l = @x
+    lift
+    if @x.is_a? String
+      @x = 0
+      return
+    end
+    if @x >= 0
+      @x = 1
+    elsif @x < 0
+      @x = -1
+    else
+      @x = 0
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sin

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

data/cmd/size

@@ -0,0 +1,7 @@
+class XRPN
+  def psize (n)
+    return "SIZE: No need for that function"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sizeq

@@ -0,0 +1,7 @@
+class XRPN
+  def size?
+    return "SIZE = A Lot"
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/sminus

@@ -0,0 +1,20 @@
+class XRPN
+  def sminus
+    @l = @x
+    @reg[(@srg.to_i + 0).to_s] = 0 if @reg[(@srg.to_i + 0).to_s] == nil
+    @reg[(@srg.to_i + 1).to_s] = 0 if @reg[(@srg.to_i + 1).to_s] == nil
+    @reg[(@srg.to_i + 2).to_s] = 0 if @reg[(@srg.to_i + 2).to_s] == nil
+    @reg[(@srg.to_i + 3).to_s] = 0 if @reg[(@srg.to_i + 3).to_s] == nil
+    @reg[(@srg.to_i + 4).to_s] = 0 if @reg[(@srg.to_i + 4).to_s] == nil
+    @reg[(@srg.to_i + 5).to_s] = 0 if @reg[(@srg.to_i + 5).to_s] == nil
+    @reg[(@srg.to_i + 0).to_s] -= @x 
+    @reg[(@srg.to_i + 1).to_s] -= @x * @x
+    @reg[(@srg.to_i + 2).to_s] -= @y
+    @reg[(@srg.to_i + 3).to_s] -= @y * @y
+    @reg[(@srg.to_i + 4).to_s] -= @x * @y
+    @reg[(@srg.to_i + 5).to_s] -= 1 
+    @nolift = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/splus

@@ -0,0 +1,20 @@
+class XRPN
+  def splus
+    @l = @x
+    @reg[(@srg.to_i + 0).to_s] = 0 if @reg[(@srg.to_i + 0).to_s] == nil
+    @reg[(@srg.to_i + 1).to_s] = 0 if @reg[(@srg.to_i + 1).to_s] == nil
+    @reg[(@srg.to_i + 2).to_s] = 0 if @reg[(@srg.to_i + 2).to_s] == nil
+    @reg[(@srg.to_i + 3).to_s] = 0 if @reg[(@srg.to_i + 3).to_s] == nil
+    @reg[(@srg.to_i + 4).to_s] = 0 if @reg[(@srg.to_i + 4).to_s] == nil
+    @reg[(@srg.to_i + 5).to_s] = 0 if @reg[(@srg.to_i + 5).to_s] == nil
+    @reg[(@srg.to_i + 0).to_s] += @x 
+    @reg[(@srg.to_i + 1).to_s] += @x * @x
+    @reg[(@srg.to_i + 2).to_s] += @y
+    @reg[(@srg.to_i + 3).to_s] += @y * @y
+    @reg[(@srg.to_i + 4).to_s] += @x * @y
+    @reg[(@srg.to_i + 5).to_s] += 1 
+    @nolift = true
+  end
+end
+ 
+# vim:ft=ruby: