rpl.rb/lib/rpl/core/mode.rb

# frozen_string_literal: true

module RplLang
  module Core
    module Mode
      def populate_dictionary
        super

        @dictionary.add_word( ['prec'],
                              'Mode',
                              '( a -- ) set precision to a',
                              proc do
                                args = stack_extract( [%i[numeric]] )

                                @precision = args[0][:value]
                              end )
        @dictionary.add_word( ['default'],
                              'Mode',
                              '( -- ) set default precision',
                              proc do
                                @precision = default_precision
                              end )
        @dictionary.add_word( ['type'],
                              'Mode',
                              '( a -- s ) type of a as a string',
                              proc do
                                args = stack_extract( [:any] )

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

        # @dictionary.add_word( ['std'],
        #                  proc { __todo } ) # standard floating numbers representation. ex: std
        # @dictionary.add_word( ['fix'],
        #                  proc { __todo } ) # fixed point representation. ex: 6 fix
        # @dictionary.add_word( ['sci'],
        #                  proc { __todo } ) # scientific floating point representation. ex: 20 sci
        # @dictionary.add_word( ['round'],
        #                  proc { __todo } ) # set float rounding mode. ex: ["nearest", "toward zero", "toward +inf", "toward -inf", "away from zero"] round
      end
    end
  end
end