annotate netinstall/ini.h @ 4745:0c54de4c4b9d

Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly src/ChangeLog addition: 2009-11-15 Aidan Kehoe <kehoea@parhasard.net> * mule-ccl.c (CCL_CALL_FOR_MAP_INSTRUCTION): Assert that we always have a symbol in this macro. (setup_ccl_program): Ensure we're not allocating unreachable memory in this function; all symbols must have been resolved in a given CCL program before this function is called. (find_ccl_program): New function, return a CCL program with all its symbols resolved if it is valid (possibly allocating memory), Qnil otherwise. (get_ccl_program): New function, exported to other files; call find_ccl_program, and error if it gives nil. (Fccl_program_p): Call find_ccl_program from this function instead of implementing the bulk of it here. (Fccl_execute): Call get_ccl_program instead of implementing the bulk of it here. (Fccl_execute_on_string): Ditto. * mule-ccl.h (Vfont_ccl_encoder_alist): Remove this declaration, it hasn't been used in years. (get_ccl_program): Declare this function. * mule-coding.c (ccl_putprop): Use get_ccl_program on any specified encode or decode CCL program property. (fixed_width_putprop): Ditto. * mule-charset.c (Fmake_charset): Use get_ccl_program on any specified ccl-program. (Fset_charset_ccl_program): Ditto.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 15 Nov 2009 16:53:14 +0000
parents ce0b3f2eff35
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 * Copyright (c) 2000, Red Hat, Inc.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
3 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
4 * This program is free software; you can redistribute it and/or modify
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
5 * 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
6 * the Free Software Foundation; either version 2 of the License, or
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
7 * (at your option) any later version.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
8 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
9 * A copy of the GNU General Public License can be found at
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
10 * http://www.gnu.org/
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
11 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
12 * Written by DJ Delorie <dj@cygnus.com>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
13 *
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 /* When setup.ini is parsed, the information is stored according to
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
17 the declarations here. ini.cc (via inilex and iniparse)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
18 initializes these structures. choose.cc sets the action and trust
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
19 fields. download.cc downloads any needed files for selected
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
20 packages (the chosen "install" field). install.cc installs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
21 selected packages. */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
22
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
23 #define YYSTYPE char *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
24
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
25 /* lowest number must be most trusted, highest least trusted */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
26 #define TRUST_PREV 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
27 #define TRUST_CURR 1
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
28 #define TRUST_TEST 2
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
29 #define NTRUST 3
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
30 #define TRUST_UNKNOWN 3 /* intentionally not in NTRUST */
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 #define TY_GENERIC 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
33 #define TY_CYGWIN 1
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
34 #define TY_NATIVE 2
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
35
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
36 #define ACTION_UNKNOWN 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
37 #define ACTION_SAME 1
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
38 #define ACTION_NEW 2
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
39 #define ACTION_UPGRADE 3
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
40 #define ACTION_UNINSTALL 4
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
41 #define ACTION_ERROR 5
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 #define SRCACTION_NO 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
44 #define SRCACTION_YES 1
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
45
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
46 typedef struct {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
47 char *name; /* package name, like "cygwin" */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
48 char *sdesc; /* short description (replaces "name" if provided) */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
49 char *ldesc; /* long description (multi-line) */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
50 int action; /* ACTION_* - only NEW and UPGRADE get installed */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
51 int srcaction;/* SRCACTION_ */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
52 int trust; /* TRUST_* (selects among info[] below) */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
53 int type; /* TY_GENERIC, TY_CYGWIN or TY_NATIVE. */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
54
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
55 struct {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
56 char *version; /* version part of filename */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
57 char *install; /* file name to install */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
58 int install_size; /* in bytes */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
59 char *source; /* sources for installed binaries */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
60 int source_size; /* in bytes */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
61 } info[NTRUST+1]; /* +1 for TRUST_UNKNOWN */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
62 } Package;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
63
454
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 448
diff changeset
64 #ifdef __cplusplus
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 448
diff changeset
65 extern "C" {
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 448
diff changeset
66 #endif
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 448
diff changeset
67
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
68 extern Package *package;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
69 extern Package *xemacs_package;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
70
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
71 extern int npackages;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
72
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
73 Package *new_package (char *name);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
74 void ini_init (char *string);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
75
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 454
diff changeset
76 #define pinfo(p) ((p).info[(p).trust])
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 454
diff changeset
77 #define pi pinfo(package[i])
448
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 #define LOOP_PACKAGES \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
80 for (i=0; i<npackages; i++) \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
81 if ((package[i].action == ACTION_NEW \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
82 || package[i].action == ACTION_UPGRADE) \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
83 && pi.install)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
84
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
85 #ifdef __cplusplus
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
86 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
87 #endif