view 3rdparty/packages/ed/getrhs.c @ 1124:c2b85c18a13a

Makefiles now use os9 attr
author boisy
date Sun, 13 Apr 2003 22:26:31 +0000
parents bef1844de0dc
children
line wrap: on
line source

/*      getrhs.c        */
#include <stdio.h>
#include "tools.h"
#include "ed.h"

int getrhs(sub)
char *sub;
{
  if (inptr[0] == NL || inptr[1] == NL) /* check for eol */
        return(ERR);

  if (maksub(sub, MAXPAT) == NULL) return(ERR);

  inptr++;                      /* skip over delimter */
  while (*inptr == SP || *inptr == HT) inptr++;
  if (*inptr == 'g') {
        inptr++;
        return(1);
  }
  return(0);
}