#!/bin/sh
exec rep "$0" "$@"
!#;; Source file: sawfish-client.jl
(validate-byte-code 11 0)

(require (quote sawfish.client))
(%define current-repl (run-byte-code "v" [make-fluid] 1))
(defun usage #["@
v" [write standard-output "usage: sawfish-client OPTIONS...

where OPTIONS are any of:

	--display X	Connect to the window manager on display X
	-q		Be quiet (perform commands asynchronously)
	-f FUNCTION	Call Lisp function FUNCTION on the server
	-c COMMAND	Call the interactive Lisp function COMMAND
	-r FEATURE	Require the module called FEATURE
	-e FORM		Evaluate Lisp form FORM on the server
	-		Read lines of input until EOF, evaluating each
			 one as it is read
	--		Read forms from standard input until EOF, evaluating
			 the whole lot in one go (inside a progn)
"] 3])
(defun exit #["0 tv" [quit] 1048578])
(defun main #["J
 J
DF0  	EH	 #H	HIDUDI0C0@ 6	D1]L
` MJ(M1 8L` [M1 8L` xM x 
	IK	H1 8L` M  
	IKKIKK	H1 8L` M  
	IKKIKK	H1 8L` M  
		H1 8L`	H	H@	H	DU8D@
H I!8	%\"'#$8		DF2%&'()*8IKKIKKIKKK+,-*IKKIKKK.KK/KKIKKKIKKK	DF3L(8H@M
H8EEEEEEHM1 8L0`1D223@
H 
456	7		HM1E 88@9LH8@:
H	EH	v" [get-command-line-option "-display" "--display" sawfish-client-display "--help" usage exit #["08 
 	v@ J

H@

v" [sawfish-client-eval-async write standard-output sawfish-client-eval] 1048581] command-line-args ("-") "-q" "-d" "-f" read-from-string "-c" call-command quote "-r" require "-e" "-" rep.io.readline rep.util.repl format standard-output "sawfish %s, Copyright (C) 1999-2000 John Harper
sawfish comes with ABSOLUTELY NO WARRANTY; for details see the file COPYING
" sawfish-client-eval sawfish-version (progn (require (quote rep.util.repl)) (make-repl (quote user))) current-repl write "
Enter `,help' to list commands.
" readline repl-pending "" "%s> " repl-struct progn (require (quote rep.util.repl)) let* (standard-output (make-string-output-stream)) (standard-error standard-output) r cons and repl-iterate (r) ((get-output-stream-string standard-output)) "--" make-string-output-stream copy-stream standard-input concat "(progn" get-output-stream-string ")" standard-error "sawfish-client: unknown option `%s'
" "Try `sawfish-client --help' for more information.
"] 4201485])
(defun rl-completion-generator #["0BIKK IKKIKKK	v" [sawfish-client-eval repl-completions quote current-repl] 1048582])
(run-byte-code "v" [main] 1)
