rpl 0.3.0 → 0.6.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- checksums.yaml +4 -4
- data/bin/rpl +11 -9
- data/lib/rpl/interpreter.rb +27 -177
- data/lib/rpl/parser.rb +87 -0
- data/lib/rpl/types/boolean.rb +32 -0
- data/lib/rpl/types/list.rb +34 -0
- data/lib/rpl/types/name.rb +36 -0
- data/lib/rpl/types/numeric.rb +115 -0
- data/lib/rpl/types/program.rb +27 -0
- data/lib/rpl/types/string.rb +27 -0
- data/lib/rpl/types.rb +8 -0
- data/lib/rpl/{core → words}/branch.rb +14 -16
- data/lib/rpl/{core → words}/filesystem.rb +10 -11
- data/lib/rpl/{core → words}/general.rb +36 -7
- data/lib/rpl/{core → words}/logarithm.rb +4 -4
- data/lib/rpl/{core → words}/mode.rb +7 -6
- data/lib/rpl/{core → words}/operations.rb +144 -134
- data/lib/rpl/{core → words}/program.rb +5 -3
- data/lib/rpl/{core → words}/stack.rb +22 -28
- data/lib/rpl/{core → words}/store.rb +22 -37
- data/lib/rpl/words/string-list.rb +133 -0
- data/lib/rpl/{core → words}/test.rb +19 -29
- data/lib/rpl/{core → words}/time-date.rb +6 -8
- data/lib/rpl/{core → words}/trig.rb +20 -36
- data/lib/rpl/words.rb +15 -0
- data/lib/rpl.rb +17 -29
- metadata +24 -16
- data/lib/rpl/core/list.rb +0 -33
- data/lib/rpl/core/string.rb +0 -114
|
@@ -1,8 +1,10 @@
|
|
|
1
1
|
# frozen_string_literal: true
|
|
2
2
|
|
|
3
3
|
module RplLang
|
|
4
|
-
module
|
|
4
|
+
module Words
|
|
5
5
|
module Store
|
|
6
|
+
include Types
|
|
7
|
+
|
|
6
8
|
def populate_dictionary
|
|
7
9
|
super
|
|
8
10
|
|
|
@@ -10,9 +12,9 @@ module RplLang
|
|
|
10
12
|
'Store',
|
|
11
13
|
'( content name -- ) store to variable',
|
|
12
14
|
proc do
|
|
13
|
-
args = stack_extract( [
|
|
15
|
+
args = stack_extract( [[RplName], :any] )
|
|
14
16
|
|
|
15
|
-
@dictionary.add_var( args[0]
|
|
17
|
+
@dictionary.add_var( args[0].value,
|
|
16
18
|
args[1] )
|
|
17
19
|
end )
|
|
18
20
|
|
|
@@ -20,9 +22,9 @@ module RplLang
|
|
|
20
22
|
'Store',
|
|
21
23
|
'( name -- … ) push content of variable name onto stack',
|
|
22
24
|
proc do
|
|
23
|
-
args = stack_extract( [
|
|
25
|
+
args = stack_extract( [[RplName]] )
|
|
24
26
|
|
|
25
|
-
content = @dictionary.lookup( args[0]
|
|
27
|
+
content = @dictionary.lookup( args[0].value )
|
|
26
28
|
|
|
27
29
|
@stack << content unless content.nil?
|
|
28
30
|
end )
|
|
@@ -31,17 +33,16 @@ module RplLang
|
|
|
31
33
|
'Store',
|
|
32
34
|
'( name -- ) delete variable',
|
|
33
35
|
proc do
|
|
34
|
-
args = stack_extract( [
|
|
36
|
+
args = stack_extract( [[RplName]] )
|
|
35
37
|
|
|
36
|
-
@dictionary.remove_var( args[0]
|
|
38
|
+
@dictionary.remove_var( args[0].value )
|
|
37
39
|
end )
|
|
38
40
|
|
|
39
41
|
@dictionary.add_word( ['vars'],
|
|
40
42
|
'Store',
|
|
41
43
|
'( -- […] ) list variables',
|
|
42
44
|
proc do
|
|
43
|
-
@stack << {
|
|
44
|
-
value: (@dictionary.vars.keys + @dictionary.local_vars_layers.reduce([]) { |memo, layer| memo + layer.keys }).map { |name| { type: :name, value: name } } }
|
|
45
|
+
@stack << RplList.new( (@dictionary.vars.keys + @dictionary.local_vars_layers.reduce([]) { |memo, layer| memo + layer.keys }).map { |name| RplName.new( name ) } )
|
|
45
46
|
end )
|
|
46
47
|
|
|
47
48
|
@dictionary.add_word( ['clusr'],
|
|
@@ -54,68 +55,52 @@ module RplLang
|
|
|
54
55
|
@dictionary.add_word( ['sto+'],
|
|
55
56
|
'Store',
|
|
56
57
|
'( a n -- ) add content to variable\'s value',
|
|
57
|
-
|
|
58
|
-
run( '
|
|
59
|
-
dup type "name" ==
|
|
58
|
+
RplProgram.new( '« dup type "Name" ==
|
|
60
59
|
« swap »
|
|
61
60
|
ift
|
|
62
|
-
over rcl + swap sto' )
|
|
63
|
-
end )
|
|
61
|
+
over rcl + swap sto »' ) )
|
|
64
62
|
|
|
65
63
|
@dictionary.add_word( ['sto-'],
|
|
66
64
|
'Store',
|
|
67
65
|
'( a n -- ) subtract content to variable\'s value',
|
|
68
|
-
|
|
69
|
-
run( '
|
|
70
|
-
dup type "name" ==
|
|
66
|
+
RplProgram.new( '« dup type "Name" ==
|
|
71
67
|
« swap »
|
|
72
68
|
ift
|
|
73
|
-
over rcl swap - swap sto' )
|
|
74
|
-
end )
|
|
69
|
+
over rcl swap - swap sto »' ) )
|
|
75
70
|
|
|
76
71
|
@dictionary.add_word( ['sto×', 'sto*'],
|
|
77
72
|
'Store',
|
|
78
73
|
'( a n -- ) multiply content of variable\'s value',
|
|
79
|
-
|
|
80
|
-
run( '
|
|
81
|
-
dup type "name" ==
|
|
74
|
+
RplProgram.new( '« dup type "Name" ==
|
|
82
75
|
« swap »
|
|
83
76
|
ift
|
|
84
|
-
over rcl * swap sto' )
|
|
85
|
-
end )
|
|
77
|
+
over rcl * swap sto »' ) )
|
|
86
78
|
|
|
87
79
|
@dictionary.add_word( ['sto÷', 'sto/'],
|
|
88
80
|
'Store',
|
|
89
81
|
'( a n -- ) divide content of variable\'s value',
|
|
90
|
-
|
|
91
|
-
run( '
|
|
92
|
-
dup type "name" ==
|
|
82
|
+
RplProgram.new( '« dup type "Name" ==
|
|
93
83
|
« swap »
|
|
94
84
|
ift
|
|
95
|
-
over rcl swap / swap sto' )
|
|
96
|
-
end )
|
|
85
|
+
over rcl swap / swap sto »' ) )
|
|
97
86
|
|
|
98
87
|
@dictionary.add_word( ['sneg'],
|
|
99
88
|
'Store',
|
|
100
89
|
'( a n -- ) negate content of variable\'s value',
|
|
101
|
-
|
|
102
|
-
run( 'dup rcl chs swap sto' )
|
|
103
|
-
end )
|
|
90
|
+
RplProgram.new( '« dup rcl chs swap sto »' ) )
|
|
104
91
|
|
|
105
92
|
@dictionary.add_word( ['sinv'],
|
|
106
93
|
'Store',
|
|
107
94
|
'( a n -- ) invert content of variable\'s value',
|
|
108
|
-
|
|
109
|
-
run( 'dup rcl inv swap sto' )
|
|
110
|
-
end )
|
|
95
|
+
RplProgram.new( '« dup rcl inv swap sto »' ) )
|
|
111
96
|
|
|
112
97
|
@dictionary.add_word( ['↴', 'lsto'],
|
|
113
98
|
'Program',
|
|
114
99
|
'( content name -- ) store to local variable',
|
|
115
100
|
proc do
|
|
116
|
-
args = stack_extract( [
|
|
101
|
+
args = stack_extract( [[RplName], :any] )
|
|
117
102
|
|
|
118
|
-
@dictionary.add_local_var( args[0]
|
|
103
|
+
@dictionary.add_local_var( args[0].value,
|
|
119
104
|
args[1] )
|
|
120
105
|
end )
|
|
121
106
|
end
|
|
@@ -0,0 +1,133 @@
|
|
|
1
|
+
# frozen_string_literal: true
|
|
2
|
+
|
|
3
|
+
module RplLang
|
|
4
|
+
module Words
|
|
5
|
+
module StringAndList
|
|
6
|
+
include Types
|
|
7
|
+
|
|
8
|
+
def populate_dictionary
|
|
9
|
+
super
|
|
10
|
+
|
|
11
|
+
@dictionary.add_word( ['→str', '->str'],
|
|
12
|
+
'String',
|
|
13
|
+
'( a -- s ) convert element to string',
|
|
14
|
+
proc do
|
|
15
|
+
args = stack_extract( [:any] )
|
|
16
|
+
|
|
17
|
+
@stack << RplString.new( "\"#{args[0]}\"" )
|
|
18
|
+
end )
|
|
19
|
+
|
|
20
|
+
@dictionary.add_word( ['str→', 'str->'],
|
|
21
|
+
'String',
|
|
22
|
+
'( s -- a ) convert string to element',
|
|
23
|
+
proc do
|
|
24
|
+
args = stack_extract( [[RplString]] )
|
|
25
|
+
|
|
26
|
+
@stack += Parser.parse( args[0].value )
|
|
27
|
+
end )
|
|
28
|
+
|
|
29
|
+
@dictionary.add_word( ['→list', '->list'],
|
|
30
|
+
'Lists',
|
|
31
|
+
'( … x -- […] ) pack x stacks levels into a list',
|
|
32
|
+
proc do
|
|
33
|
+
args = stack_extract( [[RplNumeric]] )
|
|
34
|
+
args = stack_extract( %i[any] * args[0].value )
|
|
35
|
+
|
|
36
|
+
@stack << RplList.new( args.reverse )
|
|
37
|
+
end )
|
|
38
|
+
|
|
39
|
+
@dictionary.add_word( ['list→', 'list->'],
|
|
40
|
+
'Lists',
|
|
41
|
+
'( […] -- … ) unpack list on stack',
|
|
42
|
+
proc do
|
|
43
|
+
args = stack_extract( [[RplList]] )
|
|
44
|
+
|
|
45
|
+
args[0].value.each do |elt|
|
|
46
|
+
@stack << elt
|
|
47
|
+
end
|
|
48
|
+
end )
|
|
49
|
+
|
|
50
|
+
@dictionary.add_word( ['chr'],
|
|
51
|
+
'String',
|
|
52
|
+
'( n -- c ) convert ASCII character code in stack level 1 into a string',
|
|
53
|
+
proc do
|
|
54
|
+
args = stack_extract( [[RplNumeric]] )
|
|
55
|
+
|
|
56
|
+
@stack << RplString.new( "\"#{args[0].value.to_i.chr}\"" )
|
|
57
|
+
end )
|
|
58
|
+
|
|
59
|
+
@dictionary.add_word( ['num'],
|
|
60
|
+
'String',
|
|
61
|
+
'( s -- n ) return ASCII code of the first character of the string in stack level 1 as a real number',
|
|
62
|
+
proc do
|
|
63
|
+
args = stack_extract( [[RplString]] )
|
|
64
|
+
|
|
65
|
+
@stack << RplNumeric.new( args[0].value.ord )
|
|
66
|
+
end )
|
|
67
|
+
|
|
68
|
+
@dictionary.add_word( ['size'],
|
|
69
|
+
'String',
|
|
70
|
+
'( s -- n ) return the length of the string or list',
|
|
71
|
+
proc do
|
|
72
|
+
args = stack_extract( [[RplString, RplList]] )
|
|
73
|
+
|
|
74
|
+
@stack << RplNumeric.new( args[0].value.length )
|
|
75
|
+
end )
|
|
76
|
+
|
|
77
|
+
@dictionary.add_word( ['pos'],
|
|
78
|
+
'String',
|
|
79
|
+
'( s s -- n ) search for the string in level 1 within the string in level 2',
|
|
80
|
+
proc do
|
|
81
|
+
args = stack_extract( [[RplString], [RplString]] )
|
|
82
|
+
|
|
83
|
+
@stack << RplNumeric.new( args[1].value.index( args[0].value ) )
|
|
84
|
+
end )
|
|
85
|
+
|
|
86
|
+
@dictionary.add_word( ['sub'],
|
|
87
|
+
'String',
|
|
88
|
+
'( s n n -- s ) return a substring of the string in level 3',
|
|
89
|
+
proc do
|
|
90
|
+
args = stack_extract( [[RplNumeric], [RplNumeric], [RplString]] )
|
|
91
|
+
|
|
92
|
+
@stack << RplString.new( "\"#{args[2].value[ (args[1].value - 1)..(args[0].value - 1) ]}\"" )
|
|
93
|
+
end )
|
|
94
|
+
|
|
95
|
+
@dictionary.add_word( ['rev'],
|
|
96
|
+
'String',
|
|
97
|
+
'( s -- s ) reverse string or list',
|
|
98
|
+
proc do
|
|
99
|
+
args = stack_extract( [[RplString, RplList]] )
|
|
100
|
+
|
|
101
|
+
args[0].value.reverse!
|
|
102
|
+
|
|
103
|
+
@stack << args[0]
|
|
104
|
+
end )
|
|
105
|
+
|
|
106
|
+
@dictionary.add_word( ['split'],
|
|
107
|
+
'String',
|
|
108
|
+
'( s c -- … ) split string s on character c',
|
|
109
|
+
proc do
|
|
110
|
+
args = stack_extract( [[RplString], [RplString]] )
|
|
111
|
+
|
|
112
|
+
args[1].value.split( args[0].value ).each do |elt|
|
|
113
|
+
@stack << RplString.new( "\"#{elt}\"" )
|
|
114
|
+
end
|
|
115
|
+
end )
|
|
116
|
+
|
|
117
|
+
@dictionary.add_word( ['dolist'],
|
|
118
|
+
'Lists',
|
|
119
|
+
'( […] prg -- … ) run prg on each element of a list',
|
|
120
|
+
proc do
|
|
121
|
+
args = stack_extract( [[RplProgram], [RplList]] )
|
|
122
|
+
|
|
123
|
+
args[1].value.each do |elt|
|
|
124
|
+
@stack << elt
|
|
125
|
+
run( args[0].value )
|
|
126
|
+
end
|
|
127
|
+
|
|
128
|
+
run( "#{args[1].value.length} →list" )
|
|
129
|
+
end )
|
|
130
|
+
end
|
|
131
|
+
end
|
|
132
|
+
end
|
|
133
|
+
end
|
|
@@ -1,8 +1,10 @@
|
|
|
1
1
|
# frozen_string_literal: true
|
|
2
2
|
|
|
3
3
|
module RplLang
|
|
4
|
-
module
|
|
4
|
+
module Words
|
|
5
5
|
module Test
|
|
6
|
+
include Types
|
|
7
|
+
|
|
6
8
|
def populate_dictionary
|
|
7
9
|
super
|
|
8
10
|
|
|
@@ -12,8 +14,7 @@ module RplLang
|
|
|
12
14
|
proc do
|
|
13
15
|
args = stack_extract( %i[any any] )
|
|
14
16
|
|
|
15
|
-
@stack <<
|
|
16
|
-
value: args[1][:value] > args[0][:value] }
|
|
17
|
+
@stack << RplBoolean.new( args[1].value > args[0].value )
|
|
17
18
|
end )
|
|
18
19
|
|
|
19
20
|
@dictionary.add_word( ['≥', '>='],
|
|
@@ -22,8 +23,7 @@ module RplLang
|
|
|
22
23
|
proc do
|
|
23
24
|
args = stack_extract( %i[any any] )
|
|
24
25
|
|
|
25
|
-
@stack <<
|
|
26
|
-
value: args[1][:value] >= args[0][:value] }
|
|
26
|
+
@stack << RplBoolean.new( args[1].value >= args[0].value )
|
|
27
27
|
end )
|
|
28
28
|
|
|
29
29
|
@dictionary.add_word( ['<'],
|
|
@@ -32,8 +32,7 @@ module RplLang
|
|
|
32
32
|
proc do
|
|
33
33
|
args = stack_extract( %i[any any] )
|
|
34
34
|
|
|
35
|
-
@stack <<
|
|
36
|
-
value: args[1][:value] < args[0][:value] }
|
|
35
|
+
@stack << RplBoolean.new( args[1].value < args[0].value )
|
|
37
36
|
end )
|
|
38
37
|
|
|
39
38
|
@dictionary.add_word( ['≤', '<='],
|
|
@@ -42,8 +41,7 @@ module RplLang
|
|
|
42
41
|
proc do
|
|
43
42
|
args = stack_extract( %i[any any] )
|
|
44
43
|
|
|
45
|
-
@stack <<
|
|
46
|
-
value: args[1][:value] <= args[0][:value] }
|
|
44
|
+
@stack << RplBoolean.new( args[1].value <= args[0].value )
|
|
47
45
|
end )
|
|
48
46
|
|
|
49
47
|
@dictionary.add_word( ['≠', '!='],
|
|
@@ -52,8 +50,7 @@ module RplLang
|
|
|
52
50
|
proc do
|
|
53
51
|
args = stack_extract( %i[any any] )
|
|
54
52
|
|
|
55
|
-
@stack <<
|
|
56
|
-
value: args[1][:value] != args[0][:value] }
|
|
53
|
+
@stack << RplBoolean.new( args[1].value != args[0].value )
|
|
57
54
|
end )
|
|
58
55
|
|
|
59
56
|
@dictionary.add_word( ['==', 'same'],
|
|
@@ -62,64 +59,57 @@ module RplLang
|
|
|
62
59
|
proc do
|
|
63
60
|
args = stack_extract( %i[any any] )
|
|
64
61
|
|
|
65
|
-
@stack <<
|
|
66
|
-
value: args[1][:value] == args[0][:value] }
|
|
62
|
+
@stack << RplBoolean.new( args[1].value == args[0].value )
|
|
67
63
|
end )
|
|
68
64
|
|
|
69
65
|
@dictionary.add_word( ['and'],
|
|
70
66
|
'Test',
|
|
71
67
|
'( a b -- t ) boolean and',
|
|
72
68
|
proc do
|
|
73
|
-
args = stack_extract( [
|
|
69
|
+
args = stack_extract( [[RplBoolean], [RplBoolean]] )
|
|
74
70
|
|
|
75
|
-
@stack <<
|
|
76
|
-
value: args[1][:value] && args[0][:value] }
|
|
71
|
+
@stack << RplBoolean.new( args[1].value && args[0].value )
|
|
77
72
|
end )
|
|
78
73
|
|
|
79
74
|
@dictionary.add_word( ['or'],
|
|
80
75
|
'Test',
|
|
81
76
|
'( a b -- t ) boolean or',
|
|
82
77
|
proc do
|
|
83
|
-
args = stack_extract( [
|
|
78
|
+
args = stack_extract( [[RplBoolean], [RplBoolean]] )
|
|
84
79
|
|
|
85
|
-
@stack <<
|
|
86
|
-
value: args[1][:value] || args[0][:value] }
|
|
80
|
+
@stack << RplBoolean.new( args[1].value || args[0].value )
|
|
87
81
|
end )
|
|
88
82
|
|
|
89
83
|
@dictionary.add_word( ['xor'],
|
|
90
84
|
'Test',
|
|
91
85
|
'( a b -- t ) boolean xor',
|
|
92
86
|
proc do
|
|
93
|
-
args = stack_extract( [
|
|
87
|
+
args = stack_extract( [[RplBoolean], [RplBoolean]] )
|
|
94
88
|
|
|
95
|
-
@stack <<
|
|
96
|
-
value: args[1][:value] ^ args[0][:value] }
|
|
89
|
+
@stack << RplBoolean.new( args[1].value ^ args[0].value )
|
|
97
90
|
end )
|
|
98
91
|
|
|
99
92
|
@dictionary.add_word( ['not'],
|
|
100
93
|
'Test',
|
|
101
94
|
'( a -- t ) invert boolean value',
|
|
102
95
|
proc do
|
|
103
|
-
args = stack_extract( [
|
|
96
|
+
args = stack_extract( [[RplBoolean]] )
|
|
104
97
|
|
|
105
|
-
@stack <<
|
|
106
|
-
value: !args[0][:value] }
|
|
98
|
+
@stack << RplBoolean.new(!args[0].value )
|
|
107
99
|
end )
|
|
108
100
|
|
|
109
101
|
@dictionary.add_word( ['true'],
|
|
110
102
|
'Test',
|
|
111
103
|
'( -- t ) push true onto stack',
|
|
112
104
|
proc do
|
|
113
|
-
@stack <<
|
|
114
|
-
value: true }
|
|
105
|
+
@stack << RplBoolean.new( true )
|
|
115
106
|
end )
|
|
116
107
|
|
|
117
108
|
@dictionary.add_word( ['false'],
|
|
118
109
|
'Test',
|
|
119
110
|
'( -- t ) push false onto stack',
|
|
120
111
|
proc do
|
|
121
|
-
@stack <<
|
|
122
|
-
value: false }
|
|
112
|
+
@stack << RplBoolean.new( false )
|
|
123
113
|
end )
|
|
124
114
|
end
|
|
125
115
|
end
|
|
@@ -3,8 +3,10 @@
|
|
|
3
3
|
require 'date'
|
|
4
4
|
|
|
5
5
|
module RplLang
|
|
6
|
-
module
|
|
6
|
+
module Words
|
|
7
7
|
module TimeAndDate
|
|
8
|
+
include Types
|
|
9
|
+
|
|
8
10
|
def populate_dictionary
|
|
9
11
|
super
|
|
10
12
|
|
|
@@ -12,15 +14,13 @@ module RplLang
|
|
|
12
14
|
'Time and date',
|
|
13
15
|
'( -- t ) push current time',
|
|
14
16
|
proc do
|
|
15
|
-
@stack << {
|
|
16
|
-
value: Time.now.to_s }
|
|
17
|
+
@stack << RplString.new( "\"#{Time.now}\"" )
|
|
17
18
|
end )
|
|
18
19
|
@dictionary.add_word( ['date'],
|
|
19
20
|
'Time and date',
|
|
20
21
|
'( -- d ) push current date',
|
|
21
22
|
proc do
|
|
22
|
-
@stack << {
|
|
23
|
-
value: Date.today.to_s }
|
|
23
|
+
@stack << RplString.new( "\"#{Date.today}\"" )
|
|
24
24
|
end )
|
|
25
25
|
@dictionary.add_word( ['ticks'],
|
|
26
26
|
'Time and date',
|
|
@@ -28,9 +28,7 @@ module RplLang
|
|
|
28
28
|
proc do
|
|
29
29
|
ticks_since_epoch = Time.utc( 1, 1, 1 ).to_i * 10_000_000
|
|
30
30
|
now = Time.now
|
|
31
|
-
@stack <<
|
|
32
|
-
base: 10,
|
|
33
|
-
value: now.to_i * 10_000_000 + now.nsec / 100 - ticks_since_epoch }
|
|
31
|
+
@stack << RplNumeric.new( now.to_i * 10_000_000 + now.nsec / 100 - ticks_since_epoch )
|
|
34
32
|
end )
|
|
35
33
|
end
|
|
36
34
|
end
|
|
@@ -3,8 +3,10 @@
|
|
|
3
3
|
# https://rosettacode.org/wiki/Trigonometric_functions#Ruby
|
|
4
4
|
|
|
5
5
|
module RplLang
|
|
6
|
-
module
|
|
6
|
+
module Words
|
|
7
7
|
module Trig
|
|
8
|
+
include Types
|
|
9
|
+
|
|
8
10
|
def populate_dictionary
|
|
9
11
|
super
|
|
10
12
|
|
|
@@ -12,49 +14,38 @@ module RplLang
|
|
|
12
14
|
'Trig on reals and complexes',
|
|
13
15
|
'( … -- 𝛑 ) push 𝛑',
|
|
14
16
|
proc do
|
|
15
|
-
@stack <<
|
|
16
|
-
base: 10,
|
|
17
|
-
value: BigMath.PI( precision ) }
|
|
17
|
+
@stack << RplNumeric.new( BigMath.PI( RplNumeric.precision ) )
|
|
18
18
|
end )
|
|
19
19
|
|
|
20
20
|
@dictionary.add_word( ['sin'],
|
|
21
21
|
'Trig on reals and complexes',
|
|
22
22
|
'( n -- m ) compute sinus of n',
|
|
23
23
|
proc do
|
|
24
|
-
args = stack_extract( [
|
|
24
|
+
args = stack_extract( [[RplNumeric]] )
|
|
25
25
|
|
|
26
|
-
@stack <<
|
|
27
|
-
base: infer_resulting_base( args ),
|
|
28
|
-
value: BigMath.sin( BigDecimal( args[0][:value], precision ), precision ) }
|
|
26
|
+
@stack << RplNumeric.new( BigMath.sin( BigDecimal( args[0].value, RplNumeric.precision ), RplNumeric.precision ) )
|
|
29
27
|
end )
|
|
30
28
|
|
|
31
29
|
@dictionary.add_word( ['asin'],
|
|
32
30
|
'Trig on reals and complexes',
|
|
33
31
|
'( n -- m ) compute arg-sinus of n',
|
|
34
|
-
|
|
35
|
-
run( '
|
|
36
|
-
dup abs 1 ==
|
|
32
|
+
RplProgram.new( '« dup abs 1 ==
|
|
37
33
|
« 𝛑 2 / * »
|
|
38
34
|
« dup sq 1 swap - sqrt / atan »
|
|
39
|
-
ifte' )
|
|
40
|
-
end )
|
|
35
|
+
ifte »' ) )
|
|
41
36
|
|
|
42
37
|
@dictionary.add_word( ['cos'],
|
|
43
38
|
'Trig on reals and complexes',
|
|
44
39
|
'( n -- m ) compute cosinus of n',
|
|
45
40
|
proc do
|
|
46
|
-
args = stack_extract( [
|
|
41
|
+
args = stack_extract( [[RplNumeric]] )
|
|
47
42
|
|
|
48
|
-
@stack <<
|
|
49
|
-
base: infer_resulting_base( args ),
|
|
50
|
-
value: BigMath.cos( BigDecimal( args[0][:value], precision ), precision ) }
|
|
43
|
+
@stack << RplNumeric.new( BigMath.cos( BigDecimal( args[0].value, RplNumeric.precision ), RplNumeric.precision ) )
|
|
51
44
|
end )
|
|
52
45
|
@dictionary.add_word( ['acos'],
|
|
53
46
|
'Trig on reals and complexes',
|
|
54
47
|
'( n -- m ) compute arg-cosinus of n',
|
|
55
|
-
|
|
56
|
-
run( '
|
|
57
|
-
dup 0 ==
|
|
48
|
+
RplProgram.new( '« dup 0 ==
|
|
58
49
|
« drop 𝛑 2 / »
|
|
59
50
|
«
|
|
60
51
|
dup sq 1 swap - sqrt / atan
|
|
@@ -62,38 +53,31 @@ module RplLang
|
|
|
62
53
|
« 𝛑 + »
|
|
63
54
|
ift
|
|
64
55
|
»
|
|
65
|
-
ifte' )
|
|
66
|
-
end )
|
|
56
|
+
ifte »' ) )
|
|
67
57
|
|
|
68
58
|
@dictionary.add_word( ['tan'],
|
|
69
59
|
'Trig on reals and complexes',
|
|
70
60
|
'( n -- m ) compute tangent of n',
|
|
71
|
-
|
|
72
|
-
run( 'dup sin swap cos /' )
|
|
73
|
-
end )
|
|
61
|
+
RplProgram.new( '« dup sin swap cos / »' ) )
|
|
74
62
|
|
|
75
63
|
@dictionary.add_word( ['atan'],
|
|
76
64
|
'Trig on reals and complexes',
|
|
77
65
|
'( n -- m ) compute arc-tangent of n',
|
|
78
66
|
proc do
|
|
79
|
-
args = stack_extract( [
|
|
67
|
+
args = stack_extract( [[RplNumeric]] )
|
|
68
|
+
|
|
69
|
+
@stack << RplNumeric.new( BigMath.atan( BigDecimal( args[0].value, RplNumeric.precision ), RplNumeric.precision ) )
|
|
70
|
+
end )
|
|
80
71
|
|
|
81
|
-
@stack << { type: :numeric,
|
|
82
|
-
base: infer_resulting_base( args ),
|
|
83
|
-
value: BigMath.atan( BigDecimal( args[0][:value], precision ), precision ) }
|
|
84
|
-
end)
|
|
85
72
|
@dictionary.add_word( ['d→r', 'd->r'],
|
|
86
73
|
'Trig on reals and complexes',
|
|
87
74
|
'( n -- m ) convert degree to radian',
|
|
88
|
-
|
|
89
|
-
|
|
90
|
-
end )
|
|
75
|
+
RplProgram.new( '« 180 / 𝛑 * »' ) )
|
|
76
|
+
|
|
91
77
|
@dictionary.add_word( ['r→d', 'r->d'],
|
|
92
78
|
'Trig on reals and complexes',
|
|
93
79
|
'( n -- m ) convert radian to degree',
|
|
94
|
-
|
|
95
|
-
run( '𝛑 180 / /' )
|
|
96
|
-
end)
|
|
80
|
+
RplProgram.new( '« 𝛑 180 / / »' ) )
|
|
97
81
|
end
|
|
98
82
|
end
|
|
99
83
|
end
|
data/lib/rpl/words.rb
ADDED
|
@@ -0,0 +1,15 @@
|
|
|
1
|
+
# frozen_string_literal: true
|
|
2
|
+
|
|
3
|
+
require 'rpl/words/branch'
|
|
4
|
+
require 'rpl/words/general'
|
|
5
|
+
require 'rpl/words/mode'
|
|
6
|
+
require 'rpl/words/operations'
|
|
7
|
+
require 'rpl/words/program'
|
|
8
|
+
require 'rpl/words/stack'
|
|
9
|
+
require 'rpl/words/store'
|
|
10
|
+
require 'rpl/words/string-list'
|
|
11
|
+
require 'rpl/words/test'
|
|
12
|
+
require 'rpl/words/time-date'
|
|
13
|
+
require 'rpl/words/trig'
|
|
14
|
+
require 'rpl/words/logarithm'
|
|
15
|
+
require 'rpl/words/filesystem'
|
data/lib/rpl.rb
CHANGED
|
@@ -1,43 +1,31 @@
|
|
|
1
1
|
# frozen_string_literal: true
|
|
2
2
|
|
|
3
3
|
require 'rpl/interpreter'
|
|
4
|
-
|
|
5
|
-
require 'rpl/
|
|
6
|
-
require 'rpl/core/general'
|
|
7
|
-
require 'rpl/core/mode'
|
|
8
|
-
require 'rpl/core/operations'
|
|
9
|
-
require 'rpl/core/program'
|
|
10
|
-
require 'rpl/core/stack'
|
|
11
|
-
require 'rpl/core/store'
|
|
12
|
-
require 'rpl/core/string'
|
|
13
|
-
require 'rpl/core/test'
|
|
14
|
-
require 'rpl/core/time-date'
|
|
15
|
-
require 'rpl/core/trig'
|
|
16
|
-
require 'rpl/core/logarithm'
|
|
17
|
-
require 'rpl/core/filesystem'
|
|
18
|
-
require 'rpl/core/list'
|
|
4
|
+
require 'rpl/types'
|
|
5
|
+
require 'rpl/words'
|
|
19
6
|
|
|
20
7
|
class Rpl < Interpreter
|
|
8
|
+
include Types
|
|
9
|
+
|
|
21
10
|
def initialize( stack = [], dictionary = Dictionary.new )
|
|
22
11
|
super
|
|
23
12
|
|
|
24
13
|
populate_dictionary if @dictionary.words.empty?
|
|
25
14
|
end
|
|
26
15
|
|
|
27
|
-
prepend RplLang::
|
|
28
|
-
prepend RplLang::
|
|
29
|
-
prepend RplLang::
|
|
30
|
-
prepend RplLang::
|
|
31
|
-
prepend RplLang::
|
|
32
|
-
prepend RplLang::
|
|
33
|
-
prepend RplLang::
|
|
34
|
-
prepend RplLang::
|
|
35
|
-
prepend RplLang::
|
|
36
|
-
prepend RplLang::
|
|
37
|
-
prepend RplLang::
|
|
38
|
-
prepend RplLang::
|
|
39
|
-
prepend RplLang::
|
|
40
|
-
prepend RplLang::Core::Trig
|
|
16
|
+
prepend RplLang::Words::Branch
|
|
17
|
+
prepend RplLang::Words::FileSystem
|
|
18
|
+
prepend RplLang::Words::General
|
|
19
|
+
prepend RplLang::Words::Logarithm
|
|
20
|
+
prepend RplLang::Words::Mode
|
|
21
|
+
prepend RplLang::Words::Operations
|
|
22
|
+
prepend RplLang::Words::Program
|
|
23
|
+
prepend RplLang::Words::Stack
|
|
24
|
+
prepend RplLang::Words::Store
|
|
25
|
+
prepend RplLang::Words::StringAndList
|
|
26
|
+
prepend RplLang::Words::Test
|
|
27
|
+
prepend RplLang::Words::TimeAndDate
|
|
28
|
+
prepend RplLang::Words::Trig
|
|
41
29
|
|
|
42
30
|
def populate_dictionary; end
|
|
43
31
|
end
|