Source file `commandProject.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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
(**************************************************************************)
(*                                                                        *)
(*    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 Types
open Ezcmd.V2
open EZCMD.TYPES
open Update
open Ez_file.V1
open EzFile.OP

let cmd_name = "project"

(* lookup for "drom.toml" and update it *)
let action ~skeleton ~edit ~args =
  begin
    match Project.lookup () with
    | None ->
        Error.raise
          "No project found. Maybe you need to create a project first with 'drom \
           new PROJECT'"
    | Some (dir, _) ->
        if edit then
          let editor = Misc.editor () in
          match Printf.kprintf Sys.command "%s '%s'" editor ( dir // "drom.toml" ) with
          | 0 -> ()
          | _ -> Error.raise "Editing command returned a non-zero status"
  end;

  let project = Project.find () in
  match project with
  | None -> assert false
  | Some (p, _) ->
      let _sk = Skeleton.lookup_project skeleton in
      let args =
        { args with
          arg_upgrade =
            ( if p.skeleton <> skeleton then begin
                  p.skeleton <- skeleton;
                  true
                end else
                args.arg_upgrade )
        }
      in
      Update.update_files ~twice:false ~args ~create:false ~git:true p

let cmd =
  let skeleton = ref None in
  let args, specs = Update.update_args () in
  let edit = ref false in
  EZCMD.sub cmd_name
    (fun () ->
       action ~skeleton:!skeleton ~edit:!edit ~args)
    ~args: (
      specs
      @ [ ( [ "library" ],
            Arg.Unit
              (fun () ->
                 skeleton := Some "library";
                 args.arg_upgrade <- true),
            EZCMD.info "Project contains only a library. Equivalent to $(b,--skeleton library)" );
          ( [ "program" ],
            Arg.Unit
              (fun () ->
                 skeleton := Some "program";
                 args.arg_upgrade <- true),
            EZCMD.info "Project contains a program. Equivalent to $(b,--skeleton program). The generated project will be composed of a $(i,library) package and a $(i,driver) package calling the $(b,Main.main) of the library." );
          ( [ "virtual" ],
            Arg.Unit
              (fun () ->
                 skeleton := Some "virtual";
                 args.arg_upgrade <- true),
            EZCMD.info "Package is virtual, i.e. no code. Equivalent to $(b,--skeleton virtual)." );
          ( [ "skeleton" ],
            Arg.String
              (fun s ->
                 skeleton := Some s;
                 args.arg_upgrade <- true),
            EZCMD.info
              ~docv:"SKELETON"
              "Create project using a predefined skeleton or one specified in \
               ~/.config/drom/skeletons/" );
          ( [ "upgrade" ],
            Arg.Unit (fun () -> args.arg_upgrade <- true),
            EZCMD.info "Force upgrade of the drom.toml file from the skeleton" );
          ( [ "edit" ],
            Arg.Set edit,
            EZCMD.info "Edit project description" );
        ]
    )
    ~doc: "Update an existing project"
    ~man:
      [
        `S "DESCRIPTION";
        `Blocks [
          `P "This command is used to regenerate the files of a project after updating its description.";
          `P "With argument $(b,--upgrade), it can also be used to reformat the toml files, from their skeletons.";
        ];
      ]