module Rpn
  module Core
    module Mode
      module_function

      # set float precision in bits. ex: 256 prec
      def prec( stack )
        stack, args = Rpn::Core.stack_extract( stack, [%i[numeric]] )

        Rpn::Core.precision = args[0][:value]

        stack
      end

      # set float representation and precision to default
      def default( stack )
        Rpn::Core.precision = 12

        stack
      end

      # show type of stack first entry
      def type( stack )
        stack, args = Rpn::Core.stack_extract( stack, [:any] )

        stack << args[0]
        stack << { type: :string,
                   value: args[0][:type].to_s }
        stack
      end
    end
  end
end