A-M baby

Task/Execute-a-system-command/Modula-2/execute-a-system-command.mod2

@@ -0,0 +1,34 @@
+MODULE tri;
+
+FROM   SYSTEM           IMPORT  ADR;
+FROM   SysLib           IMPORT  system;
+
+IMPORT TextIO, InOut, ASCII;
+
+VAR   fd                : TextIO.File;
+      ch                : CHAR;
+
+PROCEDURE SystemCommand (VAR  command : ARRAY OF CHAR) : BOOLEAN;
+
+BEGIN
+   IF  system (ADR (command) ) = 0  THEN
+      RETURN TRUE
+   ELSE
+      RETURN FALSE
+   END
+END SystemCommand;
+
+BEGIN
+   IF  SystemCommand ("ls -1 tri.mod | ") = TRUE  THEN
+      InOut.WriteString ("No error reported.")
+   ELSE
+      InOut.WriteString ("Error reported!")
+   END;
+   LOOP
+      InOut.Read (ch);
+      InOut.Write (ch);
+      IF  ch < ' '  THEN  EXIT  END
+   END;
+   InOut.WriteLn;
+   InOut.WriteBf
+END tri.