Prolog predicates to detangle Swift symbols and USRs

swift_demangle.pl

swift_demangle(Symbol, Name) :-
    Command = ['swift-demangle', '-compact', Symbol],
    setup_call_cleanup(
        process_create(path(xcrun), Command, [stdout(pipe(Out))]),
        read_string(Out, "\n", "", _, Name),
        close(Out)
    ).

usr_symbol(USR, Symbol) :-
    (
        sub_string(USR, 0, Offset, _, "s:e:s:"), !;
        sub_string(USR, 0, Offset, _, "s:e:c:"), !;
        sub_string(USR, 0, Offset, _, "s:")
    ),
    sub_string(USR, Offset, _, 0, Suffix),
    string_concat("$S", Suffix, Symbol).