4 extern integer
s_cmp();
5 shortlogical
hl_le(a
,b
,la
,lb
) char *a
, *b
; ftnlen la
, lb
;
7 extern integer
s_cmp(char *, char *, ftnlen
, ftnlen
);
8 shortlogical
hl_le(char *a
, char *b
, ftnlen la
, ftnlen lb
)
11 return(s_cmp(a
,b
,la
,lb
) <= 0);
