05 Feb 11, 03:51AM
Oh behalf of V-Man:
[SELECT ALL] Code:
// breakloop -- "Stops" a loop at a certain point to execute a given command -- by V-Man
alias breakloop [
brk = 0
brkstop = 0
loop ta 99 [
if $brkstop [] [
if (arg1) [brkstop = 1; arg2] [+= brk 1]]]]
// breakloop [condition to stop on (stops after 99 loops)] [command to execute when stopped]
// Uses $brk as a counter
// breakloop [= $brk 11] [echo brk is $brk]
// tmpgen -- uses breakloop to create a not-already-existing temporary alias with a name prefix of "tmp" and suffix of 0-99
alias tmpgen [
tmp_command = $arg1
breakloop [! (checkalias (concatword "tmp" $brk))] [alias (concatword "tmp" $brk) (getalias tmp_command)]
delalias tmp_command
]
// Deletes all aliases beginning with "tmp" and having a number between 0 and 99 as a suffix
addcheck_onquit [loop td 99 [delalias (concatword "tmp" $td)]]