Commit | Line | Data |
---|---|---|
7a464420 AC |
1 | #!/bin/sh -e |
2 | ||
3 | if test $# -ne 3 | |
4 | then | |
5 | echo "Usage: $0 <h|inc> <observer.texi> <observer.out>" 1>&2 | |
6 | exit 0 | |
7 | fi | |
8 | ||
9 | lang=$1 ; shift | |
10 | texi=$1 ; shift | |
11 | o=$1 ; shift | |
12 | echo "Creating ${o}-tmp" 1>&2 | |
13 | rm -f ${o}-tmp | |
14 | ||
15 | # Can use any of the following: cat cmp cp diff echo egrep expr false | |
16 | # grep install-info ln ls mkdir mv pwd rm rmdir sed sleep sort tar | |
17 | # test touch true | |
18 | ||
19 | cat <<EOF >>${o}-tmp | |
20 | /* GDB Notifications to Observers. | |
21 | ||
22 | Copyright 2004 Free Software Foundation, Inc. | |
23 | ||
24 | This file is part of GDB. | |
25 | ||
26 | This program is free software; you can redistribute it and/or modify | |
27 | it under the terms of the GNU General Public License as published by | |
28 | the Free Software Foundation; either version 2 of the License, or | |
29 | (at your option) any later version. | |
30 | ||
31 | This program is distributed in the hope that it will be useful, | |
32 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
33 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
34 | GNU General Public License for more details. | |
35 | ||
36 | You should have received a copy of the GNU General Public License | |
37 | along with this program; if not, write to the Free Software | |
38 | Foundation, Inc., 59 Temple Place - Suite 330, | |
39 | Boston, MA 02111-1307, USA. | |
40 | ||
41 | -- | |
42 | ||
43 | This file was generated using observer.sh and observer.texi. */ | |
44 | ||
45 | EOF | |
46 | ||
47 | ||
48 | case $lang in | |
49 | h) cat <<EOF >>${o}-tmp | |
50 | #ifndef OBSERVER_H | |
51 | #define OBSERVER_H | |
52 | ||
53 | struct observer; | |
54 | struct bpstats; | |
55 | EOF | |
56 | ;; | |
57 | esac | |
58 | ||
59 | ||
60 | # generate a list of events that can be observed | |
61 | ||
62 | IFS=: | |
63 | sed -n ' | |
64 | /@deftypefun void/{ | |
65 | # Save original line for later processing into the actual parameter | |
66 | h | |
67 | # Convert from: @deftypefun void EVENT (TYPE @var{PARAM},...) | |
68 | # to event and formals: EVENT:TYPE PARAM, ...: | |
69 | s/^.* void \([a-z_][a-z_]*\) (\(.*\))$/\1:\2/ | |
70 | s/@var{//g | |
71 | s/}//g | |
72 | # Switch to held | |
73 | x | |
74 | # Convert from: @deftypefun void FUNC (TYPE @var{PARAM},...) | |
75 | # to actuals: PARAM, ... | |
76 | s/^[^{]*[{]*// | |
77 | s/[}]*[^}]*$// | |
78 | s/}[^{]*{/, /g | |
79 | # Combine held (EVENT:TYPE PARAM, ...:) and pattern (PARAM, ...) into | |
80 | # FUNC:TYPE PARAM, ...:PARAM, ... | |
81 | H | |
82 | x | |
83 | s/\n/:/g | |
84 | p | |
85 | } | |
86 | ' $texi | while read event formal actual | |
87 | do | |
88 | case $lang in | |
89 | h) cat <<EOF >>${o}-tmp | |
90 | ||
91 | /* ${event} notifications. */ | |
92 | ||
93 | typedef void (observer_${event}_ftype) (${formal}); | |
94 | ||
95 | extern struct observer *observer_attach_${event} (observer_${event}_ftype *f); | |
96 | extern void observer_detach_${event} (struct observer *observer); | |
97 | extern void observer_notify_${event} (${formal}); | |
98 | EOF | |
99 | ;; | |
100 | ||
101 | inc) | |
102 | cat <<EOF >>${o}-tmp | |
103 | ||
104 | /* ${event} notifications. */ | |
105 | ||
106 | static struct observer_list *${event}_subject = NULL; | |
107 | ||
108 | struct ${event}_args { `echo "${formal}" | sed -e 's/,/;/g'`; }; | |
109 | ||
110 | static void | |
111 | observer_${event}_notification_stub (const void *data, const void *args_data) | |
112 | { | |
113 | observer_${event}_ftype *notify = (observer_${event}_ftype *) data; | |
114 | const struct ${event}_args *args = args_data; | |
115 | notify (`echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args->\1/g'`); | |
116 | } | |
117 | ||
118 | struct observer * | |
119 | observer_attach_${event} (observer_${event}_ftype *f) | |
120 | { | |
121 | return generic_observer_attach (&${event}_subject, | |
122 | &observer_${event}_notification_stub, | |
123 | (void *) f); | |
124 | } | |
125 | ||
126 | void | |
127 | observer_detach_${event} (struct observer *observer) | |
128 | { | |
129 | generic_observer_detach (&${event}_subject, observer); | |
130 | } | |
131 | ||
132 | void | |
133 | observer_notify_${event} (${formal}) | |
134 | { | |
135 | struct ${event}_args args; | |
136 | `echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args.\1 = \1/g'`; | |
137 | generic_observer_notify (${event}_subject, &args); | |
138 | } | |
139 | EOF | |
140 | ;; | |
141 | esac | |
142 | done | |
143 | ||
144 | ||
145 | case $lang in | |
146 | h) cat <<EOF >>${o}-tmp | |
147 | ||
148 | #endif /* OBSERVER_H */ | |
149 | EOF | |
150 | esac | |
151 | ||
152 | ||
153 | echo Moving ${o}-tmp to ${o} | |
154 | mv ${o}-tmp ${o} |