GOOF----LE-8-2.05D ] � 4 h� ] g guile� � g define-module*� � � g system� g repl� g server� �
g filenameS� f system/repl/server.scm� g importsS�
�
� g ice-9� g threads� � � g rdelim� � � g match� � � g iconv� � � g rnrs� g bytevectors� � � g io� !g ports� " ! � #" � $g srfi� %g srfi-1� &$% � '& � (g srfi-26� )$( � *) � +#'* � ,g exportsS� -g make-tcp-server-socket� .g make-unix-domain-server-socket� /g
run-server� 0g spawn-server� 1g stop-server-and-clients!� 2-./01 � 3g set-current-module� 43 � 53 � 6g *open-sockets*� 7g
make-mutex� 8g sockets-lock� 9g
lock-mutex� :9 � ;9 � <g unlock-mutex� =< � >< � ?g assq-remove!� @g
close-port� Ag
close-socket!� Bg add-open-socket!� Cg error� DC � EC � Ff no matching pattern� Gg hostS� HG
�� Ig addrS� JI�� Kg portS� LK �� MHJL � Ng inet-aton� Og INADDR_LOOPBACK� Pg socket� Qg PF_INET� Rg SOCK_STREAM� Sg
setsockopt� Tg
SOL_SOCKET� Ug SO_REUSEADDR� Vg bind� Wg AF_INET� Xg pathS� YX
�� ZY � [f /tmp/guile-socket� \g PF_UNIX� ]g AF_UNIX� ^g delete-duplicates� _g
filter-map� `g and=>� ag module-variable� bg the-root-module� cg variable-ref� dg EINTR� eg EAGAIN� fg EWOULDBLOCK� gdef � hg
errs-to-retry� ig run-server*� jg serve-client� kg catch� lg select� mg memq� ng accept� og system-error-errno� pg memv� qg warn� rf Error accepting client� sg sleep� tg pipe� ug fcntl� vg F_SETFL� wg
O_NONBLOCK� xg F_GETFL� yg sigaction� zg SIGPIPE� {g SIG_IGN� |g display� }g force-output� ~g listen� g call-with-new-thread� � � � � �g %thread-handler� �� � �� � �g close� �g current-thread� �g set-thread-cleanup!� �g
cancel-thread� �g guard-against-http-request� �g with-continuation-barrier� �g current-input-port� �g current-output-port� �g current-error-port� �g current-warning-port� �g
parameter?� �� � �� � �g scm-error� �g wrong-type-arg� �f parameterize� �f Not a parameter: ~S� �g *repl-stack*� �g
start-repl� �g port-closed?� �g
port-encoding� �g set-port-encoding!� �g with-temporary-port-encoding� �g port-line� �g port-column� �g set-port-line!� �g set-port-column!� �g with-saved-port-line+column� �g char-ready?� �g get-bytevector-some� �g bytevector?� �g bytevector->string� �f
ISO-8859-1� �g string-concatenate-reverse� �g setvbuf� �g _IOFBF� �g drain-input-and-close� �g ucs-range->char-set� �g make-regexp� �g
string-append� �f 2^(OPTIONS|GET|HEAD|POST|PUT|DELETE|TRACE|CONNECT) � �f [^ ]+ � �f HTTP/[0-9]+.[0-9]+$� �g string-every� �g regexp-exec� �g permissive-http-request-line?� �g read-delimited� �f
� �g peek� �g eof-object?� �g done� �g %make-void-port� �f rw� �g call-with-port� �g dup->port� �f w� �g format� �f �
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ POSSIBLE BREAK-IN ATTEMPT ON THE REPL SERVER @@
@@ BY AN HTTP INTER-PROTOCOL EXPLOITATION ATTACK. See: @@
@@ <https://en.wikipedia.org/wiki/Inter-protocol_exploitation> @@
@@ Possible HTTP request received: ~S
@@ The associated socket has been closed. @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
� �g
unread-string� �g check-for-http-request� �g %set-port-property!� �g guard-against-http-request?� �g %port-property� �g maybe-check-for-http-request� �g add-hook!� �g before-read-hook�C 5 h�1 � ]4
+,25 45 > "