xrpn 1.1.2 → 1.1.4

data/cmd/enter

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

data/cmd/exp

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

data/cmd/expx1

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

data/cmd/fact

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

data/cmd/fc

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

data/cmd/fcc

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

data/cmd/fcs

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

data/cmd/fix

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

data/cmd/fixq

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

data/cmd/flsize

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

data/cmd/frc

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

data/cmd/fs

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

data/cmd/fsc

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

data/cmd/fss

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

data/cmd/geir

@@ -1,11 +0,0 @@
-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

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

data/cmd/getfile

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

@@ -1,11 +0,0 @@
-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

@@ -1,9 +0,0 @@
-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

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

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

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

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

data/cmd/getrx

@@ -1,17 +0,0 @@
-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/cmd/getsub

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

data/cmd/getweb

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

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

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

data/cmd/gsb

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

data/cmd/gto

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

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

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

data/cmd/hms

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

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

data/cmd/hmsplus

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

data/cmd/hr

@@ -1,11 +0,0 @@
-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/cmd/inschr

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

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

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

data/cmd/invf

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

data/cmd/isg

@@ -1,40 +0,0 @@
-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/cmd/lastx

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

data/cmd/lbl

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

data/cmd/lift

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

data/cmd/ln

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

data/cmd/ln1x

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

data/cmd/log

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

data/cmd/mdy

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

data/cmd/mean

@@ -1,11 +0,0 @@
-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/cmd/mod

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

data/cmd/multiply

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

data/cmd/oct

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

data/cmd/octdec

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

data/cmd/off

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

data/cmd/on

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

data/cmd/p_r

@@ -1,13 +0,0 @@
-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: