Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Merge pull request #237 from avsm/master

install more man subdirs
  • Loading branch information...
commit 8a18c28e556c00911a57d7cdb8a788e7efa495fa 2 parents ba9cbff + 1e49371
Thomas Gazagnaire authored October 11, 2012
3  src/opamClient.ml
@@ -1004,6 +1004,9 @@ let init_ocaml t quiet alias compiler =
1004 1004
   OpamFilename.mkdir (OpamPath.Alias.man_dir t.root alias);
1005 1005
   OpamFilename.mkdir (OpamPath.Alias.install_dir t.root alias);
1006 1006
   OpamFilename.mkdir (OpamPath.Alias.config_dir t.root alias);
  1007
+  List.iter (fun num ->
  1008
+    OpamFilename.mkdir (OpamPath.Alias.man_dir ~num t.root alias)
  1009
+  ) ["1";"1M";"2";"3";"4";"5";"6";"7";"9"];
1007 1010
 
1008 1011
   let comp = OpamFile.Comp.read comp_f in
1009 1012
   begin try
5  src/opamPath.ml
@@ -62,7 +62,10 @@ module Alias = struct
62 62
 
63 63
   let doc_dir t a = root t a / "doc"
64 64
 
65  
-  let man_dir t a = root t a / "man"
  65
+  let man_dir ?num t a = 
  66
+    match num with 
  67
+    | None -> root t a / "man"
  68
+    | Some n -> root t a / "man" / ("man" ^ n)
66 69
 
67 70
   let doc t a n = doc_dir t a / OpamPackage.Name.to_string n
68 71
 
5  src/opamPath.mli
@@ -87,8 +87,9 @@ module Alias: sig
87 87
   (** Documentation path: {i $opam/$OVERSION/doc/} *)
88 88
   val doc_dir: t -> alias -> dirname
89 89
 
90  
-  (** Man pages path: {i $opam/$OVERSION/man/} *)
91  
-  val man_dir: t -> alias -> dirname
  90
+  (** Man pages path: {i $opam/$OVERSION/man/}. The optional
  91
+      [num] argument will add a {i manN } suffix if specified *)
  92
+  val man_dir: ?num:string -> t -> alias -> dirname
92 93
 
93 94
   (** Installed binaries: {i $opam/$OVERSION/bin} *)
94 95
   val bin: t -> alias -> dirname

0 notes on commit 8a18c28

Please sign in to comment.
Something went wrong with that request. Please try again.