Method code for $world_time.parse_unit()

[Turn on line numbering]

---

arg unit, @units;
var i;

[(units ?= time_units)] = units;
i = find i in [1 .. units.length()] where (unit in units[i].subrange(2));
if (i)
    return i;
throw(~invarg, "Invalid time unit '" + unit + "', no descriptor?");

---

["// Created 19-Nov-1996 as a part of ColdCore, see: @help Credit"]