rpl 0.12.0 → 0.13.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (26) hide show
  1. checksums.yaml +4 -4
  2. data/README.md +74 -0
  3. data/bin/rpl +8 -10
  4. data/lib/rpl/dictionary.rb +12 -12
  5. data/lib/rpl/interpreter.rb +4 -4
  6. data/lib/rpl/words/branch.rb +39 -39
  7. data/lib/rpl/words/display.rb +12 -12
  8. data/lib/rpl/words/filesystem.rb +25 -25
  9. data/lib/rpl/words/general.rb +32 -32
  10. data/lib/rpl/words/list.rb +34 -34
  11. data/lib/rpl/words/logarithm.rb +21 -21
  12. data/lib/rpl/words/mode.rb +24 -24
  13. data/lib/rpl/words/operations-complexes.rb +53 -53
  14. data/lib/rpl/words/operations-reals-complexes.rb +185 -185
  15. data/lib/rpl/words/operations-reals.rb +105 -105
  16. data/lib/rpl/words/program.rb +19 -19
  17. data/lib/rpl/words/repl.rb +65 -65
  18. data/lib/rpl/words/stack.rb +133 -133
  19. data/lib/rpl/words/store.rb +74 -74
  20. data/lib/rpl/words/string-list.rb +11 -11
  21. data/lib/rpl/words/string.rb +73 -73
  22. data/lib/rpl/words/test.rb +103 -103
  23. data/lib/rpl/words/time-date.rb +20 -20
  24. data/lib/rpl/words/trig.rb +47 -47
  25. data/lib/rpl.rb +3 -3
  26. metadata +6 -4
data/lib/rpl/words/program.rb CHANGED
@@ -10,28 +10,28 @@ module RplLang
10
10
 
11
11
  category = 'Program'
12
12
 
13
- @dictionary.add_word( ['eval'],
14
- category,
15
- '( a -- … ) interpret',
16
- proc do
17
- args = stack_extract( [:any] )
13
+ @dictionary.add_word!( ['eval'],
14
+ category,
15
+ '( a -- … ) interpret',
16
+ proc do
17
+ args = stack_extract( [:any] )
18
18
 
19
- if [RplList, RplNumeric, RplBoolean].include?( args[0].class )
20
- @stack << args[0] # these types evaluate to themselves
21
- else
22
- run( args[0].value.to_s )
23
- end
24
- end )
19
+ if [RplList, RplNumeric, RplBoolean].include?( args[0].class )
20
+ @stack << args[0] # these types evaluate to themselves
21
+ else
22
+ run!( args[0].value.to_s )
23
+ end
24
+ end )
25
25
 
26
- @dictionary.add_word( ['↴', 'lsto'],
27
- category,
28
- '( content name -- ) store to local variable',
29
- proc do
30
- args = stack_extract( [[RplName], :any] )
26
+ @dictionary.add_word!( ['↴', 'lsto'],
27
+ category,
28
+ '( content name -- ) store to local variable',
29
+ proc do
30
+ args = stack_extract( [[RplName], :any] )
31
31
 
32
- @dictionary.add_local_var( args[0].value,
33
- args[1] )
34
- end )
32
+ @dictionary.add_local_var!( args[0].value,
33
+ args[1] )
34
+ end )
35
35
  end
36
36
  end
37
37
  end
data/lib/rpl/words/repl.rb CHANGED
@@ -12,73 +12,73 @@ module RplLang
12
12
 
13
13
  category = 'REPL'
14
14
 
