LispForum

Code: Select all

<target ...>
    <exec name="shell-or-lisp-script" spawn="if-you-need?">
        <arg value="start-server"/>
    </exec>
    <junit .../><!-- a bunch of unit tests that talk to the server -->
    <exec name="shell-or-lisp-script" spawn="if-you-need?">
        <arg value="stop-server"/>
    </exec>
</target>

Code: Select all

;; This is some old-ish asdf function, I think it's called differently now
(asdf:oos 'asdf:load-op :video-rounds)
(rounds-web:start-server)
;; To keep us running. This looks like an ugly hack, 
;; but that's all I could find for now. 
(defvar alive t)
(loop (sleep 1000) (if (not alive) (quit)))

Code: Select all

#!/bin/bash
nohup sbcl --script start-server.lisp > /dev/null 2> /dev/null &

Code: Select all

#!/bin/bash
PID=`ps aux | awk '/sbcl --script start-server.lisp$/ { print $2 }'`;
kill "$PID"

Code: Select all

	<target name="start-hunchentoot"
		description="This is a test target. Don't use it yet. 
It's for launching web server for tests.">
		<exec executable="${SERVER_DIR}/start" dir="${SERVER_DIR}"/>
		<!--exec executable="${SERVER_DIR}/stop" dir="${SERVER_DIR}"/-->
	</target>

Code: Select all

#!/bin/bash

# Starts up SBCL in a detached `screen` session, allowing you to
# reattach at will, so long as you log in as the same user as the one
# who owns this process.

# Might just need tweaking for other lisps. You never know...

# Notes:
# `screen -d -m` starts screen in "detached" mode

SCREEN=/usr/bin/screen

PACKAGE=$1
COMMAND=$2

# Limit the memory usage
# This helps prevent sbcl from taking over the entire machine.
MEMLIMIT=256

if [[ -z "$PACKAGE" || -z "$COMMAND" ]]
then
	echo "Need the package and at least one command as arguments!"
	exit 1
else
	$SCREEN -d -m sbcl --dynamic-space-size $MEMLIMIT --eval "(asdf:load-system $PACKAGE)" --eval "(in-package $PACKAGE)" --eval "($COMMAND)"
fi