* USE OR PERFORMANCE OF THIS SOFTWARE.
*
*/
+/**
+ * \file ccltoken.c
+ * \brief Implements CCL lexical analyzer (scanner)
+ */
/* CCL - lexical analysis
* Europagate, 1995
*
- * $Id: ccltoken.c,v 1.4 2004-10-02 13:28:26 adam Exp $
+ * $Id: ccltoken.c,v 1.6 2005-03-15 16:32:52 adam Exp $
*
* Old Europagate Log:
*
while (1)
{
+ const unsigned char *cp0 = cp;
while (*cp && strchr (" \t\r\n", *cp))
{
cp++;
last->next->prev = last;
last = last->next;
}
+ last->ws_prefix_buf = cp0;
+ last->ws_prefix_len = cp - cp0;
last->next = NULL;
last->name = (const char *) cp;
last->len = 1;