Use topkg-jbuilder as an external package
This commit is contained in:
parent
221baefb81
commit
09b8e04f1c
5
jbuild
5
jbuild
|
@ -1,5 +0,0 @@
|
||||||
(jbuild_version 1)
|
|
||||||
|
|
||||||
(install
|
|
||||||
((section toplevel)
|
|
||||||
(files (topkg-jbuilder))))
|
|
|
@ -1,7 +1,9 @@
|
||||||
#!/usr/bin/env ocaml
|
#use "topfind"
|
||||||
#use "./topkg-jbuilder"
|
#require "topkg-jbuilder"
|
||||||
|
|
||||||
|
open Topkg
|
||||||
|
|
||||||
let () =
|
let () =
|
||||||
Pkg.describe "jbuilder"
|
Topkg_jbuilder.describe ()
|
||||||
~readmes: [ Pkg.std_file "README.org" ]
|
~readmes: [ Pkg.std_file "README.org" ]
|
||||||
~licenses:[ Pkg.std_file "LICENSE.txt" ]
|
~licenses:[ Pkg.std_file "LICENSE.txt" ]
|
||||||
|
|
|
@ -1,57 +0,0 @@
|
||||||
(* -*- tuareg -*- *)
|
|
||||||
#use "topfind"
|
|
||||||
#require "topkg"
|
|
||||||
|
|
||||||
open Topkg
|
|
||||||
|
|
||||||
module Pkg = struct
|
|
||||||
include Pkg
|
|
||||||
|
|
||||||
let build
|
|
||||||
?(cmd=fun c os _files ->
|
|
||||||
let jbuilder = Conf.tool "jbuilder" os in
|
|
||||||
OS.Cmd.run @@ Cmd.(jbuilder % "build" % "-p" % Conf.pkg_name c))
|
|
||||||
?(clean=fun os ~build_dir ->
|
|
||||||
let rm = Conf.tool "rm" os in
|
|
||||||
let find = Conf.tool "find" os in
|
|
||||||
OS.Cmd.run @@ Cmd.(rm % "-rf" % build_dir) >>= fun () ->
|
|
||||||
OS.Cmd.run @@ Cmd.(find % "." % "-name" % ".merlin" % "-delete"))
|
|
||||||
=
|
|
||||||
Pkg.build ~cmd ~clean
|
|
||||||
|
|
||||||
let opam_files () =
|
|
||||||
Sys.readdir "."
|
|
||||||
|> Array.to_list
|
|
||||||
|> List.filter (String.is_suffix ~affix:".opam")
|
|
||||||
|> List.map (Pkg.opam_file ~lint_deps_excluding:None)
|
|
||||||
|
|
||||||
let describe
|
|
||||||
?delegate
|
|
||||||
?readmes
|
|
||||||
?licenses
|
|
||||||
?change_logs
|
|
||||||
?(metas=[])
|
|
||||||
?(opams=opam_files ())
|
|
||||||
?lint_files
|
|
||||||
?lint_custom
|
|
||||||
?distrib
|
|
||||||
?publish
|
|
||||||
?(build=build ())
|
|
||||||
name
|
|
||||||
=
|
|
||||||
describe
|
|
||||||
?delegate
|
|
||||||
?readmes
|
|
||||||
?licenses
|
|
||||||
?change_logs
|
|
||||||
~metas
|
|
||||||
~opams
|
|
||||||
?lint_files
|
|
||||||
?lint_custom
|
|
||||||
?distrib
|
|
||||||
?publish
|
|
||||||
~build
|
|
||||||
name
|
|
||||||
@@ fun c ->
|
|
||||||
Ok [ (*Pkg.test "jbuilder" ~auto:false ~args:Cmd.(empty % "runtest" % "-p" % Conf.pkg_name c)*) ]
|
|
||||||
end
|
|
Loading…
Reference in New Issue