20 lines
466 B
Ruby
20 lines
466 B
Ruby
|
module Rpl
|
||
|
|
module Lang
|
||
|
|
module Core
|
||
|
|
module_function
|
||
|
|
|
||
|
|
# ( filename -- content ) read file and put content on stack as string
|
||
|
|
def fread( stack, dictionary )
|
||
|
|
stack, args = Rpl::Lang::Core.stack_extract( stack, [%i[string]] )
|
||
|
|
|
||
|
|
path = File.absolute_path( args[0][:value][1..-2] )
|
||
|
|
p path
|
||
|
|
stack << { type: :string,
|
||
|
|
value: File.read( path ) }
|
||
|
|
|
||
|
|
[stack, dictionary]
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|