123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- #!/bin/sh
- #
- # dcm2desc - Convert .dcm files to genex descriptions
- #
- # Copyright 2012 by Werner Almesberger
- #
- # 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 2 of the License, or
- # (at your option) any later version.
- #
- usage()
- {
- echo "usage: $0 [-L libdir ...] [-l lib ...]" 1>&2
- exit 1
- }
- scan_dcm()
- {
- for n in "$@"; do
- sed -e '/^\$CMP /{s///;x;}' \
- -e '/^[DKF] /{s///;x;G;s/\n/: /;p;s/: .*//;x;}' \
- -e d <"$n"
- done
- }
- while [ "$1" ]; do
- case "$1" in
- -L) shift
- [ "`echo \"$1\"/*.dcm`" != "$1/*.dcm" ] &&
- scan_dcm "$1"/*.dcm;;
- -l) shift
- scan_dcm "$1";;
- -*) usage;;
- *) usage;;
- esac
- shift
- done
- exit 0
|