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

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

start paper on llheap

  • Property mode set to 100644
File size: 1.0 KB
Line 
1BEGIN
2        CLASS FmtLines;
3                HIDDEN ch, main;                                        ! private members;
4        BEGIN
5                CHARACTER ch;                                           ! communication;
6
7                PROCEDURE main;                                         ! mimic uC++ coroutine main;
8                BEGIN
9                        INTEGER g, b;
10
11                        WHILE TRUE DO BEGIN                             ! for as many characters;
12                                FOR g := 1 STEP 1 UNTIL 5 DO BEGIN              ! groups of 5;
13                                        FOR b := 1 STEP 1 UNTIL 4 DO BEGIN      ! blocks of 4;
14                                                OutChar( ch );
15                                                Detach;                         ! suspend();
16                                        END;
17                                        OutText( "  " );
18                                END;
19                                OutImage;                                       ! start newline;
20                        END;
21                END;
22
23                PROCEDURE prt( chp );
24                        CHARACTER chp;
25                BEGIN
26                        ch := chp;                                              ! communication;
27                        Call( THIS FmtLines );                  ! resume();
28                END;
29                ! FmtLines constructor code;
30                Detach;                                                         ! return to declaration;
31                main;                                                           ! call main as last line of constructor;
32        END FmtLines;
33        ! program main equivalent;
34        REF(FmtLines) fmt;                                              ! objects are references;
35        INTEGER i;
36
37        fmt :- NEW FmtLines;
38        FOR i := Rank( ' ' ) STEP 1 UNTIL Rank( 'z' ) DO BEGIN
39                fmt.prt( Char( i ) );
40        END
41END;
42
43! Local Variables: ;
44! tab-width: 4 ;
45! compile-command: "cim Fmt.sim" ;
46! End: ;
Note: See TracBrowser for help on using the repository browser.