1*47940Sbostic /*-
2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic * All rights reserved.
422919Skre *
5*47940Sbostic * %sccs.include.proprietary.c%
610506Sdlw */
710506Sdlw
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)l_gt.c 5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic
l_gt(a,b,la,lb)1210506Sdlw long int l_gt(a,b,la,lb)
1310506Sdlw char *a, *b;
1410506Sdlw long int la, lb;
1510506Sdlw {
1610506Sdlw return(s_cmp(a,b,la,lb) > 0);
1710506Sdlw }
18