forked from rebol/rebol
-
Notifications
You must be signed in to change notification settings - Fork 2
Charset
angerangel edited this page Mar 15, 2013
·
1 revision
CHARSET chars /length len
Makes a bitset of chars for the parse function.
CHARSET is a function value.
- chars (string! block! binary! char! integer!)
-
/length -- Preallocate this many bits
- len -- Must be > 0 (integer!)
#SOURCE
charset: make function! [ [
"Makes a bitset of chars for the parse function."
chars [string! block! binary! char! integer!]
/length "Preallocate this many bits"
len [integer!] "Must be > 0"
][
either length [append make bitset! len chars] [make bitset! chars]
] ]