xrpn 1.1.4 → 1.1.7

data/xcmd/cmdadd

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

data/xcmd/cmddel

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

data/xcmd/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/xcmd/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/xcmd/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/xcmd/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/xcmd/cube

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

data/xcmd/d_r

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

data/xcmd/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/xcmd/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/xcmd/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/xcmd/dec

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

data/xcmd/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/xcmd/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/xcmd/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/xcmd/deg

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

data/xcmd/degq

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

data/xcmd/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/xcmd/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/xcmd/divide

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

data/xcmd/dmy

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

data/xcmd/dot

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

data/xcmd/dow

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

data/xcmd/drop

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

data/xcmd/dropy

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

data/xcmd/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/xcmd/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/xcmd/emdir

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

data/xcmd/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/xcmd/emroom

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

data/xcmd/end

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

data/xcmd/eng

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

data/xcmd/enter

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

data/xcmd/exp

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

data/xcmd/expx1

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

data/xcmd/fact

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

data/xcmd/fc

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

data/xcmd/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/xcmd/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/xcmd/fix

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

data/xcmd/fixq

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

data/xcmd/flsize

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

data/xcmd/frc

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

data/xcmd/fs

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

data/xcmd/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/xcmd/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/xcmd/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/xcmd/getas

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

data/xcmd/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/xcmd/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/xcmd/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/xcmd/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/xcmd/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/xcmd/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:

data/xcmd/getrec

@@ -0,0 +1,8 @@
+class XRPN
+  def getrec
+    cla
+    arclrec
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/getrx

@@ -0,0 +1,17 @@
+class XRPN
+  def getrx
+    b = @x.to_i
+    e = (@x.frc * 1000).to_i
+    i = -1
+    @xmcont.each do |r|
+      i += 1
+      next if i == 0
+      next if i < (b - 1)
+      return if i == e
+      dest = "%02d" % (i - 1)
+      @reg[dest] = r
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/getsub

@@ -0,0 +1,7 @@
+class XRPN
+  def getsub
+    return "GETSUB: No need for that function. XRPN works with pages instead."
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/getweb

@@ -0,0 +1,12 @@
+class XRPN
+  def getweb
+    lift
+    begin
+      @x = open(@a) {|f| f.read }
+    rescue
+      return "Cannot get the content of '#{a}'"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/getx

@@ -0,0 +1,12 @@
+class XRPN
+  def getx
+    # No reason to not allow ascii files to be read into regs
+    lift
+    @x = @xmcont[@xmcont[0][3] + 1]
+    @xmcont[0][3] += 1
+    @xmcont[0][3] = @xmcont.length.to_f - 2 if @xmcont[0][3] > @xmcont.length - 2
+    save_xm
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/grad

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