version 1.193, 2008/01/18 22:21:00
|
version 1.194, 2008/04/25 22:17:17
|
Line 2691 s" The text I search is here" scan-file
|
Line 2691 s" The text I search is here" scan-file
|
begin |
begin |
line-buffer max-line fd-in read-line throw |
line-buffer max-line fd-in read-line throw |
while |
while |
line-buffer swap fd-out write-file throw |
line-buffer swap fd-out write-line throw |
repeat ; |
repeat ; |
@end example |
@end example |
|
@c !! does not handle long lines, no newline at end of file |
|
|
@subsection Close files |
@subsection Close files |
|
|