26 static integer inta, intb, zcode;
59 ret_val = *(
unsigned char *)ca == *(
unsigned char *)cb;
73 inta = *(
unsigned char *)ca;
74 intb = *(
unsigned char *)cb;
76 if (zcode == 90 || zcode == 122) {
81 if (inta >= 97 && inta <= 122) {
84 if (intb >= 97 && intb <= 122) {
88 }
else if (zcode == 233 || zcode == 169) {
93 if ((inta >= 129 && inta <= 137) || (inta >= 145 && inta <= 153) || (inta
94 >= 162 && inta <= 169)) {
97 if ((intb >= 129 && intb <= 137) || (intb >= 145 && intb <= 153) || (intb
98 >= 162 && intb <= 169)) {
102 }
else if (zcode == 218 || zcode == 250) {
107 if (inta >= 225 && inta <= 250) {
110 if (intb >= 225 && intb <= 250) {
114 ret_val = inta == intb;
int logical
Definition: FLA_f2c.h:36
int integer
Definition: FLA_f2c.h:25