rpl.rb/lib/rpl/words/filesystem.rb

# frozen_string_literal: true

module RplLang
  module Words
    module FileSystem
      include Types

      def populate_dictionary
        super

        @dictionary.add_word( ['fread'],
                              'Filesystem',
                              '( filename -- content ) read file and put content on stack as string',
                              proc do
                                args = stack_extract( [[RplString]] )

                                path = File.absolute_path( args[0].value )

                                @stack << RplString.new( "\"#{File.read( path )}\"" )
                              end )

        @dictionary.add_word( ['feval'],
                              'Filesystem',
                              '( filename -- … ) read and run file',
                              RplProgram.new( '« fread eval »' ) )

        @dictionary.add_word( ['fwrite'],
                              'Filesystem',
                              '( content filename -- ) write content into filename',
                              proc do
                                args = stack_extract( [[RplString], :any] )

                                File.write( File.absolute_path( args[0].value ),
                                            args[1].value )
                              end )
      end
    end
  end
end