xrpn 1.1

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

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

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

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

data/cmd/cmdadd

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

data/cmd/cmddel

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

data/cmd/correct

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

data/cmd/cos

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

data/cmd/crflas

@@ -0,0 +1,9 @@
+class XRPN
+  def crflas
+    f = Dir.home + "/.xrpn/data/" + @a + ".as"
+    File.write(f, [[f, "AS", 0, 0.0]])
+    load_xm(@a, 0.0)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/crfld

@@ -0,0 +1,9 @@
+class XRPN
+  def crfld
+    f = Dir.home + "/.xrpn/data/" + @a + ".da"
+    File.write(f, [[f, "DA", 0, 0.0]])
+    load_xm(@a, 0.0)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/cube

@@ -0,0 +1,8 @@
+class XRPN
+  def cube
+    @l = @x
+    @x = @x ** 3
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/d_r

@@ -0,0 +1,8 @@
+class XRPN
+  def d_r
+    @l = @x
+	@x = @x * Math::PI / 180
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/date

@@ -0,0 +1,8 @@
+class XRPN
+  def date
+    lift
+    @flg["31"] ? @x = Time.now.strftime("%d.%m%Y").to_f : @x = Time.now.strftime("%m.%d%Y").to_f
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/dateplus

@@ -0,0 +1,12 @@
+class XRPN
+  def dateplus
+    @l = @x
+    date = dtparse(@y)
+    n    = (date+@x).to_s
+    new  = Date.parse(n)
+    @flg["31"] ? @x = new.day.to_f + new.month.to_f/100 + new.year.to_f/1000000 : @x =  new.month.to_f + new.day.to_f/100 + new.year.to_f/1000000
+	dropy
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/ddate

@@ -0,0 +1,11 @@
+class XRPN
+  def ddate
+    @l = @x
+    dt1  = dtparse(@y)
+    dt2  = dtparse(@x)
+    dropy
+    @x   = (dt1-dt2).to_i
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/dec

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

data/cmd/decbin

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

data/cmd/dechex

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

data/cmd/decoct

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

data/cmd/deg

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

data/cmd/degq

@@ -0,0 +1,7 @@
+class XRPN
+  def deg?
+    p @deg
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/delchr

@@ -0,0 +1,14 @@
+class XRPN
+  def delchr
+    if @xmcont[0][0] == ""
+      return 
+    else
+      r = @xmcont[0][3].to_i + 1
+      c = (@xmcont[0][3].frc * 1000).to_i
+      @xmcont[r][c..(c + @x.to_i)] = ""
+      savexm
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/delrec

@@ -0,0 +1,12 @@
+class XRPN
+  def delrec
+    if @xmcont[0][0] == ""
+      return 
+    else
+      @xmcont.delete_at(@xmcont[0][3] + 1)
+      savexm
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/divide

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

data/cmd/dmy

@@ -0,0 +1,7 @@
+class XRPN
+  def dmy
+    @flg["31"] = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/dot

@@ -0,0 +1,7 @@
+class XRPN
+  def dot
+    @flg["28"] = !@flg["28"]
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/dow

@@ -0,0 +1,9 @@
+class XRPN
+  def dow
+    @l = @x
+    lift
+    @x = dtparse(@x).wday
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/drop

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

data/cmd/dropy

@@ -0,0 +1,7 @@
+class XRPN
+  def dropy
+    @y, @z = @z, @t
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/dse

@@ -0,0 +1,40 @@
+class XRPN
+  def dse (r)
+    case r.downcase
+    when "x"
+      c = @x
+    when "y"
+      c = @y
+    when "z"
+      c = @z
+    when "t"
+      c = @t
+    when "l"
+      c = @l
+    else
+      c = @reg[r]
+    end
+    b, e, i = x2bei(c)
+	i2 = i
+	i2 = 1 if i2 == 0
+    b -= i2
+    @pc += 1 if b <= e
+    c = bei2x(b, e, i)
+    case r.downcase
+    when "x"
+      @x = c
+    when "y"
+      @y = c
+    when "z"
+      @z = c
+    when "t"
+      @t = c
+    when "l"
+      @l = c
+    else
+      @reg[r] = c
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/ed

@@ -0,0 +1,7 @@
+class XRPN
+  def ed
+    return "No need for an editor.\nEdit your files in ~/.xrpn/data/ with your favourite editor (VIM)."
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/emdir

@@ -0,0 +1,7 @@
+class XRPN
+  def emdir
+    cat 4
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/emdirx