15
- @dictionary.add_word( ['words'],
16
- category,
17
- '() print the categorized list of all words',
18
- proc do
19
- @dictionary.words
20
- .to_a
21
- .group_by { |word| word.last[:category] }
22
- .each do |cat, words|
23
- puts cat
24
- puts " #{words.map(&:first).join(', ')}"
25
- end
26
- end )
27
-
28
- @dictionary.add_word( ['history'],
29
- category,
30
- '() print the REPL\'s history',
31
- proc {} )
32
-
33
- @dictionary.add_word( ['edit'],
34
- category,
35
- '( x -- y ) put first stack object in prompt for modification',
36
- proc {} )
37
-
38
- @dictionary.add_word( ['extedit'],
39
- category,
40
- '( x -- y ) open object in $EDITOR',
41
- proc do
42
- args = stack_extract( [:any] )
43
-
44
- value = args[0].to_s
45
- tempfile = Tempfile.new('rpl')
46
-
47
- begin
48
- tempfile.write( value )
49
- tempfile.rewind
50
-
51
- `$EDITOR #{tempfile.path}`
52
-
53
- edited_value = tempfile.read
54
- ensure
55
- tempfile.close
56
- tempfile.unlink
57
- end
58
-
59
- @stack << Types.new_object( args[0].class, edited_value )
60
- end )
15
+ @dictionary.add_word!( ['words'],
16
+ category,
17
+ '() print the categorized list of all words',
18
+ proc do
19
+ @dictionary.words
20
+ .to_a
21
+ .group_by { |word| word.last[:category] }
22
+ .each do |cat, words|
23
+ puts cat
24
+ puts " #{words.map(&:first).join(', ')}"
25
+ end
26
+ end )
27
+
28
+ @dictionary.add_word!( ['history'],
29
+ category,
30
+ '() print the REPL\'s history',
31
+ proc {} )
32
+
33
+ @dictionary.add_word!( ['edit'],
34
+ category,
35
+ '( x -- y ) put first stack object in prompt for modification',
36
+ proc {} )
37
+
38
+ @dictionary.add_word!( ['extedit'],
39
+ category,
40
+ '( x -- y ) open object in $EDITOR',
41
+ proc do
42
+ args = stack_extract( [:any] )
43
+
44
+ value = args[0].to_s
45
+ tempfile = Tempfile.new('rpl')
46
+
47
+ begin
48
+ tempfile.write( value )
49
+ tempfile.rewind
50
+
51
+ `$EDITOR #{tempfile.path}`
52
+
53
+ edited_value = tempfile.read
54
+ ensure
55
+ tempfile.close
56
+ tempfile.unlink
57
+ end
58
+
59
+ @stack << Types.new_object( args[0].class, edited_value )
60
+ end )
61
61
 
62
62
  category = 'DEBUG'
63
- @dictionary.add_word( ['.s'],
64
- category,
65
- '() print internal state of stack',
66
- proc { pp @stack } )
67
-
68
- @dictionary.add_word( ['.d'],
69
- category,
70
- '() print internal state of dictionary',
71
- proc { pp @dictionary } )
72
-
73
- @dictionary.add_word( ['.v'],
74
- category,
75
- '() print internal state of variables',
76
- proc { pp @dictionary.vars } )
77
-
78
- @dictionary.add_word( ['.lv'],
79
- category,
80
- '() print internal state of local variables layers',
81
- proc { pp @dictionary.local_vars_layers } )
63
+ @dictionary.add_word!( ['.s'],
64
+ category,
65
+ '() print internal state of stack',
66
+ proc { pp @stack } )
67
+
68
+ @dictionary.add_word!( ['.d'],
69
+ category,
70
+ '() print internal state of dictionary',
71
+ proc { pp @dictionary } )
72
+
73
+ @dictionary.add_word!( ['.v'],
74
+ category,
75
+ '() print internal state of variables',
76
+ proc { pp @dictionary.vars } )
77
+
78
+ @dictionary.add_word!( ['.lv'],
79
+ category,
80
+ '() print internal state of local variables layers',
81
+ proc { pp @dictionary.local_vars_layers } )
82
82
  end
83
83
  end
84
84
  end
data/lib/rpl/words/stack.rb CHANGED
@@ -10,139 +10,139 @@ module RplLang
10
10
 
11
11
  category = 'Stack'
12
12
 
