annotate netinstall/iniparse.y @ 2500:3d8143fc88e1

[xemacs-hg @ 2005-01-24 23:33:30 by ben] get working with VC7 config.inc.samp: Declare OPTIONAL_LIBRARY_DIR as root of library directories. Redo all graphics library defaults to mirror the versions and directories in the current binary aux distribution on xemacs web site. Enable TIFF and COMPFACE by default since you can now compile with them and binary libs are provided. xemacs.mak: Put our own directories first in case of conflict (e.g. config.h in compface). xemacs.mak: Use MSVCRT to avoid link problems. s/windowsnt.h: bytecode.c, print.c: Add casts to avoid warning. compiler.h: Add MSC_VERSION and include definitions of DOESNT_RETURN and friends here, like for GCC. Need different definitions for VC7 and VC6. s/windowsnt.h: Remove stuff moved to compiler.h. Disable warning 4646 ("function declared with __declspec(noreturn) has non-void return type") on VC7 since lots of Lisp primitives trigger this and there is no easy way to kludge around the warning. glyphs-eimage.c: Some really nasty hacks to allow TIFF and JPEG to both be compiled. #### The better solution is to move the TIFF and JPEG code to different files. glyphs-msw.c: Define __STDC__ to avoid problems with compface.h. intl-auto-encap-win32.c, intl-auto-encap-win32.h, intl-encap-win32.c, syswindows.h: Those wankers at Microsoft cannot leave well enough alone. Various functions change parameter types semi-randomly between VC6 and VC7, so we need to include our own versions that can handle both kinds with appropriate casting. EmacsFrame.c, EmacsShell-sub.c, EmacsShell.c, alloc.c, alloca.c, buffer.c, bytecode.c, charset.h, chartab.c, cm.c, console-stream.c, console.c, data.c, debug.h, device-msw.c, device-tty.c, device-x.c, doprnt.c, dumper.c, dynarr.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, extents.c, faces.c, file-coding.c, fileio.c, fns.c, font-lock.c, frame-gtk.c, frame-x.c, frame.c, free-hook.c, gccache-gtk.c, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-x.c, glyphs.c, gtk-glue.c, gutter.c, input-method-xlib.c, insdel.c, intl-win32.c, keymap.c, lisp.h, lread.c, lstream.c, macros.c, malloc.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, mule-coding.c, native-gtk-toolbar.c, number.c, objects-msw.c, objects.c, print.c, process-nt.c, process-unix.c, process.c, ralloc.c, rangetab.c, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, regex.c, scrollbar-gtk.c, scrollbar-x.c, search.c, select-x.c, signal.c, specifier.c, specifier.h, strftime.c, sunplay.c, symbols.c, sysdep.c, sysproc.h, text.c, text.h, toolbar-common.c, toolbar-msw.c, toolbar.c, ui-gtk.c, unexnt.c, unicode.c, win32.c, window.c, xgccache.c, s/windowsnt.h: abort() -> ABORT(). Eliminate preprocessor games with abort() since it creates huge problems in VC7, solvable only by including massive amounts of files in every compile (and not worth it).
author ben
date Mon, 24 Jan 2005 23:34:34 +0000
parents 3078fd1074e8
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
1 %{
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
2 /*
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
3 * Copyright (c) 2000, Red Hat, Inc.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
4 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
5 * This program is free software; you can redistribute it and/or modify
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
6 * it under the terms of the GNU General Public License as published by
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
7 * the Free Software Foundation; either version 2 of the License, or
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
8 * (at your option) any later version.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
9 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
10 * A copy of the GNU General Public License can be found at
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
11 * http://www.gnu.org/
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
12 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
13 * Written by DJ Delorie <dj@cygnus.com>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
14 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
15 */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
16
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
17 /* Parse the setup.ini files. inilex.l provides the tokens for this. */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
18
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
19 #include <stdio.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
20 #include <stdlib.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
21 #include <string.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
22 #include "win32.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
23
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
24 #include "ini.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
25 #include "iniparse.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
26
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
27 #include "port.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
28
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
29 #define YYERROR_VERBOSE 1
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
30 /*#define YYDEBUG 1*/
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
31
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
32 static Package *cp;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
33 static int trust;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
34 extern unsigned int setup_timestamp;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
35 extern char *setup_version;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
36 extern int yylineno;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
37 extern int CDECL yyerror (char *s, ...);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
38
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
39 #define cpt (cp->info+trust)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
40
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
41 %}
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
42
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
43 %token STRING
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
44 %token SETUP_TIMESTAMP SETUP_VERSION VERSION INSTALL SOURCE SDESC LDESC TYPE
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
45 %token T_PREV T_CURR T_TEST T_UNKNOWN
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
46
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
47 %%
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
48
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
49 whole_file
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
50 : setup_headers packages
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
51 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
52
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
53 setup_headers
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
54 : setup_header setup_headers
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
55 | /* empty */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
56 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
57
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
58 setup_header
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
59 : SETUP_TIMESTAMP STRING '\n' { setup_timestamp = strtoul ($2, 0, 0); }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
60 | SETUP_VERSION STRING '\n' { setup_version = strdup ($2); }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
61 | '\n'
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
62 | error { yyerror ("unrecognized line in setup.ini headers (do you have the latest setup?)"); } '\n'
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
63 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
64
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
65 packages
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
66 : package packages
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
67 | /* empty */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
68 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
69
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
70 package
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
71 : '@' STRING '\n' { new_package($2); }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
72 lines
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
73 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
74
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
75 lines
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
76 : simple_line '\n' lines
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
77 | simple_line
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
78 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
79
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
80 simple_line
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
81 : VERSION STRING { cpt->version = $2; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
82 | SDESC STRING { cp->sdesc = $2; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
83 | LDESC STRING { cp->ldesc = $2; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
84 | INSTALL STRING STRING { cpt->install = $2;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
85 cpt->install_size = atoi($3); }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
86 | SOURCE STRING STRING { cpt->source = $2;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
87 cpt->source_size = atoi($3); }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
88 | TYPE STRING { if (!strcmp ($2, "cygwin"))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
89 cp->type = TY_CYGWIN;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
90 else if (!strcmp ($2, "native"))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
91 cp->type = TY_NATIVE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
92 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
93 cp->type = TY_GENERIC; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
94 | T_PREV { trust = TRUST_PREV; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
95 | T_CURR { trust = TRUST_CURR; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
96 | T_TEST { trust = TRUST_TEST; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
97 | T_UNKNOWN { trust = TRUST_UNKNOWN; }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
98 | /* empty */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
99 | error '\n' { yylineno --;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
100 yyerror ("unrecognized line in package %s (do you have the latest setup?)", cp->name);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
101 yylineno ++;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
102 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
103 ;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
104
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
105 %%
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
106
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
107 Package *package = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
108 Package *xemacs_package = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
109 int npackages = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
110 static int maxpackages = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
111
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
112 Package *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
113 new_package (char *name)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
114 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
115 if (package == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
116 maxpackages = npackages = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
117 if (npackages >= maxpackages)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
118 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
119 maxpackages += 10;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
120 if (package)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
121 package = (Package *) realloc (package, maxpackages * sizeof (Package));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
122 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
123 package = (Package *) malloc (maxpackages * sizeof (Package));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
124 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
125 cp = package + npackages;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
126 npackages ++;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
127
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
128 memset (cp, 0, sizeof (Package));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
129 cp->name = name;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
130
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
131 trust = TRUST_CURR;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
132
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
133 return cp;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
134 }