Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/ed/getlst.c @ 1530:a02b18bfc376
New 'Old' fields added from OS-9 Level One V2.00.00 Addendum
author | boisy |
---|---|
date | Wed, 14 Apr 2004 13:35:50 +0000 |
parents | bef1844de0dc |
children |
line wrap: on
line source
/* getlst.c */ #include <stdio.h> #include "tools.h" #include "ed.h" int getlst() { int num; line2 = 0; for (nlines = 0; (num = getone()) >= 0;) { line1 = line2; line2 = num; nlines++; if (*inptr != ',' && *inptr != ';') break; if (*inptr == ';') curln = num; inptr++; } nlines = min(nlines, 2); if (nlines == 0) line2 = curln; if (nlines <= 1) line1 = line2; if (num == ERR) return(num); else return(nlines); }