13
- @dictionary.add_word( ['swap'],
14
- category,
15
- '( a b -- b a ) swap 2 first stack elements',
16
- proc do
17
- args = stack_extract( %i[any any] )
18
-
19
- @stack << args[0] << args[1]
20
- end )
21
-
22
- @dictionary.add_word( ['drop'],
23
- category,
24
- '( a -- ) drop first stack element',
25
- Types.new_object( RplProgram, '« 1 dropn »' ) )
26
-
27
- @dictionary.add_word( ['drop2'],
28
- category,
29
- '( a b -- ) drop first two stack elements',
30
- Types.new_object( RplProgram, '« 2 dropn »' ) )
31
-
32
- @dictionary.add_word( ['dropn'],
33
- category,
34
- '( a b … n -- ) drop first n stack elements',
35
- proc do
36
- args = stack_extract( [[RplNumeric]] )
37
-
38
- _args = stack_extract( %i[any] * args[0].value )
39
- end )
40
-
41
- @dictionary.add_word( ['del'],
42
- category,
43
- '( a b … -- ) drop all stack elements',
44
- proc do
45
- @stack = []
46
- end)
47
-
48
- @dictionary.add_word( ['rot'],
49
- category,
50
- '( a b c -- b c a ) rotate 3 first stack elements',
51
- proc do
52
- args = stack_extract( %i[any any any] )
53
-
54
- @stack << args[1] << args[0] << args[2]
55
- end )
56
-
57
- @dictionary.add_word( ['dup'],
58
- category,
59
- '( a -- a a ) duplicate first stack element',
60
- Types.new_object( RplProgram, '« 1 dupn »' ) )
61
-
62
- @dictionary.add_word( ['dup2'],
63
- category,
64
- '( a b -- a b a b ) duplicate first two stack elements',
65
- Types.new_object( RplProgram, '« 2 dupn »' ) )
66
-
67
- @dictionary.add_word( ['dupn'],
68
- category,
69
- '( a b … n -- a b … a b … ) duplicate first n stack elements',
70
- proc do
71
- args = stack_extract( [[RplNumeric]] )
72
- n = args[0].value.to_i
73
- args = stack_extract( %i[any] * args[0].value )
74
-
75
- args.reverse!
76
-
77
- 2.times do
78
- n.times.each do |i|
79
- @stack << Marshal.load(Marshal.dump( args[i] ))
80
- end
81
- end
82
- end )
83
-
84
- @dictionary.add_word( ['pick'],
85
- category,
86
- '( … b … n -- … b … b ) push a copy of the given stack level onto the stack',
87
- proc do
88
- args = stack_extract( [[RplNumeric]] )
89
- n = args[0].value.to_i
90
- args = stack_extract( %i[any] * args[0].value )
91
-
92
- args.reverse!
93
-
94
- n.times.each do |i|
95
- @stack << args[ i ]
96
- end
97
-
98
- @stack << args[0]
99
- end )
100
-
101
- @dictionary.add_word( ['depth'],
102
- category,
103
- '( … -- … n ) push stack depth onto the stack',
104
- proc do
105
- @stack << Types.new_object( RplNumeric, stack.size )
106
- end )
107
-
108
- @dictionary.add_word( ['roll'],
109
- category,
110
- '( … a -- a … ) move a stack element to the top of the stack',
111
- proc do
112
- args = stack_extract( [[RplNumeric]] )
113
- n = args[0].value
114
- args = stack_extract( %i[any] * args[0].value )
115
-
116
- args.reverse!
117
-
118
- (1..(n - 1)).each do |i|
119
- @stack << args[ i ]
120
- end
121
-
122
- @stack << args[0]
123
- end )
124
-
125
- @dictionary.add_word( ['rolld'],
126
- category,
127
- '( a … -- … a ) move the element on top of the stack to a higher stack position',
128
- proc do
129
- args = stack_extract( [[RplNumeric]] )
130
- n = args[0].value
131
- args = stack_extract( %i[any] * args[0].value )
132
-
133
- args.reverse!
134
-
135
- @stack << args[n - 1]
136
-
137
- (0..(n - 2)).each do |i|
138
- @stack << args[ i ]
139
- end
140
- end )
141
-
142
- @dictionary.add_word( ['over'],
143
- category,
144
- '( a b -- a b a ) push a copy of the element in stack level 2 onto the stack',
145
- Types.new_object( RplProgram, '« 2 pick »' ) )
13
+ @dictionary.add_word!( ['swap'],
14
+ category,
15
+ '( a b -- b a ) swap 2 first stack elements',
16
+ proc do
17
+ args = stack_extract( %i[any any] )
18
+
19
+ @stack << args[0] << args[1]
20
+ end )
21
+
22
+ @dictionary.add_word!( ['drop'],
23
+ category,
24
+ '( a -- ) drop first stack element',
25
+ Types.new_object( RplProgram, '« 1 dropn »' ) )
26
+
27
+ @dictionary.add_word!( ['drop2'],
28
+ category,
29
+ '( a b -- ) drop first two stack elements',
30
+ Types.new_object( RplProgram, '« 2 dropn »' ) )
31
+
32
+ @dictionary.add_word!( ['dropn'],
33
+ category,
34
+ '( a b … n -- ) drop first n stack elements',
35
+ proc do
36
+ args = stack_extract( [[RplNumeric]] )
37
+
38
+ _args = stack_extract( %i[any] * args[0].value )
39
+ end )
40
+
41
+ @dictionary.add_word!( ['del'],
42
+ category,
43
+ '( a b … -- ) drop all stack elements',
44
+ proc do
45
+ @stack = []
46
+ end)
47
+
48
+ @dictionary.add_word!( ['rot'],
49
+ category,
50
+ '( a b c -- b c a ) rotate 3 first stack elements',
51
+ proc do
52
+ args = stack_extract( %i[any any any] )
53
+
54
+ @stack << args[1] << args[0] << args[2]
55
+ end )
56
+
57
+ @dictionary.add_word!( ['dup'],
58
+ category,
59
+ '( a -- a a ) duplicate first stack element',
60
+ Types.new_object( RplProgram, '« 1 dupn »' ) )
61
+
62
+ @dictionary.add_word!( ['dup2'],
63
+ category,
64
+ '( a b -- a b a b ) duplicate first two stack elements',
65
+ Types.new_object( RplProgram, '« 2 dupn »' ) )
66
+
67
+ @dictionary.add_word!( ['dupn'],
68
+ category,
69
+ '( a b … n -- a b … a b … ) duplicate first n stack elements',
70
+ proc do
71
+ args = stack_extract( [[RplNumeric]] )
72
+ n = args[0].value.to_i
73
+ args = stack_extract( %i[any] * args[0].value )
74
+
75
+ args.reverse!
76
+
77
+ 2.times do
78
+ n.times.each do |i|
79
+ @stack << Marshal.load(Marshal.dump( args[i] ))
80
+ end
81
+ end
82
+ end )
83
+
84
+ @dictionary.add_word!( ['pick'],
85
+ category,
86
+ '( … b … n -- … b … b ) push a copy of the given stack level onto the stack',
87
+ proc do
88
+ args = stack_extract( [[RplNumeric]] )
89
+ n = args[0].value.to_i
90
+ args = stack_extract( %i[any] * args[0].value )
91
+
92
+ args.reverse!
93
+
94
+ n.times.each do |i|
95
+ @stack << args[ i ]
96
+ end
97
+
98
+ @stack << args[0]
99
+ end )
100
+
101
+ @dictionary.add_word!( ['depth'],
102
+ category,
103
+ '( … -- … n ) push stack depth onto the stack',
104
+ proc do
105
+ @stack << Types.new_object( RplNumeric, stack.size )
106
+ end )
107
+
108
+ @dictionary.add_word!( ['roll'],
109
+ category,
110
+ '( … a -- a … ) move a stack element to the top of the stack',
111
+ proc do
112
+ args = stack_extract( [[RplNumeric]] )
113
+ n = args[0].value
114
+ args = stack_extract( %i[any] * args[0].value )
115
+
116
+ args.reverse!
117
+
118
+ (1..(n - 1)).each do |i|
119
+ @stack << args[ i ]
120
+ end
121
+
122
+ @stack << args[0]
123
+ end )
124
+
125
+ @dictionary.add_word!( ['rolld'],
126
+ category,
127
+ '( a … -- … a ) move the element on top of the stack to a higher stack position',
128
+ proc do
129
+ args = stack_extract( [[RplNumeric]] )
130
+ n = args[0].value
131
+ args = stack_extract( %i[any] * args[0].value )
132
+
133
+ args.reverse!
134
+
135
+ @stack << args[n - 1]
136
+
137
+ (0..(n - 2)).each do |i|
138
+ @stack << args[ i ]
139
+ end
140
+ end )
141
+
142
+ @dictionary.add_word!( ['over'],
143
+ category,
144
+ '( a b -- a b a ) push a copy of the element in stack level 2 onto the stack',
145
+ Types.new_object( RplProgram, '« 2 pick »' ) )
146
146
  end
