/*
- * Copyright (C) 2012, 2013
+ * Copyright (C) 2012, 2013, 2014
* Wolfgang Bumiller
*
* Permission is hereby granted, free of charge, to any person obtaining a copy of
return (lex->tok.ttype = TOKEN_OPERATOR);
}
+ /* length operator */
+ if (ch == 'l') {
+ if ((nextch = lex_getch(lex)) == 'e') {
+ if ((nextch = lex_getch(lex)) == 'n') {
+ if ((nextch = lex_getch(lex)) == 'g') {
+ if ((nextch = lex_getch(lex)) == 't') {
+ if ((nextch = lex_getch(lex)) == 'h') {
+ lex_tokench(lex, 'l');
+ lex_tokench(lex, 'e');
+ lex_tokench(lex, 'n');
+ lex_tokench(lex, 'g');
+ lex_tokench(lex, 't');
+ lex_tokench(lex, 'h');
+ lex_endtoken(lex);
+ return (lex->tok.ttype = TOKEN_OPERATOR);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ }
+
if (isident_start(ch))
{
const char *v;