diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/i_indx.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/i_indx.c | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/i_indx.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/i_indx.c new file mode 100644 index 00000000000..19256393ecd --- /dev/null +++ b/Build/source/utils/pmx/pmx-2.6.18/libf2c/i_indx.c @@ -0,0 +1,32 @@ +#include "f2c.h" +#ifdef __cplusplus +extern "C" { +#endif + +#ifdef KR_headers +integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb; +#else +integer i_indx(char *a, char *b, ftnlen la, ftnlen lb) +#endif +{ +ftnlen i, n; +char *s, *t, *bend; + +n = la - lb + 1; +bend = b + lb; + +for(i = 0 ; i < n ; ++i) + { + s = a + i; + t = b; + while(t < bend) + if(*s++ != *t++) + goto no; + return(i+1); + no: ; + } +return(0); +} +#ifdef __cplusplus +} +#endif |