doc/ChangeLog:
[external/binutils.git] / gdb / observer.sh
1 #!/bin/sh -e
2
3 # Make certain that the script is not running in an internationalized
4 # environment.
5 LANG=c ; export LANG
6 LC_ALL=c ; export LC_ALL
7
8 if test $# -ne 3
9 then
10     echo "Usage: $0 <h|inc> <observer.texi> <observer.out>" 1>&2
11     exit 0
12 fi
13
14 lang=$1 ; shift
15 texi=$1 ; shift
16 o=$1
17 case $lang in
18   h) tmp=htmp ;;
19   inc) tmp=itmp ;;
20 esac
21 otmp="`echo $1 | sed -e 's,\.[^.]*$,,'`.$tmp"; shift
22 echo "Creating ${otmp}" 1>&2
23 rm -f ${otmp}
24
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
27 # test touch true
28
29 cat <<EOF >>${otmp}
30 /* GDB Notifications to Observers.
31
32    Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc.
33
34    This file is part of GDB.
35
36    This program is free software; you can redistribute it and/or modify
37    it under the terms of the GNU General Public License as published by
38    the Free Software Foundation; either version 2 of the License, or
39    (at your option) any later version.
40
41    This program is distributed in the hope that it will be useful,
42    but WITHOUT ANY WARRANTY; without even the implied warranty of
43    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
44    GNU General Public License for more details.
45
46    You should have received a copy of the GNU General Public License
47    along with this program; if not, write to the Free Software
48    Foundation, Inc., 51 Franklin Street, Fifth Floor,
49    Boston, MA 02110-1301, USA.
50
51    --
52
53    This file was generated using observer.sh and observer.texi.  */
54
55 EOF
56
57
58 case $lang in
59     h) cat <<EOF >>${otmp}
60 #ifndef OBSERVER_H
61 #define OBSERVER_H
62
63 struct observer;
64 struct bpstats;
65 struct so_list;
66 struct objfile;
67 EOF
68         ;;
69 esac
70
71 # We are about to set IFS=:, so DOS-style file names with a drive
72 # letter and a colon will be in trouble.
73
74 if test -n "$DJGPP"
75 then
76      texi=`echo $texi | sed -e 's,^\([a-zA-Z]\):/,/dev/\1/,'`
77 fi
78
79 # generate a list of events that can be observed
80
81 IFS=:
82 sed -n '
83 /@deftypefun void/{
84 # Save original line for later processing into the actual parameter
85     h
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/
89     s/@var{//g
90     s/}//g
91 # Switch to held
92     x
93 # Convert from: @deftypefun void FUNC (TYPE @var{PARAM},...)
94 # to actuals: PARAM, ...
95     s/^[^{]*[{]*//
96     s/[}]*[^}]*$//
97     s/}[^{]*{/, /g
98 # Combine held (EVENT:TYPE PARAM, ...:) and pattern (PARAM, ...) into
99 # FUNC:TYPE PARAM, ...:PARAM, ...
100     H
101     x
102     s/\n/:/g
103     p
104 }
105 ' $texi | while read event formal actual
106 do
107   case $lang in
108       h) cat <<EOF >>${otmp}
109
110 /* ${event} notifications.  */
111
112 typedef void (observer_${event}_ftype) (${formal});
113
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});
117 EOF
118         ;;
119
120       inc)
121         cat <<EOF >>${otmp}
122
123 /* ${event} notifications.  */
124
125 static struct observer_list *${event}_subject = NULL;
126
127 struct ${event}_args { `echo "${formal}" | sed -e 's/,/;/g'`; };
128
129 static void
130 observer_${event}_notification_stub (const void *data, const void *args_data)
131 {
132   observer_${event}_ftype *notify = (observer_${event}_ftype *) data;
133   const struct ${event}_args *args = args_data;
134   notify (`echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args->\1/g'`);
135 }
136
137 struct observer *
138 observer_attach_${event} (observer_${event}_ftype *f)
139 {
140   return generic_observer_attach (&${event}_subject,
141                                   &observer_${event}_notification_stub,
142                                   (void *) f);
143 }
144
145 void
146 observer_detach_${event} (struct observer *observer)
147 {
148   generic_observer_detach (&${event}_subject, observer);
149 }
150
151 void
152 observer_notify_${event} (${formal})
153 {
154   struct ${event}_args args;
155   `echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args.\1 = \1/g'`;
156   if (observer_debug)
157     fprintf_unfiltered (gdb_stdlog, "observer_notify_${event}() called\n");
158   generic_observer_notify (${event}_subject, &args);
159 }
160 EOF
161         ;;
162     esac
163 done
164
165
166 case $lang in
167     h) cat <<EOF >>${otmp}
168
169 #endif /* OBSERVER_H */
170 EOF
171 esac
172
173
174 echo Moving ${otmp} to ${o}
175 mv ${otmp} ${o}