Common Build Tools

This file defines general utilities that abstract common build functionality and provides some common concrete build functions.

General Utilities

@[implicit_reducible]

instance Lake.instMonadWorkspaceJobM : MonadWorkspace JobM

def Lake.platformTrace : BuildTrace

Build trace for the host platform. If an artifact includes this trace, it is platform-dependent and will be rebuilt on different host platforms.

@[inline]

def Lake.addPlatformTrace : JobM PUnit

Mixes the platform into the current job's trace. If an artifact includes this trace, it is platform-dependent and will be rebuilt on different host platforms.

@[inline]

def Lake.addLeanTrace : JobM PUnit

Mixes Lean's trace into the current job's trace.

@[inline]

def Lake.addPureTrace {α : Type u_1} [ToString α] [ComputeHash α Id] (a : α) (caption : String := "pure") : JobM PUnit

Mixes the trace of a pure value into the current job's trace.

structure Lake.BuildMetadata : Type

The build trace file format, which stores information about a (successful) build.

• depHash : Hash
• inputs : Array (String × Lean.Json)
• outputs? : Option Lean.Json
• log : Log
• synthetic : Bool

  A trace file that was created from fetching an artifact from the cache.

def Lake.BuildMetadata.toJson (self : BuildMetadata) : Lean.Json

@[implicit_reducible]

instance Lake.instToJsonBuildMetadata : Lean.ToJson BuildMetadata

def Lake.BuildMetadata.ofStub (hash : Hash) : BuildMetadata

Construct build metadata from a trace stub. That is, the very old version of the trace file format that just contained a hash.

def Lake.BuildMetadata.fromJsonObject? (obj : JsonObject) : Except String BuildMetadata

def Lake.BuildMetadata.fromJson? (json : Lean.Json) : Except String BuildMetadata

@[implicit_reducible]

instance Lake.instFromJsonBuildMetadata : Lean.FromJson BuildMetadata

def Lake.BuildMetadata.parse (contents : String) : Except String BuildMetadata

Parse build metadata from a trace file's contents.

def Lake.BuildMetadata.ofFetch (inputHash : Hash) (outputs : Lean.Json) : BuildMetadata

Construct build metadata from a cached input-to-output mapping.

@[inline]

def Lake.BuildMetadata.ofBuild {α : Type u_1} [Lean.ToJson α] (depTrace : BuildTrace) (outputs : α) (log : Log) : BuildMetadata

Construct trace file contents from a build's trace, outputs, and log.

inductive Lake.SavedTrace : Type

The state of the trace file data saved on the file system.

• missing : SavedTrace
• invalid : SavedTrace
• ok (data : BuildMetadata) : SavedTrace

def Lake.readTraceFile (path : System.FilePath) : LogIO SavedTrace

Try to read data from a trace file. Logs if the read failed or the contents where invalid.

def Lake.BuildMetadata.writeFile (path : System.FilePath) (data : BuildMetadata) : IO Unit

Write a trace file containing the metadata.

@[inline]

def Lake.writeFetchTrace (path : System.FilePath) (inputHash : Hash) (outputs : Lean.Json) : IO Unit

Write a trace file containing metadata on an artifact fetched from a cache.

@[inline]

def Lake.writeBuildTrace {α : Type u_1} [Lean.ToJson α] (path : System.FilePath) (depTrace : BuildTrace) (outputs : α) (log : Log) : IO Unit

Write a trace file containing metadata about a build.

inductive Lake.OutputStatus : Type

Indicator of whether a build's output(s) are up-to-date.

• outOfDate : OutputStatus

  Needs rebuild

• mtimeUpToDate : OutputStatus

  Up-to-date by modification time

• hashUpToDate : OutputStatus

  Up-to-date by hash

@[implicit_reducible]

instance Lake.instDecidableEqOutputStatus : DecidableEq OutputStatus

@[inline]

def Lake.OutputStatus.ofHashCheck (upToDate : Bool) : OutputStatus

Constructs an OutputStatus from a hash check.

@[inline]

def Lake.OutputStatus.ofMTimeCheck (upToDate : Bool) : OutputStatus

Constructs an OutputStatus from a modification time check.

@[inline]

def Lake.OutputStatus.isUpToDate (status : OutputStatus) : Bool

Whether the build should be considered up-to-date for rebuilding.

@[inline]

