Show
Ignore:
Timestamp:
09/06/05 14:11:41 (3 years ago)
Author:
autrijus
Message:

* massive retab for src/, expanding all tabs into spaces,

except for the generated PIL1.hs.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Embed/Parrot.hsc

    r6248 r6793  
    6161        let nameStr = escape name 
    6262            ruleStr = escape rule 
    63         hPutStrLn inp $ unwords 
     63        hPutStrLn inp $ unwords 
    6464            ["add_rule", show (length nameStr), show (length ruleStr)] 
    65         hPutStrLn inp nameStr 
    66         hPutStrLn inp ruleStr 
     65        hPutStrLn inp nameStr 
     66        hPutStrLn inp ruleStr 
    6767    let matchStr = escape match 
    6868        ruleStr  = escape rule 
    … …  
    7474    rv <- hGetLine out 
    7575    case rv of 
    76         ('O':'K':' ':sizeStr) -> do 
    77             size <- readIO sizeStr 
    78             rv  <- sequence (replicate size (hGetChar out)) 
    79             ln  <- hGetLine out 
    80             return $ rv ++ ln 
    81         _ -> do 
    82             errMsg  <- hGetContents err 
    83             rv      <- waitForProcess pid 
    84             writeIORef _ParrotInterp Nothing 
    85             let msg | null errMsg = show rv 
    86                     | otherwise   = errMsg 
    87             fail $ "*** Running external 'parrot' failed:\n" ++ msg 
     76        ('O':'K':' ':sizeStr) -> do 
     77            size <- readIO sizeStr 
     78            rv  <- sequence (replicate size (hGetChar out)) 
     79            ln  <- hGetLine out 
     80            return $ rv ++ ln 
     81        _ -> do 
     82            errMsg  <- hGetContents err 
     83            rv      <- waitForProcess pid 
     84            writeIORef _ParrotInterp Nothing 
     85            let msg | null errMsg = show rv 
     86                    | otherwise   = errMsg 
     87            fail $ "*** Running external 'parrot' failed:\n" ++ msg 
    8888    where 
    8989    escape "" = "" 
    … …  
    9696    rv <- readIORef _ParrotInterp 
    9797    case rv of 
    98         Just interp@(_, _, _, pid) -> do 
    99             gone <- getProcessExitCode pid 
    100             if isNothing gone then return interp else do 
    101             writeIORef _ParrotInterp Nothing 
    102             initPGE path 
    103         Nothing -> do 
    104             cmd <- findParrot 
    105             interp <- runInteractiveProcess cmd ["run_pge.pir"] (Just path) Nothing  
    106             writeIORef _ParrotInterp (Just interp) 
    107             return interp 
     98        Just interp@(_, _, _, pid) -> do 
     99            gone <- getProcessExitCode pid 
     100            if isNothing gone then return interp else do 
     101            writeIORef _ParrotInterp Nothing 
     102            initPGE path 
     103        Nothing -> do 
     104            cmd <- findParrot 
     105            interp <- runInteractiveProcess cmd ["run_pge.pir"] (Just path) Nothing  
     106            writeIORef _ParrotInterp (Just interp) 
     107            return interp 
    108108 
    109109type ParrotInterp = (Handle, Handle, Handle, ProcessHandle)