home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ENTERPRS
/
CPM
/
UTILS
/
S
/
SMC21LIB.LZH
/
LEXCMP.C
< prev
next >
Wrap
Text File
|
2000-06-30
|
1KB
|
52 lines
#define NOCCARGC
/*
** lexcmp(s, t) - Return a number <0, 0, or >0
** as s is <, =, or > t.
*/
lexcmp(s, t) char *s, *t; {
while(*s == *t) {
if(*s == 0) return (0);
++s; ++t;
}
return (lexorder(*s, *t));
}
/*
** lexorder(c1, c2) - Return a number <0, 0, or >0
** as c1 is <, =, or > c2, based on
** based on lexicographical (dictionary)
** collating sequence.
*/
char _lex[128] = {
/**** NUL to / ****/
000,001,002,003,004,005,006,007,008,009,
010,011,012,013,014,015,016,017,018,019,
020,021,022,023,024,025,026,027,028,029,
030,031,032,033,034,035,036,037,038,039,
040,041,042,043,044,045,046,047,
/**** 0 to 9 ****/
065,066,067,068,069,070,071,072,073,074,
/**** : ; < = > ? @ ****/
048,049,050,051,052,053,054,
/**** A to Z ****/
075,076,077,078,079,080,081,082,083,084,085,086,087,
088,089,090,091,092,093,094,095,096,097,098,099,100,
/**** [ \ ^ _ ` ****/
055,056,057,058,059,060,
/**** a to z ****/
075,076,077,078,079,080,081,082,083,084,085,086,087,
088,089,090,091,092,093,094,095,096,097,098,099,100,
/**** { | } ~ ****/
061,062,063,064,
/**** DEL ****/
101
};
lexorder(c1, c2) char c1, c2; {
return(_lex[c1] - _lex[c2]);
}
=, or > c2, based on
** ba