xrpn 1.1.4 → 1.1.7

data/xcmd/gsb

@@ -0,0 +1,7 @@
+class XRPN
+  def gsb (l)
+    xeq (l)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/gto

@@ -0,0 +1,23 @@
+class XRPN
+  def gto (l)
+    if l.match(/^\./)
+      @pc = l.sub(/^\./, "").to_i - 1
+      return
+    end
+    page, pos = locate_prg (l)
+    if pos == nil
+      if l.match(/".*"/)
+        return "Error: No such global label: #{l}"
+      else
+        return "Error: No such label: #{l}"
+      end
+    else
+      if @page != @pg
+        @pg  = page
+      end
+      @pc  = pos
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/help

@@ -0,0 +1,14 @@
+class XRPN
+  def help
+    puts
+    puts "XRPN is a stack-based programming language. It uses Reverse Polish Notation for calculations."
+    puts "The language is a superset of FOCAL, implementing the full set of HP-41CX calculator commands."
+    puts "XRPN is on-the-fly extensible. Language functions can be upgraded or implemented while programs are running."
+    puts "It runs programs in text files or manually in debug mode (if no text file is supplied or when a program stops)"
+    puts "XRPN implements indirect adressing, self-modification and features well beyond the FOCAL language."
+    puts "For detailed information, visit the GitHub page: https://github.com/isene/xrpn"
+    puts
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/hexdec

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

data/xcmd/hms

@@ -0,0 +1,12 @@
+class XRPN
+  def hms
+    @l = @x
+    h  = @x.to_i
+    st = @x * 3600
+    m  = (st/60 - h * 60).to_i
+    s  = (st - (m * 60 + h * 3600))
+    @x = @x.to_i + (m.to_f / 100) + (s / 10000)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/hmsminus

@@ -0,0 +1,14 @@
+class XRPN
+  def hmsminus
+	lastx = @x
+	hr
+	xy
+	hr
+	xy
+	self.-
+	hms
+    @l = lastx
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/hmsplus

@@ -0,0 +1,13 @@
+class XRPN
+  def hmsplus
+	lastx = @x
+	hr
+	xy
+	hr
+	self.+
+	hms
+    @l = lastx
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/hr

@@ -0,0 +1,11 @@
+class XRPN
+  def hr
+    @l = @x
+    s  = @x.to_i * 3600
+    s += (@x.frc * 100).to_i * 60
+    s += ((@x * 100).frc * 100).round(4)
+    @x = s / 3600
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/inschr

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

data/xcmd/insrec

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

data/xcmd/int

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

data/xcmd/invf

@@ -0,0 +1,7 @@
+class XRPN
+  def invf (f)
+    @flg[f] = !@flg[f]
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/isg

