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);
}