xrpn 1.2.1 → 1.3

data/xcmd/sci

@@ -1,4 +1,5 @@
 class XRPN
+# Scientific format. Set number of decimals (fix) to n, threshold to for when exponents kick in to 9.
   def sci (n)
     @i = n.to_i
     @s = 6

data/xcmd/sdev

@@ -1,4 +1,5 @@
 class XRPN
+# Standard deviation for X and Y to the X and Y registers
   def sdev
     @l = @x
     lift
@@ -8,4 +9,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/seekpt

@@ -1,4 +1,5 @@
 class XRPN
+# Set pointer of current XM file to X
   def seekpt
     @xmcont[0][3] = @x
     @xmcont[0][3] = @xmcont.length.to_f - 2 if @xmcont[0][3] > @xmcont.length - 2
@@ -7,4 +8,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/seekpta

@@ -1,7 +1,8 @@
 class XRPN
+# Set pointer of XM file named in Alpha to X
   def seekpta
     load_xm(@a, @x)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/sep

@@ -1,4 +1,5 @@
 class XRPN
+# Toggles Flag 29 (separator for every 3 digits)
   def sep
     @flg["29"] = !@flg["29"]
   end

data/xcmd/setaf

@@ -1,4 +1,5 @@
 class XRPN
+# Set clock accuracy factor (no clock function)
   def setaf
     return "SETAF: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/setsw

@@ -1,4 +1,5 @@
 class XRPN
+# Set stopwatch (no stopwatch here)
   def setsw
     return "SETSW: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/sf

@@ -1,4 +1,5 @@
 class XRPN
+# Set flag n
   def sf (r)
     @flg[r] = true
   end

data/xcmd/shellcmd

@@ -1,7 +1,8 @@
 class XRPN
+# Executes the shell command in Alpha. Gives you access to all of Bash inside XRPN.
   def shellcmd
     system(@a)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/sign

@@ -1,4 +1,5 @@
 class XRPN
+# Swap sign of X (X becomes -X and -X becomes X)
   def sign
     @l = @x
     lift
@@ -16,4 +17,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/sin

@@ -1,4 +1,5 @@
 class XRPN
+# Return SIN of X to X
   def sin
     @l = @x
     @x = @x.to_rad  if @deg == "deg"

data/xcmd/size

@@ -1,4 +1,5 @@
 class XRPN
+# Set size of memory (no need, lots of room)
   def psize (n)
     return "SIZE: No need for that function"
   end

data/xcmd/sizeq

@@ -1,4 +1,5 @@
 class XRPN
+# Returns size of memory (no need, lots of room)
   def size?
     return "SIZE = A Lot"
   end

data/xcmd/sminus

@@ -1,4 +1,5 @@
 class XRPN
+# Delete data values from statistical accumulation
   def sminus
     @l = @x
     @reg[(@srg.to_i + 0).to_s] = 0 if @reg[(@srg.to_i + 0).to_s] == nil

data/xcmd/splus

@@ -1,4 +1,5 @@
 class XRPN
+# Add data values to statistical accumulation
   def splus
     @l = @x
     @reg[(@srg.to_i + 0).to_s] = 0 if @reg[(@srg.to_i + 0).to_s] == nil

data/xcmd/sqr

@@ -1,8 +1,9 @@
 class XRPN
+# Return square of X to X
   def sqr
     @l = @x
     @x = @x ** 2
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/sqrt

@@ -1,8 +1,9 @@
 class XRPN
+# Return square root of X to X
   def sqrt
     @l = @x
     @x = Math::sqrt(@x)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/sreg

@@ -1,4 +1,5 @@
 class XRPN
+# Set start of statistical registers to n
   def sreg (r)
     @srg = r
   end

data/xcmd/sregq

@@ -1,7 +1,8 @@
 class XRPN
+# Return start of statistical registers to X
   def sreg?
     return "ΣREG = " + @sreg
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/stdivide

@@ -1,4 +1,5 @@
 class XRPN
+# Store divide (divide the content of reg n by X in reg n)
   def stdivide (r)
     case r.downcase
     when "x"

data/xcmd/stmultiply

@@ -1,4 +1,5 @@
 class XRPN
+# Store multiply (multiply the content of reg n by X in reg n)
   def stmultiply (r)
     case r.downcase
     when "x"

data/xcmd/sto

@@ -1,4 +1,5 @@
 class XRPN
+# Store X in register n
   def sto (r)
     case r.downcase
     when "x"

data/xcmd/stoflag

@@ -1,4 +1,5 @@
 class XRPN
+# Restore flag status from X (uses different, more readable flag status format)
   def stoflag
     flags = @x.split(" ")
     flags.each do |fv|
@@ -10,4 +11,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/stop

@@ -1,7 +1,8 @@
 class XRPN
+# Halt program execution (and enter "Debug mode")
   def stop
     $debug = true
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/stopsw

@@ -1,4 +1,5 @@
 class XRPN
+# Stop stopwatch (no stopwatch here)
   def stopsw
     return "STOPSW: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/stplus

@@ -1,4 +1,5 @@
 class XRPN
+# Store plus (add X to the content of reg n in reg n)
   def stplus (r)
     case r.downcase
     when "x"

data/xcmd/stsubtract

@@ -1,4 +1,5 @@
 class XRPN
+# Store subtract (subtract X from the content of reg n in reg n)
   def stsubtract (r)
     case r.downcase
     when "x"

data/xcmd/subtract

@@ -1,4 +1,5 @@
 class XRPN
+# Subtract X from Y
   def -
     @l = @x
     @x = @y - @x

data/xcmd/sw

@@ -1,4 +1,5 @@
 class XRPN
+# Stopwatch (no stopwatch here)
   def sw
     return "SW: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/swap

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

data/xcmd/swpt

@@ -1,4 +1,5 @@
 class XRPN
+# Stopwatch and pointers (no stopwatch here)
   def swpt
     return "SWPT: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/tan

@@ -1,4 +1,5 @@
 class XRPN
+# Return TAN of X to X
   def tan
     @l = @x
     @x = @x.to_rad  if @deg == "deg"

data/xcmd/tenx

@@ -1,8 +1,9 @@
 class XRPN
+# Return ten to the power of X to X
   def tenx
     @l = @x
     @x = 10 ** @x
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/time

@@ -1,8 +1,9 @@
 class XRPN
+# Return a formatted time in X to Alpha
   def time
     lift
     @x = Time.now.strftime("%H.%M%s").to_f
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/tx

@@ -1,4 +1,5 @@
 class XRPN
+# Add X to clock time (no clock function)
   def tx # T+X
     return "T+X: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/version

@@ -1,4 +1,5 @@
 class XRPN
+# Show the XRPN version number
   def version
     xrpn_version
   end

data/xcmd/view

@@ -1,4 +1,5 @@
 class XRPN
+# View (print) the content of register n
   def view (r)
     puts @reg[r]
   end

data/xcmd/writefile

@@ -1,4 +1,5 @@
 class XRPN
+# Write X as content to file named in Alpha
   def writefile
     begin
       @x = File.write(@a)
@@ -9,4 +10,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xeq

@@ -1,4 +1,5 @@
 class XRPN
+# Jump to label n and return here after an RTN or END is encountered
   def xeq (l)
     page, pos = locate_prg (l)
     if pos == nil

data/xcmd/xeq0

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xeq0?
     @x == 0 ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xeqnn

@@ -1,4 +1,5 @@
 class XRPN
+# Conditional - if not true, skip next program line (reg NN in Y)
   def xeqnn?
     r = @x.to_i
     r = "%02d" % [r] if r == r.to_i.to_s
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xeqy

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xeqy?
     @x == @y ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xf

@@ -1,4 +1,5 @@
 class XRPN
+# X exchange flag status (flags 0-7)
   def xf # X<>F
     fsumx = 0
 	  7.times do |f|

data/xcmd/xgt0

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xgt0?
     @x > 0 ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xgteq0

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xgteq0?
     @x >= 0 ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xgteqnn

@@ -1,4 +1,5 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xgteqnn?
     r = @x.to_i
     r = "%02d" % [r] if r == r.to_i.to_s
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xgteqy

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xgteqy?
     @x >= @y ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xgtnn

@@ -1,4 +1,5 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xgtnn?
     r = @x.to_i
     r = "%02d" % [r] if r == r.to_i.to_s
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xgty

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xgty?
     @x > @y ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xlt0

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xlt0?
     @x < 0 ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xlteq0

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xlteq0?
     @x <= 0 ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xlteqnn

@@ -1,4 +1,5 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xlteqnn?
     r = @x.to_i
     r = "%02d" % [r] if r == r.to_i.to_s
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xlteqy

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xlteqy?
     @x <= @y ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xltnn

@@ -1,4 +1,5 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xltnn?
     r = @x.to_i
     r = "%02d" % [r] if r == r.to_i.to_s
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xlty

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xlty?
     @x < @y ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xmexistq

@@ -1,4 +1,5 @@
 class XRPN
+# Checks if XM file named in Alpha exists (returns file type and YES or NO)
   def xmexist?
     f  = Dir.home + "/.xrpn/data/" + @a
     if File.exist?(f + ".da")
@@ -12,4 +13,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xmfileq

@@ -1,7 +1,8 @@
 class XRPN
+# Print name of current XM file
   def xmfile?
     return "XMFILE = #{@xmfile}"
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xneq0

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xneq0?
     @x != 0 ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xneqnn

@@ -1,4 +1,5 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xneqnn?
     r = @x.to_i
     r = "%02d" % [r] if r == r.to_i.to_s
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xneqy

@@ -1,7 +1,8 @@
 class XRPN
+# Conditional - if not true, skip next program line
   def xneqy?
     @x != @y ? conditional(true) : conditional(false)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xnn

@@ -1,4 +1,5 @@
 class XRPN
+# Exchange X and content of register n
   def xnn (r) # X<> r
 	case r.downcase
     when "x"

data/xcmd/xtoa

@@ -1,7 +1,8 @@
 class XRPN
+# Add character from character code in X to Alpha
   def xtoa
     @a += @x.to_i.chr
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xy

@@ -1,7 +1,8 @@
 class XRPN
+# Swap X and Y
   def xy
     @x, @y = @y, @x
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/xyzalm

@@ -1,4 +1,5 @@
 class XRPN
+# Set alarm (no alarm functions implemented)
   def xyzalm
     return "XYZALM: No clock, alarm or stopwatch functions are implemented"
   end

data/xlib/_xrpn_version

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

data/xlib/debug_mode

@@ -1,5 +1,5 @@
 def debug_mode
-  prompt = TTY::Prompt.new
+  #prompt = TTY::Prompt.new
   loop do
     if $prompt
       @line = prompt.ask(":")
@@ -7,23 +7,7 @@ def debug_mode
     else
       puts "─" * 30
       @p.prstk
-      print "> "
-      @ln = STDIN.getch
-      while IO.select([STDIN], [], [], 0) != nil # Flush STDIN (remove control chars)
-        STDIN.getch
-      end
-      if ["+", "-", "*", "/", "%"].include?(@ln)
-        print "\e[32m" + @ln + "\e[0m\n"
-        @ln   = [@ln]
-        @line = hp_41(@ln)[0]
-        break
-      elsif @ln == "\r" # A simple ENTER
-        @line = "lift"
-        puts "\n"
-        break
-      end
-      print "\e[1G\e[K" # Clears from the beginning of line (removes getch prompt)
-      @line = prompt.ask(">", value: @ln)
+      @line = @debugprompt.ask(">")
       unless @line == nil or @line.length == 1
         @line = [@line]
         @line = hp_41(@line)[0]