rpl.rb/lib/core.rb

# frozen_string_literal: true

require 'bigdecimal/math'

require_relative './core/branch'
require_relative './core/general'
require_relative './core/mode'
require_relative './core/operations'
require_relative './core/program'
require_relative './core/stack'
require_relative './core/store'
require_relative './core/string'
require_relative './core/test'
require_relative './core/time-date'
require_relative './core/trig'
require_relative './core/logs'
require_relative './core/filesystem'
require_relative './core/list'

module Rpl
  module Lang
    module Core
      module_function

      include BigMath

      def precision
        @precision or 12
      end

      def precision=( value )
        @precision = value
      end

      def stack_extract( stack, needs )
        raise ArgumentError, 'Not enough elements' if stack.size < needs.size

        args = []
        needs.each do |need|
          elt = stack.pop

          raise ArgumentError, "Type Error, needed #{need} got #{elt[:type]}" unless need == :any || need.include?( elt[:type] )

          args << elt
        end

        [stack, args]
      end

      def infer_resulting_base( numerics )
        10 if numerics.length.zero?

        numerics.last[:base]
      end

      def __todo( stack, dictionary )
        puts '__NOT IMPLEMENTED__'

        [stack, dictionary]
      end

      def __pp_stack( stack, dictionary )
        pp stack

        [stack, dictionary]
      end
    end
  end
end