Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 7 additions & 11 deletions KLR/Compile.lean
Original file line number Diff line number Diff line change
Expand Up @@ -28,25 +28,21 @@ open Lean (FromJson ToJson)
open Core (LncKernel SharedConstantFile)
open Pass (CompileResult)

private partial def uniqueName (dst : String) (base : String) (suffix : Nat := 0) : IO String := do
let candidate := s!"{base}_{suffix}"
let fName := s!"{dst}/{candidate}.npy"
if ← FilePath.pathExists (FilePath.mk fName) then
uniqueName dst base (suffix + 1)
else
return candidate

private def sharedConstant
(outfolder : String)
(c : String × TensorLib.Tensor)
: IO SharedConstantFile := do
let (name, tensor) := c
let dst := s!"{outfolder}/shared_constants"
IO.FS.createDirAll dst
let uName ← uniqueName dst name
let fName := s!"{dst}/{uName}.npy"

let data := tensor.toNpy
data.save! (System.FilePath.mk fName)
let hashInput := s!"{data.header.descr.toNpyString}:{data.header.shape.val}".toUTF8 ++ data.data
let hash := Util.SHA256.byteArrayToHashString (Util.SHA256.hash hashInput)
let (_, tmpPath) ← IO.FS.createTempFile
data.save! tmpPath
let fName := s!"{dst}/{hash}.npy"
IO.FS.rename tmpPath.toString fName
return ⟨name, fName⟩

structure DebugInfo where
Expand Down
Loading