Such function existed back in Clipper '87, dBase IV, FoxPro and their descendants. Here's a Clipper-compatible implementation in C: https://github.com/vszakats/harbour-core/blob/master/src/rtl...

(Disclaimer: source code author here.)