From 745832a280f635b26d67e2cb8d8882ac0432e5a0 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Wed, 31 Oct 2007 12:56:27 +0000
Subject: [PATCH] New actions: bell and ttyout

---
 src/checkpoint.c | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/src/checkpoint.c b/src/checkpoint.c
index 5eaaea5..cde5e59 100644
--- a/src/checkpoint.c
+++ b/src/checkpoint.c
@@ -21,7 +21,9 @@
 enum checkpoint_opcode
   {
     cop_dot,
+    cop_bell,
     cop_echo,
+    cop_ttyout,
     cop_sleep,
     cop_exec
   };
@@ -78,6 +80,8 @@ checkpoint_compile_action (const char *str)
   
   if (strcmp (str, ".") == 0 || strcmp (str, "dot") == 0)
     alloc_action (cop_dot);
+  if (strcmp (str, "bell") == 0)
+    alloc_action (cop_bell);
   else if (strcmp (str, "echo") == 0)
     alloc_action (cop_echo);
   else if (strncmp (str, "echo=", 5) == 0)
@@ -90,6 +94,11 @@ checkpoint_compile_action (const char *str)
       act = alloc_action (cop_exec);
       act->v.command = copy_string_unquote (str + 5);
     }
+  else if (strncmp (str, "ttyout=", 7) == 0)
+    {
+      act = alloc_action (cop_ttyout);
+      act->v.command = copy_string_unquote (str + 7);
+    }
   else if (strncmp (str, "sleep=", 6) == 0)
     {
       char *p;
@@ -178,7 +187,8 @@ static void
 run_checkpoint_actions (bool do_write)
 {
   struct checkpoint_action *p;
-
+  FILE *tty = NULL;
+  
   for (p = checkpoint_action; p; p = p->next)
     {
       switch (p->opcode)
@@ -187,6 +197,16 @@ run_checkpoint_actions (bool do_write)
 	  fputc ('.', stdlis);
 	  fflush (stdlis);
 	  break;
+
+	case cop_bell:
+	  if (!tty)
+	    tty = fopen ("/dev/tty", "w");
+	  if (tty)
+	    {
+	      fputc ('\a', tty);
+	      fflush (tty);
+	    }
+	  break;
 	  
 	case cop_echo:
 	  {
@@ -213,6 +233,19 @@ run_checkpoint_actions (bool do_write)
 	  }
 	  break;
 	  
+	case cop_ttyout:
+	  if (!tty)
+	    tty = fopen ("/dev/tty", "w");
+	  if (tty)
+	    {
+	      char *tmp = expand_checkpoint_string (p->v.command, do_write,
+						    checkpoint);
+	      fprintf (tty, "%s", tmp);
+	      fflush (tty);
+	      free (tmp);
+	    }
+	  break;
+	  
 	case cop_sleep:
 	  sleep (p->v.time);
 	  break;
@@ -224,6 +257,8 @@ run_checkpoint_actions (bool do_write)
 	  break;
 	}
     }
+  if (tty)
+    fclose (tty);
 }
 
 void
-- 
2.45.2