package opam_bin_lib

  1. Overview
  2. Docs
package opam_bin_lib
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file commandInfo.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(**************************************************************************)
(*                                                                        *)
(*    Copyright 2020 OCamlPro & Origin Labs                               *)
(*                                                                        *)
(*  All rights reserved. This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1, with the special       *)
(*  exception on linking described in the file LICENSE.                   *)
(*                                                                        *)
(**************************************************************************)

open Ezcmd.TYPES

let cmd_name = "info"

let action tail =
  Printf.eprintf "Info on binary packages:\n%!";
  if tail then begin
    if not ( Sys.file_exists Globals.opambin_info ) then
      Misc.call ~nvo:None [| "touch" ; Globals.opambin_info |] ;
    Misc.call ~nvo:None [| "tail"; "-f" ; Globals.opambin_info |]
  end else
  if Sys.file_exists Globals.opambin_info then
    Misc.call ~nvo:None [| "cat" ; Globals.opambin_info |]

let cmd =
  let tail = ref false in
  {
    cmd_name ;
    cmd_action = (fun () -> action !tail) ;
    cmd_args = [
      [ "tail" ], Arg.Set tail,
      Ezcmd.info "Use tail -f to watch";

    ];
    cmd_man = [];
    cmd_doc = "Display information on binary packages";
  }