Method code for $string.is_positive()

[Turn on line numbering]
arg str;

if (match_regexp(str, "^(yes|y|true|t|all|everybody|anybody|everywhere|anywhere|1)$"))
    return 1;
return 0;

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit

Tlon