print(" s localtime -----------------------> s : formats the current local time\n");
print(" s gmtime --------------------------> s : formats the current UTC time\n");
print(" time ------------------------------> f : seconds since VM start\n");
+ print(" s /MD4 digest ---------------------> s : MD4 digest\n");
+ print(" s /SHA256 digest ------------------> s : SHA256 digest\n");
print(" Set operations operate on 'such''strings'.\n");
print(" Unknown tokens insert their cvar value.\n");
print(" maplist add map\n");
rpn_error = TRUE;
}
} else if(rpncmd == "load") {
-#ifdef SVQC
- rpn_set(cvar_string_builtin(rpn_get())); // cvar name comes from user
-#else
rpn_set(cvar_string(rpn_get()));
-#endif
} else if(rpncmd == "exch") {
s = rpn_pop();
s2 = rpn_get();
rpn_set(strftime(FALSE, rpn_get()));
} else if(rpncmd == "time") {
rpn_pushf(time);
+ } else if(rpncmd == "digest") {
+ s = rpn_pop();
+ rpn_set(digest_hex(s, rpn_get()));
} else {
rpn_push(cvar_string(rpncmd));
}