X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=blobdiff_plain;f=misc.c;h=64c05ceb1fa8c636b2b4659c33ffba8a3d85da90;hp=ba834fdffd44b84cef98268a2e2cbadc8dea63b2;hb=ba64c57eb03fabe1e8ace0ce3337ad7f562a8da5;hpb=a678b68b39f21f8b2853e45c6138d815a82a3423

diff --git a/misc.c b/misc.c
index ba834fd..64c05ce 100644
--- a/misc.c
+++ b/misc.c
@@ -50,6 +50,18 @@ void packed_to_token(long packed, char token[6])
     }
 }
 
+void token_to_packed(char token[6], long* packed)
+{
+  *packed = 0;
+  for (size_t i = 0; i < 5; ++i)
+    {
+      if (token[4 - i] == '\0')
+	continue;	
+      char mapped = ascii_to_advent[token[4 - i]];
+      *packed |= (mapped << (6 * i));
+    }
+}
+
 /* Hide the fact that wods are corrently packed longs */
 
 bool wordeq(token_t a, token_t b)