rpl 0.7.0 → 0.8.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2cde98587c0d2ec81f1a6a6d9918b8f7b3ffa40c26959a58d97e7f6e6aef6ef3
-  data.tar.gz: a8aef5c02a2956265a862b3a2530cd972639c60055387adb2dd74c3785a71dc5
+  metadata.gz: c6394da05e2547dd85c3ab87e8ad841d72edc90b99e16bb1abbd43850e4c824d
+  data.tar.gz: 87e6d2304b45909e04ccdae776cea33fb26048c98f6488ceb44539c348ad7063
 SHA512:
-  metadata.gz: 4fc702e52d8c6d8089bb45cc251964056be1758aea579f3a798afcf404468a7ac754de90f2bb5eacc67c5d1f0489c65b3eb6ca0b3d38c3c0f0f8be54961ad44f
-  data.tar.gz: 83346cce2d900ca261932ceed751e268abc4cab1c5d37da2b198709a1823647d8fefd375f55adbc67b92ee2b3ed3d7c4e28c4fde30c9b8e1f213f275bfdffb7f
+  metadata.gz: 0fbe309e4c373ab91b0f50022c3571d28e387b9476d7deb96fb35fb2db25970a946f254a4819b088a0741b3271fa07d6710165f186365478726ad01e6d3ce788
+  data.tar.gz: 5d928b2865843d21275a26e14dce2fc4be75ddb371a7d0dd0cf185037c2766af85186da83fd8acdd56f6500647d4610bd245ae7fe243ef53790871a396d5f4c3

data/lib/rpl/interpreter.rb

@@ -18,7 +18,7 @@ class Interpreter
   attr_accessor :precision
 
   def initialize( stack = [], dictionary = Rpl::Lang::Dictionary.new )
-    @version = 0.7
+    @version = 0.8
 
     @dictionary = dictionary
     @stack = stack

data/lib/rpl/parser.rb

@@ -7,7 +7,7 @@ class Parser
     unless input.index("\n").nil?
       input = input.split("\n")
                    .map do |line|
-        comment_begin_index = line.index('#')
+        comment_begin_index = line.index('@')
 
         case comment_begin_index
         when nil

data/lib/rpl/types/numeric.rb

@@ -38,26 +38,27 @@ module Types
         @value = BigDecimal( value, @@precision )
       when String
         begin
-          @value = BigDecimal( value )
+          @value = BigDecimal( value, @@precision )
         rescue ArgumentError
           case value
           when /^0x[0-9a-f]+$/
             @base = 16
-            @value = /^0x(?<value>[0-9a-f]+)$/.match( value )['value'].to_i( @base )
+            @value = BigDecimal( /^0x(?<value>[0-9a-f]+)$/.match( value )['value'].to_i( @base ), @@precision )
           when /^0o[0-7]+$/
             @base = 8
-            @value = /^0o(?<value>[0-7]+)$/.match( value )['value'].to_i( @base )
+            @value = BigDecimal( /^0o(?<value>[0-7]+)$/.match( value )['value'].to_i( @base ), @@precision )
           when /^0b[0-1]+$/
             @base = 2
-            @value = /^0b(?<value>[0-1]+)$/.match( value )['value'].to_i( @base )
+            @value = BigDecimal( /^0b(?<value>[0-1]+)$/.match( value )['value'].to_i( @base ), @@precision )
           when '∞'
             @value = BigDecimal('+Infinity')
           when '-∞'
             @value = BigDecimal('-Infinity')
           else
             matches = /(?<base>[0-9]+)b(?<value>[0-9a-z]+)/.match( value )
+
             @base = matches['base'].to_i
-            @value = matches['value'].to_i( @base )
+            @value = BigDecimal( matches['value'].to_i( @base ), @@precision )
           end
         end
       end
@@ -74,21 +75,20 @@ module Types
                when 16
                  '0x'
                else
-                 "0#{@base}_"
+                 "#{@base}b"
                end
 
-      if @value.infinite?
-        suffix = @value.infinite?.positive? ? '∞' : '-∞'
-      elsif @value.nan?
-        suffix = '<NaN>'
-      else
-        suffix = if @value.to_i == @value
-                   @value.to_i
-                 else
-                   @value.to_s('F')
-                 end
-        suffix = @value.to_s( @base ) unless @base == 10
-      end
+      suffix = if @value.infinite?
+                 @value.infinite?.positive? ? '∞' : '-∞'
+               elsif @value.nan?
+                 '<NaN>'
+               elsif @base != 10
+                 @value.to_i.to_s( @base )
+               elsif @value.frac.zero?
+                 @value.to_i
+               else
+                 @value.to_s( 'F' )
+               end
 
       "#{prefix}#{suffix}"
     end

data/lib/rpl/words/time-date.rb

@@ -14,13 +14,13 @@ module RplLang
                               'Time and date',
                               '( -- t ) push current time',
                               proc do
-                                @stack << Types.new_object( RplString, "\"#{Time.now}\"" )
+                                @stack << Types.new_object( RplString, "\"#{DateTime.now.iso8601.to_s.split('T').last[0..7]}\"" )
                               end )
         @dictionary.add_word( ['date'],
                               'Time and date',
                               '( -- d ) push current date',
                               proc do
-                                @stack << Types.new_object( RplString, "\"#{Date.today}\"" )
+                                @stack << Types.new_object( RplString, "\"#{Date.today.iso8601}\"" )
                               end )
         @dictionary.add_word( ['ticks'],
                               'Time and date',

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rpl
 version: !ruby/object:Gem::Version
-  version: 0.7.0
+  version: 0.8.0
 platform: ruby
 authors:
 - Gwenhael Le Moine
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2022-03-02 00:00:00.000000000 Z
+date: 2022-03-12 00:00:00.000000000 Z
 dependencies: []
 description: A language inspired by HP's RPL and https://github.com/louisrubet/rpn/
 email: gwenhael@le-moine.org
@@ -62,7 +62,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.2.32
+rubygems_version: 3.3.7
 signing_key:
 specification_version: 4
 summary: Functional Stack Language