Method code for $string.chop()

[Turn on line numbering]

---

arg str, len, @end;

// chops string off end.length() characters before len and appends len
[(end ?= "...")] = end;
if (strlen(str) < len || strlen(str) < strlen(end))
    return str;
anticipate_assignment();
return pad(str, len - strlen(end)) + end;

---

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