3 # Make certain that the script is not running in an internationalized
6 LC_ALL
=C
; export LC_ALL
10 echo "Usage: $0 <h|inc> <observer.texi> <observer.out>" 1>&2
21 otmp
="`echo $1 | sed -e 's,\.[^.]*$,,'`.$tmp"; shift
22 echo "Creating ${otmp}" 1>&2
25 # Can use any of the following: cat cmp cp diff echo egrep expr false
26 # grep install-info ln ls mkdir mv pwd rm rmdir sed sleep sort tar
30 /* GDB Notifications to Observers.
32 Copyright (C) 2004, 2005, 2007, 2008, 2009, 2010, 2011
33 Free Software Foundation, Inc.
35 This file is part of GDB.
37 This program is free software; you can redistribute it and/or modify
38 it under the terms of the GNU General Public License as published by
39 the Free Software Foundation; either version 3 of the License, or
40 (at your option) any later version.
42 This program is distributed in the hope that it will be useful,
43 but WITHOUT ANY WARRANTY; without even the implied warranty of
44 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
45 GNU General Public License for more details.
47 You should have received a copy of the GNU General Public License
48 along with this program. If not, see <http://www.gnu.org/licenses/>.
52 This file was generated using observer.sh and observer.texi. */
58 h
) cat <<EOF >>${otmp}
71 # We are about to set IFS=:, so DOS-style file names with a drive
72 # letter and a colon will be in trouble.
76 texi
=`echo $texi | sed -e 's,^\([a-zA-Z]\):/,/dev/\1/,'`
79 # generate a list of events that can be observed
84 # Save original line for later processing into the actual parameter
86 # Convert from: @deftypefun void EVENT (TYPE @var{PARAM},...)
87 # to event and formals: EVENT:TYPE PARAM, ...:
88 s/^.* void \([a-z_][a-z_]*\) (\(.*\))$/\1:\2/
93 # Convert from: @deftypefun void FUNC (TYPE @var{PARAM},...)
94 # to actuals: PARAM, ...
98 # Combine held (EVENT:TYPE PARAM, ...:) and pattern (PARAM, ...) into
99 # FUNC:TYPE PARAM, ...:PARAM, ...
105 ' $texi |
while read event formal actual
108 h
) cat <<EOF >>${otmp}
110 /* ${event} notifications. */
112 typedef void (observer_${event}_ftype) (${formal});
114 extern struct observer *observer_attach_${event} (observer_${event}_ftype *f);
115 extern void observer_detach_${event} (struct observer *observer);
116 extern void observer_notify_${event} (${formal});
123 /* ${event} notifications. */
125 static struct observer_list *${event}_subject = NULL;
128 if test "$formal" != "void"; then
130 struct ${event}_args { `echo "${formal}" | sed -e 's/,/;/g'`; };
136 observer_${event}_notification_stub (const void *data, const void *args_data)
138 observer_${event}_ftype *notify = (observer_${event}_ftype *) data;
139 const struct ${event}_args *args = args_data;
140 notify (`echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args->\1/g'`);
144 observer_attach_${event} (observer_${event}_ftype *f)
146 return generic_observer_attach (&${event}_subject,
147 &observer_${event}_notification_stub,
152 observer_detach_${event} (struct observer *observer)
154 generic_observer_detach (&${event}_subject, observer);
158 observer_notify_${event} (${formal})
161 if test "$formal" != "void"; then
163 struct ${event}_args args;
164 `echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args.\1 = \1/g'`;
168 echo "char *args = NULL;" >> ${otmp}
172 fprintf_unfiltered (gdb_stdlog, "observer_notify_${event}() called\n");
173 generic_observer_notify (${event}_subject, &args);
182 h
) cat <<EOF >>${otmp}
184 #endif /* OBSERVER_H */
189 echo Moving
${otmp} to
${o}
This page took 0.032672 seconds and 4 git commands to generate.