xrpn 1.1.2 → 1.1.4

data/cmd/atime

@@ -1,26 +0,0 @@
-class XRPN
-  def atime
-    t  = @x.to_f
-    am = true
-    case t
-    when ..-12
-      t = t.abs
-    when -12..-1
-      t  = t.abs
-      am = false
-      t += 12 if @clk24
-    when -1..0
-      t  = t.abs
-    end
-    t = BigDecimal(t.to_s).truncate(@i).to_f
-    h = t.to_i
-    m = (100 * (t - h)).to_i
-    s = (100 * (100 * (t -h) - m)).round(@i)
-    @a += "#{h}:#{m}:#{s}"
-    if @clk24 == false
-      am ? @a += " AM" : @a += " PM"
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/atime24

@@ -1,21 +0,0 @@
-class XRPN
-  def atime24
-    t  = @x.to_f
-    case t
-    when ..-12
-      t = t.abs
-    when -12..-1
-      t  = t.abs
-      t += 12
-    when -1..0
-      t  = t.abs
-    end
-    t = BigDecimal(t.to_s).truncate(@i).to_f
-    h = t.to_i
-    m = (100 * (t - h)).to_i
-    s = (100 * (100 * (t -h) - m)).round(@i)
-    @a += "#{h}:#{m}:#{s}"
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/atox

@@ -1,9 +0,0 @@
-class XRPN
-  def atox
-    lift
-    @x = @a[0].ord
-    @a = @a[1..]
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/aview

@@ -1,7 +0,0 @@
-class XRPN
-  def aview
-    puts @a.c_a(1)
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/aviewc

@@ -1,7 +0,0 @@
-class XRPN
-  def aviewc
-    puts @a.color(@x.to_i)
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/beep

@@ -1,7 +0,0 @@
-class XRPN
-  def beep
-    `xdg-open ~/.xrpn/extra/beep41.wav`
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/bindec

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

data/cmd/cat

@@ -1,26 +0,0 @@
-class XRPN
-  def cat (c)
-    case c.to_i
-    when 1
-      pcat
-    when 3
-      puts "Commands:"
-      i = 1
-      $cmd.each do |cm|
-        print cm.ljust(12)
-        print "\n" if i % 7 == 0 
-        i += 1
-      end
-      print "\n"
-    when 4
-      Dir[Dir.home+"/.xrpn/data/*"].each do |file|
-        f = file.sub(/.*\/(.*)\...$/, '\1')
-        t = file.sub(/.*\.(..)$/, '\1').upcase
-        l = File.size(file) / 7
-        puts "#{f.ljust(12)}  #{t}  #{l.to_s.rjust(4)}"
-      end
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/cf

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

data/cmd/chs

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

data/cmd/cla

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

data/cmd/clalma

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

data/cmd/clalmx

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

data/cmd/cld

@@ -1,6 +0,0 @@
-class XRPN
-  def cld
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/clear

@@ -1,7 +0,0 @@
-class XRPN
-  def clear
-    system("clear")
-  end
-end
- 
-# vim:ft=ruby: 

data/cmd/clfl

@@ -1,13 +0,0 @@
-class XRPN
-  def clfl
-    if @xmcont[0][0] == ""
-      return 
-    else
-      @xmcont = [@xmcont[0]]
-      @xmcont[0][3] = 0.0
-      savexm
-    end
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/clk12

@@ -1,7 +0,0 @@
-class XRPN
-  def clk12
-    @clk24 = false
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/clk24

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

data/cmd/clkeys

@@ -1,7 +0,0 @@
-class XRPN
-  def clkeys
-    return "CLKEYS: No need for this function as there is no calculator keyboard here."
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/clock

@@ -1,7 +0,0 @@
-class XRPN
-  def clock
-    return "CLOCK: Tick, tock... not implemented."
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/clp

@@ -1,8 +0,0 @@
-class XRPN
-  def clp (p)
-    page, pos, prgm = locate_prg (p)
-    @prg[page] -= prgm
-  end
-end
- 
-# vim:ft=ruby:

data/cmd/clralms

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

data/cmd/clrg

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

data/cmd/clrgx

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

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

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

data/cmd/clx

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

data/cmd/cmdadd

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

data/cmd/cmddel

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

data/cmd/correct

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

data/cmd/cos

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

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

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

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

data/cmd/d_r

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

data/cmd/date

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

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

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

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

data/cmd/decbin

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

data/cmd/dechex

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

data/cmd/decoct

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

data/cmd/deg

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

data/cmd/degq

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

data/cmd/delchr

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

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

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

data/cmd/dmy

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

data/cmd/dot

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

data/cmd/dow

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

data/cmd/drop

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

data/cmd/dropy

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

data/cmd/dse

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

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

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

data/cmd/emdirx

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

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

data/cmd/end

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

data/cmd/eng

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