[elpa] externals/poke 224e283c86 27/76: poke.el: transmit flags in a string to poke-ios-open

[ELPA Syncer]

branch: externals/poke
commit 224e283c864afb1609adc1ee84f22d50cd7e66c2
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>

    poke.el: transmit flags in a string to poke-ios-open
---
 poke.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/poke.el b/poke.el
index f5a6028adb..a5a234ed01 100644
--- a/poke.el
+++ b/poke.el
@@ -712,7 +712,7 @@ fun plet_elval = (string s) void:
                           ;; XXX interpret flags.
                           (list ios-id (vector (number-to-string ios-id)
                                                ios-handler
-                                               (number-to-string ios-flags)
+                                               ios-flags
                                                (concat (number-to-string 
ios-size) "#B")))))
                       poke-ios-alist)))
         (setq tabulated-list-format headers)
@@ -742,8 +742,13 @@ fun poke_el_banner = void:
 
 fun poke_el_ios_open = (int<32> ios) void:
 {
-  var cmd = format (\"(poke-ios-open %i32d %v %u64d %u64d)\",
-                    ios, iohandler (ios), ioflags (ios), iosize (ios)/#B);
+  var flags = ioflags (ios);
+  var flags_str = \"\";
+
+  flags_str += flags & IOS_F_READ ? \"r\" : \" \";
+  flags_str += flags & IOS_F_WRITE ? \"w\" : \" \";
+  var cmd = format (\"(poke-ios-open %i32d %v \\\"%s\\\" %u64d)\",
+                    ios, iohandler (ios), flags_str, iosize (ios)/#B);
   plet_elval (cmd);
 }