Method code for $integer.parse_range()

[Turn on line numbering]

---

arg range;
var r1, r2, reg;

if ("-" in range) {
    reg = regexp(range, "([0-9^#\.]+) *- *([0-9\$\.]+)");
    return [(> ._range_type(reg[1]) <), (> ._range_type(reg[2]) <)];
} else {
    return [(> ._range_type(range) <), 'none];
}

// ("1-5") => (1, 5)      -- 1, 5
// ("1-$") => (1, 'end)   -- 1, 'end (end number)
// (".-3") => ('cur, 3)   -- 'cur (current number), 3
// ("^-3") => ('bgn, 3)   -- 'bgn (beginning number), 3
// ("#-3") => ('bgn, 3)   -- 'bgn (beginning number), 3

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]