← Back to branch summary

~ubuntu-branches/ubuntu/trusty/laby/trusty-proposed

« back to all changes in this revision

Viewing changes to src/version.ml

  • Committer: Bazaar Package Importer
  • Author(s): Mehdi Dogguy
  • Date: 2009-08-24 11:45:11 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090824114511-j971jdw1fjjxv9py
Tags: 0.5.3-1
* New Upstream Version
* Remove DMUA, not needed anymore
* Use my Debian address for the maintainer field

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/version.ml
36
36
    [F.s "ocaml-lablgtksourceview"; F.s Config.build_lablgtksourceview];
37
37
  ]
38
38
 
 
39
let run () =
 
40
  section "run" [
 
41
    [F.s "os                     "; F.s Sys.os_type];
 
42
    [F.s "ocaml                  "; F.s Sys.ocaml_version];
 
43
  ]
 
44
 
39
45
let disp l () =
40
46
  F.l "versions" (F.i (List.map (fun f -> f ()) l))
41
47
 
45
51
    | None -> Opt.Excl (fun () -> version ())
46
52
    | Some s ->
47
53
        begin match s with
48
 
        | "f" | "full" -> Opt.Excl (disp [id; protocols; build])
 
54
        | "f" | "full" -> Opt.Excl (disp [id; protocols; build; run])
49
55
        | "i" | "id" -> Opt.Excl id
50
56
        | "p" | "protocols" -> Opt.Excl protocols
51
57
        | "b" | "build" -> Opt.Excl build
 
58
        | "r" | "run" -> Opt.Excl run
52
59
        | "s" | "status" -> Opt.Excl status
53
60
        | _ ->
54
61
            let argl =
55
 
              [ "full"; "id"; "protocols"; "build"; "status" ]
 
62
              [ "full"; "id"; "protocols"; "build"; "run"; "status" ]
56
63
            in
57
64
            Opt.Invalid (
58
65
              F.x "this option accepts the following arguments: <list>" [