[REBOL] [globals] Handy function for determining what words are global

From: atruter::labyrinth::net::au at: 1-Mar-2004 14:13

For those who would like to know just exactly what those global words are.

<code>

w: copy [] f: copy [] n: copy [] o: copy [] a: copy []

foreach word load mold first system/words [
	if value? word [
		insert tail w word
		if function? get word [insert tail f word]
		if native? get word [insert tail n word]
		if op? get word [insert tail o word]
		if action? get word [insert tail a word]
	]
]

print reform [
	length? first system/words "system/words^/"
	length? w "global words^/^-"
	length? f "funcs ^/^-"
	length? n "natives^/^-"
	length? o "ops^/^-"
	length? a "actions"
]

</code>

To see a list of native!'s (for example), just use "help n".

Regards,

	Ashley

[1] · 2 · 3 · 4 · 5 · 6 · See whole thread