+(define-beh system-beh
+ (self)
+
+ (('shutdown) =>
+ (log-msg "System actor received shutdown message.")
+ (exit 0)
+ 'done)
+
+ (('print strings ...) =>
+ (apply print strings))
+
+ (('read reader) =>
+ (mutex-lock! reader-queue-mutex)
+ (fifo-push reader-queue reader)
+ (mutex-unlock! reader-available-mutex)
+ (mutex-unlock! reader-queue-mutex)))
+
+(define (boot-sam)
+ (start-console)
+ (start-network-listener)
+ (let ((system (make-actor system-beh))
+ (main #f))
+ (condition-case
+ (begin
+ (set! main (make-actor main-beh)))
+ ((exn)
+ (log-msg "Error starting main actor. Is main-beh defined?")
+ (exit 1)))
+ (send-message main system))
+ (start-scheduler))
+
+(define (print-usage)
+ (print "Simple Actor Machine v" sam-version "\n"
+ "\n"
+ "Usage: sam -h|--help\n"
+ " sam [-n hostname] [-p port] source-file-1 [source-file-2 [...]] "))
+
+(let loop ((args (cdr (argv))))
+ (match args
+ (((or "-h" "--help"))
+ (print-usage))
+ (((or "-p" "--port") pstr rest ...)
+ (set! sam-port (string->number pstr))
+ (loop rest))
+ (((or "-n" "--hostname") hstr rest ...)
+ (set! sam-host hstr)
+ (loop rest))
+ (((or "-t" "--trace") rest ...)
+ (log-msg "Enabling trace debugging")
+ (set! trace #t)
+ (loop rest))
+ (((? file-exists? filename) rest ...)
+ (log-msg "Loading " filename)
+ (load filename)
+ (loop rest))
+ (()
+ (log-msg "Booting SAM\n")
+ (boot-sam))
+ (else
+ (print "Unrecognised argument '" (car args) "'.\n")
+ (print-usage))))