module Main where

{-

./dql "freespire103" "1.0.3_freespire-marlin_freespire-marlin-unstable_20060728-2138.status" "freespire104" "1.0.4_freespire-marlin_freespire-marlin-unstable_20060730-0019.status"
select freespire104.Package, freespire103.Version, freespire104.Version from freespire103, freespire104 where freespire103.Package = freespire104.Package and freespire104.Version >> freespire103.Version
-}
import System.Environment

import qualified Data.ByteString.Char8 as C
import DQL.Shell
import DQL.Types

main =
    do args <- getArgs
       dqlShell (parseArgs args)
    where 
      parseArgs :: [String] -> [(RelationName, FilePath)]
      parseArgs [] = []
      parseArgs [_] = error $ "Usage: relationName1 filePath1 [relationName2 filePath2 [ ... ]]"
      parseArgs (rn:fp:rest) = (C.pack rn,fp) : parseArgs rest