Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/ed/getrhs.c @ 1097:264588ae1cd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed cc-1.1 to cc
author boisy
date Wed, 09 Apr 2003 16:06:26 +0000
parents bef1844de0dc
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
994
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
1 /* getrhs.c */
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
2 #include <stdio.h>
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
3 #include "tools.h"
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
4 #include "ed.h"
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
5
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
6 int getrhs(sub)
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
7 char *sub;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
8 {
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
9 if (inptr[0] == NL || inptr[1] == NL) /* check for eol */
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
10 return(ERR);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
11
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
12 if (maksub(sub, MAXPAT) == NULL) return(ERR);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
13
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
14 inptr++; /* skip over delimter */
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
15 while (*inptr == SP || *inptr == HT) inptr++;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
16 if (*inptr == 'g') {
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
17 inptr++;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
18 return(1);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
19 }
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
20 return(0);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
21 }
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
22