while ($0) {
<do whatever >
tokenize 32 $2-
}
Every local variable exists only within the code block it's executing. It was introduced in 5.4 I beleive (about time). Here's an example...
[code];*** CREATES DIRECTORIES
;*** /MKDIR <PATH>
;***
ALIAS /MKDIR {
if ($1- == $null) { error /mkdir -hcl - Directory? WHAT DIRECTORY? }
if (($count($1-,:) != 1) && ($left($1,2) != \\)) { tokenize 32 $mircdir $+ $1- }
if (/ isin $1-) {
tokenize 32 $replace($1-,/,\)
}
if ($left($1,1) == ") { tokenize 34 $1- }
inc %l.dir.table
if ($right($1,1) == \) { tokenize 34 $left($1,-1) }
if (($isdir($deltok($1,$numtok($1,92),92)) == $false) $&
&& ($isfile($deltok($1,$numtok($1,92),92)) == $false)) {
recurse mkdir $quote($deltok($1,$numtok($1,92),92))
}
/!mkdir $quote($1-)
}[code]