version 1.7, 2002/05/02 10:32:08 |
version 1.9, 2003/01/13 12:03:12 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/parse.c,v 1.6 2000/12/03 16:15:03 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/parse.c,v 1.8 2003/01/11 11:42:31 ohara Exp $ */ |
|
|
/* |
/* |
This module is a parser for OX/CMO expressions. |
This module is a parser for OX/CMO expressions. |
Line 96 static jmp_buf env_parse; |
|
Line 96 static jmp_buf env_parse; |
|
/* This is a parsing fault. */ |
/* This is a parsing fault. */ |
static void parse_error(char *s) |
static void parse_error(char *s) |
{ |
{ |
fprintf(stderr, "syntax error: %s\n", s); |
ox_printf("syntax error: %s\n", s); |
longjmp(env_parse, 1); |
longjmp(env_parse, 1); |
} |
} |
|
|
Line 711 static char *lex_quoted_string() |
|
Line 711 static char *lex_quoted_string() |
|
} |
} |
buffer[i]=c; |
buffer[i]=c; |
} |
} |
fprintf(stderr, "buffer overflow!\n"); |
ox_printf("buffer overflow!\n"); |
exit(1); |
exit(1); |
/* return NULL; */ |
/* return NULL; */ |
} |
} |
Line 724 static int token_of_symbol(char *key) |
|
Line 724 static int token_of_symbol(char *key) |
|
return symp->token; |
return symp->token; |
} |
} |
#if DEBUG |
#if DEBUG |
fprintf(stderr, "lex error:: \"%s\" is unknown symbol.\n", key); |
ox_printf("lex error:: \"%s\" is unknown symbol.\n", key); |
#endif |
#endif |
return 0; |
return 0; |
} |
} |
Line 740 static int lex_symbol() |
|
Line 740 static int lex_symbol() |
|
buffer[i]=c; |
buffer[i]=c; |
c = mygetc(); |
c = mygetc(); |
} |
} |
fprintf(stderr, "buffer overflow!\n"); |
ox_printf("buffer overflow!\n"); |
return 0; |
return 0; |
} |
} |
|
|