xrpn 1.1.5 → 1.1.7

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0a2ca9bf6429099842a9bc323055f0473cb543b69131aa7aeb31b1dc037f0c43
-  data.tar.gz: 8b97293a10173c09e857ff0c95bee747198b5ee5228f61ae8e0cdc3a2bfb0bfc
+  metadata.gz: 3bc359eaf9eff213e3dc7ff0050fdaec73ccbf89990312534e425e6c2f11fb7d
+  data.tar.gz: f7dfcb8196f206f0636c9bfbde3b77d0939190a86ff9c8b253af9140beaf48fc
 SHA512:
-  metadata.gz: 82bdf6b142a00b0edfa5470823fc4bad1ab42f8fdff9e1cc2e936559971316350e59c44d37d25189133f7814ae811197d86f38874c25e8a7edab3e2c2ec86feb
-  data.tar.gz: 7c460e3515c7497c2c0c535687f496c021ecc649fb84aa0d665f4880893e2ac8fe4d48f33454a27d6184c846f9c9de51a7b5fe4deb30f6b8eab178a1bb534772
+  metadata.gz: 7d9d3802c169f108379c88652c44be78b26930f94c6d3d5447f945983307bfd639daa2944c4df4b4b2a008c197d10d7f1df9b3cdfb7cedcbea251db725253e07
+  data.tar.gz: a5539c1057a057e1023f5ab742bfc71055027b1acf3d61818f2c3c75bbaf3fd47f8b7b851b1061f1a6455a0d22b38288e2785d6500d7cdb4569421e2154163a1

data/lib/xrpn.rb

@@ -1,2 +1,3 @@
+puts "Loading..."
 Dir[__dir__ + "/../xlib/*"].each { |file| load file }
 Dir[__dir__ + "/../xcmd/*"].each { |file| load file }

data/xcmd/abs

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

data/xcmd/acos

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

data/xcmd/adate

@@ -0,0 +1,12 @@
+class XRPN
+  def adate
+    d = @x.to_s
+    if @flg["31"] # DMY
+      @a += d.sub(/(\d*)\.(\d\d)\d\d(\d\d)\d*/, '\1.\2.\3')
+    else # MDY
+      @a += d.sub(/(\d*)\.(\d\d)\d\d(\d\d)\d*/, '\1/\2/\3')
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/adateiso

@@ -0,0 +1,13 @@
+class XRPN
+  def adateiso
+    d = @x.to_s
+    d = "0" + d if d.match(/^\d\./)
+    if @flg["31"] # DMY
+      @a += d.sub(/(\d*)\.(\d\d)(\d\d\d\d)\d*/, '\3-\2-\1')
+    else # MDY
+      @a += d.sub(/(\d*)\.(\d\d)(\d\d\d\d)\d*/, '\3-\1-\2')
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/add

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

data/xcmd/adv

@@ -0,0 +1,7 @@
+class XRPN
+  def adv
+    puts "\n"
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/agsub

@@ -0,0 +1,8 @@
+class XRPN
+  def agsub
+    return unless (@x.is_a? String and @y.is_a? String)
+    @a.gsub!(Regexp.new(@x), @y)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/aleng

@@ -0,0 +1,8 @@
+class XRPN
+  def aleng
+	lift
+    @x = @a.length
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/almcat

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

data/xcmd/almnow

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

data/xcmd/anum

@@ -0,0 +1,10 @@
+class XRPN
+  def anum
+    lift
+    n = @a.scan(/[\d.,e]+/).first
+    n.sub!(/,/, '.') unless @dot
+    @x = n.to_f
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/aoff

@@ -0,0 +1,7 @@
+class XRPN
+  def aoff
+    return "AOFF: As with AON, no real need for that function"
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/aon

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

data/xcmd/appchr

@@ -0,0 +1,13 @@
+class XRPN
+  def appchr
+    if @xmcont[0][0] == ""
+      return 
+    else
+      r = @xmcont[0][3].to_i + 1
+      @xmcont[r] += @a
+      savexm
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/apprec

@@ -0,0 +1,13 @@
+class XRPN
+  def apprec
+    if @xmcont[0][0] == ""
+      return 
+    else
+      @xmcont[0][3] = @xmcont[0][3].to_i + 1.0
+      @xmcont.insert(@xmcont[0][3].to_i + 1, @a)
+      savexm
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/arcl

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

data/xcmd/arcli

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

data/xcmd/arclrec

@@ -0,0 +1,30 @@
+class XRPN
+  def arclrec
+    if @xmcont[0][0] == ""
+      return 
+    else
+      if @xmcont[0][3] > @xmcont.length - 2
+        @xmcont[0][3] = 0.0 
+		return "END OF FILE"
+      end
+      r, c = getpt
+      n = 24 - @a.length
+      n = 0 if n < 0
+      e = c + n
+      n > 0 ? s = @xmcont[r][c..e - 1] : s = "" 
+      @a += s
+      if e > @xmcont[r].length - 2
+        setpt(r + 1, 0)
+        @flg["17"]    = true
+      elsif n > 0
+        p c, n, @xmcont[0][3]
+        setpt(r, e + 1)
+        p "After", @xmcont[0][3]
+        @flg["17"]    = false
+      end
+      savexm
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/arot

@@ -0,0 +1,13 @@
+class XRPN
+  def arot
+    if @x > 0
+      r  = (@x - 1).to_i
+      @a = @a[(r + 1)..] + @a[0..r]
+    elsif @x < 0
+      r  = (@x - 1).abs.to_i
+      @a = @a[(r - 1)..] + @a[0..(r - 2)]
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/ashf

