
  PROCEDURE [XREF] clp$translate_function (input_line_ptr: ^clt$command_line;
        output_line_ptr: ^clt$command_line;
        function_begin_index: clt$token_array_index;
    VAR function_end_index : clt$token_array_index;
        array_ptr: ^clt$format_token_array;
        max_array_index: clt$token_array_index;
    VAR output_line_size: clt$command_line_size;
    VAR name_only_translated: boolean;
    VAR name_to_flag: ost$name;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$command_line
*copyc clt$command_line_size
*copyc clt$format_token_type
*copyc ost$name
*copyc ost$status
?? POP ??
