mirror of
https://sourceware.org/git/glibc.git
synced 2025-12-24 17:51:17 +03:00
Update.
1997-03-27 02:28 Ulrich Drepper <drepper@cygnus.com> * gmon/gmon.c (monstartup): Mark all messages. (write_call_graph): Rewrite to use larger I/O vector for writev call to reduce syscall overhead. (write_bb_counts): Simplify writev handling. * inet/rexec.c: Make string parameters `const'. * resolv/netdb.h: Add prototypes for rcmd, rexec, ruserok, and rresvport. * math/Makefile: Don't define CFLAGS-* macros to prevent inlining in libm-test. * math/libm-test.c (this_does_nothing): Remove functions. It's notuseful on any platform but ix86. (inverse_func_pair_test): Don't use this_does_nothing. Use memory reference. (identities1_test): Likewise. (identities2_test): Likewise. (identities3_test): Likewise. (basic_test): Likewise. Patch by Andreas Schwab. (BUILD_COMPLEX): New macro. Create complex number from real and imaginary parts. This works around bugs/inefficiencies in current gcc. (cexp_test): Use BUILD_COMPLEX. Add more tests. * nss/nsswitch.c: Fix typo. * posix/glob.h: Add declaration for glob_pattern_p. * posix/glob.c: Rename glob_pattern_p to __glob_pattern_p and make glob_pattern_p a weak alias. This function is used in other packages (e.g. bash). * signal/Makefile (routines): Add sigisempty, sigandset, and sigorset. * signal/signal.h: Add prototypes for sigisempty, sigandset, and sigorset. * signal/sigisempty.c: New file. * signal/sigandset.c: New file. * signal/sigorset.c: New file. * sysdeps/generic/sigset.h: Define __sigisemptyset, __sigandset, and __sigorset. * sysdeps/unix/sysv/linux/sigset.h: Likewise. * stdlib/strtod.c: Handle `n-char-sequence' in NaN parsing. It determines the bits in the mantissa part of the NaN. * stdlib/strtof.c: Define SET_MANTISSA for float type. * wcsmbs/wcstof.c: Define SET_MANTISSA for float type. * stdlib/strtold.c: Define SET_MANTISSA for long double type. * wcsmbs/wcstold.c: Define SET_MANTISSA for long double type. * sysdeps/libm-ieee754/s_cexp.c: Use explicit assignment to complex number components. Some more corrects for special cases. * sysdeps/libm-ieee754/s_cexpf.c: Likewise. * sysdeps/libm-ieee754/s_cexpl.c: Likewise. * sysdeps/sparc/elf/start.S: Remove as per request of Miguel de Icaza. * sysdeps/unix/sysv/linux/netinet/icmp.h: Remove since we have ip_icmp.h. Reported by HJ Lu. 1997-03-25 03:50 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/m68k/Makefile (CFLAGS-rtld.c): Add -Wno-unused. * sysdeps/m68k/dl-machine.h (elf_machine_rela): Rewritten as for i386. (elf_machine_lookup_noexec_p, elf_machine_lookup_noplt_p, ELF_MACHINE_RELOC_NOPLT): Define. 1997-03-25 03:48 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * grp/grp.h: Include <stddef.h> only once. 1997-03-25 09:38 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/unix/sysv/linux/termbits.h (OXTABS): Don't define. * sysdeps/unix/sysv/linux/alpha/termbits.h (OXTABS): Likewise. * termios/sys/ttydefaults.h (TTYDEF_OFLAG): Use either OXTABS or TAB3, if one of them is defined. 1997-03-26 04:53 Ulrich Drepper <drepper@cygnus.com> * posix/glob.c (next_brace_sub): Decrement depth counter when '}' is found. Patch by Dennis Henriksen <opus@flamingo.osrl.dk>. 1997-03-25 16:25 Thorsten Kukuk <kukuk@vt.uni-paderborn.de> * sunrpc/Makefile: Comment gccwarn out. * sunrpc/auth_none.c: Fix prototypes and parameters for compiling with enabled warnings. * sunrpc/auth_unix.c: Likewise. * sunrpc/authuxprot.c: Likewise. * sunrpc/bindrsvprt.c: Likewise. * sunrpc/clnt_gen.c: Likewise. * sunrpc/clnt_perr.c: Likewise. * sunrpc/clnt_raw.c: Likewise. * sunrpc/clnt_simp.c: Likewise. * sunrpc/clnt_tcp.c: Likewise. * sunrpc/clnt_udp.c: Likewise. * sunrpc/get_myaddr.c: Likewise. * sunrpc/getrpcport.c: Likewise. * sunrpc/pm_getmaps.c: Likewise. * sunrpc/pm_getport.c: Likewise. * sunrpc/pmap_clnt.c: Likewise. * sunrpc/pmap_prot.c: Likewise. * sunrpc/pmap_prot2.c: Likewise. * sunrpc/pmap_rmt.c: Likewise. * sunrpc/rpc/auth.h: Likewise. * sunrpc/rpc/clnt.h: Likewise. * sunrpc/rpc/pmap_clnt.h: Likewise. * sunrpc/rpc/svc.h: Likewise. * sunrpc/rpc/svc_auth.h: Likewise. * sunrpc/rpc/types.h: Likewise. * sunrpc/rpc/xdr.h: Likewise. * sunrpc/rpc_clntout.c: Likewise. * sunrpc/rpc_cmsg.c: Likewise. * sunrpc/rpc_dtable.c: Likewise. * sunrpc/rpc_prot.c: Likewise. * sunrpc/svc.c: Likewise. * sunrpc/svc_auth.c: Likewise. * sunrpc/svc_authux.c: Likewise. * sunrpc/svc_raw.c: Likewise. * sunrpc/svc_run.c: Likewise. * sunrpc/svc_simple.c: Likewise. * sunrpc/svc_tcp.c: Likewise. * sunrpc/svc_udp.c: Likewise. * sunrpc/xdr.c: Likewise. * sunrpc/xdr_array.c: Likewise. * sunrpc/xdr_mem.c: Likewise. * sunrpc/xdr_rec.c: Likewise. * sunrpc/xdr_ref.c: Likewise. * sunrpc/xdr_stdio.c: Likewise. 1997-03-25 13:39 Ulrich Drepper <drepper@cygnus.com> * math/libm-test.c (log2_test): Compile this function and call it. (exp2_test): Likewise, but check whether function really exists before testing. * math/Makefile (libm-calls): Add s_log2 and s_exp2. 1997-03-25 04:50 Ulrich Drepper <drepper@cygnus.com> Implement exp2 function. * sysdeps/libm-i387/s_exp2.S: New file. * sysdeps/libm-i387/s_exp2f.S: New file. * sysdeps/libm-i387/s_exp2l.S: New file. Implement log2 function. * sysdeps/libm-i387/s_log2.S: New file. * sysdeps/libm-i387/s_log2f.S: New file. * sysdeps/libm-i387/s_log2l.S: New file. * sysdeps/libm-ieee754/s_log2.c: New file. * sysdeps/libm-ieee754/s_log2f.c: New file. * sysdeps/stub/s_log2.c: New file. Stub version.
This commit is contained in:
Ulrich Drepper
@@ -31,12 +31,12 @@
|
||||
/*
|
||||
* From: @(#)rpc_scan.c 1.11 89/02/22 (C) 1987 SMI
|
||||
*/
|
||||
char scan_rcsid[] =
|
||||
char scan_rcsid[] =
|
||||
"$Id$";
|
||||
|
||||
/*
|
||||
* rpc_scan.c, Scanner for the RPC protocol compiler
|
||||
* Copyright (C) 1987, Sun Microsystems, Inc.
|
||||
* rpc_scan.c, Scanner for the RPC protocol compiler
|
||||
* Copyright (C) 1987, Sun Microsystems, Inc.
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <ctype.h>
|
||||
@@ -49,439 +49,499 @@ char scan_rcsid[] =
|
||||
#define startcomment(where) (where[0] == '/' && where[1] == '*')
|
||||
#define endcomment(where) (where[-1] == '*' && where[0] == '/')
|
||||
|
||||
static int pushed = 0; /* is a token pushed */
|
||||
static token lasttok; /* last token, if pushed */
|
||||
static int pushed = 0; /* is a token pushed */
|
||||
static token lasttok; /* last token, if pushed */
|
||||
|
||||
static void unget_token(token *tokp);
|
||||
static void findstrconst(const char **str, const char **val);
|
||||
static void findchrconst(const char **str, const char **val);
|
||||
static void findconst(const char **str, const char **val);
|
||||
static void findkind(const char **mark, token *tokp);
|
||||
static int cppline(const char *line);
|
||||
static int directive(const char *line);
|
||||
static void printdirective(const char *line);
|
||||
static void docppline(const char *line, int *lineno, const char **fname);
|
||||
static void unget_token (token * tokp);
|
||||
static void findstrconst (const char **str, const char **val);
|
||||
static void findchrconst (const char **str, const char **val);
|
||||
static void findconst (const char **str, const char **val);
|
||||
static void findkind (const char **mark, token * tokp);
|
||||
static int cppline (const char *line);
|
||||
static int directive (const char *line);
|
||||
static void printdirective (const char *line);
|
||||
static void docppline (const char *line, int *lineno, const char **fname);
|
||||
|
||||
/*
|
||||
* scan expecting 1 given token
|
||||
* scan expecting 1 given token
|
||||
*/
|
||||
void
|
||||
scan(tok_kind expect, token *tokp)
|
||||
scan (tok_kind expect, token * tokp)
|
||||
{
|
||||
get_token(tokp);
|
||||
if (tokp->kind != expect) {
|
||||
expected1(expect);
|
||||
}
|
||||
get_token (tokp);
|
||||
if (tokp->kind != expect)
|
||||
{
|
||||
expected1 (expect);
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* scan expecting any of the 2 given tokens
|
||||
* scan expecting any of the 2 given tokens
|
||||
*/
|
||||
void
|
||||
scan2(tok_kind expect1, tok_kind expect2, token *tokp)
|
||||
scan2 (tok_kind expect1, tok_kind expect2, token * tokp)
|
||||
{
|
||||
get_token(tokp);
|
||||
if (tokp->kind != expect1 && tokp->kind != expect2) {
|
||||
expected2(expect1, expect2);
|
||||
}
|
||||
get_token (tokp);
|
||||
if (tokp->kind != expect1 && tokp->kind != expect2)
|
||||
{
|
||||
expected2 (expect1, expect2);
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* scan expecting any of the 3 given token
|
||||
* scan expecting any of the 3 given token
|
||||
*/
|
||||
void
|
||||
scan3(tok_kind expect1, tok_kind expect2, tok_kind expect3, token *tokp)
|
||||
scan3 (tok_kind expect1, tok_kind expect2, tok_kind expect3, token * tokp)
|
||||
{
|
||||
get_token(tokp);
|
||||
if (tokp->kind != expect1 && tokp->kind != expect2
|
||||
&& tokp->kind != expect3) {
|
||||
expected3(expect1, expect2, expect3);
|
||||
}
|
||||
get_token (tokp);
|
||||
if (tokp->kind != expect1 && tokp->kind != expect2
|
||||
&& tokp->kind != expect3)
|
||||
{
|
||||
expected3 (expect1, expect2, expect3);
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* scan expecting a constant, possibly symbolic
|
||||
* scan expecting a constant, possibly symbolic
|
||||
*/
|
||||
void
|
||||
scan_num(token *tokp)
|
||||
scan_num (token * tokp)
|
||||
{
|
||||
get_token(tokp);
|
||||
switch (tokp->kind) {
|
||||
case TOK_IDENT:
|
||||
break;
|
||||
default:
|
||||
error("constant or identifier expected");
|
||||
}
|
||||
get_token (tokp);
|
||||
switch (tokp->kind)
|
||||
{
|
||||
case TOK_IDENT:
|
||||
break;
|
||||
default:
|
||||
error ("constant or identifier expected");
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Peek at the next token
|
||||
* Peek at the next token
|
||||
*/
|
||||
void
|
||||
peek(token *tokp)
|
||||
peek (token * tokp)
|
||||
{
|
||||
get_token(tokp);
|
||||
unget_token(tokp);
|
||||
get_token (tokp);
|
||||
unget_token (tokp);
|
||||
}
|
||||
|
||||
/*
|
||||
* Peek at the next token and scan it if it matches what you expect
|
||||
* Peek at the next token and scan it if it matches what you expect
|
||||
*/
|
||||
int
|
||||
peekscan(tok_kind expect, token *tokp)
|
||||
peekscan (tok_kind expect, token * tokp)
|
||||
{
|
||||
peek(tokp);
|
||||
if (tokp->kind == expect) {
|
||||
get_token(tokp);
|
||||
return (1);
|
||||
}
|
||||
return (0);
|
||||
peek (tokp);
|
||||
if (tokp->kind == expect)
|
||||
{
|
||||
get_token (tokp);
|
||||
return (1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
* Get the next token, printing out any directive that are encountered.
|
||||
* Get the next token, printing out any directive that are encountered.
|
||||
*/
|
||||
void
|
||||
get_token(token *tokp)
|
||||
get_token (token * tokp)
|
||||
{
|
||||
int commenting;
|
||||
int commenting;
|
||||
|
||||
if (pushed) {
|
||||
pushed = 0;
|
||||
*tokp = lasttok;
|
||||
return;
|
||||
}
|
||||
commenting = 0;
|
||||
for (;;) {
|
||||
if (*where == 0) {
|
||||
for (;;) {
|
||||
if (!fgets(curline, MAXLINESIZE, fin)) {
|
||||
tokp->kind = TOK_EOF;
|
||||
*curline = 0;
|
||||
where = curline;
|
||||
return;
|
||||
}
|
||||
linenum++;
|
||||
if (commenting) {
|
||||
break;
|
||||
} else if (cppline(curline)) {
|
||||
docppline(curline, &linenum,
|
||||
&infilename);
|
||||
} else if (directive(curline)) {
|
||||
printdirective(curline);
|
||||
} else {
|
||||
break;
|
||||
}
|
||||
}
|
||||
where = curline;
|
||||
} else if (isspace(*where)) {
|
||||
while (isspace(*where)) {
|
||||
where++; /* eat */
|
||||
}
|
||||
} else if (commenting) {
|
||||
for (where++; *where; where++) {
|
||||
if (endcomment(where)) {
|
||||
where++;
|
||||
commenting--;
|
||||
break;
|
||||
}
|
||||
}
|
||||
} else if (startcomment(where)) {
|
||||
where += 2;
|
||||
commenting++;
|
||||
} else {
|
||||
break;
|
||||
if (pushed)
|
||||
{
|
||||
pushed = 0;
|
||||
*tokp = lasttok;
|
||||
return;
|
||||
}
|
||||
commenting = 0;
|
||||
for (;;)
|
||||
{
|
||||
if (*where == 0)
|
||||
{
|
||||
for (;;)
|
||||
{
|
||||
if (!fgets (curline, MAXLINESIZE, fin))
|
||||
{
|
||||
tokp->kind = TOK_EOF;
|
||||
*curline = 0;
|
||||
where = curline;
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* 'where' is not whitespace, comment or directive Must be a token!
|
||||
*/
|
||||
switch (*where) {
|
||||
case ':':
|
||||
tokp->kind = TOK_COLON;
|
||||
where++;
|
||||
break;
|
||||
case ';':
|
||||
tokp->kind = TOK_SEMICOLON;
|
||||
where++;
|
||||
break;
|
||||
case ',':
|
||||
tokp->kind = TOK_COMMA;
|
||||
where++;
|
||||
break;
|
||||
case '=':
|
||||
tokp->kind = TOK_EQUAL;
|
||||
where++;
|
||||
break;
|
||||
case '*':
|
||||
tokp->kind = TOK_STAR;
|
||||
where++;
|
||||
break;
|
||||
case '[':
|
||||
tokp->kind = TOK_LBRACKET;
|
||||
where++;
|
||||
break;
|
||||
case ']':
|
||||
tokp->kind = TOK_RBRACKET;
|
||||
where++;
|
||||
break;
|
||||
case '{':
|
||||
tokp->kind = TOK_LBRACE;
|
||||
where++;
|
||||
break;
|
||||
case '}':
|
||||
tokp->kind = TOK_RBRACE;
|
||||
where++;
|
||||
break;
|
||||
case '(':
|
||||
tokp->kind = TOK_LPAREN;
|
||||
where++;
|
||||
break;
|
||||
case ')':
|
||||
tokp->kind = TOK_RPAREN;
|
||||
where++;
|
||||
break;
|
||||
case '<':
|
||||
tokp->kind = TOK_LANGLE;
|
||||
where++;
|
||||
break;
|
||||
case '>':
|
||||
tokp->kind = TOK_RANGLE;
|
||||
where++;
|
||||
break;
|
||||
|
||||
case '"':
|
||||
tokp->kind = TOK_STRCONST;
|
||||
findstrconst(&where, &tokp->str);
|
||||
break;
|
||||
case '\'':
|
||||
tokp->kind = TOK_CHARCONST;
|
||||
findchrconst(&where, &tokp->str);
|
||||
break;
|
||||
|
||||
case '-':
|
||||
case '0':
|
||||
case '1':
|
||||
case '2':
|
||||
case '3':
|
||||
case '4':
|
||||
case '5':
|
||||
case '6':
|
||||
case '7':
|
||||
case '8':
|
||||
case '9':
|
||||
tokp->kind = TOK_IDENT;
|
||||
findconst(&where, &tokp->str);
|
||||
break;
|
||||
|
||||
default:
|
||||
if (!(isalpha(*where) || *where == '_')) {
|
||||
char buf[100];
|
||||
char *p;
|
||||
|
||||
s_print(buf, "illegal character in file: ");
|
||||
p = buf + strlen(buf);
|
||||
if (isprint(*where)) {
|
||||
s_print(p, "%c", *where);
|
||||
} else {
|
||||
s_print(p, "%d", *where);
|
||||
}
|
||||
error(buf);
|
||||
linenum++;
|
||||
if (commenting)
|
||||
{
|
||||
break;
|
||||
}
|
||||
findkind(&where, tokp);
|
||||
break;
|
||||
else if (cppline (curline))
|
||||
{
|
||||
docppline (curline, &linenum,
|
||||
&infilename);
|
||||
}
|
||||
else if (directive (curline))
|
||||
{
|
||||
printdirective (curline);
|
||||
}
|
||||
else
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
where = curline;
|
||||
}
|
||||
else if (isspace (*where))
|
||||
{
|
||||
while (isspace (*where))
|
||||
{
|
||||
where++; /* eat */
|
||||
}
|
||||
}
|
||||
else if (commenting)
|
||||
{
|
||||
for (where++; *where; where++)
|
||||
{
|
||||
if (endcomment (where))
|
||||
{
|
||||
where++;
|
||||
commenting--;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
else if (startcomment (where))
|
||||
{
|
||||
where += 2;
|
||||
commenting++;
|
||||
}
|
||||
else
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* 'where' is not whitespace, comment or directive Must be a token!
|
||||
*/
|
||||
switch (*where)
|
||||
{
|
||||
case ':':
|
||||
tokp->kind = TOK_COLON;
|
||||
where++;
|
||||
break;
|
||||
case ';':
|
||||
tokp->kind = TOK_SEMICOLON;
|
||||
where++;
|
||||
break;
|
||||
case ',':
|
||||
tokp->kind = TOK_COMMA;
|
||||
where++;
|
||||
break;
|
||||
case '=':
|
||||
tokp->kind = TOK_EQUAL;
|
||||
where++;
|
||||
break;
|
||||
case '*':
|
||||
tokp->kind = TOK_STAR;
|
||||
where++;
|
||||
break;
|
||||
case '[':
|
||||
tokp->kind = TOK_LBRACKET;
|
||||
where++;
|
||||
break;
|
||||
case ']':
|
||||
tokp->kind = TOK_RBRACKET;
|
||||
where++;
|
||||
break;
|
||||
case '{':
|
||||
tokp->kind = TOK_LBRACE;
|
||||
where++;
|
||||
break;
|
||||
case '}':
|
||||
tokp->kind = TOK_RBRACE;
|
||||
where++;
|
||||
break;
|
||||
case '(':
|
||||
tokp->kind = TOK_LPAREN;
|
||||
where++;
|
||||
break;
|
||||
case ')':
|
||||
tokp->kind = TOK_RPAREN;
|
||||
where++;
|
||||
break;
|
||||
case '<':
|
||||
tokp->kind = TOK_LANGLE;
|
||||
where++;
|
||||
break;
|
||||
case '>':
|
||||
tokp->kind = TOK_RANGLE;
|
||||
where++;
|
||||
break;
|
||||
|
||||
case '"':
|
||||
tokp->kind = TOK_STRCONST;
|
||||
findstrconst (&where, &tokp->str);
|
||||
break;
|
||||
case '\'':
|
||||
tokp->kind = TOK_CHARCONST;
|
||||
findchrconst (&where, &tokp->str);
|
||||
break;
|
||||
|
||||
case '-':
|
||||
case '0':
|
||||
case '1':
|
||||
case '2':
|
||||
case '3':
|
||||
case '4':
|
||||
case '5':
|
||||
case '6':
|
||||
case '7':
|
||||
case '8':
|
||||
case '9':
|
||||
tokp->kind = TOK_IDENT;
|
||||
findconst (&where, &tokp->str);
|
||||
break;
|
||||
|
||||
default:
|
||||
if (!(isalpha (*where) || *where == '_'))
|
||||
{
|
||||
char buf[100];
|
||||
char *p;
|
||||
|
||||
s_print (buf, _("illegal character in file: "));
|
||||
p = buf + strlen (buf);
|
||||
if (isprint (*where))
|
||||
{
|
||||
s_print (p, "%c", *where);
|
||||
}
|
||||
else
|
||||
{
|
||||
s_print (p, "%d", *where);
|
||||
}
|
||||
error (buf);
|
||||
}
|
||||
findkind (&where, tokp);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
unget_token(token *tokp)
|
||||
unget_token (token * tokp)
|
||||
{
|
||||
lasttok = *tokp;
|
||||
pushed = 1;
|
||||
lasttok = *tokp;
|
||||
pushed = 1;
|
||||
}
|
||||
|
||||
static void
|
||||
findstrconst(const char **str, const char **val)
|
||||
findstrconst (const char **str, const char **val)
|
||||
{
|
||||
const char *p;
|
||||
char *tmp;
|
||||
int size;
|
||||
const char *p;
|
||||
char *tmp;
|
||||
int size;
|
||||
|
||||
p = *str;
|
||||
do {
|
||||
p++;
|
||||
} while (*p && *p != '"');
|
||||
if (*p == 0) {
|
||||
error("unterminated string constant");
|
||||
}
|
||||
p++;
|
||||
size = p - *str;
|
||||
tmp = alloc(size + 1);
|
||||
strncpy(tmp, *str, size);
|
||||
tmp[size] = 0;
|
||||
*val = tmp;
|
||||
*str = p;
|
||||
p = *str;
|
||||
do
|
||||
{
|
||||
p++;
|
||||
}
|
||||
while (*p && *p != '"');
|
||||
if (*p == 0)
|
||||
{
|
||||
error (_("unterminated string constant"));
|
||||
}
|
||||
p++;
|
||||
size = p - *str;
|
||||
tmp = alloc (size + 1);
|
||||
strncpy (tmp, *str, size);
|
||||
tmp[size] = 0;
|
||||
*val = tmp;
|
||||
*str = p;
|
||||
}
|
||||
|
||||
static void
|
||||
findchrconst(const char **str, const char **val)
|
||||
findchrconst (const char **str, const char **val)
|
||||
{
|
||||
const char *p;
|
||||
char *tmp;
|
||||
int size;
|
||||
const char *p;
|
||||
char *tmp;
|
||||
int size;
|
||||
|
||||
p = *str;
|
||||
do {
|
||||
p++;
|
||||
} while (*p && *p != '\'');
|
||||
if (*p == 0) {
|
||||
error("unterminated string constant");
|
||||
}
|
||||
p++;
|
||||
size = p - *str;
|
||||
if (size != 3) {
|
||||
error("empty char string");
|
||||
}
|
||||
tmp = alloc(size + 1);
|
||||
strncpy(tmp, *str, size);
|
||||
tmp[size] = 0;
|
||||
*val = tmp;
|
||||
*str = p;
|
||||
p = *str;
|
||||
do
|
||||
{
|
||||
p++;
|
||||
}
|
||||
while (*p && *p != '\'');
|
||||
if (*p == 0)
|
||||
{
|
||||
error (_("unterminated string constant"));
|
||||
}
|
||||
p++;
|
||||
size = p - *str;
|
||||
if (size != 3)
|
||||
{
|
||||
error (_("empty char string"));
|
||||
}
|
||||
tmp = alloc (size + 1);
|
||||
strncpy (tmp, *str, size);
|
||||
tmp[size] = 0;
|
||||
*val = tmp;
|
||||
*str = p;
|
||||
}
|
||||
|
||||
static void
|
||||
findconst(const char **str, const char **val)
|
||||
findconst (const char **str, const char **val)
|
||||
{
|
||||
const char *p;
|
||||
char *tmp;
|
||||
int size;
|
||||
const char *p;
|
||||
char *tmp;
|
||||
int size;
|
||||
|
||||
p = *str;
|
||||
if (*p == '0' && *(p + 1) == 'x') {
|
||||
p++;
|
||||
do {
|
||||
p++;
|
||||
} while (isxdigit(*p));
|
||||
} else {
|
||||
do {
|
||||
p++;
|
||||
} while (isdigit(*p));
|
||||
p = *str;
|
||||
if (*p == '0' && *(p + 1) == 'x')
|
||||
{
|
||||
p++;
|
||||
do
|
||||
{
|
||||
p++;
|
||||
}
|
||||
size = p - *str;
|
||||
tmp = alloc(size + 1);
|
||||
strncpy(tmp, *str, size);
|
||||
tmp[size] = 0;
|
||||
*val = tmp;
|
||||
*str = p;
|
||||
while (isxdigit (*p));
|
||||
}
|
||||
else
|
||||
{
|
||||
do
|
||||
{
|
||||
p++;
|
||||
}
|
||||
while (isdigit (*p));
|
||||
}
|
||||
size = p - *str;
|
||||
tmp = alloc (size + 1);
|
||||
strncpy (tmp, *str, size);
|
||||
tmp[size] = 0;
|
||||
*val = tmp;
|
||||
*str = p;
|
||||
}
|
||||
|
||||
static token symbols[] = {
|
||||
{TOK_CONST, "const"},
|
||||
{TOK_UNION, "union"},
|
||||
{TOK_SWITCH, "switch"},
|
||||
{TOK_CASE, "case"},
|
||||
{TOK_DEFAULT, "default"},
|
||||
{TOK_STRUCT, "struct"},
|
||||
{TOK_TYPEDEF, "typedef"},
|
||||
{TOK_ENUM, "enum"},
|
||||
{TOK_OPAQUE, "opaque"},
|
||||
{TOK_BOOL, "bool"},
|
||||
{TOK_VOID, "void"},
|
||||
{TOK_CHAR, "char"},
|
||||
{TOK_INT, "int"},
|
||||
{TOK_UNSIGNED, "unsigned"},
|
||||
{TOK_SHORT, "short"},
|
||||
{TOK_LONG, "long"},
|
||||
{TOK_FLOAT, "float"},
|
||||
{TOK_DOUBLE, "double"},
|
||||
{TOK_STRING, "string"},
|
||||
{TOK_PROGRAM, "program"},
|
||||
{TOK_VERSION, "version"},
|
||||
{TOK_EOF, "??????"},
|
||||
static const token symbols[] =
|
||||
{
|
||||
{TOK_CONST, "const"},
|
||||
{TOK_UNION, "union"},
|
||||
{TOK_SWITCH, "switch"},
|
||||
{TOK_CASE, "case"},
|
||||
{TOK_DEFAULT, "default"},
|
||||
{TOK_STRUCT, "struct"},
|
||||
{TOK_TYPEDEF, "typedef"},
|
||||
{TOK_ENUM, "enum"},
|
||||
{TOK_OPAQUE, "opaque"},
|
||||
{TOK_BOOL, "bool"},
|
||||
{TOK_VOID, "void"},
|
||||
{TOK_CHAR, "char"},
|
||||
{TOK_INT, "int"},
|
||||
{TOK_UNSIGNED, "unsigned"},
|
||||
{TOK_SHORT, "short"},
|
||||
{TOK_LONG, "long"},
|
||||
{TOK_FLOAT, "float"},
|
||||
{TOK_DOUBLE, "double"},
|
||||
{TOK_STRING, "string"},
|
||||
{TOK_PROGRAM, "program"},
|
||||
{TOK_VERSION, "version"},
|
||||
{TOK_EOF, "??????"},
|
||||
};
|
||||
|
||||
static void
|
||||
findkind(const char **mark, token *tokp)
|
||||
findkind (const char **mark, token * tokp)
|
||||
{
|
||||
int len;
|
||||
token *s;
|
||||
const char *str;
|
||||
char *tmp;
|
||||
int len;
|
||||
token *s;
|
||||
const char *str;
|
||||
char *tmp;
|
||||
|
||||
str = *mark;
|
||||
for (s = symbols; s->kind != TOK_EOF; s++) {
|
||||
len = strlen(s->str);
|
||||
if (strncmp(str, s->str, len) == 0) {
|
||||
if (!isalnum(str[len]) && str[len] != '_') {
|
||||
tokp->kind = s->kind;
|
||||
tokp->str = s->str;
|
||||
*mark = str + len;
|
||||
return;
|
||||
}
|
||||
}
|
||||
str = *mark;
|
||||
for (s = symbols; s->kind != TOK_EOF; s++)
|
||||
{
|
||||
len = strlen (s->str);
|
||||
if (strncmp (str, s->str, len) == 0)
|
||||
{
|
||||
if (!isalnum (str[len]) && str[len] != '_')
|
||||
{
|
||||
tokp->kind = s->kind;
|
||||
tokp->str = s->str;
|
||||
*mark = str + len;
|
||||
return;
|
||||
}
|
||||
}
|
||||
tokp->kind = TOK_IDENT;
|
||||
for (len = 0; isalnum(str[len]) || str[len] == '_'; len++);
|
||||
tmp = alloc(len + 1);
|
||||
strncpy(tmp, str, len);
|
||||
tmp[len] = 0;
|
||||
tokp->str = tmp;
|
||||
*mark = str + len;
|
||||
}
|
||||
tokp->kind = TOK_IDENT;
|
||||
for (len = 0; isalnum (str[len]) || str[len] == '_'; len++);
|
||||
tmp = alloc (len + 1);
|
||||
strncpy (tmp, str, len);
|
||||
tmp[len] = 0;
|
||||
tokp->str = tmp;
|
||||
*mark = str + len;
|
||||
}
|
||||
|
||||
static int
|
||||
cppline(const char *line)
|
||||
cppline (const char *line)
|
||||
{
|
||||
return (line == curline && *line == '#');
|
||||
return line == curline && *line == '#';
|
||||
}
|
||||
|
||||
static int
|
||||
directive(const char *line)
|
||||
directive (const char *line)
|
||||
{
|
||||
return (line == curline && *line == '%');
|
||||
return line == curline && *line == '%';
|
||||
}
|
||||
|
||||
static void
|
||||
printdirective(const char *line)
|
||||
printdirective (const char *line)
|
||||
{
|
||||
f_print(fout, "%s", line + 1);
|
||||
f_print (fout, "%s", line + 1);
|
||||
}
|
||||
|
||||
static void
|
||||
docppline(const char *line, int *lineno, const char **fname)
|
||||
docppline (const char *line, int *lineno, const char **fname)
|
||||
{
|
||||
char *file;
|
||||
int num;
|
||||
char *p;
|
||||
char *file;
|
||||
int num;
|
||||
char *p;
|
||||
|
||||
line++;
|
||||
while (isspace(*line)) {
|
||||
line++;
|
||||
}
|
||||
num = atoi(line);
|
||||
while (isdigit(*line)) {
|
||||
line++;
|
||||
}
|
||||
while (isspace(*line)) {
|
||||
line++;
|
||||
}
|
||||
if (*line != '"') {
|
||||
error("preprocessor error");
|
||||
}
|
||||
line++;
|
||||
p = file = alloc(strlen(line) + 1);
|
||||
while (*line && *line != '"') {
|
||||
*p++ = *line++;
|
||||
}
|
||||
if (*line == 0) {
|
||||
error("preprocessor error");
|
||||
}
|
||||
*p = 0;
|
||||
if (*file == 0) {
|
||||
*fname = NULL;
|
||||
} else {
|
||||
*fname = file;
|
||||
}
|
||||
*lineno = num - 1;
|
||||
line++;
|
||||
while (isspace (*line))
|
||||
{
|
||||
line++;
|
||||
}
|
||||
num = atoi (line);
|
||||
while (isdigit (*line))
|
||||
{
|
||||
line++;
|
||||
}
|
||||
while (isspace (*line))
|
||||
{
|
||||
line++;
|
||||
}
|
||||
if (*line != '"')
|
||||
{
|
||||
error (_("preprocessor error"));
|
||||
}
|
||||
line++;
|
||||
p = file = alloc (strlen (line) + 1);
|
||||
while (*line && *line != '"')
|
||||
{
|
||||
*p++ = *line++;
|
||||
}
|
||||
if (*line == 0)
|
||||
{
|
||||
error (_("preprocessor error"));
|
||||
}
|
||||
*p = 0;
|
||||
if (*file == 0)
|
||||
{
|
||||
*fname = NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
*fname = file;
|
||||
}
|
||||
*lineno = num - 1;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user