DouKaku?

use "smlnj-lib.sml";

fun pickup s =
let
  open Format List String

  val lst = global_slice_group "([A-Za-z]+)(-hidden)?(-big|-small)?\\.([A-Za-z]+)" s

  fun pickup' [] = ()
    | pickup' (h::t) =
      let
        val fmt = STR (nth (h, 1))::STR (nth (h, 4))::
          (if nth (h, 3) = "" then STR "normal" else STR (extract (nth (h, 3), 1, NONE)))::
          (if nth (h, 2) = "" then STR "False" else STR "True")::[]
      in
        formatf "name:'%s', ext:'%s', size: %s hidden: %s\n" print fmt;
        pickup' t
      end
in
  pickup' lst
end