def Lake.OutputStatus.isCacheable (status : OutputStatus) : Bool

Whether the build or rebuild should be considered up-to-date for caching.

@[inline]

def Lake.checkHashUpToDate {ι : Type u_1} [CheckExists ι] [GetMTime ι] (info : ι) (depTrace : BuildTrace) (depHash : Option Hash) (oldTrace : MTime := depTrace.mtime) : JobM Bool

Checks if the info is up-to-date by comparing depTrace with depHash. If old mode is enabled (e.g., --old), uses the oldTrace modification time as the point of comparison instead.

@[specialize #[]]

def Lake.SavedTrace.replayIfUpToDate' {ι : Type u_1} [CheckExists ι] [GetMTime ι] (info : ι) (depTrace : BuildTrace) (savedTrace : SavedTrace) (oldTrace : MTime := depTrace.mtime) : JobM OutputStatus

Checks whether info is up-to-date with the trace. If so, replays the log of the trace if available.

@[inline]

def Lake.SavedTrace.replayIfUpToDate {ι : Type u_1} [CheckExists ι] [GetMTime ι] (info : ι) (depTrace : BuildTrace) (savedTrace : SavedTrace) (oldTrace : MTime := depTrace.mtime) : JobM Bool

Checks whether info is up-to-date with the trace. If so, replays the log of the trace if available.

def Lake.SavedTrace.replayOrFetchIfUpToDate (inputHash : Hash) (self : SavedTrace) : JobM Bool

Returns if the saved trace exists and its hash matches inputHash.

If up-to-date, replays the saved log from the trace and sets the current build action to replay. Otherwise, if the log is empty and trace is synthetic, or if the trace is not up-to-date, the build action will be set ot fetch.

class Lake.ToOutputJson (α : Type u) : Type u

For internal use only.

• toOutputJson (arts : α) : Lean.Json

@[implicit_reducible]

instance Lake.instToOutputJsonPUnit : ToOutputJson PUnit

@[implicit_reducible]

instance Lake.instToOutputJsonArtifact : ToOutputJson Artifact

@[specialize #[]]

def Lake.buildAction {α : Type} [ToOutputJson α] (depTrace : BuildTrace) (traceFile : System.FilePath) (build : JobM α) (action : JobAction := JobAction.build) : JobM α

Runs build as a build action of kind action.

The build's input trace (depTrace), JSON description of the result of build, and log are saved to traceFile, if the build completes without a fatal error (i.e., it does not throw).

@[inline]

def Lake.buildUnlessUpToDate? {ι : Type u_1} [CheckExists ι] [GetMTime ι] (info : ι) (depTrace : BuildTrace) (traceFile : System.FilePath) (build : JobM PUnit) (action : JobAction := JobAction.build) (oldTrace : MTime := depTrace.mtime) : JobM Bool

Checks whether info is up-to-date, and runs build to recreate it if not. If rebuilt, saves the new depTrace and build log to traceFile. Returns whether info was already up-to-date.

Up-to-date Checking

If traceFile exists, checks that the hash in depTrace matches that of the traceFile. If not, and old mode is enabled (e.g., --old), falls back to the oldTrace modification time as the point of comparison. If up-to-date, replay the build log stored in traceFile.

If traceFile does not exist, checks that info has a newer modification time then depTrace / oldTrace. No log will be replayed.

@[inline]

def Lake.buildUnlessUpToDate {ι : Type u_1} [CheckExists ι] [GetMTime ι] (info : ι) (depTrace : BuildTrace) (traceFile : System.FilePath) (build : JobM PUnit) (action : JobAction := JobAction.build) (oldTrace : MTime := depTrace.mtime) : JobM PUnit

Checks whether info is up-to-date, and runs build to recreate it if not. If rebuilt, saves the new depTrace and build log to traceFile.

See buildUnlessUpToDate? for more details on how Lake determines whether info is up-to-date.

def Lake.writeFileHash (file : System.FilePath) (hash : Hash) : IO Unit

Saves the hash of a file and to its .hash file.

def Lake.cacheFileHash (file : System.FilePath) (text : Bool := false) : IO Unit

Computes the hash of a file and saves it to a .hash file.

If text := true, file is hashed as a text file rather than a binary file.

def Lake.clearFileHash (file : System.FilePath) : IO Unit

Remove the cached hash of a file (its .hash file) if it exists.

def Lake.fetchFileHash (file : System.FilePath) (text : Bool := false) : JobM Hash

Fetches the hash of a file that may already be cached in a .hash file. If hash files are not trusted (e.g., with --rehash) or the .hash file does not exist, it will be created with a newly computed hash.

If text := true, file is hashed as a text file rather than a binary file.

def Lake.fetchFileTrace (file : System.FilePath) (text : Bool := false) : JobM BuildTrace

Fetches the trace of a file that may have already have its hash cached in a .hash file. If no such .hash file exists, recomputes and creates it.

If text := true, file is hashed as text file rather than a binary file.

def Lake.buildFileUnlessUpToDate' (file : System.FilePath) (build : JobM PUnit) (text : Bool := false) : JobM Unit

Builds file using build unless it already exists and the current job's trace matches the trace stored in the .trace file. If built, saves the new trace and caches file's hash in a .hash file. Otherwise, tries to fetch the hash from the .hash file using fetchFileTrace. Build logs (if any) are saved to the trace file and replayed from there if the build is skipped.

For example, given file := "foo.c", compares getTrace with that in foo.c.trace. If built, the hash is cached in foo.c.hash and the new trace is saved to foo.c.trace (including the build log).

If text := true, file is hashed as a text file rather than a binary file.

def Lake.Cache.saveArtifact (cache : Cache) (file : System.FilePath) (ext : String := "art") (text exe useLocalFile : Bool := false) : IO Artifact

Copies file to the Lake cache with the file extension ext, and saves its hash in its .hash file.

Additional Options:

• text: the contents of file are hashed as text rather than as a binary blob.
• exe: the cached file will be executable.
• useLocalFile: the resulting artifact will use file's path instead of path to the file in the cache.

@[inline]

def Lake.cacheArtifact {m : Type → Type u_1} [MonadWorkspace m] [MonadLiftT IO m] [Monad m] (file : System.FilePath) (ext : String := "art") (text exe useLocalFile : Bool := false) : m Artifact

Copies file to the Lake cache with the file extension ext, and saves its hash in its .hash file.

Additional Options:

• text: the contents of file are hashed as text rather than as a binary blob.
• exe: the cached file will be executable.
• useLocalFile: the resulting artifact will use file's path instead of path to the file in the cache.

class Lake.ResolveOutputs (m : Type v → Type w) (α : Type v) : Type w

For internal use only.

• resolveOutputs? (outputs : Lean.Json) : m (Except String α)

  For internal use only.

@[specialize #[]]

def Lake.getArtifacts? {α : Type} [ResolveOutputs JobM α] (inputHash : Hash) (savedTrace : SavedTrace) (cache : Cache) (pkg : Package) : JobM (Option α)

Retrieve artifacts from the Lake cache using the outputs stored in either the saved trace file or in the cached input-to-content mapping.

For internal use only.

def Lake.computeArtifact (path : System.FilePath) (ext : String := "art") (text : Bool := false) : JobM Artifact

Construct an artifact from a path outside the Lake artifact cache.

If text := true, file is hashed as a text file rather than a binary file.

def Lake.restoreArtifact (file : System.FilePath) (art : Artifact) (exe : Bool := false) : LogIO Artifact

Makes an artifact from the cache, art, available at the local path, file and returns an altered artifact using file as the preferred path.

If file already exists, it is used. Otherwise, the function first attempts to create file as hard link to the artifact. If this fails (e.g., because the artifact and path are on differets drives and/or file systems), falls back to copying the artifact to the new path.

For internal use.

def Lake.buildArtifactUnlessUpToDate (file : System.FilePath) (build : JobM PUnit) (text : Bool := false) (ext : String := "art") (restore exe : Bool := false) : JobM Artifact

Uses the current job's trace to search Lake's local artifact cache for an artifact with a matching extension (ext) and content hash. If one is found, use it. Otherwise, builds file using build and saves it to the cache. If Lake's local artifact cache is not enabled, falls back to buildFileUnlessUpToDate'.

If text := true, file is hashed as a text file rather than a binary file.

If restore := true, if file is missing but the artifact is in the cache, it will be copied to the file. This function will also return file rather than the path to the cached artifact.

@[inline]

def Lake.buildFileAfterDep {α : Type u_1} (file : System.FilePath) (dep : Job α) (build : α → JobM PUnit) (extraDepTrace : JobM BuildTrace := pure BuildTrace.nil) (text : Bool := false) : SpawnM (Job System.FilePath)

Build file using build after dep completes if the dependency's trace (and/or extraDepTrace) has changed.

If text := true, file is handled as a text file rather than a binary file.

Common Builds

def Lake.inputBinFile (path : System.FilePath) : SpawnM (Job System.FilePath)

A build job for a binary file that is expected to already exist (e.g., a data blob).

Any byte difference in a binary file will trigger a rebuild of its dependents.

def Lake.inputTextFile (path : System.FilePath) : SpawnM (Job System.FilePath)

A build job for a text file that is expected to already exist (e.g., a source file).

Text file traces have normalized line endings to avoid unnecessary rebuilds across platforms.

@[inline]

def Lake.inputFile (path : System.FilePath) (text : Bool) : SpawnM (Job System.FilePath)

A build job for a file that is expected to already exist (e.g., a data blob or source file).

If text := true, the file is handled as a text file rather than a binary file. Any byte difference in a binary file will trigger a rebuild of its dependents. In contrast, text file traces have normalized line endings to avoid unnecessary rebuilds across platforms.

def Lake.inputDir (path : System.FilePath) (text : Bool) (filter : System.FilePath → Bool) : SpawnM (Job (Array System.FilePath))

A build job for a directory of files that are expected to already exist. Returns an array of the files in the directory that match the filter.

If text := true, the files are handled as text files rather than a binary files. Any byte difference in a binary file will trigger a rebuild of its dependents. In contrast, text file traces have normalized line endings to avoid unnecessary rebuilds across platforms.

@[inline]

def Lake.buildO (oFile : System.FilePath) (srcJob : Job System.FilePath) (weakArgs traceArgs : Array String := #[]) (compiler : System.FilePath := { toString := "cc" }) (extraDepTrace : JobM BuildTrace := pure BuildTrace.nil) : SpawnM (Job System.FilePath)

Build an object file from a source file job using compiler. The invocation is:

compiler -c -o oFile srcFile weakArgs... traceArgs...

The traceArgs are included as part of the dependency trace hash, whereas the weakArgs are not. Thus, system-dependent options like -I or -L should be weakArgs to avoid build artifact incompatibility between systems (i.e., a change in the file path should not cause a rebuild).

You can add more components to the trace via extraDepTrace, which will be computed in the resulting Job before building.

def Lake.buildLeanO (oFile : System.FilePath) (srcJob : Job System.FilePath) (weakArgs traceArgs : Array String := #[]) (leanIncludeDir? : Option System.FilePath := none) : SpawnM (Job System.FilePath)

Build an object file from a source fie job (i.e, a lean -c output) using the Lean toolchain's C compiler.

def Lake.buildStaticLib (libFile : System.FilePath) (oFileJobs : Array (Job System.FilePath)) (thin : Bool := false) : SpawnM (Job System.FilePath)

Build a static library from object file jobs using the Lean toolchain's ar.

def Lake.buildSharedLib (libName : String) (libFile : System.FilePath) (linkObjs : Array (Job System.FilePath)) (linkLibs : Array (Job Dynlib)) (weakArgs traceArgs : Array String := #[]) (linker : String := "c++") (extraDepTrace : JobM BuildTrace := pure BuildTrace.nil) (plugin : Bool := false) (linkDeps : Bool := System.Platform.isWindows) : SpawnM (Job Dynlib)

Build a shared library by linking the results of linkJobs using the Lean toolchain's C compiler.

def Lake.buildLeanSharedLib (libName : String) (libFile : System.FilePath) (linkObjs : Array (Job System.FilePath)) (linkLibs : Array (Job Dynlib)) (weakArgs traceArgs : Array String := #[]) (plugin : Bool := false) (linkDeps : Bool := System.Platform.isWindows) : SpawnM (Job Dynlib)

Build a shared library by linking the results of linkJobs using linker.

def Lake.buildLeanExe (exeFile : System.FilePath) (linkObjs : Array (Job System.FilePath)) (linkLibs : Array (Job Dynlib)) (weakArgs traceArgs : Array String := #[]) (sharedLean : Bool := false) : SpawnM (Job System.FilePath)

Build an executable by linking the results of linkJobs using the Lean toolchain's linker.