e576bb | 2002-10-11 | Martin Nilsson | |
|
aedfb1 | 2002-10-09 | Martin Nilsson | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include "global.h"
#include "lex.h"
|
362ba4 | 2004-11-01 | Martin Stjernholm | | #include "bignum.h"
|
e021fe | 2008-04-14 | Henrik Grubbström (Grubba) | | #include "pike_compiler.h"
#include "interpret.h"
|
b1f4eb | 1998-01-13 | Fredrik Hübinette (Hubbe) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #include <ctype.h>
|
79d520 | 2017-11-07 | Martin Nilsson | |
static double my_strtod(const char *nptr, char **endptr)
{
double tmp=strtod(nptr,endptr);
if(*endptr>nptr)
{
if(endptr[0][-1]=='.')
endptr[0]--;
}
return tmp;
}
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #define LEXDEBUG 0
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | | #define SHIFT 0
|
54fe96 | 2014-12-06 | Martin Nilsson | | #include "lexer.h"
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | | #undef SHIFT
#define SHIFT 1
|
54fe96 | 2014-12-06 | Martin Nilsson | | #include "lexer.h"
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | | #undef SHIFT
#define SHIFT 2
|
54fe96 | 2014-12-06 | Martin Nilsson | | #include "lexer.h"
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | | #undef SHIFT
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
8695cd | 2014-05-10 | Per Hedbor | | int parse_esc_seq_pcharp (PCHARP buf, p_wchar2 *chr, ptrdiff_t *len)
{
if(LIKELY(buf.shift == 0))
return parse_esc_seq0((void*)buf.ptr,chr,len);
if( buf.shift == 1 )
return parse_esc_seq1((void*)buf.ptr,chr,len);
return parse_esc_seq2((void*)buf.ptr,chr,len);
}
|
b1f4eb | 1998-01-13 | Fredrik Hübinette (Hubbe) | | int yylex(YYSTYPE *yylval)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | {
|
e021fe | 2008-04-14 | Henrik Grubbström (Grubba) | | struct lex *lex;
CHECK_COMPILER();
lex = &THIS_COMPILATION->lex;
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | | #if LEXDEBUG>8
fprintf(stderr, "YYLEX: Calling lexer at 0x%08lx\n",
|
e021fe | 2008-04-14 | Henrik Grubbström (Grubba) | | (long)lex->current_lexer);
|
acbf0a | 1999-02-20 | Henrik Grubbström (Grubba) | | #endif /* LEXDEBUG > 8 */
|
e021fe | 2008-04-14 | Henrik Grubbström (Grubba) | | return(lex->current_lexer(lex, yylval));
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | }
|