We're trying to script a CAD program, and this is the example for controlling the date in our design slugs, but I don't even know what language it is to know what to do with it.
! LIBEDATE
def &d$ &ret$
set &d$ = rstr(`/`,` `,#d$);
set &ret$ = word(&d$,2),`/`,word(&d$,1),`/`,subs(word(&d$,3), -2, 2)
I thought it might be Tcl, but I don't any more... sorry (and thanks Johannes).
What CAD is it? Almost all the ancient CADs have their own (typically weird and ill-designed) scripting languages. Can it be one of the Tribon products?
Looks like it might be some kind of macro language maybe? Lua or similar.