tools/unitCycles.hs
author unc0rr
Wed, 17 Nov 2010 22:26:34 +0300
changeset 4371 ae172b2b03ed
parent 4367 f4a0ec067601
child 4382 935de6cd5ea3
permissions -rw-r--r--
Some more

module Main where

import PascalParser
import System
import Control.Monad
import Data.Either
import Data.List
import Data.Graph

unident :: Identificator -> String
unident (Identificator s) = s

extractUnits :: PascalUnit -> (String, [String])
extractUnits (Program (Identificator name) (Implementation (Uses idents) _ _) _) = ("program " ++ name, map unident idents)
extractUnits (Unit (Identificator name) (Interface (Uses idents1) _) (Implementation (Uses idents2) _ _) _ _) = (name, map unident $ idents1 ++ idents2)

f :: [(String, [String])] -> String
f = unlines . map showSCC . stronglyConnComp . map (\(a, b) -> (a, a, b))
    where
    showSCC (AcyclicSCC v) = v
    showSCC (CyclicSCC vs) = intercalate ", " vs

main = do
    fileNames <- getArgs
    files <- mapM readFile fileNames
    putStrLn . f . map extractUnits . rights . map parsePascalUnit $ files