int
getentries_readdir(struct pbuf *pbuf, int *cookie)
{
void *old_arg_0 = pbuf->arg[0];
int tmp = 1;
int count = 0;
int fileid;
getfrombuf(pbuf, (char*) &tmp, sizeof(tmp));
debug("Got entry: %d\n", tmp);
while(tmp) {
getfrombuf(pbuf, (char*) &fileid, sizeof(fileid));
skipstring(pbuf);
debug("Skipped string\n");
getfrombuf(pbuf, (char*) cookie, sizeof(int));
debug("Skipped string %d\n", *cookie);
count++;
getfrombuf(pbuf, (char*) &tmp, sizeof(tmp));
}
getfrombuf(pbuf, (char*) &tmp, sizeof(tmp));
if (tmp == 0)
cookie = 0;
pbuf->arg[0] = old_arg_0;
debug("Returning: %d\n", count);
return count;
}
int
pari_lex(union token_value *yylval, struct node_loc *yylloc, char **lex)
{
(void) yylval;
yylloc->start=*lex;
if (!**lex)
{
yylloc->end=*lex;
return 0;
}
if (isalpha((int)**lex))
{
while (is_keyword_char(**lex)) ++*lex;
yylloc->end=*lex;
return KENTRY;
}
if (**lex=='"')
{
++*lex;
skipstring(lex);
if (!**lex)
compile_err("run-away string",*lex-1);
++*lex;
yylloc->end=*lex;
return KSTRING;
}
if (**lex == '.')
{
int token;
if ((*lex)[1]== '.')
{
*lex+=2; yylloc->end = *lex; return KDOTDOT;
}
token=skipconstante(lex);
if (token==KREAL)
{
yylloc->end = *lex;
return token;
}
++*lex;
yylloc->end=*lex;
return '.';
}
if (isbin((const char**)lex))
{
while (**lex=='0' || **lex=='1') ++*lex;
return KINTEGER;
}
if (ishex((const char**)lex))
{
while (isxdigit((int)**lex)) ++*lex;
return KINTEGER;
}
if (isdigit((int)**lex))
{
int token=skipconstante(lex);
yylloc->end = *lex;
return token;
}
if ((*lex)[1]=='=')
switch (**lex)
{
case '=':
if ((*lex)[2]=='=')
{ *lex+=3; yylloc->end = *lex; return KID; }
else
{ *lex+=2; yylloc->end = *lex; return KEQ; }
case '>':
*lex+=2; yylloc->end = *lex; return KGE;
case '<':
*lex+=2; yylloc->end = *lex; return KLE;
case '*':
*lex+=2; yylloc->end = *lex; return KME;
case '/':
*lex+=2; yylloc->end = *lex; return KDE;
case '%':
if ((*lex)[2]=='=') break;
*lex+=2; yylloc->end = *lex; return KMODE;
case '!':
if ((*lex)[2]=='=') break;
*lex+=2; yylloc->end = *lex; return KNE;
case '\\':
*lex+=2; yylloc->end = *lex; return KEUCE;
case '+':
*lex+=2; yylloc->end = *lex; return KPE;
case '-':
*lex+=2; yylloc->end = *lex; return KSE;
}
if (**lex==')' && (*lex)[1]=='-' && (*lex)[2]=='>')
{
*lex+=3; yylloc->end = *lex; return KPARROW;
}
if (**lex=='-' && (*lex)[1]=='>')
{
*lex+=2; yylloc->end = *lex; return KARROW;
}
if (**lex=='<' && (*lex)[1]=='>')
{
*lex+=2; yylloc->end = *lex; return KNE;
}
if (**lex=='\\' && (*lex)[1]=='/')
switch((*lex)[2])
{
case '=':
*lex+=3; yylloc->end = *lex; return KDRE;
default:
*lex+=2; yylloc->end = *lex; return KDR;
}
if ((*lex)[1]==**lex)
switch (**lex)
{
case '&':
*lex+=2; yylloc->end = *lex; return KAND;
case '|':
*lex+=2; yylloc->end = *lex; return KOR;
case '+':
*lex+=2; yylloc->end = *lex; return KPP;
case '-':
*lex+=2; yylloc->end = *lex; return KSS;
case '>':
if ((*lex)[2]=='=') { *lex+=3; yylloc->end = *lex; return KSRE;}
*lex+=2; yylloc->end = *lex; return KSR;
case '<':
if ((*lex)[2]=='=')
{ *lex+=3; yylloc->end = *lex; return KSLE; }
*lex+=2; yylloc->end = *lex; return KSL;
}
yylloc->end = *lex+1;
return (unsigned char) *(*lex)++;
}
