source: doc/papers/llheap/examples/Fib.sim @ 7bef8cf

ADTast-experimental
Last change on this file since 7bef8cf was 7bef8cf, checked in by Peter A. Buhr <pabuhr@…>, 18 months ago

start paper on llheap

  • Property mode set to 100644
File size: 1014 bytes
Line 
1BEGIN
2        CLASS Fibonacci;
3                HIDDEN fn, main;                                        ! private members;
4        BEGIN
5                INTEGER fn;                                                     ! communication;
6
7                PROCEDURE main;                                         ! mimic uC++ coroutine main;
8                BEGIN
9                        INTEGER fn1, fn2;
10
11                        fn := 0; fn1 := fn;
12                        Detach;                                                 ! suspend();
13                        fn := 1; fn2 := fn1; fn1 := fn;
14                        Detach;                                                 ! suspend();
15                        WHILE TRUE DO BEGIN
16                                fn := fn1 + fn2; fn2 := fn1; fn1 := fn;
17                                Detach;                                         ! suspend();
18                        END;
19                END;
20
21                INTEGER PROCEDURE next;
22                BEGIN
23                        Call( THIS Fibonacci );                 ! resume();
24                        next := fn;
25                END;
26                ! Fibonacci constructor code;
27                Detach;                                                         ! return to declaration;
28                main;                                                           ! call main as last line of constructor;
29        END Fibonacci;
30        ! program main equivalent;
31        REF(Fibonacci) f1, f2;                                  ! objects are references;
32        INTEGER i;
33
34        f1 :- NEW Fibonacci;
35        f2 :- NEW Fibonacci;
36        FOR i := 1 STEP 1 UNTIL 10 DO BEGIN
37                OutInt( f1.next, 3 );
38                OutText( " " );
39                OutInt( f2.next, 3 );
40                OutImage;
41        END
42END;
43
44! Local Variables: ;
45! tab-width: 4 ;
46! compile-command: "cim Fib.sim" ;
47! End: ;
Note: See TracBrowser for help on using the repository browser.