gistfile1.hs

import System.Environment
import System.IO
import Control.Monad (when)

matchGlob :: String -> String -> Bool
matchGlob = undefined

main :: IO ()
main = do
  args <- getArgs
  case args of
    [] -> putStrLn "usage: glob <glob-pattern> [file 1] [file 2] ... [file N]"
    [a] -> stdinglob a
    (a:as) -> mapM_ (fileglob a) as

  where
    stdinglob glob = do
      string <- getLine
      when (matchGlob glob string) $ putStrLn string
      stdinglob glob

    fileglob glob fileName = do
      withFile fileName ReadMode $ \fileHandle -> do
        contents <- hGetContents fileHandle
        let matches = filter (matchGlob glob) . words $ contents
        mapM_ (\match -> putStrLn $ fileName ++ ": " ++ match) matches