Eval Script
Posted by snang
Saturday, July 31, 2004
Description: Eval script that returns errors.
This snippet will return the syntax errors, as well as $null, and the process time.
Enjoy.
This snippet will return the syntax errors, as well as $null, and the process time.
Enjoy.
alias e {
var %ticks $ticks
if ([ [ $1- ] ] != $null) { msg $active [^B] $+ $chr(91) $+ [^B] $1- [^B] $+ $chr(93) $+ [^B] == [ [ $1- ] ] - $calc($ticks - %ticks) $+ ms }
else { msg $active [^B] $+ $chr(91) $+ [^B] $1- [^B] $+ $chr(93) $+ [^B] == $ $+ null - $calc($ticks - %ticks) $+ ms }
:error
var %temperr = $error
if (%temperr) { msg $active [^B] $+ $chr(91) $+ [^B] $1- [^B] $+ $chr(93) $+ [^B] == [^B] $+ $gettok($gettok($gettok(%temperr,1-,32),2,58),1,32) $+ [^B] - $remove($gettok(%temperr,1,58),*) - $calc($ticks - %ticks) $+ ms }
reseterror
haltdef
}