HacWrite - 34 Humake -- a distributed and parallel make tool for Haskell

34 Humake -- a distributed and parallel make tool for Haskell

Figure 92

Figure 92. The user interface of Humake.

In the current version, the user interface shows

a module list where the status of each module is indicated by a colored lamp. The color is green if the module is up-to-date, yellow if it is being compiled or waiting to be compiled (because it is out of date with respect to its source code or the interface of an imported module), red if compilation of the module failed and blue if the module was taken from a pre-compiled library. A menu allows you to choose from a number of different sorting orders.

a module information window, which shows imported modules, modules that import this module, file location and modification dates.

an update button which makes Humake re-read the module information after it has been changed. Humake can also receive change notifications directly from a text editor. This has been implemented for Emacs.

a list showing which modules are currently being compiled and how many modules are currently waiting to be compiled.

34.1 Implementation

The structure of the implementation is sketched in Figure 93. Most of the work is handled by the fudget dependencyF. It traverses the modules to extract the module-dependency graph and builds a representation of it. It also maintains a data structure representing the status of the compilation process. This structure is chosen so that when a compilation completes, or a module is updated, a new compilation can be started as quickly as possible.

The source is about 1200 lines long.

main = fudlogue $ shellF "Humake" humakeF

humakeF =
  loopLeftF ((moduleInfoF>+<parallelCompileF) >==< dependencyF)
    >==< editorInterfaceF


--- GUI fudgets:

statusDisplayF = ... --the bottom part of the window

moduleInfoF = ... -- the module list, module info and the update buttons


--- Non-GUI fudgets:

parallelCompileF =
    filterRightSP >^^=< (statusDisplayF>+<idF) >==<
    loopThroughRightF (absF ctrlSP) (parServerF hosts compileF)
  where
    ctrlSP = ...

parServerF :: [id] -> (id->F req resp) -> F req resp
parServerF ids serverF = ... -- essentially as in Figure 88

compileF :: String -> F CompilerReq CompilerResp
compileF host = ... -- a compilation server

editorInterfaceF :: F a String
editorInterfaceF = ... -- outputs the name of a file when it is saved

Figure 93. Implementation of Humake.