diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-01-18 08:05:40 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-01-18 08:05:40 +0000 |
commit | 1edf6b64eb5ea6b65099076e92bccb6a90d2d88b (patch) | |
tree | d48cc72a02cb4ee2c9203876e21a15acaacc12cd /Build/source/utils/pmx/pmx-2.6.18/libf2c/s_cmp.c | |
parent | 8118b1b3be31a537d3c5f622f817a75a10c27741 (diff) |
pmx 2.6.19
git-svn-id: svn://tug.org/texlive/trunk@28860 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/s_cmp.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/s_cmp.c | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/s_cmp.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/s_cmp.c deleted file mode 100644 index 3a2ea67ddf0..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/s_cmp.c +++ /dev/null @@ -1,50 +0,0 @@ -#include "f2c.h" -#ifdef __cplusplus -extern "C" { -#endif - -/* compare two strings */ - -#ifdef KR_headers -integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb; -#else -integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb) -#endif -{ -register unsigned char *a, *aend, *b, *bend; -a = (unsigned char *)a0; -b = (unsigned char *)b0; -aend = a + la; -bend = b + lb; - -if(la <= lb) - { - while(a < aend) - if(*a != *b) - return( *a - *b ); - else - { ++a; ++b; } - - while(b < bend) - if(*b != ' ') - return( ' ' - *b ); - else ++b; - } - -else - { - while(b < bend) - if(*a == *b) - { ++a; ++b; } - else - return( *a - *b ); - while(a < aend) - if(*a != ' ') - return(*a - ' '); - else ++a; - } -return(0); -} -#ifdef __cplusplus -} -#endif |