4 * Revision 1.1 2001/04/04 05:43:37 wang
5 * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
7 * Revision 1.3 1999/11/26 12:52:25 bnv
8 * Changed: To use the new macros.
10 * Revision 1.2 1999/03/15 15:25:53 bnv
11 * Corrected: initial value to prev
13 * Revision 1.1 1998/07/02 17:18:00 bnv
20 /* ---------------- Llinein ------------------- */
22 Llinein( FILEP f
, const PLstr line
, long *curline
, long start
, long length
)
30 /* find current line */
36 while (start
>*curline
) {
39 if (prev
!='\n') (*curline
)++;
42 if (ch
=='\n') (*curline
)++;
45 if (start
> *curline
) return;
48 if (length
<=0) return;
51 Lread(f
,line
,LREADLINE
);
56 Lread(f
,&aux
,LREADLINE
);