blob: 45a2d462703b7e80237c863c2b81c05e84f13464 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
module Main where
import System.Directory
import System.Environment
import System.Exit
import System.IO
main :: IO ()
main = do
args <- getArgs
escape <- case args of
["quadruple-backslash"] -> return escape_quadruple_backslash
["forwardslash"] -> return escape_forwardslash
_ -> do hPutStrLn stderr ("Bad args: " ++ show args)
hPutStrLn stderr
"Usage: pwd {forwardslash|quadruple-backslash}"
exitFailure
d <- getCurrentDirectory
putStr $ concatMap escape d
-- In prog006 we have to escape \ twice, once to get through sed and
-- again to get through parsing pkg.conf
escape_quadruple_backslash :: Char -> String
escape_quadruple_backslash '\\' = "\\\\\\\\"
escape_quadruple_backslash c = [c]
-- Normally we can get away with just replacing backslashes with forwardslashes
escape_forwardslash :: Char -> String
escape_forwardslash '\\' = "/"
escape_forwardslash c = [c]
|
