[6358] synch with controlled program in more cases

[Gavin D. Smith]

Revision: 6358
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6358
Author:   gavin
Date:     2015-06-23 20:14:49 +0000 (Tue, 23 Jun 2015)
Log Message:
-----------
synch with controlled program in more cases

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/info/t/Init-inter.inc
    trunk/info/t/c-u-m-x-scroll-forward.sh
    trunk/info/t/gc-split.sh
    trunk/info/t/inc-sea-forward-nonregex.sh
    trunk/info/t/inc-sea-forward.sh
    trunk/info/t/inc-sea-history.sh
    trunk/info/t/inc-sea-insensitive.sh

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2015-06-23 19:58:33 UTC (rev 6357)
+++ trunk/ChangeLog     2015-06-23 20:14:49 UTC (rev 6358)
@@ -2,6 +2,12 @@
 
        * info/t/Init-inter.inc (run_ginfo): Remove delay if PID of 
        process is unknown.
+       
+       * info/t/Init-inter.inc (synch_with_program): Add function.
+       * info/t/c-u-m-x-scroll-forward.sh, info/t/gc-split.sh,
+       info/t/inc-sea-forward-non-regex.sh, info/t/inc-sea-forward.sh,
+       info/t/inc-sea-history.sh, info/t/inc-sea-insensitive.sh: Use 
+       it.
 
 2015-06-23  Gavin Smith  <address@hidden>
 

Modified: trunk/info/t/Init-inter.inc
===================================================================
--- trunk/info/t/Init-inter.inc 2015-06-23 19:58:33 UTC (rev 6357)
+++ trunk/info/t/Init-inter.inc 2015-06-23 20:14:49 UTC (rev 6358)
@@ -161,3 +161,12 @@
     GINFO_PID=unknown
   fi
 }
+
+synch_with_program ()
+{
+  # Wait for the program to do its terminal initialization, so that
+  # bytes like C-u and C-s will not be special.
+  printf D >$PTY_TYPE
+  while test ! -f $GINFO_OUTPUT ; do sleep 1 ; done
+  rm -f $GINFO_OUTPUT
+}

Modified: trunk/info/t/c-u-m-x-scroll-forward.sh
===================================================================
--- trunk/info/t/c-u-m-x-scroll-forward.sh      2015-06-23 19:58:33 UTC (rev 
6357)
+++ trunk/info/t/c-u-m-x-scroll-forward.sh      2015-06-23 20:14:49 UTC (rev 
6358)
@@ -30,10 +30,7 @@
 
 run_ginfo -f intera -n 'Scroll four lines'
 
-# Wait for the program to do its terminal initialization, so that C-u
-# will not be special.
-printf D >$PTY_TYPE
-while test ! -f $GINFO_OUTPUT ; do sleep 1 ; done
+sync_with_program
 
 # C-u M-x scroll-forward should scroll four lines, not four screens
 printf '\025\033xscroll-forward\r' >$PTY_TYPE

Modified: trunk/info/t/gc-split.sh
===================================================================
--- trunk/info/t/gc-split.sh    2015-06-23 19:58:33 UTC (rev 6357)
+++ trunk/info/t/gc-split.sh    2015-06-23 20:14:49 UTC (rev 6358)
@@ -19,6 +19,7 @@
 . $t/Init-inter.inc
 
 run_ginfo -f split
+synch_with_program
 # Cause the garbage collector to run in a split file by cancelling an 
 # incremental search.  Refresh the screen afterwards to increase the 
 # chances of trying to access freed file contents.

Modified: trunk/info/t/inc-sea-forward-nonregex.sh
===================================================================
--- trunk/info/t/inc-sea-forward-nonregex.sh    2015-06-23 19:58:33 UTC (rev 
6357)
+++ trunk/info/t/inc-sea-forward-nonregex.sh    2015-06-23 20:14:49 UTC (rev 
6358)
@@ -19,6 +19,7 @@
 . $t/Init-inter.inc
 
 run_ginfo -f search
+synch_with_program
 
 # Turn off regular expressions, and search for "match" with incremental
 # search.  Test deleting characters from search string with backspace.  Go

Modified: trunk/info/t/inc-sea-forward.sh
===================================================================
--- trunk/info/t/inc-sea-forward.sh     2015-06-23 19:58:33 UTC (rev 6357)
+++ trunk/info/t/inc-sea-forward.sh     2015-06-23 20:14:49 UTC (rev 6358)
@@ -19,6 +19,7 @@
 . $t/Init-inter.inc
 
 run_ginfo -f search
+synch_with_program
 
 # Search for "match" with incremental search.  Test deleting characters from
 # search string with backspace.  Go forward to match in next node.  Test

Modified: trunk/info/t/inc-sea-history.sh
===================================================================
--- trunk/info/t/inc-sea-history.sh     2015-06-23 19:58:33 UTC (rev 6357)
+++ trunk/info/t/inc-sea-history.sh     2015-06-23 20:14:49 UTC (rev 6358)
@@ -19,6 +19,7 @@
 . $t/Init-inter.inc
 
 run_ginfo -f inc-sea-history
+synch_with_program
 # Check that we go back to the right node after an incremental search
 printf '\02301234\b4\b\b34\b\bqwerty\b\b\b\b\b\b34' >$PTY_TYPE
 printf '\rD' >$PTY_TYPE

Modified: trunk/info/t/inc-sea-insensitive.sh
===================================================================
--- trunk/info/t/inc-sea-insensitive.sh 2015-06-23 19:58:33 UTC (rev 6357)
+++ trunk/info/t/inc-sea-insensitive.sh 2015-06-23 20:14:49 UTC (rev 6358)
@@ -19,6 +19,7 @@
 . $t/Init-inter.inc
 
 run_ginfo -f intera -n 'Incremental search case-insensitive'
+synch_with_program
 
 # Search for "match" with incremental search, adding an upper-case character
 # to make the search case-sensitive.  Delete it and check the search goes back