src/Modify.hs

   1 {-
   2     Modify.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 Modify (
  21     modify
  22 ) where
  23
  24 import Data.Char (isDigit)
  25
  26 import Tools.Constants
  27 import Tools.Operation (isHelp)
  28
  29 modify :: [String] -> IO ()
  30 modify []      = error errTooFew
  31 modify (f:[])  = if isHelp f then putStrLn usageModify else error errTooFew
  32 modify (id:fs) = if or (map (not . isDigit) id)
  33                      then error $ "modify: invalid id: " ++ id
  34                      else return ()
  35
  36 errTooFew :: String
  37 errTooFew = "modify: too few arguments ('" ++ progName ++ " modify help' for help)"
  38
  39 usageModify :: String
  40 usageModify = "usage: " ++ progName ++ " modify <id> <filters>\n\
  41               \filters:\n\
  42               \    -f <new file>\n\
  43               \    -t <new title>\n\
  44               \    -a +<author-add> <author-remove>\n\
  45               \    -k +<keyword-add> <keyword-remove>\n\
  46               \    -j <new journal>\n\
  47               \    -v <new volume>\n\
  48               \    -y <new year>\n\
  49               \    -p <new page-from> <new page-to>\n\
  50               \    -b"