nordland 2001/09/26 17:26:51 PDT Modified files: src connect.h input.c machdep.c prelude.h storage.c Log: Refurbished the hierarchical module name file search algorithm to make it more in line with GHC. The current definition looks as follows: find along nm hugspath | isFilePath nm = [nm] | isModuleId nm = [ d++f++e | f <- files, d <- dirs, e <- exts ] | otherwise = [] where dirs = along : "" : hugspath files = [mod2dir nm, nm] exts = [".hs",".lhs"] isFilePath s = rindex '.' s `elem` exts isModuleId s = all isConid (splitAt '.' s) mod2dir s = map (\c -> if c=='.' then slash else c) s The news is that file names and module names are now disjoint, which makes it easier to determine when we should convert dots to slashes. The price we pay is that file names must now always have an extension that starts with a lowercase letter, currently either ".hs" or ".lhs". I don't know how many programs that depend on the ability to store modules in files without any extension, but any such program will anyhow break with the new scheme. On the other hand, the overall algorithm is much simpler now. Revision Changes Path 1.24 +3 -3 hugs98/src/connect.h 1.29 +5 -7 hugs98/src/input.c 1.29 +64 -81 hugs98/src/machdep.c 1.27 +3 -3 hugs98/src/prelude.h 1.19 +3 -3 hugs98/src/storage.c