xrpn 1.1.2 → 1.1.4

data/cmd/pack

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

data/cmd/page

@@ -1,13 +0,0 @@
-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/cmd/pagedel

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

data/cmd/pageq

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

data/cmd/pageswap

@@ -1,8 +0,0 @@
-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/cmd/pasn

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

data/cmd/pcat

@@ -1,14 +0,0 @@
-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/cmd/pclps

@@ -1,12 +0,0 @@
-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/cmd/percent

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

data/cmd/percentch

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

data/cmd/pi

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

data/cmd/posa

@@ -1,23 +0,0 @@
-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/cmd/posfl

@@ -1,26 +0,0 @@
-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/cmd/pow

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

data/cmd/pprg

@@ -1,27 +0,0 @@
-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/cmd/pprgx

@@ -1,33 +0,0 @@
-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/cmd/pra

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

data/cmd/prflags

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

data/cmd/prompt

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

data/cmd/prp

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

data/cmd/prregs

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

data/cmd/prstk

@@ -1,10 +0,0 @@
-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/cmd/prx

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

data/cmd/prxm

@@ -1,21 +0,0 @@
-class XRPN
-  def prxm
-    # Print content of current XM file
-    out = ""
-    @xmcont.each_index do |i|
-      if i == 0
-        out += "File    = #{@xmcont[0][0]}\n"
-        out += "Type    = #{@xmcont[0][1]}\n"
-        out += "Pointer = #{@xmcont[0][3].to_s}\n" 
-        next
-      end
-      out += "#{format('%03d', i - 1)}"
-      out += " "
-      out += "#{@xmcont[i].to_s}\n"
-    end
-    puts out
-    File.write(Dir.home + "/.xrpn/print/" + @a, out) if @a != ""
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/pse

@@ -1,7 +0,0 @@
-class XRPN
-  def pse
-    sleep(1)
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/psize

@@ -1,7 +0,0 @@
-class XRPN
-  def psize
-    return "PSIZE: No need for that function"
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/purfl

@@ -1,14 +0,0 @@
-class XRPN
-  def purfl
-    f = Dir.home + "/.xrpn/data/" + @a
-    fl = [f + ".pr", f + ".as", f + ".da"]
-    fl.each do |file|
-      if File.exist?(file)
-        File.delete(file) 
-        @xmfile = "" if @xmfile == @a
-      end
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/r_d

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

data/cmd/r_p

@@ -1,18 +0,0 @@
-class XRPN
-  def r_p
-    @l = @x
-    x = @x
-    y = @y
-    @x = Math::sqrt(x*x + y*y)
-    @y = Math::atan(y/x)
-    if x < 0  # Q2 & Q3
-      @y += Math::PI
-    elsif x >= 0 and y < 0 # Q4
-      @y += 2 * Math::PI
-    end
-    @y = @y * 180 / Math::PI if @deg == "deg"
-    @y = @y * 200 / Math::PI if @deg == "grad"
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rad

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

data/cmd/rand

@@ -1,10 +0,0 @@
-class XRPN
-  def rand
-    @l = @x
-    lift
-    r = Random.new
-    @x = r.rand()
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rcl

@@ -1,23 +0,0 @@
-class XRPN
-  def rcl (r)
-    x = false
-    case r.downcase
-    when "x"
-      x = @x
-    when "y"
-      x = @y
-    when "z"
-      x = @z
-    when "t"
-      x = @t
-    end
-    lift
-    x ? @x = x : @x = @reg[r]
-	  if @x == nil
-      @reg[r] = 0.0
-      @x = 0.0 
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rclaf

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

data/cmd/rclflag

@@ -1,16 +0,0 @@
-class XRPN
-  def rclflag
-    lift
-    f = ""
-    @flg.each do |key, value| 
-      if key.match(/\d\d/)
-        value == true ? v = 1 : v = 0
-        f += "#{key}:#{v} " 
-      end
-    end
-    f.chop
-    @x = f.to_s
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rclpt

@@ -1,8 +0,0 @@
-class XRPN
-  def rclpt
-    lift
-    @x = @xmcont[0][3]
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rclpta

@@ -1,16 +0,0 @@
-class XRPN
-  def rclpta
-    f = Dir.home + "/.xrpn/data/" + @a
-    if File.exist?(f + ".as")
-      @xmcont = JSON.parse(File.read(f + ".as")) 
-      @x      = @xmcont[0][3]
-    elsif File.exist?(f + ".da")
-      @xmcont = JSON.parse(File.read(f + ".da")) 
-      @x      = @xmcont[0][3]
-    else
-      return "No such file: #{@a}"
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rclsw

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

data/cmd/rdn

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

data/cmd/recip

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

data/cmd/regmove

@@ -1,18 +0,0 @@
-class XRPN
-  def regmove
-    c = @x
-    b = c.to_i
-    e = (1000 * (c - b)).to_i
-    n = ((1000 * c).modulo(1).round(3) * 1000).to_i
-    n.times do |i|
-      f = (b + i).to_s
-      f = "%02d" % [f] if f == f.to_i.to_s
-      t = (e + i).to_s
-      t = "%02d" % [t] if t == t.to_i.to_s
-      @reg[f] = 0 if @reg[f] == nil
-      @reg[t] = @reg[f]
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/regswap

@@ -1,19 +0,0 @@
-class XRPN
-  def regswap
-    c = @x
-    b = c.to_i
-    e = (1000 * (c - b)).to_i
-    n = ((1000 * c).modulo(1).round(3) * 1000).to_i
-    n.times do |i|
-      f = (b + i).to_s
-      f = "%02d" % [f] if f == f.to_i.to_s
-      t = (e + i).to_s
-      t = "%02d" % [t] if t == t.to_i.to_s
-      @reg[f] = 0 if @reg[f] == nil
-      @reg[t] = 0 if @reg[t] == nil
-      @reg[t], @reg[f] = @reg[f], @reg[t]
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/reload

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

data/cmd/reszfl

@@ -1,7 +0,0 @@
-class XRPN
-  def reszfl
-    return "RESZFL: No need to resize files. Plenty of room here."
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rnd

@@ -1,8 +0,0 @@
-class XRPN
-  def rnd
-    @l = @x
-    @x = @x.round(@i)
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/root

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

data/cmd/rtn

@@ -1,12 +0,0 @@
-class XRPN
-  def rtn
-    r = @rtn.pop
-    if r == nil
-      stop
-    else
-      @pc = r
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/rubycmd

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

data/cmd/runsw

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

data/cmd/rup

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

data/cmd/saveas

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

data/cmd/savep

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