rpl.rb/lib/rpl/words/time-date.rb

36 lines
1.3 KiB
Ruby

# frozen_string_literal: true
require 'date'
module RplLang
module Words
module TimeAndDate
include Types
def populate_dictionary
super
@dictionary.add_word( ['time'],
'Time and date',
'( -- t ) push current time',
proc do
@stack << Types.new_object( RplString, "\"#{DateTime.now.iso8601.to_s.split('T').last[0..7]}\"" )
end )
@dictionary.add_word( ['date'],
'Time and date',
'( -- d ) push current date',
proc do
@stack << Types.new_object( RplString, "\"#{Date.today.iso8601}\"" )
end )
@dictionary.add_word( ['ticks'],
'Time and date',
'( -- t ) push datetime as ticks',
proc do
ticks_since_epoch = Time.utc( 1, 1, 1 ).to_i * 10_000_000
now = Time.now
@stack << Types.new_object( RplNumeric, now.to_i * 10_000_000 + now.nsec / 100 - ticks_since_epoch )
end )
end
end
end
end