{-
  Copyright (c) Meta Platforms, Inc. and affiliates.
  All rights reserved.

  This source code is licensed under the BSD-style license found in the
  LICENSE file in the root directory of this source tree.
-}

{-# LANGUAGE CPP #-}
{-# LANGUAGE ApplicativeDo #-}
module Glean.Indexer.List (
    SomeIndexer(..),
    indexers,
    cmdLineParser,
  ) where

import Data.Foldable
import Options.Applicative

import Util.OptParse

import Glean.Indexer
import qualified Glean.Indexer.Cpp as Cpp
import qualified Glean.Indexer.External as External
import qualified Glean.Indexer.Flow as Flow
import qualified Glean.Indexer.Hack as Hack
#ifdef GLEAN_FACEBOOK
import qualified Glean.Indexer.Buck as Buck
import qualified Glean.Indexer.Fbthrift as Fbthrift
import qualified Glean.Indexer.Python as Python
import qualified Glean.Indexer.Yaml as Yaml
#endif
import qualified Glean.Indexer.Go as Go
import qualified Glean.Indexer.JavaLsif as JavaLsif
import qualified Glean.Indexer.RustLsif as RustLsif
import qualified Glean.Indexer.RustScip as RustScip
import qualified Glean.Indexer.Swift as Swift
import qualified Glean.Indexer.Typescript as Typescript
import qualified Glean.Indexer.LSIF as LSIF
import qualified Glean.Indexer.SCIP as SCIP
import qualified Glean.Indexer.Haskell as Hs
import qualified Glean.Indexer.PythonScip as PythonScip
import qualified Glean.Indexer.DotnetScip as DotnetScip

data SomeIndexer = forall opts . SomeIndexer (Indexer opts)

indexers :: [SomeIndexer]
indexers =
  [ SomeIndexer Cpp.indexer
  , SomeIndexer External.externalIndexer
  , SomeIndexer Flow.indexer
  , SomeIndexer Hack.indexer
#ifdef GLEAN_FACEBOOK
  , SomeIndexer Buck.indexer
  , SomeIndexer Fbthrift.indexer
  , SomeIndexer Python.indexer
  , SomeIndexer Yaml.indexer
#endif
  , SomeIndexer Hs.indexer
  , SomeIndexer Go.indexer
  , SomeIndexer JavaLsif.indexer
  , SomeIndexer LSIF.indexer
  , SomeIndexer SCIP.indexer
  , SomeIndexer RustLsif.indexer
  , SomeIndexer RustScip.indexer
  , SomeIndexer Swift.indexer
  , SomeIndexer Typescript.indexer
  , SomeIndexer PythonScip.indexer
  , SomeIndexer DotnetScip.indexer
  ]

cmdLineParser :: Parser RunIndexer
cmdLineParser = asum langs
  where
  langs = flip map indexers $ \(SomeIndexer indexer) ->
    let desc = indexerDescription indexer in
    commandParser (indexerShortName indexer) (progDesc desc) $ do
      opts <- indexerOptParser indexer
      return (indexerRun indexer opts)