| 1678 | } |
| 1679 | |
| 1680 | static RString ShortExpress(RString ex) |
| 1681 | { |
| 1682 | if (ex.GetLength() < 32) |
| 1683 | { |
| 1684 | return ex; |
| 1685 | } |
| 1686 | // try to shorten it in some reasonable way first |
| 1687 | RString shortEx = ex.Substring(0, 29); |
| 1688 | int cp; |
| 1689 | if ((cp = CharRPos(shortEx, ';')) > 22) |
| 1690 | { |
| 1691 | return ex.Substring(0, cp + 1) + RString("..."); |
| 1692 | } |
| 1693 | return ex.Substring(0, 26) + RString("..."); |
| 1694 | } |
| 1695 | |
| 1696 | static RString CatWords(RString cond, RString cond2) |
| 1697 | { |