Note:

You are viewing a development version of the library. Goto the latest version.

let pager_cmd =
  try
    Some
      (try
         Sys.getenv "OASIS_PAGER"
       with Not_found ->
         begin
           try
             Sys.getenv "PAGER"
           with Not_found ->
             OASISFileUtil.which ~ctxt:!BaseContext.default "pager"
         end)
  with Not_found ->
    None