Search.hs

   1 module Search (
   2     search,
   3     usageSearch
   4 ) where
   5
   6 import Util
   7
   8 search :: [String] -> IO ()
   9 search [] = error $ "search: no arguments specified ('" ++ progName ++ "\
  10                     \ search help' for help)"
  11 search argv = if isHelp $ head argv
  12     then do putStrLn usageSearch
  13     else do putStrLn "this has not been implemented yet"
  14
  15 usageSearch :: String
  16 usageSearch = "usage: " ++ progName ++ " search <filters>\n\
  17               \or:\n\
  18               \       " ++ progName ++ " search [id]\n\
  19               \filters:\n\
  20               \    -f <file>\n\
  21               \    -t <title>\n\
  22               \    -a <author1 [author2] ...>\n\
  23               \    -k <keyword1 [keyword2] ...>\n\
  24               \    -j <journal>\n\
  25               \    -v <volume>\n\
  26               \    -i <issue>\n\
  27               \    -d <date-from> <date-to>\n\
  28               \    -p <page-from> <page-to>\n\
  29               \    -b : bookmarks"