call main\1 predicate with arguments list if any
This commit is contained in:
parent
87b124c737
commit
1305dc9e3f
|
@ -5,4 +5,9 @@ cd /tmp/$1
|
||||||
sed 's/^.*$/:- forall((Goal = (\0), call(Goal)), (write(Goal), nl))./' stdin.stdin |
|
sed 's/^.*$/:- forall((Goal = (\0), call(Goal)), (write(Goal), nl))./' stdin.stdin |
|
||||||
cat code.code - > code.pl
|
cat code.code - > code.pl
|
||||||
|
|
||||||
|
if [ -s args.args ]
|
||||||
|
then
|
||||||
|
echo ":- main($(jq --raw-input -c --slurp 'split("\n")' args.args))." >> code.pl
|
||||||
|
fi
|
||||||
|
|
||||||
timeout -s KILL 3 swipl -g true -t halt code.pl
|
timeout -s KILL 3 swipl -g true -t halt code.pl
|
||||||
|
|
Loading…
Reference in New Issue