gwh/rpl.rb
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

implement test words (untested)

Browse source
This commit is contained in:
Gwenhael Le Moine 2021-11-24 16:09:57 +01:00
parent 09c44b684d
commit a26c059394
No known key found for this signature in database
GPG key ID: FDFE3669426707A7
3 changed files with 137 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/core.rb
View file

@ -6,6 +6,7 @@ require_relative './language/operations'
require_relative './language/program'
require_relative './language/stack'
require_relative './language/string'
require_relative './language/test'
require_relative './language/time-date'
module Rpl

38
lib/dictionary.rb
View file

@ -35,7 +35,9 @@ module Rpl
add( '-', proc { |stack| Rpl::Core.subtract( stack ) } )
add( 'chs', proc { |stack| Rpl::Core.negate( stack ) } )
add( '*', proc { |stack| Rpl::Core.multiply( stack ) } )
add( '×', proc { |stack| Rpl::Core.multiply( stack ) } ) # alias
add( '/', proc { |stack| Rpl::Core.divide( stack ) } )
add( '÷', proc { |stack| Rpl::Core.divide( stack ) } ) # alias
add( 'inv', proc { |stack| Rpl::Core.inverse( stack ) } )
add( '^', proc { |stack| Rpl::Core.power( stack ) } )
add( 'sqrt', proc { |stack| Rpl::Core.sqrt( stack ) } )
@ -67,9 +69,13 @@ module Rpl
add( 'conj', proc { |stack| Rpl::Core.__todo( stack ) } ) # complex conjugate
add( 'arg', proc { |stack| Rpl::Core.__todo( stack ) } ) # complex argument in radians
add( 'c->r', proc { |stack| Rpl::Core.__todo( stack ) } ) # transform a complex in 2 reals
add( 'c→r', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
add( 'r->c', proc { |stack| Rpl::Core.__todo( stack ) } ) # transform 2 reals in a complex
add( 'r→c', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
add( 'p->r', proc { |stack| Rpl::Core.__todo( stack ) } ) # cartesian to polar
add( 'p→r', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
add( 'r->p', proc { |stack| Rpl::Core.__todo( stack ) } ) # polar to cartesian
add( 'r→p', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
# MODE
add( 'std', proc { |stack| Rpl::Core.__todo( stack ) } ) # standard floating numbers representation. ex: std
@ -81,21 +87,28 @@ module Rpl
add( 'type', proc { |stack| Rpl::Core.type( stack ) } )
# TEST
add( '>', proc { |stack| Rpl::Core.__todo( stack ) } ) # binary operator >
add( '>=', proc { |stack| Rpl::Core.__todo( stack ) } ) # binary operator >=
add( '<', proc { |stack| Rpl::Core.__todo( stack ) } ) # binary operator <
add( '<=', proc { |stack| Rpl::Core.__todo( stack ) } ) # binary operator <=
add( '!=', proc { |stack| Rpl::Core.__todo( stack ) } ) # binary operator != (different)
add( '==', proc { |stack| Rpl::Core.__todo( stack ) } ) # binary operator == (equal)
add( 'and', proc { |stack| Rpl::Core.__todo( stack ) } ) # boolean operator and
add( 'or', proc { |stack| Rpl::Core.__todo( stack ) } ) # boolean operator or
add( 'xor', proc { |stack| Rpl::Core.__todo( stack ) } ) # boolean operator xor
add( 'not', proc { |stack| Rpl::Core.__todo( stack ) } ) # boolean operator not
add( 'same', proc { |stack| Rpl::Core.__todo( stack ) } ) # boolean operator same (equal)
add( '>', proc { |stack| Rpl::Core.greater_than( stack ) } )
add( '>=', proc { |stack| Rpl::Core.greater_or_equal_than( stack ) } )
add( '≥', proc { |stack| Rpl::Core.greater_or_equal_than( stack ) } ) # alias
add( '<', proc { |stack| Rpl::Core.less_than( stack ) } )
add( '<=', proc { |stack| Rpl::Core.less_or_equal_than( stack ) } )
add( '≤', proc { |stack| Rpl::Core.less_or_equal_than( stack ) } ) # alias
add( '!=', proc { |stack| Rpl::Core.different( stack ) } )
add( '≠', proc { |stack| Rpl::Core.different( stack ) } ) # alias
add( '==', proc { |stack| Rpl::Core.same( stack ) } ) # alias
add( 'and', proc { |stack| Rpl::Core.and( stack ) } )
add( 'or', proc { |stack| Rpl::Core.or( stack ) } )
add( 'xor', proc { |stack| Rpl::Core.xor( stack ) } )
add( 'not', proc { |stack| Rpl::Core.not( stack ) } )
add( 'same', proc { |stack| Rpl::Core.same( stack ) } )
add( 'true', proc { |stack| Rpl::Core.true( stack ) } )
add( 'false', proc { |stack| Rpl::Core.false( stack ) } )
# STRING
add( '->str', proc { |stack| Rpl::Core.to_string( stack ) } )
add( '→str', proc { |stack| Rpl::Core.to_string( stack ) } ) # alias
add( 'str->', proc { |stack| Rpl::Core.from_string( stack ) } )
add( 'str→', proc { |stack| Rpl::Core.from_string( stack ) } ) # alias
add( 'chr', proc { |stack| Rpl::Core.chr( stack ) } )
add( 'num', proc { |stack| Rpl::Core.num( stack ) } )
add( 'size', proc { |stack| Rpl::Core.size( stack ) } )
@ -135,6 +148,7 @@ module Rpl
# PROGRAM
add( 'eval', proc { |stack| Rpl::Core.eval( stack, self ) } )
add( '->', proc { |stack| Rpl::Core.__todo( stack ) } ) # load program local variables. ex: << -> n m << 0 n m for i i + next >> >>
add( '→', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
# TRIG ON REALS AND COMPLEXES
add( 'pi', proc { |stack| Rpl::Core.__todo( stack ) } ) # pi constant
@ -145,7 +159,9 @@ module Rpl
add( 'tan', proc { |stack| Rpl::Core.__todo( stack ) } ) # tangent
add( 'atan', proc { |stack| Rpl::Core.__todo( stack ) } ) # arg tangent
add( 'd->r', proc { |stack| Rpl::Core.__todo( stack ) } ) # convert degrees to radians
add( 'd→r', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
add( 'r->d', proc { |stack| Rpl::Core.__todo( stack ) } ) # convert radians to degrees
add( 'r→d', proc { |stack| Rpl::Core.__todo( stack ) } ) # alias
# LOGS ON REALS AND COMPLEXES
add( 'e', proc { |stack| Rpl::Core.__todo( stack ) } ) # Euler constant

109
lib/language/test.rb Normal file
View file

@ -0,0 +1,109 @@
module Rpl
module Core
module_function
# binary operator >
def greater_than( stack )
stack, args = Rpl::Core.stack_extract( stack, %i[any any] )
stack << { type: :boolean,
value: args[1][:value] > args[0][:value] }
stack
end
# binary operator >=
def greater_or_equal_than( stack )
stack, args = Rpl::Core.stack_extract( stack, %i[any any] )
stack << { type: :boolean,
value: args[1][:value] >= args[0][:value] }
stack
end
# binary operator <
def less_than( stack )
stack, args = Rpl::Core.stack_extract( stack, %i[any any] )
stack << { type: :boolean,
value: args[1][:value] < args[0][:value] }
stack
end
# binary operator <=
def less_or_equal_than( stack )
stack, args = Rpl::Core.stack_extract( stack, %i[any any] )
stack << { type: :boolean,
value: args[1][:value] <= args[0][:value] }
stack
end
# boolean operator != (different)
def different( stack )
stack, args = Rpl::Core.stack_extract( stack, %i[any any] )
stack << { type: :boolean,
value: args[1][:value] != args[0][:value] }
stack
end
# boolean operator and
def and( stack )
stack, args = Rpl::Core.stack_extract( stack, [%i[boolean], %i[boolean]] )
stack << { type: :boolean,
value: args[1][:value] && args[0][:value] }
stack
end
# boolean operator or
def or( stack )
stack, args = Rpl::Core.stack_extract( stack, [%i[boolean], %i[boolean]] )
stack << { type: :boolean,
value: args[1][:value] || args[0][:value] }
stack
end
# boolean operator xor
def xor( stack )
stack, args = Rpl::Core.stack_extract( stack, [%i[boolean], %i[boolean]] )
stack << { type: :boolean,
value: args[1][:value] ^ args[0][:value] }
stack
end
# boolean operator not
def not( stack )
stack, args = Rpl::Core.stack_extract( stack, [%i[boolean]] )
stack << { type: :boolean,
value: !args[0][:value] }
stack
end
# boolean operator same (equal)
def same( stack )
stack, args = Rpl::Core.stack_extract( stack, %i[any any] )
stack << { type: :boolean,
value: args[1][:value] == args[0][:value] }
stack
end
# true boolean
def true( stack )
stack << { type: :boolean,
value: true }
stack
end
# false boolean
def false( stack )
stack << { type: :boolean,
value: false }
stack
end
end
end