Prechádzať zdrojové kódy

+ Added exit status check

michael 27 rokov pred
rodič
commit
06690a3731
1 zmenil súbory, kde vykonal 5 pridanie a 2 odobranie
  1. 5 2
      docs/linuxex/ex56.pp

+ 5 - 2
docs/linuxex/ex56.pp

@@ -4,7 +4,10 @@ uses linux;
 
 
 { Program to demonstrate the Shell function }
 { Program to demonstrate the Shell function }
 
 
+Var S : Longint;
+
 begin
 begin
-  writeln ('Output of ls -l *.pp');
-  Shell ('ls -l *.pp');
+  Writeln ('Output of ls -l *.pp');
+  S:=Shell ('ls -l *.pp');
+  Writeln ('Command exited wwith status : ',S);
 end.
 end.