@@ -0,0 +1,7 @@
+class XRPN
+  def ashf
+    @a = @a[6..]
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/asin

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

data/xcmd/asroom

@@ -0,0 +1,7 @@
+class XRPN
+  def asroom
+    return "ASROOM: There's always plenty of room"
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/asto

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

data/xcmd/asub

@@ -0,0 +1,8 @@
+class XRPN
+  def asub
+    return unless (@x.is_a? String and @y.is_a? String)
+    @a.sub!(Regexp.new(@x), @y)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/atan

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

data/xcmd/atime

@@ -0,0 +1,26 @@
+class XRPN
+  def atime
+    t  = @x.to_f
+    am = true
+    case t
+    when ..-12
+      t = t.abs
+    when -12..-1
+      t  = t.abs
+      am = false
+      t += 12 if @clk24
+    when -1..0
+      t  = t.abs
+    end
+    t = BigDecimal(t.to_s).truncate(@i).to_f
+    h = t.to_i
+    m = (100 * (t - h)).to_i
+    s = (100 * (100 * (t -h) - m)).round(@i)
+    @a += "#{h}:#{m}:#{s}"
+    if @clk24 == false
+      am ? @a += " AM" : @a += " PM"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/atime24

@@ -0,0 +1,21 @@
+class XRPN
+  def atime24
+    t  = @x.to_f
+    case t
+    when ..-12
+      t = t.abs
+    when -12..-1
+      t  = t.abs
+      t += 12
+    when -1..0
+      t  = t.abs
+    end
+    t = BigDecimal(t.to_s).truncate(@i).to_f
+    h = t.to_i
+    m = (100 * (t - h)).to_i
+    s = (100 * (100 * (t -h) - m)).round(@i)
+    @a += "#{h}:#{m}:#{s}"
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/atox

@@ -0,0 +1,9 @@
+class XRPN
+  def atox
+    lift
+    @x = @a[0].ord
+    @a = @a[1..]
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/aview

@@ -0,0 +1,7 @@
+class XRPN
+  def aview
+    puts @a.c_a(1)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/aviewc

@@ -0,0 +1,7 @@
+class XRPN
+  def aviewc
+    puts @a.color(@x.to_i)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/beep

@@ -0,0 +1,7 @@
+class XRPN
+  def beep
+    `xdg-open ~/.xrpn/extra/beep41.wav`
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/bindec

@@ -0,0 +1,8 @@
+class XRPN
+  def bindec
+    @l = @x
+	@x = @x.to_s.convert_base(2, 10).to_f
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/cat

@@ -0,0 +1,26 @@
+class XRPN
+  def cat (c)
+    case c.to_i
+    when 1
+      pcat
+    when 3
+      puts "Commands:"
+      i = 1
+      $cmd.each do |cm|
+        print cm.ljust(12)
+        print "\n" if i % 7 == 0 
+        i += 1
+      end
+      print "\n"
+    when 4
+      Dir[Dir.home+"/.xrpn/data/*"].each do |file|
+        f = file.sub(/.*\/(.*)\...$/, '\1')
+        t = file.sub(/.*\.(..)$/, '\1').upcase
+        l = File.size(file) / 7
+        puts "#{f.ljust(12)}  #{t}  #{l.to_s.rjust(4)}"
+      end
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/cf

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

data/xcmd/chs

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

data/xcmd/cla

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

data/xcmd/clalma

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

data/xcmd/clalmx

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

data/xcmd/cld

@@ -0,0 +1,6 @@
+class XRPN
+  def cld
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clear

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

data/xcmd/clfl

@@ -0,0 +1,13 @@
+class XRPN
+  def clfl
+    if @xmcont[0][0] == ""
+      return 
+    else
+      @xmcont = [@xmcont[0]]
+      @xmcont[0][3] = 0.0
+      savexm
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clk12

@@ -0,0 +1,7 @@
+class XRPN
+  def clk12
+    @clk24 = false
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clk24

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

data/xcmd/clkeys

@@ -0,0 +1,7 @@
+class XRPN
+  def clkeys
+    return "CLKEYS: No need for this function as there is no calculator keyboard here."
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clock

@@ -0,0 +1,7 @@
+class XRPN
+  def clock
+    return "CLOCK: Tick, tock... not implemented."
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clp

@@ -0,0 +1,8 @@
+class XRPN
+  def clp (p)
+    page, pos, prgm = locate_prg (p)
+    @prg[page] -= prgm
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clralms

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

data/xcmd/clrg

@@ -0,0 +1,7 @@
+class XRPN
+  def clrg
+    @reg.each_key {|key| @reg[key] = 0 }
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clrgx

@@ -0,0 +1,12 @@
+class XRPN
+  def clrgx
+    b, e, i = x2bei(@x)
+    j = b
+    until j > e do
+      @reg[j] = 0
+      j += i
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/cls

@@ -0,0 +1,12 @@
+class XRPN
+  def cls
+    @reg[@srg + 0] = 0.0
+    @reg[@srg + 1] = 0.0
+    @reg[@srg + 2] = 0.0
+    @reg[@srg + 3] = 0.0
+    @reg[@srg + 4] = 0.0
+    @reg[@srg + 5] = 0.0
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/clst

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

data/xcmd/clx

@@ -0,0 +1,8 @@
+class XRPN
+  def clx
+    @x = 0.0
+    @nolift = true
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/cmdadd

@@ -0,0 +1,7 @@
+class XRPN
+  def cmdadd
+    @prg.insert(@x.to_i, @a)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/cmddel

@@ -0,0 +1,7 @@
+class XRPN
+  def cmddel
+    @prg.delete_at(@x.to_i)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/correct

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