last_period = NULL;
for (iter = filename; *iter; iter++)
if (*iter == '.')
last_period = iter;
if (last_period)
{ ntok = lexer_lexstring(filename, (int)(last_period - filename));
last_period = NULL;
for (iter = filename; *iter; iter++)
if (*iter == '.')
last_period = iter;
if (last_period)
{ ntok = lexer_lexstring(filename, (int)(last_period - filename));