gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system prethodni := cilj;\r
cilj := cilj^.veza;\r
END;\r
- IF (cilj = NIL) THEN\r
+ IF cilj = NIL THEN\r
IF k#0.0 THEN\r
NEW(cilj);\r
cilj^.k := k;\r
cilj^.st := st;\r
cilj^.veza := NIL;\r
- IF (p = NIL) THEN\r
+ IF p = NIL THEN\r
p := cilj;\r
ELSE\r
prethodni^.veza := cilj;\r
END;\r
END;\r
ELSIF cilj^.st=st THEN\r
- IF k#0.0 THEN\r
+ IF k # 0.0 THEN\r
cilj^.k:=k;\r
ELSE\r
- IF (p=cilj) THEN\r
+ IF p = cilj THEN\r
DISPOSE(p);\r
ELSE\r
prethodni^.veza:= prethodni^.veza^.veza;\r
END;\r
END;\r
ELSE\r
- IF k#0.0 THEN\r
+ IF k # 0.0 THEN\r
NEW(cilj);\r
cilj^.k := k;\r
cilj^.st := st;\r