Code:
MODULE A;
IMPORT Wr, Stdio, Thread;
PROCEDURE DoIt() =
BEGIN
TRY
Wr.PutText(Stdio.stdout, "Hello world.\n");
Wr.Close(Stdio.stdout);
EXCEPT
| Wr.Failure, Thread.Alerted =>
END;
END DoIt; (* Komentar za dmc-a *)
BEGIN
END A.
MODULE A;
IMPORT Wr, Stdio, Thread;
PROCEDURE DoIt() =
BEGIN
TRY
Wr.PutText(Stdio.stdout, "Hello world.\n");
Wr.Close(Stdio.stdout);
EXCEPT
| Wr.Failure, Thread.Alerted =>
END;
END DoIt; (* Komentar za dmc-a *)
BEGIN
END A.
Zelim da mi sed od tog fajla napravi fajl sa brojevima linija formatiranim udesno i da od toga dobijem:
Code:
1 MODULE A;
2 IMPORT Wr, Stdio, Thread;
3
4 PROCEDURE DoIt() =
5 BEGIN
6 TRY
7 Wr.PutText(Stdio.stdout, "Hello world.\n");
8 Wr.Close(Stdio.stdout);
9 EXCEPT
10 | Wr.Failure, Thread.Alerted =>
11 END;
12 END DoIt; (* Komentar za dmc-a *)
13
14 BEGIN
15 END A.
1 MODULE A;
2 IMPORT Wr, Stdio, Thread;
3
4 PROCEDURE DoIt() =
5 BEGIN
6 TRY
7 Wr.PutText(Stdio.stdout, "Hello world.\n");
8 Wr.Close(Stdio.stdout);
9 EXCEPT
10 | Wr.Failure, Thread.Alerted =>
11 END;
12 END DoIt; (* Komentar za dmc-a *)
13
14 BEGIN
15 END A.
(Nazalost na ES-u ne mogu nista formatirano da imam tako da ce kod da izgleda glup)
Imam neki osecaj da ce neko ko je sinoc bio na #elitesecurity da resi ovaj problem ;)
Pozdrav svima!