RubyGems - xrpn - Versions diffs - 1.2.1 → 1.3 - Mend

xrpn 1.2.1 → 1.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (267) hide show

data/xcmd/delchr CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Delete X characters from current XM file starting at pointer
   def delchr
     if @xmcont[0][0] == ""
       return
@@ -11,4 +12,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/delrec CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Delete current record from current XM file
   def delrec
     if @xmcont[0][0] == ""
       return
@@ -9,4 +10,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/divide CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Return 1\/X to X
   def /
     @l = @x
     @x = @y / @x
@@ -6,4 +7,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/dmy CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Set date mode to DD.MMYYYY
   def dmy
     @flg["31"] = true
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/dot CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Toggles Flag 28 (dot type - dot or comma as decimal separator)
   def dot
     @flg["28"] = !@flg["28"]
   end

data/xcmd/dow CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Return Day Of Week for date in X
   def dow
     @l = @x
     lift
@@ -6,4 +7,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/drop CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Drop stack
   def drop
     @x, @y, @z = @y, @z, @t
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/dropy CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Drop only Z and Y
   def dropy
     @y, @z = @z, @t
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/dse CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Decrease, skip if greater using named register
   def dse (r)
     case r.downcase
     when "x"

data/xcmd/ed CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Go to ascii file editor (no need for that)
   def ed
     return "No need for an editor.\nEdit your files in ~/.xrpn/data/ with your favourite editor (VIM)."
   end

data/xcmd/emdir CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Print data for all XM files (name and type and size)
   def emdir
     cat 4
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/emdirx CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Print X'th XM file (name and type and size)
   def emdirx
     fl = Dir[Dir.home+"/.xrpn/data/*"][@x.to_i - 1]
     f  = fl.sub(/.*\/(.*)\...$/, '\1')
@@ -11,4 +12,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/emroom CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get room left in eXtended Memory (lots and lots)
   def emroom
     return "EMROOM: There's always plenty of room"
   end

data/xcmd/end CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# End of program
   def end
     p = @pc
     rtn

data/xcmd/eng CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Engineering format. Set number of decimals (fix) to n, threshold to for when exponents kick in to 6 and show exponents as multiples of 3.
   def eng (n)
     @i = n.to_i
     @g = 3

data/xcmd/enter CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Lift stack
   def enter
     lift
     @nolift = true
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/exp CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Natural exponent
   def exp
     @l = @x
     lift
@@ -6,4 +7,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/expx1 CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# For arguments close to zero
   def expx1
     @l = @x
     lift
@@ -6,4 +7,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/fact CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Return factorial of X to X
   def fact
     @l = @x
     lift
@@ -6,4 +7,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/fc CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Flag clear? If not, skip next program line
   def fc? (r)
     @flg[r] == false ? conditional(true) : conditional(false)
   end

data/xcmd/fcc CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Flag clear? If not, skip next program line and clear flag
   def fcc? (r)
     @flg[r] == false ? conditional(true) : conditional(false)
     @flg[r]  = false

data/xcmd/fcs CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Flag clear? If not, skip next program line and set flag.
   def fcs? (r)
     @flg[r] == false ? conditional(true) : conditional(false)
     @flg[r]  = true

data/xcmd/fix CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Fixed point display with n decimal places
   def fix (n)
     @i = n.to_i
     @s = 9

data/xcmd/fixq CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Print current FIX setting
   def fix?
     return "FIX = #{@i}"
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/flsize CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get file size (alway plenty)
   def flsize
     return "FLSIZE: Always plenty of room."
   end

data/xcmd/frc CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Return fractional part of X to X
   def frc
     @l = @x
     @x = @x.frc
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/fs CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Flag set? If not, skip next program line
   def fs? (r)
     @flg[r] == true ? conditional(true) : conditional(false)
   end

data/xcmd/fsc CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Flag set? If not, skip next program line and clear flag
   def fsc? (r)
     @flg[r] == true ? conditional(true) : conditional(false)
     @flg[r]  = false

data/xcmd/fss CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Flag set? If not, skip next program line and set flag
   def fss? (r)
     @flg[r] == true ? conditional(true) : conditional(false)
     @flg[r]  = true

data/xcmd/geir CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Easter egg
   def geir
     puts
     puts "Geir Isene <g@isene.com> https://isene.com"
@@ -8,4 +9,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getas CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Loads XM file (any tupe)
   def getas
     load_xm(@a)
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getfile CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Read any file named in Alpha into X
   def getfile
     lift
     begin
@@ -9,4 +10,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getfilea CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Read any file named in Alpha into Alpha
   def getfilea
     begin
       @a = File.read(@a)
