Description:
LINE_BEGIN returns a pattern that matches the beginning-of-line condition.
LINE_BEGIN is a keyword, not a built-in procedure. However, it is used like a
built-in to construct patterns.
Syntax:
pattern := LINE_BEGIN
Example:
The following procedure erases all RUNOFF commands from a file by searching
for a pattern that has a period (.) at the beginning of a line and then erasing
the lines that match this condition:
PROCEDURE user_delete_runoff_lines
LOCAL search$runoff, pattern$runoff;
pattern$runoff := LINE_BEGIN + ".";
LOOP
search$runoff := SEARCH (pattern$runoff, FORWARD);
EXITIF sear1 = 0;
POSITION (search$runoff);
ERASE_LINE;
ENDLOOP;
ENDPROCEDURE;
Related Builtins:
LINE_BEGIN