#define YYBISON 1
#define YYSKELETON_NAME "yacc.c"
#define YYPURE 0
#define YYLSP_NEEDED 0
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
enum yytokentype {
CHECK = 258,
CODESTART = 259,
COPYRIGHT = 260,
CUSTOM = 261,
DATE = 262,
DEBUG = 263,
DESCRIPTION = 264,
EXIT = 265,
EXPORT = 266,
FLAG_ON = 267,
FLAG_OFF = 268,
FULLMAP = 269,
HELP = 270,
IMPORT = 271,
INPUT = 272,
MAP = 273,
MESSAGES = 274,
MODULE = 275,
MULTIPLE = 276,
OS_DOMAIN = 277,
OUTPUT = 278,
PSEUDOPREEMPTION = 279,
REENTRANT = 280,
SCREENNAME = 281,
SHARELIB = 282,
STACK = 283,
START = 284,
SYNCHRONIZE = 285,
THREADNAME = 286,
TYPE = 287,
VERBOSE = 288,
VERSIONK = 289,
XDCDATA = 290,
STRING = 291,
QUOTED_STRING = 292
};
#endif
#define CHECK 258
#define CODESTART 259
#define COPYRIGHT 260
#define CUSTOM 261
#define DATE 262
#define DEBUG 263
#define DESCRIPTION 264
#define EXIT 265
#define EXPORT 266
#define FLAG_ON 267
#define FLAG_OFF 268
#define FULLMAP 269
#define HELP 270
#define IMPORT 271
#define INPUT 272
#define MAP 273
#define MESSAGES 274
#define MODULE 275
#define MULTIPLE 276
#define OS_DOMAIN 277
#define OUTPUT 278
#define PSEUDOPREEMPTION 279
#define REENTRANT 280
#define SCREENNAME 281
#define SHARELIB 282
#define STACK 283
#define START 284
#define SYNCHRONIZE 285
#define THREADNAME 286
#define TYPE 287
#define VERBOSE 288
#define VERSIONK 289
#define XDCDATA 290
#define STRING 291
#define QUOTED_STRING 292
#line 1 "nlmheader.y"
#include "ansidecl.h"
#include <stdio.h>
#include "safe-ctype.h"
#include "bfd.h"
#include "bucomm.h"
#include "nlm/common.h"
#include "nlm/internal.h"
#include "nlmconv.h"
Nlm_Internal_Fixed_Header *fixed_hdr;
Nlm_Internal_Variable_Header *var_hdr;
Nlm_Internal_Version_Header *version_hdr;
Nlm_Internal_Copyright_Header *copyright_hdr;
Nlm_Internal_Extended_Header *extended_hdr;
char *check_procedure;
char *custom_file;
bfd_boolean debug_info;
char *exit_procedure;
struct string_list *export_symbols;
struct string_list *input_files;
char *map_file;
bfd_boolean full_map;
char *help_file;
struct string_list *import_symbols;
char *message_file;
struct string_list *modules;
char *output_file;
char *sharelib_file;
char *start_procedure;
bfd_boolean verbose;
char *rpc_file;
int parse_errors;
static char *symbol_prefix;
#define yyerror(msg) nlmheader_error (msg);
static int yylex (void);
static void nlmlex_file_push (const char *);
static bfd_boolean nlmlex_file_open (const char *);
static int nlmlex_buf_init (void);
static char nlmlex_buf_add (int);
static long nlmlex_get_number (const char *);
static void nlmheader_identify (void);
static void nlmheader_warn (const char *, int);
static void nlmheader_error (const char *);
static struct string_list * string_list_cons (char *, struct string_list *);
static struct string_list * string_list_append (struct string_list *,
struct string_list *);
static struct string_list * string_list_append1 (struct string_list *,
char *);
static char *xstrdup (const char *);
#ifndef YYDEBUG
# define YYDEBUG 0
#endif
#ifdef YYERROR_VERBOSE
# undef YYERROR_VERBOSE
# define YYERROR_VERBOSE 1
#else
# define YYERROR_VERBOSE 0
#endif
#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
#line 113 "nlmheader.y"
typedef union YYSTYPE {
char *string;
struct string_list *list;
} YYSTYPE;
#line 266 "nlmheader.c"
# define yystype YYSTYPE
# define YYSTYPE_IS_DECLARED 1
# define YYSTYPE_IS_TRIVIAL 1
#endif
#line 278 "nlmheader.c"
#if ! defined (yyoverflow) || YYERROR_VERBOSE
# ifndef YYFREE
# define YYFREE free
# endif
# ifndef YYMALLOC
# define YYMALLOC malloc
# endif
# ifdef YYSTACK_USE_ALLOCA
# if YYSTACK_USE_ALLOCA
# define YYSTACK_ALLOC alloca
# endif
# else
# if defined (alloca) || defined (_ALLOCA_H)
# define YYSTACK_ALLOC alloca
# else
# ifdef __GNUC__
# define YYSTACK_ALLOC __builtin_alloca
# endif
# endif
# endif
# ifdef YYSTACK_ALLOC
# define YYSTACK_FREE(Ptr) do { ; } while (0)
# else
# if defined (__STDC__) || defined (__cplusplus)
# include <stdlib.h>
# define YYSIZE_T size_t
# endif
# define YYSTACK_ALLOC YYMALLOC
# define YYSTACK_FREE YYFREE
# endif
#endif
#if (! defined (yyoverflow) \
&& (! defined (__cplusplus) \
|| (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL)))
union yyalloc
{
short yyss;
YYSTYPE yyvs;
};
# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
# define YYSTACK_BYTES(N) \
((N) * (sizeof (short) + sizeof (YYSTYPE)) \
+ YYSTACK_GAP_MAXIMUM)
# ifndef YYCOPY
# if defined (__GNUC__) && 1 < __GNUC__
# define YYCOPY(To, From, Count) \
__builtin_memcpy (To, From, (Count) * sizeof (*(From)))
# else
# define YYCOPY(To, From, Count) \
do \
{ \
register YYSIZE_T yyi; \
for (yyi = 0; yyi < (Count); yyi++) \
(To)[yyi] = (From)[yyi]; \
} \
while (0)
# endif
# endif
# define YYSTACK_RELOCATE(Stack) \
do \
{ \
YYSIZE_T yynewbytes; \
YYCOPY (&yyptr->Stack, Stack, yysize); \
Stack = &yyptr->Stack; \
yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
yyptr += yynewbytes / sizeof (*yyptr); \
} \
while (0)
#endif
#if defined (__STDC__) || defined (__cplusplus)
typedef signed char yysigned_char;
#else
typedef short yysigned_char;
#endif
#define YYFINAL 64
#define YYLAST 73
#define YYNTOKENS 40
#define YYNNTS 11
#define YYNRULES 52
#define YYNSTATES 82
#define YYUNDEFTOK 2
#define YYMAXUTOK 292
#define YYTRANSLATE(YYX) \
((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
static const unsigned char yytranslate[] =
{
0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
38, 39, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
35, 36, 37
};
#if YYDEBUG
static const unsigned char yyprhs[] =
{
0, 0, 3, 5, 6, 9, 12, 15, 18, 21,
26, 28, 31, 34, 35, 39, 42, 45, 47, 50,
53, 54, 58, 61, 63, 66, 69, 72, 74, 76,
79, 81, 83, 86, 89, 92, 95, 97, 100, 103,
105, 110, 114, 117, 118, 120, 122, 124, 127, 130,
134, 136, 137
};
static const yysigned_char yyrhs[] =
{
41, 0, -1, 42, -1, -1, 43, 42, -1, 3,
36, -1, 4, 36, -1, 5, 37, -1, 6, 36,
-1, 7, 36, 36, 36, -1, 8, -1, 9, 37,
-1, 10, 36, -1, -1, 11, 44, 46, -1, 12,
36, -1, 13, 36, -1, 14, -1, 14, 36, -1,
15, 36, -1, -1, 16, 45, 46, -1, 17, 50,
-1, 18, -1, 18, 36, -1, 19, 36, -1, 20,
50, -1, 21, -1, 22, -1, 23, 36, -1, 24,
-1, 25, -1, 26, 37, -1, 27, 36, -1, 28,
36, -1, 29, 36, -1, 30, -1, 31, 37, -1,
32, 36, -1, 33, -1, 34, 36, 36, 36, -1,
34, 36, 36, -1, 35, 36, -1, -1, 47, -1,
49, -1, 48, -1, 47, 49, -1, 47, 48, -1,
38, 36, 39, -1, 36, -1, -1, 36, 50, -1
};
static const unsigned short yyrline[] =
{
0, 144, 144, 149, 151, 157, 161, 166, 183, 187,
205, 209, 225, 230, 229, 237, 242, 247, 252, 257,
262, 261, 269, 273, 277, 281, 285, 289, 293, 297,
304, 308, 312, 328, 332, 337, 341, 345, 361, 366,
370, 394, 410, 420, 423, 434, 438, 442, 446, 455,
466, 483, 486
};
#endif
#if YYDEBUG || YYERROR_VERBOSE
static const char *const yytname[] =
{
"$end", "error", "$undefined", "CHECK", "CODESTART", "COPYRIGHT",
"CUSTOM", "DATE", "DEBUG", "DESCRIPTION", "EXIT", "EXPORT", "FLAG_ON",
"FLAG_OFF", "FULLMAP", "HELP", "IMPORT", "INPUT", "MAP", "MESSAGES",
"MODULE", "MULTIPLE", "OS_DOMAIN", "OUTPUT", "PSEUDOPREEMPTION",
"REENTRANT", "SCREENNAME", "SHARELIB", "STACK", "START", "SYNCHRONIZE",
"THREADNAME", "TYPE", "VERBOSE", "VERSIONK", "XDCDATA", "STRING",
"QUOTED_STRING", "'('", "')'", "$accept", "file", "commands", "command",
"@1", "@2", "symbol_list_opt", "symbol_list", "symbol_prefix", "symbol",
"string_list", 0
};
#endif
# ifdef YYPRINT
static const unsigned short yytoknum[] =
{
0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
285, 286, 287, 288, 289, 290, 291, 292, 40, 41
};
# endif
static const unsigned char yyr1[] =
{
0, 40, 41, 42, 42, 43, 43, 43, 43, 43,
43, 43, 43, 44, 43, 43, 43, 43, 43, 43,
45, 43, 43, 43, 43, 43, 43, 43, 43, 43,
43, 43, 43, 43, 43, 43, 43, 43, 43, 43,
43, 43, 43, 46, 46, 47, 47, 47, 47, 48,
49, 50, 50
};
static const unsigned char yyr2[] =
{
0, 2, 1, 0, 2, 2, 2, 2, 2, 4,
1, 2, 2, 0, 3, 2, 2, 1, 2, 2,
0, 3, 2, 1, 2, 2, 2, 1, 1, 2,
1, 1, 2, 2, 2, 2, 1, 2, 2, 1,
4, 3, 2, 0, 1, 1, 1, 2, 2, 3,
1, 0, 2
};
static const unsigned char yydefact[] =
{
3, 0, 0, 0, 0, 0, 10, 0, 0, 13,
0, 0, 17, 0, 20, 51, 23, 0, 51, 27,
28, 0, 30, 31, 0, 0, 0, 0, 36, 0,
0, 39, 0, 0, 0, 2, 3, 5, 6, 7,
8, 0, 11, 12, 43, 15, 16, 18, 19, 43,
51, 22, 24, 25, 26, 29, 32, 33, 34, 35,
37, 38, 0, 42, 1, 4, 0, 50, 0, 14,
44, 46, 45, 21, 52, 41, 9, 0, 48, 47,
40, 49
};
static const yysigned_char yydefgoto[] =
{
-1, 34, 35, 36, 44, 49, 69, 70, 71, 72,
51
};
#define YYPACT_NINF -20
static const yysigned_char yypact[] =
{
-3, -1, 1, 2, 4, 5, -20, 6, 8, -20,
9, 10, 11, 12, -20, 13, 14, 16, 13, -20,
-20, 17, -20, -20, 18, 20, 21, 22, -20, 23,
25, -20, 26, 27, 38, -20, -3, -20, -20, -20,
-20, 28, -20, -20, -2, -20, -20, -20, -20, -2,
13, -20, -20, -20, -20, -20, -20, -20, -20, -20,
-20, -20, 30, -20, -20, -20, 31, -20, 32, -20,
-2, -20, -20, -20, -20, 33, -20, 3, -20, -20,
-20, -20
};
static const yysigned_char yypgoto[] =
{
-20, -20, 34, -20, -20, -20, 24, -20, -19, -16,
15
};
#define YYTABLE_NINF -1
static const unsigned char yytable[] =
{
1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
31, 32, 33, 54, 67, 37, 68, 38, 64, 39,
40, 41, 81, 42, 43, 45, 46, 47, 48, 50,
52, 78, 53, 55, 79, 56, 57, 58, 59, 0,
60, 61, 62, 63, 66, 74, 75, 76, 77, 80,
65, 0, 0, 73
};
static const yysigned_char yycheck[] =
{
3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 18, 36, 36, 38, 36, 0, 37,
36, 36, 39, 37, 36, 36, 36, 36, 36, 36,
36, 70, 36, 36, 70, 37, 36, 36, 36, -1,
37, 36, 36, 36, 36, 50, 36, 36, 36, 36,
36, -1, -1, 49
};
static const unsigned char yystos[] =
{
0, 3, 4, 5, 6, 7, 8, 9, 10, 11,
12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
32, 33, 34, 35, 41, 42, 43, 36, 36, 37,
36, 36, 37, 36, 44, 36, 36, 36, 36, 45,
36, 50, 36, 36, 50, 36, 37, 36, 36, 36,
37, 36, 36, 36, 0, 42, 36, 36, 38, 46,
47, 48, 49, 46, 50, 36, 36, 36, 48, 49,
36, 39
};
#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__)
# define YYSIZE_T __SIZE_TYPE__
#endif
#if ! defined (YYSIZE_T) && defined (size_t)
# define YYSIZE_T size_t
#endif
#if ! defined (YYSIZE_T)
# if defined (__STDC__) || defined (__cplusplus)
# include <stddef.h>
# define YYSIZE_T size_t
# endif
#endif
#if ! defined (YYSIZE_T)
# define YYSIZE_T unsigned int
#endif
#define yyerrok (yyerrstatus = 0)
#define yyclearin (yychar = YYEMPTY)
#define YYEMPTY (-2)
#define YYEOF 0
#define YYACCEPT goto yyacceptlab
#define YYABORT goto yyabortlab
#define YYERROR goto yyerrorlab
#define YYFAIL goto yyerrlab
#define YYRECOVERING() (!!yyerrstatus)
#define YYBACKUP(Token, Value) \
do \
if (yychar == YYEMPTY && yylen == 1) \
{ \
yychar = (Token); \
yylval = (Value); \
yytoken = YYTRANSLATE (yychar); \
YYPOPSTACK; \
goto yybackup; \
} \
else \
{ \
yyerror ("syntax error: cannot back up");\
YYERROR; \
} \
while (0)
#define YYTERROR 1
#define YYERRCODE 256
#ifndef YYLLOC_DEFAULT
# define YYLLOC_DEFAULT(Current, Rhs, N) \
((Current).first_line = (Rhs)[1].first_line, \
(Current).first_column = (Rhs)[1].first_column, \
(Current).last_line = (Rhs)[N].last_line, \
(Current).last_column = (Rhs)[N].last_column)
#endif
#ifdef YYLEX_PARAM
# define YYLEX yylex (YYLEX_PARAM)
#else
# define YYLEX yylex ()
#endif
#if YYDEBUG
# ifndef YYFPRINTF
# include <stdio.h>
# define YYFPRINTF fprintf
# endif
# define YYDPRINTF(Args) \
do { \
if (yydebug) \
YYFPRINTF Args; \
} while (0)
# define YYDSYMPRINT(Args) \
do { \
if (yydebug) \
yysymprint Args; \
} while (0)
# define YYDSYMPRINTF(Title, Token, Value, Location) \
do { \
if (yydebug) \
{ \
YYFPRINTF (stderr, "%s ", Title); \
yysymprint (stderr, \
Token, Value); \
YYFPRINTF (stderr, "\n"); \
} \
} while (0)
#if defined (__STDC__) || defined (__cplusplus)
static void
yy_stack_print (short *bottom, short *top)
#else
static void
yy_stack_print (bottom, top)
short *bottom;
short *top;
#endif
{
YYFPRINTF (stderr, "Stack now");
for (; bottom <= top; ++bottom)
YYFPRINTF (stderr, " %d", *bottom);
YYFPRINTF (stderr, "\n");
}
# define YY_STACK_PRINT(Bottom, Top) \
do { \
if (yydebug) \
yy_stack_print ((Bottom), (Top)); \
} while (0)
#if defined (__STDC__) || defined (__cplusplus)
static void
yy_reduce_print (int yyrule)
#else
static void
yy_reduce_print (yyrule)
int yyrule;
#endif
{
int yyi;
unsigned int yylno = yyrline[yyrule];
YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ",
yyrule - 1, yylno);
for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]);
YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]);
}
# define YY_REDUCE_PRINT(Rule) \
do { \
if (yydebug) \
yy_reduce_print (Rule); \
} while (0)
int yydebug;
#else
# define YYDPRINTF(Args)
# define YYDSYMPRINT(Args)
# define YYDSYMPRINTF(Title, Token, Value, Location)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_REDUCE_PRINT(Rule)
#endif
#ifndef YYINITDEPTH
# define YYINITDEPTH 200
#endif
#if defined (YYMAXDEPTH) && YYMAXDEPTH == 0
# undef YYMAXDEPTH
#endif
#ifndef YYMAXDEPTH
# define YYMAXDEPTH 10000
#endif
#if YYERROR_VERBOSE
# ifndef yystrlen
# if defined (__GLIBC__) && defined (_STRING_H)
# define yystrlen strlen
# else
static YYSIZE_T
# if defined (__STDC__) || defined (__cplusplus)
yystrlen (const char *yystr)
# else
yystrlen (yystr)
const char *yystr;
# endif
{
register const char *yys = yystr;
while (*yys++ != '\0')
continue;
return yys - yystr - 1;
}
# endif
# endif
# ifndef yystpcpy
# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE)
# define yystpcpy stpcpy
# else
static char *
# if defined (__STDC__) || defined (__cplusplus)
yystpcpy (char *yydest, const char *yysrc)
# else
yystpcpy (yydest, yysrc)
char *yydest;
const char *yysrc;
# endif
{
register char *yyd = yydest;
register const char *yys = yysrc;
while ((*yyd++ = *yys++) != '\0')
continue;
return yyd - 1;
}
# endif
# endif
#endif
#if YYDEBUG
#if defined (__STDC__) || defined (__cplusplus)
static void
yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep)
#else
static void
yysymprint (yyoutput, yytype, yyvaluep)
FILE *yyoutput;
int yytype;
YYSTYPE *yyvaluep;
#endif
{
(void) yyvaluep;
if (yytype < YYNTOKENS)
{
YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
# ifdef YYPRINT
YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
# endif
}
else
YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
switch (yytype)
{
default:
break;
}
YYFPRINTF (yyoutput, ")");
}
#endif
#if defined (__STDC__) || defined (__cplusplus)
static void
yydestruct (int yytype, YYSTYPE *yyvaluep)
#else
static void
yydestruct (yytype, yyvaluep)
int yytype;
YYSTYPE *yyvaluep;
#endif
{
(void) yyvaluep;
switch (yytype)
{
default:
break;
}
}
#ifdef YYPARSE_PARAM
# if defined (__STDC__) || defined (__cplusplus)
int yyparse (void *YYPARSE_PARAM);
# else
int yyparse ();
# endif
#else
#if defined (__STDC__) || defined (__cplusplus)
int yyparse (void);
#else
int yyparse ();
#endif
#endif
int yychar;
YYSTYPE yylval;
int yynerrs;
#ifdef YYPARSE_PARAM
# if defined (__STDC__) || defined (__cplusplus)
int yyparse (void *YYPARSE_PARAM)
# else
int yyparse (YYPARSE_PARAM)
void *YYPARSE_PARAM;
# endif
#else
#if defined (__STDC__) || defined (__cplusplus)
int
yyparse (void)
#else
int
yyparse ()
#endif
#endif
{
register int yystate;
register int yyn;
int yyresult;
int yyerrstatus;
int yytoken = 0;
short yyssa[YYINITDEPTH];
short *yyss = yyssa;
register short *yyssp;
YYSTYPE yyvsa[YYINITDEPTH];
YYSTYPE *yyvs = yyvsa;
register YYSTYPE *yyvsp;
#define YYPOPSTACK (yyvsp--, yyssp--)
YYSIZE_T yystacksize = YYINITDEPTH;
YYSTYPE yyval;
int yylen;
YYDPRINTF ((stderr, "Starting parse\n"));
yystate = 0;
yyerrstatus = 0;
yynerrs = 0;
yychar = YYEMPTY;
yyssp = yyss;
yyvsp = yyvs;
goto yysetstate;
yynewstate:
yyssp++;
yysetstate:
*yyssp = yystate;
if (yyss + yystacksize - 1 <= yyssp)
{
YYSIZE_T yysize = yyssp - yyss + 1;
#ifdef yyoverflow
{
YYSTYPE *yyvs1 = yyvs;
short *yyss1 = yyss;
yyoverflow ("parser stack overflow",
&yyss1, yysize * sizeof (*yyssp),
&yyvs1, yysize * sizeof (*yyvsp),
&yystacksize);
yyss = yyss1;
yyvs = yyvs1;
}
#else
# ifndef YYSTACK_RELOCATE
goto yyoverflowlab;
# else
if (YYMAXDEPTH <= yystacksize)
goto yyoverflowlab;
yystacksize *= 2;
if (YYMAXDEPTH < yystacksize)
yystacksize = YYMAXDEPTH;
{
short *yyss1 = yyss;
union yyalloc *yyptr =
(union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
if (! yyptr)
goto yyoverflowlab;
YYSTACK_RELOCATE (yyss);
YYSTACK_RELOCATE (yyvs);
# undef YYSTACK_RELOCATE
if (yyss1 != yyssa)
YYSTACK_FREE (yyss1);
}
# endif
#endif
yyssp = yyss + yysize - 1;
yyvsp = yyvs + yysize - 1;
YYDPRINTF ((stderr, "Stack size increased to %lu\n",
(unsigned long int) yystacksize));
if (yyss + yystacksize - 1 <= yyssp)
YYABORT;
}
YYDPRINTF ((stderr, "Entering state %d\n", yystate));
goto yybackup;
yybackup:
yyn = yypact[yystate];
if (yyn == YYPACT_NINF)
goto yydefault;
if (yychar == YYEMPTY)
{
YYDPRINTF ((stderr, "Reading a token: "));
yychar = YYLEX;
}
if (yychar <= YYEOF)
{
yychar = yytoken = YYEOF;
YYDPRINTF ((stderr, "Now at end of input.\n"));
}
else
{
yytoken = YYTRANSLATE (yychar);
YYDSYMPRINTF ("Next token is", yytoken, &yylval, &yylloc);
}
yyn += yytoken;
if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
goto yydefault;
yyn = yytable[yyn];
if (yyn <= 0)
{
if (yyn == 0 || yyn == YYTABLE_NINF)
goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
if (yyn == YYFINAL)
YYACCEPT;
YYDPRINTF ((stderr, "Shifting token %s, ", yytname[yytoken]));
if (yychar != YYEOF)
yychar = YYEMPTY;
*++yyvsp = yylval;
if (yyerrstatus)
yyerrstatus--;
yystate = yyn;
goto yynewstate;
yydefault:
yyn = yydefact[yystate];
if (yyn == 0)
goto yyerrlab;
goto yyreduce;
yyreduce:
yylen = yyr2[yyn];
yyval = yyvsp[1-yylen];
YY_REDUCE_PRINT (yyn);
switch (yyn)
{
case 5:
#line 158 "nlmheader.y"
{
check_procedure = yyvsp[0].string;
}
break;
case 6:
#line 162 "nlmheader.y"
{
nlmheader_warn (_("CODESTART is not implemented; sorry"), -1);
free (yyvsp[0].string);
}
break;
case 7:
#line 167 "nlmheader.y"
{
int len;
strncpy (copyright_hdr->stamp, "CoPyRiGhT=", 10);
len = strlen (yyvsp[0].string);
if (len >= NLM_MAX_COPYRIGHT_MESSAGE_LENGTH)
{
nlmheader_warn (_("copyright string is too long"),
NLM_MAX_COPYRIGHT_MESSAGE_LENGTH - 1);
len = NLM_MAX_COPYRIGHT_MESSAGE_LENGTH - 1;
}
copyright_hdr->copyrightMessageLength = len;
strncpy (copyright_hdr->copyrightMessage, yyvsp[0].string, len);
copyright_hdr->copyrightMessage[len] = '\0';
free (yyvsp[0].string);
}
break;
case 8:
#line 184 "nlmheader.y"
{
custom_file = yyvsp[0].string;
}
break;
case 9:
#line 188 "nlmheader.y"
{
version_hdr->month = nlmlex_get_number (yyvsp[-2].string);
version_hdr->day = nlmlex_get_number (yyvsp[-1].string);
version_hdr->year = nlmlex_get_number (yyvsp[0].string);
free (yyvsp[-2].string);
free (yyvsp[-1].string);
free (yyvsp[0].string);
if (version_hdr->month < 1 || version_hdr->month > 12)
nlmheader_warn (_("illegal month"), -1);
if (version_hdr->day < 1 || version_hdr->day > 31)
nlmheader_warn (_("illegal day"), -1);
if (version_hdr->year < 1900 || version_hdr->year > 3000)
nlmheader_warn (_("illegal year"), -1);
}
break;
case 10:
#line 206 "nlmheader.y"
{
debug_info = TRUE;
}
break;
case 11:
#line 210 "nlmheader.y"
{
int len;
len = strlen (yyvsp[0].string);
if (len > NLM_MAX_DESCRIPTION_LENGTH)
{
nlmheader_warn (_("description string is too long"),
NLM_MAX_DESCRIPTION_LENGTH);
len = NLM_MAX_DESCRIPTION_LENGTH;
}
var_hdr->descriptionLength = len;
strncpy (var_hdr->descriptionText, yyvsp[0].string, len);
var_hdr->descriptionText[len] = '\0';
free (yyvsp[0].string);
}
break;
case 12:
#line 226 "nlmheader.y"
{
exit_procedure = yyvsp[0].string;
}
break;
case 13:
#line 230 "nlmheader.y"
{
symbol_prefix = NULL;
}
break;
case 14:
#line 234 "nlmheader.y"
{
export_symbols = string_list_append (export_symbols, yyvsp[0].list);
}
break;
case 15:
#line 238 "nlmheader.y"
{
fixed_hdr->flags |= nlmlex_get_number (yyvsp[0].string);
free (yyvsp[0].string);
}
break;
case 16:
#line 243 "nlmheader.y"
{
fixed_hdr->flags &=~ nlmlex_get_number (yyvsp[0].string);
free (yyvsp[0].string);
}
break;
case 17:
#line 248 "nlmheader.y"
{
map_file = "";
full_map = TRUE;
}
break;
case 18:
#line 253 "nlmheader.y"
{
map_file = yyvsp[0].string;
full_map = TRUE;
}
break;
case 19:
#line 258 "nlmheader.y"
{
help_file = yyvsp[0].string;
}
break;
case 20:
#line 262 "nlmheader.y"
{
symbol_prefix = NULL;
}
break;
case 21:
#line 266 "nlmheader.y"
{
import_symbols = string_list_append (import_symbols, yyvsp[0].list);
}
break;
case 22:
#line 270 "nlmheader.y"
{
input_files = string_list_append (input_files, yyvsp[0].list);
}
break;
case 23:
#line 274 "nlmheader.y"
{
map_file = "";
}
break;
case 24:
#line 278 "nlmheader.y"
{
map_file = yyvsp[0].string;
}
break;
case 25:
#line 282 "nlmheader.y"
{
message_file = yyvsp[0].string;
}
break;
case 26:
#line 286 "nlmheader.y"
{
modules = string_list_append (modules, yyvsp[0].list);
}
break;
case 27:
#line 290 "nlmheader.y"
{
fixed_hdr->flags |= 0x2;
}
break;
case 28:
#line 294 "nlmheader.y"
{
fixed_hdr->flags |= 0x10;
}
break;
case 29:
#line 298 "nlmheader.y"
{
if (output_file == NULL)
output_file = yyvsp[0].string;
else
nlmheader_warn (_("ignoring duplicate OUTPUT statement"), -1);
}
break;
case 30:
#line 305 "nlmheader.y"
{
fixed_hdr->flags |= 0x8;
}
break;
case 31:
#line 309 "nlmheader.y"
{
fixed_hdr->flags |= 0x1;
}
break;
case 32:
#line 313 "nlmheader.y"
{
int len;
len = strlen (yyvsp[0].string);
if (len >= NLM_MAX_SCREEN_NAME_LENGTH)
{
nlmheader_warn (_("screen name is too long"),
NLM_MAX_SCREEN_NAME_LENGTH);
len = NLM_MAX_SCREEN_NAME_LENGTH;
}
var_hdr->screenNameLength = len;
strncpy (var_hdr->screenName, yyvsp[0].string, len);
var_hdr->screenName[NLM_MAX_SCREEN_NAME_LENGTH] = '\0';
free (yyvsp[0].string);
}
break;
case 33:
#line 329 "nlmheader.y"
{
sharelib_file = yyvsp[0].string;
}
break;
case 34:
#line 333 "nlmheader.y"
{
var_hdr->stackSize = nlmlex_get_number (yyvsp[0].string);
free (yyvsp[0].string);
}
break;
case 35:
#line 338 "nlmheader.y"
{
start_procedure = yyvsp[0].string;
}
break;
case 36:
#line 342 "nlmheader.y"
{
fixed_hdr->flags |= 0x4;
}
break;
case 37:
#line 346 "nlmheader.y"
{
int len;
len = strlen (yyvsp[0].string);
if (len >= NLM_MAX_THREAD_NAME_LENGTH)
{
nlmheader_warn (_("thread name is too long"),
NLM_MAX_THREAD_NAME_LENGTH);
len = NLM_MAX_THREAD_NAME_LENGTH;
}
var_hdr->threadNameLength = len;
strncpy (var_hdr->threadName, yyvsp[0].string, len);
var_hdr->threadName[len] = '\0';
free (yyvsp[0].string);
}
break;
case 38:
#line 362 "nlmheader.y"
{
fixed_hdr->moduleType = nlmlex_get_number (yyvsp[0].string);
free (yyvsp[0].string);
}
break;
case 39:
#line 367 "nlmheader.y"
{
verbose = TRUE;
}
break;
case 40:
#line 371 "nlmheader.y"
{
long val;
strncpy (version_hdr->stamp, "VeRsIoN#", 8);
version_hdr->majorVersion = nlmlex_get_number (yyvsp[-2].string);
val = nlmlex_get_number (yyvsp[-1].string);
if (val < 0 || val > 99)
nlmheader_warn (_("illegal minor version number (must be between 0 and 99)"),
-1);
else
version_hdr->minorVersion = val;
val = nlmlex_get_number (yyvsp[0].string);
if (val < 0)
nlmheader_warn (_("illegal revision number (must be between 0 and 26)"),
-1);
else if (val > 26)
version_hdr->revision = 0;
else
version_hdr->revision = val;
free (yyvsp[-2].string);
free (yyvsp[-1].string);
free (yyvsp[0].string);
}
break;
case 41:
#line 395 "nlmheader.y"
{
long val;
strncpy (version_hdr->stamp, "VeRsIoN#", 8);
version_hdr->majorVersion = nlmlex_get_number (yyvsp[-1].string);
val = nlmlex_get_number (yyvsp[0].string);
if (val < 0 || val > 99)
nlmheader_warn (_("illegal minor version number (must be between 0 and 99)"),
-1);
else
version_hdr->minorVersion = val;
version_hdr->revision = 0;
free (yyvsp[-1].string);
free (yyvsp[0].string);
}
break;
case 42:
#line 411 "nlmheader.y"
{
rpc_file = yyvsp[0].string;
}
break;
case 43:
#line 420 "nlmheader.y"
{
yyval.list = NULL;
}
break;
case 44:
#line 424 "nlmheader.y"
{
yyval.list = yyvsp[0].list;
}
break;
case 45:
#line 435 "nlmheader.y"
{
yyval.list = string_list_cons (yyvsp[0].string, NULL);
}
break;
case 46:
#line 439 "nlmheader.y"
{
yyval.list = NULL;
}
break;
case 47:
#line 443 "nlmheader.y"
{
yyval.list = string_list_append1 (yyvsp[-1].list, yyvsp[0].string);
}
break;
case 48:
#line 447 "nlmheader.y"
{
yyval.list = yyvsp[-1].list;
}
break;
case 49:
#line 456 "nlmheader.y"
{
if (symbol_prefix != NULL)
free (symbol_prefix);
symbol_prefix = yyvsp[-1].string;
}
break;
case 50:
#line 467 "nlmheader.y"
{
if (symbol_prefix == NULL)
yyval.string = yyvsp[0].string;
else
{
yyval.string = xmalloc (strlen (symbol_prefix) + strlen (yyvsp[0].string) + 2);
sprintf (yyval.string, "%s@%s", symbol_prefix, yyvsp[0].string);
free (yyvsp[0].string);
}
}
break;
case 51:
#line 483 "nlmheader.y"
{
yyval.list = NULL;
}
break;
case 52:
#line 487 "nlmheader.y"
{
yyval.list = string_list_cons (yyvsp[-1].string, yyvsp[0].list);
}
break;
}
#line 1683 "nlmheader.c"
yyvsp -= yylen;
yyssp -= yylen;
YY_STACK_PRINT (yyss, yyssp);
*++yyvsp = yyval;
yyn = yyr1[yyn];
yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
yystate = yytable[yystate];
else
yystate = yydefgoto[yyn - YYNTOKENS];
goto yynewstate;
yyerrlab:
if (!yyerrstatus)
{
++yynerrs;
#if YYERROR_VERBOSE
yyn = yypact[yystate];
if (YYPACT_NINF < yyn && yyn < YYLAST)
{
YYSIZE_T yysize = 0;
int yytype = YYTRANSLATE (yychar);
const char* yyprefix;
char *yymsg;
int yyx;
int yyxbegin = yyn < 0 ? -yyn : 0;
int yychecklim = YYLAST - yyn;
int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
int yycount = 0;
yyprefix = ", expecting ";
for (yyx = yyxbegin; yyx < yyxend; ++yyx)
if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
{
yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]);
yycount += 1;
if (yycount == 5)
{
yysize = 0;
break;
}
}
yysize += (sizeof ("syntax error, unexpected ")
+ yystrlen (yytname[yytype]));
yymsg = (char *) YYSTACK_ALLOC (yysize);
if (yymsg != 0)
{
char *yyp = yystpcpy (yymsg, "syntax error, unexpected ");
yyp = yystpcpy (yyp, yytname[yytype]);
if (yycount < 5)
{
yyprefix = ", expecting ";
for (yyx = yyxbegin; yyx < yyxend; ++yyx)
if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
{
yyp = yystpcpy (yyp, yyprefix);
yyp = yystpcpy (yyp, yytname[yyx]);
yyprefix = " or ";
}
}
yyerror (yymsg);
YYSTACK_FREE (yymsg);
}
else
yyerror ("syntax error; also virtual memory exhausted");
}
else
#endif
yyerror ("syntax error");
}
if (yyerrstatus == 3)
{
if (yychar <= YYEOF)
{
if (yychar == YYEOF)
for (;;)
{
YYPOPSTACK;
if (yyssp == yyss)
YYABORT;
YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
yydestruct (yystos[*yyssp], yyvsp);
}
}
else
{
YYDSYMPRINTF ("Error: discarding", yytoken, &yylval, &yylloc);
yydestruct (yytoken, &yylval);
yychar = YYEMPTY;
}
}
goto yyerrlab1;
yyerrorlab:
#ifdef __GNUC__
if (0)
goto yyerrorlab;
#endif
yyvsp -= yylen;
yyssp -= yylen;
yystate = *yyssp;
goto yyerrlab1;
yyerrlab1:
yyerrstatus = 3;
for (;;)
{
yyn = yypact[yystate];
if (yyn != YYPACT_NINF)
{
yyn += YYTERROR;
if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
{
yyn = yytable[yyn];
if (0 < yyn)
break;
}
}
if (yyssp == yyss)
YYABORT;
YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
yydestruct (yystos[yystate], yyvsp);
YYPOPSTACK;
yystate = *yyssp;
YY_STACK_PRINT (yyss, yyssp);
}
if (yyn == YYFINAL)
YYACCEPT;
YYDPRINTF ((stderr, "Shifting error token, "));
*++yyvsp = yylval;
yystate = yyn;
goto yynewstate;
yyacceptlab:
yyresult = 0;
goto yyreturn;
yyabortlab:
yyresult = 1;
goto yyreturn;
#ifndef yyoverflow
yyoverflowlab:
yyerror ("parser stack overflow");
yyresult = 2;
#endif
yyreturn:
#ifndef yyoverflow
if (yyss != yyssa)
YYSTACK_FREE (yyss);
#endif
return yyresult;
}
#line 492 "nlmheader.y"
#undef strerror
extern char *strerror PARAMS ((int));
enum lex_state
{
BEGINNING_OF_LINE,
IN_LINE
};
struct input
{
FILE *file;
char *name;
int lineno;
enum lex_state state;
struct input *next;
};
static struct input current;
#define COMMENT_CHAR '#'
bfd_boolean
nlmlex_file (const char *name)
{
current.next = NULL;
return nlmlex_file_open (name);
}
static void
nlmlex_file_push (const char *name)
{
struct input *push;
push = (struct input *) xmalloc (sizeof (struct input));
*push = current;
if (nlmlex_file_open (name))
current.next = push;
else
{
current = *push;
free (push);
}
}
static bfd_boolean
nlmlex_file_open (const char *name)
{
current.file = fopen (name, "r");
if (current.file == NULL)
{
fprintf (stderr, "%s:%s: %s\n", program_name, name, strerror (errno));
++parse_errors;
return FALSE;
}
current.name = xstrdup (name);
current.lineno = 1;
current.state = BEGINNING_OF_LINE;
return TRUE;
}
struct keyword_tokens_struct
{
const char *keyword;
int token;
};
static struct keyword_tokens_struct keyword_tokens[] =
{
{ "CHECK", CHECK },
{ "CODESTART", CODESTART },
{ "COPYRIGHT", COPYRIGHT },
{ "CUSTOM", CUSTOM },
{ "DATE", DATE },
{ "DEBUG", DEBUG },
{ "DESCRIPTION", DESCRIPTION },
{ "EXIT", EXIT },
{ "EXPORT", EXPORT },
{ "FLAG_ON", FLAG_ON },
{ "FLAG_OFF", FLAG_OFF },
{ "FULLMAP", FULLMAP },
{ "HELP", HELP },
{ "IMPORT", IMPORT },
{ "INPUT", INPUT },
{ "MAP", MAP },
{ "MESSAGES", MESSAGES },
{ "MODULE", MODULE },
{ "MULTIPLE", MULTIPLE },
{ "OS_DOMAIN", OS_DOMAIN },
{ "OUTPUT", OUTPUT },
{ "PSEUDOPREEMPTION", PSEUDOPREEMPTION },
{ "REENTRANT", REENTRANT },
{ "SCREENNAME", SCREENNAME },
{ "SHARELIB", SHARELIB },
{ "STACK", STACK },
{ "STACKSIZE", STACK },
{ "START", START },
{ "SYNCHRONIZE", SYNCHRONIZE },
{ "THREADNAME", THREADNAME },
{ "TYPE", TYPE },
{ "VERBOSE", VERBOSE },
{ "VERSION", VERSIONK },
{ "XDCDATA", XDCDATA }
};
#define KEYWORD_COUNT (sizeof (keyword_tokens) / sizeof (keyword_tokens[0]))
static char *lex_buf;
static int lex_size;
static int lex_pos;
#define BUF_INIT() \
((void) (lex_buf != NULL ? lex_pos = 0 : nlmlex_buf_init ()))
static int
nlmlex_buf_init (void)
{
lex_size = 10;
lex_buf = xmalloc (lex_size + 1);
lex_pos = 0;
return 0;
}
#define BUF_FINISH() ((void) (lex_buf[lex_pos] = '\0'))
#define BUF_ADD(c) \
((void) (lex_pos < lex_size \
? lex_buf[lex_pos++] = (c) \
: nlmlex_buf_add (c)))
static char
nlmlex_buf_add (int c)
{
if (lex_pos >= lex_size)
{
lex_size *= 2;
lex_buf = xrealloc (lex_buf, lex_size + 1);
}
return lex_buf[lex_pos++] = c;
}
static int
yylex (void)
{
int c;
tail_recurse:
c = getc (current.file);
while (ISSPACE (c) || c == ',')
{
current.state = IN_LINE;
if (c == '\n')
{
++current.lineno;
current.state = BEGINNING_OF_LINE;
}
c = getc (current.file);
}
if (c == EOF)
{
fclose (current.file);
free (current.name);
if (current.next == NULL)
return 0;
else
{
struct input *next;
next = current.next;
current = *next;
free (next);
goto tail_recurse;
}
}
if (c == COMMENT_CHAR)
{
do
{
c = getc (current.file);
}
while (c != '\n');
++current.lineno;
current.state = BEGINNING_OF_LINE;
goto tail_recurse;
}
if (c == '@')
{
do
{
c = getc (current.file);
if (c == '\n')
++current.lineno;
}
while (ISSPACE (c));
BUF_INIT ();
while (! ISSPACE (c) && c != EOF)
{
BUF_ADD (c);
c = getc (current.file);
}
BUF_FINISH ();
ungetc (c, current.file);
nlmlex_file_push (lex_buf);
goto tail_recurse;
}
if (current.state == BEGINNING_OF_LINE)
{
BUF_INIT ();
while (ISALNUM (c) || c == '_')
{
BUF_ADD (TOUPPER (c));
c = getc (current.file);
}
BUF_FINISH ();
if (c != EOF && ! ISSPACE (c) && c != ',')
{
nlmheader_identify ();
fprintf (stderr, _("%s:%d: illegal character in keyword: %c\n"),
current.name, current.lineno, c);
}
else
{
unsigned int i;
for (i = 0; i < KEYWORD_COUNT; i++)
{
if (lex_buf[0] == keyword_tokens[i].keyword[0]
&& strcmp (lex_buf, keyword_tokens[i].keyword) == 0)
{
ungetc (c, current.file);
current.state = IN_LINE;
return keyword_tokens[i].token;
}
}
nlmheader_identify ();
fprintf (stderr, _("%s:%d: unrecognized keyword: %s\n"),
current.name, current.lineno, lex_buf);
}
++parse_errors;
ungetc (COMMENT_CHAR, current.file);
goto tail_recurse;
}
if (c == '(' || c == ')')
return c;
if (c == '"' || c == '\'')
{
int quote;
int start_lineno;
quote = c;
start_lineno = current.lineno;
c = getc (current.file);
BUF_INIT ();
while (c != quote && c != EOF)
{
BUF_ADD (c);
if (c == '\n')
++current.lineno;
c = getc (current.file);
}
BUF_FINISH ();
if (c == EOF)
{
nlmheader_identify ();
fprintf (stderr, _("%s:%d: end of file in quoted string\n"),
current.name, start_lineno);
++parse_errors;
}
yylval.string = xstrdup (lex_buf);
return QUOTED_STRING;
}
BUF_INIT ();
while (! ISSPACE (c)
&& c != ','
&& c != COMMENT_CHAR
&& c != '('
&& c != ')')
{
BUF_ADD (c);
c = getc (current.file);
}
BUF_FINISH ();
ungetc (c, current.file);
yylval.string = xstrdup (lex_buf);
return STRING;
}
static long
nlmlex_get_number (const char *s)
{
long ret;
char *send;
ret = strtol (s, &send, 10);
if (*send != '\0')
nlmheader_warn (_("bad number"), -1);
return ret;
}
static void
nlmheader_identify (void)
{
static int done;
if (! done)
{
fprintf (stderr, _("%s: problems in NLM command language input:\n"),
program_name);
done = 1;
}
}
static void
nlmheader_warn (const char *s, int imax)
{
nlmheader_identify ();
fprintf (stderr, "%s:%d: %s", current.name, current.lineno, s);
if (imax != -1)
fprintf (stderr, " (max %d)", imax);
fprintf (stderr, "\n");
}
static void
nlmheader_error (const char *s)
{
nlmheader_warn (s, -1);
++parse_errors;
}
static struct string_list *
string_list_cons (char *s, struct string_list *l)
{
struct string_list *ret;
ret = (struct string_list *) xmalloc (sizeof (struct string_list));
ret->next = l;
ret->string = s;
return ret;
}
static struct string_list *
string_list_append (struct string_list *l1, struct string_list *l2)
{
register struct string_list **pp;
for (pp = &l1; *pp != NULL; pp = &(*pp)->next)
;
*pp = l2;
return l1;
}
static struct string_list *
string_list_append1 (struct string_list *l, char *s)
{
struct string_list *n;
register struct string_list **pp;
n = (struct string_list *) xmalloc (sizeof (struct string_list));
n->next = NULL;
n->string = s;
for (pp = &l; *pp != NULL; pp = &(*pp)->next)
;
*pp = n;
return l;
}
static char *
xstrdup (const char *s)
{
unsigned long len;
char *ret;
len = strlen (s);
ret = xmalloc (len + 1);
strcpy (ret, s);
return ret;
}