pack: Implement write-c-string for tftp.

Ruby has hella more string directives we could implement:
https://apidock.com/ruby/Array/pack

diff --git a/basis/pack/pack.factor b/basis/pack/pack.factor
index 3007d5cb8fb93ecfa4128e15491124201dfd7445..b064ef069097bf09f01f71f218fd406546c3944d 100644 (file)
--- a/basis/pack/pack.factor
+++ b/basis/pack/pack.factor
@@ -53,6 +53,7 @@ CONSTANT: pack-table
         { CHAR: F write-float }
         { CHAR: d write-double }
         { CHAR: D write-double }
+        { CHAR: a write-c-string }
     }
 
 CONSTANT: unpack-table
@@ -71,6 +72,7 @@ CONSTANT: unpack-table
         { CHAR: F [ unsigned-endian> bits>float ] }
         { CHAR: d [ unsigned-endian> bits>double ] }
         { CHAR: D [ unsigned-endian> bits>double ] }
+        ! { CHAR: a read-c-string }
     }
 
 CONSTANT: packed-length-table