extension

path.arc

@@ -1,4 +1,4 @@
-(use arc cwd values)
+(use arc cwd values re)
 
 (ail-code (racket-require (racket-prefix-in racket- scheme/path)))
 
@@ -13,6 +13,10 @@
   (aif (ar-fnil (racket-file-name-from-path path))
         (racket-path->string it)))
 
+(def extension (path)
+  (aand (filepart path)
+        (cadr (re-match "\\.([^\\.]+)$" it))))
+
 (def fullpath (path (o basedir cwd))
   (racket-path->string
    (racket-simplify-path

path.t

@@ -31,6 +31,27 @@ nil
 > (filepart "foo")
 "foo"
 
+> (extension "foo")
+nil
+
+> (extension "foo.")
+nil
+
+> (extension "foo.a")
+"a"
+
+> (extension "foo.a.")
+nil
+
+> (extension "foo.arc")
+"arc"
+
+> (extension "/a/b/c/foo.bar/")
+nil
+
+> (extension "/a/b/c/foo.bar")
+"bar"
+
 > (fullpath "/a/b/c/foo.bar")
 "/a/b/c/foo.bar"