@@ -0,0 +1,40 @@
+class XRPN
+  def isg (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/lastx

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

data/xcmd/lbl

@@ -0,0 +1,6 @@
+class XRPN
+  def lbl (l)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/lift

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

data/xcmd/ln

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

data/xcmd/ln1x

@@ -0,0 +1,8 @@
+class XRPN
+  def ln1x
+    @l = @x
+    @x = Math::log(1 + @x)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/log

@@ -0,0 +1,8 @@
+class XRPN
+  def log
+    @l = @x
+    @x = Math::log10(@x)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/mdy

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

data/xcmd/mean

@@ -0,0 +1,11 @@
+class XRPN
+  def mean
+    @l = @x
+    lift
+    lift
+    @x = @reg[@srg] / @reg[@srg + 5]
+    @y = @reg[@srg + 2] / @reg[@srg + 5]
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/mod

@@ -0,0 +1,13 @@
+class XRPN
+  def mod
+    @l = @x
+    begin
+      @x = @y % @x
+    rescue ZeroDivisionError
+      @x = @y
+    end
+    dropy
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/multiply

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

data/xcmd/oct

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

data/xcmd/octdec

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

data/xcmd/off

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

data/xcmd/on

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

data/xcmd/p_r

@@ -0,0 +1,13 @@
+class XRPN
+  def p_r
+    @l = @x
+    r = @x
+    t = @y
+    t = t * Math::PI / 180 if @deg == "deg"
+    t = t * Math::PI / 200 if @deg == "grad"
+    @x = r * Math::cos(t)
+    @y = r * Math::sin(t)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pack

@@ -0,0 +1,7 @@
+class XRPN
+  def pack
+    return "PACK: No need for packing clothes or anything else."
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/page

@@ -0,0 +1,13 @@
+class XRPN
+  def page (p)
+    if p.to_i >= @prg.length
+      return "Page number out of range."
+    else
+      @pg = p.to_i
+      @pc = 0
+      @rtn = []
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pagedel

@@ -0,0 +1,8 @@
+class XRPN
+  def pagedel (p)
+    @prg.delete_at(p)
+    return "Deleted page #{p}"
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pageq

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

data/xcmd/pageswap

@@ -0,0 +1,8 @@
+class XRPN
+  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:

data/xcmd/pasn

@@ -0,0 +1,7 @@
+class XRPN
+  def pasn
+    return "PASN: This is not a calculator with keys to assign functions to."
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pcat

@@ -0,0 +1,14 @@
+class XRPN
+  def pcat
+    @prg.each_index do |i|
+      @prg[i].each do |l|
+        if l.match(/lbl ".*"/i)
+          lbl = l.sub(/lbl "(.*)"/i, '\1')
+          puts "Page #{i}: #{lbl}"
+        end
+      end
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pclps

@@ -0,0 +1,12 @@
+class XRPN
+  def pclps
+    pr = "\"#{@a}\""
+    page, pos = locate_prg (pr)
+    until pos == @prg[page].length do
+      @prg[page].delete_at(pos)
+    end
+    @prg[page].push("END")
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/percent

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

data/xcmd/percentch

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

data/xcmd/pi

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

data/xcmd/posa

@@ -0,0 +1,23 @@
+class XRPN
+  def posa
+    @l = @x
+    if @x.is_a? String
+      begin
+        @x = @a.index(@x) + 1
+      rescue
+        @x = 0.0
+      end
+    elsif @x.to_i.between?(0,255)
+      i = 1
+      @a.each_char do |c|
+        if c.ord == @x.to_i
+          @x = i
+          return
+        end
+        i += 1
+      end
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/posfl

@@ -0,0 +1,26 @@
+class XRPN
+  def posfl
+    if @xmcont[0][0] == ""
+      return 
+    else
+      r = @xmcont[0][3].to_i + 1
+        p r
+      until r == @xmcont.length do
+        m = @xmcont[r] =~ Regexp.new(@a)
+        p m
+        if m
+          lift
+          @xmcont[0][0] = (r - 1) + (m / 1000.0)
+          @x = @xmcont[0][0]
+          savexm
+          return
+        end
+        r += 1
+      end
+      lift
+      @x = -1.0
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pow

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

data/xcmd/pprg

@@ -0,0 +1,27 @@
+class XRPN
+  def pprg
+    page = @pg
+    pos  = 0
+    if @a != ""
+      pr = "\"#{@a}\""
+      page, pos, prgm = locate_prg (pr)
+      if pos == nil
+        puts "No such program to print."
+        return
+      end
+    end
+    @prg[page].each_index do |i|
+      next if i < pos
+      print "#{format('%02d', i + 1)}"
+      if @prg[page][i].downcase.match(/lbl/)
+        print "◆"
+      else
+        print " "
+      end
+      puts  "#{@prg[page][i]}"
+      break if @prg[page][i] == "END"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pprgx

@@ -0,0 +1,33 @@
+class XRPN
+  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)
+      e = @prg[@pg].length
+    end
+    if s < 0
+      s = @pc + s
+      e = @pc + e + 1
+    end
+    s = 0 if s < 0
+    e = @prg[@pg].length if e > @prg[@pg].length
+    out = ""
+    @prg[@pg].each_index do |i|
+      next  if i < s
+      break if i > e - 1
+      out += "#{format('%02d', i + 1)}"
+      if @prg[@pg][i].downcase.match(/lbl/)
+        out += "◆"
+      else
+        out += " "
+      end
+      out += "#{@prg[@pg][i]}\n"
+      break if @prg[@pg][i] == "END"
+    end
+    puts out
+    File.write(Dir.home + "/.xrpn/print/" + @a, out) if @a != ""
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pra

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

data/xcmd/prflags

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

data/xcmd/prompt

@@ -0,0 +1,8 @@
+class XRPN
+  def prompt
+    puts @a.c_a(1)
+    $prompt = true
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/prp

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

data/xcmd/prregs

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

data/xcmd/prstk

@@ -0,0 +1,10 @@
+class XRPN
+  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)
+    puts "Y = ".c_y + numformat(@y).c_y(1)
+    puts "X = ".c_x + numformat(@x).c_x(1) + "   L = ".c_l + numformat(@l).c_l(1)
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/prx

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