@@ -0,0 +1,14 @@
+class XRPN
+  def emdirx
+    fl = Dir[Dir.home+"/.xrpn/data/*"][@x.to_i - 1]
+    f  = fl.sub(/.*\/(.*)\...$/, '\1')
+    t  = fl.sub(/.*\.(..)$/, '\1').upcase
+    l  = File.size(fl) / 7
+    puts "#{f.ljust(12)}  #{t}  #{l.to_s.rjust(4)}"
+    @a = f
+    lift
+    @x = t
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/emroom

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

data/cmd/end

@@ -0,0 +1,9 @@
+class XRPN
+  def end
+    p = @pc
+    rtn
+    @pc = 0 if @pc == p
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/eng

@@ -0,0 +1,9 @@
+class XRPN
+  def eng (n)
+    @i = n.to_i
+    @g = 3
+    @s = 6
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/enter

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

data/cmd/exp

@@ -0,0 +1,9 @@
+class XRPN
+  def exp
+    @l = @x
+    lift
+    @x = Math::exp(@x)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/expx1

@@ -0,0 +1,9 @@
+class XRPN
+  def expx1
+    @l = @x
+    lift
+    @x = Math::exp(@x - 1)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fact

@@ -0,0 +1,9 @@
+class XRPN
+  def fact
+    @l = @x
+    lift
+    @x = @x.to_i.fact
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fc

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

data/cmd/fcc

@@ -0,0 +1,8 @@
+class XRPN
+  def fcc? (r)
+    @flg[r] == false ? conditional(true) : conditional(false)
+    @flg[r]  = false
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fcs

@@ -0,0 +1,8 @@
+class XRPN
+  def fcs? (r)
+    @flg[r] == false ? conditional(true) : conditional(false)
+    @flg[r]  = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fix

@@ -0,0 +1,9 @@
+class XRPN
+  def fix (n)
+    @i = n.to_i
+    @s = 9
+    @g = 1
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fixq

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

data/cmd/flsize

@@ -0,0 +1,7 @@
+class XRPN
+  def flsize
+    return "FLSIZE: Always plenty of room."
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/frc

@@ -0,0 +1,8 @@
+class XRPN
+  def frc
+    @l = @x
+    @x = @x.frc
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fs

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

data/cmd/fsc

@@ -0,0 +1,8 @@
+class XRPN
+  def fsc? (r)
+    @flg[r] == true ? conditional(true) : conditional(false)
+    @flg[r]  = false
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/fss

@@ -0,0 +1,8 @@
+class XRPN
+  def fss? (r)
+    @flg[r] == true ? conditional(true) : conditional(false)
+    @flg[r]  = true
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/geir

@@ -0,0 +1,11 @@
+class XRPN
+  def geir
+    puts
+    puts "Geir Isene <g@isene.com> https://isene.com"
+    puts "Creator of the XRPN programming language."
+    puts "Send me a message. Let's have an inspirational chat."
+    puts
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getas

@@ -0,0 +1,7 @@
+class XRPN
+  def getas
+    load_xm(@a)
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getfile

@@ -0,0 +1,12 @@
+class XRPN
+  def getfile
+    lift
+    begin
+      @x = File.read(@a)
+    rescue
+      return "Cannot read the file '#{a}'"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getfilea

@@ -0,0 +1,11 @@
+class XRPN
+  def getfilea
+    begin
+      @a = File.read(@a)
+    rescue
+      return "Cannot read the file '#{a}'"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getkey

@@ -0,0 +1,9 @@
+class XRPN
+  def getkey
+    key = STDIN.getch(min: 0, time: 10)
+    lift
+    key ? @x = key.ord : @x = 0
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getkeyx

@@ -0,0 +1,10 @@
+class XRPN
+  def getkeyx
+    @l = @x
+    key = STDIN.getch(min: 0, time: @x)
+    lift
+    key ? @x = key.ord : @x = 0
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getp

@@ -0,0 +1,13 @@
+class XRPN
+  def getp
+    f = Dir.home + "/.xrpn/data/" + @a + ".pr"
+    if File.exist?(f)
+      @prg[@prg.length] = JSON.parse(File.read(f)) 
+      @prg.uniq!
+    else
+      return "No such program file: #{@a}"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/cmd/getr

@@ -0,0 +1,13 @@
+class XRPN
+  def getr
+    # No reason to not allow ascii files to be read into regs
+    i = 0
+    @xmcont.each do |r|
+      i += 1
+      dest = "%02d" % (i - 1)
+      @reg[dest] = r
+    end
+  end
+end
+ 
+# vim:ft=ruby: