xrpn 1.2.1 → 1.3.1

data/xcmd/mean

@@ -1,4 +1,5 @@
 class XRPN
+# Statistical mean of X and Y values (to X and Y registers)
   def mean
     @l = @x
     lift
@@ -8,4 +9,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/mod

@@ -1,4 +1,5 @@
 class XRPN
+# Y modulo X
   def mod
     @l = @x
     begin

data/xcmd/multiply

@@ -1,4 +1,5 @@
 class XRPN
+# Multiply X and Y
   def *
     @l = @x
     @x = @y * @x

data/xcmd/oct

@@ -1,7 +1,8 @@
 class XRPN
+# Convert decimal value in X to octal
   def oct
     decoct
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/octdec

@@ -1,8 +1,9 @@
 class XRPN
+# Take X as an octal number and convert to decimal number in X
   def octdec
     @l = @x
 	@x = @x.to_s.convert_base(8, 10).to_f
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/off

@@ -1,8 +1,9 @@
 class XRPN
+# Ends XRPN.
   def off
 	@flg["44"] = false
 	exit
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/on

@@ -1,4 +1,5 @@
 class XRPN
+# Makes XRPN not end end on a single Enter in debug mode.
   def on
     @flg["44"] = true
   end

data/xcmd/p_r

@@ -1,4 +1,5 @@
 class XRPN
+# Polar to rectangular conversion
   def p_r
     @l = @x
     r = @x
@@ -10,4 +11,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pack

@@ -1,4 +1,5 @@
 class XRPN
+# Pack program (always packed)
   def pack
     return "PACK: No need for packing clothes or anything else."
   end

data/xcmd/page

@@ -1,4 +1,5 @@
 class XRPN
+# Make Page n the current working program Page
   def page (p)
     if p.to_i >= @prg.length
       return "Page number out of range."

data/xcmd/pagedel

@@ -1,4 +1,5 @@
 class XRPN
+# Delete Page n
   def pagedel (p)
     @prg.delete_at(p)
     return "Deleted page #{p}"

data/xcmd/pageq

@@ -1,7 +1,8 @@
 class XRPN
+# Prints current working Page
   def page?
     return "Page = #{@pg}"
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pageswap

@@ -1,8 +1,9 @@
 class XRPN
+# Swap pages (page numbers in X and Y)
   def pageswap
     @prg[@x.to_i], @prg[@y.to_i] = @prg[@y.to_i], @prg[@x.to_i]
     return "Pages #{@x.to_i} and #{@y.to_i} swapped"
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pasn

@@ -1,4 +1,5 @@
 class XRPN
+# Programmable key assignment (no keys to assign to)
   def pasn
     return "PASN: This is not a calculator with keys to assign functions to."
   end

data/xcmd/pcat

@@ -1,4 +1,5 @@
 class XRPN
+# Show global program labels across all Pages
   def pcat
     @prg.each_index do |i|
       @prg[i].each do |l|
@@ -11,4 +12,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pclps

@@ -1,4 +1,5 @@
 class XRPN
+# Programmable Clear Programs (current and remaining programs)
   def pclps
     pr = "\"#{@a}\""
     page, pos = locate_prg (pr)
@@ -9,4 +10,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/percent

@@ -1,4 +1,5 @@
 class XRPN
+# X percent Y
   def %
     @l = @x
     @x = (@x * @y) / 100

data/xcmd/percentch

@@ -1,4 +1,5 @@
 class XRPN
+# Percentage change from Y to X
   def perch
     @l = @x
     @x = 100*((@x - @y) / @y)

data/xcmd/pi

@@ -1,8 +1,9 @@
 class XRPN
+# Get PI to X
   def pi
     lift
     @x = Math::PI
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/posa

@@ -1,4 +1,5 @@
 class XRPN
+# Find position of string in X in the Alpha register
   def posa
     @l = @x
     if @x.is_a? String
@@ -20,4 +21,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/posfl

@@ -1,4 +1,5 @@
 class XRPN
+# Find position of string in Alpha in current XM file
   def posfl
     if @xmcont[0][0] == ""
       return 
@@ -23,4 +24,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pow

@@ -1,4 +1,5 @@
 class XRPN
+# Return Y to the power of X to X
   def pow
     @l = @x
     @x = @y ** @x
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pprg

@@ -1,4 +1,5 @@
 class XRPN
+# Print program
   def pprg
     page = @pg
     pos  = 0
@@ -24,4 +25,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pprgx

@@ -1,6 +1,6 @@
 class XRPN
+# Print current program from lines Y to X (relative to current line if Y is negative)
   def pprgx 
-    # Print current program from Y to X (relative to current line if Y is negative
     s = @y.to_i
     e = @x.to_i
     if (s == 0 and e == 0)

data/xcmd/pra

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

data/xcmd/prflags

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

data/xcmd/prompt

@@ -1,8 +1,9 @@
 class XRPN
+# Prompts for input (does not enter debug mode as with STOP)
   def prompt
     puts @a.c_a(1)
     $prompt = true
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/prp

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

data/xcmd/prregs

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

data/xcmd/prstk

@@ -1,4 +1,5 @@
 class XRPN
+# Print Stack (including Alpha and L)
   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)
@@ -7,4 +8,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/prx

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

data/xcmd/prxm

@@ -1,4 +1,5 @@
 class XRPN
+# Print content of eXtended Memory
   def prxm
     # Print content of current XM file
     out = ""
@@ -18,4 +19,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/pse

@@ -1,7 +1,8 @@
 class XRPN
+# Pause program for one second
   def pse
     sleep(1)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/psize

@@ -1,4 +1,5 @@
 class XRPN
+# Programmable SIZE (no need for any sizeing)
   def psize
     return "PSIZE: No need for that function"
   end

data/xcmd/purfl

@@ -1,4 +1,5 @@
 class XRPN
+# Purge (remove) XM file
   def purfl
     f = Dir.home + "/.xrpn/data/" + @a
     fl = [f + ".pr", f + ".as", f + ".da"]
@@ -11,4 +12,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/r_d

@@ -1,4 +1,5 @@
 class XRPN
+# Radians to degrees conversion
   def r_d
     @l = @x
 	@x = @x * 180 / Math::PI

data/xcmd/r_p

@@ -1,4 +1,5 @@
 class XRPN
+# Rectangular to polar conversion
   def r_p
     @l = @x
     x = @x
@@ -15,4 +16,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rad

@@ -1,7 +1,8 @@
 class XRPN
+# Set degree mode to GRAD (400 degrees in a circle)
   def rad
     @deg = "rad"
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rand

@@ -1,4 +1,5 @@
 class XRPN
+# Return a random number between 0 and 1 to X
   def rand
     @l = @x
     lift
@@ -7,4 +8,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rcl

@@ -1,4 +1,5 @@
 class XRPN
+# Recall content of named register to X
   def rcl (r)
     x = false
     case r.downcase

data/xcmd/rclaf

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

data/xcmd/rclflag

@@ -1,4 +1,5 @@
 class XRPN
+# Recall flag status to X (uses different, more readable flag status format)
   def rclflag
     lift
     f = ""
@@ -13,4 +14,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rclpt

@@ -1,8 +1,9 @@
 class XRPN
+# Recall the pointer for current XM file to X
   def rclpt
     lift
     @x = @xmcont[0][3]
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rclpta

@@ -1,4 +1,5 @@
 class XRPN
+# Recall the pointer for XM file (named in ALpha) to X
   def rclpta
     f = Dir.home + "/.xrpn/data/" + @a
     if File.exist?(f + ".as")
@@ -13,4 +14,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rclsw

@@ -1,4 +1,5 @@
 class XRPN
+# Recall stopwatch time (no stopwatch here)
   def rclsw
     return "RCLSW: No clock, alarm or stopwatch functions are implemented"
   end

data/xcmd/rdn

@@ -1,7 +1,8 @@
 class XRPN
+# Roll down the stack
   def rdn
     @x, @y, @z, @t = @y, @z, @t, @x
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/recip

@@ -1,4 +1,5 @@
 class XRPN
+# Return 1/X to X
   def recip
     @l = @x
     @x = 1 / @x

data/xcmd/regmove

@@ -1,4 +1,5 @@
 class XRPN
+# Move registers
   def regmove
     c = @x
     b = c.to_i
@@ -15,4 +16,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/regswap

@@ -1,4 +1,5 @@
 class XRPN
+# Swap registers
   def regswap
     c = @x
     b = c.to_i
@@ -16,4 +17,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/reload

@@ -1,7 +1,8 @@
 class XRPN
+# Reload all commands in the ./xrpn/cmd directory (makes it possble to modify or add commands while a program is running)
   def reload
     read_cmd
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/reszfl

@@ -1,4 +1,5 @@
 class XRPN
+# Resize XM file (no need, lots of room)
   def reszfl
     return "RESZFL: No need to resize files. Plenty of room here."
   end

data/xcmd/rnd

@@ -1,8 +1,9 @@
 class XRPN
+# Round X to current FIX number of decimal places
   def rnd
     @l = @x
     @x = @x.round(@i)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/root

@@ -1,4 +1,5 @@
 class XRPN
+# Return square root of X to X
   def root
     @l = @x
     @x = @y ** (1 / @x)
@@ -6,4 +7,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rtn

@@ -1,4 +1,5 @@
 class XRPN
+# Return program pointer to the last place in the return stack
   def rtn
     r = @rtn.pop
     if r == nil
@@ -9,4 +10,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/rubycmd

@@ -1,7 +1,8 @@
 class XRPN
+# Evaluate the Ruby command in Alpha. Gives you access to all of Ruby inside XRPN.
   def rubycmd
     eval(@a)
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/runsw

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

data/xcmd/rup

@@ -1,7 +1,8 @@
 class XRPN
+# Roll up the stack
   def rup
     @x, @y, @z, @t = @t, @x, @y, @z
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/saveas

@@ -1,7 +1,8 @@
 class XRPN
+# Save XM file
   def saveas
     save_xm
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/savep

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

data/xcmd/saver

@@ -1,4 +1,5 @@
 class XRPN
+# Save all registers to XM data file
   def saver
     if @a != ""
       if File.exist?(Dir.home + "/.xrpn/data/" + @a + ".da")
@@ -21,4 +22,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/saverx

@@ -1,4 +1,5 @@
 class XRPN
+# Save a certain number of registers to XM data file
   def saverx
     b = @x.to_i
     e = (@x.frc * 1000).to_i
@@ -28,4 +29,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/savex

@@ -1,4 +1,5 @@
 class XRPN
+# Save X to the current XM data file record
   def savex
     @xmcont[@xmcont[0][3] + 1] = @x
     @xmcont[0][3] += 1
@@ -7,4 +8,4 @@ class XRPN
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/savexm

@@ -1,7 +1,8 @@
 class XRPN
+# Save the current XM file to disk
   def savexm
     save_xm
   end
 end
  
-# vim:ft=ruby:
+# vim:ft=ruby: