{-|
Module      : Gargantext.Text.Parsers.RIS
Description : 
Copyright   : (c) CNRS, 2017-Present
License     : AGPL + CECILL v3
Maintainer  : team@gargantext.org
Stability   : experimental
Portability : POSIX


RIS is a standardized tag format developed by Research Information
Systems, Incorporated (the format name refers to the company) to enable
citation programs to exchange data.[More](https://en.wikipedia.org/wiki/RIS_(file_format))

-}

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module Gargantext.Text.Parsers.RIS (risParser, field, notice) where

import Control.Applicative
import Data.Attoparsec.ByteString (Parser, try, string, takeTill, take, manyTill, many1, endOfInput)
import Data.Attoparsec.ByteString.Char8 (anyChar, isEndOfLine)
import Data.ByteString (ByteString, concat)
import Data.ByteString.Char8 (pack)
import Data.Monoid ((<>))
import Gargantext.Prelude hiding (takeWhile, take, concat, readFile, lines, concat)
import qualified Data.List as DL

-------------------------------------------------------------

data Lines = OneLine | MultiLine

risParser :: Parser [[(ByteString, ByteString)]]
risParser = do
    --_  <- manyTill anyChar (string $ pack "START")
    ns <- many1 notice  -- <*  (string $ pack "\nXXX")
    pure ns

notice :: Parser [(ByteString, ByteString)]
notice = start *> many field <* end
    where
      start :: Parser ByteString
      start = "\nTY" *> takeTill isEndOfLine

      end :: Parser ByteString
      end =  "\nER\n" *> takeTill isEndOfLine
      --end = manyTill anyChar (string $ pack "\nER\n")


fields :: Parser [(ByteString, ByteString)]
fields = many field

field :: Parser (ByteString, ByteString)
field = do
    --name  <- "\n" *> take 2 <* takeTill isEndOfLine -- "  -"
    name  <- "\n" *> take 2 <* "  - "
    txt   <- takeTill isEndOfLine -- "  -"
    --name  <- take 2
    --txt   <- takeTill isEndOfLine
    {-
    txts  <- try lines
    let txts' = case DL.length txts > 0 of
            True  -> txts
            False -> []
    pure (translate name, concat ([txt] <> txts'))
    --}
    pure (translate name, txt)


lines :: Parser [ByteString]
lines = many line
    where
        line :: Parser ByteString
        line = "\n  " *> takeTill isEndOfLine

translate :: ByteString -> ByteString
translate champs
            | champs == "AU" = "authors"
            | champs == "TI" = "title"
            | champs == "JF" = "source"
            | champs == "LA" = "language"
            | champs == "DI" = "doi"
            | champs == "UR" = "url"
            | champs == "DA" = "publication_date"
            | champs == "N2" = "abstract"
            | otherwise  = champs
-------------------------------------------------------------