URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [observer.sh] - Rev 342
Go to most recent revision | Compare with Previous | Blame | View Log
#!/bin/sh -e # Make certain that the script is not running in an internationalized # environment. LANG=C ; export LANG LC_ALL=C ; export LC_ALL if test $# -ne 3 then echo "Usage: $0 <h|inc> <observer.texi> <observer.out>" 1>&2 exit 0 fi lang=$1 ; shift texi=$1 ; shift o=$1 case $lang in h) tmp=htmp ;; inc) tmp=itmp ;; esac otmp="`echo $1 | sed -e 's,\.[^.]*$,,'`.$tmp"; shift echo "Creating ${otmp}" 1>&2 rm -f ${otmp} # Can use any of the following: cat cmp cp diff echo egrep expr false # grep install-info ln ls mkdir mv pwd rm rmdir sed sleep sort tar # test touch true cat <<EOF >>${otmp} /* GDB Notifications to Observers. Copyright (C) 2004, 2005, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. This file is part of GDB. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>. -- This file was generated using observer.sh and observer.texi. */ EOF case $lang in h) cat <<EOF >>${otmp} #ifndef OBSERVER_H #define OBSERVER_H struct observer; struct bpstats; struct so_list; struct objfile; struct thread_info; EOF ;; esac # We are about to set IFS=:, so DOS-style file names with a drive # letter and a colon will be in trouble. if test -n "$DJGPP" then texi=`echo $texi | sed -e 's,^\([a-zA-Z]\):/,/dev/\1/,'` fi # generate a list of events that can be observed IFS=: sed -n ' /@deftypefun void/{ # Save original line for later processing into the actual parameter h # Convert from: @deftypefun void EVENT (TYPE @var{PARAM},...) # to event and formals: EVENT:TYPE PARAM, ...: s/^.* void \([a-z_][a-z_]*\) (\(.*\))$/\1:\2/ s/@var{//g s/}//g # Switch to held x # Convert from: @deftypefun void FUNC (TYPE @var{PARAM},...) # to actuals: PARAM, ... s/^[^{]*[{]*// s/[}]*[^}]*$// s/}[^{]*{/, /g # Combine held (EVENT:TYPE PARAM, ...:) and pattern (PARAM, ...) into # FUNC:TYPE PARAM, ...:PARAM, ... H x s/\n/:/g p } ' $texi | while read event formal actual do case $lang in h) cat <<EOF >>${otmp} /* ${event} notifications. */ typedef void (observer_${event}_ftype) (${formal}); extern struct observer *observer_attach_${event} (observer_${event}_ftype *f); extern void observer_detach_${event} (struct observer *observer); extern void observer_notify_${event} (${formal}); EOF ;; inc) cat <<EOF >>${otmp} /* ${event} notifications. */ static struct observer_list *${event}_subject = NULL; EOF if test "$formal" != "void"; then cat<<EOF >>${otmp} struct ${event}_args { `echo "${formal}" | sed -e 's/,/;/g'`; }; EOF fi cat <<EOF >>${otmp} static void observer_${event}_notification_stub (const void *data, const void *args_data) { observer_${event}_ftype *notify = (observer_${event}_ftype *) data; const struct ${event}_args *args = args_data; notify (`echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args->\1/g'`); } struct observer * observer_attach_${event} (observer_${event}_ftype *f) { return generic_observer_attach (&${event}_subject, &observer_${event}_notification_stub, (void *) f); } void observer_detach_${event} (struct observer *observer) { generic_observer_detach (&${event}_subject, observer); } void observer_notify_${event} (${formal}) { EOF if test "$formal" != "void"; then cat<<EOF >>${otmp} struct ${event}_args args; `echo ${actual} | sed -e 's/\([a-z0-9_][a-z0-9_]*\)/args.\1 = \1/g'`; EOF else echo "char *args = NULL;" >> ${otmp} fi cat<<EOF >>${otmp} if (observer_debug) fprintf_unfiltered (gdb_stdlog, "observer_notify_${event}() called\n"); generic_observer_notify (${event}_subject, &args); } EOF ;; esac done case $lang in h) cat <<EOF >>${otmp} #endif /* OBSERVER_H */ EOF esac echo Moving ${otmp} to ${o} mv ${otmp} ${o}
Go to most recent revision | Compare with Previous | Blame | View Log