gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/skripta-os2.tex b/skripta-os2.tex
--- a/skripta-os2.tex
+++ b/skripta-os2.tex
\end{codeblock}
\begin{codeblock}
-MODULE Zad5;
+MODULE Zad3;
-FROM SYSTEM IMPORT
- ADR;
FROM StrIO IMPORT
WriteString, WriteLn;
FROM NumberIO IMPORT
WriteInt;
-FROM StrLib IMPORT
- StrLen, StrConCat;
FROM Args IMPORT
Narg, GetArg;
-FROM Lib32 IMPORT
- opendir, readdir, closedir, stat, PDir, PDirEnt, Stat;
+ FROM Lib32 IMPORT
+ opendir, readdir, closedir, PDir, PDirEnt;
FROM errno IMPORT
geterrno;
VAR
dir: PDir;
entry: PDirEnt;
- info: Stat;
c: INTEGER;
- Len: CARDINAL;
- Putanja: String;
BEGIN
+ WriteString("Folder "); WriteString(Ime); WriteLn;
dir:= opendir(Ime);
IF dir = NIL THEN
- WriteString("Folder "); WriteString(Ime); WriteLn;
WriteString(" Greska broj "); WriteInt(geterrno(), 0); WriteString("."); WriteLn();
WriteString(" Ne mogu da otvorim direktorijum."); WriteLn();
ELSE
- Len:= StrLen(Ime);
- IF Ime[Len - 1] # "/" THEN
- StrConCat(Ime, "/", Ime);
- END;
- WriteString("Folder "); WriteString(Ime); WriteLn;
entry:= readdir(dir);
WHILE entry # NIL DO
IF entry^.name[0] # "." THEN
- StrConCat(Ime, entry^.name, Putanja);
- c:= stat(Putanja, ADR(info));
- WriteString(" ");
- IF c = -1 THEN
- WriteString("? ? KB");
- ELSE
- WriteInt(info.nlink, 3);
- WriteInt((info.size + 512) DIV 1024, 5); WriteString(" KB ");
- END;
- WriteString(" "); WriteString(entry^.name); WriteLn;
+ WriteString(" "); WriteString(entry^.name); WriteLn;
END;
entry:= readdir(dir);
END;
Listaj(Putanja);
END;
WriteLn;
-END Zad5.
+END Zad3.
\end{codeblock}
\subsection{Stvaranje novih procesa}
\begin{minipage}{0.4\textwidth}
\begin{tikzpicture}
[proc/.style={circle,draw}]
-\def \n {5}
-\node[proc] (1) at (0,0) {1};
-\foreach \s in {2,...,\n}
+\def \n {3}
+\node[proc] (top) at (0,0) {0..4};
+\foreach \s in {0,...,\n}
{
- \node[proc] (\s) at (-3.5+\s,-2) {\s};
+ \node[proc] (\s) at (-1.5+\s,-2) {\s};
}
-\foreach \s in {2,...,\n} {
- \draw [->] (1) to (\s);
+\foreach \s in {0,...,\n} {
+ \draw [->] (top) to (\s);
}
\end{tikzpicture}
\end{minipage}