[COMMITTED] poked: Send class info to pokelets (OUT_OUT and OUT_CMD chans)

[Mohammad-Reza Nabipoor]

2022-03-11  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * poked/poked.c (OUTKIND_CLS_BEGIN): New macro.
        (OUTKIND_CLS_END): Likewise.
        (tif_class): Send class data to pokelets (OUT_OUT and OUT_CMD chans).
        (tif_class_end): Likewise.
---
 ChangeLog     |  7 +++++++
 poked/poked.c | 18 ++++++++++++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index db2ba25e..d43a2fdd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-03-11  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
+
+       * poked/poked.c (OUTKIND_CLS_BEGIN): New macro.
+       (OUTKIND_CLS_END): Likewise.
+       (tif_class): Send class data to pokelets (OUT_OUT and OUT_CMD chans).
+       (tif_class_end): Likewise.
+
 2022-03-11  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
 
        * poked/poked.pk (chan_send): Remove length prefix. Adding length
diff --git a/poked/poked.c b/poked/poked.c
index cd6463da..912cd87d 100644
--- a/poked/poked.c
+++ b/poked/poked.c
@@ -42,6 +42,8 @@ static void poked_free (void);
 #define OUTKIND_ITER_BEGIN 1
 #define OUTKIND_TXT 2
 #define OUTKIND_ITER_END 3
+#define OUTKIND_CLS_BEGIN 4
+#define OUTKIND_CLS_END 5
 
 #define VUKIND_CLEAR 1
 #define VUKIND_APPEND 2
@@ -330,12 +332,24 @@ tif_indent (unsigned int level, unsigned int step)
 static void
 tif_class (const char *name)
 {
-  (void)name;
+  switch (termout_chan) {
+    case USOCK_CHAN_OUT_OUT:
+    case USOCK_CHAN_OUT_CMD:
+      usock_out (srv, OUTKIND_CLS_BEGIN, termout_chan,
+                 name, strlen (name) + 1);
+      break;
+  }
 }
 static int
 tif_class_end (const char *name)
 {
-  (void)name;
+  switch (termout_chan) {
+    case USOCK_CHAN_OUT_OUT:
+    case USOCK_CHAN_OUT_CMD:
+      usock_out (srv, OUTKIND_CLS_END, termout_chan,
+                 name, strlen (name) + 1);
+      break;
+  }
   return 1;
 }
 static void
-- 
2.35.1