User defined pipe and redirection operators/ALGOL 68: Difference between revisions
Content added Content deleted
m (Add section titles) |
(→Iterator_pipe_page: Fixed WRITE and page append line so there isn't an empty element at the start) |
||
Line 141: | Line 141: | ||
PROC page append line = (PAGEAPPEND page, LINE line)VOID: |
PROC page append line = (PAGEAPPEND page, LINE line)VOID: |
||
page +:= line; |
IF LWB page > UPB page THEN page := line ELSE page +:= line FI; |
||
OP WRITE = (PAGEOUT page)YIELDLINE: ( |
OP WRITE = (PAGEOUT page)YIELDLINE: ( |
||
page := |
page := (FLEX[1:0]LINE l; l); |
||
page append line(page, ) |
page append line(page, ) |
||
); |
); |
||
Line 150: | Line 150: | ||
OP APPEND = (PAGEAPPEND page)YIELDLINE: |
OP APPEND = (PAGEAPPEND page)YIELDLINE: |
||
page append line(page, );</lang> |
page append line(page, );</lang> |
||
==test_Iterator_pipe_page== |
==test_Iterator_pipe_page== |
||
'''File: test_Iterator_pipe_page.a68''' |
'''File: test_Iterator_pipe_page.a68''' |