User defined pipe and redirection operators/ALGOL 68: Difference between revisions
User defined pipe and redirection operators/ALGOL 68 (view source)
Revision as of 11:36, 4 June 2017
, 6 years ago→Iterator_pipe_page: Fixed WRITE and page append line so there isn't an empty element at the start
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:
PROC page append line = (PAGEAPPEND page, LINE line)VOID:
IF LWB page > UPB page THEN page := line ELSE page +:= line FI;
OP WRITE = (PAGEOUT page)YIELDLINE: (
page :=
page append line(page, )
);
Line 150:
OP APPEND = (PAGEAPPEND page)YIELDLINE:
page append line(page, );</lang>
==test_Iterator_pipe_page==
'''File: test_Iterator_pipe_page.a68'''
| |||