147
147
  end
148
148
  end
data/lib/rpl/words/store.rb CHANGED
@@ -10,80 +10,80 @@ module RplLang
10
10
 
11
11
  category = 'Store'
12
12
 
13
- @dictionary.add_word( ['▶', 'sto'],
14
- category,
15
- '( content name -- ) store to variable',
16
- proc do
17
- args = stack_extract( [[RplName], :any] )
18
-
19
- @dictionary.add_var( args[0].value,
20
- args[1] )
21
- end )
22
-
23
- @dictionary.add_word( ['rcl'],
24
- category,
25
- '( name -- … ) push content of variable name onto stack',
26
- proc do
27
- args = stack_extract( [[RplName]] )
28
-
29
- content = @dictionary.lookup( args[0].value )
30
-
31
- @stack << content unless content.nil?
32
- end )
33
-
34
- @dictionary.add_word( ['purge'],
35
- category,
36
- '( name -- ) delete variable',
37
- proc do
38
- args = stack_extract( [[RplName]] )
39
-
40
- @dictionary.remove_var( args[0].value )
41
- end )
42
-
43
- @dictionary.add_word( ['vars'],
44
- category,
45
- '( -- […] ) list variables',
46
- proc do
47
- @stack << Types.new_object( RplList, (@dictionary.vars.keys + @dictionary.local_vars_layers.reduce([]) { |memo, layer| memo + layer.keys })
48
- .map { |name| Types.new_object( RplName, name ) } )
49
- end )
50
-
51
- @dictionary.add_word( ['clusr'],
52
- category,
53
- '( -- ) delete all variables',
54
- proc do
55
- @dictionary.remove_all_vars
56
- end )
57
-
58
- @dictionary.add_word( ['sto+'],
59
- category,
60
- '( a n -- ) add content to variable\'s value',
61
- Types.new_object( RplProgram, '« swap over rcl + swap sto »' ) )
62
-
63
- @dictionary.add_word( ['sto-'],
64
- category,
65
- '( a n -- ) subtract content to variable\'s value',
66
- Types.new_object( RplProgram, '« swap over rcl swap - swap sto »' ) )
67
-
68
- @dictionary.add_word( ['sto×', 'sto*'],
69
- category,
70
- '( a n -- ) multiply content of variable\'s value',
71
- Types.new_object( RplProgram, '« swap over rcl * swap sto »' ) )
72
-
73
- @dictionary.add_word( ['sto÷', 'sto/'],
74
- category,
75
- '( a n -- ) divide content of variable\'s value',
76
- Types.new_object( RplProgram, '« swap over rcl swap / swap sto »' ) )
77
-
78
- @dictionary.add_word( ['sneg'],
79
- category,
80
- '( a n -- ) negate content of variable\'s value',
81
- Types.new_object( RplProgram, '« dup rcl chs swap sto »' ) )
82
-
83
- @dictionary.add_word( ['sinv'],
84
- category,
85
- '( a n -- ) invert content of variable\'s value',
86
- Types.new_object( RplProgram, '« dup rcl inv swap sto »' ) )
13
+ @dictionary.add_word!( ['▶', 'sto'],
14
+ category,
15
+ '( content name -- ) store to variable',
16
+ proc do
17
+ args = stack_extract( [[RplName], :any] )
18
+
19
+ @dictionary.add_var!( args[0].value,
20
+ args[1] )
21
+ end )
22
+
23
+ @dictionary.add_word!( ['rcl'],
24
+ category,
25
+ '( name -- … ) push content of variable name onto stack',
26
+ proc do
27
+ args = stack_extract( [[RplName]] )
28
+
29
+ content = @dictionary.lookup( args[0].value )
30
+
31
+ @stack << content unless content.nil?
32
+ end )
33
+
34
+ @dictionary.add_word!( ['purge'],
35
+ category,
36
+ '( name -- ) delete variable',
37
+ proc do
38
+ args = stack_extract( [[RplName]] )
39
+
40
+ @dictionary.remove_var!( args[0].value )
41
+ end )
42
+
43
+ @dictionary.add_word!( ['vars'],
44
+ category,
45
+ '( -- […] ) list variables',
46
+ proc do
47
+ @stack << Types.new_object( RplList, (@dictionary.vars.keys + @dictionary.local_vars_layers.reduce([]) { |memo, layer| memo + layer.keys })
48
+ .map { |name| Types.new_object( RplName, name ) } )
49
+ end )
50
+
51
+ @dictionary.add_word!( ['clusr'],
52
+ category,
53
+ '( -- ) delete all variables',
54
+ proc do
55
+ @dictionary.remove_all_vars!
56
+ end )
57
+
58
+ @dictionary.add_word!( ['sto+'],
59
+ category,
60
+ '( a n -- ) add content to variable\'s value',
61
+ Types.new_object( RplProgram, '« swap over rcl + swap sto »' ) )
62
+
63
+ @dictionary.add_word!( ['sto-'],
64
+ category,
65
+ '( a n -- ) subtract content to variable\'s value',
66
+ Types.new_object( RplProgram, '« swap over rcl swap - swap sto »' ) )
67
+
68
+ @dictionary.add_word!( ['sto×', 'sto*'],
69
+ category,
70
+ '( a n -- ) multiply content of variable\'s value',
71
+ Types.new_object( RplProgram, '« swap over rcl * swap sto »' ) )
72
+
73
+ @dictionary.add_word!( ['sto÷', 'sto/'],
74
+ category,
75
+ '( a n -- ) divide content of variable\'s value',
76
+ Types.new_object( RplProgram, '« swap over rcl swap / swap sto »' ) )
77
+
78
+ @dictionary.add_word!( ['sneg'],
79
+ category,
80
+ '( a n -- ) negate content of variable\'s value',
81
+ Types.new_object( RplProgram, '« dup rcl chs swap sto »' ) )
82
+
83
+ @dictionary.add_word!( ['sinv'],
84
+ category,
85
+ '( a n -- ) invert content of variable\'s value',
86
+ Types.new_object( RplProgram, '« dup rcl inv swap sto »' ) )
87
87
  end
88
88
  end
89
89
  end