routine file_get_translator (
    file: file_t;
    RPT
    out translator: data_t, dealloc);

Return the stored permanent translator for this file.