]> diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/ssequal.c
Create new mh-format function %(ordinal)
[nmh] / docs / historical / mh-jun-1982 / subs / ssequal.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 ssequal(substr, str)
9 char *substr, *str;
10 {
11 while(*substr)
12 if(*substr++ != *str++)
13 return(0);
14 return(1);
15 }