guix: syscalls: Add terminal-string-width.

* guix/build/syscalls.scm (terminal-width): New procedure.
* tests/syscalls.scm: Add tests.

Change-Id: I6c2caa9fbaffb1e8f4b8933103399be970d5a8f3

1 files changed, 15 insertions, 0 deletions

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index b845b8aab9..b29b6f78b6 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -192,6 +192,7 @@
             terminal-window-size
             terminal-columns
             terminal-rows
+            terminal-string-width
             openpty
             login-tty
 
@@ -2336,6 +2337,20 @@ PORT, trying to guess a reasonable value if all else fails.  The result is
 always a positive integer."
   (terminal-dimension window-size-rows port (const 25)))
 
+(define terminal-string-width
+  (let ((mbstowcs (syscall->procedure int "mbstowcs" (list '* '* size_t)))
+        (wcswidth (syscall->procedure int "wcswidth" (list '* size_t))))
+    (lambda (str)
+      "Return the width of a string as it would be printed on the terminal.
+This procedure accounts for characters that have a different width than 1, such
+as CJK double-width characters."
+      (let ((wchar (make-bytevector (* (+ (string-length str) 1) 4))))
+        (mbstowcs (bytevector->pointer wchar)
+                  (string->pointer str)
+                  (string-length str))
+        (wcswidth (bytevector->pointer wchar)
+                  (string-length str))))))
+
 (define openpty
   (let ((proc (syscall->procedure int "openpty" '(* * * * *)
                                   #:library "libutil")))