src/Search.hs

   1 {-
   2     Search.hs
   3
   4     Copyright 2013 Louis-Guillaume Gagnon <louis.guillaume.gagnon@gmail.com>
   5
   6     This program is free software: you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation, either version 3 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18 -}
  19
  20 module Search (
  21     search,
  22     usageSearch
  23 ) where
  24
  25 import Tools.Constants
  26 import Tools.Operation (isHelp)
  27
  28
  29 search :: [String] -> IO ()
  30 search [] = error $ "search: no arguments specified ('" ++ progName ++ "\
  31                     \ search help' for help)"
  32 search argv = if isHelp $ head argv
  33     then do putStrLn usageSearch
  34     else do putStrLn "this has not been implemented yet"
  35
  36 usageSearch :: String
  37 usageSearch = "usage: " ++ progName ++ " search <filters>\n\
  38               \or:\n\
  39               \       " ++ progName ++ " search [id]\n\
  40               \filters:\n\
  41               \    -f <file>\n\
  42               \    -t <title>\n\
  43               \    -a <author1 [author2] ...>\n\
  44               \    -k <keyword1 [keyword2] ...>\n\
  45               \    -j <journal>\n\
  46               \    -v <volume>\n\
  47               \    -i <issue>\n\
  48               \    -d <date-from> <date-to>\n\
  49               \    -p <page-from> <page-to>\n\
  50               \    -b : bookmarks"