xrpn 1.9 → 1.9.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 1af3ec05af142258d3a307d379c116cd097e76cc6d78d8952ea5eb3c91ad9e5f
-  data.tar.gz: 54cbf3e384d18e4aa66db8fc52e8c315bc4911d25541559a144c71420749dcef
+  metadata.gz: 751d07df684dda975c02987fa4b1988a898e90ca38cee59c43599afa70839461
+  data.tar.gz: 0b35a364703da952c89c3a4a4dd544437e838ec5806f4a60ad93702bce2a43c8
 SHA512:
-  metadata.gz: a7b6fb839bd6d486a999b97b8b7826deb72aaac9bcd4988a4f619e12fb8c4625b20505f8b870e40a7d5d806ac5106f804982f3259a7b6aa0411b60157ba2a65c
-  data.tar.gz: '05718632faa6cd186110379e1383eea04cdb842684df717a253312a150680fcc3b69de0062b0eb8fc6ac9ab116ff0ee1e67e6b215fa4c24f62f287bec9ddf44f'
+  metadata.gz: 4ac219252e205fb60271a60b5e5f9a8e6bb7f19c3dfe7e0ce8f2dce60ca1d1a8ffb83645ee664601a7a1a09ddd150c0c5275950ca1fd6bf5599443530023deae
+  data.tar.gz: 9506c918f3173955a7112c45e5d19c194a58c0579f797f6cfef605fdf65a71321da052b828c77b3246da4efd9b9868d8d35af4b02b9d3bba17c29af03b9bcca8

data/xcmd/pprgtofile

@@ -0,0 +1,30 @@
+class XRPN
+# Print program
+  def pprgtofile
+    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
+    prog = ""
+    @prg[page].each_index do |i|
+      next if i < pos
+      prog += "#{format('%02d', i + 1)}"
+      if @prg[page][i].downcase.match(/lbl/)
+        prog += "◆"
+      else
+        prog += " "
+      end
+      prog += "#{@prg[page][i]}\n"
+      break if @prg[page][i] == "END"
+    end
+    File.write(@x, prog)
+  end
+end
+ 
+# vim:ft=ruby:

data/xlib/hp_41

@@ -1,6 +1,7 @@
 def hp_41 (a)
   a.map!{|x| x.sub( /^\s+/,      ""           )} # Remove spaces at start of line
   a.map!{|x| x.sub( /^\d\d+[^0-9.]/, ""       )} # Remove line numbers from program
+  a.map!{|x| x.sub( /\t+; .*/,    ""          )} # Remove comments
   a.map!{|x| x.sub( /\s+$/,      ""           )} # Remove trailing spaces
   a.map!{|x| x.sub( /\s\s+/,      ""          )} # Remove multiple spaces
   a.map!{|x| x.sub( /([a-zA-Z ]*)/, &:downcase)} # Downcase everything (use the /i below here)
@@ -8,15 +9,17 @@ def hp_41 (a)
   a.map!{|x| x.sub( /R\^/i,      "rup"        )}
   a.map!{|x| x.sub( /X\^2/i,     "sqr"        )}
   a.map!{|x| x.sub( /X\*\*2/i,   "sqr"        )}
-  a.map!{|x| x.sub( /^E(\d+)/i,  '1e\1'       )}
+  a.map!{|x| x.sub( /^1*E(\d+)/i,'1e\1'       )}
   a.map!{|x| x.sub( /1\/X/i,     "recip"      )}
   a.map!{|x| x.sub( /HMS\+/i,    "hmsplus"    )}
   a.map!{|x| x.sub( /HMS-/i,     "hmsminus"   )}
   a.map!{|x| x.sub( /DATE\+/i,   "dateplus"   )}
   a.map!{|x| x.sub( /Σ\+/i,      "splus"      )}
   a.map!{|x| x.sub( /Σ-/i,       "sminus"     )}
+  a.map!{|x| x.sub( /ΣREG/i,     "sreg"       )}
   a.map!{|x| x.sub( /S\+/i,      "splus"      )}
   a.map!{|x| x.sub( /S-/i,       "sminus"     )}
+  a.map!{|x| x.sub( /SREG/i,     "sreg"       )}
   a.map!{|x| x.sub( /SIGMA\+/i,  "splus"      )}
   a.map!{|x| x.sub( /SIGMA-/i,   "sminus"     )}
   a.map!{|x| x.sub( /SIGMAREG/,  "sreg"       )}

data/xrpn.gemspec

@@ -1,9 +1,9 @@
 Gem::Specification.new do |s|
   s.name        = 'xrpn'
-  s.version     = '1.9'
+  s.version     = '1.9.5'
   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.9: Added functions 'lastpage' and 'load' (see GitHub wiki)"
+  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.9: Added functions 'lastpage' and 'load' and also added 'pprgtofile' in version 1.9.1 (see GitHub wiki). 1.9.5: Comments are now removed when loading programs (comments start with a tab and a semicolon and a space and whatever)"
 
   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.9'
+  version: 1.9.5
 platform: ruby
 authors:
 - Geir Isene
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2023-11-19 00:00:00.000000000 Z
+date: 2023-11-21 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: tty-prompt
@@ -29,7 +29,9 @@ description: 'A full programming language and environment extending the features
   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.9: Added functions
-  ''lastpage'' and ''load'' (see GitHub wiki)'
+  ''lastpage'' and ''load'' and also added ''pprgtofile'' in version 1.9.1 (see GitHub
+  wiki). 1.9.5: Comments are now removed when loading programs (comments start with
+  a tab and a semicolon and a space and whatever)'
 email: g@isene.com
 executables:
 - xrpn
@@ -202,6 +204,7 @@ files:
 - xcmd/pow
 - xcmd/pprg
 - xcmd/pprg1
+- xcmd/pprgtofile
 - xcmd/pprgx
 - xcmd/pra
 - xcmd/prflags