Method code for $parse_lib.ordinal_reference()

[Turn off line numbering]

---

  1: arg str;
  2: var rx, num;
  3: 
  4: if (!(rx = regexp(str, "^ *(first|second|third|fourth|fifth|sixth|seventh|eighth|ninth|tenth|1st|2nd|3rd|[456789]th|10th) *(.*)$")))
  5:     return 0;
  6: num = toint(rx[1]) || rx[1] in ordinal;
  7: return [rx[2], num];
  8: 
  9: // Original code from LamdaMOO, Author Unknown

---

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