Method code for $parse_lib.ordinal_reference()

[Turn on line numbering]

---

arg str;
var rx, num;

if (!(rx = regexp(str, "^ *(first|second|third|fourth|fifth|sixth|seventh|eighth|ninth|tenth|1st|2nd|3rd|[456789]th|10th) *(.*)$")))
    return 0;
num = toint(rx[1]) || rx[1] in ordinal;
return [rx[2], num];

// Original code from LamdaMOO, Author Unknown

---

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