
  PROCEDURE [INLINE] clp$find_input_block
    (    search_only_current_task: boolean;
     VAR block: ^clt$block);

?? PUSH (LISTEXT := ON) ??

    clp$find_current_block (block);
    WHILE block <> NIL DO
      CASE block^.kind OF
*IF NOT $true(osv$unix)
      = clc$command_proc_block, clc$function_proc_block, clc$input_block,
            clc$when_block =
*ELSE
      = clc$input_block =
*IFEND
        RETURN;
      = clc$task_block =
        IF search_only_current_task OR (NOT block^.synchronous_with_parent)
              THEN
          block := NIL;
          RETURN;
        IFEND;
      ELSE
        ;
      CASEND;
      block := block^.previous_block;
    WHILEND;

  PROCEND clp$find_input_block;

*copyc clt$block
?? POP ??
*copyc clp$find_current_block
