61 lines
2.4 KiB
Text
61 lines
2.4 KiB
Text
/-
|
||
Copyright (c) 2017 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Gabriel Ebner, Sebastian Ullrich, Mac Malone
|
||
-/
|
||
import Lake.Init
|
||
import Lake.Help
|
||
import Lake.BuildBin
|
||
import Lake.LeanConfig
|
||
|
||
namespace Lake
|
||
|
||
def getCwdPkg (args : List String) : IO Package := do
|
||
let pkg ← Package.fromDir "." args
|
||
if pkg.leanVersion ≠ leanVersionString then
|
||
IO.eprintln $ "\nWARNING: Lean version mismatch: installed version is " ++
|
||
leanVersionString ++ ", but package requires " ++ pkg.leanVersion ++ "\n"
|
||
return pkg
|
||
|
||
def Package.run (script : String) (args : List String) (self : Package) : IO PUnit :=
|
||
if let some script := self.scripts.find? script then
|
||
script args
|
||
else
|
||
self.scripts.forM fun name _ => IO.println name
|
||
|
||
-- Hack since Lean provides no methods to remove directories
|
||
def removeDirAll (path : System.FilePath) : IO PUnit := do
|
||
Lake.proc {cmd := "rm", args := #["-rf", path.toString]}
|
||
|
||
def Package.clean (self : Package) : IO PUnit :=
|
||
removeDirAll self.buildDir
|
||
|
||
def cli : (cmd : String) → (lakeArgs pkgArgs : List String) → IO Unit
|
||
| "new", [name], [] => new name
|
||
| "init", [name], [] => init name
|
||
| "run", [script], args => do (← getCwdPkg []).run script args
|
||
| "configure", [], pkgArgs => do configure (← getCwdPkg pkgArgs)
|
||
| "print-paths", imports, pkgArgs => do printPaths (← getCwdPkg pkgArgs) imports
|
||
| "build", [], pkgArgs => do build (← getCwdPkg pkgArgs)
|
||
| "build-lib", [], pkgArgs => do buildLib (← getCwdPkg pkgArgs)
|
||
| "build-bin", [], pkgArgs => do buildBin (← getCwdPkg pkgArgs)
|
||
| "clean", [], pkgArgs => do (← getCwdPkg pkgArgs).clean
|
||
| "help", [cmd], _ => IO.println <| help cmd
|
||
| "self-check", [], _ => verifyLeanVersion
|
||
| _, _, _ => throw <| IO.userError usage
|
||
|
||
private def splitCmdlineArgsCore : List String → List String × List String
|
||
| [] => ([], [])
|
||
| (arg::args) =>
|
||
if arg == "--" then
|
||
([], args)
|
||
else
|
||
let (outerArgs, innerArgs) := splitCmdlineArgsCore args
|
||
(arg::outerArgs, innerArgs)
|
||
|
||
def splitCmdlineArgs : List String → IO (String × List String × List String)
|
||
| [] => throw <| IO.userError usage
|
||
| [cmd] => return (cmd, [], [])
|
||
| (cmd::rest) =>
|
||
let (outerArgs, innerArgs) := splitCmdlineArgsCore rest
|
||
return (cmd, outerArgs, innerArgs)
|