date and time created 88/07/21 17:35:40 by marc

SCCS-vsn: local/toolchest/ksh/shlib/gsort.c 1.1

diff --git a/usr/src/local/toolchest/ksh/shlib/gsort.c b/usr/src/local/toolchest/ksh/shlib/gsort.c
new file mode 100644 (file)
index 0000000..c0a6e64
--- /dev/null
+++ b/usr/src/local/toolchest/ksh/shlib/gsort.c
@@ -0,0 +1,62 @@
+/*
+
+ *      Copyright (c) 1984, 1985, 1986 AT&T
+ *      All Rights Reserved
+
+ *      THIS IS UNPUBLISHED PROPRIETARY SOURCE 
+ *      CODE OF AT&T.
+ *      The copyright notice above does not 
+ *      evidence any actual or intended
+ *      publication of such source code.
+
+ */
+
+/* @(#)gsort.c 1.1 */
+
+/*
+ *  gsort - sort an array of strings
+ *
+ *   David Korn
+ *   AT&T Bell Laboratories
+ *   Room 5D-112
+ *   Murray Hill, N. J. 07974
+ *   Tel. x7975
+ *
+ *  Derived from Bourne Shell
+ */
+
+extern int strcmp();
+
+/*
+ * sort the array of strings argv with n elements
+ */
+
+void   gsort(argv,n)
+char *argv[];
+{
+       register int    i, j, m;
+       int  k;
+       for(j=1; j<=n; j*=2);
+       for(m=2*j-1; m/=2;)
+       {
+               k=n-m;
+               for(j=0; j<k; j++)
+               {
+                       for(i=j; i>=0; i-=m)
+                       {
+                               register char **ap;
+                               ap = &argv[i];
+                               if(strcmp(ap[m],ap[0])>0)
+                                       break;
+                               else
+                               {
+                                       char *s;
+                                       s=ap[m];
+                                       ap[m]=ap[0];
+                                       ap[0]=s;
+                               }
+                       }
+               }
+       }
+}
+