xrpn 1.1.2 → 1.1.4

data/cmd/saver

@@ -1,24 +0,0 @@
-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

@@ -1,31 +0,0 @@
-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

@@ -1,10 +0,0 @@
-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

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

data/cmd/sci

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

data/cmd/sdev

@@ -1,11 +0,0 @@
-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

@@ -1,10 +0,0 @@
-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

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

data/cmd/sep

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

data/cmd/setaf

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

data/cmd/setsw

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

data/cmd/sf

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

data/cmd/shellcmd

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

data/cmd/sign

@@ -1,19 +0,0 @@
-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

@@ -1,10 +0,0 @@
-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

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

data/cmd/sizeq

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

data/cmd/sminus

@@ -1,20 +0,0 @@
-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

@@ -1,20 +0,0 @@
-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:

data/cmd/sqr

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

data/cmd/sqrt

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

data/cmd/sreg

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

data/cmd/sregq

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

data/cmd/stdivide

@@ -1,22 +0,0 @@
-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

@@ -1,22 +0,0 @@
-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

@@ -1,21 +0,0 @@
-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

@@ -1,13 +0,0 @@
-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

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

data/cmd/stopsw

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

data/cmd/stplus

@@ -1,22 +0,0 @@
-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

@@ -1,22 +0,0 @@
-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

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

data/cmd/sw

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

data/cmd/swap

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

data/cmd/swpt

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

data/cmd/tan

@@ -1,10 +0,0 @@
-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

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

data/cmd/time

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

data/cmd/tx

@@ -1,7 +0,0 @@
-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

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

data/cmd/view

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

data/cmd/writefile

@@ -1,12 +0,0 @@
-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

@@ -1,21 +0,0 @@
-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

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

data/cmd/xeqnn

@@ -1,9 +0,0 @@
-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

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

data/cmd/xf

@@ -1,20 +0,0 @@
-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

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

data/cmd/xgteq0

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

data/cmd/xgteqnn

@@ -1,9 +0,0 @@
-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

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

data/cmd/xgtnn

@@ -1,9 +0,0 @@
-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: