xrpn 1.3.1 → 1.3.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 27231c4e65a8d95a2f08952c27e6f3795d621418fae26002178bf5b737a305cf
-  data.tar.gz: 784580f3199a29aff75747c2a468882894e1e266312977fe281ee761e0ae7d4c
+  metadata.gz: 8167dcb78197e227f824c68546005f21579dba7675cc9ded60392a5faea6b38c
+  data.tar.gz: a5de67d1bfc1fec03865523fdec1bfafb1595b383500012f7d242408c07d646d
 SHA512:
-  metadata.gz: 0f8162216e88fe3da2a43efc8c1678329352c3eb41d6acd3d7aa1fde7b0b3a1961e910284f954225831da5d8fb370aea6b4463d7797324c9ea316852910afe4d
-  data.tar.gz: 1b100677cf5e626497f18ac44c42f2f857c5ea0e202a07f06253cd69b9ab71b35e6cb11cd7019aa502ef230250e85e73d1a736bc0482958f835e45d9d3496e9d
+  metadata.gz: 266d7d75ea40f2d46f5a2923999bb104452fd5f8977ccd25d78b8ba060d4dc24fb10d8206aaa31622259e3b2a14e1c595df3e8ccdb2f92fdf055d00d7fc665e3
+  data.tar.gz: 563a67e0f13b95b2f590c9ad56a4383b36450184f376c8cef111ad211291901136f366d974516a5e6df9de6c384be28881b4df700357205d813df32f0717d1ca

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/conf

@@ -9,5 +9,4 @@
 @p.srg = 11
 @p.reg = {}
 @p.flg = {"28"=>false, "29"=>true, "31"=>false, "44"=>false, "22"=>false, "23"=>false}
-@p.prg = [["LBL \"XRPN\"", "END"]]
 $theme = "dark"

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/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/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

@@ -2,7 +2,7 @@ def debug_mode
   #prompt = TTY::Prompt.new
   loop do
     if $prompt
-      @line = prompt.ask(":")
+      @line = @debugprompt.ask(":")
       break
     else
       puts "─" * 30
@@ -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/xlib/read_xcmd

@@ -4,14 +4,16 @@ def read_xcmd
     Dir[$gem+"/xcmd/*"].each do |file|
       load file
       l = File.read(file)
-      c = l[/def .*\n/][4..-2]
+      c = l.sub(/.*\s*def /m, '')
+      c = c.sub(/\s.*/m, '')
       $cmd.push(c)
     end
   end
   Dir[Dir.home+"/.xrpn/xcmd/*"].each do |file|
     load file
     l = File.read(file)
-    c = l[/def .*\n/][4..-2]
+    c = l.sub(/.*\s*def /m, '')
+    c = c.sub(/\s.*/m, '')
     $cmd.push(c)
   end
   $cmd.sort!

data/xrpn.gemspec

@@ -1,9 +1,9 @@
 Gem::Specification.new do |s|
   s.name        = 'xrpn'
-  s.version     = '1.3.1'
+  s.version     = '1.3.3'
   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.1: Description of every command via CMDHELP. History with UP/DOWN keys in debug mode."
+  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.3: Implemented tones. Bug fixes."
 
   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.1
+  version: 1.3.3
 platform: ruby
 authors:
 - Geir Isene
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2022-12-19 00:00:00.000000000 Z
+date: 2023-01-13 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: tty-prompt
@@ -28,8 +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.1: Description
-  of every command via CMDHELP. History with UP/DOWN keys in debug mode.'
+  programs and opens the possibilities to many, many more. New in 1.3.3: Implemented
+  tones. Bug fixes.'
 email: g@isene.com
 executables:
 - xrpn
@@ -196,6 +196,7 @@ files:
 - xcmd/posfl
 - xcmd/pow
 - xcmd/pprg
+- xcmd/pprg1
 - xcmd/pprgx
 - xcmd/pra
 - xcmd/prflags
@@ -270,6 +271,8 @@ files:
 - xcmd/tan
 - xcmd/tenx
 - xcmd/time
+- xcmd/tone
+- xcmd/tonexy
 - xcmd/tx
 - xcmd/version
 - xcmd/view