@@ -8,4 +9,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getkey CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Waits 10 seconds for user to press a key (return Character Code to X, not HP-41 key code)
   def getkey
     key = STDIN.getch(min: 0, time: 10)
     lift
@@ -6,4 +7,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getkeyx CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Waits X seconds for user to press a key (return Character Code to X)
   def getkeyx
     @l = @x
     key = STDIN.getch(min: 0, time: @x)
@@ -7,4 +8,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getp CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get program from program file
   def getp
     f = Dir.home + "/.xrpn/data/" + @a + ".pr"
     if File.exist?(f)
@@ -10,4 +11,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getr CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get all registers from XM data file and copy to registers
   def getr
     # No reason to not allow ascii files to be read into regs
     i = 0
@@ -10,4 +11,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getrec CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Get current record from current XM file, replacing content of Alpha
   def getrec
     cla
     arclrec
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getrx CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get registers by X (bbb.eee)
   def getrx
     b = @x.to_i
     e = (@x.frc * 1000).to_i
@@ -14,4 +15,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getsub CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get sub program (no need - XRPN works with pages for programs)
   def getsub
     return "GETSUB: No need for that function. XRPN works with pages instead."
   end

data/xcmd/getweb CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get web page with URL in Alpha into X
   def getweb
     lift
     begin
@@ -9,4 +10,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/getx CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Get current record in XM data file to X
   def getx
     # No reason to not allow ascii files to be read into regs
     lift
@@ -9,4 +10,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/grad CHANGED Viewed

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

data/xcmd/gsb CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Jump to label n and return here after an RTN or END is encountered
   def gsb (l)
     xeq (l)
   end

data/xcmd/gto CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Goto (jump) to a string label, numbered label or line number (GTO "MyProg", GTO 31, GTO .214), using a dot before the line number)
   def gto (l)
     if l.match(/^\./)
       @pc = l.sub(/^\./, "").to_i - 1

data/xcmd/help CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Print help text
   def help
     puts
     puts "XRPN is a stack-based programming language. It uses Reverse Polish Notation for calculations."
@@ -11,4 +12,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/hexdec CHANGED Viewed

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

data/xcmd/hms CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Convert decimal hours to HH.MMSSsss
   def hms
     @l = @x
     h  = @x.to_i
@@ -9,4 +10,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/hmsminus CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Add hours (HH.MMSSsss) or degrees
   def hmsminus
 	lastx = @x
 	hr
@@ -11,4 +12,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/hmsplus CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Subtract hours (HH.MMSSsss) or degrees
   def hmsplus
 	lastx = @x
 	hr
@@ -10,4 +11,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/hr CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Append Alpha to current XM file at pointer
   def hr
     @l = @x
     s  = @x.to_i * 3600
@@ -8,4 +9,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/inschr CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Insert Alpha at pointer in current XM file
   def inschr
     if @xmcont[0][0] == ""
       return
@@ -11,4 +12,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/insrec CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Insert Alpha before current record in XM file
   def insrec
     if @xmcont[0][0] == ""
       return
@@ -9,4 +10,4 @@ class XRPN
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/int CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Add a line in the printout
   def int
     @l = @x
     @x = @x.to_i
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/invf CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Invert flag (toggle flag n)
   def invf (f)
     @flg[f] = !@flg[f]
   end

data/xcmd/isg CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Increase, skip if greader for named register
   def isg (r)
     case r.downcase
     when "x"

data/xcmd/lastx CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Get content of Last X (L register) to X
   def lastx
     @y, @z, @t = @x, @y, @z
     @x = @l
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/lbl CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Label in a program that you can GTO or XEQ to
   def lbl (l)
   end
 end

data/xcmd/lift CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Lift stack
   def lift
     return if @nolift
     @y, @z, @t = @x, @y, @z
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/ln CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# Natural logarithm
   def ln
     @l = @x
     @x = Math::log(@x)
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/ln1x CHANGED Viewed

@@ -1,8 +1,9 @@
 class XRPN
+# For argumants close to 1
   def ln1x
     @l = @x
     @x = Math::log(1 + @x)
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby:

data/xcmd/log CHANGED Viewed

@@ -1,4 +1,5 @@
 class XRPN
+# Logarithm with base 10
   def log
     @l = @x
     @x = Math::log10(@x)

data/xcmd/mdy CHANGED Viewed

@@ -1,7 +1,8 @@
 class XRPN
+# Set date mode to MM.DDYYYY
   def mdy
     @flg["31"] = false
   end
 end
-# vim:ft=ruby:
+# vim:ft=ruby: