diff --git a/examples/printf/000/Main.hs b/examples/printf/000/Main.hs deleted file mode 100644 index 67788aa..0000000 --- a/examples/printf/000/Main.hs +++ /dev/null @@ -1,37 +0,0 @@ -import Printf - -main = do printf "%d\n" $> (42::Int) ! [] - printf "%u\n" $> (42::Int) ! [] - printf "0%o\n" $> (42::Int) ! [] - printf "0x%x\n" $> (42::Int) ! [] - printf "0x%X\n" $> (42::Int) ! [] - - printf "%e\n" $> (42.1234 :: Double) ! [] - printf "%E\n" $> (42.1234 :: Double) ! [] - printf "%g\n" $> (42.1234 :: Double) ! [] - printf "%G\n" $> (42.1234 :: Double) ! [] - printf "%f\n" $> (42.1234 :: Double) ! [] - - printf "%c:%c:%c\n" $> 'a' ! 'b' ! 'c' ! [] - printf "%s\n" $> "printf" ! [] - - printf "%+d\n" $> (42::Int) ! [] - printf "%+0d\n" $> (42::Int) ! [] - printf "%0+d\n" $> (42::Int) ! [] - printf "%10d\n" $> (42::Int) ! [] - printf "%-010d\n" $> (42::Int) ! [] - printf "%-010.2d\n" $> (42::Int) ! [] - - printf "%+f\n" $> (42.1234 :: Double) ! [] - printf "%+0f\n" $> (42.1234 :: Double) ! [] - printf "%0+f\n" $> (42.1234 :: Double) ! [] - printf "%10f\n" $> (42.1234 :: Double) ! [] - printf "%-010f\n" $> (42.1234 :: Double) ! [] - printf "%-010.2f\n" $> (42.1234 :: Double) ! [] - - printf "%10s\n" $> "printf" ! [] - printf "%-10s\n" $> "printf" ! [] - printf "%10.2s\n" $> "printf" ! [] - printf "%2.10s\n" $> "printf" ! [] - printf "%-2.10s\n" $> "printf" ! [] - printf "%-10.2s\n" $> "printf" ! [] diff --git a/examples/printf/000/Makefile b/examples/printf/000/Makefile deleted file mode 100644 index f775e10..0000000 --- a/examples/printf/000/Makefile +++ /dev/null @@ -1,2 +0,0 @@ -TOP=../../.. -include ../../eval.mk diff --git a/examples/printf/000/expected b/examples/printf/000/expected deleted file mode 100644 index 6268409..0000000 --- a/examples/printf/000/expected +++ /dev/null @@ -1,30 +0,0 @@ -42 -42 -052 -0x2a -0x2A -4.212340e1 -4.212340E1 -42.123400 -42.123400 -42.123400 -a:b:c -printf -+42 -+42 -+42 - 42 -42 -42 -+42.123400 -+42.123400 -+42.123400 - 42.123400 -42.123400 -42.12 - printf -printf - pr -printf -printf -pr diff --git a/examples/printf/000/printf.sh b/examples/printf/000/printf.sh deleted file mode 100644 index 0f8e459..0000000 --- a/examples/printf/000/printf.sh +++ /dev/null @@ -1,36 +0,0 @@ -#!/bin/sh -printf "%d\n" 42 -printf "%u\n" 42 -printf "0%o\n" 42 -printf "0x%x\n" 42 -printf "0x%X\n" 42 - -printf "%e\n" 42.1234 -printf "%E\n" 42.1234 -printf "%g\n" 42.1234 -printf "%G\n" 42.1234 -printf "%f\n" 42.1234 - -printf "%c:%c:%c\n" 'a' 'b' 'c' -printf "%s\n" "printf" - -printf "%+d\n" 42 -printf "%+0d\n" 42 -printf "%0+d\n" 42 -printf "%10d\n" 42 -printf "%-010d\n" 42 -printf "%-010.2d\n" 42 - -printf "%+f\n" 42.1234 -printf "%+0f\n" 42.1234 -printf "%0+f\n" 42.1234 -printf "%10f\n" 42.1234 -printf "%-010f\n" 42.1234 -printf "%-010.2f\n" 42.1234 - -printf "%10s\n" "printf" -printf "%-10s\n" "printf" -printf "%10.2s\n" "printf" -printf "%2.10s\n" "printf" -printf "%-2.10s\n" "printf" -printf "%-10.2s\n" "printf" diff --git a/examples/printf/001/Main.hs b/examples/printf/001/Main.hs deleted file mode 100644 index dfaed56..0000000 --- a/examples/printf/001/Main.hs +++ /dev/null @@ -1,13 +0,0 @@ -import Printf - -main = do - printf "%d\n" $> (42 :: Int) ! [] - printf "0x%X\n" $> (42 :: Int) ! [] - printf "%f\n" $> (42.1234 :: Double) ! [] - printf "%c:%c:%c\n" $> 'a' ! 'b' ! 'c' ! [] - printf "%s\n" $> "haskell" ! [] - printf "%-010.4d\n" $> (42 :: Int) ! [] - printf "%010.4f\n" $> (42.1234 :: Double) ! [] - printf "%10.4s\n" $> (show (7 :: Int)) ! [] - printf "%-10.4s\n" $> "haskell" ! [] - diff --git a/examples/printf/001/Makefile b/examples/printf/001/Makefile deleted file mode 100644 index f775e10..0000000 --- a/examples/printf/001/Makefile +++ /dev/null @@ -1,2 +0,0 @@ -TOP=../../.. -include ../../eval.mk diff --git a/examples/printf/001/expected b/examples/printf/001/expected deleted file mode 100644 index e48936f..0000000 --- a/examples/printf/001/expected +++ /dev/null @@ -1,9 +0,0 @@ -42 -0x2A -42.123400 -a:b:c -haskell -42 -00042.1234 - 7 -hask diff --git a/examples/printf/002/Main.hs b/examples/printf/002/Main.hs deleted file mode 100644 index 0871a76..0000000 --- a/examples/printf/002/Main.hs +++ /dev/null @@ -1,12 +0,0 @@ -import Printf -import Control.Exception ( evaluate ) - -main = do - fn <- evaluate $! printf "%10.4f\n" - fn $> (10.0 :: Double) ! [] - fn $> (-10.0 :: Double) ! [] - fn $> (10.1010 :: Double) ! [] - fn $> (0.0 :: Double) ! [] - fn $> (0.987654321 :: Double) ! [] - fn $> (987654321 :: Double) ! [] - fn $> (-987654321 :: Double) ! [] diff --git a/examples/printf/002/Makefile b/examples/printf/002/Makefile deleted file mode 100644 index f775e10..0000000 --- a/examples/printf/002/Makefile +++ /dev/null @@ -1,2 +0,0 @@ -TOP=../../.. -include ../../eval.mk diff --git a/examples/printf/002/expected b/examples/printf/002/expected deleted file mode 100644 index bd20026..0000000 --- a/examples/printf/002/expected +++ /dev/null @@ -1,7 +0,0 @@ - 10.0000 - -10.0000 - 10.1010 - 0.0000 - 0.9877 -987654321.0000 --987654321.0000 diff --git a/examples/printf/should_fail_000/Main.hs b/examples/printf/should_fail_000/Main.hs deleted file mode 100644 index 7859483..0000000 --- a/examples/printf/should_fail_000/Main.hs +++ /dev/null @@ -1,3 +0,0 @@ -import Printf - -main = printf "%x\n" $> "badstring" ! [] diff --git a/examples/printf/should_fail_000/Makefile b/examples/printf/should_fail_000/Makefile deleted file mode 100644 index f775e10..0000000 --- a/examples/printf/should_fail_000/Makefile +++ /dev/null @@ -1,2 +0,0 @@ -TOP=../../.. -include ../../eval.mk diff --git a/examples/printf/should_fail_000/expected b/examples/printf/should_fail_000/expected deleted file mode 100644 index b380af1..0000000 --- a/examples/printf/should_fail_000/expected +++ /dev/null @@ -1,3 +0,0 @@ - -Fail: Type error in dynamic application. -Can't apply function [Char]> to argument <[Char]> diff --git a/examples/printf/should_fail_000/expected.604 b/examples/printf/should_fail_000/expected.604 deleted file mode 100644 index 0b47c40..0000000 --- a/examples/printf/should_fail_000/expected.604 +++ /dev/null @@ -1,2 +0,0 @@ -a.out: Type error in dynamic application. -Can't apply function [Char]> to argument <[Char]> diff --git a/examples/printf/should_fail_001/Main.hs b/examples/printf/should_fail_001/Main.hs deleted file mode 100644 index b00156a..0000000 --- a/examples/printf/should_fail_001/Main.hs +++ /dev/null @@ -1,13 +0,0 @@ -import Printf - -main = do - printf "%d\n" $> (42 :: Int) ! [] - printf "0x%X\n" $> (42 :: Int) ! [] - printf "%f\n" $> (42.1234 :: Double) ! [] - printf "%c:%c:%c\n" $> 'a' ! 'b' ! 'c' ! [] - printf "%s\n" $> "haskell" ! [] - printf "%-010.4d\n" $> (42 :: Int) ! [] - printf "%010.4f\n" $> (42.1234 :: Double) ! [] - printf "%10.4s\n" $> (7 :: Int)! [] - printf "%-10.4s\n" $> "haskell" ! [] - diff --git a/examples/printf/should_fail_001/Makefile b/examples/printf/should_fail_001/Makefile deleted file mode 100644 index f775e10..0000000 --- a/examples/printf/should_fail_001/Makefile +++ /dev/null @@ -1,2 +0,0 @@ -TOP=../../.. -include ../../eval.mk diff --git a/examples/printf/should_fail_001/expected b/examples/printf/should_fail_001/expected deleted file mode 100644 index 9c7691f..0000000 --- a/examples/printf/should_fail_001/expected +++ /dev/null @@ -1,10 +0,0 @@ -42 -0x2A -42.123400 -a:b:c -haskell -42 -00042.1234 - -Fail: Type error in dynamic application. -Can't apply function <[Char] -> [Char]> to argument diff --git a/examples/printf/should_fail_001/expected.604 b/examples/printf/should_fail_001/expected.604 deleted file mode 100644 index 77d79da..0000000 --- a/examples/printf/should_fail_001/expected.604 +++ /dev/null @@ -1,9 +0,0 @@ -42 -0x2A -42.123400 -a:b:c -haskell -42 -00042.1234 -a.out: Type error in dynamic application. -Can't apply function <[Char] -> [Char]> to argument