mac shell xtra snippets

lingo-shell-xtra-snippets.ls

on listReadOnlyVolumes
  return shell_cmd_list("mount | sed -n 's/^\/dev\/.* on \(\/.*\) (.*read-only.*/\1/p'")
end

on nonEmptyFolderExists atPosixPath
  rslt = shell_cmd_list("ls " &qq(atPosixPath) &" 2>/dev/null")
  return count(rslt) > 0 
end

on directoryExists atPosixPath
  return integer(shell_cmd("test -d " &qq(atPosixPath) &" && echo 1 || echo 0"))
end

-- converts an hfs path to a posix path wrapped in quotes
on quotedPosix path
  return qq(shell_hfs2posix(path))
end

-- wraps a string with quotes; reminiscent of perl's qq{}
on qq str
  return QUOTE &str &QUOTE
end