xrpn 1.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: ec611b098ae31061be5df9cb0d924ff76b84ecb71d606acd204775f7b3775a56
+  data.tar.gz: 62e8c735f5cffaa562ac2620d564d7b41b6841443d94819b63a4342c0ee2009b
+SHA512:
+  metadata.gz: 6f030302c85ef1b7606c370b174a20e91cf1cc32fe28ecd992ffee376c5dcd69d827bc437287d7c40b76cc90cb1e4debe5cbde59c5f7d73530c70d7f5a69be1a
+  data.tar.gz: ba1c3c64c2f5d5e5aa7551dd991c7fbe89c2e778590df08feb12893ee95be4d6991967dbe66c9c91c0fa343f8c8fc9420940bf6709df28448216b5d5793d96cc

data/bin/xrpn

@@ -0,0 +1,110 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+
+# GET EXTENSIONS
+begin
+  require 'xrpn'
+rescue LoadError
+  puts "You may want to install xrpn via `gem install xrpn`"
+end
+require 'optparse'
+require 'io/console'
+require 'date'
+require 'bigdecimal'
+require 'open-uri'
+require 'json'
+require 'tty-prompt'
+
+# ENSURE DIRs
+Dir.mkdir(Dir.home + "/.xrpn") unless File.exist?(Dir.home + "/.xrpn")
+["cmd", "data", "extra", "lib", "print"].each do |d|
+  Dir.mkdir(Dir.home + "/.xrpn/" + d) unless File.exist?(Dir.home + "/.xrpn/" + d)
+end
+
+# INITIALIZE
+@x, @y, @z, @t, @a = 0, 0, 0, 0, ""
+Dir[Dir.home+"/.xrpn/lib/*"].each { |file| load file }  # Read libraries
+read_cmd                                                # Read XRPN commands
+@p = XRPN.new($rfile)
+@p.x, @p.y, @p.z, @p.t, @p.a = @x, @y, @z, @t, @a
+@p.prg[@p.pg] = ["LBL \"XRPN\"", "END"] unless $rfile   # Put dummy program in page 0 if no file to run
+@p.prg[@p.pg] = hp_41(@p.prg[@p.pg]) if $rfile          # Substitute HP-41 commands with XRPN commands
+if $lfile                                               # Read file to load but not run if -l switch is used
+  $lfile.each_with_index do |f, i|
+    @p.prg[i] = File.read(f).split("\n")
+    @p.prg[i] = hp_41(@p.prg[i])
+  end
+end
+read_state($sfile) if $sfile                            # Read state file in ~.xrpn/ if -s switch is used
+$debug = true      if $lfile or $sfile                  # Do not run loaded program or program in state file
+load(Dir.home+'/.xrpn/lib/theme_dark')  if File.exist?(Dir.home+'/.xrpn/lib/theme_dark') # Read theme file
+load(Dir.home+'/.xrpn/conf')            if File.exist?(Dir.home+'/.xrpn/conf')           # Read config file
+load(Dir.home+'/.xrpn/lib/theme_light') if $theme == "light" and File.exist?(Dir.home+'/.xrpn/lib/theme_light') # Read theme file
+load(Dir.home+'/.xrpn/theme') if File.exist?(Dir.home+'/.xrpn/theme') # Override theme if user theme file exists
+
+
+# THE CORE OF THE RPN PROGRAM
+@nl = false # Nolift set to false
+@i  = 0     # Counter to prevent infinite loops
+until @p.pc == @p.prg[@p.pg].length do
+  # Enter debug mode if $debug or $prompt is set, else read next program line
+  ($debug or $prompt) ? debug_mode : @line = @p.prg[@p.pg][@p.pc]
+  @line = "" if @line == nil
+  if @line.match(/^-*[\d\.,e]+$/) # If a number is supplied
+    @line.sub!(/,/, '.')
+    @p.lift
+    @p.x = @line.to_f
+    @p.flg["22"] = true  # Number has been entered
+    @p.flg["23"] = false
+  elsif @line.match(/^>?".*"/) # If an Alpha string is supplied 
+    if @line.match(/^"\|/)
+      @p.a += @line.sub(/\|-?/, '').gsub(/\"/, '') # Append to Alpha if "|abc", "|-abc"
+    elsif @line.match(/^>"/)
+      @p.a += @line.sub(/>/, '').gsub(/\"/, '')    # Append to Alpha if >"abc"
+    else
+      @p.a = @line.gsub(/\"/, '') # ...or set Alpha to the supplied string
+    end
+    @p.flg["22"] = false
+    @p.flg["23"] = true  # String has been entered
+  else # Split command in maximum three words (e.g. STO IND 13)
+    l1, l2, l3 = @line.split[0], @line.split[1], @line.split[2]
+    l2 = "%02d" % [l2] if l2 == l2.to_i.to_s
+    l3 = "%02d" % [l3] if l3 == l3.to_i.to_s
+    l2 = ind(l3) if l3 # If middle word is "IND" (or anything actually - since IND is the only possibility)
+    l1 = "" if l1 == nil
+    if not $cmd.include?(l1.downcase) # Catch unknown command
+      puts "No such command: #{l1}"
+      @p.stop
+    elsif XRPN.method_defined?(l1.downcase) # Or execute the command with either 1 or 2 parts
+      begin
+        l2 ? ret = @p.send(l1.downcase, l2) : ret = @p.send(l1.downcase)
+      rescue ArgumentError
+        puts "Command needs an argument."
+        @p.stop
+      rescue TypeError
+        error("ERROR: Wrong type.")
+      rescue ZeroDivisionError
+        error("ERROR: Division by zero.")
+      rescue FloatDomainError
+        error("ERROR: Number out of range.")
+      rescue Math::DomainError
+        error("ERROR: Number out of domain.")
+      end
+      puts ret if     $debug and ret.instance_of? String
+      puts ret if not $debug and ret.to_s.match(/Error:/)
+      @p.flg["22"] = false
+      @p.flg["23"] = false
+    end
+  end
+  @p.nolift = false if @nl
+  @p.nolift ? @nl = true : @nl = false
+  @p.pc += 1 unless ($debug or $prompt)
+  @i    += 1 unless ($debug or @i < 0) # Handling of potential infinite loops
+  if @i > 1000
+    puts "Looped 1000 times. Press 'c' to continue indefinitely or any other key to stop."
+    ans = STDIN.getch
+    ans == "c" ? @i = -1 : $debug = true
+  end
+end
+
+# vim: set sw=2 sts=2 et ft=ruby fdm=syntax fdn=2 fcs=fold\:\ :

data/cmd/abs

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

data/cmd/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/cmd/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/cmd/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/cmd/add

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

data/cmd/adv

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

data/cmd/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/cmd/aleng

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

data/cmd/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/cmd/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/cmd/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/cmd/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/cmd/aon

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

data/cmd/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/cmd/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/cmd/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/cmd/arcli

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

data/cmd/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/cmd/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/cmd/ashf

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

data/cmd/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/cmd/asroom

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

data/cmd/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/cmd/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/cmd/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/cmd/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/cmd/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/cmd/atox

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

data/cmd/aview

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

data/cmd/aviewc

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

data/cmd/beep

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

data/cmd/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/cmd/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/cmd/cf

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

data/cmd/chs

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

data/cmd/cla

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

data/cmd/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/cmd/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/cmd/cld

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

data/cmd/clear

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

data/cmd/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/cmd/clk12

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

data/cmd/clk24

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

data/cmd/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/cmd/clock

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