screen: Introduce sort command

Signed-off-by: Thomas Renninger <address@hidden>

 comm.c       |    1 +
 doc/screen.1 |    5 +++++
 process.c    |   41 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 47 insertions(+)

Index: screen-4.0.2/comm.c
===================================================================
--- screen-4.0.2.orig/comm.c
+++ screen-4.0.2/comm.c
@@ -283,6 +283,7 @@
   { "sleep",		ARGS_1 },
   { "slowpaste",	NEED_FORE|ARGS_01 },
   { "sorendition",      ARGS_012 },
+  { "sort",		ARGS_0 },
   { "source",		ARGS_1 },
   { "split",		NEED_DISPLAY|ARGS_0 },
   { "startup_message",	ARGS_1 },
Index: screen-4.0.2/process.c
===================================================================
--- screen-4.0.2.orig/process.c
+++ screen-4.0.2/process.c
@@ -2794,6 +2794,47 @@
 	  WindowChanged((struct win *)0, 0);
 	}
       break;
+    case RC_SORT:
+      if (fore)
+        {
+	  /* Better do not allow this. Not sure what the utmp stuff in number
+	     command above is for (you get four entries in e.g. /var/log/wtmp
+	     per number switch). But I don't know enough about this.*/
+	  Msg(0, "Sorting inside a window is not allowed. Push CTRL-a \" "
+	      "and try again\n");
+	  break;
+	}
+      i = 0;
+      if (!wtab[i] || !wtab[i+1])
+        {
+	  Msg(0, "Less than two windows, sorting makes no sense.\n");
+	  break;
+	}
+      for (i = 0; wtab[i+1] != NULL; i++)
+        {
+	  for (n = i, nr = i; wtab[n+1] != NULL; n++)
+	    {
+	      if (strcmp(wtab[nr]->w_title,wtab[n+1]->w_title) > 0)
+	        {
+		  nr = n+1;
+		}
+	    }
+	  if (nr != i)
+	    {
+	      debug2("Exchange window %d and %d.\n", i, nr);
+	      p = wtab[nr];
+	      wtab[nr] = wtab[i];
+	      wtab[i] = p;
+	      wtab[nr]->w_number = nr;
+	      wtab[i]->w_number = i;
+#ifdef MULTIUSER
+	      /* exchange the acls for these windows. */
+	      AclWinSwap(i, nr);
+#endif
+	    }
+	}
+      WindowChanged((struct win *)0, 0);
+      break;
     case RC_SILENCE:
       n = fore->w_silence != 0;
       i = fore->w_silencewait;
Index: screen-4.0.2/doc/screen.1
===================================================================
--- screen-4.0.2.orig/doc/screen.1
+++ screen-4.0.2/doc/screen.1
@@ -2673,6 +2673,11 @@
 text. 
 .sp
 .ne 3
+.B sort
+.PP
+Sort the windows in alphabetical order of the window tiles.
+.sp
+.ne 3
 .BI "source " file
 .PP
 Read and execute commands from file \fIfile\fP. Source commands may