Common.hs

module Kit.Xcode.Common where
  import Data.List
  import System.FilePath.Posix
  
  import Text.PList

  
  type UUID = String
  
  data FileType = Header | Source | Archive | Unknown
  
  fileType :: String -> FileType
  fileType x | ".h" `isSuffixOf` x = Header
  fileType x | ".m" `isSuffixOf` x = Source
  fileType x | ".mm" `isSuffixOf` x = Source
  fileType x | ".c" `isSuffixOf` x = Source
  fileType x | ".a" `isSuffixOf` x = Archive
  fileType _ = Unknown

  fileTypeBit :: FileType -> String
  fileTypeBit Header = "sourcecode.c.h"
  fileTypeBit Source = "sourcecode.c.objc"
  fileTypeBit Unknown = "sourcecode.unknown"
  fileTypeBit Archive = "archive.ar"

  data PBXBuildFile = PBXBuildFile {
    buildFileId :: UUID,
    buildFileReference :: PBXFileReference
  } deriving (Eq, Show)
  
  data PBXFileReference = PBXFileReference {
    fileReferenceId :: UUID,
    fileReferencePath :: String
  } deriving (Eq, Show)
 
  group :: String -> [PListType] -> PListType 
  group name children = obj [
      "isa" ~> val "PBXGroup",
      "name" ~> val name,
      "sourceTree" ~> val "<group>",
      "children" ~> arr children
    ]

  buildFile :: String -> PListType
  buildFile refUUID = obj [ "isa" ~> val "PBXBuildFile", "fileRef" ~> val refUUID ]

  buildFileItem :: PBXBuildFile -> PListObjectItem 
  buildFileItem bf = buildFileId bf ~> buildFile (fileReferenceId . buildFileReference $ bf) 

  fileReferenceItem :: PBXFileReference -> PListObjectItem
  fileReferenceItem fr = fileReferenceId fr ~> dict
    where
      fileName = fileReferenceName fr
      dict = obj [
          "isa" ~> val "PBXFileReference",
          "fileEncoding" ~> val "4",
          "lastKnownFileType" ~> val (fileTypeBit . fileType $ fileName),
          "name" ~> val fileName,
          "path" ~> val (fileReferencePath fr),
          "sourceTree" ~> val "<group>"
        ]


  fileReferenceName :: PBXFileReference -> String
  fileReferenceName = takeFileName . fileReferencePath
  
  uuid :: Integer -> UUID
  uuid i = let
       s = show i
       pad = 24 - length s
    in replicate pad '0' ++ s