From 3a67ca151ea482e4b4ee20d6379c616b779dfb6b Mon Sep 17 00:00:00 2001
From: ken <ken@mihrtec.com>
Date: Sat, 14 Jan 2017 13:31:56 -0800
Subject: [PATCH] lexdir

---
 src/lexer.rl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/lexer.rl b/src/lexer.rl
index 821d742..23bbf32 100644
--- a/src/lexer.rl
+++ b/src/lexer.rl
@@ -11,6 +11,7 @@ void lexer_pushtok(int, YYSTYPE);
 /* Public */
 int lexer_setdirection(uint8_t*, int);
 int lexer_lexfile(const uint8_t*);
+int lexer_lexdir(const uint8_t*);
 int lexer_lexstring(const uint8_t*, int);
 int lexer_setstr(uint8_t*, int);
 //apc.c
@@ -171,6 +172,13 @@ int lexer_lexfile
   return en_main == 1;
 }
 
+int lexer_lexdir
+( uint8_t const* dirname )
+{ uint8_t const* de = dirname;
+  while (*de++);
+  return lexer_lexstring(dirname, (int)(de - dirname));
+}
+
 /**************************/
 /****Abandon All Hope******/
 /**************************/
-- 
2.18.0