URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 297 |
Rev 338 |
typedef struct interpreter {
|
typedef struct interpreter {
|
char Itokenbuf[256];
|
char Itokenbuf[256];
|
} PerlInterpreter;
|
} PerlInterpreter;
|
static inline void S_missingterm(char *s)
|
static inline void S_missingterm(char *s)
|
{
|
{
|
char tmpbuf[3] = "";
|
char tmpbuf[3] = "";
|
char q;
|
char q;
|
if (!s)
|
if (!s)
|
s = tmpbuf;
|
s = tmpbuf;
|
q = strchr(s,'"') ? '\'' : '"';
|
q = strchr(s,'"') ? '\'' : '"';
|
}
|
}
|
void S_scan_heredoc(PerlInterpreter *my_perl, char *s, int i)
|
void S_scan_heredoc(PerlInterpreter *my_perl, char *s, int i)
|
{
|
{
|
char term;
|
char term;
|
term = *my_perl->Itokenbuf;
|
term = *my_perl->Itokenbuf;
|
if (i)
|
if (i)
|
{
|
{
|
*s = term;
|
*s = term;
|
S_missingterm(my_perl->Itokenbuf);
|
S_missingterm(my_perl->Itokenbuf);
|
}
|
}
|
else
|
else
|
S_missingterm(my_perl->Itokenbuf);
|
S_missingterm(my_perl->Itokenbuf);
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.