Sha256: 3a347c21b9bfcc9a88e04dafdefc33cb72df4b9ffb0258dd7941286d673af62f
Contents?: true
Size: 1.4 KB
Versions: 29
Compression:
Stored size: 1.4 KB
Contents
#!/bin/sh
# erlwareSys: otp/build/beamver,v 1.1 2002/02/14 11:45:20 hal Exp $
# usage: beamver <beam_file>
#
# if there's a usable -vsn() attribute, print it and exit with status 0
# otherwise, print nothing and exit with status 1
# From the Erlang shell:
#
# 5> code:which(acca_inets).
# "/home/martin/work/otp/releases/<app>/../../acca/ebin/<app>.beam"
#
# 8> beam_lib:version(code:which(<app>)).
# {ok,{<app>,['$Id: beamver,v 1.1.1.1 2003/06/13 21:43:21 mlogan Exp $ ']}}
# TMPFILE looks like this:
#
# io:format("hello ~p~n",
# beam_lib:version("/home/hal/work/otp/acca/ebin/acca_inets.beam")]).
TMPFILE=/tmp/beamver.$$
# exit with failure if we can't read the file
test -f "$1" || exit 1
BEAMFILE=\"$1\"
cat > $TMPFILE <<_EOF
io:format("~p~n",
[beam_lib:version($BEAMFILE)]).
_EOF
# beam_result is {ok,{Module_name, Beam_version} or {error,beam_lib,{Reason}}
beam_result=`erl -noshell \
-s file eval $TMPFILE \
-s erlang halt`
rm -f $TMPFILE
# sed regexes:
# remove brackets and anything outside them
# remove quotes and anything outside them
# remove apostrophes and anything outside them
# remove leading and trailing spaces
case $beam_result in
\{ok*)
echo $beam_result | sed -e 's/.*\[\(.*\)].*/\1/' \
-e 's/.*\"\(.*\)\".*/\1/' \
-e "s/.*\'\(.*\)\'.*/\1/" \
-e 's/ *$//' -e 's/^ *//'
exit 0
;;
*)
exit 1
;;
esac
Version data entries
29 entries across 28 versions & 3 rubygems