ADTast-experimental
Last change
on this file since 7bef8cf was
7bef8cf,
checked in by Peter A. Buhr <pabuhr@…>, 19 months ago
|
start paper on llheap
|
-
Property mode set to
100644
|
File size:
1.0 KB
|
Rev | Line | |
---|
[7bef8cf] | 1 | BEGIN |
---|
| 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 |
---|
| 41 | END; |
---|
| 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.