82 lines
1.6 KiB
Bash
82 lines
1.6 KiB
Bash
#!/bin/sh
|
|
#
|
|
# usage: get-cm work_dir
|
|
#
|
|
# Find all .cm Group and Library descriptions that are referenced
|
|
# from the top level alias files in $SML_BASE/lib/
|
|
|
|
# temp file
|
|
tmpfile="${TMP:-/tmp}/chomp$$"
|
|
|
|
# attempt to change directory to work dir
|
|
cd $1 || exit 1
|
|
work_dir=`pwd` # get the canonical name for the current directory
|
|
|
|
trap "rm -f $tmpfile" 0 1 2 3 15
|
|
|
|
# hack to remove SML comments '(* ... *)'
|
|
|
|
strip_comments()
|
|
{
|
|
# caveat: the following assumes gcc is present ...
|
|
gcc -x c -E -P -ansi -DOPSYS_UNIX $1 | awk '{
|
|
line = $0
|
|
if (match(line, "\\(\\*")) {
|
|
while (match($0, "\\(\\*")) {
|
|
if (RSTART > 1) {
|
|
print substr($0, 0, RSTART-1);
|
|
}
|
|
sub("^.*\\(\\*", "");
|
|
while (!match($0, "\\*\\)")) {
|
|
getline
|
|
}
|
|
$0 = substr($0, RSTART+RLENGTH);
|
|
}
|
|
}
|
|
print
|
|
}'
|
|
}
|
|
|
|
# return canonical name for a path with embedded ..'s
|
|
|
|
canonical()
|
|
{
|
|
echo $(cd `dirname $1` && pwd)/`basename $1`
|
|
}
|
|
|
|
# initial list of CM description files
|
|
global_cm_list="$(cat ./lib/*.cm | awk '{ print $2 }')"
|
|
|
|
set -- $global_cm_list
|
|
|
|
touch $tmpfile
|
|
|
|
# process the global list
|
|
while [ $# -ge 1 ]; do
|
|
|
|
cm_file="$1"; shift
|
|
global_cm_list="$*"
|
|
|
|
echo $cm_file >> $tmpfile
|
|
|
|
cm_dir=`dirname $cm_file`
|
|
cm_new=$(strip_comments $cm_file | grep '\.cm' | \
|
|
awk '{ print $1 }')
|
|
|
|
# append new CM files to current global list
|
|
for i in $cm_new; do
|
|
new_cm_file=$(canonical $cm_dir/$i)
|
|
if [ -r $new_cm_file ]; then
|
|
if ! grep "^$new_cm_file" $tmpfile > /dev/null; then
|
|
global_cm_list="$new_cm_file $global_cm_list"
|
|
echo $new_cm_file >> $tmpfile
|
|
fi
|
|
fi
|
|
done
|
|
|
|
set -- $global_cm_list
|
|
done
|
|
|
|
# output to stdout
|
|
sort -u < $tmpfile | sed -e "s,^$work_dir/,,"
|