tricu

An interpreted language for exploring Tree Calculus
Log | Files | Refs | README | LICENSE

sourceBootstrapProgress.tri (1323B)

      1 !import "source.map" !Local
      2 !import "source.build" !Local
      3 !import "source.export-cache" !Local
      4 !import "source.object" !Local
      5 !import "prelude" !Local
      6 !import "io" !Local
      7 root = "__ROOT__"
      8 overlay = "__OVERLAY__"
      9 compiler = "__COMPILER__"
     10 name = "__NAME__"
     11 profile = (pair
     12   (workspace unit : thenIO (putStrLn (append "module-start=" unit))
     13     (sourceBuildReadTri workspace unit))
     14   (pair (cas clean groups : sourceExportCacheCompile cas clean groups compiler)
     15     "source-module.reference.v1"))
     16 main = io (onResult_ (readFile "bootstrap/compiler-source-map.v1")
     17   (problem : putStrLn (append "build-failed=" problem))
     18   (mapBytes : onResult_ (sourceMapStage "." overlay root mapBytes)
     19     (problem : putStrLn (append "build-failed=" problem))
     20     (staged : onResult_ (sourceBuildGraphProfile overlay root compiler name profile)
     21       (problem : putStrLn (append "build-failed=" problem))
     22       (built : onResult_ (sourceObjectStore root "arboricx.source-map-build.v1"
     23           (sourceMapBuildReceipt (fst staged) compiler name built (snd (snd staged))))
     24         (problem : putStrLn (append "build-failed=" problem))
     25         (receipt : thenIO (putStrLn (append "manifest=" (fst built)))
     26           (thenIO (putStrLn (append "module-receipt=" (snd built)))
     27             (putStrLn (append "map-receipt=" receipt))))))))
     28 main