From ec26104cb74ad525d0883700ddc878fa71aee2b5 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Tue, 26 Jan 2016 01:38:06 +0100
Subject: allow client connections to be terminated prematurely

 * use socat now for SciTECO integration. It correctly shuts down
   the connection when interrupted.
   This has the effect as cancelling the current command, just as
   ^C would on the Applause command line.
---
 client.tes | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

(limited to 'client.tes')

diff --git a/client.tes b/client.tes
index 77db8ab..0005f54 100644
--- a/client.tes
+++ b/client.tes
@@ -1,19 +1,26 @@
+!*
+ * SciTECO Applause integration
+ *!
 
-! Applause client: Evaluate command !
-@#ae{
-  X[applause.output]
+! Send command in "applause.output". Used only internally !
+@[applause.command]{
   EQ[applause.output]
   Z\ 5-.<I > 10I
-  HECnc 127.0.0.1 10000 J
+  HECsocat -,ignoreeof TCP:127.0.0.1:10000 J
   Z"= Q*U* '
 }
 
-! Print command !
+! Evaluate command !
+@#ae{
+  X[applause.output] :M[applause.command]
+}
+
+! Show expression output !
+@#as{
+  ([applause.output]=) :X[applause.output] :M[applause.command]
+}
+
+! Play expression/stream !
 @#ap{
-  X[applause.output]
-  EQ[applause.output]
-  I= R
-  Z\ 5-.<I > 10I
-  HECnc 127.0.0.1 10000 J
-  Z"= Q*U* '
+  X[applause.output] :[applause.output]:play() :M[applause.command]
 }
-- 
cgit v1.2.3