18 lines
477 B
Plaintext
18 lines
477 B
Plaintext
|
#!/bin/bash
|
||
|
|
#copied from jungerl
|
||
|
|
if [ "$1" == "-root" -o "$1" == "" ]; then
|
||
|
|
erl -noinput -eval 'io:format("~s~n", [code:root_dir()]), halt(0).'
|
||
|
|
fi
|
||
|
|
|
||
|
|
if [ "$1" == "-ei" -o "$1" == "" ]; then
|
||
|
|
erl -noinput -eval \
|
||
|
|
'case code:lib_dir("erl_interface") of
|
||
|
|
{error, bad_name} ->
|
||
|
|
io:format("not found~n", []),
|
||
|
|
halt(1);
|
||
|
|
LibDir ->
|
||
|
|
io:format("~s~n", [LibDir]),
|
||
|
|
halt(0)
|
||
|
|
end.'
|
||
|
|
fi
|