48 lines
1,006 B
Text
48 lines
1,006 B
Text
|
#!/usr/bin/env bash
|
||
|
|
|
||
|
|
if [ $# -eq 0 ]; then
|
||
|
|
echo 'Usage: erun mod.erl arg1 arg2 ...'
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
## FILE WITH SOURCE CODE
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
file="$1"
|
||
|
|
if [ ! -f "$file" ]; then
|
||
|
|
echo 'File not found'
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
## ERLANG MODULE TO RUN
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
mod=$(echo $file | sed -e 's/.erl//')
|
||
|
|
|
||
|
|
## ARGUMENTS TO PASS TO THE MODULE
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
shift
|
||
|
|
args="$@"
|
||
|
|
if [ ! "$args" ]; then
|
||
|
|
# Without arguments main/0 will be called. Force main/1
|
||
|
|
args="''"
|
||
|
|
fi
|
||
|
|
|
||
|
|
## COMPILE AND RUN
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
erlc $file
|
||
|
|
|
||
|
|
if [ $? -ne 0 ]; then
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
# Module should implement main/1 function
|
||
|
|
erl -noshell +pc unicode -run $mod main $args -s init stop
|
||
|
|
|
||
|
|
## CLEAN UP
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
rm "$mod.beam"
|