/* 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
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******/
/**************************/