langs a-z

Task/Empty-directory/OCaml/empty-directory.ocaml

@@ -0,0 +1,2 @@
+let is_dir_empty d =
+  Sys.readdir d = [| |]

Task/Empty-directory/Perl-6/empty-directory.pl6

@@ -0,0 +1 @@
+sub dir-is-empty ($d) { not dir $d }

Task/Empty-directory/PureBasic/empty-directory.purebasic

@@ -0,0 +1,29 @@
+Procedure isDirEmpty(path$)
+  If Right(path$, 1) <> "\": path$ + "\": EndIf
+  Protected dirID = ExamineDirectory(#PB_Any, path$, "*.*")
+  Protected result
+
+  If dirID
+    result = 1
+    While NextDirectoryEntry(dirID)
+      If DirectoryEntryType(dirID) = #PB_DirectoryEntry_File Or (DirectoryEntryName(dirID) <> "." And DirectoryEntryName(dirID) <> "..")
+        result = 0
+        Break
+      EndIf
+    Wend
+    FinishDirectory(dirID)
+  EndIf
+  ProcedureReturn result
+EndProcedure
+
+Define path$, result$
+
+path$ = PathRequester("Choose a path", "C:\")
+If path$
+  If isDirEmpty(path$)
+    result$ = " is empty."
+  Else
+    result$ = " is not empty."
+  EndIf
+  MessageRequester("Empty directory test", #DQUOTE$ + path$ + #DQUOTE$ + result$)
+EndIf

Task/Empty-directory/Run-BASIC/empty-directory.run

@@ -0,0 +1,4 @@
+files #f, DefaultDir$ + "\*.*"         ' open some directory.
+
+print "hasanswer: ";#f HASANSWER()     ' if it has an answer it is not MT
+print "rowcount:  ";#f ROWCOUNT()      ' if not MT, how many files?

Task/Empty-directory/Seed7/empty-directory.seed7

@@ -0,0 +1,10 @@
+$ include "seed7_05.s7i";
+  include "osfiles.s7i";
+
+const func boolean: dirEmpty (in string: dirName) is
+  return fileType(dirName) = FILE_DIR and length(readDir(dirName)) = 0;
+
+const proc: main is func
+  begin
+    writeln(dirEmpty("somedir"));
+  end func;

Task/Empty-directory/UNIX-Shell/empty-directory.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+DIR=/tmp/foo
+[ `ls -a $DIR|wc -l` -gt 2 ]  && echo $DIR is NOT empty || echo $DIR is empty