]> diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/uleq.c
Create new mh-format function %(ordinal)
[nmh] / docs / historical / mh-jun-1982 / subs / uleq.c
1 #ifdef COMMENT
2 Proprietary Rand Corporation, 1981.
3 Further distribution of this software
4 subject to the terms of the Rand
5 license agreement.
6 #endif
7
8 uleq(c1, c2)
9 register char *c1, *c2;
10 {
11 register int c;
12
13 while(c = *c1++)
14 if((c|040) != (*c2|040))
15 return(0);
16 else
17 c2++;
18 return(*c2 == 0);
19 }