gdb/observer.sh

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