dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
loglan.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Added upstream from http://ftp.icm.edu.pl/pub/loglan/
[loglan.git]
/
examples
/
pataud
/
multilvl.log
1
program M;
\r
2
(* example of multilevel iheritance *)
\r
3
var x: integer;
\r
4
unit A: class;
\r
5
var x: integer;
\r
6
begin
\r
7
x := 3;
\r
8
inner;
\r
9
end A;
\r
10
begin
\r
11
pref A block
\r
12
var y: integer, bb: B;
\r
13
unit B: class;
\r
14
begin
\r
15
x := y;
\r
16
writeln(x);
\r
17
inner;
\r
18
end B;
\r
19
begin
\r
20
y := 2;
\r
21
bb := new B;
\r
22
pref A block
\r
23
var y: integer, cc: C;
\r
24
unit C: B class;
\r
25
begin
\r
26
y := x;
\r
27
writeln(y);
\r
28
inner;
\r
29
end C;
\r
30
begin
\r
31
y := 4;
\r
32
cc := new C;
\r
33
end
\r
34
end;
\r
35
writeln(x);
\r
36
end program;
\r
37