Data commit

Task/Empty-string/Modula-3/empty-string.mod3

@@ -0,0 +1,20 @@
+MODULE EmptyString EXPORTS Main;
+
+IMPORT IO,Text;
+
+VAR
+     Str:TEXT;
+BEGIN
+     (* Assign an empty string *)
+     Str := "";
+     (* Check if Str is empty *)
+     IF Text.Empty(Str) THEN
+	  IO.Put("Str is empty!\n");
+     END;
+     (* Same as above: *)
+     IF Text.Length(Str) = 0 THEN
+	  IO.Put("Str is empty!\n");
+     END;
+     (* To check for a non-empty string, negate any of the above
+	conditions with NOT *)
+END EmptyString.