forked from zufuliu/notepad4
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Rebol.r
516 lines (514 loc) · 4.11 KB
/
Rebol.r
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
REBOL []
; http://www.rebol.com/rebol3/
; http://www.rebol.com/r3/docs/index.html
; http://www.rebol.com/r3/docs/guide/code-syntax.html
;! datatypes ===========================================================
; http://www.rebol.com/r3/docs/datatypes.html
action!
binary!
bitset!
block!
char!
closure!
command!
datatype!
date!
decimal!
email!
end!
error!
event!
file!
frame!
function!
get-path!
get-word!
gob!
handle!
hash!
image!
integer!
issue!
library!
list!
lit-path!
lit-word!
logic!
map!
module!
money!
native!
none!
object!
op!
pair!
paren!
path!
percent!
port!
rebcode!
refinement!
routine!
set-path!
set-word!
string!
struct!
tag!
task!
time!
tuple!
typeset!
unset!
url!
utype!
vector!
word!
;! functions ===========================================================
; http://www.rebol.com/r3/docs/functions.html
about
abs
absolute
action?
add
ajoin
alias
all
also
alter
and
and~
any-block?
any-function?
any-path?
any-string?
any-word?
any
append
apply
arccosine
arcsine
arctangent
array
as-binary
as-pair
as-string
ascii?
ask
assert
at
attempt
back
binary?
bind?
bind
bitset?
block?
body-of
break
browse
bugs
call
caret-to-offset
case
catch
cause-error
cd
change-dir
change
char?
charset
chat
checksum
clean-path
clear
close
closure?
closure
collect
comment
complement
compose
compress
confirm
construct
context
continue
copy
cosine
create
cursor
datatype?
date?
debase
decimal?
decloak
decode-url
decode
decompress
default
dehex
delect
delete
deline
delta-profile
delta-time
demo
detab
difference
dir?
dirize
disarm
divide
do-codec
do-commands
do-events
do
docs
does
dp
draw
dt
dump-obj
dump
echo
effect
eighth
either
else
email?
empty?
enbase
encloak
encode
enline
entab
equal?
error?
eval
even?
event?
evoke
exclude
exists?
exit
exp
extend
extract
fifth
file?
find-module
find-script
find
first+
first
for
forall
foreach
forever
form
format
forskip
found?
fourth
frame?
func
funco
funct
function?
function
functor
get-env
get-path?
get-word?
get
gob?
greater-or-equal?
greater?
halt
handle-events
handle?
has
head?
head
help
if
image?
import
in-dir
in
index?
info?
input
insert
install
integer?
intersect
issue?
join
last
latin1?
launch
layout
length?
lesser-or-equal?
lesser?
library?
license
list-dir
list-env
lit-path?
lit-word?
load-gui
load
log-10
log-2
log-e
logic?
loop
lowercase
ls
make-dir
make-scheme
make
map-each
map-event
map-gob-offset
map?
map
max
maximum-of
maximum
min
minimum-of
minimum
mkdir
mod
modified?
module?
module
modulo
mold
money?
more
move
multiply
native?
native
negate
negative?
new-line?
new-line
next
ninth
none?
not-equal?
not
now
number?
object?
object
odd?
offset?
offset-to-caret
op?
open?
open
or
or~
pair?
paren?
parse
past?
path?
percent?
pick
poke
port?
positive?
power
prin
print
printf
probe
protect
pwd
q
query
quit
random
read
rebcode?
recycle
reduce
refinement?
reflect
reform
rejoin
remainder
remold
remove-each
remove
rename
repeat
repend
replace
request-file
resolve
return
reverse
reword
rm
round
routine?
run
same?
save
scalar?
script?
second
secure
select
series?
set-path?
set-word?
set
seventh
shift
show
sign?
sine
sixth
size?
size-text
skip
sort
source
spec-of
split-path
split
square-root
stack
stats
strict-equal?
strict-not-equal?
string?
struct?
subtract
suffix?
swap
switch
tag?
tail?
tail
take
tangent
task?
task
tenth
third
throw
time?
title-of
to-action
to-binary
to-bitset
to-block
to-char
to-closure
to-datatype
to-date
to-decimal
to-email
to-end
to-error
to-event
to-file
to-frame
to-function
to-get-path
to-get-word
to-gob
to-handle
to-hex
to-image
to-integer
to-issue
to-library
to-lit-path
to-lit-word
to-local-file
to-logic
to-map
to-module
to-money
to-native
to-none
to-object
to-op
to-pair
to-paren
to-path
to-percent
to-port
to-rebcode
to-rebol-file
to-refinement
to-relative-file
to-routine
to-set-path
to-set-word
to-string
to-struct
to-tag
to-task
to-time
to-tuple
to-typeset
to-unset
to-url
to-utype
to-vector
to-word
to
trace
transcode
trim
true?
try
tuple?
type?
types-of
typeset?
unhandle-events
union
unique
unless
unprotect
unset?
unset
until
unview
update
upgrade
uppercase
url?
usage
use
utf?
utype?
value?
values-of
vector?
view
wait
wake-up
what-dir
what
while
why?
word?
words-of
write
xor
xor~
zero?