xrpn 1.3.2 → 1.3.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: b45b0ae323940d1e746c3e7e506aa99b8bfcfe7b2150b3da8c0b52fa300d636b
-  data.tar.gz: bf536a88ea59513dab40118fa6e33f3fcb8613dd766864ac34d2b65c5286ab01
+  metadata.gz: 1fd6c24bf0ae1e16e943aaf138b71c12d3fb91f96a76db8c4177ab4ff4a0a5f5
+  data.tar.gz: 38e57e229c8d739f5967de726866f87b309b1e74be3e42ca65d4807ea4768ea2
 SHA512:
-  metadata.gz: 5ce4089504e5db07a0178a8bfb81739f6ce01b3ec45d747fd7e7f1a9de9ebdec6806d467794870d26be1eac060af5cc6971706105e7cdc07837c59686bf2ec49
-  data.tar.gz: e877789013f4b27f7ec0cff1f2ecbad7044871ebed1418615e825aa112036d333617c0c526511204123da180d8965dea943ed4e299251971e5b2f13729aa040d
+  metadata.gz: 8fda5beedc920d94a7711ad6d78908b785cd08ece3909a3e79583045300faf784c1b762640fd79fb1c9a178404b0da8199c4af9f50531a356f455fcb07b38107
+  data.tar.gz: 678af3b283e0970dca83f62c8ad85a26a3a4902b59aa0832edbf37308fd1a7dbd25dcd4fd9e250c6ff0f6eb48b4c8ec34cf9bde22f10ad7f2b1d1f855b3e0f10

data/README.md

@@ -16,7 +16,7 @@ XRPN implements indirect addressing, self-modification and features well beyond
 
 You need Ruby installed to get XRPN to work.
 
-To install XRPN, you can do `gem install 'xrpn'` or by cloning this repository and run the script `INSTALL.sh`.  It is only tested on Linux but should work well on Mac OS and BSD systems. If you are on Windows, please tell me if it works in that environment. The install script will put create a symbolic link in your home directory - named ".xrpn" to make it a hidden directory - pointing to the cloned repo. It will also attempt to add a symlink to "~/bin" to make it easy to run XRPN. If you install XRPN by cloning this repo, you also need to install the Ruby Gem tty-prompt: `gem install tty-prompt`. If you install via `gem install 'xrpn'`, then this dependency is automatically taken care of. The gem is slower on startup than running XRPN from this repo.
+To install XRPN, you can do `gem install 'xrpn'` or by cloning this repository and run the script `INSTALL.sh`.  It is only tested on Linux but should work well on Mac OS and BSD systems. If you are on Windows, please tell me if it works in that environment. The install script will put create a symbolic link in your home directory - named ".xrpn" to make it a hidden directory - pointing to the cloned repo. It will also attempt to add a symlink to "~/bin" to make it easy to run XRPN. If you install XRPN by cloning this repo, you also need to install the Ruby Gem tty-prompt: `gem install tty-prompt`. If you install via `gem install 'xrpn'`, then this dependency is automatically taken care of. The gem is slower on startup than running XRPN from this repo. Also, `speaker-test` must be installed to play tones, but this is preinstalled on most Lunux/BSD systems.
 
 ## Run
 

data/xcmd/beep

@@ -1,7 +1,15 @@
 class XRPN
 # Sound the legendary HP-41 BEEP
   def beep
-    `xdg-open ~/.xrpn/extra/beep41.wav`
+    t = [175, 197, 225, 263, 315, 394, 525, 629, 788, 1051]
+    begin
+      %x|speaker-test -t sine -f #{t[7]} -l 1  1> /dev/null 2>& 1 & sleep .28 && kill -9 $!|
+      %x|speaker-test -t sine -f #{t[5]} -l 1  1> /dev/null 2>& 1 & sleep .28 && kill -9 $!|
+      %x|speaker-test -t sine -f #{t[8]} -l 1  1> /dev/null 2>& 1 & sleep .28 && kill -9 $!|
+      %x|speaker-test -t sine -f #{t[7]} -l 1  1> /dev/null 2>& 1 & sleep .28 && kill -9 $!|
+    rescue
+      puts "speaker-test must be installed to play tones"
+    end
   end
 end
  

data/xcmd/copy

@@ -0,0 +1,23 @@
+class XRPN
+# Copy file named in Alpha to filename in X
+  def copy
+    begin
+      require 'fileutils'
+    rescue
+      puts "Ruby FileUtils needs to be installed."
+      return
+    end
+    item = @a
+    dest = @x
+    while File.exist?(dest)
+      dest = dest.chop + (dest[-1].to_i + 1).to_s
+    end
+    begin
+      FileUtils.cp_r(item, dest)
+    rescue StandardError => err
+      puts err.to_s
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/move

@@ -0,0 +1,23 @@
+class XRPN
+# Move file named in Alpha to filename in X
+  def move
+    begin
+      require 'fileutils'
+    rescue
+      puts "Ruby FileUtils needs to be installed."
+      return
+    end
+    item = @a
+    dest = @x
+    while File.exist?(dest)
+      dest = dest.chop + (dest[-1].to_i + 1).to_s
+    end
+    begin
+      FileUtils.mv(item, dest)
+    rescue StandardError => err
+      puts err.to_s
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/open

@@ -0,0 +1,24 @@
+class XRPN
+# Open a file system file or make directory the current directory
+  def open
+    if File.directory?(@a) # Rescue for permission error
+      begin
+        Dir.chdir(@a)
+      rescue
+        puts "Cannot move to directory \"#{@a}\""
+      end
+    else
+      begin
+        if File.read(@a).force_encoding("UTF-8").valid_encoding?
+          system("exec $EDITOR #{@a}")
+        else
+          Thread.new { system("xdg-open #{@a} 2>/dev/null") }
+        end
+      rescue
+        puts "Cannot open file \"#{@a}\""
+      end
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/pprg1

@@ -0,0 +1,28 @@
+class XRPN
+# Print program
+  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 #{pr}"
+        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/read

@@ -0,0 +1,12 @@
+class XRPN
+# Reads content of file named in Alpha into X
+  def read
+    begin
+      @x = File.read(@a).chomp
+    rescue
+      puts "Cannot read file \"#{@a}\""
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/tone

@@ -0,0 +1,15 @@
+class XRPN
+# Sound a tone (0-9)
+  def tone (r)
+    r = r.to_i
+    return unless (0..9).include?(r)
+    t = [175, 197, 225, 263, 315, 394, 525, 629, 788, 1051]
+    begin
+      %x|speaker-test -t sine -f #{t[r]} -l 1  1> /dev/null 2>& 1 & sleep .28 && kill -9 $!|
+    rescue
+      puts "speaker-test must be installed to play tones"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xcmd/tonexy

@@ -0,0 +1,14 @@
+class XRPN
+# Sound a tone with frequency in X and length (in sec) in Y
+  def tonexy
+    f = @x.to_f
+    l = @y.to_f
+    begin
+      %x|speaker-test -t sine -f #{f} -l 1  1> /dev/null 2>& 1 & sleep #{l} && kill -9 $!|
+    rescue
+      puts "speaker-test must be installed to play tones"
+    end
+  end
+end
+ 
+# vim:ft=ruby:

data/xlib/debug_mode

@@ -44,7 +44,7 @@ def debug_mode
       @p.flg = {}
       system("clear")
     when "R" # Reload all commands from the cmd directory
-      read_cmd
+      read_xcmd
       puts "Commands reloaded."
     when "l" # Show current line
       @line  = @p.prg[@p.pg][@p.pc]

data/xrpn.gemspec

@@ -1,9 +1,9 @@
 Gem::Specification.new do |s|
   s.name        = 'xrpn'
-  s.version     = '1.3.2'
+  s.version     = '1.3.4'
   s.licenses    = ['Unlicense']
   s.summary     = "XRPN - The eXtended RPN (Reverse Polish Notation) programming language"
-  s.description = "A full programming language and environment extending the features of the venerable HP calculator programmable calculators. With XRPN you can accomplish a wide range of modern programming tasks as well as running existing HP-41 FOCAL programs directly. XRPN gives modern life to tens of thousands of old HP calculator programs and opens the possibilities to many, many more. New in 1.3.2: Bug fixes."
+  s.description = "A full programming language and environment extending the features of the venerable HP calculator programmable calculators. With XRPN you can accomplish a wide range of modern programming tasks as well as running existing HP-41 FOCAL programs directly. XRPN gives modern life to tens of thousands of old HP calculator programs and opens the possibilities to many, many more. New in 1.3.4: Added file system commands READ, OPEN, COPY, MOVE."
 
   s.authors     = ["Geir Isene"]
   s.email       = 'g@isene.com'

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: xrpn
 version: !ruby/object:Gem::Version
-  version: 1.3.2
+  version: 1.3.4
 platform: ruby
 authors:
 - Geir Isene
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2022-12-21 00:00:00.000000000 Z
+date: 2023-01-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: tty-prompt
@@ -28,7 +28,8 @@ description: 'A full programming language and environment extending the features
   the venerable HP calculator programmable calculators. With XRPN you can accomplish
   a wide range of modern programming tasks as well as running existing HP-41 FOCAL
   programs directly. XRPN gives modern life to tens of thousands of old HP calculator
-  programs and opens the possibilities to many, many more. New in 1.3.2: Bug fixes.'
+  programs and opens the possibilities to many, many more. New in 1.3.4: Added file
+  system commands READ, OPEN, COPY, MOVE.'
 email: g@isene.com
 executables:
 - xrpn
@@ -94,6 +95,7 @@ files:
 - xcmd/cmdadd
 - xcmd/cmddel
 - xcmd/cmdhelp
+- xcmd/copy
 - xcmd/correct
 - xcmd/cos
 - xcmd/crflas
@@ -174,11 +176,13 @@ files:
 - xcmd/mdy
 - xcmd/mean
 - xcmd/mod
+- xcmd/move
 - xcmd/multiply
 - xcmd/oct
 - xcmd/octdec
 - xcmd/off
 - xcmd/on
+- xcmd/open
 - xcmd/p_r
 - xcmd/pack
 - xcmd/page
@@ -195,6 +199,7 @@ files:
 - xcmd/posfl
 - xcmd/pow
 - xcmd/pprg
+- xcmd/pprg1
 - xcmd/pprgx
 - xcmd/pra
 - xcmd/prflags
@@ -218,6 +223,7 @@ files:
 - xcmd/rclpta
 - xcmd/rclsw
 - xcmd/rdn
+- xcmd/read
 - xcmd/recip
 - xcmd/regmove
 - xcmd/regswap
@@ -269,6 +275,8 @@ files:
 - xcmd/tan
 - xcmd/tenx
 - xcmd/time
+- xcmd/tone
+- xcmd/tonexy
 - xcmd/tx
 - xcmd/version
 - xcmd/view