com

diff --git a/afp/a5/a5 b/afp/a5/a5
new file mode 100755 (executable)
index 0000000..3c93586
Binary files /dev/null and b/afp/a5/a5 differ

diff --git a/dropExtension/test.icl b/dropExtension/test.icl
new file mode 100644 (file)
index 0000000..2c3192b
--- /dev/null
+++ b/dropExtension/test.icl
@@ -0,0 +1,22 @@
+module test
+
+import StdEnv
+import System.FilePath
+import Text
+import Text.GenPrint
+
+Start = join "\n" (map printToString
+       [splitExtension "a"
+       ,splitExtension "/a"
+       ,splitExtension "a.out"
+       ,splitExtension "/a.out"
+       ,splitExtension "a/b"
+       ,splitExtension "/a/b"
+       ,splitExtension "a/b.out"
+       ,splitExtension "/a/b.out"
+       ,splitExtension "a/b.c/d"
+       ,splitExtension "/a/b.c/d"
+       ,splitExtension "a/b.c/d.out"
+       ,splitExtension "/a/b.c/d.out"
+       ,splitExtension ""
+       ])